Added beginner haskell solution