00100	BEGIN "LOOPBG"
00200	PROCEDURE FOO(INTEGER F,T);
00300		BEGIN
00400		PROCEDURE BAZ;
00500			BEGIN
00600			INTEGER I,J;
00700			PROCEDURE ZORCH;
00800				J←0;
00900			FOR I←F STEP 1 UNTIL T DO
01000				BEGIN
01100				ZORCH;
01200				END;
01300			END;
01400		END;
01500	FOO(1,10);
01600	END;