on *:input:#:{
if (/* !iswm $1-) { var %i = 1,%str = d det r er | while ($gettok(%str,%i,32)) { while ($istok($1-,$gettok(%str,%i,32),32)) { tokenize 32 $reptok($1-,$gettok(%str,%i,32),$gettok(%str,$calc(%i + 1),32),1,32) } | inc %i 2
} | say $1- | halt } }
If you try to put all that in 1 line, it wont work.. No errors or anything, but it just dont do the reptok..