main = do
  (a:b:c:d:_) <- getLine >>= return . map read . words :: IO [Int]
  putStrLn $ f (a+b) (c+d)
  where
    f x y
      | x < y = "Right"
      | x > y = "Left"
      | otherwise = "Balanced"
