Haskell code.