Try this:

Useage: $chint(text)

Code:
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))
}