Added problem 97 haskell solution