(define s0
'((
(w w w)
 (w 1 w)
(w w w)
)
(1 1) southeast
))

(define t0
'((
(w w w)
 (w 1 w)
(w w w)
)
(1 1) southeast
))

(define s1
'((
(w w w)
 (w 1 w)
(w 0 w)
 (w w w)
)
(1 1) west
))

(define t1
'((
(w w w)
 (w 1 w)
(w 0 w)
 (w w w)
)
(1 1) west
))

(define s2
'((
(w w w w w w w w w)
 (w 0 0 0 0 1 0 0 w)
(w w w w w w w w w)
)
(1 1) east
))

(define t2
'((
(w w w w w w w w w)
 (w 0 0 0 0 1 0 0 w)
(w w w w w w w w w)
)
(7 1) east
))
(newline)
(evolve `((,s0 ,t0) (,s1 ,t1) (,s2 ,t2)) `(10000 10000 20 20) 10)