#		include				  <X11/Xlib.h>
#		include				    <math.h>
#		include				    <time.h>
#	      define W(f)			  f##Window(S,
#	      define  O ;			  break ; case
#	      define  _ *				s

        XID  w,r,l=45<<9,     d,v     =1,E;     GC V[2];	    typedef
       char  * K; Display     *S;   XGCValues   g; typedef        int Y; K j;
      double         *o,I    [99]   ,T=   0,t   ,_,   atof(     ); K	  X(K
     i){ for        (r=0  ; o=s-1  ,*i     ; i  ++       ) {   switch    (*i){
      struct        { K   Y; Y K,  t ;     XID  k ;      } Z;   K z=      j++;
     O  32L         :*o       *=_  --O     '}'  :*o      /=_    --O        73:
    *o += _        --O        61           :*o  -=_      --O   123
   :_=  sin        (_)       O 94         :_=   asin    (_)    O 47
  :_=   cos       (_)        O 45      : _=     fmod(_ ,2*     M_PI
  )O    076       :_=        sqrt      (_) O    33: t=*o;      *o=
  _;    _=t      O 48         :_=         cos   (_)     <0 O   86
 :j=    i O      43:          X(z           ="K I@I-"     )O   93:
 X(z ="/ =")O    60           : i  =++     r -  4 ?       j-1  :i O         79
 :XDrawArc(S,   d,V           [(Y  )_]     ,(Y  ) (       399   +14        _ [
        -2]     ),(           Y)(  *"'    "+14  _ [      -1])   ,2,2      ,0,l
        ) ;    { Z.           Y =   i -   127   +r/    3*2 ;     Z.K=    r%3+
        r/3    +1;            Z.t   =0; Z.k=E   ; XDrawText       (S,d,*V,(Y
        ) (    399            +14     *1[s-=     strlen(z)           ]),20,

		   &Z,1); } O 1:default:*i>90?I[*i-32]=_--:(*++s
			  =I[*i+(*i<73)*r]); } } } Y main
				  (Y G,K*A){ *A=

" 8<$ $li >d# -d8Z'Et#)wWP]WM C\\TI)#%!DcUAvz% H2&08M\\%YaHAW}4+%g ;|XN%W|l!_Kz+$UgBix41r=H7b@_:X 4zS   EFo1i}= _D.%biA xF>)k*T(7&m \"G~ )TY *.^@$0.#yl<  66,/dI ;\\[![:- $u6 VnD  X+ )TY-L38 :%\" )TY%8Z$ \"G|BfCb <Il8EC}  \"b  \037ST I{kT I-lT I!K ImT I!K =-`LQ { !L{ I[MQ { !M{ Ip@;P=I`L]!LQ ][M]!MQ ]lLL ;; IL;Q  @]>m@{;M} ^`K !T PIIIV[;I{ k;I/@{  K!=k;!={LM=M}  K!=jM!}T!=k@P=`+e+f+g+hK I-[K I-pEF=Q `FG=Q k@]aK]b;]cP]d@{ EIeK{ FIf;{ GIgP{ HIhVAE{ J{AE/  E0\117<";

    w = DefaultScreen (						       S =
      XOpenDisplay(0)); W(					     XMap
	 )d =W(XCreateSimple					   ) W(
	   Root )w),0,0,800,80					,0,0
	      ,BlackPixel(S,w )))			      ; g.
		foreground=WhitePixel			   (S,w
		  ); *(Y *) &g=6; for			 (; v
		    [V ]=XCreateGC( S,d		       ,4 +
		       v, &g),!--v; ); for	    ( E=
			 XLoadFont(S,"10x20"	 ),81
			   [I]=2; I[84]=(      G>2?
			     atof(2[A])     -2451545
			       :time	  (0 )/ 3.75
			     /l -	10957.5)+ (T+=G
			   > 1?	      atof(A[1]):0); ){ t
			=5e4		*6013; s=I; for(j=*A
		      ;_++		   =pow (t,(j[ 2]*'_'-
		    3028		     +3[j])/t)*pow(6e-4+
		 1,j[			       sizeof* X(++j) ]+95
	       **j-				 3072.)-1; )j+=4; s-=
	    2; W				    (XClear)d); XFillArc
	  (S,d					      ,*V,385,25,0x1c,28,
	0,l)						; X( j+4); XSync(S,
     0) ;						   usleep(10000); } }