     (. ResultWriter (printVectors static-means))
     (. ResultWriter (writeVectorsToDisk static-means, "Clojure"))))
 
-(defn run-clustering-standard []
+(defn run-clustering-standard [vectors nrWorkers]
   (let
-    [vectors (generate-data)
-     means (generate-means 5)]
-    (run-clustering vectors means, 4, 1))
+    [vectors (generate-random-vectors (string-to-number vectors))
+     means (generate-random-vectors 5)]
+    (run-clustering vectors means, nrWorkers, 10))
   )
+
+; #vectors #mappers
 (defn -main [& args]
-  ;(run-clustering-standard)
-  (run-static-test)
+  (println (first args) (first (rest args)))
+  (run-clustering-standard (first args) (first (rest args)))
+  ;(run-static-test)
   (shutdown-agents))
           [kmeans.parsing DataParser])
  (:gen-class))


(defn work [amount current]
  (if (< amount current)

    (print (. stopwatch
             (stop)
             (elapsed (. TimeUnit MILLISECONDS))))
    (print-result stopwatch maxIterations nrClusters (string-to-number nrWorkers) "")))

(defn run-static-test []
  (let
