Mine

On *:INPUT:*:{ if ($left($1,1) == /) { return $1- | halt }
  Say $+($upper($left($1,1)),$right($1,-1)) $2- | haltdef 
}