------------------------Listing 9---------------------
main(Q,O)char**O;{if(--Q){main(Q,O);O[Q][0]^=0X80;\
for(O[0][0]=0;O[++O[0][0]]!=0;)if(O[O[0][0]][0]>0)\
puts(O[O[0][0]]);puts("----------");main(Q,O);}}


