Unnamed

on *:input:#: {
  if ($regex($1,/^[+-.]/S)) {
    if ($regex($right($1,-1),/[aqbceifjklmnprstzACGIMKLNOQRSTVu]+/S)) {
      mode $chan $replace($1-,.,+) 
    }
    elseif ($regex($right($1,-1),/[vho]/S)) $& 
      mode $chan $iif($left($1,1) == -,-,+) $+ $str($right($1,-1),$iif($2,$0,1)) $iif($2,$2-,$me)
  }
}