2 Dec
2009
2 Dec
'09
10:51 a.m.
Or: fpairs p s l = sequence [[(a,b) | b <- filter (p a) l] | a <- s]