lab4 haskell
haskell lab4