                          (insert ") ")
                          (monster-show m))))
          orc-battle-monsters))
-  (newline))
+  (newline 2))
 
 ;; base monster class
 (defclass monster nil ((health :initform (randval 10)))

  (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)
  (newline)
  (orc-battle-cycle))

(defun end-game ()
