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:                         :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
  
negative.code:     (dotimes (i population)
        (setf (aref out i) (make-instance 'inhabitant :style (aref styles (random (length styles))))))
      out))
  
  (defun make-town (population &key (hipsterish-tendency 2/3) (styles #(#\# #\.)) volatile)
    "Builds a new town with a population of population, seeding with the two types of clothes."
    (make-instance 'town-snapshot
  