             (Math/max 0 (- after before)))))
 
    
-; Do dowork N times and record the time taken.
+; Do setup and then dowork N times. Record the times taken in dowork.
 ; Return list of times
 (defn timeit[setup dowork N]
   (loop [ctr (- N 1)
-         times (vector)
+         times []
          computation 7]
     (let [o (setup)
           before (System/nanotime)

      (print "Times (seconds)")
      (print times))))
        
        


(ns net.slreynolds.ds.speedtest)

;;; Does not work yet

; Warmup the jit compiler etc in the JVM
; before doing any measurements
