 
 (defn over [grammar left right]
   "opportunity for additional logging before calling the real (over)"
+  (log/debug (str "parse/over: grammar: " (count grammar) " left: " (type left) "; right: " (type right)))
   (over/over grammar left right))
 
 (defn create-ngram-map [args left ngrams grammar split-at x]

(defn parse [arg lexicon lookup grammar]
  "return a list of all possible parse trees for a string or a list of lists of maps (a result of looking up in a dictionary a list of tokens from the input string)"
  (cond (string? arg)
        (parse (toks arg lexicon lookup) lexicon lookup grammar)

        (and (vector? arg)
             (empty? (rest arg)))


;; for now, using a language-independent tokenizer.
(def tokenizer #"[ ']")
(declare over)
(declare toks2)

(defn toks [s lexicon lookup]
