'BEGIN'
    'REAL'
        X;
    X := - 1.0;
    OUTREAL(99, 0^X)
'END'