on *:input:#: {
  if /* !iswm $1- && !$inpaste && status !isin $active && @* !iswm $active {
    msg $active $regsubex($1-,/(?<=^|\s)(.)/g,04\1)
    halt
  }
}