Simplification
Added Haskell solution to problem 122