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