let pr = fun x -> Printf.printf "%i" x in
Scanf.scanf "%f %f" (fun x y -> let a = y /. x in
                      match a with
                      | a when int_of_float y mod int_of_float x = 0 -> (pr (int_of_float a))
                      | _ -> (pr ((int_of_float a) + 1)))