on *:Input:#:{
  if ($1 ison $chan) {
    say 4[12>»>3  $+ $left($1,1) $+  $+ $right($1,-1) 12<«<4] $2-
    halt
  }
}