3 <COND (<0? .N> <FRAME>)
4 (T <FRAME <FRAMEN <- .N 1>>>)>>>
\e
8 <FUNCTION TL (START FINISH)
9 <PROG ((VAL <FAILPOINT () <PATH1 .START .FINISH ()>
17 <FUNCTION (START FINISH AVOID)
18 <COND (<==? .START .FINISH>
20 (<MEMBER .START .AVOID>
24 <FAILPOINT FP (N (NODES <GET .START CONNECTED>))
26 <COND (<EMPTY? .NODES> <FAIL>)
28 <SET NODES <REST .NODES>>
31 (.START !.AVOID)>))>> >
\e
34 <PUT ALPHA CONNECTED (B D K)>
\e
35 <PUT B CONNECTED (ALPHA I C)>
\e\r\r
36 <PUT I CONNECTED (B H J)>
\e
37 <PUT H CONNECTED (I)>
\e
38 <PUT J CONNECTED (I)>
\e
39 <PUT C CONNECTED (B G D)>
\e
40 <PUT G CONNECTED (C)>
\e
41 <PUT D CONNECTED (ALPHA C F)>
\e
42 \r<PUT F CONNECTED (D)>
\e
43 <PUT K CONNECTED (ALPHA M L)>
\e
44 <PUT M CONNECTED (K L N O)>
\e
45 <PUT L CONNECTED (K M)>
\e
46 <PUT N CONNECTED (M)>
\e
47 <PUT O CONNECTED (M P OMEGA)>
\e
48 <PUT P CONNECTED (O)>
\e
49 <PUT OMEGA CONNECTED (O)>
\e\f\f\ 3\f