let () =
  Scanf.scanf "%d\n%d\n" @@ fun n m ->
  Printf.printf "%d\n" (n / (m*1000) * 1000)