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

solved a b c d
  | ab > cd = "Left"
  | ab == cd = "Balanced"
  | otherwise = "Right"
  where
    ab = a + b
    cd = c + d
