cc) -> acc<n) $ accumulate 0 candidates

main = print $ euler 1000000

euler n =  head $ dropWhile (\(a, acc) -> acc<n) $ accumulate 0 candidates
euler n =  head $ dropWhile (\(a, acc) -> acc<n) $ accumulate 0 candidates