(size (glue (glue black white white black) (glue black white white black) (glue black white white black) (glue black white white black)))
result 2
(size (glue black white white black))
result 1
(size white)
result 0
(equal (basea) (basea))
result #t
(equal (basea) (baset))
result #t
(equal (rotate (basea)) (baset))
result #f
(beautiful (basea))
result #f
(beautiful (glue black black black black))
result #t
(beautiful (glue (glue black black white black) (glue black black black white) (glue black black black black) (glue black white black black)))
result #f
(beautiful (glue (glue black black white black) (glue black black black white) (glue white black black black) (glue black white black black)))
result #t