'BEGIN'
'COMMENT' 'LIBRARY' 1;
    'INTEGER'
        I,
        P;
    I := 0;
    'FOR' P := 1 'STEP' 1 'UNTIL' 4 'DO'
        'BEGIN'
        'OWN' 'INTEGER'
            I;
        'IF' P = 1 'THEN'
            I := 3
        'ELSE'
            I := 2 * I;
        'BEGIN'
            'INTEGER'
                J,
                I;
            J := 4;
            I := 0
        'END';
        OUTREAL(99, I);
        'END';
'END'