anchor.diff:  (push #'make-hydra *monster-builders*)
   
   (defmethod monster-show ((m hydra))
  -  (princ "A malicious hydra with ")
  -  (princ (monster-health m))
  -  (princ " heads."))
  +  (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 (princ "The corpse of the fully decapitated and decapacitated hydra falls to the floor!")
  +      (progn (princa "The corpse of the fully decapitated and decapacitated hydra falls to the floor!")
                (fresh-line))
         (progn (princa "You lop off "
                        x
  
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-orc *monster-builders*)
  
  (defmethod monster-show ((m orc))
    (princa "A wicked orc with a level ")
    (princa (orc-club-level m))
    (princa " club"))
  
  (defmethod monster-attack ((m orc))
    (let ((x (randval (orc-club-level m))))
  