;;; -*- Mode:LISP; Package:NEW-MATH; Base:10; Readtable:ZL -*-

(progn (send terminal-io :clear-screen) (do-forever (send terminal-io :set-cursorpos 0 0) (march-print-parameter-block)))

(defun foo ()
  (hw:write-microsecond-clock (hw:unboxed-constant 0))
  (li:break "Fact complete." (user:fact 100) (hw:read-microsecond-clock))
  (loop))