PROGRAM	"integseq"
VERSION	"0.0000"

DECLARE FUNCTION  Entry ()

FUNCTION Entry ()

	DO WHILE $$TRUE
		INC i
    PRINT i
	LOOP

END FUNCTION
END PROGRAM