let () = let a, b = Scanf.scanf "%d %d " (fun a b -> a, b) in let rec doit d cnt = if d >= b then cnt else doit (d + a) (cnt + 1) in doit 0 0 |> Printf.printf "%d\n"