'BEGIN'
    'COMMENT' 'LIBRARY' 1;
    'REAL'
        X;
    'INTEGER'
        I;
    X := 3.84;
    'FOR' I := 1 'STEP' 1 'UNTIL' 200 'DO'
        'BEGIN'
        'IF' - 1 / X # - (1 / X) 'THEN'
            OUTREAL(99, I);
        X := X * 1.01;
        'END';
    OUTREAL(99, 0);
'END'