I=0 CALL RECURSION(I) SUB RECURSION(I) INC I PRINT I CALL RECURSION(I) END SUB