#!perl s//- /;eval's/$/" "x(pos).$`/e;'x pop;print
#!perl -l s//-/;eval'$_.=" "x y|||c.$_;'x pop;print
#!perl -l s//-/;for$x(1..pop){$_.=" "x y///c.$_};print