begin
   comment 'LIBRARY' 1;
   real
     X;
   X ≔ + + 1·0;
   X ≔ - - X;
   OUTREAL(99, + - X)
end