call1cc implement by Lua