(setq a(1-(read)))(loop for k upto(1- (* a 2))by 2 do(format t(format nil"~~~A,@A~~~A,,,'*@A~%"(- a 1(/ k 2))(1+ k))""""))(format t(format nil"~~~A,@A"(1+ a))"G*F")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).