Add #99 Haskell solution