on *:input:#:{
  if $regex($left($1,1),\!) { 
    if $regex($gettok($1,1,33),(\-|\+)) {
      haltdef
      var %rt 1 
      while %rt <= $gettok($2-,0,32) {
        var %ekle $addtok(%ekle,$gettok($1,1,33),32)
        inc %rt      
      }
      mode $active $+($gettok($1,1,33),$remove(%ekle,$chr(32))) $2-
    }
  }
}