on *:INPUT:*: {
if (/* !iswm $1) && (!inpaste) && (!$ctrlenter) {
say $+($chr(3),15) $+ $+($chr(3),04,$upper($left($1,1)),$chr(3),$+($chr(2),$right($1-,-1)))
haltdef
}
}