COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	begin "e9"
C00003 ENDMK
C⊗;
begin "e9"

string procedure stp; return("a");

integer i;	string s;
i←2;
begin "blk"	string array sar[0:i];
internal label lab;
lab:	s←sar[i]←stp;
end "blk";

end;