Scanf.scanf "%d %d" (fun w d ->
    let rec loop w d =
        if d = 1 then w else
            let mot = w / (d * d) in
            loop (w - mot) (d - 1)
    in
    loop w d |> Printf.printf "%d\n"
)