alias K return $regsubex($1-,/[0-9]$/,$+($left(\1,1),0,$right(\1,-1)))