alias ra {
  %x = 1
  while (%x <= $avoice(0)) {
    avoice -r $avoice(%x)
    inc %x
  }
}