perl -e '$n=pop; print "\n", " "x($n-$_),1..$_,reverse 1..$_-1, for 1..$n,reverse 1..$n-1' 9