(define pairs
    '(
      (
       (((w w w) 
         (w 1 w) 
         (w w w))  
        (1 1) west)
       
       (((w w w) 
         (w 1 w) 
         (w w w))  
        (1 1) east)
       )
      (
       (((w w w w w w) 
         (w 0 0 0 0 w) 
         (w 0 0 0 0 w) 
         (w w w 0 0 w) 
         (w 0 0 0 w w) 
         (w w w w w w)) 
        (2 4) northeast)
       
       (((w w w w w w) 
         (w 0 0 0 0 w) 
         (w 0 0 0 0 w) 
         (w w w 0 0 w) 
         (w 0 0 0 w w) 
         (w w w w w w)) 
        (2 4) southwest)
       )
      (
       (((w w w w w w) 
         (w 0 0 0 0 w) 
         (w 0 0 3 1 w) 
         (w 1 3 0 0 w) 
         (w w w w w w)) 
        (3 2) east)
       
       (((w w w w w w) 
         (w 0 0 0 0 w) 
         (w 0 0 3 1 w) 
         (w 1 3 0 0 w) 
         (w w w w w w))
        (3 2) west)
       )
      (
       (((w w w w w w) 
         (w 3 3 0 0 w) 
         (w w w w w w)) 
        (3 1) northwest)
       
       (((w w w w w w) 
         (w 3 3 0 0 w) 
         (w w w w w w))
        (3 1) southeast)
       )
      )
    )
(newline) 
(evolve pairs '(100 100 20 20) 1)