(dotimes(n(ash 1(set'm(read))))(princ(#1=substitute #\# #\1(#1##\. #\0(format()"~V,'0B
"m n)))))