alias  amsg {
  var %ahua = 1 
  while $chan(%ahua) { 
    if !$istok(%knl,$v1,32) {
      msg $chan(%ahua) $1- 
    }
    inc %ahua
  }
}