diff --git a/bizzlelude.cabal b/bizzlelude.cabal
--- a/bizzlelude.cabal
+++ b/bizzlelude.cabal
@@ -1,6 +1,6 @@
-Cabal-Version:       3.6
+Cabal-Version:       3.8
 Name:                bizzlelude
-Version:             4.20.2.0
+Version:             4.20.2.0.1
 License:             BSD-3-Clause
 License-File:        LICENSE.txt
 Author:              Jason Bertsche
@@ -18,9 +18,9 @@
 
 library
   hs-source-dirs:   src/main
-  exposed-modules:  Prelude
+  exposed-modules:  Prelude, Data.Text.Word
   default-extensions: OverloadedStrings
-  default-language: Haskell2010
+  default-language: GHC2024
   other-modules: External, Misc, Tuple2, Tuple3, Tuple4
   GHC-Options:
     -Wall
diff --git a/src/main/Data/Text/Word.hs b/src/main/Data/Text/Word.hs
new file mode 100644
--- /dev/null
+++ b/src/main/Data/Text/Word.hs
@@ -0,0 +1,56 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+module Data.Text.Word(center, chunksOf, compareLength, count, drop, dropEnd, findIndex, index, justifyLeft, justifyRight, length, replicate, splitAt, take, takeEnd, unfoldrN) where
+
+import External(($), Bool, Char, fromIntegral, Maybe, Ordering, Text, Word)
+import Misc((&>), map)
+
+import qualified Data.Text as T
+
+
+center :: Word -> Char -> Text -> Text
+center a b c = T.center (fromIntegral a) b c
+
+chunksOf :: Word -> Text -> [Text]
+chunksOf a b = T.chunksOf (fromIntegral a) b
+
+compareLength :: Text -> Word -> Ordering
+compareLength a b = T.compareLength a (fromIntegral b)
+
+count :: Text -> Text -> Word
+count a b = fromIntegral $ T.count a b
+
+dropEnd :: Word -> Text -> Text
+dropEnd a b = T.dropEnd (fromIntegral a) b
+
+drop :: Word -> Text -> Text
+drop a b = T.drop (fromIntegral a) b
+
+findIndex :: (Char -> Bool) -> Text -> Maybe Word
+findIndex f = (T.findIndex f) &> (map fromIntegral)
+
+index :: Text -> Word -> Char
+index a b = T.index a (fromIntegral b)
+
+justifyLeft :: Word -> Char -> Text -> Text
+justifyLeft a b c = T.justifyLeft (fromIntegral a) b c
+
+justifyRight :: Word -> Char -> Text -> Text
+justifyRight a b c = T.justifyRight (fromIntegral a) b c
+
+length :: Text -> Word
+length = T.length &> fromIntegral
+
+replicate :: Word -> Text -> Text
+replicate a b = T.replicate (fromIntegral a) b
+
+splitAt :: Word -> Text -> (Text, Text)
+splitAt a b = T.splitAt (fromIntegral a) b
+
+takeEnd :: Word -> Text -> Text
+takeEnd a b = T.takeEnd (fromIntegral a) b
+
+take :: Word -> Text -> Text
+take a b = T.take (fromIntegral a) b
+
+unfoldrN :: Word -> (a -> Maybe (Char, a)) -> a -> Text
+unfoldrN a f c = T.unfoldrN (fromIntegral a) f c
diff --git a/src/main/External.hs b/src/main/External.hs
--- a/src/main/External.hs
+++ b/src/main/External.hs
@@ -2,7 +2,7 @@
 module External(module Control.Arrow, module Control.Applicative, module Control.Monad, module Control.Monad.IO.Class, module Control.Monad.State, module Data.Bifoldable, module Data.Bifunctor, module Data.Bool, module Data.ByteString, module Data.Char, module Data.Either, module Data.Eq, module Data.Foldable, module Data.Function, module Data.Functor, module Data.Int, module Data.IntSet, module Data.List.NonEmpty, module Data.Map, module Data.Maybe, module Data.Monoid, module Data.Ord, module Data.Semigroup, module Data.Set, module Data.Text, module Data.Traversable, module Data.Tuple, module Data.Validation, module Data.Void, module Data.Word, module Debug.Trace, module GHC.Base, module GHC.Enum, module GHC.Err, module GHC.Float, module GHC.IO, module GHC.Num, module GHC.Real, module GHC.Show, module Numeric, module System.IO.Error, module Text.Read) where
 
 import Control.Arrow((&&&), (***))
-import Control.Applicative((<**>), Alternative((<|>), empty, many, some), Applicative((<*>), (<*), (*>), pure), liftA2, optional)
+import Control.Applicative((<**>), Alternative((<|>), many, some), Applicative((<*>), (<*), (*>), pure), liftA2, optional)
 import Control.Monad((=<<), filterM, foldM, foldM_, forM, forM_, guard, join, mapM, mapM_, Monad((>>), (>>=), return), MonadPlus(), sequence, sequence_, unless, when)
 import Control.Monad.IO.Class(liftIO)
 import Control.Monad.State(evalState, execState, mapState, runState, State, withState)
diff --git a/src/main/Misc.hs b/src/main/Misc.hs
--- a/src/main/Misc.hs
+++ b/src/main/Misc.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE NoImplicitPrelude #-}
 {-# OPTIONS_GHC -fno-warn-missing-import-lists #-}
-module Misc((|>), (&>), (&>=), (>>>), (>=>), (/#), asString, asPath, asText, showText, concat, error, fromEither, map, pam, (<&>), cartProduct, regexMatch, groupOn, return', scalaGroupBy, putStrFlush, traceLabel, unsafeRead, listDirsRecursively, uncurry5) where
+module Misc((|>), (&>), (&>=), (>>>), (>=>), (/#), aempty, asString, asPath, asText, showText, concat, error, fromEither, map, pam, (<&>), cartProduct, regexMatch, groupOn, return', scalaGroupBy, putStrFlush, traceLabel, unsafeRead, listDirsRecursively, uncurry5) where
 
 import External
 
@@ -8,6 +8,7 @@
 
 import GHC.Real(Fractional((/)), realToFrac)
 
+import qualified Control.Applicative   as Apply
 import qualified Control.Arrow         as CArrow
 import qualified Control.Monad         as CMonad
 import qualified Data.Either           as Either
@@ -38,6 +39,9 @@
 
 infixl 2 >>>, >=>
 infixl 1 |>
+
+aempty :: Apply.Alternative f => f a
+aempty = Apply.empty
 
 asString :: Text -> String
 asString = Text.unpack