diff --git a/ascii.cabal b/ascii.cabal
--- a/ascii.cabal
+++ b/ascii.cabal
@@ -1,7 +1,7 @@
 cabal-version: 3.0
 
 name: ascii
-version: 1.1.2.0
+version: 1.1.3.0
 synopsis: The ASCII character set and encoding
 category: Data, Text
 
diff --git a/library/ASCII.hs b/library/ASCII.hs
--- a/library/ASCII.hs
+++ b/library/ASCII.hs
@@ -67,6 +67,8 @@
     {- ** Natural strings -}
     showNaturalDecimal, showNaturalHexadecimal,
     readNaturalDecimal, readNaturalHexadecimal,
+    {- ** Single-digit strings -}
+    digitString, hexCharString,
 
     {- * Classes -}
     {- ** Supersets of ASCII -} CharSuperset, StringSuperset, Lift,
@@ -710,3 +712,19 @@
 
 readNaturalHexChars :: [HexChar] -> Maybe Natural
 readNaturalHexChars = readNaturalHexadecimal
+
+{- |
+
+A string containing a single digit character 0-9
+
+-}
+digitString :: DigitStringSuperset string => Digit -> string
+digitString x = ASCII.Decimal.fromDigitList [x]
+
+{- |
+
+A string containing a single hexadecimal digit character 0-9, A-F, or a-f.
+
+-}
+hexCharString :: HexStringSuperset string => HexChar -> string
+hexCharString x = ASCII.Hexadecimal.fromHexCharList [x]
diff --git a/test/Main.hs b/test/Main.hs
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -13,6 +13,7 @@
 import Data.Maybe (Maybe (..))
 import Data.Text (Text)
 import Data.Word (Word8)
+import Prelude (enumFromTo, maxBound, minBound)
 import System.Exit (exitFailure)
 import System.IO (IO)
 
@@ -105,3 +106,16 @@
 prop_bytes_to_string_fail :: Property
 prop_bytes_to_string_fail = withTests 1 $ property $
     ASCII.byteListToUnicodeStringMaybe [0x48, 0x54, 0x54, 0x80] === Nothing
+
+prop_digitStrings :: Property
+prop_digitStrings = withTests 1 $ property $
+    map digitString (enumFromTo minBound maxBound) ===
+    (["0", "1", "2", "3", "4", "5", "6", "7", "8", "9"] :: [Text])
+
+prop_hexCharStrings :: Property
+prop_hexCharStrings = withTests 1 $ property $
+    map hexCharString (enumFromTo minBound maxBound) ===
+    ( [ "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"
+      , "A", "B", "C", "D", "E", "F"
+      , "a", "b", "c", "d", "e", "f"
+      ] :: [Text] )