STATEMENTIM1|
begin
comment
   using the ee9 emulator
   * with WHETSTONE ALGOL this takes 3767 KDF9 seconds
     and executes 664228629 KDF9 instructions:
     the overhead for 0 iterations is 228629 KDF9 instructions,
     so the per-loop cost is 664 KDF9 instructions per iteration;
integer i;
for i := 1 step 1 until 1 000 000 do
end
|