CHAR=P  ;I=RULES
A:   FLAGGED(DATA(DATA(CHAR)),VT)
   CHAR=LINK(CHAR)
   -> A %UNLESS LINK(CHAR)=IP(I-1)      %OR LINK(CHAR)=0
     CHAR =P
   I=RULES
B: %IF FLAG(DATA(DATA(CHAR)))=1 %THEN %START
   CHAR=LINK(CHAR)
   -> B %UNLESS LINK(CHAR)=IP(IP-1) %OR LINK(CHAR)=0
   CHAR=CHAR+CHECK
   DERIVE(L)=CHAR
   L=L+1
   -> A
    %FINISH
   %IF COUNT =1 %THEN -> L1
%ENDOFPROGRAM