Adding 2nd Haskell homework