diff --git a/Data/Refcount.hs b/Data/Refcount.hs
--- a/Data/Refcount.hs
+++ b/Data/Refcount.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE DeriveGeneric #-}
 module Data.Refcount ( Refcount (..)
                      , refcount
+                     , refcounts
                      , refcounted
                      , insertRef
                      , deleteRef
@@ -31,6 +32,10 @@
 -- | Retrieve the refcounted objects.
 refcounted :: Refcount a -> [a]
 refcounted = keys . unRefcount
+
+-- | Retrieve objects and their counts.
+refcounts :: Refcount a -> [(a, Int)]
+refcounts = HashMap.toList . unRefcount
 
 -- | Create a counted structure from a list of elements.
 fromList :: (Hashable a, Eq a) => [a] -> Refcount a
diff --git a/refcount.cabal b/refcount.cabal
--- a/refcount.cabal
+++ b/refcount.cabal
@@ -1,5 +1,5 @@
 name:               refcount
-version:            0.1.1
+version:            0.1.2
 synopsis:           Container with element counts
 category:           Data
 license:            MIT