COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "FOO"
C00004 ENDMK
C⊗;
BEGIN "FOO"

RECORD_POINTER(ANY_CLASS) PROCEDURE P(RECORD_POINTER(ANY_CLASS) R1,R2);RETURN(R1);
RECURSIVE PROCEDURE P1(RECORD_POINTER(ANY_CLASS) R1,R2);
	BEGIN
	P(R1,R2);
	P(R1,R2);
	P(R1,P(R1,R2));
	P(R1,P(R1,R2));
	END;

RECURSIVE PROCEDURE P2(RECORD_POINTER(ANY_CLASS) R1,R2);
	BEGIN
	BEGIN "A" P(R1,R2);END;
	BEGIN "B" P(R1,R2);END;
	BEGIN "C" P(R1,P(R1,R2));END;
	BEGIN "D" P(R1,P(R1,R2));END;
	END;

RECURSIVE PROCEDURE P3(RECORD_POINTER(ANY_CLASS) R1,R2);
	BEGIN
	BEGIN  P(R1,R2);END;
	BEGIN  P(R1,R2);END;
	BEGIN  P(R1,P(R1,R2));END;
	BEGIN  P(R1,P(R1,R2));END;
	END;

require "[]()" delimiters;
define int(a)=[assignc a=0; integer gar; outstr(cvps(a))];
begin int;end;
begin int(); end;
END