on *:input:*: { 
  if (/* iswm $1) { return }
  if (!* iswm $1) { return }
  if ($+($chr(46),*) iswm $1) { return }
  if ($inpaste) { return }
  var %a 0, %b, %c 
  while (%a < $numtok($1-,32)) { 
    inc %a 
    %c = $gettok($1-,%a,32) 
    if ($remove(%c,:,;,$chr(44),?) ison #) { %b = $iif(%b,%b) $+(10« 10,%c, 10 10») } 
    else { %b = %b %c } 
  } 
  if (!%b) { %b = $1- } ;
  say $regsubex(shit,%b,/(\.|\:|\?|\;|\,|\?|\=|\!)/g,$+(4,\1))
  halt 
}