Haskell Bob Iteration 3