playing around with project euler in haskell