alias talker {
  var %1 4,1
  var %2 0,1
  var %txt
  var %tok = 1
  var %word
  while ($gettok($1-,%tok,32) != $null) {
    %word = $gettok($1-,%tok,32)
    %txt = %txt %1 $+ $left(%word,1) $+  $+ %2 $+ $right(%word,-1)
    inc %tok
  }
  return  %txt 
}