(dotimes(i(set! *(read)))(#1=string-set!(set! +(make-string 32 #\ ))i #\X)(#1# +(dec! *)#\X)(print((#/.+X/+))))