bar xs ys a= [(x,y) | x <- xs, y <- ys, x+y<=a]
Bar> bar [4,1,2,5,3,8] [5,6,9,20,7] 15 [(4,5),(4,6),(4,9),(4,7),(1,5),(1,6),(1,9),(1,7),(2,5),(2,6),(2,9),(2,7),(5,5),(5,6),(5,9),(5,7),(3,5),(3,6),(3,9),(3,7),(8,5),(8,6),(8,7)] Bar> length (bar [4,1,2,5,3,8] [5,6,9,20,7] 15) 23