let solve a b c d =
  let l = a + b
  and r = c + d in
  if l > r then
    "Left"
  else if l < r then
    "Right"
  else
    "Balanced"

let read_ints () = read_line () |> Str.split (Str.regexp " ") |> List.map int_of_string

let _ =
  match read_ints () with
  | [a; b; c; d] -> solve a b c d |> print_endline
  | _ -> ()