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