   (insert ", an agility of ")
   (insert (int-to-string orc-battle-player-agility))
   (insert ", and a strength of ")
-  (insert (int-to-string orc-battle-player-strength)))
+  (insert (int-to-string orc-battle-player-strength))
+  (newline))
 
 (defun player-attack ()
   (newline)

(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
falls to the floor!")
      (progn (insert "You lop off ")
              (insert (int-to-string x))
              (insert " of the hydra's heads! "))))

(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! ")
    (incf (oref m health))
    (decf orc-battle-player-health x)))


       (insert "An orc swings his club at you and knocks off ")
       (insert (int-to-string x))
       (insert " of your health points. ")
       (newline)
       (decf orc-battle-player-health x)))

(defclass hydra (monster) nil
