   (decf orc-battle-remaining-turns)
   (unless (or (monsters-dead-p) (player-dead-p))
     (show-monsters)
-    (newline)
     (insert "Attack style: [s]tab [d]ouble swing [r]oundhouse:")
     (newline)
     (recenter -2))

       (lambda(m)
         (or (monster-dead-p m) (monster-attack m)))
       orc-battle-monsters)
  (orc-battle-cycle))

(defun end-game ()

                         (insert ") ")
                         (monster-show m))))
         orc-battle-monsters))
  (newline 2))

;; base monster class
(defclass monster nil ((health :initform (randval 10)))
