module Main where

import Control.Applicative
import Control.Monad
import Data.List

main :: IO ()
main = do
    [a, b, c, d] <- fmap read . words <$> getLine :: IO [Int]
    case (a + b) `compare` (c + d) of
        LT -> putStrLn "Right"
        EQ -> putStrLn "Balanced"
        GT -> putStrLn "Left"