on *:input:*:{
  if (!$regex($left($1,1),/^!|[./]|/|/i/)) {
    say $wn($1-) | halt
  }
}
alias wn return $replace($+($regsubex($regsubex($1-,/([.,;,!,+,*,?,{,},=,-,:,',^,%,&,/,_,~,`,"])/g,$+(,$yr,\t,,$chr(15))),/([A-Z])/g,\t),),$chan,$+(<,,$yr,,$chan,,,>))
alias yr return 4