\starttext

\def\dummydummydummy#1#2#3#4{}

\startluacode
    local texsprint       = tex.sprint
    local ctxcatcodes     = tex.ctxcatcodes
    local dummydummydummy = context.dummydummydummy
    for i=1,100 do
        statistics.starttiming()
        for i=1,1000 do
            dummydummydummy(1111,2222,3333,4444)
        end
        local d1 = statistics.stoptiming()
        context("%0.5f => ",d1)
        statistics.starttiming()
        for i=1,1000 do
            texsprint(ctxcatcodes,"\\dummydummydummy{",1111,"}{",2222,"}{",3333,"}{",4444,"}")
        end
        local d2 = statistics.stoptiming()
        context("%0.5f => %0.5f",d2,d1-d2)
        context.par()
    end
\stopluacode

\stoptext
