import H35

goldbach :: Integer -> (Integer, Integer)
goldbach x = sepToSum x primes $ reverse $ takeWhile (<x) primes
    where 
        sepToSum n hhs@(h:hs) tts@(t:ts)
            | h+t > n = sepToSum n hhs ts
            | h+t < n = sepToSum n hs tts
            | otherwise = (h,t)