begin
   comment LIBRARY 1;
   integer
     I;
   real
     X;
   I ≔ 1;
   for X ≔ ·1 step X until 1·0⏨6 do
        I ≔ I + 1;
   OUTREAL(99, I)
end