diff --git a/HLearn-algebra.cabal b/HLearn-algebra.cabal
--- a/HLearn-algebra.cabal
+++ b/HLearn-algebra.cabal
@@ -1,5 +1,5 @@
 Name:                HLearn-algebra
-Version:             1.0.0.1
+Version:             1.0.1
 Synopsis:            Algebraic foundation for homomorphic learning
 Description:         This module contains the algebraic basis for the HLearn library.  It is separated out in it's own library because it contains routines that may be useful to others.  In particular, it contains methods for automatically converting algorithms into online/parallel versions, and its structure is slightly more modular (although much less complete) than other algebra packages.
 Category:            Data Mining, Machine Learning
@@ -23,7 +23,7 @@
         deepseq             >= 1.3,
         containers          >= 0.5,
         vector              >= 0.10,
-        hashable            >= 1.2
+        hashable            == 1.1.2.5
         
     hs-source-dirs:     src
     ghc-options:        -rtsopts -auto-all -caf-all -O2 
diff --git a/src/HLearn/Algebra.hs b/src/HLearn/Algebra.hs
--- a/src/HLearn/Algebra.hs
+++ b/src/HLearn/Algebra.hs
@@ -5,6 +5,7 @@
     , module HLearn.Algebra.HVector
     , module HLearn.Algebra.Models.HomTrainer
     , module HLearn.Algebra.Models.Lame
+--     , module HLearn.Algebra.Models.Free.MonoidChain
 --     , module HLearn.Algebra.Morphism
     , module HLearn.Algebra.Structures.Groups
     , module HLearn.Algebra.Structures.MetricSpace
@@ -20,6 +21,7 @@
 import HLearn.Algebra.HVector
 import HLearn.Algebra.Models.HomTrainer
 import HLearn.Algebra.Models.Lame
+-- import HLearn.Algebra.Models.Free.MonoidChain
 -- import HLearn.Algebra.Morphism
 import HLearn.Algebra.Structures.Groups
 import HLearn.Algebra.Structures.MetricSpace
diff --git a/src/HLearn/Algebra/Models/HomTrainer.hs b/src/HLearn/Algebra/Models/HomTrainer.hs
--- a/src/HLearn/Algebra/Models/HomTrainer.hs
+++ b/src/HLearn/Algebra/Models/HomTrainer.hs
@@ -119,16 +119,3 @@
     
 instance (Module model, HomTrainer model) => WeightedHomTrainer model
     
--------------------------------------------------------------------------------
--- Counter instance for testing
-
-data Counter sampletype = Counter {c::sampletype}
-    deriving (Read,Show,Eq,Ord)
-
-instance (Num sampletype) => Monoid (Counter sampletype) where
-    mempty = Counter 0
-    c1 `mappend` c2 = Counter $ c c1+c c2
-
-instance (Num sampletype) => HomTrainer (Counter sampletype) where
-    type Datapoint (Counter sampletype) = sampletype
-    train1dp dp = Counter 1