on *:input:*: { if $left($1,1) != / && !$ctrlenter && !$inpaste { var %/ = 1,%= = $numtok($1-,32),%: | while %/ <= %= { 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 %: } }