Haskell code samples