on *:TEXT:!uzerlist *:#:{
  var %c $2
  if (!%c) || ($me !ison %c) { msg # 4 $iif(!$2,USAGE: !userlist <channel>,ERROR: I can't scan $2 as I'm not in it.) }
  else {
    msg $chan 12..::13 Userlist of %c $+ 12 ::..
    tokenize 62 $regsubex($str(@,$nick(%c,0)),/./g,12 $+ \n $+ 13:12 $nick(%c,\n) >)
    msg $chan 13There are 12 $+ $0 $+  13users in %c $+ .
    msg $chan $*
  }
}

Looks better imo