
n_char::Char -> Int -> String
n_char c 0=[]
n_char c n=c:(n_char c (n-1))

type Coord = (Int,Int)

forth_1:: Coord -> Coord -> String
forth_1 (s_x,s_y) (t_x,t_y) = (n_char 'U' (t_y-s_y))++(n_char 'R' (t_x-s_x))

back_1:: Coord -> Coord -> String
back_1 (s_x,s_y) (t_x,t_y) = (n_char 'D' (t_y-s_y))++(n_char 'L' (t_x-s_x))

forth_2:: Coord -> Coord -> String
forth_2 (s_x,s_y) (t_x,t_y) = "L"++(n_char 'U' ((t_y-s_y)+1))++(n_char 'R' ((t_x-s_x)+1))++"D"

back_2:: Coord -> Coord -> String
back_2 (s_x,s_y) (t_x,t_y) = "R"++(n_char 'D' ((t_y-s_y)+1))++(n_char 'L' ((t_x-s_x)+1))++"U"

solver::Coord->Coord->String
solver s t = (forth_1 s t)++(back_1 s t)++(forth_2 s t)++ (back_2 s t)

main::IO()
main = do
  d<-getLine
  let s_x:s_y:t_x:t_y:[]= map read (words d) ::[Int]
  putStr (solver (s_x,s_y) (t_x,t_y))
  putStr "\ns"