(defn approx-equal [x y]
(< (abs (- x y)) 0.00001))
+(defn error [^String string]
+ (throw (Exception. string)))
+
(defmacro microbench
" Evaluates the expression n number of times, returning the average
time spent in computation, removing highest and lowest values.