97 in haskell