anchor.diff:  (defun total-structures ()
     "Returns the total number of structures."
     (reduce #'+ *master-structures-list* :key #'length))
  +
  +;;; Functions relating to building an acronym
   
   (defun decode-POS-letter (letter)
     "Turns the codes used by mobiposi.i into keywords corresponding to keys in the hash table."
  
positive.code: 
  (in-package :acronyms)
  
  (defparameter *word-list-file-location* (asdf:system-relative-pathname 'acronyms "mobyposi" :type "i")
    "Location of which the list of words with part of speech modifiers are located.")
  
  (defparameter *structures-file-location* (asdf:system-relative-pathname 'acronyms "structures" :type "lisp")
    "Location of which the list of structures is located.")
  
  (defun %reset-list ()
    "Blank list for *master-word-list*"
  
negative.code:     (#\D :definite-articles )
      (#\I :indef-articles    )
      (#\o :nominatives       )))
  
  (defun random-word (part-of-speech &optional letter)
    "Grabs a random word starting with the given part of speech starting with letter, if given.
  