Solve 81 in haskell