void _on_main_regular(void * lua_state)
{
   TRACE();
   set_exception_handler(_on_exception);
   _mainthread = thread::current();
   // enable OnStop callback
   _replace_callback(lua_state, "OnStop", ::cbid_on_stop);
   wait::all(_stopevent, wait::infinite);
}

stopflag = false

main = function()
end

OnS top = function()
end

OnI nit = function()
   main = function()
      while not stopflag do
         sleep(1000)
      end
   end
   OnS top = function()
      message("Hello, I'm OnStop")
      stopflag = true
      return 10000
   end
end

stopflag = false

OnI nit = function()
   OnS top = function()
      message("Hello, I'm OnStop")
      stopflag = true
      return 10000
   end
end

main = function()
   while not stopflag do
      sleep(1000)
   end
end