import Control.Applicative

main :: IO ()
main = solve <$> f >>= putStrLn
  where
    f = map read <$> words <$> getLine

solve :: [Int] -> String
solve [a, b, c, d]
  | a + b > c + d = "Left"
  | a + b < c + d = "Right"
  | otherwise = "Balanced"
