<<scheme/boolean-product>>
(unless (equal? (boolean-product 1)
                '((#f)
                  (#t)))
  (raise #f))
(unless (equal? (boolean-product 2)
                '((#f #f)
                  (#f #t)
                  (#t #f)
                  (#t #t)))
  (raise #f))
(unless (equal? (boolean-product 3)
                '((#f #f #f)
                  (#f #f #t)
                  (#f #t #f)
                  (#f #t #t)
                  (#t #f #f)
                  (#t #f #t)
                  (#t #t #f)
                  (#t #t #t)))
  (raise #f))
"tests passed"