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