@Testor $addtok will only work if the token doesn't already exist, you can use $instok but using regex is much faster and simpler
alias ascii { echo -a 7CHR: $regsubex($1-,/(.)/g,$+($!chr,$chr(40),\t,$chr(41) = $asc(\t) $iif(\n != \0,$chr(44)))) }
alias char { echo -a 07ASCII: $regsubex($1-,/(\d+)(?=(?:\W)+|.*)/g,$+($!asc,$chr(40),\t,$chr(41) = $chr(\t) $iif(\n != \0,$chr(44)))) }