\newcommand\saveattrnumber[1]{
\setbox0=\hbox{\meaning#1}
\directlua{
texio.write("helllo world")
local utfchar = unicode.utf8.char
local name = "\luatexluaescapestring{#1}"
% replace backslash
name = name:gsub(string.char(92),'')
local t = {}
for n in node.traverse_id(37,tex.box[0].head) do
table.insert(t,utfchar(n.char))
end
local s = table.concat(t)
local number = tonumber(s:match("([0-9]+)"))