;; 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)


;Example of trace output
;
;(fac)
;|(fac 5)
;| (fac 4)
;| |(fac 3)
;| | (fac 2)
;| | |(fac 1)
;| | |1
;| | 2
;| |6
;| 24
;|120
;120
;(fac)
;120