anchor.diff:    (let ((alist (hash-table-alist lm)))
       (firstn ngram-limit (sort alist #'> :key #'cdr))))
   
  -(defun create-lm (input &key remove-singletons (ngram-limit 400))
  +(defun create-lm (input &key remove-singletons (ngram-limit *ngram-limit*))
     (finalize-lm (update-lm (dict) input)
                  :remove-singletons remove-singletons
                  :ngram-limit ngram-limit))
  
positive.code:   (defvar *base*
      #.(fad:pathname-directory-pathname (or *compile-file-truename* *load-truename*))))
  
  (defun load-model (file)
    (let ((lines
            (lines
             (read-file-into-string
  
negative.code:    input
     :remove-empty-subseqs t))
  
  (defun finalize-lm (lm &key (ngram-limit *ngram-limit*) remove-singletons)
    (when remove-singletons
      (maphash (lambda (k v)
                 (when (= v 1)
  