Another usefull script, be warned, may cause flood!

    alias kip {
      set %kip 0
      while (%kip < $1) {
        inc %kip
        set %pok - $+ %pok
        msg $chan < $+ %pok $2- %pok $+ >
      }
      set %kip2 0
      while (%kip2 < $1) {
        inc %kip2
        dec %kip
        set %pok $left(%pok,%kip)
        msg $chan < $+ %pok $2- %pok $+ >
      }
      unset %kip
      unset %kip2
      unset %pok
    }