(defmacro def-functorC
  [fn-name fn-arg body]
  (let [context (gensym)]
    `(defn ~fn-name [[~context ~fn-arg]]
       (list ~context ~(map #(if (= % :context) context %) body)))))