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

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