   (bar [_ arg]))
 
 (defrecord MyRec
-  []
+  [res]
   MyProt
   (foo [_] 0)
-  (bar [_ arg] (str arg)))
+  (bar [_ arg] (str res arg)))
 
 (deftest defrecord-benchmark-0
   (println "\nRunning: defrecord-benchmark-0")
-  (let [r (MyRec.)]
+  (let [r (MyRec. "foo")]
     (cc/with-progress-reporting
       (cc/quick-bench
         (.bar r "bar")
         :verbose))))
 
 (deftype MyType
-  []
+  [res]
   MyProt
   (foo [_] 0)
-  (bar [_ arg] (str arg)))
+  (bar [_ arg] (str res arg)))
 
 (deftest deftype-benchmark-0
   (println "\nRunning: deftype-benchmark-0")
-  (let [t (MyType.)]
+  (let [t (MyType. "foo")]
     (cc/with-progress-reporting
       (cc/quick-bench
         (.bar t "bar")

           :foo_27 27
           :foo_28 28
           :foo_29 29
           :bar (fn [arg] (str arg))}]
    (cc/with-progress-reporting
      (cc/quick-bench
        ((:bar m) "bar")


(deftest condp-benchmark-1
  (println "\nRunning: condp-benchmark-1")
  (let [res "foo"
        f (fn [arg]
            (condp = arg
              :foo_0 0
              (str res arg)))]
    (cc/with-progress-reporting
      (cc/quick-bench
        (f "bar")
