euler 97 solution haskell