;; load the trace library

(require (lib "trace.ss"))

;; example definition

(define (fac n)
  (if (< n 2) 1 (* n (fac (- n 1)))))

;; trace a specified function

(trace fac)

(fac 5)

;; stop tracing the function

(untrace fac)

(fac 5)