(setf -(princ"-----------------
")a"* *"b"*** ***"c"* * *"d'(* *** *)e`(,a,b,a)f`(,a,b,c ***,c,b,a)g'("""""")h`(,@g,@g))(loop(format t"~{~17:@<~A~>
~}~A"(nth(read)`(t(,@h,@d,@h)(,@d,@h,@g,@d)(,@d,@g,@d,@g,@d)(,@e,@h,@g,@e)(,@e,@g,@d,@g,@e)(,@e,@g,@e,@g,@e)(,@e,@d,@e,@g,@e)(,@e,@d,@e,@d,@e)(,@e"",@f"",@e)(,@f"",@f)))-))
Note that non-ascii characters in the above source code will be escaped (such as \x9f).