00100	BEGIN "SWPERR"
00200		PROCEDURE FOO(INTEGER A);
00300		BEGIN
00400			PROCEDURE BAZ;
00500			BEGIN
00600			   INTEGER B;
00800			   A↔B;
00900			END;
01000		END;
01100	END;