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