import Data.Char
import Data.List

replace :: String -> String
replace [] = []
replace (x:xs)
    | x == 'D' = "U" ++ replace xs
    | x == 'U' = "D" ++ replace xs
    | x == 'L' = "R" ++ replace xs
    | x == 'R' = "L" ++ replace xs
    | otherwise = x : replace xs


solve :: Int -> Int -> String
solve x y = (rep $ short x y) ++ (rep $ long x y)

short :: Int -> Int -> String
short 0 0 = []
short 0 n = "U" ++ short 0 (n - 1)
short m n = "R" ++ short (m - 1) n

long :: Int -> Int -> String
long x y = "D" ++ short (x + 1) (y + 1) ++ "L"

rep :: String -> String
rep s = s ++ replace s

main = do
    [a,b,c,d] <- fmap (read :: String -> Int) . words <$> getLine
    putStrLn $ solve (c-a) (d-b)