{-# LANGUAGE ScopedTypeVariables, LambdaCase #-}

import qualified Data.List as List
import qualified Data.Set as Set

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