range1 = [ 0, 2, 4, 6, 8 ]; range2 = [ 1, 3, 5, 7, 9 ]; main = print [a * b | (a, b) <- zip range1 range2]