anchor.diff:             :documentation "Available styles. Styles are always represented by characters.")
      (hipsterish-tendency :initarg :hipsterish-tendency
                           :accessor hipsterish-tendency
  -                        :documentation "How likely would any inidividual be nonconformist at any given time."))
  +                        :documentation "How likely would any individual be nonconformist at any given time."))
     (:documentation "A hipster town at a particular time."))
   
   (defclass delayed-town (town-snapshot)
  
positive.code:       (format stream "~&~3d:  " age)
        (loop for i across styles
              for j from 0 below (or limit (length styles))
              do (format stream "~a ~7,2f%~,20t" i (/ (count-if #'(lambda (a) (char-equal i (styles a))) members)
                                                   (length members)
                                                   1/100))))))
  
  (defun print-popularity (town &key limit)
    "Shorthand for write-population to *standard-output*."
  
negative.code:                         :accessor hipsterish-tendency
                          :documentation "How likely would this individual be nonconformist at any given time."))
    (:documentation "An inhabitant in a hipster town."))
  
  (defclass town-snapshot ()
    ((ticks :initform 0
  