XML id helper

io.input("input")
t = io.read("*all")
o = t
c = 0
for g in t:gmatch("<S [^<]-X[^>]-/>") do
    c = c + 1
    c = tostring(c)
    o = o:gsub("(<S) ([^l]-X[^>]-/>)","%1 lua=" ''..c..'' " %2",1)
end
t = t:gsub("&lt;", "<"):gsub("&gt;", ">")
o = o:gsub("&lt;", "<"):gsub("&gt;", ">")

print("Original XML:\\n"..t)


print("\\nNew XML:\\n"..o)