Haskell code for talk