local ii=0
local jj=0
local kk=0

Runtime:addEventListener("enterFrame", function()
  ii=ii+1
  for _ = 1, 50 do
    local r = display.newRect(1, 2, 3, 4)
    r:addEventListener("buffalo", function()
      jj=jj+1
    end)
    function r.cow ()
      kk=kk-2
    end
    r:addEventListener("cow")
    r:dispatchEvent{ name = "buffalo" }
    r:dispatchEvent{ name = "cow" }
    r:removeSelf()
  end
  if ii == 500 then
    print("!!", jj, kk)
    ii=0
  end
end)

local function PrintList (name, indent)
  local timings = table.remove(tstack) or {}
  local n = display.getTimings(timings, name)

  indent = indent or " "

  print(indent .. "> " .. name)

  for i = 1, n, 2 do
    local what, time = timings[i], timings[i + 1]

    if time then
      print(indent .. " ", what, time / 1e3)
    elseif what:starts("@") then -- keyword?
      if what:ends("Listeners") then
        print(indent .. "  *" .. what:sub(2))
      end
    else -- sublist?
      PrintList(what, indent .. "  ")
    end
  end

  tstack[#tstack + 1] = timings
end