alias chint {
if (!$isid) return
var %text = $replace($strip($1-),$chr(32),$chr(183))
var %i = 1, %l = $numtok(%text,183)
var %tok, %toklen, %j, %result
while (%i <= %l) {
var %tmp
%tok = $gettok(%text,%i,183)
%toklen = $len(%tok)
%j = 1
while (%j <= %toklen) {
if ($calc(%j % 2)) %tmp = $+(%tmp,$mid(%tok,%j,1))
else %tmp = $+(%tmp,_)
inc %j
}
%result = $+(%result,$chr(183),%tmp)
inc %i
}
return $replace(%result,$chr(183),$chr(32))
}