There's an even easier way:

$Sqs = stretcher($S);
[download]

see PDL::MatrixOps.