sed -n -e '/^%%Page.*/p' -e '/.*DW_.*/p' <dwarf.v2.ps  |
sed -n  -e '/^%%Page.*/p' -e 's/.*\(DW_[a-z_A-Z]*\).*/\1/p' |
nawk '  /^%%Page/{ p = $2  } \
	 /DW_/	{ printf "%-30s  %04d \n",$1,p \
	}'   | sort  -u  |
nawk ' BEGIN {h = "xx"}  		\
         {  				\
	    done = 0 ; 			\
            if ( $1 != h ) {     	\
	 	  if(h != "xx") { 	\
			printf "%-30s %s\n",h, pgs ; \
			h = $1 ;	\
			tv = $2 + 0 ;   \
			done = 1  ;     \
			pgs = "" tv 	\
 		  }		 	\
	     }				\
	     h = $1 ;                   \
	     if(done == 0 ) {  		\
		tv = $2 + 0 ;           \
		pgs = pgs ", "  tv      \
	     }    			\
	  } 				\
          END { printf "%-30s %s\n",h,pgs }  '