Imports System.Collections.Generic
Imports System.Console

Module Program
    Sub Main()
        Dim sx As Integer = NextInt()
        Dim sy As Integer = NextInt()
        Dim tx As Integer = NextInt()
        Dim ty As Integer = NextInt()
        Dim start As Integer() = New Integer() {1, 1}
        Dim target As Integer() = New Integer() {tx - sx + start(0), ty - sy + start(1)}

        Dim visited(tx - sx + 2, ty - sy + 2) As Boolean
        Dim now As Integer() = start
        Dim dic As New Dictionary(Of Char, Integer())
        Dim ans As String = ""

        dic("U"c) = New Integer() {0, 1}
        dic("D"c) = New Integer() {0, -1}
        dic("L"c) = New Integer() {-1, 0}
        dic("R"c) = New Integer() {1, 0}

        For turn As Integer = 1 To 4
            Dim goal As Integer()
            If turn Mod 2 = 1 Then
                goal = target
            Else
                goal = start
            End If

            Do While now(0) <> goal(0) Or now(1) <> goal(1)
                Dim cnddt As New List(Of Integer)
                For Each k As Char In "UDLR"
                    Dim nxt As Integer() = New Integer() {now(0) + dic(k)(0), now(1) + dic(k)(1)}
                    If nxt(0) < 0 Or target(0) + 1 < nxt(0) Then
                    ElseIf nxt(1) < 0 Or target(1) + 1 < nxt(1) Then
                    ElseIf (nxt(0) = goal(0) And nxt(1) = goal(1)) Or Not visited(nxt(0), nxt(1)) Then
                        cnddt.Add((Diff(nxt, goal) - Diff(now, goal) + 1) * 1000 + Asc(k))
                    End If
                Next
                cnddt.Sort()
                Dim kk As Char = Chr(cnddt(0) Mod 1000)
                ans &= kk
                Dim nxxt As Integer() = New Integer() {now(0) + dic(kk)(0), now(1) + dic(kk)(1)}
                visited(nxxt(0), nxxt(1)) = True
                now = nxxt
            Loop
        Next
        WriteLine(ans)
    End Sub

    Function Diff(a As Integer(), b As Integer()) As Integer
        Return Math.Abs(a(0) - b(0)) + Math.Abs(a(1) - b(1))
    End Function

    Function NextInt() As Integer
        Return CInt(NextString())
    End Function

    Function NextString() As String
        Dim result As New List(Of Char)
        Do
            Dim tmp As Integer = Read()
            If tmp < 0 Then Exit Do
            Dim nextChar As Char = Chr(tmp)

            If Not Char.IsWhiteSpace(nextChar) Then
                result.Add(nextChar)
            ElseIf nextChar <> vbCr Then
                Exit Do
            End If
        Loop
        Return New String(result.ToArray())
    End Function
End Module
