(display " (set-trace-subtree! <procedure>)\n")
(display " displays each line of Scheme code executed during a call to <procedure>\n")
(display " (clear-trace-subtree! <procedure>)\n")
(display " (set-trace-subtree! <procedure>)\n")
(display " displays each line of Scheme code executed during a call to <procedure>\n")
(display " (clear-trace-subtree! <procedure>)\n")