{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Maybe
import Data.Char
import qualified Data.ByteString.Char8 as B
import Text.Printf
import Debug.Trace

readInt = ( readLn :: IO Int )
readInts = map ( fst . fromJust . B.readInt ) . B.words <$> B.getLine

which a b f = if f then a else b
mp [ a, b ] = ( a, b )

main = do
	[ sx, sy, tx, ty ] <- readInts
	let
		dx = tx - sx
		dy = ty - sy
		a = solve dx dy
		b = map inverse a
		c = "D" ++ solve ( dx + 1 ) ( dy + 1 ) ++ "L"
		d = map inverse c
	putStrLn $ concat [ a, b, c, d ]

solve x y = replicate x 'R' ++ replicate y 'U'

inverse 'U' = 'D'
inverse 'D' = 'U'
inverse 'L' = 'R'
inverse 'R' = 'L'