Same as the /aamsg i posted earlier, this is just the /aame version.
alias aame {
var %a = 1
while $scon(%a) {
var %b = $ifmatch, %c = 1
scid %b
while $chan(%c) {
describe $chan(%c) $$1- [AME]
inc %c
}
inc %a
}
scid -r
}