Second lab from haskell 101