[merlight]

Two small tips:

1) to strip N characters from the end, you can use negative end index:

s = s:sub(1, -1-N)

2) to strip all digits from the end, you can use pattern replacement:

s = s:gsub("%d+$", "")

edit: fixed calls, guess my Lua is waning