 (def open-set "#{")
 (def open-quote \')
 (def open-meta "^")
-(def open-deref \@)         ;"#(?:[\{\(\'\^\"\_\!])" 
+(def open-deref \@)
 (def open-syntax-quote \`)
 (def open-fn "#(")
 (def open-var "#'")

          (mapcat identity (view-children-seq tokens-view (next abstract-children)))))

(defn- tokens [t abstract-children count] 
  ;(println "type: " (type abstract-children))
  ;(println "abstract-children:" abstract-children)
  (cond
    (= :whitespace t) (token :whitespace count)
    (= :space t) (token :whitespace count) ; TODO one of this and the above is irrelevant. Which one ?

         :broken? (or (#{::unexpected :chimera} t)
                      (some #{::unexpected :chimera} (cons t (map :tag parse-tree-children)))
                      false)
         }))))

(defn node-count [abstract-node]
