alias n2t { var %x = 1, %u while ($gettok($1-,%x,32)) { %u = %u $+($!+,$chr(40),$left($regsubex($v1,/(.)/g,$+(,$asc(\\1),$chr(44))),-1),$chr(41)) inc %x } return %u }