Пример распечатки частоты употребления слов

(defun print-word-hash-table (ht &optional (stream t))
  ;; Распечатка всех слов и частоты их употребления
  ;; Для сортировки сначала соберём все слова в список
  ;; Умолчание t для stream означает выдачу на консоль
  (dolist (word (sort (loop for w being each hash-key in ht collect w)
                      #'string<))
    (format stream "~%~a~16t~d" word (gethash word ht))))

(setq txt '("Вот дом,
Который построил Джек."

"А это пшеница,
Которая в темном чулане хранится
В доме,
Который построил Джек."

"А это веселая птица-синица,
Которая часто ворует пшеницу,
Которая в темном чулане хранится
В доме,
Который построил Джек."))

(setq ht (collect-word-counts txt))
#<EQUAL Hash Table19 206B03B4>
(print-word-hash-table ht)
а               2
в               4
веселая         1
ворует          1
вот             1
джек            3
дом             1
доме            2
которая         3
который         3
построил        3
птица-синица    1
пшеница         1
пшеницу         1
темном          2
хранится        2
часто           1
чулане          2
это             2
NIL