project euler in haskell!