Euler Project on Haskell