Haskell/ProjectEuler:: Add