Зависание QUIK

local run = true
local tabid = nil
local rowid = nil
local counter = 0
local recursion_level = 0
local max_recursion_level = 0

function OnInit()
   tabid = AllocTable()
   if 0 == AddColumn(tabid, 1, 'recursion level', true, QTABLE_STRING_TYPE, 16) then
      DestroyTable(tabid)
      tabid = nil
      error("AddColumn failed")
   end
   if 0 == AddColumn(tabid, 2, 'counter', true, QTABLE_STRING_TYPE, 16) then
      DestroyTable(tabid)
      tabid = nil
      error("AddColumn failed")
   end
   if 0 == CreateWindow(tabid) then
      DestroyTable(tabid)
      tabid = nil
      error("CreateWindow failed")
   end
   rowid = InsertRow(tabid, -1)
   if -1 == rowid then
      DestroyTable(tabid)
      tabid = nil
      rowid = nil
      error("InsertRow failed")
   end
end

function OnAllTrade(v)
   recursion_level = recursion_level + 1
   counter = counter + 1
   if recursion_level > max_recursion_level then
      max_recursion_level = recursion_level
   end
   if tabid then
      SetCell(tabid, rowid, 1, tostring(max_recursion_level))
      SetCell(tabid, rowid, 2, tostring(counter))
   end
   recursion_level = recursion_level - 1
end

function OnStop()
   if tabid then
      local t = tabid
      tabid = nil
      DestroyTable(t)
      rowid = nil
   end
   run = false
end

function main()
   while run do
      sleep(1000)
   end
end

local run
local file

local function log(s)
  file:seek('set')
  file:write(s)
  file:flush()
end

function c(func, ...)
  log('1')
  local arg = {...}
  log('2')
end

function OnInit(path)
  local err
  file, err = io.open(path..'.log', 'w+')
  if file == nil then
    message(err, 3)
  else
    run = true
  end
end
function OnAllTrade(alltrade)
end
function OnParam(class, sec)
end
function OnStop()
  run = nil
end


local f2 = function() end
function main()
  if not run then return end
    while run do
      for i = 1, 100 do
        log('0')
        c(f2, i, 1, 2, 3)
        log('3')
      end
      sleep(1)
    end
  file:close()
end

local run = true

local z = {0, 0}
local ssort = table.ssort
function OnAllTrade(alltrade)
  ssort(z, function () return true end)
end
function OnParam(class, sec)
end
function OnStop()
  run = nil
end

function f1()
  for k, v in pairs(_G) do end
end
local function f2()
  f1()
end
local function f3()
  f2()
end
local function f4()
  f3()
end

function main()
  while run do
    for i = 1, 50 do
      f4()
    end
    sleep(1)
  end
end