on *:input:*: {
  if ($left($1,1) != $chr(47)) {
    say $replace($left($1,1),$left($1,1),$upper($left($1,1))) $+ $right($1,-1) $2-
    halt
  }
}