(defun reload()
  (asdf:load-system 'clwars))

(defun main ()
  (format t *menu-splash*)
  (format t "Press any key to start or q to quit: ")
  (if (string-not-equal (prompt-read "") "q")
      (progn
	(cls)
	(new-game))))