Add #14 Haskell solution