077 Haskell solved