00100	begin "assign"
00200	
00300	require "[]()" delimiters;
00400	
00500	define foo(c)=[assignc c=5];
00600	
00700	begin "blk" integer x;	foo(); outstr("a");	end "blk";
00800	begin	foo(); outstr("a");	end;
00900	
01000	end "assign";