home *** CD-ROM | disk | FTP | other *** search
- #define p struct c
- #define q struct b
- #define h a->a
- #define i a->b
- #define e i->c
- #define o a=(*b->a)(b->b,b->c)
- #define s return a;}q*
- #define n (d,b)p*b;{q*a;p*c;
- #define z(t)(t*)malloc(sizeof(t))
- q{int a;p{q*(*a)();int b;p*c;}*b;};q*u n a=z(q);h=d;i=z(p);i->a=u;i->b=d+1;s
- v n c=b;do o,b=i;while(!(h%d));i=c;i->a=v;i->b=d;e=b;s
- w n o;c=i;i=b;i->a=w;e=z(p);e->a=v;e->b=h;e->c=c;s
- t n for(;;)o,main(-h),b=i;}main(b){p*a;if(b>0)a=z(p),h=w,a->c=z(p),a->c->a=u,
- a->c->b=2,t(0,a);putchar(b?main(b/2),-b%2+'0':10);}
-