alias K return $regsubex($1-,/\bK([0-9])\b,K0\1)