Add #21 Haskell solution