;;; Tests to see how fast 3-lisp is running.
;;; Brian & Jim
;;; March 17th, 1984

(define date
   \(primitive-ccons global '[] '(date) "date" 'date))


(define test
   (lambda [n c x]
      (let [[y (date)]]
          (if (= n 0)
              c
              (if (not (= x y))
                  (test (1- n) (1+ c) y)
                  (test (1- n) c y))))))
   
(define t2
   (lambda [n]
      (let [[m (test n 0 (date))]]
          [n m (/ (* 100 m) n)])))