(pr:+""(if(>(= r readline h(r)w(- len.h 2))8)"       U
   U U U
   U U U U
 U U UUU U
")h(n-of w(+"
#"(n-of w" ")"#"(keep #\R(r))))"
"h"
 "('("""DDDDDDD
   D   D
       D""D DD DD D
 D  D D  D
 D       D")(/(- w 5)2)))