problem 10 dummy solution in haskell