                                                                 :done
                                                                 :choice/id])
                                            (select-keys current-stage [:gen]))))
-              _ (log/info "results" results)
+              _ (log/debug "results" results)
               choice-variables (->> choice
                                  (filter (fn [[k v]] (= "$" (namespace k))))
                                  (map (fn [[k v]] (let [f (eval-in-ns v recipe-ns)]
-                                                    (log/info "evaluating" v "into" f "arg" (get recipe k))
+                                                    (log/trace "evaluating" v "into" f "arg" (get recipe k))
                                                     [k (f (get recipe k))])))
                                  (into {}))
               ; merge results into current recipe

  {:pre [(not (nil? state))]
   :post [(not (nil? %))]}
  (let [gen-random (ns-resolve recipe-ns 'gen-random)]
  (log/info "gen-random" gen-random)
  (log/info "recipe init" recipe)
  (assoc-current-recipe
      state
      :name (recipe-name recipe)

                    (fill-event 
                      (if (keyword? next-event)
                        (let [event-fn (ns-resolve recipe-ns (-> next-event name symbol))]
                          (log/trace "resolved" recipe-ns next-event "to" event-fn)
                          (event-fn state recipe))
                        next-event)
                      recipe)))
