(dotimes(i(set'n(read)))(format t"~V@T*~V@{**~}
"(- n #1=(mod i(1- n))2)#1#t))