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

toAnswer :: Ordering -> String
toAnswer GT = "Left"
toAnswer EQ = "Balanced"
toAnswer LT = "Right"

balance :: Int -> Int -> Int -> Int -> Ordering
balance a b c d = left `compare` right
  where
    left  = a + b
    right = c + d
