alias StatsN {
  if ($regex($1,/^[@!.](stats|overall?|total)$/Si)) return 0
  elseif ($regex($1,/^[@!.]at[tk](ack)?$/Si)) return 1
  elseif ($regex($1,/^[@!.]de[fv](en[cs]e)?$/Si)) return 2
  elseif ($regex($1,/^[@!.]str(eng(ht|th))?$/Si)) return 3
  elseif ($regex($1,/^[@!.]h(p|it(points?|s))$/Si)) return 4
  elseif ($regex($1,/^[@!.]range?d?$/Si)) return 5
  elseif ($regex($1,/^[@!.]pray(er)?$/Si)) return 6
  elseif ($regex($1,/^[@!.]mag(ic|e)$/Si)) return 7
  elseif ($regex($1,/^[@!.]cook(e|ing)?$/Si)) return 8
  elseif ($regex($1,/^[@!.]w(ood)?c(utting)?$/Si)) return 9
  elseif ($regex($1,/^[@!.]flet(ch|hc)(ing|e)?$/Si)) return 10
  elseif ($regex($1,/^[@!.]fish(ing|e)?$/Si)) return 11
  elseif ($regex($1,/^[@!.]f(ire)?m(ak(e|ing))?$/Si)) return 12
  elseif ($regex($1,/^[@!.]craft(ing|er?)?$/Si)) return 13
  elseif ($regex($1,/^[@!.]smith(ing|er?)?$/Si)) return 14
  elseif ($regex($1,/^[@!.]min(ing|er?)?$/Si)) return 15
  elseif ($regex($1,/^[@!.]herb(lor[ye])?$/Si)) return 16
  elseif ($regex($1,/^[@!.]agil?(lity)?$/Si)) return 17
  elseif ($regex($1,/^[@!.]th(ie|ei)[fv](ing|er)?$/Si)) return 18
  elseif ($regex($1,/^[@!.]slay(ing|er?)?$/Si)) return 19
  elseif ($regex($1,/^[@!.]farm(ing|er?)$/Si)) return 20
  elseif ($regex($1,/^[@!.]r(une)?c(raft(ing|er?)?)?$/Si)) return 21
  elseif ($regex($1,/^[@!.]hunt(ing|er?)?$/Si)) return 22
  elseif ($regex($1,/^[@!.]c(on|s)s?(truct(ion)?)?$/Si)) return 23
}