((^,b(if #0=(#/U/#1=(~ b 1)),"       U
   U U U
   U U U U
 U U UUU U")(map(^s((^i,(format"~a~v,,,'Ra"(regexp-replace-all #/\w/s(^m(if(#/R/(m))(inc! i))#\ ))i""))0))b)(if #0#," D DD DD D
 D  D D  D
 D       D"(if(#/D/#1#)," DDDDDDD
   D   D
       D")))print(port-map + read-line))