diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,5 +1,10 @@
 # Revision history for array-chunks
 
+## 0.1.4.0 -- 2023-08-30
+
+* Add `constructN` functions that use numbers instead of tuple names
+  for construction of fixed-length chunks.
+
 ## 0.1.3.0 -- 2021-02-04
 
 * Add `nonupleton`, `decupleton`, `undecupleton`, `duodecupleton`.
diff --git a/array-chunks.cabal b/array-chunks.cabal
--- a/array-chunks.cabal
+++ b/array-chunks.cabal
@@ -1,6 +1,6 @@
 cabal-version: 2.2
 name: array-chunks
-version: 0.1.3.0
+version: 0.1.4.0
 synopsis: Lists of chunks
 description:
   Lists of chunks. This is similar to the Cons List provided
@@ -20,7 +20,7 @@
   exposed-modules: Data.Chunks
   build-depends:
     , base >=4.12 && <5
-    , primitive >=0.6.4 && <0.8
+    , primitive >=0.6.4 && <0.10
     , run-st >=0.1 && <0.2
   hs-source-dirs: src
   default-language: Haskell2010
diff --git a/src/Data/Chunks.hs b/src/Data/Chunks.hs
--- a/src/Data/Chunks.hs
+++ b/src/Data/Chunks.hs
@@ -30,6 +30,19 @@
   , decupleton
   , undecupleton
   , duodecupleton
+    -- * Construction Alternate
+  , construct1
+  , construct2
+  , construct3
+  , construct4
+  , construct5
+  , construct6
+  , construct7
+  , construct8
+  , construct9
+  , construct10
+  , construct11
+  , construct12
   ) where
 
 import Prelude hiding (reverse,concat,null)
@@ -291,6 +304,54 @@
   PM.unsafeFreezeSmallArray dst
   where
   !len = chunksLength cs
+
+construct1 :: a -> Chunks a
+{-# inline construct1 #-}
+construct1 = singleton
+
+construct2 :: a -> a -> Chunks a
+{-# inline construct2 #-}
+construct2 = doubleton
+
+construct3 :: a -> a -> a -> Chunks a
+{-# inline construct3 #-}
+construct3 = tripleton
+
+construct4 :: a -> a -> a -> a -> Chunks a
+{-# inline construct4 #-}
+construct4 = quadrupleton
+
+construct5 :: a -> a -> a -> a -> a -> Chunks a
+{-# inline construct5 #-}
+construct5 = quintupleton
+
+construct6 :: a -> a -> a -> a -> a -> a -> Chunks a
+{-# inline construct6 #-}
+construct6 = sextupleton
+
+construct7 :: a -> a -> a -> a -> a -> a -> a -> Chunks a
+{-# inline construct7 #-}
+construct7 = septupleton
+
+construct8 :: a -> a -> a -> a -> a -> a -> a -> a -> Chunks a
+{-# inline construct8 #-}
+construct8 = octupleton
+
+construct9 :: a -> a -> a -> a -> a -> a -> a -> a -> a -> Chunks a
+{-# inline construct9 #-}
+construct9 = nonupleton
+
+construct10 :: a -> a -> a -> a -> a -> a -> a -> a -> a -> a -> Chunks a
+{-# inline construct10 #-}
+construct10 = decupleton
+
+construct11 :: a -> a -> a -> a -> a -> a -> a -> a -> a -> a -> a -> Chunks a
+{-# inline construct11 #-}
+construct11 = undecupleton
+
+construct12 :: a -> a -> a -> a -> a -> a -> a -> a -> a -> a -> a -> a -> Chunks a
+{-# inline construct12 #-}
+construct12 = duodecupleton
 
 -- | Create chunks with 1 element.
 singleton :: a -> Chunks a