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

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


(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)
