 (defn parse [input model]
   "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)"
+  (log/info (str "parsing input: '" input "'"))
   (let [tokens (string/split input tokenizer)
         token-count (count tokens)
         token-count-range (range 0 token-count)

           (filter map? (get all-parses
                             [0 token-count]))
           :all-parses all-parses}]
      (:complete-parses result))))


                               token-count-range)
                          (map (fn [i] [(nth tokens i)])
                               token-count-range))]
    (log/debug (str "input map:" input-map))
    (let [all-parses
          (parses input-map token-count model
                  (span-map token-count))
