             #?(:clj [clj-time.local :as time.local]
                :cljs [cljs-time.local :as time.local])
             [clojure.string :as str]
-            [trek.machine :as machine])
+            [trek.machine :as machine]
+            #?(:clj [clj.pprint :refer [cl-format]]
+               :cljs [cljs.pprint :refer [cl-format]]))
   #?(:clj (:import java.lang.Math)))
 
 (defn parse-int

                        \x (last-value machine (apply str (repeat format-count (str " "))))

                        \a (last-value (update machine :unformatted pop)
                                       (fmt (str "%" format-count "s") value))

                        \d (last-value (update machine :unformatted pop)
                                       (fmt (str "%" format-count "d") (int value))))]
    machine))

(defn format-list [machine formatter]

  [machine formatter]
  (last-value machine (first (machine/emitted machine formatter))))

(defmethod machine/formatter [:interpreter :format-type]
  [machine formatter]
  (let [[format-type] (machine/emitted machine formatter)
