(setf n(1-(read))c(read-char))(dotimes(i(1+ n))(format t"~V@T~A~V@{~:[~;~2*~V@A~]~V@A~3@*~}
"i c n(< 0 i n)(* n 2)c(*(- n i)2)c(* i 2)c))