diff --git a/core/Bench.carp b/core/Bench.carp
index 4988eeee..b236075d 100644
--- a/core/Bench.carp
+++ b/core/Bench.carp
@@ -14,7 +14,7 @@
     (let [unit (get-unit n)]
       (do
         (IO.println title)
-        (IO.println &unit)))
+        (IO.println &unit))))
 
   (defn ns-iter-inner [f k]
     (let [start (get-time-elapsed)]
@@ -22,6 +22,14 @@
         (for [i 0 n] (f))
         (Double.- (Bench.get-time-elapsed) before))))
 
+  (defn dbl-cmp [a b]
+    (Double.- a b))
+
+  (defn winsorize [samples pct]
+    (let [tmp (Array.sort samples dbl-cmp)
+      ; and now?
+      ))
+
   (defn bench [f]
     (let [ns (ns-iter-inner f 1)
           ns-target-total 1000000.0