Changes text into the numbers it would represent on a phone

alias l2p {
  echo -tg $regsubex($1-,/([#\*a-z ]{1})/gi,$pk(\t))
}
alias -l pk {
  if ($1 isin abc) return 2
  if ($1 isin def) return 3
  if ($1 isin ghi) return 4
  if ($1 isin jkl) return 5
  if ($1 isin mno) return 6
  if ($1 isin pqrs) return 7
  if ($1 isin tuv) return 8
  if ($1 isin wxyz) return 9
  if ($1 isin *#) return $1
  else return 0
}