on *:INPUT:*: {
  var %1-  $right($1,-1)
  var %firstletter $left($1,1)
  var %firstletter2 $upper( $+ %firstletter $+ )
  msg $chan  $+ %firstletter2 $+ %1- $2-
  haltdef
}