#!/usr/bin/mumps
# ~/Medline2012/Mesh/AdvancedMtreePrint2.mps December 5, 2011

      set x="^mesh"  // build the first index
      for  do
      . set x=$query(@x) // get next array reference
      . if x="" break
      . write x,?50,@x,!

