algol,n<
begin
   comment
        Orig GA4:   184.573
        Turbo GA4:  179.735

        No buffer:

        Time classic:   184.573
        Time turbo:     180.017 2.5pct

        Buffer:

        Time classic:   184.588
        Time turbo:     180.031 2.5pct

   ;
   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 ≔ 10000;
   for i ≔ 1 step 1 until N do
   begin
      a ≔ sin(0.1)+exp(0.1)+sqrt(0.1)+arctan(0.1)
   end for i;
   time ≔ clock count;
   write(«ddddd.ddd»,time);
   writecr
end
t<