begin
   comment 'LIBRARY' 1;
   real
     X;
   integer
     I;
   procedure NOTFUNCTION(Y);
      value
        Y;
      real
        Y;
   begin
      I ≔ I + 1;
      X ≔ Y
   end;
   X ≔ 1·0;
   I ≔ 0;
   X ≔ 3 × NOTFUNCTION(4·0);
   OUTREAL(99, X + NOTFUNCTION(X) + I)
end