(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 ) ) )
)
|