Problem:
格子上の経路

上から見ると図 1 のような形の格子状の広場があります。この格子の各辺に「壁」があるかないかを 0 と 1 の並びで表します。点 A に立って壁に右手をつき、壁に右手をついたまま、矢印の方向に歩き続けて再び点 A に戻ってくるまでの経路を出力するプログラムを作成してください。

図1

Input

入力は９行からなり、以下の図 2 に示すように、壁がある場合を 1、ない場合を 0 として、以下の形式で与えられます。

1 行目は一番上の横線の壁の有無を左から 0 と 1 で表した文字列

2 行目はその下の縦線の壁の有無を左から0 と1 で表した文字列

3 行目は上から2 本目の横線の壁の有無を左から0 と1 で表した文字列

...

9 行目は一番下の横線の壁の有無を左から0 と1 で表した文字列

図2 (壁あるところを太線で表しています)　　(対応する数字のならび)

ただし、図１の太線に示すように、点 A から右に 1 区画分は必ず壁があるものとします。すなわち、1 行目の 1 文字目は常に 1 です。

Output

「図の左方向に一区画分進む」を 'L'、「図の右方向に一区画分進む」を 'R'、「図の上方向に一区画分進む」を 'U'、「図の下方向に一区画分進む」を 'D' で表わし、進む順に 'L', 'R', 'U', 'D' を１行に並べて出力します。

Sample Input

1111
00001
0110
01011
0010
01111
0010
01001
0111

Output for the Sample Input

RRRRDDDDLLLUUURRDDLURULLDDDRRRUUUULLLL

Solution in Ruby (judge verdict: Wrong Answer)

def solve(y, x, way)
  if y==0&&x==0 then
    print 'L'
    return
  end
  if y==1&&x==0&&way==2 then
    print 'U'
    return
  end
  if way==1 then
    print 'R'
    if y>0&& $d[y-1][x+1]=='1' then
      solve(y-1,x+1,2)
    elsif x<4&& $d[y][x+1]=='1' then
      solve(y,x+1,1)
    elsif y<8&& $d[y+1][x+1]=='1' then
      solve(y+1,x+1,4)
    elsif x>0&& $d[y][x-1]=='1' then
      solve(y,x-1,3)
    end
  elsif way==2 then
    print 'U'
    if x>0&& $d[y-1][x-1]=='1' then
      solve(y-1,x-1,3)
    elsif y>1&& $d[y-2][x]=='1' then
      solve(y-2,x,2)
    elsif x<4&& $d[y-1][x]=='1' then
      solve(y-1,x,1)
    elsif y<7&& $d[y+2][x]=='1' then
      solve(y+2,x,4)
    end
  elsif way==3 then
    print 'L'
    if y<8&& $d[y+1][x]=='1' then
      solve(y+1,x,4)
    elsif x>0&& $d[y][x-1]=='1' then
      solve(y,x-1,3)
    elsif y>0&& $d[y-1][x]=='1' then
      solve(y-1,x,2)
    elsif x<4&& $d[y][x+1]=='1' then
      solve(y,x+1,1)
    end
  elsif way==4 then
    print 'D'
    if x<4&& $d[y+1][x]=='1' then
      solve(y+1,x,1)
    elsif y<7&& $d[y+2][x]=='1' then
      solve(y+2,x,4)
    elsif x>0&& $d[y+1][x-1]=='1' then
      solve(y+1,x-1,3)
    elsif y>1&& $d[y-2][x]=='1' then
      solve(y-2,x,2)
    end
  end
end
$d = Array.new(9)
9.times do |i|
  $d[i] = gets
end
print 'R'
solve(0,1,1)