99 Haskell problem solution