added haskell version of 020