alias ame {
  var %x 1
  while %x <= $chan(0) {
    if ($istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5 #kanal6,$chan(%x),32) == $false) {
      describe $chan(%x) $1-
    }
    inc %x
  }
}
alias amsg {
  var %x 1
  while %x <= $chan(0) { 
    if ($istok(#kanal1 #kanal2 #kanal3 #kanal4 #kanal5 #kanal6,$chan(%x),32) == $false) {
      msg $chan(%x) $1- 
    }
    inc %x 
  } 
}