Finish Haskell Assignment