diff --git a/NLP/Minimorph/Number.hs b/NLP/Minimorph/Number.hs
new file mode 100644
--- /dev/null
+++ b/NLP/Minimorph/Number.hs
@@ -0,0 +1,15 @@
+module NLP.Minimorph.Number where
+
+-- | Singular and Plural.
+data SingPlu a = SP
+    { sg :: a
+    , pl :: a
+    }
+  deriving (Show, Eq)
+
+data Number = Singular | Plural
+  deriving (Eq, Show)
+
+fromSP :: Number -> SingPlu a -> a
+fromSP Singular = sg
+fromSP Plural   = pl
diff --git a/minimorph.cabal b/minimorph.cabal
--- a/minimorph.cabal
+++ b/minimorph.cabal
@@ -5,7 +5,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- minor or non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.2.0.0
+version:             0.2.1.0
 synopsis:            English spelling functions with an emphasis on simplicity.
 description:         A set of simplistic functions capturing the more regular
                      parts of English spelling (for generation, not parsing).
@@ -34,6 +34,7 @@
 
 library
   exposed-modules:     NLP.Minimorph.English
+                       NLP.Minimorph.Number
                        NLP.Minimorph.Util
 
   build-depends:       base < 5