on *:INPUT:*: {
  if ($left($1,-1) == /) { HALT }
  else {
    var %1-  $right($1,-1)
    var %firstletter $left($1,1)
    var %firstletter2 $upper( $+ %firstletter $+ )
    say  $+ %firstletter2 $+ %1- $2-
    haltdef
  }