algol,n<
begin
   comment

   No buffer:

   Time classic:        52.809
   Time turbo:          50.206 4.9pct

   Buffer:

   Time classic:        52.822
   Time turbo:          50.218 4.9pct

   ;
   integer N,i;
   real a,b,time;
   real procedure clock count;
   code clock count;
   1, 37;
     zl        , grf p−1   ; RF ≔ clock count; stack[p−1] ≔ RF;
   e;
   writecr;
   clock count;
   N ≔ 30000;
   for i ≔ 1 step 1 until N do
   begin
      a ≔ sqrt(0);
   end for i;
   time ≔ clock count;
   write(«ddddd.ddd»,time);
   writecr
end
t<