Haskell Assignment0