Add the Haskell code