setd("one",0)
setd(2,0)
function visitor(object key, object /*data*/, object /*user_data*/)
    ?key
    return 1
end function
traverse_dict(routine_id("visitor"))    -- shows 2, "one"