on *:input:*:{ if (/* iswm $1) || !$ctrlenter { return } var %a = $1- while $istok(%a,i,32) { %a = $reptok(%a,i,ich,1,32) } while $istok(%a,am,32) { %a = $reptok(%a,am,bin,1,32) } ;and so on ... msg $active %a halt }