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