Haskell Assignment 1