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"