Project Euler in Haskell