static int forLua_AddCircle(lua_State  * L) {
   double d1  =  luaL_checknumber(L,  1 ); //с чего начинать цикл
   double d2  =  luaL_checknumber(L,  2 ); //количество итераций
   double r;
   double i;
    for  (i  =  d1; i  <  =  d2; i +  + )
   {
      r  =  i  +  i;
   }
    return ( 1 );
}  

  package.cpath  =   "C:\\runfast.dll" 
 require ( "runfast" )
iterations =  100000000 
 function   main ()
   start =  os.clock ()
    for  i =  1 ,iterations  do 
      r  =   runfast.AddTwoNumbers (i, i)
    end 
   finish =  os.clock () - start
    message  ( "C dll:"  .. tostring(finish),  1 )
   start =  os.clock ()
    for  i =  1 ,iterations  do 
      r  =  i + i
    end 
   finish =  os.clock () - start
    message  ( "Lua:"  .. tostring(finish),  1 )

   start =  os.clock ()
   r  =   runfast.AddCircle ( 1 ,iterations)
   finish =  os.clock () - start
    message  ( "C dll circle:"  .. tostring(finish),  1 )   
 end   

for i = 1, iterations do     r = i + iend

static int forLua_AddCircle(lua_State *L) {
   double d1 = luaL_checknumber(L, 1); //с чего начинать цикл
   double d2 = luaL_checknumber(L, 2); //количество итераций
   double r;
   double i;
   for (i = d1; i <= d2; i++)
   {
      r = i + i;
   }
   return(1);
}

package.cpath = "C:\\runfast.dll"
require("runfast")
iterations=100000000
function main()
   start=os.clock()
   for i=1,iterations do
      r = runfast.AddTwoNumbers(i, i)
   end
   finish=os.clock()-start
   message ("C dll:"..tostring(finish), 1)
   start=os.clock()
   for i=1,iterations do
      r = i+i
   end
   finish=os.clock()-start
   message ("Lua:"..tostring(finish), 1)

   start=os.clock()
   r = runfast.AddCircle(1,iterations)
   finish=os.clock()-start
   message ("C dll circle:"..tostring(finish), 1)   
end

static int forLua_AddTwoNumbers(lua_State *L) {
   // получаем первый и второй параметры вызова функции из стека с проверкой каждого на число
   double d1 = luaL_checknumber(L, 1);
   double d2 = luaL_checknumber(L, 2);
   // помещаем в стек результат сложения
   lua_pushnumber(L, d1 + d2);
   return(1);  // эта функция возвращает одно значение
}

package.cpath = "C:\\runfast.dll"
require("runfast")
iterations=10000000
function main()
   start=os.clock()
   for i=1,iterations do
      r = runfast.AddTwoNumbers(i, i)
   end
   finish=os.clock()-start
   message ("C dll:"..tostring(finish), 1)
   start=os.clock()
   for i=1,iterations do
      r = i+i
   end
   finish=os.clock()-start
   message ("Lua:"..tostring(finish), 1)
end