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