Assignment 2 for Comparative (Haskell)