haskell samples