sumarray :: [Int] -> Int
sumarray [] = 0
sumarray (x:xs) = x + sumarray xs

libra :: Int -> Int -> String
libra l r
  | l > r = "Left"
  | l < r = "Right "
  | otherwise = "Balanced "


main = do
    ns <- fmap(read :: String -> Int) . words <$> getContents
    let l = sumarray $ take 2 ns
    let r = sumarray $ drop 2 ns
    putStrLn $ libra l r
