Add #10 Haskell solution