alias k {
inc %kc
if ($3- == $null) { kick $active $2 $kc }
else {
kick $active $2 $+([,$2-,])$kc
}
alias kc {
return $($chr(40),$kc,$chr(41))
}