'BEGIN'
    'INTEGER'
        I;
    I := 0;
    OUTREAL(99, I^I)
'END'