(defun half (n) (* n 0.5))
(defun average (x y)
(half (+ x y)))
(trace) ; returns list of traced functions
(trace half average)
(average 7 5) ; tree of calls printed into repl
(untrace half)
(untrace) ; untraces all