import Control.Applicative

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

solve :: Int -> Int -> Int -> Int -> String
solve a b c d =  case compare (a+b) (c+d) of 
                 GT -> "Left"
                 EQ -> "Balanced"
                 LT -> "Right"