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