Add #37 Haskell solution