         rules (map #(keyword (get-in % [:rule])) grammar)
 
         ;; indices from paths to subsets of the lexicon
-        debug (log/info "  indices..")
+        debug (log/debug "  indices..")
         indices (create-indices lexicon-for-generation index-lexicon-on-paths)
-        debug (log/info "  finalizing..")]
+        debug (log/debug "  finalizing..")]
 
     (->
      ;; Create the model in stages. We need to do this because some closures need a model

(defn model-plus-lexicon
  "create a language model for Italian with the supplied lexicon."
  [lexicon & [grammar-filter-rule]]
  (let [debug (log/info "  loading lexicon..")
        debug (log/info "  filtering lexicon..")
        lexicon
        (into {}
              (for [[k vals] lexicon]

                  (if (not (empty? filtered-vals))
                    [k filtered-vals]))))

        debug (log/debug "  lexicon for generation..")
        lexicon-for-generation (lexicon-for-generation lexicon)

        grammar-filter-rule
