solved problem 15/Haskell