(define e
define) (e g 0)(
e h 0) ( e w
set!) ( e l lambda
)( e @ display ); i
(e t magnitude )(e(! .
x ) (@"" )) (e %
modulo )(e m make-rectangular ) (e
j 00 ) (e b begin
) (e c 0)(
e ? map ) ( e a; ()
apply ) (e ( r x ) ( do ((
z x (+(* z z ) x ) ) ( i 0 (+ i
1 ) ) )( ( or ( >( t z ) 2) (>
i 26 )) i ) ) )( !) (e n (b let*)
) (e : ( * 5 7 997 97 ) )( e d(
current-time) ) ( e k* ( * 89 991 73 3 ))
( ! :) (e ($ ) ( list ( m g j )( m g c )(
m h j) ( m h c )( m (/(+ g h) 2 )( /
( + j c )2))) ) (e (_ x y)(*( - x y)
( - x y)))(e ~ (* 120))( e ( & x
) (integer->char ( if(> x 25) (
* 8 4)(+ 65 x))) ) (e (u
)( n((f(?(l (p)( r p) ;
) ($)))(y (/(a + f )5
)) )(>(/(a +(?( l (x )
(_ x y))f) )5 )~ ) )
)( e ( v k ) (k c
j 24 ( l( y) ( b( k
g h 79( l( x)(@ (& ( r( m x
y) ) ))) )( !) ( @ "\n")
)))) (e (k u v s f) ( do ( (;
i 00 (+ i 1 ))) ( ( >= i i s) )(
f(+ u (/ (*( - v u)i)(+ s -1 )) ) )) )( e(
q i)( +( *(b( w d (% ( +( * k* d) 1 )
: ))(/ d : ))( - 1 i) ) i)) (e(o) (n (
( s(q .1) ) )( w j( q(- 00 1 ) ) )( w c
(+ j s ))(w g(q( - 01))) ( w h( + g
( * s 1.5) )) ) ) ( o)( do (
)(( u )(v k) ) (
o) )
|