on *:INPUT:*:{
  if ($left($1-,0) != /) {
    var %i 1,%q
    while ($gettok($1-,%i,32)) {
      %q = $addtok(%q,$+(,$upper($left($v1,1)),,$right($v1,-1)),32)
      inc %i
    }
    say %q
    halt
  }
}