Add #7 Haskell solution