2 <FUNCTION (START FINISH)
3 <PATH1 .START .FINISH ()> >>
7 <FUNCTION P1 (START FINISH AVOID)
8 <COND (<==? .START .FINISH>
10 (<MEMBER .START .AVOID> <>)
12 !<REPEAT REP (PATH (NODES <GET .START CONNECTED>))
13 <COND (<EMPTY? .NODES> <EXIT .P1 <>>)
14 (<SET PATH <PATH1 <1 .NODES> .FINISH (.START !.AVOID)>>
16 (T <SET NODES <REST .NODES>>) >>)) >>>
20 <PUT ALPHA CONNECTED (B D K)>
\e
21 <PUT B CONNECTED (ALPHA I C)>
\e\r\r
22 <PUT I CONNECTED (B H J)>
\e
23 <PUT H CONNECTED (I)>
\e
24 <PUT J CONNECTED (I)>
\e
25 <PUT C CONNECTED (B G D)>
\e
26 <PUT G CONNECTED (C)>
\e
27 <PUT D CONNECTED (ALPHA C F)>
\e
28 \r<PUT F CONNECTED (D)>
\e
29 <PUT K CONNECTED (ALPHA M L)>
\e
30 <PUT M CONNECTED (K L N O)>
\e
31 <PUT L CONNECTED (K M)>
\e
32 <PUT N CONNECTED (M)>
\e
33 <PUT O CONNECTED (M P OMEGA)>
\e
34 <PUT P CONNECTED (O)>
\e
35 <PUT OMEGA CONNECTED (O)>
\e\f\f\ 3\f