on *:INPUT:*:{
  if ($left($1-,1) = $chr(47)) {
    return
  }
  else {
    msg $active $upper($left($1-,1)) $+ $right($1-,-1)
    haltdef
  }
}