'BEGIN' 'PROCEDURE' RECURSIVE(LEVEL, L); 'VALUE' LEVEL; 'INTEGER' LEVEL; 'LABEL' L; 'BEGIN' 'IF' LEVEL # 0 'THEN' RECURSIVE(LEVEL - 1, EXIT) 'ELSE' 'GOTO' L; EXIT :; OUTREAL(99,LEVEL) 'END'; RECURSIVE(10, EXIT); EXIT :; 'END'