diff --git a/library/THLego/Helpers.hs b/library/THLego/Helpers.hs
--- a/library/THLego/Helpers.hs
+++ b/library/THLego/Helpers.hs
@@ -2,7 +2,7 @@
 where
 
 import THLego.Prelude
-import Language.Haskell.TH
+import Language.Haskell.TH.Syntax
 import qualified TemplateHaskell.Compat.V0208 as Compat
 import qualified Data.Text as Text
 
@@ -106,6 +106,10 @@
     [a] -> a
     a -> appliedTupleE a
 
+nameString :: Name -> String
+nameString (Name (OccName x) _) =
+  x
+
 decimalIndexName :: Int -> Name
 decimalIndexName =
   mkName . showChar '_' . show
@@ -147,3 +151,25 @@
 eqConstraintT :: Name -> Type -> Type
 eqConstraintT name =
   AppT (AppT EqualityT (VarT name))
+
+
+-- *
+-------------------------
+
+applicativeChainE :: Exp -> [Exp] -> Exp
+applicativeChainE mappingE apEList =
+  case apEList of
+    h : t ->
+      intersperseInfixE
+        (VarE '(<*>))
+        (InfixE (Just mappingE) (VarE '(<$>)) (Just h) :| t)
+    _ ->
+      mappingE
+
+intersperseInfixE :: Exp -> NonEmpty Exp -> Exp
+intersperseInfixE op =
+  foldl1 (\ l r -> InfixE (Just l) op (Just r))
+
+textLitE :: Text -> Exp
+textLitE =
+  LitE . StringL . Text.unpack
diff --git a/th-lego.cabal b/th-lego.cabal
--- a/th-lego.cabal
+++ b/th-lego.cabal
@@ -1,5 +1,5 @@
 name: th-lego
-version: 0.2.2
+version: 0.2.3
 synopsis: Template Haskell construction utilities
 description:
   A collection of templates for the typical patterns appearing