If you want to be clever you could do this too:
find(",32,37,38,39,40,", ","&a&",") >=0
Or you could make a function if you plan on doing something like that more than once:
on function "one of em"
for "" from 1 to Function.ParamCount-1
function: parameter 0 = Function.Param(loopindex)
--- set return to 1
Then you can use it with:
System: compare Function.call("one of em", a, 32, 37, 38, 39, 40) = 1