on *:input:#:{
  if !$istok(! /, $left($1-,1), 32) {
    msg # $regsubex(.,$regsubex(x,$1-,m^(\S+)^g,$iif(\1 ison #, $chr(2)\1$chr(15), \1)), $&
      m$(^\S)$,$upper(\1))
    halt
  }
}