 (defn build-template-factory [op-map]
   (fn build-template [tpl]
     (fn resolve-template [data]
-      (resolve-tpl op-map data [] tpl))))
+      (resolve-tpl (merge op-map default-ops) data [] tpl))))

(ns template.core)

(defn- resolve-tpl [op-map data out-data tpl]
  (cond

    (list? tpl) (let [[op & args] tpl]
                  (cond
                    (map? op) (let [[label col] (first op)
                                    col (if (keyword? col) (data col) col)
                                    col (if (list? col) (resolve-tpl op-map data [] col) col)
                                    results (reduce (fn [out elem]
                                                      (let [new-data (if (map? elem)
                                                                       (reduce (fn [obj [k v]]
