on *:input:#:{ 
  if (/* !iswm $1) || ($ctrlenter) { 
    var %^ = 1, %' 
    while %^ <= $0 { 
      %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+(,$gettok($1-,%^,32),),$gettok($1-,%^,32)) 
      inc %^ 
    } 
    msg # 06 $+ $regsubex(%',/(?<=^|\s)(.)/, $+ $upper(\1) $+ )
    halt 
  }
}