main :: IO ()
main = do
    [sx, sy, tx, ty] <- map read . words <$> getLine
    putStrLn $ solve sx sy tx ty

solve :: Int -> Int -> Int -> Int -> String
solve sx sy tx ty = replicate dy 'U'
    ++ replicate (dx + 1) 'R'
    ++ replicate (dy + 1) 'D'
    ++ replicate (dx + 1) 'L'
    ++ "UL"
    ++ replicate (dy + 1) 'U'
    ++ replicate (dx + 1) 'R'
    ++ replicate (dy + 1) 'D'
    ++ replicate dx 'L'
    where
        dx = tx - sx
        dy = ty - sy
