on *:input:*: {
  inc %input $len($1-)
}
alias input {
  echo 2 -at *** You have typed %input characters.
}