solve :: (Int, Int) -> (Int, Int) -> String
solve (sx, sy) (tx, ty) = go1 ++ bk1 ++ go2 ++ bk2
    where
        go1 = (replicate v 'U') ++ replicate h 'R'
        bk1 = (replicate v 'D') ++ replicate h 'L'
        go2 = ['L'] ++ (replicate (v+1) 'U') ++ (replicate (h+1) 'R') ++ ['D']
        bk2 = ['R'] ++ (replicate (v+1) 'D') ++ (replicate (h+1) 'L') ++ ['U']
        v = abs $ sy - ty
        h = abs $ sx - tx

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