on *:INPUT:#:{
  if ($1 ison $chan) {
    say 4[14- $+ $1 $+ 14-4]:1 $2-
    halt
  }
}