import Control.Monad
import Data.List

main=do
    [sx,sy,tx,ty] <- map read.words<$>getLine::IO [Int]
    let (dx,dy) = (tx-sx, ty-sy)
    putStrLn $ replicate dy 'U' ++ replicate dx 'R' ++ replicate dy 'D' ++ replicate dx 'L'
        ++ "L" ++ replicate (dy+1) 'U' ++ replicate (dx+1) 'R' ++ "DR"
        ++ replicate (dy+1) 'D' ++ replicate (dx+1) 'L' ++ "U"
