            :alias alias
            :select select)))
 
-(defn annotate-column-with-id [table column-id]
+(defn annotate-column-with-id
+  "Fetch `Field` with COLUMN-ID and call `annotate-column`."
+  [table column-id]
+  {:pre [(integer? column-id)]}
   (annotate-column table (sel :one Field :id column-id)))
 
 (defn annotate-special-column [column]


(defn apply-breakout [query fields]
  (let [field-names (->> fields
                  (map (:columns-by-id query))
                  (map :alias)
                  (interpose ", ")
                  (apply str))]

         (apply str))))

(defn process-and-run [{:keys [database] :as query}]
  (let [{:keys [sql columns ordered-columns column-name->column] :as query-dict} (process (:query query))
        db (sel :one Database :id database)
        results ((:native-query db) sql)]
    (println "----------------------------------------\n"
