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