1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
<HTML><HEAD><TITLE>kack</TITLE></HEAD><BODY>
----simple resi----
simple_resi.
sepp(simple)=sepp_simple
sepp(simple)=sepp_simple_2 (after <$let>)
----old-style container----
resi_start: sepp=sepp_resi (inside resi) resi_end : sepp=sepp_resi
----paired resi----
(start paired resi)
sepp(paired)=sepp_paired
resi_start: sepp=sepp_resi
sepp(paired)=sepp_global
resi_end : sepp=sepp_resi
sepp(paired)=sepp_paired
(end paired resi)--
----recursive resi----
recursive_start: sepp=sepp_recursive
recursive_start: sepp=sepp_recursive_x
recursive_start: sepp=sepp_recursive_x_x
recursive_start: sepp=sepp_recursive_x_x_x
ABORT recursion.
recursive_end : sepp=sepp_recursive_x_x_x
recursive_end : sepp=sepp_recursive_x_x
recursive_end : sepp=sepp_recursive_x
recursive_end : sepp=sepp_recursive
sepp(global)=sepp_global
----nesting a container----
twice: (pag(lnk(hrf#hrf)lnk)pag)
once : (lnk(hrf*hrf)lnk)
</BODY></HTML>
|
