     (print (. stopwatch
              (stop)
              (elapsed (. TimeUnit MILLISECONDS))))
-    (print-result stopwatch maxIterations nrClusters nrWorkers "")))
+    (print-result stopwatch maxIterations nrClusters (string-to-number nrWorkers) "")))
 
 (defn run-static-test []
   (let

      (elapsed (. TimeUnit MILLISECONDS)))))

(defn partition-workers [vectors, workers]
  (. (Partitioner.) (partition vectors workers)))

(defn generate-data []
  (. DataGenerator (generateData)))

(defn generate-means [count]
  (. DataGenerator (generateRandomVectors count)))

(defn clustering [data means]

    (. ResultWriter (printVectors static-means))
    (. ResultWriter (writeVectorsToDisk static-means, "Clojure"))))

(defn run-clustering-standard [vectors nrWorkers]
  (let
    [vectors (generate-random-vectors (string-to-number vectors))
     means (generate-random-vectors 5)]
    (run-clustering vectors means, nrWorkers, 10))
  )

; #vectors #mappers
(defn -main [& args]
  (println (first args) (first (rest args)))
  (run-clustering-standard (first args) (first (rest args)))
  ;(run-static-test)
  (shutdown-agents))