1) FOO.SAI[NEW,AIL] and 2) FOO.SAI[S,AIL]	8-29-80 14:54	pages 1,1

**** File 1) FOO.SAI[NEW,AIL]/1P/4L
1)	C00002 00002	begin
1)	C00003 ENDMK
1)	C⊗;
1)	begin
1)		outstr("foo");
1)		loded("me too");
1)	end;
**** File 2) FOO.SAI[S,AIL]/1P/4L
2)	C00002 00002	BEGIN "FOO"
2)	C00004 ENDMK
2)	C⊗;
2)	BEGIN "FOO"
2)	RECORD_POINTER(ANY_CLASS) PROCEDURE P(RECORD_POINTER(ANY_CLASS) R1,R2);RETURN(R1);
2)	RECURSIVE PROCEDURE P1(RECORD_POINTER(ANY_CLASS) R1,R2);
2)		BEGIN
2)		P(R1,R2);
2)		P(R1,R2);
2)		P(R1,P(R1,R2));
2)		P(R1,P(R1,R2));
2)		END;
2)	RECURSIVE PROCEDURE P2(RECORD_POINTER(ANY_CLASS) R1,R2);
2)		BEGIN
2)		BEGIN "A" P(R1,R2);END;
2)		BEGIN "B" P(R1,R2);END;
2)		BEGIN "C" P(R1,P(R1,R2));END;
2)		BEGIN "D" P(R1,P(R1,R2));END;
2)		END;
2)	RECURSIVE PROCEDURE P3(RECORD_POINTER(ANY_CLASS) R1,R2);
2)		BEGIN
2)		BEGIN  P(R1,R2);END;
2)		BEGIN  P(R1,R2);END;
2)		BEGIN  P(R1,P(R1,R2));END;
2)		BEGIN  P(R1,P(R1,R2));END;
2)		END;
2)	require "[]()" delimiters;
2)	define int(a)=[assignc a=0; integer gar; outstr(cvps(a))];
2)	begin int;end;
2)	begin int(); end;
2)	END
***************