   ([s]        (parse s peek-default))
   ([s peeker] (parse s peeker "" [] 0))
   ([s peeker code depth next-depth]
-   ;; (println "parse")
-   ;; (println (str "s \"" s "\""))
-   ;; (println "peeker" peeker)
-   ;; (println (str "code \"" code "\""))
-   ;; (println "depth" depth)
-   ;; (println "ndepth" next-depth)
-
-   ;; TODO profile
    (trampoline peeker code depth next-depth s)))
 
 (def plain-typing-mode (atom true))

  (reset! depth d))

(defn reject [change]
  (println "rejecting change: unbalanced parens")
  (.cancel change))

(defn get-next-depth

  (and (multi-opener? c)
       (multi-second? next)))

(declare ;; see comments in subpar.macros to learn what these are:
 ;; 'classifiers' 'peekers' and 'steppers'.

 peek-code
