/* ECP: FILEname=fig10_7.c */
/* 1*/   void
/* 2*/   StRecycle( Stack S )
/* 3*/   {
/* 4*/       StInsistGood( S );
/* 5*/       free( S->Array );
/* 6*/       free( S );
/* 7*/   }