1on gcref;
2
3
4
5symbolic procedure p1(x,y);
6   p2(x) + y;
7
8symbolic procedure p2(x);
9   <<
10      if x>0 then p2(x-1);
11      p1(x-2,1);
12      p3(x)
13   >>;
14
15off gcref;
16p2 p2
17p1 p1
18#
19p2 p1
20p2 p2
21p1 p2
22
23
24end;
25
26Tested on x86_64-pc-windows CSL
27Time (counter 1): 0 ms
28
29End of Lisp run after 0.00+0.06 seconds
30real 0.19
31user 0.01
32sys 0.06
33