solved 28/Haskell