perl -le 'printf"%*s\n",$t+$_,(1x$_)**2for(1x($t=pop))**2=~/./g' 9

##</code><code>##

perl -e 'printf"%*s\n",$t+$_,(1x$_)**2for(1x($t=pop))**2=~/./g' 9

##</code><code>##

perl -le 'print" "x($t-$_),(1x$_)**2for(1x($t=pop))**2=~/./g' 9