                (.file parser))] ; "file" is the start rule of the grammar
     (do
       (.walk (ParseTreeWalker.) (listener parser) tree))))
+

    (do
      (.walk (ParseTreeWalker.) (listener parser) tree))))

(defn parse-file [file]
  "Parse file 'file using the Clojure parser."
  (print (format "parsing %s\n" file))
  (let [input (do ;;(println "getting stream")
                ;; use ANTLRInputStream to read from a string buffer

          ))
      ))

(defn listen-str [str]
  "Parse string 'str and crawl it using a passive strategy"
  (print (format "parsing %s\n" str))
  (let [input (do ;;(println "getting stream")
                (ANTLRInputStream. str))
