main :: IO ()
main = do
  [sx, sy, tx, ty] <- map read . words <$> getLine
  let (w, h) = (tx - sx, ty - sy)
      s = concat [
            concat (replicate h "U"),
            concat (replicate w "R"),
            concat (replicate h "D"),
            concat (replicate (w+1) "L"),
            concat (replicate (h+1) "D"),
            concat (replicate (w+1) "R"),
            "D",
            "R",
            concat (replicate (h+1) "D"),
            concat (replicate (w+1) "L"),
            "U"
          ]
  putStrLn s