lab2_haskell