anchor.diff:      (princ "An orc swings his club at you and knocks off ")
       (princ x)
       (princ " of your health points. ")
  +    (fresh-line)
       (decf *player-health* x)))
   
   ;; hydra
  
positive.code: by ")
      (princ x)
      (princ "! ")
      (decf *player-agility* x)
      (when (zerop (random 2))
        (princ "It also squirts in your face, taking away a health point! ")
        (decf *player-health*))))
  
  ;; brigand
  
negative.code:     (cond ((= x *player-health*)
             (princ "A brigand hits you with his slingshot, taking off 2 health
  points! ")
             (fresh-line)
             (decf *player-health* 2))
            ((= x *player-agility*)
             (princ "A brigand catches your leg with his whip, taking off 2
  agility points! ")
             (fresh-line)
             (decf *player-agility* 2))
            ((= x *player-strength*)
             (princ "A brigand cuts your arm with his whip, taking off 2
  strength points!")
             (fresh-line)
             (decf *player-strength* 2)))))
  
  ;; turn function
  (defun player-attack ()
    (fresh-line)
    (princa :cyan :bold "Attack style: [s]tab [d]ouble swing [r]oundhouse: " :reset)
    (finish-output nil)
    (case (read-char)
      (#\s (monster-hit (pick-monster)
  