haskell excersize