First haskell solution!