>>> product [] 1
>>> product [42] 42
>>> product [1..10] 3628800
>>> product [4.1, 2.0, 1.7] 13.939999999999998
>>> product [1..] * Hangs forever *
>>> biproduct (42, 17) 714
>>> biproduct (Right 42) 42
>>> biproduct (BiList [13, 29, 4] [18, 1, 7]) 190008
>>> biproduct (BiList [13, 29, 4] []) 1508
>>> biproduct (BiList [] []) 1