import Control.Applicative
import Control.Monad
import Data.List
import Data.Array
import Data.Char

main = do
  [a, b, c, d] <- map (read::String -> Int) . words <$> getLine
  let left = a + b
      right = c + d
  putStrLn $ if left > right then "Left" else if right > left then "Right" else "Balanced"


