Solved Haskell:Bob