solve :: [Int] -> String
solve (a:b:c:d:xs)
  | l > r     = "Left"
  | l < r     = "Right"
  | otherwise = "Balanced"
  where l = a + b
        r = c + d

infixl 1 |>
x |> f = f x

main = do
  str <- getLine
  str |> words |> map (\x -> read x :: Int) |> solve |> putStrLn