solver::Int->Int->Int->Int->String
solver a b c d = if a+b == c+d then "Balanced\n" else if a+b > c+d then "Left\n" else "Right\n"

main::IO()
main=do
  abcdc<-getLine
  let a:b:c:d:[]=map read (words abcdc)
  putStr (solver a b c d)