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

makeAns :: Int -> Int -> String
makeAns dx dy = path1 dx dy ++ path2 dx dy ++ path3 dx dy ++ path4 dx dy




path1 dx dy = replicate dy 'U' ++ replicate dx 'R'
path2 dx dy = replicate dy 'D' ++ replicate dx 'L'
path3 dx dy = 'L':(replicate (dy+1) 'U' ++ replicate (dx+1) 'R' ++ ['D'])
path4 dx dy = 'R':(replicate (dy+1) 'D' ++ replicate (dx+1) 'L' ++ ['U'])





