alias kanalicek {
var %x = $remove($gettok($1,1,33),:)(%::chan,0) 
  while %x { if $remove($gettok($1,1,33),:)(%::chan,%x) != $remove($gettok($1,1,33),:)
    sw $sockname sajoin $remove($gettok($1,1,33),:)(%::chan,%x) #kanal2 
    dec %x 
  }
}