HTM in haskell