on *:INPUT:#: {
  haltdef
  set %text $1-
  say $+(1%text))
}