haskell lab 4
Lab4 haskell