euler 7 in  haskell