KOHAKU.SCM   

<

^

>



                              (let*((l
                       lambda)        (k(l(g
                   h s f                    )(do
                ((i                             0(+
              01                                 i)))
             (                                       (
           >=                                         i
          s))                                (         f
        (+   g (                              /(        *
       (    -  h   g ) i  )                     (       - s 1)))
     ))    )  )    (a " "  )    (m              make-rectangular)(X"X"
     )    (   @   display)  (     d              (    current-time))(w 120
    )    (   n    (-   0 1)  )     (             & integer->char)(a apply)(
    e   (l  (j   c)(    do (  (z    j(            +(* z z)c))(i 0(+ i 1)))
    (   (   or   ( <     26 i)  (<    0           1   2( magnitude z)));X
    i  ))   ))   (b        begin )(?(  b          map    ))(% modulo)(r;
    (l (g  h)(  +(*          (b(set! d(%(+(       *      d 22695477)1)(
     *  64 64 8 8 8            ))  )(/ d(* 8      #x0400  256)))(-(+ h)
     g)  ) g)))($ (b(*              1 0.1)  )     )(   t  let*)(o(l()(t
      (  (g(r  n  1))(j             (r n 1  )     )(s   ( r $ 1)))(list
         g(  +     g (*             s 1.5)  )     j( + j  s)(m(r n 1)(r
         -1   1    ))))             )))(do  (     (  u (  (b o    ))(o
         ))   )     ((a              (l(g   h     j   q   c);()
         ( t   (     (f(                    ?     ( l(    p)(e p
         c )    )                           (     list   (m g(+;
          j)    )(m                         g    q ) ( m h j)(m(;
          * (   + g          h)0.5         )(    /( +  j q)2))(m h
           q)    ) ))(                    y(    / ( a  + f)5)))(>(
           /(a   + (? (l(              x)  (    * ( -  x y)(- x y))
            )f)  )5 )   w )))     u)(a     (   l  (g  h j q c)(k q;
            j( +  23 1  )(    l(y          )  (  b(k g h  79(l(x)(@(
             (l ( i ) (& (if  (            > i   25)32(+(+ #x41)i);
                 ))  )(e( m x y            )c)))))(@ (     b"\n"
                   )  )) )))  u            ) )              )
                           )

  NFO RAR ZIP DETAILS /
2016-11-24