(dotimes(i(set'n(read)))(format t(if(>(1- n)i 0)"~VTZ
""~*~V@{Z~}
")(- n i 1)n 0))