while ($findfile($mircdir,*.txt,%x)) {
  did -a $dname 2 $shortfn($findfile($mircdir,*.txt,%x))
  inc %x
}