import Control.Applicative

up n = take n (repeat 'U')
dw n = take n (repeat 'D')
ri n = take n (repeat 'R')
le n = take n (repeat 'L')

main = do
  (sx:sy:tx:ty:_) <- (map (read::String->Int)) . words <$> getLine
  let
    dx = tx - sx
    dy = ty - sy

  putStrLn $ foldl1 (++) [up dy, ri dx, dw dy, le dx, le 1, up (dy+1), ri (dx+1), dw 1, ri 1, dw (dy+1), le (dx+1), up 1]
  
