(setf n(read)i(read-line))(dotimes(a n)(doseq(c i(terpri))(format t"~V,,,VA~C"(1- n)(if(< 0 a(1- n))#\  c)c c)))