ans :: Int -> Int -> Int -> Int -> String
ans sx sy tx ty =
  let s1 = take (ty-sy) $ repeat 'U'
      s2 = take (tx-sx) $ repeat 'R'
      s3 = take (ty-sy) $ repeat 'D'
      s4 = take (tx-sx+1) $ repeat 'L'
      s5 = take (ty-sy+1) $ repeat 'U'
      s6 = take (tx-sx) $ repeat 'R'
      s7 = take (1)     $ repeat 'D'
      s8 = take (1)     $ repeat 'R'
      s9 = take (ty-sy+1) $ repeat 'D'
      s10= take (ty-sy+1) $ repeat 'L'
      s11= take (1) $ repeat 'U'

  in
    s1 ++ s2 ++ s3 ++ s4 ++ s5 ++ s6 ++ s7 ++ s8 ++ s9 ++ s10 ++ s11

main = do
  l <- getLine
  let (sx:sy:tx:ty:_) = map read $ words l :: [Int]
      o = ans sx sy tx ty
  putStrLn o
  
