finish challenge 115 intermediate in haskell