(define s0
'((
(w w w)
(w 1 w)
(w w w)
)
(1 1) south
))

(define t0
'((
(w w w)
(w 1 w)
(w w w)
)
(1 1) south
))

(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 0 w)
(w 0 w)
(w 0 w)
(w 0 w)
(w 1 w)
(w 0 w)
(w 0 w)
(w w w)
)
(1 1) south
))

(define t2
'((
(w w w)
(w 0 w)
(w 0 w)
(w 0 w)
(w 0 w)
(w 1 w)
(w 0 w)
(w 0 w)
(w w w)
)
(1 7) south
))

;(simulate `(,s3 (1 1) north) 'start p6 30 100)
;(evaluate `(,p1 ,p2 ,p3 ,p4 ,p5 ,p6 ,p7 ,p8) `(((,s0 (1 1) south) (,t0 (1 1) south)) ((,s1 (1 1) west) (,t1 (1 1) west)) ((,s2 (1 1) south) (,t2 (1 7) south)) ((,s3 (1 1) west) (,t3 (6 1) west))) `(4 5 999 999) 20)
(newline)
(evolve `((,s0 ,t0) (,s1 ,t1) (,s2 ,t2)) `(10000 10000 20 20) 10)