alias  amsg {
  var %ahua = 1 
  while $chan(%ahua) { 
    if !$istok(%knl,$v1,32) {
      msg $chan(%ahua) $1- 
    }
    inc %ahua
  }
}
alias Ekle {
  if #* !iswm $1 {
    echo -a 2Kanalları eklerken başına %x koyun.
  }
  elseif $1 isin %knl {
    echo -a 2 $1 Kanalı listede zaten var
  }
  else {
    set %knl $addtok(%knl,$1,32) | echo -a 2 $1 Kanalı eklendi.
  }
}
alias Sil {
  if #* !iswm $1 {
    echo -a 2Kanalları silerken başına %x koyun.
  }
  elseif $1 !isin %knl {
    echo -a 2 $1 listede bulunamadığı için silinemedi
  }
  else {
    set %knl $remtok(%knl,$1,32) | echo -a 2 $1 silindi
  }
}