anchor.diff:    (finish-output nil)
     (let ((x (read)))
       (if (not (and (integerp x) (>= x 1) (<= x *monster-num*)))
  -        (progn (princ "That is not a valid monster number.")
  +        (progn (princa "That is not a valid monster number.")
                  (pick-monster))
           (let ((m (aref *monsters* (1- x))))
             (if (monster-dead m)
  -              (progn (princ "That monster is alread dead.")
  +              (progn (princa "That monster is alread dead.")
                        (pick-monster))
                 m)))))
   
  
positive.code: (push #'make-slime-mold *monster-builders*)
  
  (defmethod monster-show ((m slime-mold))
    (princ "A slime mold with a sliminess of ")
    (princ (slime-mold-sliminess m)))
  
  (defmethod monster-attack ((m slime-mold))
    (let ((x (randval (slime-mold-sliminess m))))
      (princ "A slime mold wraps around your legs and decreases your agility by ")
      (princ x)
      (princ "! ")
      (fresh-line)
      (decf *player-agility* x)
      (when (zerop (random 2))
        (princ "It also squirts in your face, taking away a health point! ")
        (fresh-line)
        (decf *player-health*))))
  
  
negative.code: (push #'make-hydra *monster-builders*)
  
  (defmethod monster-show ((m hydra))
    (princa "A malicious hydra with ")
    (princa (monster-health m))
    (princa " heads."))
  
  (defmethod monster-hit ((m hydra) x)
    (decf (monster-health m) x)
    (if (monster-dead m)
        (progn (princa "The corpse of the fully decapitated and decapacitated hydra falls to the floor!")
               (fresh-line))
        (progn (princa "You lop off "
                       x
  