(format t"~@?
 ~4@{~@?~2:*~} ~@?~@*~@?"" ~V@{  ##~}"(set'n(read))"#~V@{   #~}
"(1- n)t)