haskell assignment no 1