(dotimes(k(1+(set'n(-(read)2))))(format t"~V@T~V@{**~}*
~[~VT*~]"(- n k)k(- n k)n))