import Control.Applicative
import Control.Monad
import qualified Data.ByteString.Char8 as B
import Data.Maybe (fromJust)
import Text.Printf
import Debug.Trace

getInts :: IO [Int]
getInts = map (fst . fromJust . B.readInt) . B.words <$> B.getLine

main = do
  [sx,sy,tx,ty] <- getInts
  replicateM_ (abs $ sx-tx) (putChar $ if sx < tx then 'R' else 'L')
  replicateM_ (abs $ sy-ty) (putChar $ if sy < ty then 'U' else 'D')
  replicateM_ (abs $ sx-tx) (putChar $ if sx < tx then 'L' else 'R')
  replicateM_ (abs $ sy-ty) (putChar $ if sy < ty then 'D' else 'U')
  putChar 'D'
  replicateM_ ((+1) $ abs $ sx-tx) (putChar $ if sx < tx then 'R' else 'L')
  replicateM_ ((+1) $ abs $ sy-ty) (putChar $ if sy < ty then 'U' else 'D')
  putChar 'L'
  putChar 'U'
  replicateM_ ((+1) $ abs $ sx-tx) (putChar $ if sx < tx then 'L' else 'R')
  replicateM_ ((+1) $ abs $ sy-ty) (putChar $ if sy < ty then 'D' else 'U')
  putChar 'R'
  putStrLn ""
