(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)))-))