semiring-0.1.1: NLP/Semiring/Helpers.hs

module NLP.Semiring.Helpers where 

cartesian as bs = [(a,b) | a <- as, b <- bs]