added my haskell solution