begin 

    comment library 1;

    real 
        x;
    x := #-1000;
    outreal(1, x);
end