 
 (defclass hydra (monster) nil
   "An hydra")
-;;(defun make-hydra () (make-instance 'hydra))
 (push 'hydra orc-battle-monster-builders)
 
 (defmethod monster-show ((m hydra))

  (insert (int-to-string (orc-club-level m)))
  (insert " club"))

(defun monster-attack ((m orc))
  (let ((x (randval (orc-club-level m))))
       (insert "An orc swings his club at you and knocks off ")
       (insert (int-to-string x))


(defclass orc (monster) ((club-level (randval 8)))
  "An orc")
(push 'orc orc-battle-monster-builders)

(defmethod monster-show ((m orc))
