 
 (defn f1
   [a]
-  (if (< a 2)
-    (recur (inc a))
-    a))
-
-(defn f2
-  [a]
-  (inc a)
-  (loop [b (+ a 0)]
-    (if (< b 2)
-      (recur (inc b))
-      b)))
-
-#_ (inner-tracer {:qual-sym 'com.billpiel.sayid.inner-trace3/f2
+  (-> a
+      inc
+      dec))
+
+#_ (inner-tracer {:qual-sym 'com.billpiel.sayid.inner-trace3/f1
                   :meta' {:ns 'com.billpiel.sayid.inner-trace3
                           :name 'com.billpiel.sayid.inner-trace3/f1}
                  :ns' 'com.billpiel.sayid.inner-trace3})

       (clojure.pprint/pprint trace/*trace-log-parent*)))

#_ (binding [trace/*trace-log-parent* @com.billpiel.sayid.core/workspace]
     (let [f2 (inner-tracer {:qual-sym 'com.billpiel.sayid.inner-trace3/f2
                             :meta' {:ns 'com.billpiel.sayid.inner-trace3
                                     :name 'com.billpiel.sayid.inner-trace3/f2}
                             :ns' 'com.billpiel.sayid.inner-trace3})]
       (f2 1)
       (clojure.pprint/pprint trace/*trace-log-parent*)))

      (seq? form)
      (let [head (first form)]
        (cond
          (util/macro? head) (apply xpand-macro head args)
          (= 'loop head) (apply xpand-loop args)
          (= 'recur head) (apply xpand-recur args)
          (= 'if head) (apply xpand-if args)
