Add #22 Haskell solution