            :foo_37 37
            :foo_38 38
            :foo_39 39
-           :bar (fn [arg] (str res arg))}
+           :bar (fn [arg] (+ res arg))}
         f (m :bar)]
     (cc/with-progress-reporting
       (cc/quick-bench
-        (f "bar")
+        (f 2)
         :verbose))))
 
 (deftest map-rev-benchmark-0
   (println "\nRunning: map-rev-benchmark-0")
-  (let [res "foo"
-        m {:bar (fn [arg] (str res arg))}]
-    (cc/with-progress-reporting
-      (cc/quick-bench
-        ((:bar m) "bar")
+  (let [res 1
+        m {:bar (fn [arg] (+ res arg))}]
+    (cc/with-progress-reporting
+      (cc/quick-bench
+        ((:bar m) 2)
         :verbose))))
 
 (deftest map-rev-benchmark-1
   (println "\nRunning: map-rev-benchmark-1")
-  (let [res "foo"
-        m {:foo_0 0
-           :bar (fn [arg] (str res arg))}]
-    (cc/with-progress-reporting
-      (cc/quick-bench
-        ((:bar m) "bar")
+  (let [res 1
+        m {:foo_0 0
+           :bar (fn [arg] (+ res arg))}]
+    (cc/with-progress-reporting
+      (cc/quick-bench
+        ((:bar m) 2)
         :verbose))))
 
 (deftest map-rev-benchmark-2
   (println "\nRunning: map-rev-benchmark-2")
-  (let [res "foo"
-        m {:foo_0 0
-           :foo_1 1
-           :foo_2 2
-           :foo_3 3
-           :foo_4 4
-           :foo_5 5
-           :foo_6 6
-           :foo_7 7
-           :foo_8 8
-           :foo_9 9
-           :bar (fn [arg] (str res arg))}]
-    (cc/with-progress-reporting
-      (cc/quick-bench
-        ((:bar m) "bar")
+  (let [res 1
+        m {:foo_0 0
+           :foo_1 1
+           :foo_2 2
+           :foo_3 3
+           :foo_4 4
+           :foo_5 5
+           :foo_6 6
+           :foo_7 7
+           :foo_8 8
+           :foo_9 9
+           :bar (fn [arg] (+ res arg))}]
+    (cc/with-progress-reporting
+      (cc/quick-bench
+        ((:bar m) 2)
         :verbose))))
 
 (deftest map-rev-benchmark-3
   (println "\nRunning: map-rev-benchmark-3")
-  (let [res "foo"
+  (let [res 1
         m {:foo_0 0
            :foo_1 1
            :foo_2 2

           :foo_17 17
           :foo_18 18
           :foo_19 19
           :bar (fn [arg] (str res arg))}]
    (cc/with-progress-reporting
      (cc/quick-bench
        ((m :bar) "bar")
        :verbose))))

(deftest map-benchmark-4
  (println "\nRunning: map-benchmark-4")
  (let [res "foo"
        m {:foo_0 0
           :foo_1 1
           :foo_2 2

              :foo_27 27
              :foo_28 28
              :foo_29 29
              (+ res arg)))]
    (cc/with-progress-reporting
      (cc/quick-bench
        (f 2)
        :verbose))))

(deftest condp-benchmark-5
  (println "\nRunning: condp-benchmark-5")
  (let [res 1
        f (fn [arg]
            (condp = arg
              :foo_0 0
