I'd use something much more simple:
alias charcheck { var %a 1,%b $chr($2),%c tokenize 32 $1 while $($ $+ %a,2) != $null { var %d $v1,%c %c $iif($left(%d,1) != %b,%b) $+ %d inc %a } return %c }