(setf n(read)k(1- n)_ #1=(#2=format t"~V@{Z~}
"n t)_(loop(if(=(decf k)0)#1#(#2#t"~VTZ
"k))))