solve :: Int -> Int -> String
solve l r
  | l == r = "Balanced"
  | l > r = "Left"
  | otherwise = "Right"

main :: IO ()
main = do
  [a, b, c, d] <- map read . words <$> getLine
  putStrLn $ solve (a + b) (c + d)
