level.clj

(defn level-loop [player monsters]
  (loop [m monsters p player]
    (if (or (monsters-dead? m) (player-dead? p))
      p
      (do
        (print (str "\n" (show-player p)))
        (let [m2 (player-round p m)]
          (recur m2 (monster-round p m2)))))))