alias teller { var %i = 1, %total = $numtok($1-,32), %output while (%i <= %total) { var %x = $len($gettok($1-,%i,32)) var %output = %output $+ $str(+,%x) $+ $chr(160) inc %i } $iif($isid,return,say) %output }