Option Strict On

Module Module1
    Dim A, B, C, D As Long

    Sub Main()
        Dim tmp() As Long = Array.ConvertAll(Of String, Long) _
            (Console.ReadLine.Split(), AddressOf Long.Parse)

        'let'
        A = tmp(0) : B = tmp(1) : C = tmp(2) : D = tmp(3)

        Console.WriteLine(
            New String() {"Left", "Balanced", "Right"}(
            1 - Math.Sign(A + B - C - D)
            )
        )

    End Sub
End Module