let () = Scanf.scanf "%d %d" @@ fun x y ->
  let n = y / x in
  let n = n lor (n lsr 1) in
  let n = n lor (n lsr 2) in
  let n = n lor (n lsr 4) in
  let n = n lor (n lsr 8) in
  let n = n lor (n lsr 16) in
  let n = (n land 0x55555555) + ((n lsr 1) land 0x55555555) in
  let n = (n land 0x33333333) + ((n lsr 2) land 0x33333333) in
  let n = (n land 0x0f0f0f0f) + ((n lsr 4) land 0x0f0f0f0f) in
  let n = (n land 0x00ff00ff) + ((n lsr 8) land 0x00ff00ff) in
  let n = (n land 0x0000ffff) + ((n lsr 16) land 0x0000ffff) in
  Printf.printf "%d\n" n
