 (defmethod monster-hit ((m hydra) x)
   (decf (oref m health) x)
   (if (monster-dead m)
-      (insert "The corpse of the fully decapitated and decapacitated hydra
+      (progn (insert "The corpse of the fully decapitated and decapacitated hydra
 falls to the floor!")
-      (progn (insert "You lop off ")
-              (insert (int-to-string x))
-              (insert " of the hydra's heads! "))))
+             (newline))
+    (progn (insert "You lop off ")
+           (insert (int-to-string x))
+           (insert " of the hydra's heads! ")
+           (newline))))
 
 (defmethod monster-attack ((m hydra))
   (let ((x (randval (ash (monster-health m) -1))))
     (insert "A hydra attacks you with ")
     (insert (int-to-string x))
     (insert " of its heads! It also grows back one more head! ")
+    (newline)
     (incf (oref m health))
     (decf orc-battle-player-health x)))
 

by ")
       (insert (int-to-string x))
       (insert "! ")
       (decf orc-battle-player-agility x)
       (when (zerop (random 2))
         (insert "It also squirts in your face, taking away a health point! ")
         (decf orc-battle-player-health))))

(defclass brigand (monster) nil

  (if (monster-dead m)
      (progn (insert "You killed the ")
             (insert (symbol-name (object-class m)))
             (insert "! ")
             (newline))
      (progn (insert "You hit the ")
             (insert (symbol-name (object-class m)))
             (insert ", knocking off ")
             (insert (int-to-string x))
             (insert " health points! ")
             (newline))))

(defmethod monster-show (m)
  (insert "A fierce ")
