add first haskell solution!