00100	BEGIN
00200	DEFINE B="15";
00300	DEFINE FOO(B)="B←B+1";
00400	DEFINE BAZ(FOO)="FOO←FOO+2";
00500	END;