Add #42 Haskell solution