main module scoped
    use TEXTIO

    function COUNT (Data:integer) 
	returns Result: integer initially COUNT (Data + 1)
    endfunction

    declare
	I : integer 
    enddeclare

    I := Count (0)

endmodule