main = print $ getPrime 10

getPrime x = [(y, z) | y <- [1..x], z <- [y .. x], isPrime $ y + z]

isPrime x = all (\y-> x `mod` y /=0)$ filter isPrime [2 .. floor $ sqrt $ fromIntegral x]