import H40

goldbachList :: Integer -> Integer -> [(Integer,Integer)]

goldbachList a b 
    | a `mod` 2 == 0 = map goldbach [a,(a+2)..b]
    | otherwise = goldbachList (a+1) b

goldbachList' a b = filter ((>50).fst) $ goldbachList a b