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 -> (int_of_float a) + 1
                             | _ -> (int_of_float a))