b=*$<
$_=b[1]
~/U/&&puts(" U
U U U
U U U U
U U UUU U")
b.map{|s|i=0;puts s.gsub(/\w/){|c|c=="R"&&i+=1;" "}.chomp+"R"*i}
~/U/?puts(" D DD DD D
D D D D
D D"):~/D/&&puts(" DDDDDDD
D D
D")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).