'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'INTEGER'
        I;
    'INTEGER' 'PROCEDURE' C;
        'BEGIN'
        'FOR' C := 1 'STEP' 1 'UNTIL' 3 'DO'
            'BEGIN'
            I := I + 1;
            'IF' I < 10 'THEN'
                C := C + 1
            'END'
        'END';
    I := 0;
    OUTREAL(99, C)
'END'