Added beginner haskell solution or something