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