on *:input:*: { 
  if $left($1,1) != / && !$ctrlenter && !$inpaste { 
    var %/ = 1,%= = $numtok($1-,32),%:
    while %/ <= %= { 
      if ($regex($remove($chan($active).mode,+),/(c))) { %: = $strip($addtok(%:,$+($chr(2),$chr(3),$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32)) }
      else { var %: = $addtok(%:,$+($chr(2),$chr(3),$upper($left($gettok($1-,%/,32),1)),$chr(2),$chr(3),$right($gettok($1-,%/,32),-1)),32) }
      inc %/
      haltdef 
    }
    say %: 
  } 
}