5.34⑤ 試編寫遞歸算法，逆轉廣義表中的數據元素。
例如：將廣義表
    (a,((b,c),()),(((d),e),f))
逆轉為：
    ((f,(e,(d))),((),(c,b)),a)。

要求實現以下函數：
void Reverse(GList &L);
/* 遞歸逆轉廣義表L */

廣義表類型GList的定義：
typedef enum {ATOM,LIST} ElemTag;
typedef struct GLNode{
   ElemTag tag;
   union {
      char atom;
      struct { 
         GLNode *hp, *tp;
      } ptr;
   }un;
} *GList;
void Reverse(GList &L)
/* 遞歸逆轉廣義表L */
{
 GList q,p;
 q=L; 
 p=q->un.ptr.tp; 
 if(!p&&q->tag) Reverse(L->un.ptr.hp);
 while(p)
  {q->un.ptr.tp=p->un.ptr.tp;
   p->un.ptr.tp=L;
   L=p;
   p=q->un.ptr.tp;
   if(L->tag)
     Reverse(L->un.ptr.hp);
  }     
}