two more project euler in haskell