haskell. project euler.