'BEGIN'
    'COMMENT' LIBRARY 1;
    'INTEGER'
        I;
    'REAL'
        X;
    I := 1;
    'FOR' X := .1 'STEP' X 'UNTIL' 1.0&6 'DO'
        I := I + 1;
    OUTREAL(99, I)
'END'