import           System.IO hiding (char8)
import           Control.Applicative
import           Control.Monad
import           Data.List
import           Data.Int
import           Data.Char
import           Data.Maybe
import qualified Data.ByteString.Char8 as BS
import           Debug.Trace

-- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + --


main :: IO ()
main = do  
  (sx, sy, tx, ty) <- readInt4 <$> BS.getLine
  putStrLn $ f (sx, sy, tx, ty)

f :: (Int, Int, Int, Int) -> [Char]
f (sx, sy, tx, ty) = fh1 ++ sh1 ++ fh2 ++ sh2
  where
    fh1 = (take (ty-sy) $ repeat 'U') ++ (take (tx-sx) $ repeat 'R')
    sh1 = (take (ty-sy) $ repeat 'D') ++ (take (tx-sx) $ repeat 'L')
    fh2 = 'L':(take (ty-sy+1) $ repeat 'U') ++ ((take (tx-sx+1) $ repeat 'R') ++ ['D'])
    sh2 = 'R':(take (ty-sy+1) $ repeat 'D') ++ ((take (tx-sx+1) $ repeat 'L') ++ ['U'])

-- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + -- + --

readInt1 :: BS.ByteString -> Int
readInt1 = fst . fromJust . BS.readInt 
 
readInt4 :: BS.ByteString -> (Int,Int,Int,Int)
readInt4 = toQuadruple . readIntN
 
readIntN :: BS.ByteString -> [Int]
readIntN =  map readInt1 . BS.words
 
toQuadruple :: [a] -> (a, a, a, a)
toQuadruple [w, x, y, z] =(w, x, y, z)