main = do
  [a, b, c, d]  <- map read . words <$> getLine :: IO [Int]
  putStrLn $ case (a + b) `compare` (c + d) of
                 GT -> "Left"
                 LT -> "Right"
                 EQ -> "Balanced"