diff --git a/Data/List/Unique.hs b/Data/List/Unique.hs
--- a/Data/List/Unique.hs
+++ b/Data/List/Unique.hs
@@ -64,7 +64,10 @@
 
 -- | 'countElem' gets the number of occurrences of the specified element. Example:  
 --
---  countElem 'o' "foo bar" == Just 2
+--  countElem 'o' "foo bar" == 2
 
-countElem :: Ord a => a -> [a] -> Maybe Int
-countElem x = lookup x . count
+countElem :: Eq a => a -> [a] -> Int 
+countElem x [] = 0
+countElem x (y:ys) = case  x == y of 
+                        False -> countElem x ys
+                        True -> 1 + countElem x ys
diff --git a/Unique.cabal b/Unique.cabal
--- a/Unique.cabal
+++ b/Unique.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.0.2
+version:             0.1.0.3
 
 -- A short (one-line) description of the package.
 synopsis:           It provides the functionality like unix "uniq" utility