Haskell implementation of the dDCA