Scanf.scanf "%d %d" (fun l k ->
    Printf.printf "%d\n" @@ (l - 1) / (2 * k) * k
)