procedure Run_Iterations (Iterations, Times : Natural) is
      use Ada.Calendar;
      Start_Time, End_Time : Time;
   begin
      Ada.Text_IO.Put_Line ("Running Iterations...");
      for T in 1 .. Times loop
         Start_Time := Clock;
         for I in 1 .. Iterations loop
            Run_Once;
         end loop;
         End_Time := Clock;
         Ada.Text_IO.Put_Line (Float'Image (Float (End_Time - Start_Time) / Float (Iterations) * 1_000.0) & " ms");
      end loop;
   end Run_Iterations;