(neighbor (list 3 1) (glue (glue black white white black) (glue black white white black) (glue black white white black) (glue black white white black)))
result 6
(neighbor (list 3 3) (glue (glue black white white black) (glue black white white black) (glue black white white black) (glue black white white black)))
result 1
(neighbor (list 2 3)  (glue (glue black white white black) (glue black white white black) (glue black white white black) (glue black white white black)))
result 1
(neighbor-tree (list 3 1) (glue-tree-from-tree (baset) (baset) (baset) (baset)))
result 6
(neighbor-array (list 3 3) (glue-array-from-tree (baset) (baset) (baset) (baset)))
result 1
(neighbor-array (list 2 3) (glue-array-from-array (basea) (basea) (basea) (basea)))
result 1
(neighbor-tree (list 3 1) (glue-tree-from-array (basea) (basea) (basea) (basea)))
result 6
(is-tree? (glue-tree-from-tree (baset) (baset) (baset) (baset)))
result #t
(is-tree? (glue-array-from-tree (baset) (baset) (baset) (baset)))
result #f
(is-array? (glue-array-from-array (basea) (basea) (basea) (basea)))
result #t
(is-array? (glue-tree-from-array (basea) (basea) (basea) (basea)))
result #f
(is-array? black)
result #t