;; Measure how long it takes to execute f
(defn timeFn (f) (let (st (mtime)) (f) (- (mtime) st)))