1 2 3 4 5 6 7 8 9 10 11 12 13
#{ RECURS0.CL -- Test CL calling recursion. procedure recurs0 (level) int level begin j = level + 1 if (level == 0) recursion (j) else sfpe () end