Haskell samples