on 1:input:*:{ 
  if !$regex($1,/(\.|!|\/)/) || ($ctrlenter) {
    var %^ = 1, %'
    while %^ <= $0 { 
      %' = %' $iif($remove($gettok($1-,%^,32),!,:,;,$chr(44)) ison #,$+($chr(3),02,$chr(2),$gettok($1-,%^,32),$chr(2),$chr(3)),$iif($+(:,$chr(41),*) iswm $gettok($1-,%^,32),$+($chr(3),04,$left($gettok($1-,%^,32),1),$chr(3),$right($gettok($1-,%^,32),-1)),$gettok($1-,%^,32)))
      inc %^
    }
    say %'
    halt
  }
}