type t={x:float         ;y:
                            float} ;;let      p=print_string
                       ;;let r(x,y)=Random.    float  y+. x;;
            let     q(**)x   =p   " ";print_float    (*    *)
            x  ;; let    i n u   ya s h a       ={x=(n     +.
           (cos(**)ya)     *.                       s*.    a.x)
           -.(                                         sin  ya)*.
          a.y                                         *.h;y=(s  *.
         a.                                            x)*.(sin  ya)
       +.( cos                                              ya)*.  a.
     y*. h+.              u}                                    ;;  let
   s(c )=q             c .x                                      ;q   c.
 y;; let           o  =("}    def                                 ")   ;;
  p("             "^ " /ct    {" (*  \,                        ^_^ v    \\
 *)   ^"         curveto"     ^"  }"  ^"                        def"^   (*
*)   ((*        AP LL  TW     IK  :)   *)                        "/e"    (*
\\  osu        wa  ri  !      *)   ^    "ndp                      "(*     v
(* =*)        *)   ^" ")      ^"   {"^   "closepath           "^  (*>     E!
2002/1    *)  (" fill ")^     (o   )^"/n   {newpath"^  ("}    def ")       ^
(**)"    /s{  setrgbcolor      n"   ^   (o) ^"/m    {moveto    "^(*        *)
o^" /c   {ct   endp "^o);;     Random.  self_init(    );;(**)  let          y
(x   )= match   x with k::a     :: g::o:: m::e        ::  (* SY!            !
*)    [] ->s(   e);p(" " ^"m"   );   s(k  );s(a       );      s(            g)
       ;p(" ct"  );s(   o); s(m  );        s(e        );      p"             c
         ";   |_->();;  let   rec(*\                  *)       z             x
          =      if x>   00      then                  (       (*            ;;
                     *)z                               (x       -1  );       q(
                     (r(                              0.5        ,(  0.5     ))
                     ));q              (r            ((0.         ), 0.1)    );
                     q  (r        (0.,(            0.1  ))         );p" s"   ;(
                    y(   List                   .map     (          i(r  (( 72.
                   ),     468.(*              *))        )(          r((  72.),
                 648.     ))  (r(0.       ,6.2           ))            (r  (12.
              ,34.        )       )(r(12.0,               24.           (*  *))
            ))[          {y                                =(            0.  -.
           5.           );                                  x            =(
           4.          )}                                   ;{           x=
            (         4.                                     );         y=
            5.        };                                     {x         =
            0.       ;y                                      =(        6.
             )}      ;{                                      x        =(
              6.     );                                     y=      5.}
               ;{    y=                                    0.      -.
                (5.  );                                   x=     6.}
                 ;{   x=                                 0.     ;y
                  =( -6.                                )}    ])
                    ));;                               z(  -3+
                      19+                             Random
                       .                             int 16
                                                    );;