Solved 159, Resolved 3 in Haskell