let f (a : int[]) = match System.Math.DivRem (a.[1], a.[0]) with | (q, 0) -> q | (q, _) -> q + 1 (stdin.ReadLine ()).Split ' ' |> Array.map int |> f |> printfn "%d"