2018-05-17 18:39:00

26 files changed, 1357 insertions, 601 deletions

diff --git a/tex/context/base/mkii/cont-new.mkii b/tex/context/base/mkii/cont-new.mkii
index 16b089e82..2755bb353 100644
--- a/tex/context/base/mkii/cont-new.mkii
+++ b/tex/context/base/mkii/cont-new.mkii
@@ -11,7 +11,7 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2018.05.12 00:07}
+\newcontextversion{2018.05.17 18:32}
 
 %D This file is loaded at runtime, thereby providing an
 %D excellent place for hacks, patches, extensions and new
diff --git a/tex/context/base/mkii/context.mkii b/tex/context/base/mkii/context.mkii
index d37888100..4da8bf733 100644
--- a/tex/context/base/mkii/context.mkii
+++ b/tex/context/base/mkii/context.mkii
@@ -20,7 +20,7 @@
 %D your styles an modules.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2018.05.12 00:07}
+\edef\contextversion{2018.05.17 18:32}
 
 %D For those who want to use this:
 
diff --git a/tex/context/base/mkiv/chem-str.mkiv b/tex/context/base/mkiv/chem-str.mkiv
index 646cf13f1..71b104e47 100644
--- a/tex/context/base/mkiv/chem-str.mkiv
+++ b/tex/context/base/mkiv/chem-str.mkiv
@@ -650,18 +650,18 @@
      \chem_formula_bot_nop
    \fi\fi
    \ifcsname\??chemicalsymbol d:\detokenize{#1}\endcsname
-     \t_chem_mid\expandafter{\the\t_chem_mid\chemicalsymbol[d:#1]\aligntab}%
+     \toksapp\t_chem_mid{\chemicalsymbol[d:#1]\aligntab}%
    \else
-     \t_chem_mid\expandafter{\the\t_chem_mid\molecule{#1}\aligntab}%
+     \toksapp\t_chem_mid{\molecule{#1}\aligntab}%
    \fi}
 
 \def\chem_formula_mid#1%
   {\csname\??chemicalsymbol\detokenize{#1}\endcsname}
 
-\def\chem_formula_top_nop  {\t_chem_top\expandafter{\the\t_chem_top\aligntab}}
-\def\chem_formula_bot_nop  {\t_chem_bot\expandafter{\the\t_chem_bot\aligntab}}
-\def\chem_formula_top_yes#1{\t_chem_top\expandafter{\the\t_chem_top\chem_formula_top_indeed{#1}\aligntab}\settrue\c_chem_has_top}
-\def\chem_formula_bot_yes#1{\t_chem_bot\expandafter{\the\t_chem_bot\chem_formula_bot_indeed{#1}\aligntab}\settrue\c_chem_has_bot}
+\def\chem_formula_top_nop  {\toksapp\t_chem_top{\aligntab}}
+\def\chem_formula_bot_nop  {\toksapp\t_chem_bot{\aligntab}}
+\def\chem_formula_top_yes#1{\toksapp\t_chem_top{\chem_formula_top_indeed{#1}\aligntab}\settrue\c_chem_has_top}
+\def\chem_formula_bot_yes#1{\toksapp\t_chem_bot{\chem_formula_bot_indeed{#1}\aligntab}\settrue\c_chem_has_bot}
 
 \def\chem_formula_top_indeed#1{\strut#1}
 \def\chem_formula_bot_indeed#1{\strut#1}
diff --git a/tex/context/base/mkiv/cont-new.mkiv b/tex/context/base/mkiv/cont-new.mkiv
index 105bd1ccf..96d10f671 100644
--- a/tex/context/base/mkiv/cont-new.mkiv
+++ b/tex/context/base/mkiv/cont-new.mkiv
@@ -11,13 +11,17 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2018.05.12 00:07}
+\newcontextversion{2018.05.17 18:32}
 
 %D This file is loaded at runtime, thereby providing an excellent place for
 %D hacks, patches, extensions and new features.
 
 \unprotect
 
-% \writestatus\m!system{beware: some patches loaded from cont-new.mkiv}
+\writestatus\m!system{beware: some patches loaded from cont-new.mkiv}
+
+\ifnum\texenginefunctionality<6753\else
+    \mathrulethicknessmode\zerocount
+\fi
 
 \protect \endinput
diff --git a/tex/context/base/mkiv/context.mkiv b/tex/context/base/mkiv/context.mkiv
index 1d44fefd0..90cd02142 100644
--- a/tex/context/base/mkiv/context.mkiv
+++ b/tex/context/base/mkiv/context.mkiv
@@ -42,7 +42,7 @@
 %D has to match \type {YYYY.MM.DD HH:MM} format.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2018.05.12 00:07}
+\edef\contextversion{2018.05.17 18:32}
 \edef\contextkind   {beta}
 
 %D For those who want to use this:
diff --git a/tex/context/base/mkiv/font-emp.mkvi b/tex/context/base/mkiv/font-emp.mkvi
index 1b6d46798..b5c09d4c2 100644
--- a/tex/context/base/mkiv/font-emp.mkvi
+++ b/tex/context/base/mkiv/font-emp.mkvi
@@ -227,12 +227,22 @@
 %D their style as good as possible. These macros are obsolete
 %D in \MKIV.
 
-\unexpanded\def\emphbf{\groupedcommand{\bf\def\emphit{\bi}\def\emphsl{\bs}}{}}
-\unexpanded\def\emphit{\groupedcommand{\it\def\emphbf{\bi}\def\emphsl{\sl}}{}}
-\unexpanded\def\emphsl{\groupedcommand{\sl\def\emphbf{\bs}\def\emphit{\it}}{}}
-\unexpanded\def\emphtf{\groupedcommand{\tf\def\emphbf{\bf}\def\emphit{\it}\def\emphsl{\sl}}{}}
-
-\unexpanded\def\emph  {\groupedcommand{\em}{}}
+% \unexpanded\def\emphbf{\groupedcommand{\bf\def\emphit{\bi}\def\emphsl{\bs}}{}}
+% \unexpanded\def\emphit{\groupedcommand{\it\def\emphbf{\bi}\def\emphsl{\sl}}{}}
+% \unexpanded\def\emphsl{\groupedcommand{\sl\def\emphbf{\bs}\def\emphit{\it}}{}}
+% \unexpanded\def\emphtf{\groupedcommand{\tf\def\emphbf{\bf}\def\emphit{\it}\def\emphsl{\sl}}{}}
+% \unexpanded\def\emph  {\groupedcommand{\em}{}}
+
+\unexpanded\def\font_emphasis_bf{\bf\def\emphit{\bi}\def\emphsl{\bs}}
+\unexpanded\def\font_emphasis_it{\it\def\emphbf{\bi}\def\emphsl{\sl}}
+\unexpanded\def\font_emphasis_sl{\sl\def\emphbf{\bs}\def\emphit{\it}}
+\unexpanded\def\font_emphasis_tf{\tf\def\emphbf{\bf}\def\emphit{\it}\def\emphsl{\sl}}
+
+\unexpanded\def\emphbf{\triggergroupedcommandcs\font_emphasis_bf}
+\unexpanded\def\emphit{\triggergroupedcommandcs\font_emphasis_it}
+\unexpanded\def\emphsl{\triggergroupedcommandcs\font_emphasis_sl}
+\unexpanded\def\emphtf{\triggergroupedcommandcs\font_emphasis_tf}
+\unexpanded\def\emph  {\triggergroupedcommandcs\em}
 
 \unexpanded\def\emphasized{\bgroup\em\let\nexttoken}
 
diff --git a/tex/context/base/mkiv/font-ini.mkvi b/tex/context/base/mkiv/font-ini.mkvi
index f81d751f3..703181571 100644
--- a/tex/context/base/mkiv/font-ini.mkvi
+++ b/tex/context/base/mkiv/font-ini.mkvi
@@ -583,7 +583,7 @@
 \def\font_basics_define_fontstyle[#commands][#style]% style: rm ss tt ...
   {\ifcsname\??fontstyleknown#style\endcsname \else % can be delayed till used (cg, hw)
      \font_helpers_register_style{#style}%
-     % todo: apptoks
+     % todo: toksapp
      \t_font_style_commands\expandafter{\the\t_font_style_commands\m_font_style_command{#style}}%
    \fi
    \processcommalist[#commands]{\font_basics_define_fontstyle_indeed{#style}}}
@@ -603,7 +603,7 @@
 \unexpanded\def\definefontalternative[#alternative]%
   {\ifcsname\??fontalternativeknown#alternative\endcsname \else
      \font_helpers_register_alternative{#alternative}%
-     % todo: apptoks
+     % todo: toksapp
      \t_font_alternative_commands\expandafter{\the\t_font_alternative_commands
        \m_font_alternative_command{#alternative}}%
    \fi
diff --git a/tex/context/base/mkiv/font-sty.mkvi b/tex/context/base/mkiv/font-sty.mkvi
index 2d00c5ec8..8200aa957 100644
--- a/tex/context/base/mkiv/font-sty.mkvi
+++ b/tex/context/base/mkiv/font-sty.mkvi
@@ -59,17 +59,17 @@
 \newconstant\c_fonts_basics_alternative_style_method
 
 \def\font_basics_define_alternative_style_indeed#variantone#varianttwo#command%
-  {\setvalue{\??alternativestyle#command}{\font_helpers_apply_alternative_style{#variantone}{#varianttwo}}%
+  {\setuvalue{\??alternativestyle#command}{\font_helpers_apply_alternative_style{#variantone}{#varianttwo}}%
    \ifcsname#command\endcsname
      % no redefinition
    \else\ifnum\c_fonts_basics_alternative_style_method=\plusone
       \ifthirdargument
-        \setuevalue{#command}{\groupedcommand{\expandafter\noexpand\begincsname\??alternativestyle#command\endcsname}{}}%
+        \setuevalue{#command}{\triggergroupedcommandcs\begincsname\??alternativestyle#command\endcsname}%
       \else
-        \setuvalue{#command}{\groupedcommand{#variantone}{}}%
+        \setuvalue{#command}{\triggergroupedcommand{#variantone}}%
       \fi
    \else
-     \setuvalue{#command}{\groupedcommand{#variantone}{}}%
+     \setuvalue{#command}{\triggergroupedcommand{#variantone}}%
    \fi\fi}
 
 \def\font_helpers_apply_alternative_style
@@ -279,17 +279,26 @@
      \fi\fi
    \endcsname{#name}}
 
+% \setvalue{\??styleargument1}#name%
+%   {\groupedcommand{\begincsname#name\endcsname}{}}
+
 \setvalue{\??styleargument1}#name%
-  {\groupedcommand{\csname#name\endcsname}{}}
+  {\expandafter\triggergroupedcommandcs\begincsname#name\endcsname}
+
+% \setvalue{\??styleargument2}#name%
+%   {\groupedcommand{\font_styles_use_defined{#name}}{}} % or {\font_styles_apply_grouped{#name}}
 
 \setvalue{\??styleargument2}#name%
-  {\groupedcommand{\font_styles_use_defined{#name}}{}} % or {\font_styles_apply_grouped{#name}}
+  {\triggergroupedcommand{\font_styles_use_defined{#name}}} % or {\font_styles_apply_grouped{#name}}
 
 \setvalue{\??styleargument3}#specification%
   {\doifelseassignment{#specification}\font_styles_assignment\font_styles_direct{#specification}}
 
-\def\font_styles_assignment#specification{\groupedcommand{\font_styles_use_generic{#specification}}{}}
-\def\font_styles_direct    #specification{\groupedcommand{\definedfont[#specification]}{}}
+% \def\font_styles_assignment#specification{\groupedcommand{\font_styles_use_generic{#specification}}{}}
+% \def\font_styles_direct    #specification{\groupedcommand{\definedfont[#specification]}{}}
+
+\def\font_styles_assignment#specification{\triggergroupedcommand{\font_styles_use_generic{#specification}}}
+\def\font_styles_direct    #specification{\triggergroupedcommand{\definedfont[#specification]}}
 
 % environments
 
diff --git a/tex/context/base/mkiv/math-frc.lua b/tex/context/base/mkiv/math-frc.lua
index 5c4879527..190c36410 100644
--- a/tex/context/base/mkiv/math-frc.lua
+++ b/tex/context/base/mkiv/math-frc.lua
@@ -28,8 +28,8 @@ end)
 local ctx_normalatop = context.normalatop
 local ctx_normalover = context.normalover
 
-local function mathfraction(how,left,right,width) -- of course we could use the scanners directly here which
-    if how == v_no then                           -- is faster but also less abstract ... maybe some day
+local function mathfraction(how,left,right,width)
+    if how == v_no then
         if left == 0x002E and right == 0x002E then
             ctx_normalatop()
         else
diff --git a/tex/context/base/mkiv/mult-aux.mkiv b/tex/context/base/mkiv/mult-aux.mkiv
index 9ba09af41..bb716c1d4 100644
--- a/tex/context/base/mkiv/mult-aux.mkiv
+++ b/tex/context/base/mkiv/mult-aux.mkiv
@@ -1055,176 +1055,176 @@
 \def\s!double{double}
 \def\s!triple{triple}
 
-\unexpanded\def\syst_helpers_double_empty#1#2#3%
-  {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\syst_helpers_double_empty_one_yes_mult#2#3}%
-     {\syst_helpers_double_empty_one_nop_mult#1}}
-
-\def\syst_helpers_double_empty_one_yes_mult#1#2[#3]%
-  {\firstargumenttrue
-   \doifelsenextoptional
-     {\secondargumenttrue#2[{#3}]}%
-     {\syst_helpers_double_empty_two_nop_mult#1{#3}}}
-
-\def\syst_helpers_double_empty_one_nop_mult% #1%
-  {\firstargumentfalse
-   \secondargumentfalse
-   }% #1}
-
-\def\syst_helpers_double_empty_two_nop_mult
-  {\secondargumentfalse
-   \if_next_blank_space_token
-     \expandafter\syst_helpers_double_empty_one_spaced_mult
-   \else
-     \expandafter\syst_helpers_double_empty_one_normal_mult
-   \fi}
-
-\def\syst_helpers_double_empty_one_spaced_mult#1#2{#1[{#2}] }
-\def\syst_helpers_double_empty_one_normal_mult#1#2{#1[{#2}]}
-
-\unexpanded\def\mult_interfaces_install_setup_handler#1#2#3#4#5#6#7#8%
-  {\ifx#3\relax\let#3\empty\fi
-   \unexpanded\def#5{\mult_interfaces_get_parameters{#1#3:}}% no every ! don't change it
-   \newtoks#4%
-   \newtoks#7%
-   \edef\m_mult_interface_setup{\csstring#2_}%
-   \unexpanded\edef#2{\syst_helpers_double_empty
-     \csname\m_mult_interface_setup\s!simple\endcsname
-     \csname\m_mult_interface_setup\s!single\endcsname
-     \csname\m_mult_interface_setup\s!double\endcsname}%
-   \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!double\endcsname[##1][##2]%
-     {\let#6#3%
-      \def#8####1% we will have a simple one as well
-        {\edef#3{####1}%
-         \mult_interfaces_get_parameters{#1#3:}[##2]%
-         \the#4}%
-      \processcommalist[##1]#8%
-      \let#3#6%
-      \the#7}%
-   \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!single\endcsname[##1]%
-     {\let#6#3%
-      \let#3\empty
-      \mult_interfaces_get_parameters{#1:}[##1]%
-      \the#4%
-      \let#3#6%
-      \the#7}%
-   \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!simple\endcsname%
-     {\let#6#3%
-      \let#3\empty
-      \the#4%
-      \let#3#6%
-      \the#7}}
-
-\unexpanded\def\installsetuphandler#1#2%
-  {\normalexpanded
-     {\mult_interfaces_install_setup_handler
-        {\noexpand#1}% \??aa
-        \expandafter\noexpand\csname setup#2\endcsname
-        \expandafter\noexpand\csname current#2\endcsname
-        \expandafter\noexpand\csname everysetup#2\endcsname
-        \expandafter\noexpand\csname setupcurrent#2\endcsname
-        \expandafter\noexpand\csname saved_setup_current#2\endcsname
-        \expandafter\noexpand\csname everysetup#2root\endcsname
-        \expandafter\noexpand\csname nested_setup_current#2\endcsname}}
-
-\unexpanded\def\syst_helpers_triple_empty#1#2#3#4%
-  {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\syst_helpers_triple_empty_one_yes_mult#2#3#4}%
-     {\syst_helpers_triple_empty_one_nop_mult#1}}
-
-\def\syst_helpers_triple_empty_one_yes_mult#1#2#3[#4]%
-  {\firstargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_triple_empty_two_yes_mult#2#3{#4}}%
-     {\syst_helpers_triple_empty_two_nop_mult#1{#4}}}
-
-\def\syst_helpers_triple_empty_two_yes_mult#1#2#3[#4]%
-  {\secondargumenttrue
-   \doifelsenextoptional
-     {\thirdargumenttrue#2[{#3}][{#4}]}%
-     {\syst_helpers_triple_empty_three_nop_mult#1{#3}{#4}}}
-
-\def\syst_helpers_triple_empty_one_nop_mult % #1%
-  {\firstargumentfalse
-   \secondargumentfalse
-   \thirdargumentfalse
-   } % #1
-
-\def\syst_helpers_triple_empty_two_nop_mult
-  {\secondargumentfalse
-   \thirdargumentfalse
-   \if_next_blank_space_token
-     \expandafter\syst_helpers_triple_empty_two_spaced_mult
-   \else
-     \expandafter\syst_helpers_triple_empty_two_normal_mult
-   \fi}
-
-\def\syst_helpers_triple_empty_three_nop_mult
-  {\thirdargumentfalse
-   \if_next_blank_space_token
-     \expandafter\syst_helpers_triple_empty_three_spaced_mult
-   \else
-     \expandafter\syst_helpers_triple_empty_three_normal_mult
-   \fi}
-
-\def\syst_helpers_triple_empty_two_spaced_mult  #1#2{#1[{#2}] }
-\def\syst_helpers_triple_empty_two_normal_mult  #1#2{#1[{#2}]}
-\def\syst_helpers_triple_empty_three_spaced_mult#1#2#3{#1[{#2}][{#3}] }
-\def\syst_helpers_triple_empty_three_normal_mult#1#2#3{#1[{#2}][{#3}]}
-
-\unexpanded\def\mult_interfaces_install_auto_setup_handler#1#2#3#4#5#6#7#8%
-  {\ifx#3\relax\let#3\empty\fi
-   \unexpanded\def#5{\mult_interfaces_get_parameters{#1#3:}}%
-   \newtoks#4%
-   \edef\m_mult_interface_setup{\csstring#2_}%
-   \unexpanded\edef#2{\syst_helpers_triple_empty
-     \csname\m_mult_interface_setup\s!simple\endcsname
-     \csname\m_mult_interface_setup\s!single\endcsname
-     \csname\m_mult_interface_setup\s!double\endcsname
-     \csname\m_mult_interface_setup\s!triple\endcsname}%
-   \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!triple\endcsname[##1][##2][##3]%
-     {\let#7#3%
-      \def#8####1%
-        {\edef#3{####1}%
-         \expandafter\def\csname#1#3:\s!parent\endcsname{#1##2}%
-         \mult_interfaces_get_parameters{#1#3:}[##3]% always sets parent
-         \the#4}%
-      \processcommalist[##1]#8%
-      \let#3#7}%
-   \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!double\endcsname[##1][##2]%
-     {\let#7#3%
-      \def#8####1%
-        {\edef#3{####1}%
-         #6% checks parent and sets if needed
-         \mult_interfaces_get_parameters{#1#3:}[##2]%
-         \the#4}%
-      \processcommalist[##1]#8%
-      \let#3#7}%
-   \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!single\endcsname[##1]%
-     {\let#7#3%
-      \let#3\empty
-      \mult_interfaces_get_parameters{#1:}[##1]%
-      \the#4%
-      \let#3#7}%
-   \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!simple\endcsname%
-     {\let#7#3%
-      \let#3\empty
-      \the#4%
-      \let#3#7}}
-
-\unexpanded\def\installautosetuphandler#1#2%
-  {\normalexpanded
-     {\mult_interfaces_install_auto_setup_handler
-        {\noexpand#1}% \??aa
-        \expandafter\noexpand\csname setup#2\endcsname
-        \expandafter\noexpand\csname current#2\endcsname
-        \expandafter\noexpand\csname everysetup#2\endcsname
-        \expandafter\noexpand\csname setupcurrent#2\endcsname
-        \expandafter\noexpand\csname check#2parent\endcsname
-        \expandafter\noexpand\csname saved_setup_current#2\endcsname
-        \expandafter\noexpand\csname nested_setup_current#2\endcsname}}
+% \unexpanded\def\syst_helpers_double_empty#1#2#3%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\syst_helpers_double_empty_one_yes_mult#2#3}%
+%      {\syst_helpers_double_empty_one_nop_mult#1}}
+%
+% \def\syst_helpers_double_empty_one_yes_mult#1#2[#3]%
+%   {\firstargumenttrue
+%    \doifelsenextoptional
+%      {\secondargumenttrue#2[{#3}]}%
+%      {\syst_helpers_double_empty_two_nop_mult#1{#3}}}
+%
+% \def\syst_helpers_double_empty_one_nop_mult% #1%
+%   {\firstargumentfalse
+%    \secondargumentfalse
+%    }% #1}
+%
+% \def\syst_helpers_double_empty_two_nop_mult
+%   {\secondargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_double_empty_one_spaced_mult
+%    \else
+%      \expandafter\syst_helpers_double_empty_one_normal_mult
+%    \fi}
+%
+% \def\syst_helpers_double_empty_one_spaced_mult#1#2{#1[{#2}] }
+% \def\syst_helpers_double_empty_one_normal_mult#1#2{#1[{#2}]}
+%
+% \unexpanded\def\mult_interfaces_install_setup_handler#1#2#3#4#5#6#7#8%
+%   {\ifx#3\relax\let#3\empty\fi
+%    \unexpanded\def#5{\mult_interfaces_get_parameters{#1#3:}}% no every ! don't change it
+%    \newtoks#4%
+%    \newtoks#7%
+%    \edef\m_mult_interface_setup{\csstring#2_}%
+%    \unexpanded\edef#2{\syst_helpers_double_empty
+%      \csname\m_mult_interface_setup\s!simple\endcsname
+%      \csname\m_mult_interface_setup\s!single\endcsname
+%      \csname\m_mult_interface_setup\s!double\endcsname}%
+%    \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!double\endcsname[##1][##2]%
+%      {\let#6#3%
+%       \def#8####1% we will have a simple one as well
+%         {\edef#3{####1}%
+%          \mult_interfaces_get_parameters{#1#3:}[##2]%
+%          \the#4}%
+%       \processcommalist[##1]#8%
+%       \let#3#6%
+%       \the#7}%
+%    \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!single\endcsname[##1]%
+%      {\let#6#3%
+%       \let#3\empty
+%       \mult_interfaces_get_parameters{#1:}[##1]%
+%       \the#4%
+%       \let#3#6%
+%       \the#7}%
+%    \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!simple\endcsname%
+%      {\let#6#3%
+%       \let#3\empty
+%       \the#4%
+%       \let#3#6%
+%       \the#7}}
+
+% \unexpanded\def\installsetuphandler#1#2%
+%   {\normalexpanded
+%      {\mult_interfaces_install_setup_handler
+%         {\noexpand#1}% \??aa
+%         \expandafter\noexpand\csname setup#2\endcsname
+%         \expandafter\noexpand\csname current#2\endcsname
+%         \expandafter\noexpand\csname everysetup#2\endcsname
+%         \expandafter\noexpand\csname setupcurrent#2\endcsname
+%         \expandafter\noexpand\csname saved_setup_current#2\endcsname
+%         \expandafter\noexpand\csname everysetup#2root\endcsname
+%         \expandafter\noexpand\csname nested_setup_current#2\endcsname}}
+%
+% \unexpanded\def\syst_helpers_triple_empty#1#2#3#4%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\syst_helpers_triple_empty_one_yes_mult#2#3#4}%
+%      {\syst_helpers_triple_empty_one_nop_mult#1}}
+%
+% \def\syst_helpers_triple_empty_one_yes_mult#1#2#3[#4]%
+%   {\firstargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_triple_empty_two_yes_mult#2#3{#4}}%
+%      {\syst_helpers_triple_empty_two_nop_mult#1{#4}}}
+%
+% \def\syst_helpers_triple_empty_two_yes_mult#1#2#3[#4]%
+%   {\secondargumenttrue
+%    \doifelsenextoptional
+%      {\thirdargumenttrue#2[{#3}][{#4}]}%
+%      {\syst_helpers_triple_empty_three_nop_mult#1{#3}{#4}}}
+%
+% \def\syst_helpers_triple_empty_one_nop_mult % #1%
+%   {\firstargumentfalse
+%    \secondargumentfalse
+%    \thirdargumentfalse
+%    } % #1
+%
+% \def\syst_helpers_triple_empty_two_nop_mult
+%   {\secondargumentfalse
+%    \thirdargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_triple_empty_two_spaced_mult
+%    \else
+%      \expandafter\syst_helpers_triple_empty_two_normal_mult
+%    \fi}
+%
+% \def\syst_helpers_triple_empty_three_nop_mult
+%   {\thirdargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_triple_empty_three_spaced_mult
+%    \else
+%      \expandafter\syst_helpers_triple_empty_three_normal_mult
+%    \fi}
+%
+% \def\syst_helpers_triple_empty_two_spaced_mult    #1#2{#1[{#2}] }
+% \def\syst_helpers_triple_empty_two_normal_mult    #1#2{#1[{#2}]}
+% \def\syst_helpers_triple_empty_three_spaced_mult#1#2#3{#1[{#2}][{#3}] }
+% \def\syst_helpers_triple_empty_three_normal_mult#1#2#3{#1[{#2}][{#3}]}
+%
+% \unexpanded\def\mult_interfaces_install_auto_setup_handler#1#2#3#4#5#6#7#8%
+%   {\ifx#3\relax\let#3\empty\fi
+%    \unexpanded\def#5{\mult_interfaces_get_parameters{#1#3:}}%
+%    \newtoks#4%
+%    \edef\m_mult_interface_setup{\csstring#2_}%
+%    \unexpanded\edef#2{\syst_helpers_triple_empty
+%      \csname\m_mult_interface_setup\s!simple\endcsname
+%      \csname\m_mult_interface_setup\s!single\endcsname
+%      \csname\m_mult_interface_setup\s!double\endcsname
+%      \csname\m_mult_interface_setup\s!triple\endcsname}%
+%    \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!triple\endcsname[##1][##2][##3]%
+%      {\let#7#3%
+%       \def#8####1%
+%         {\edef#3{####1}%
+%          \expandafter\def\csname#1#3:\s!parent\endcsname{#1##2}%
+%          \mult_interfaces_get_parameters{#1#3:}[##3]% always sets parent
+%          \the#4}%
+%       \processcommalist[##1]#8%
+%       \let#3#7}%
+%    \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!double\endcsname[##1][##2]%
+%      {\let#7#3%
+%       \def#8####1%
+%         {\edef#3{####1}%
+%          #6% checks parent and sets if needed
+%          \mult_interfaces_get_parameters{#1#3:}[##2]%
+%          \the#4}%
+%       \processcommalist[##1]#8%
+%       \let#3#7}%
+%    \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!single\endcsname[##1]%
+%      {\let#7#3%
+%       \let#3\empty
+%       \mult_interfaces_get_parameters{#1:}[##1]%
+%       \the#4%
+%       \let#3#7}%
+%    \unexpanded\expandafter\def\csname\m_mult_interface_setup\s!simple\endcsname%
+%      {\let#7#3%
+%       \let#3\empty
+%       \the#4%
+%       \let#3#7}}
+%
+% \unexpanded\def\installautosetuphandler#1#2%
+%   {\normalexpanded
+%      {\mult_interfaces_install_auto_setup_handler
+%         {\noexpand#1}% \??aa
+%         \expandafter\noexpand\csname setup#2\endcsname
+%         \expandafter\noexpand\csname current#2\endcsname
+%         \expandafter\noexpand\csname everysetup#2\endcsname
+%         \expandafter\noexpand\csname setupcurrent#2\endcsname
+%         \expandafter\noexpand\csname check#2parent\endcsname
+%         \expandafter\noexpand\csname saved_setup_current#2\endcsname
+%         \expandafter\noexpand\csname nested_setup_current#2\endcsname}}
 
 % okay, we can also get rid of the #9, but this code looks pretty bad, while the previous is
 % still okay given that we can also use #6 as setup (so in fact we can save some cs again and
@@ -1286,9 +1286,11 @@
      {\dodoubleempty#7}%
    \unexpanded\def#7[##1][##2]%
      {\ifsecondargument
-        #3\c_mult_set\expandafter{\the\c_mult_set#9[##1][##2]}%
+       %#3\c_mult_set\expandafter{\the\c_mult_set#9[##1][##2]}%
+        #3\toksapp\c_mult_set{#9[##1][##2]}%
       \else\iffirstargument
-        #3\c_mult_set\expandafter{\the\c_mult_set#8[##1]}%
+       %#3\c_mult_set\expandafter{\the\c_mult_set#8[##1]}%
+        #3\toksapp\c_mult_set{#8[##1]}%
       \fi\fi}}
 
 \unexpanded\def\installdefinitionsetmember#1#2#3#4%
diff --git a/tex/context/base/mkiv/mult-low.lua b/tex/context/base/mkiv/mult-low.lua
index f425f3a32..ddcc690e3 100644
--- a/tex/context/base/mkiv/mult-low.lua
+++ b/tex/context/base/mkiv/mult-low.lua
@@ -173,8 +173,9 @@ return {
         "secondargumentfalse", "secondargumenttrue",
         "thirdargumentfalse", "thirdargumenttrue",
         "fourthargumentfalse", "fourthargumenttrue",
-        "fifthargumentfalse", "fifthsargumenttrue",
-        "sixthargumentfalse", "sixtsargumenttrue",
+        "fifthargumentfalse", "fifthargumenttrue",
+        "sixthargumentfalse", "sixthargumenttrue",
+        "seventhargumentfalse", "seventhargumenttrue",
         --
         "doglobal", "dodoglobal", "redoglobal", "resetglobal",
         --
@@ -216,10 +217,16 @@ return {
         "scratchtoks", "globalscratchtoks", "privatescratchtoks",
         "scratchbox", "globalscratchbox", "privatescratchbox",
         --
+        "groupedcommand", "groupedcommandcs",
+        "triggergroupedcommand", "triggergroupedcommandcs",
+        "simplegroupedcommand", "pickupgroupedcommand",
+        --
         "normalbaselineskip", "normallineskip", "normallineskiplimit",
         --
         "availablehsize", "localhsize", "setlocalhsize", "distributedhsize", "hsizefraction",
         --
+        "next", "nexttoken",
+        --
         "nextbox", "dowithnextbox", "dowithnextboxcs", "dowithnextboxcontent", "dowithnextboxcontentcs", "flushnextbox",
         --
         "scratchwidth", "scratchheight", "scratchdepth", "scratchoffset", "scratchdistance",
diff --git a/tex/context/base/mkiv/mult-prm.lua b/tex/context/base/mkiv/mult-prm.lua
index 1bf5bb526..4d067f432 100644
--- a/tex/context/base/mkiv/mult-prm.lua
+++ b/tex/context/base/mkiv/mult-prm.lua
@@ -244,6 +244,8 @@ return {
   "efcode",
   "etoksapp",
   "etokspre",
+  "xtoksapp",
+  "xtokspre",
   "exceptionpenalty",
   "expanded",
   "expandglyphsinfont",
@@ -363,6 +365,8 @@ return {
   "textdirection",
   "toksapp",
   "tokspre",
+  "gtoksapp",
+  "gtokspre",
   "tracingfonts",
   "uniformdeviate",
   "useboxresource",
diff --git a/tex/context/base/mkiv/node-ini.lua b/tex/context/base/mkiv/node-ini.lua
index 50da140ce..2fa679030 100644
--- a/tex/context/base/mkiv/node-ini.lua
+++ b/tex/context/base/mkiv/node-ini.lua
@@ -107,13 +107,13 @@ dircodes = allocate {
     [1] = "cancel",
 }
 
+
 -- local glyphcodes = allocate {
---     [0] = "character",
---     [1] = "glyph",
---     [2] = "ligature",
---     [3] = "ghost",
---     [4] = "left",
---     [5] = "right",
+--     [ 1] = "character",
+--     [ 2] = "ligature",
+--     [ 4] = "ghost",
+--     [ 8] = "left",
+--     [16] = "right",
 -- }
 
 local glyphcodes = mark(getsubtypes("glyph"))
@@ -358,39 +358,41 @@ dirvalues        = allocate(swapped(dirvalues,dirvalues))
 gluevalues       = allocate(swapped(gluevalues,gluevalues))
 pdfliteralvalues = allocate(swapped(pdfliteralvalues,pdfliteralvalues))
 
-nodes.gluecodes        = gluecodes
-nodes.dircodes         = dircodes
-nodes.boundarycodes    = boundarycodes
-nodes.noadcodes        = noadcodes
-nodes.nodecodes        = nodecodes
-nodes.whatcodes        = whatcodes
-nodes.listcodes        = listcodes
-nodes.glyphcodes       = glyphcodes
-nodes.kerncodes        = kerncodes
-nodes.penaltycodes     = penaltycodes
-nodes.mathcodes        = mathcodes
-nodes.fillcodes        = fillcodes
-nodes.margincodes      = margincodes
-nodes.disccodes        = disccodes
-nodes.accentcodes      = accentcodes
-nodes.radicalcodes     = radicalcodes
-nodes.fencecodes       = fencecodes
-nodes.rulecodes        = rulecodes
-nodes.leadercodes      = leadercodes
-nodes.usercodes        = usercodes
-nodes.noadoptions      = noadoptions
-nodes.dirvalues        = dirvalues
-nodes.gluevalues       = gluevalues
-nodes.pdfliteralvalues = pdfliteralvalues
-
-nodes.skipcodes          = gluecodes        -- more friendly
-nodes.directioncodes     = dircodes         -- more friendly
-nodes.whatsitcodes       = whatcodes        -- more official
-nodes.marginkerncodes    = margincodes
-nodes.discretionarycodes = disccodes
-nodes.directionvalues    = dirvalues        -- more friendly
-nodes.skipvalues         = gluevalues       -- more friendly
-nodes.literalvalues      = pdfliteralvalues -- more friendly
+nodes.gluecodes            = gluecodes
+nodes.dircodes             = dircodes
+nodes.boundarycodes        = boundarycodes
+nodes.noadcodes            = noadcodes
+nodes.nodecodes            = nodecodes
+nodes.whatcodes            = whatcodes
+nodes.listcodes            = listcodes
+nodes.glyphcodes           = glyphcodes
+nodes.kerncodes            = kerncodes
+nodes.penaltycodes         = penaltycodes
+nodes.mathcodes            = mathcodes
+nodes.fillcodes            = fillcodes
+nodes.margincodes          = margincodes
+nodes.disccodes            = disccodes
+nodes.accentcodes          = accentcodes
+nodes.radicalcodes         = radicalcodes
+nodes.fencecodes           = fencecodes
+nodes.rulecodes            = rulecodes
+nodes.leadercodes          = leadercodes
+nodes.usercodes            = usercodes
+nodes.noadoptions          = noadoptions
+nodes.dirvalues            = dirvalues
+nodes.gluevalues           = gluevalues
+nodes.pdfliteralvalues     = pdfliteralvalues
+
+nodes.skipcodes            = gluecodes        -- more friendly
+nodes.directioncodes       = dircodes         -- more friendly
+nodes.whatsitcodes         = whatcodes        -- more official
+nodes.marginkerncodes      = margincodes
+nodes.discretionarycodes   = disccodes
+nodes.directionvalues      = dirvalues        -- more friendly
+nodes.skipvalues           = gluevalues       -- more friendly
+nodes.literalvalues        = pdfliteralvalues -- more friendly
+
+glyphcodes.glyph           = glyphcodes.character
 
 listcodes.row              = listcodes.alignment
 listcodes.column           = listcodes.alignment
@@ -468,4 +470,3 @@ end
 if node.fix_node_lists then
     node.fix_node_lists(false)
 end
-
diff --git a/tex/context/base/mkiv/pack-com.mkiv b/tex/context/base/mkiv/pack-com.mkiv
index 59354208e..c7e613368 100644
--- a/tex/context/base/mkiv/pack-com.mkiv
+++ b/tex/context/base/mkiv/pack-com.mkiv
@@ -205,7 +205,7 @@
 %   {\bgroup
 %    \scratchtoks{{}}%
 %    \dorecurse\c_pack_combinations_y
-%      {\scratchtoks\expandafter{\the\scratchtoks{}{}}}%
+%      {\toksapp{{}{}}}%
 %    \expandafter\egroup\the\scratchtoks
 %    \egroup
 %    \dostoptagged
diff --git a/tex/context/base/mkiv/status-files.pdf b/tex/context/base/mkiv/status-files.pdf
index d2e9b687d..d147c9a94 100644
--- a/tex/context/base/mkiv/status-files.pdf
+++ b/tex/context/base/mkiv/status-files.pdf
diff --git a/tex/context/base/mkiv/status-lua.pdf b/tex/context/base/mkiv/status-lua.pdf
index 6cf05d9b4..cf702a8ea 100644
--- a/tex/context/base/mkiv/status-lua.pdf
+++ b/tex/context/base/mkiv/status-lua.pdf
diff --git a/tex/context/base/mkiv/strc-sec.mkiv b/tex/context/base/mkiv/strc-sec.mkiv
index b3e7e46f5..c96ec8a47 100644
--- a/tex/context/base/mkiv/strc-sec.mkiv
+++ b/tex/context/base/mkiv/strc-sec.mkiv
@@ -1006,6 +1006,26 @@
 \unexpanded\def\placerawheadtext  [#1]{\getspecificstructuretitle{\thenamedheadlevel{#1}}}
 \unexpanded\def\placerawheadnumber[#1]{\getfullstructurenumber{\thenamedheadlevel{#1}}}
 
+\unexpanded\def\repeathead[#1]%
+  {\begingroup
+   \setupinteraction[\c!state=\v!stop]%
+   \def\currenthead{#1}
+   \strc_sectioning_initialize_placement
+   \strc_sectioning_initialize_number
+   \dostarttagged\t!sectioncaption\empty
+   \let\getheadsyncs \relax
+   \def\getheadtitle {\getmarking[#1]}
+   \def\getheadnumber{\getmarking[#1\v!number]}
+   \strc_sectioning_before_yes
+   \ifconditional\headshownumber
+      \strc_rendering_place_head_number_and_text
+   \else
+      \strc_rendering_place_head_text
+   \fi
+   \dostoptagged
+   \strc_sectioning_after_yes
+   \endgroup}
+
 % \setuphead[chapter][placehead=hidden]
 % \chapter {test}
 %
diff --git a/tex/context/base/mkiv/syst-aux.mkiv b/tex/context/base/mkiv/syst-aux.mkiv
index 1b56cbd7c..7d27e8bde 100644
--- a/tex/context/base/mkiv/syst-aux.mkiv
+++ b/tex/context/base/mkiv/syst-aux.mkiv
@@ -2295,202 +2295,517 @@
 % \dotripleempty\test[]     xxx\par
 % \dotripleempty\test       xxx\par
 
+%D Common:
+
+\newtoks\t_syst_aux
+
+% \def\syst_helpers_empty_spaced_six  {\expandafter\m_syst_aux_do\the\t_syst_aux[][][][][][] }
+% \def\syst_helpers_empty_normal_six  {\expandafter\m_syst_aux_do\the\t_syst_aux[][][][][][]}
+% \def\syst_helpers_empty_spaced_five {\expandafter\m_syst_aux_do\the\t_syst_aux[][][][][] }
+% \def\syst_helpers_empty_normal_five {\expandafter\m_syst_aux_do\the\t_syst_aux[][][][][]}
+% \def\syst_helpers_empty_spaced_four {\expandafter\m_syst_aux_do\the\t_syst_aux[][][][] }
+% \def\syst_helpers_empty_normal_four {\expandafter\m_syst_aux_do\the\t_syst_aux[][][][]}
+% \def\syst_helpers_empty_spaced_three{\expandafter\m_syst_aux_do\the\t_syst_aux[][][] }
+% \def\syst_helpers_empty_normal_three{\expandafter\m_syst_aux_do\the\t_syst_aux[][][]}
+% \def\syst_helpers_empty_spaced_two  {\expandafter\m_syst_aux_do\the\t_syst_aux[][] }
+% \def\syst_helpers_empty_normal_two  {\expandafter\m_syst_aux_do\the\t_syst_aux[][]}
+% \def\syst_helpers_empty_spaced_one  {\expandafter\m_syst_aux_do\the\t_syst_aux[] }
+% \def\syst_helpers_empty_normal_one  {\expandafter\m_syst_aux_do\the\t_syst_aux[]}
+%
+% \def\syst_helpers_single_empty_one_yes      {\firstargumenttrue              \m_syst_aux_do}
+% \def\syst_helpers_double_empty_two_yes      {\secondargumenttrue \expandafter\m_syst_aux_do\the\t_syst_aux}
+% \def\syst_helpers_triple_empty_three_yes    {\thirdargumenttrue  \expandafter\m_syst_aux_do\the\t_syst_aux}
+% \def\syst_helpers_quadruple_empty_four_yes  {\fourthargumenttrue \expandafter\m_syst_aux_do\the\t_syst_aux}
+% \def\syst_helpers_quintuple_empty_five_yes  {\fifthargumenttrue  \expandafter\m_syst_aux_do\the\t_syst_aux}
+% \def\syst_helpers_sixtuple_empty_six_yes    {\sixthargumenttrue  \expandafter\m_syst_aux_do\the\t_syst_aux}
+% \def\syst_helpers_seventuple_empty_seven_yes{\seventhargumenttrue\expandafter\m_syst_aux_do\the\t_syst_aux}
+%
+% with
+%
+% \unexpanded\def\dodoubleempty#1%
+%   {\syst_helpers_argument_reset
+%    \let\m_syst_aux_do#1% alias
+%    \let\m_syst_action_yes\syst_helpers_double_empty_one_yes
+%    \let\m_syst_action_nop\syst_helpers_double_empty_one_nop
+%    \let\if_next_blank_space_token\iffalse
+%    \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
+%
+% \def\syst_helpers_double_empty_one_yes[#1]%
+%   {\firstargumenttrue
+%    \t_syst_aux{[{#1}]}% assignment
+%    \let\m_syst_action_yes\syst_helpers_double_empty_two_yes
+%    \let\m_syst_action_nop\syst_helpers_double_empty_two_nop
+%    \let\if_next_blank_space_token\iffalse
+%    \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
+%
+% But we use this as it keeps the original name visible:
+
+\def\syst_helpers_empty_spaced_six  {\the\t_syst_aux[][][][][][] }
+\def\syst_helpers_empty_normal_six  {\the\t_syst_aux[][][][][][]}
+\def\syst_helpers_empty_spaced_five {\the\t_syst_aux[][][][][] }
+\def\syst_helpers_empty_normal_five {\the\t_syst_aux[][][][][]}
+\def\syst_helpers_empty_spaced_four {\the\t_syst_aux[][][][] }
+\def\syst_helpers_empty_normal_four {\the\t_syst_aux[][][][]}
+\def\syst_helpers_empty_spaced_three{\the\t_syst_aux[][][] }
+\def\syst_helpers_empty_normal_three{\the\t_syst_aux[][][]}
+\def\syst_helpers_empty_spaced_two  {\the\t_syst_aux[][] }
+\def\syst_helpers_empty_normal_two  {\the\t_syst_aux[][]}
+\def\syst_helpers_empty_spaced_one  {\the\t_syst_aux[] }
+\def\syst_helpers_empty_normal_one  {\the\t_syst_aux[]}
+
+\def\syst_helpers_single_empty_one_yes      {\firstargumenttrue  \the\t_syst_aux}
+\def\syst_helpers_double_empty_two_yes      {\secondargumenttrue \the\t_syst_aux}
+\def\syst_helpers_triple_empty_three_yes    {\thirdargumenttrue  \the\t_syst_aux}
+\def\syst_helpers_quadruple_empty_four_yes  {\fourthargumenttrue \the\t_syst_aux}
+\def\syst_helpers_quintuple_empty_five_yes  {\fifthargumenttrue  \the\t_syst_aux}
+\def\syst_helpers_sixtuple_empty_six_yes    {\sixthargumenttrue  \the\t_syst_aux}
+\def\syst_helpers_seventuple_empty_seven_yes{\seventhargumenttrue\the\t_syst_aux}
+
 %D Single:
 
+% \unexpanded\def\dosingleempty#1%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\firstargumenttrue#1}%
+%      {\syst_helpers_single_empty_one_nop#1}}
+%
+% \def\syst_helpers_single_empty_one_nop#1%
+%   {\firstargumentfalse
+%    #1[]}
+
 \unexpanded\def\dosingleempty#1%
   {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\firstargumenttrue#1}%
-     {\syst_helpers_single_empty_one_nop#1}}
+   \t_syst_aux{#1}%
+   \let\m_syst_action_yes\syst_helpers_single_empty_one_yes
+   \let\m_syst_action_nop\syst_helpers_single_empty_one_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_single_empty_one_nop#1%
+\def\syst_helpers_single_empty_one_nop
   {\firstargumentfalse
-   #1[]}
+   \the\t_syst_aux[]}
 
 %D Double
 
+% \unexpanded\def\dodoubleempty#1%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\syst_helpers_double_empty_one_yes#1}%
+%      {\syst_helpers_double_empty_one_nop#1}}
+%
+% \def\syst_helpers_double_empty_one_yes#1[#2]%
+%   {\firstargumenttrue
+%    \doifelsenextoptional
+%      {\secondargumenttrue#1[{#2}]}%
+%      {\syst_helpers_double_empty_two_nop#1{#2}}}
+%
+% \def\syst_helpers_double_empty_one_nop#1%
+%   {\firstargumentfalse
+%    \secondargumentfalse
+%    #1[][]}
+%
+% \def\syst_helpers_double_empty_two_nop
+%   {\secondargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_double_empty_one_spaced
+%    \else
+%      \expandafter\syst_helpers_double_empty_one_normal
+%    \fi}
+%
+% \def\syst_helpers_double_empty_one_spaced#1#2{#1[{#2}][] }
+% \def\syst_helpers_double_empty_one_normal#1#2{#1[{#2}][]}
+
 \unexpanded\def\dodoubleempty#1%
   {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\syst_helpers_double_empty_one_yes#1}%
-     {\syst_helpers_double_empty_one_nop#1}}
+   \t_syst_aux{#1}%
+   \let\m_syst_action_yes\syst_helpers_double_empty_one_yes
+   \let\m_syst_action_nop\syst_helpers_double_empty_one_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_double_empty_one_yes#1[#2]%
+\def\syst_helpers_double_empty_one_yes[#1]%
   {\firstargumenttrue
-   \doifelsenextoptional
-     {\secondargumenttrue#1[{#2}]}%
-     {\syst_helpers_double_empty_two_nop#1{#2}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_double_empty_two_yes
+   \let\m_syst_action_nop\syst_helpers_double_empty_two_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_double_empty_one_nop#1%
+\def\syst_helpers_double_empty_one_nop
   {\firstargumentfalse
    \secondargumentfalse
-   #1[][]}
+   \the\t_syst_aux[][]}
 
 \def\syst_helpers_double_empty_two_nop
   {\secondargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_double_empty_one_spaced
+     \expandafter\syst_helpers_empty_spaced_one
    \else
-     \expandafter\syst_helpers_double_empty_one_normal
+     \expandafter\syst_helpers_empty_normal_one
    \fi}
 
-\def\syst_helpers_double_empty_one_spaced#1#2{#1[{#2}][] }
-\def\syst_helpers_double_empty_one_normal#1#2{#1[{#2}][]}
+% Triple
 
-% Three
+% \unexpanded\def\dotripleempty#1%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\syst_helpers_triple_empty_one_yes#1}%
+%      {\syst_helpers_triple_empty_one_nop#1}}
+%
+% \def\syst_helpers_triple_empty_one_yes#1[#2]%
+%   {\firstargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_triple_empty_two_yes#1{#2}}%
+%      {\syst_helpers_triple_empty_two_nop#1{#2}}}
+%
+% \def\syst_helpers_triple_empty_two_yes#1#2[#3]%
+%   {\secondargumenttrue
+%    \doifelsenextoptional
+%      {\thirdargumenttrue#1[{#2}][{#3}]}%
+%      {\syst_helpers_triple_empty_three_nop#1{#2}{#3}}}
+%
+% \def\syst_helpers_triple_empty_one_nop#1%
+%   {\firstargumentfalse
+%    \secondargumentfalse
+%    \thirdargumentfalse
+%    #1[][][]}
+%
+% \def\syst_helpers_triple_empty_two_nop
+%   {\secondargumentfalse
+%    \thirdargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_triple_empty_two_spaced
+%    \else
+%      \expandafter\syst_helpers_triple_empty_two_normal
+%    \fi}
+%
+% \def\syst_helpers_triple_empty_three_nop
+%   {\thirdargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_triple_empty_three_spaced
+%    \else
+%      \expandafter\syst_helpers_triple_empty_three_normal
+%    \fi}
+%
+% \def\syst_helpers_triple_empty_two_spaced  #1#2{#1[{#2}][][] }
+% \def\syst_helpers_triple_empty_two_normal  #1#2{#1[{#2}][][]}
+% \def\syst_helpers_triple_empty_three_spaced#1#2#3{#1[{#2}][{#3}][] }
+% \def\syst_helpers_triple_empty_three_normal#1#2#3{#1[{#2}][{#3}][]}
 
 \unexpanded\def\dotripleempty#1%
   {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\syst_helpers_triple_empty_one_yes#1}%
-     {\syst_helpers_triple_empty_one_nop#1}}
+   \t_syst_aux{#1}%
+   \let\m_syst_action_yes\syst_helpers_triple_empty_one_yes
+   \let\m_syst_action_nop\syst_helpers_triple_empty_one_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_triple_empty_one_yes#1[#2]%
+\def\syst_helpers_triple_empty_one_yes[#1]%
   {\firstargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_triple_empty_two_yes#1{#2}}%
-     {\syst_helpers_triple_empty_two_nop#1{#2}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_triple_empty_two_yes
+   \let\m_syst_action_nop\syst_helpers_triple_empty_two_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_triple_empty_two_yes#1#2[#3]%
+\def\syst_helpers_triple_empty_two_yes[#1]%
   {\secondargumenttrue
-   \doifelsenextoptional
-     {\thirdargumenttrue#1[{#2}][{#3}]}%
-     {\syst_helpers_triple_empty_three_nop#1{#2}{#3}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_triple_empty_three_yes
+   \let\m_syst_action_nop\syst_helpers_triple_empty_three_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_triple_empty_one_nop#1%
+\def\syst_helpers_triple_empty_one_nop
   {\firstargumentfalse
    \secondargumentfalse
    \thirdargumentfalse
-   #1[][][]}
+   \the\t_syst_aux[][][]}
 
 \def\syst_helpers_triple_empty_two_nop
   {\secondargumentfalse
    \thirdargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_triple_empty_two_spaced
+     \expandafter\syst_helpers_empty_spaced_two
    \else
-     \expandafter\syst_helpers_triple_empty_two_normal
+     \expandafter\syst_helpers_empty_normal_two
    \fi}
 
 \def\syst_helpers_triple_empty_three_nop
   {\thirdargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_triple_empty_three_spaced
+     \expandafter\syst_helpers_empty_spaced_one
    \else
-     \expandafter\syst_helpers_triple_empty_three_normal
+     \expandafter\syst_helpers_empty_normal_one
    \fi}
 
-\def\syst_helpers_triple_empty_two_spaced  #1#2{#1[{#2}][][] }
-\def\syst_helpers_triple_empty_two_normal  #1#2{#1[{#2}][][]}
-\def\syst_helpers_triple_empty_three_spaced#1#2#3{#1[{#2}][{#3}][] }
-\def\syst_helpers_triple_empty_three_normal#1#2#3{#1[{#2}][{#3}][]}
+%D Quadruple:
 
-%D Four:
+% \unexpanded\def\doquadrupleempty#1%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\syst_helpers_quadruple_empty_one_yes#1}%
+%      {\syst_helpers_quadruple_empty_one_nop#1}}
+%
+% \def\syst_helpers_quadruple_empty_one_yes#1[#2]%
+%   {\firstargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_quadruple_empty_two_yes#1{#2}}%
+%      {\syst_helpers_quadruple_empty_two_nop#1{#2}}}
+%
+% \def\syst_helpers_quadruple_empty_two_yes#1#2[#3]%
+%   {\secondargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_quadruple_empty_three_yes#1{#2}{#3}}%
+%      {\syst_helpers_quadruple_empty_three_nop#1{#2}{#3}}}
+%
+% \def\syst_helpers_quadruple_empty_three_yes#1#2#3[#4]%
+%   {\thirdargumenttrue
+%    \doifelsenextoptional
+%      {\fourthargumenttrue#1[{#2}][{#3}][{#4}]}%
+%      {\syst_helpers_quadruple_empty_four_nop#1{#2}{#3}{#4}}}
+%
+% \def\syst_helpers_quadruple_empty_one_nop#1%
+%   {\firstargumentfalse
+%    \secondargumentfalse
+%    \thirdargumentfalse
+%    \fourthargumentfalse
+%    #1[][][][]}
+%
+% \def\syst_helpers_quadruple_empty_two_nop
+%   {\secondargumentfalse
+%    \thirdargumentfalse
+%    \fourthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_quadruple_empty_two_spaced
+%    \else
+%      \expandafter\syst_helpers_quadruple_empty_two_normal
+%    \fi}
+%
+% \def\syst_helpers_quadruple_empty_three_nop
+%   {\thirdargumentfalse
+%    \fourthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_quadruple_empty_three_spaced
+%    \else
+%      \expandafter\syst_helpers_quadruple_empty_three_normal
+%    \fi}
+%
+% \def\syst_helpers_quadruple_empty_four_nop
+%   {\fourthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_quadruple_empty_four_spaced
+%    \else
+%      \expandafter\syst_helpers_quadruple_empty_four_normal
+%    \fi}
+%
+% \def\syst_helpers_quadruple_empty_two_spaced      #1#2{#1[{#2}][][][] }
+% \def\syst_helpers_quadruple_empty_two_normal      #1#2{#1[{#2}][][][]}
+% \def\syst_helpers_quadruple_empty_three_spaced  #1#2#3{#1[{#2}][{#3}][][] }
+% \def\syst_helpers_quadruple_empty_three_normal  #1#2#3{#1[{#2}][{#3}][][]}
+% \def\syst_helpers_quadruple_empty_four_spaced #1#2#3#4{#1[{#2}][{#3}][{#4}][] }
+% \def\syst_helpers_quadruple_empty_four_normal #1#2#3#4{#1[{#2}][{#3}][{#4}][]}
 
 \unexpanded\def\doquadrupleempty#1%
   {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\syst_helpers_quadruple_empty_one_yes#1}%
-     {\syst_helpers_quadruple_empty_one_nop#1}}
+   \t_syst_aux{#1}%
+   \let\m_syst_action_yes\syst_helpers_quadruple_empty_one_yes
+   \let\m_syst_action_nop\syst_helpers_quadruple_empty_one_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quadruple_empty_one_yes#1[#2]%
+\def\syst_helpers_quadruple_empty_one_yes[#1]%
   {\firstargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_quadruple_empty_two_yes#1{#2}}%
-     {\syst_helpers_quadruple_empty_two_nop#1{#2}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_quadruple_empty_two_yes
+   \let\m_syst_action_nop\syst_helpers_quadruple_empty_two_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quadruple_empty_two_yes#1#2[#3]%
+\def\syst_helpers_quadruple_empty_two_yes[#1]%
   {\secondargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_quadruple_empty_three_yes#1{#2}{#3}}%
-     {\syst_helpers_quadruple_empty_three_nop#1{#2}{#3}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_quadruple_empty_three_yes
+   \let\m_syst_action_nop\syst_helpers_quadruple_empty_three_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quadruple_empty_three_yes#1#2#3[#4]%
+\def\syst_helpers_quadruple_empty_three_yes[#1]%
   {\thirdargumenttrue
-   \doifelsenextoptional
-     {\fourthargumenttrue#1[{#2}][{#3}][{#4}]}%
-     {\syst_helpers_quadruple_empty_four_nop#1{#2}{#3}{#4}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_quadruple_empty_four_yes
+   \let\m_syst_action_nop\syst_helpers_quadruple_empty_four_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quadruple_empty_one_nop#1%
+\def\syst_helpers_quadruple_empty_one_nop
   {\firstargumentfalse
    \secondargumentfalse
    \thirdargumentfalse
    \fourthargumentfalse
-   #1[][][][]}
+   \the\t_syst_aux[][][][]}
 
 \def\syst_helpers_quadruple_empty_two_nop
   {\secondargumentfalse
    \thirdargumentfalse
    \fourthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_quadruple_empty_two_spaced
+     \expandafter\syst_helpers_empty_spaced_three
    \else
-     \expandafter\syst_helpers_quadruple_empty_two_normal
+     \expandafter\syst_helpers_empty_normal_three
    \fi}
 
 \def\syst_helpers_quadruple_empty_three_nop
   {\thirdargumentfalse
    \fourthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_quadruple_empty_three_spaced
+     \expandafter\syst_helpers_empty_spaced_two
    \else
-     \expandafter\syst_helpers_quadruple_empty_three_normal
+     \expandafter\syst_helpers_empty_normal_two
    \fi}
 
 \def\syst_helpers_quadruple_empty_four_nop
   {\fourthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_quadruple_empty_four_spaced
+     \expandafter\syst_helpers_empty_spaced_one
    \else
-     \expandafter\syst_helpers_quadruple_empty_four_normal
+     \expandafter\syst_helpers_empty_normal_one
    \fi}
 
-\def\syst_helpers_quadruple_empty_two_spaced      #1#2{#1[{#2}][][][] }
-\def\syst_helpers_quadruple_empty_two_normal      #1#2{#1[{#2}][][][]}
-\def\syst_helpers_quadruple_empty_three_spaced  #1#2#3{#1[{#2}][{#3}][][] }
-\def\syst_helpers_quadruple_empty_three_normal  #1#2#3{#1[{#2}][{#3}][][]}
-\def\syst_helpers_quadruple_empty_four_spaced #1#2#3#4{#1[{#2}][{#3}][{#4}][] }
-\def\syst_helpers_quadruple_empty_four_normal #1#2#3#4{#1[{#2}][{#3}][{#4}][]}
+%D Quintuple:
 
-%D Five:
+% \unexpanded\def\doquintupleempty#1%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\syst_helpers_quintuple_empty_one_yes#1}%
+%      {\syst_helpers_quintuple_empty_one_nop#1}}
+%
+% \def\syst_helpers_quintuple_empty_one_yes#1[#2]%
+%   {\firstargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_quintuple_empty_two_yes#1{#2}}%
+%      {\syst_helpers_quintuple_empty_two_nop#1{#2}}}
+%
+% \def\syst_helpers_quintuple_empty_two_yes#1#2[#3]%
+%   {\secondargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_quintuple_empty_three_yes#1{#2}{#3}}%
+%      {\syst_helpers_quintuple_empty_three_nop#1{#2}{#3}}}
+%
+% \def\syst_helpers_quintuple_empty_three_yes#1#2#3[#4]%
+%   {\thirdargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_quintuple_empty_four_yes#1{#2}{#3}{#4}}%
+%      {\syst_helpers_quintuple_empty_four_nop#1{#2}{#3}{#4}}}
+%
+% \def\syst_helpers_quintuple_empty_four_yes#1#2#3#4[#5]%
+%   {\fourthargumenttrue
+%    \doifelsenextoptional
+%      {\fifthargumenttrue#1[{#2}][{#3}][{#4}][{#5}]}%
+%      {\syst_helpers_quintuple_empty_five_nop#1{#2}{#3}{#4}{#5}}}
+%
+% \def\syst_helpers_quintuple_empty_one_nop#1%
+%   {\firstargumentfalse
+%    \secondargumentfalse
+%    \thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    #1[][][][][]}
+%
+% \def\syst_helpers_quintuple_empty_two_nop
+%   {\secondargumentfalse
+%    \thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_quintuple_empty_two_spaced
+%    \else
+%      \expandafter\syst_helpers_quintuple_empty_two_normal
+%    \fi}
+%
+% \def\syst_helpers_quintuple_empty_three_nop
+%   {\thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_quintuple_empty_three_spaced
+%    \else
+%      \expandafter\syst_helpers_quintuple_empty_three_normal
+%    \fi}
+%
+% \def\syst_helpers_quintuple_empty_four_nop
+%   {\fourthargumentfalse
+%    \fifthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_quintuple_empty_four_spaced
+%    \else
+%      \expandafter\syst_helpers_quintuple_empty_four_normal
+%    \fi}
+%
+% \def\syst_helpers_quintuple_empty_five_nop
+%   {\fifthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_quintuple_empty_five_spaced
+%    \else
+%      \expandafter\syst_helpers_quintuple_empty_five_normal
+%    \fi}
+%
+% \def\syst_helpers_quintuple_empty_two_spaced        #1#2{#1[{#2}][][][][] }
+% \def\syst_helpers_quintuple_empty_two_normal        #1#2{#1[{#2}][][][][]}
+% \def\syst_helpers_quintuple_empty_three_spaced    #1#2#3{#1[{#2}][{#3}][][][] }
+% \def\syst_helpers_quintuple_empty_three_normal    #1#2#3{#1[{#2}][{#3}][][][]}
+% \def\syst_helpers_quintuple_empty_four_spaced   #1#2#3#4{#1[{#2}][{#3}][{#4}][][] }
+% \def\syst_helpers_quintuple_empty_four_normal   #1#2#3#4{#1[{#2}][{#3}][{#4}][][]}
+% \def\syst_helpers_quintuple_empty_five_spaced #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][] }
+% \def\syst_helpers_quintuple_empty_five_normal #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][]}
 
 \unexpanded\def\doquintupleempty#1%
   {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\syst_helpers_quintuple_empty_one_yes#1}%
-     {\syst_helpers_quintuple_empty_one_nop#1}}
+   \t_syst_aux{#1}%
+   \let\m_syst_action_yes\syst_helpers_quintuple_empty_one_yes
+   \let\m_syst_action_nop\syst_helpers_quintuple_empty_one_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quintuple_empty_one_yes#1[#2]%
+\def\syst_helpers_quintuple_empty_one_yes[#1]%
   {\firstargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_quintuple_empty_two_yes#1{#2}}%
-     {\syst_helpers_quintuple_empty_two_nop#1{#2}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_quintuple_empty_two_yes
+   \let\m_syst_action_nop\syst_helpers_quintuple_empty_two_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quintuple_empty_two_yes#1#2[#3]%
+\def\syst_helpers_quintuple_empty_two_yes[#1]%
   {\secondargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_quintuple_empty_three_yes#1{#2}{#3}}%
-     {\syst_helpers_quintuple_empty_three_nop#1{#2}{#3}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_quintuple_empty_three_yes
+   \let\m_syst_action_nop\syst_helpers_quintuple_empty_three_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quintuple_empty_three_yes#1#2#3[#4]%
+\def\syst_helpers_quintuple_empty_three_yes[#1]%
   {\thirdargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_quintuple_empty_four_yes#1{#2}{#3}{#4}}%
-     {\syst_helpers_quintuple_empty_four_nop#1{#2}{#3}{#4}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_quintuple_empty_four_yes
+   \let\m_syst_action_nop\syst_helpers_quintuple_empty_four_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quintuple_empty_four_yes#1#2#3#4[#5]%
+\def\syst_helpers_quintuple_empty_four_yes[#1]%
   {\fourthargumenttrue
-   \doifelsenextoptional
-     {\fifthargumenttrue#1[{#2}][{#3}][{#4}][{#5}]}%
-     {\syst_helpers_quintuple_empty_five_nop#1{#2}{#3}{#4}{#5}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_quintuple_empty_five_yes
+   \let\m_syst_action_nop\syst_helpers_quintuple_empty_five_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_quintuple_empty_one_nop#1%
+\def\syst_helpers_quintuple_empty_one_nop
   {\firstargumentfalse
    \secondargumentfalse
    \thirdargumentfalse
    \fourthargumentfalse
    \fifthargumentfalse
-   #1[][][][][]}
+   \the\t_syst_aux[][][][][]}
 
 \def\syst_helpers_quintuple_empty_two_nop
   {\secondargumentfalse
@@ -2498,9 +2813,9 @@
    \fourthargumentfalse
    \fifthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_quintuple_empty_two_spaced
+     \expandafter\syst_helpers_empty_spaced_four
    \else
-     \expandafter\syst_helpers_quintuple_empty_two_normal
+     \expandafter\syst_helpers_empty_normal_four
    \fi}
 
 \def\syst_helpers_quintuple_empty_three_nop
@@ -2508,83 +2823,192 @@
    \fourthargumentfalse
    \fifthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_quintuple_empty_three_spaced
+     \expandafter\syst_helpers_empty_spaced_three
    \else
-     \expandafter\syst_helpers_quintuple_empty_three_normal
+     \expandafter\syst_helpers_empty_normal_three
    \fi}
 
 \def\syst_helpers_quintuple_empty_four_nop
   {\fourthargumentfalse
    \fifthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_quintuple_empty_four_spaced
+     \expandafter\syst_helpers_empty_spaced_two
    \else
-     \expandafter\syst_helpers_quintuple_empty_four_normal
+     \expandafter\syst_helpers_empty_normal_two
    \fi}
 
 \def\syst_helpers_quintuple_empty_five_nop
   {\fifthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_quintuple_empty_five_spaced
+     \expandafter\syst_helpers_empty_spaced_one
    \else
-     \expandafter\syst_helpers_quintuple_empty_five_normal
+     \expandafter\syst_helpers_empty_normal_one
    \fi}
 
-\def\syst_helpers_quintuple_empty_two_spaced        #1#2{#1[{#2}][][][][] }
-\def\syst_helpers_quintuple_empty_two_normal        #1#2{#1[{#2}][][][][]}
-\def\syst_helpers_quintuple_empty_three_spaced    #1#2#3{#1[{#2}][{#3}][][][] }
-\def\syst_helpers_quintuple_empty_three_normal    #1#2#3{#1[{#2}][{#3}][][][]}
-\def\syst_helpers_quintuple_empty_four_spaced   #1#2#3#4{#1[{#2}][{#3}][{#4}][][] }
-\def\syst_helpers_quintuple_empty_four_normal   #1#2#3#4{#1[{#2}][{#3}][{#4}][][]}
-\def\syst_helpers_quintuple_empty_five_spaced #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][] }
-\def\syst_helpers_quintuple_empty_five_normal #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][]}
+%D Sixtuple:
 
-%D Six
+% \unexpanded\def\dosixtupleempty#1%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\syst_helpers_sixtuple_empty_one_yes#1}
+%      {\syst_helpers_sixtuple_empty_one_nop#1}}
+%
+% \def\syst_helpers_sixtuple_empty_one_yes#1[#2]%
+%   {\firstargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_sixtuple_empty_two_yes#1{#2}}%
+%      {\syst_helpers_sixtuple_empty_two_nop#1{#2}}}
+%
+% \def\syst_helpers_sixtuple_empty_two_yes#1#2[#3]%
+%   {\secondargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_sixtuple_empty_three_yes#1{#2}{#3}}%
+%      {\syst_helpers_sixtuple_empty_three_nop#1{#2}{#3}}}
+%
+% \def\syst_helpers_sixtuple_empty_three_yes#1#2#3[#4]%
+%   {\thirdargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_sixtuple_empty_four_yes#1{#2}{#3}{#4}}%
+%      {\syst_helpers_sixtuple_empty_four_nop#1{#2}{#3}{#4}}}
+%
+% \def\syst_helpers_sixtuple_empty_four_yes#1#2#3#4[#5]%
+%   {\fourthargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_sixtuple_empty_five_yes#1{#2}{#3}{#4}{#5}}%
+%      {\syst_helpers_sixtuple_empty_five_nop#1{#2}{#3}{#4}{#5}}}
+%
+% \def\syst_helpers_sixtuple_empty_five_yes#1#2#3#4#5[#6]%
+%   {\fifthargumenttrue
+%    \doifelsenextoptional
+%      {\sixthargumenttrue#1[{#2}][{#3}][{#4}][{#5}][{#6}]}%
+%      {\syst_helpers_sixtuple_empty_six_nop#1{#2}{#3}{#4}{#5}{#6}}}
+%
+% \def\syst_helpers_sixtuple_empty_one_nop#1%
+%   {\firstargumentfalse
+%    \secondargumentfalse
+%    \thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    \sixthargumentfalse
+%    #1[][][][][][]}
+%
+% \def\syst_helpers_sixtuple_empty_two_nop
+%   {\secondargumentfalse
+%    \thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    \sixthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_sixtuple_empty_two_spaced
+%    \else
+%      \expandafter\syst_helpers_sixtuple_empty_two_normal
+%    \fi}
+%
+% \def\syst_helpers_sixtuple_empty_three_nop
+%   {\thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    \sixthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_sixtuple_empty_three_spaced
+%    \else
+%      \expandafter\syst_helpers_sixtuple_empty_three_normal
+%    \fi}
+%
+% \def\syst_helpers_sixtuple_empty_four_nop
+%   {\fourthargumentfalse
+%    \fifthargumentfalse
+%    \sixthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_sixtuple_empty_four_spaced
+%    \else
+%      \expandafter\syst_helpers_sixtuple_empty_four_normal
+%    \fi}
+%
+% \def\syst_helpers_sixtuple_empty_five_nop
+%   {\fifthargumentfalse
+%    \sixthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_sixtuple_empty_five_spaced
+%    \else
+%      \expandafter\syst_helpers_sixtuple_empty_five_normal
+%    \fi}
+%
+% \def\syst_helpers_sixtuple_empty_six_nop
+%   {\sixthargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_sixtuple_empty_six_spaced
+%    \else
+%      \expandafter\syst_helpers_sixtuple_empty_six_normal
+%    \fi}
+%
+% \def\syst_helpers_sixtuple_empty_two_spaced          #1#2{#1[{#2}][][][][][] }
+% \def\syst_helpers_sixtuple_empty_two_normal          #1#2{#1[{#2}][][][][][]}
+% \def\syst_helpers_sixtuple_empty_three_spaced      #1#2#3{#1[{#2}][{#3}][][][][] }
+% \def\syst_helpers_sixtuple_empty_three_normal      #1#2#3{#1[{#2}][{#3}][][][][]}
+% \def\syst_helpers_sixtuple_empty_four_spaced     #1#2#3#4{#1[{#2}][{#3}][{#4}][][][] }
+% \def\syst_helpers_sixtuple_empty_four_normal     #1#2#3#4{#1[{#2}][{#3}][{#4}][][][]}
+% \def\syst_helpers_sixtuple_empty_five_spaced   #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][][] }
+% \def\syst_helpers_sixtuple_empty_five_normal   #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][][]}
+% \def\syst_helpers_sixtuple_empty_six_spaced  #1#2#3#4#5#6{#1[{#2}][{#3}][{#4}][{#5}][{#6}][] }
+% \def\syst_helpers_sixtuple_empty_six_normal  #1#2#3#4#5#6{#1[{#2}][{#3}][{#4}][{#5}][{#6}][]}
 
 \unexpanded\def\dosixtupleempty#1%
   {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\syst_helpers_sixtuple_empty_one_yes#1}
-     {\syst_helpers_sixtuple_empty_one_nop#1}}
+   \t_syst_aux{#1}%
+   \let\m_syst_action_yes\syst_helpers_sixtuple_empty_one_yes
+   \let\m_syst_action_nop\syst_helpers_sixtuple_empty_one_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_sixtuple_empty_one_yes#1[#2]%
+\def\syst_helpers_sixtuple_empty_one_yes[#1]%
   {\firstargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_sixtuple_empty_two_yes#1{#2}}%
-     {\syst_helpers_sixtuple_empty_two_nop#1{#2}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_sixtuple_empty_two_yes
+   \let\m_syst_action_nop\syst_helpers_sixtuple_empty_two_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_sixtuple_empty_two_yes#1#2[#3]%
+\def\syst_helpers_sixtuple_empty_two_yes[#1]%
   {\secondargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_sixtuple_empty_three_yes#1{#2}{#3}}%
-     {\syst_helpers_sixtuple_empty_three_nop#1{#2}{#3}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_sixtuple_empty_three_yes
+   \let\m_syst_action_nop\syst_helpers_sixtuple_empty_three_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_sixtuple_empty_three_yes#1#2#3[#4]%
+\def\syst_helpers_sixtuple_empty_three_yes[#1]%
   {\thirdargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_sixtuple_empty_four_yes#1{#2}{#3}{#4}}%
-     {\syst_helpers_sixtuple_empty_four_nop#1{#2}{#3}{#4}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_sixtuple_empty_four_yes
+   \let\m_syst_action_nop\syst_helpers_sixtuple_empty_four_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_sixtuple_empty_four_yes#1#2#3#4[#5]%
+\def\syst_helpers_sixtuple_empty_four_yes[#1]%
   {\fourthargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_sixtuple_empty_five_yes#1{#2}{#3}{#4}{#5}}%
-     {\syst_helpers_sixtuple_empty_five_nop#1{#2}{#3}{#4}{#5}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_sixtuple_empty_five_yes
+   \let\m_syst_action_nop\syst_helpers_sixtuple_empty_five_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_sixtuple_empty_five_yes#1#2#3#4#5[#6]%
+\def\syst_helpers_sixtuple_empty_five_yes[#1]%
   {\fifthargumenttrue
-   \doifelsenextoptional
-     {\sixthargumenttrue#1[{#2}][{#3}][{#4}][{#5}][{#6}]}%
-     {\syst_helpers_sixtuple_empty_six_nop#1{#2}{#3}{#4}{#5}{#6}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_sixtuple_empty_six_yes
+   \let\m_syst_action_nop\syst_helpers_sixtuple_empty_six_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_sixtuple_empty_one_nop#1%
+\def\syst_helpers_sixtuple_empty_one_nop
   {\firstargumentfalse
    \secondargumentfalse
    \thirdargumentfalse
    \fourthargumentfalse
    \fifthargumentfalse
    \sixthargumentfalse
-   #1[][][][][][]}
+   \the\t_syst_aux[][][][][][]}
 
 \def\syst_helpers_sixtuple_empty_two_nop
   {\secondargumentfalse
@@ -2593,9 +3017,9 @@
    \fifthargumentfalse
    \sixthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_sixtuple_empty_two_spaced
+     \expandafter\syst_helpers_empty_spaced_five
    \else
-     \expandafter\syst_helpers_sixtuple_empty_two_normal
+     \expandafter\syst_helpers_empty_normal_five
    \fi}
 
 \def\syst_helpers_sixtuple_empty_three_nop
@@ -2604,9 +3028,9 @@
    \fifthargumentfalse
    \sixthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_sixtuple_empty_three_spaced
+     \expandafter\syst_helpers_empty_spaced_four
    \else
-     \expandafter\syst_helpers_sixtuple_empty_three_normal
+     \expandafter\syst_helpers_empty_normal_four
    \fi}
 
 \def\syst_helpers_sixtuple_empty_four_nop
@@ -2614,84 +3038,215 @@
    \fifthargumentfalse
    \sixthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_sixtuple_empty_four_spaced
+     \expandafter\syst_helpers_empty_spaced_three
    \else
-     \expandafter\syst_helpers_sixtuple_empty_four_normal
+     \expandafter\syst_helpers_empty_normal_three
    \fi}
 
 \def\syst_helpers_sixtuple_empty_five_nop
   {\fifthargumentfalse
    \sixthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_sixtuple_empty_five_spaced
+     \expandafter\syst_helpers_empty_spaced_two
    \else
-     \expandafter\syst_helpers_sixtuple_empty_five_normal
+     \expandafter\syst_helpers_empty_normal_two
    \fi}
 
 \def\syst_helpers_sixtuple_empty_six_nop
   {\sixthargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_sixtuple_empty_six_spaced
+     \expandafter\syst_helpers_empty_spaced_one
    \else
-     \expandafter\syst_helpers_sixtuple_empty_six_normal
+     \expandafter\syst_helpers_empty_normal_one
    \fi}
 
-\def\syst_helpers_sixtuple_empty_two_spaced          #1#2{#1[{#2}][][][][][] }
-\def\syst_helpers_sixtuple_empty_two_normal          #1#2{#1[{#2}][][][][][]}
-\def\syst_helpers_sixtuple_empty_three_spaced      #1#2#3{#1[{#2}][{#3}][][][][] }
-\def\syst_helpers_sixtuple_empty_three_normal      #1#2#3{#1[{#2}][{#3}][][][][]}
-\def\syst_helpers_sixtuple_empty_four_spaced     #1#2#3#4{#1[{#2}][{#3}][{#4}][][][] }
-\def\syst_helpers_sixtuple_empty_four_normal     #1#2#3#4{#1[{#2}][{#3}][{#4}][][][]}
-\def\syst_helpers_sixtuple_empty_five_spaced   #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][][] }
-\def\syst_helpers_sixtuple_empty_five_normal   #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][][]}
-\def\syst_helpers_sixtuple_empty_six_spaced  #1#2#3#4#5#6{#1[{#2}][{#3}][{#4}][{#5}][{#6}][] }
-\def\syst_helpers_sixtuple_empty_six_normal  #1#2#3#4#5#6{#1[{#2}][{#3}][{#4}][{#5}][{#6}][]}
+%D Seventuple:
 
-%D Seven:
+% \unexpanded\def\doseventupleempty#1%
+%   {\syst_helpers_argument_reset
+%    \doifelsenextoptional
+%      {\syst_helpers_seventuple_empty_one_yes#1}%
+%      {\syst_helpers_seventuple_empty_one_nop#1}}
+%
+% \def\syst_helpers_seventuple_empty_one_yes#1[#2]%
+%   {\firstargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_seventuple_empty_two_yes#1{#2}}%
+%      {\syst_helpers_seventuple_empty_two_nop#1{#2}}}
+%
+% \def\syst_helpers_seventuple_empty_two_yes#1#2[#3]%
+%   {\secondargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_seventuple_empty_three_yes#1{#2}{#3}}%
+%      {\syst_helpers_seventuple_empty_three_nop#1{#2}{#3}}}
+%
+% \def\syst_helpers_seventuple_empty_three_yes#1#2#3[#4]%
+%   {\thirdargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_seventuple_empty_four_yes#1{#2}{#3}{#4}}%
+%      {\syst_helpers_seventuple_empty_four_nop#1{#2}{#3}{#4}}}
+%
+% \def\syst_helpers_seventuple_empty_four_yes#1#2#3#4[#5]%
+%   {\fourthargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_seventuple_empty_five_yes#1{#2}{#3}{#4}{#5}}%
+%      {\syst_helpers_seventuple_empty_five_nop#1{#2}{#3}{#4}{#5}}}
+%
+% \def\syst_helpers_seventuple_empty_five_yes#1#2#3#4#5[#6]%
+%   {\fifthargumenttrue
+%    \doifelsenextoptional
+%      {\syst_helpers_seventuple_empty_six_yes#1{#2}{#3}{#4}{#5}{#6}}%
+%      {\syst_helpers_seventuple_empty_six_nop#1{#2}{#3}{#4}{#5}{#6}}}
+%
+% \def\syst_helpers_seventuple_empty_six_yes#1#2#3#4#5#6[#7]%
+%   {\sixthargumenttrue
+%    \doifelsenextoptional
+%      {\seventhargumenttrue#1[{#2}][{#3}][{#4}][{#5}][{#6}][{#7}]}%
+%      {\syst_helpers_seventuple_empty_seven_nop#1{#2}{#3}{#4}{#5}{#6}{#7}}}
+%
+% \def\syst_helpers_seventuple_empty_one_nop#1%
+%   {\firstargumentfalse
+%    \secondargumentfalse
+%    \thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    \sixthargumentfalse
+%    \seventhargumentfalse
+%    #1[][][][][][][]}
+%
+% \def\syst_helpers_seventuple_empty_two_nop
+%   {\secondargumentfalse
+%    \thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    \sixthargumentfalse
+%    \seventhargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_seventuple_empty_two_spaced
+%    \else
+%      \expandafter\syst_helpers_seventuple_empty_two_normal
+%    \fi}
+%
+% \def\syst_helpers_seventuple_empty_three_nop
+%   {\thirdargumentfalse
+%    \fourthargumentfalse
+%    \fifthargumentfalse
+%    \sixthargumentfalse
+%    \seventhargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_seventuple_empty_three_spaced
+%    \else
+%      \expandafter\syst_helpers_seventuple_empty_three_normal
+%    \fi}
+%
+% \def\syst_helpers_seventuple_empty_four_nop
+%   {\fourthargumentfalse
+%    \fifthargumentfalse
+%    \sixthargumentfalse
+%    \seventhargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_seventuple_empty_four_spaced
+%    \else
+%      \expandafter\syst_helpers_seventuple_empty_four_normal
+%    \fi}
+%
+% \def\syst_helpers_seventuple_empty_five_nop
+%   {\fifthargumentfalse
+%    \sixthargumentfalse
+%    \seventhargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_seventuple_empty_five_spaced
+%    \else
+%      \expandafter\syst_helpers_seventuple_empty_five_normal
+%    \fi}
+%
+% \def\syst_helpers_seventuple_empty_six_nop
+%   {\sixthargumentfalse
+%    \seventhargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_seventuple_empty_six_spaced
+%    \else
+%      \expandafter\syst_helpers_seventuple_empty_six_normal
+%    \fi}
+%
+% \def\syst_helpers_seventuple_empty_seven_nop
+%   {\seventhargumentfalse
+%    \if_next_blank_space_token
+%      \expandafter\syst_helpers_seventuple_empty_seven_spaced
+%    \else
+%      \expandafter\syst_helpers_seventuple_empty_seven_normal
+%    \fi}
+%
+% \def\syst_helpers_seventuple_empty_two_spaced            #1#2{#1[{#2}][][][][][][] }
+% \def\syst_helpers_seventuple_empty_two_normal            #1#2{#1[{#2}][][][][][][]}
+% \def\syst_helpers_seventuple_empty_three_spaced        #1#2#3{#1[{#2}][{#3}][][][][][] }
+% \def\syst_helpers_seventuple_empty_three_normal        #1#2#3{#1[{#2}][{#3}][][][][][]}
+% \def\syst_helpers_seventuple_empty_four_spaced       #1#2#3#4{#1[{#2}][{#3}][{#4}][][][][] }
+% \def\syst_helpers_seventuple_empty_four_normal       #1#2#3#4{#1[{#2}][{#3}][{#4}][][][][]}
+% \def\syst_helpers_seventuple_empty_five_spaced     #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][][][] }
+% \def\syst_helpers_seventuple_empty_five_normal     #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][][][]}
+% \def\syst_helpers_seventuple_empty_six_spaced    #1#2#3#4#5#6{#1[{#2}][{#3}][{#4}][{#5}][{#6}][][] }
+% \def\syst_helpers_seventuple_empty_six_normal    #1#2#3#4#5#6{#1[{#2}][{#3}][{#4}][{#5}][{#6}][][]}
+% \def\syst_helpers_seventuple_empty_seven_spaced#1#2#3#4#5#6#7{#1[{#2}][{#3}][{#4}][{#5}][{#6}][{#7}][] }
+% \def\syst_helpers_seventuple_empty_seven_normal#1#2#3#4#5#6#7{#1[{#2}][{#3}][{#4}][{#5}][{#6}][{#7}][]}
 
 \unexpanded\def\doseventupleempty#1%
   {\syst_helpers_argument_reset
-   \doifelsenextoptional
-     {\syst_helpers_seventuple_empty_one_yes#1}%
-     {\syst_helpers_seventuple_empty_one_nop#1}}
+   \t_syst_aux{#1}%
+   \let\m_syst_action_yes\syst_helpers_seventuple_empty_one_yes
+   \let\m_syst_action_nop\syst_helpers_seventuple_empty_one_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_seventuple_empty_one_yes#1[#2]%
+\def\syst_helpers_seventuple_empty_one_yes[#1]%
   {\firstargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_seventuple_empty_two_yes#1{#2}}%
-     {\syst_helpers_seventuple_empty_two_nop#1{#2}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_seventuple_empty_two_yes
+   \let\m_syst_action_nop\syst_helpers_seventuple_empty_two_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_seventuple_empty_two_yes#1#2[#3]%
+\def\syst_helpers_seventuple_empty_two_yes[#1]%
   {\secondargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_seventuple_empty_three_yes#1{#2}{#3}}%
-     {\syst_helpers_seventuple_empty_three_nop#1{#2}{#3}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_seventuple_empty_three_yes
+   \let\m_syst_action_nop\syst_helpers_seventuple_empty_three_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_seventuple_empty_three_yes#1#2#3[#4]%
+\def\syst_helpers_seventuple_empty_three_yes[#1]%
   {\thirdargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_seventuple_empty_four_yes#1{#2}{#3}{#4}}%
-     {\syst_helpers_seventuple_empty_four_nop#1{#2}{#3}{#4}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_seventuple_empty_four_yes
+   \let\m_syst_action_nop\syst_helpers_seventuple_empty_four_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_seventuple_empty_four_yes#1#2#3#4[#5]%
+\def\syst_helpers_seventuple_empty_four_yes[#1]%
   {\fourthargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_seventuple_empty_five_yes#1{#2}{#3}{#4}{#5}}%
-     {\syst_helpers_seventuple_empty_five_nop#1{#2}{#3}{#4}{#5}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_seventuple_empty_five_yes
+   \let\m_syst_action_nop\syst_helpers_seventuple_empty_five_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_seventuple_empty_five_yes#1#2#3#4#5[#6]%
+\def\syst_helpers_seventuple_empty_five_yes[#1]%
   {\fifthargumenttrue
-   \doifelsenextoptional
-     {\syst_helpers_seventuple_empty_six_yes#1{#2}{#3}{#4}{#5}{#6}}%
-     {\syst_helpers_seventuple_empty_six_nop#1{#2}{#3}{#4}{#5}{#6}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_seventuple_empty_six_yes
+   \let\m_syst_action_nop\syst_helpers_seventuple_empty_six_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_seventuple_empty_six_yes#1#2#3#4#5#6[#7]%
+\def\syst_helpers_seventuple_empty_six_yes[#1]%
   {\sixthargumenttrue
-   \doifelsenextoptional
-     {\seventhargumenttrue#1[{#2}][{#3}][{#4}][{#5}][{#6}][{#7}]}%
-     {\syst_helpers_seventuple_empty_seven_nop#1{#2}{#3}{#4}{#5}{#6}{#7}}}
+   \toksapp\t_syst_aux{[{#1}]}%
+   \let\m_syst_action_yes\syst_helpers_seventuple_empty_seven_yes
+   \let\m_syst_action_nop\syst_helpers_seventuple_empty_seven_nop
+   \let\if_next_blank_space_token\iffalse
+   \futurelet\nexttoken\syst_helpers_inspect_next_optional_character}
 
-\def\syst_helpers_seventuple_empty_one_nop#1%
+\def\syst_helpers_seventuple_empty_one_nop
   {\firstargumentfalse
    \secondargumentfalse
    \thirdargumentfalse
@@ -2699,7 +3254,7 @@
    \fifthargumentfalse
    \sixthargumentfalse
    \seventhargumentfalse
-   #1[][][][][][][]}
+   \the\t_syst_aux[][][][][][][]}
 
 \def\syst_helpers_seventuple_empty_two_nop
   {\secondargumentfalse
@@ -2709,9 +3264,9 @@
    \sixthargumentfalse
    \seventhargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_seventuple_empty_two_spaced
+     \expandafter\syst_helpers_empty_spaced_six
    \else
-     \expandafter\syst_helpers_seventuple_empty_two_normal
+     \expandafter\syst_helpers_empty_normal_six
    \fi}
 
 \def\syst_helpers_seventuple_empty_three_nop
@@ -2721,9 +3276,9 @@
    \sixthargumentfalse
    \seventhargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_seventuple_empty_three_spaced
+     \expandafter\syst_helpers_empty_spaced_five
    \else
-     \expandafter\syst_helpers_seventuple_empty_three_normal
+     \expandafter\syst_helpers_empty_normal_five
    \fi}
 
 \def\syst_helpers_seventuple_empty_four_nop
@@ -2732,9 +3287,9 @@
    \sixthargumentfalse
    \seventhargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_seventuple_empty_four_spaced
+     \expandafter\syst_helpers_empty_spaced_four
    \else
-     \expandafter\syst_helpers_seventuple_empty_four_normal
+     \expandafter\syst_helpers_empty_normal_four
    \fi}
 
 \def\syst_helpers_seventuple_empty_five_nop
@@ -2742,40 +3297,29 @@
    \sixthargumentfalse
    \seventhargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_seventuple_empty_five_spaced
+     \expandafter\syst_helpers_empty_spaced_three
    \else
-     \expandafter\syst_helpers_seventuple_empty_five_normal
+     \expandafter\syst_helpers_empty_normal_three
    \fi}
 
 \def\syst_helpers_seventuple_empty_six_nop
   {\sixthargumentfalse
    \seventhargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_seventuple_empty_six_spaced
+     \expandafter\syst_helpers_empty_spaced_two
    \else
-     \expandafter\syst_helpers_seventuple_empty_six_normal
+     \expandafter\syst_helpers_empty_normal_two
    \fi}
 
 \def\syst_helpers_seventuple_empty_seven_nop
   {\seventhargumentfalse
    \if_next_blank_space_token
-     \expandafter\syst_helpers_seventuple_empty_seven_spaced
+     \expandafter\syst_helpers_empty_spaced_one
    \else
-     \expandafter\syst_helpers_seventuple_empty_seven_normal
+     \expandafter\syst_helpers_empty_normal_one
    \fi}
 
-\def\syst_helpers_seventuple_empty_two_spaced            #1#2{#1[{#2}][][][][][][] }
-\def\syst_helpers_seventuple_empty_two_normal            #1#2{#1[{#2}][][][][][][]}
-\def\syst_helpers_seventuple_empty_three_spaced        #1#2#3{#1[{#2}][{#3}][][][][][] }
-\def\syst_helpers_seventuple_empty_three_normal        #1#2#3{#1[{#2}][{#3}][][][][][]}
-\def\syst_helpers_seventuple_empty_four_spaced       #1#2#3#4{#1[{#2}][{#3}][{#4}][][][][] }
-\def\syst_helpers_seventuple_empty_four_normal       #1#2#3#4{#1[{#2}][{#3}][{#4}][][][][]}
-\def\syst_helpers_seventuple_empty_five_spaced     #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][][][] }
-\def\syst_helpers_seventuple_empty_five_normal     #1#2#3#4#5{#1[{#2}][{#3}][{#4}][{#5}][][][]}
-\def\syst_helpers_seventuple_empty_six_spaced    #1#2#3#4#5#6{#1[{#2}][{#3}][{#4}][{#5}][{#6}][][] }
-\def\syst_helpers_seventuple_empty_six_normal    #1#2#3#4#5#6{#1[{#2}][{#3}][{#4}][{#5}][{#6}][][]}
-\def\syst_helpers_seventuple_empty_seven_spaced#1#2#3#4#5#6#7{#1[{#2}][{#3}][{#4}][{#5}][{#6}][{#7}][] }
-\def\syst_helpers_seventuple_empty_seven_normal#1#2#3#4#5#6#7{#1[{#2}][{#3}][{#4}][{#5}][{#6}][{#7}][]}
+%D Aliases:
 
 \let\dosingleargument    \dosingleempty
 \let\dodoubleargument    \dodoubleempty
@@ -3598,8 +4142,8 @@
 
 \unexpanded\def\dostepwiserecurse#1#2#3#4% can be made faster by postponing #4
   {\global\advance\outerrecurse \plusone
-   \global\expandafter\def\csname\??recurseaction\recursedepth\endcsname{#4}%
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+   \global\expandafter\def\csname\??recurseaction\the\outerrecurse\endcsname{#4}%
+   \global\expandafter\let\csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
    \ifnum#3>\zerocount\relax
      \ifnum#2<#1\relax
        \let\syst_helpers_stepwise_next\syst_helpers_stepwise_exit
@@ -3627,7 +4171,7 @@
    \fi\expandafter{\the\numexpr\recurselevel+#3\relax}{#2}{#3}}
 
 \unexpanded\def\syst_helpers_recurse_content
-  {\csname\??recurseaction\recursedepth\endcsname}
+  {\csname\??recurseaction\the\outerrecurse\endcsname}
 
 \unexpanded\def\syst_helpers_stepwise_recurse_yes
   {\syst_helpers_recurse_content
@@ -3651,11 +4195,11 @@
   {\syst_helpers_stepwise_recurse_nop\relax}
 
 \unexpanded\def\syst_helpers_stepwise_recurse_nop#1#2#3#4%
-  {\expandafter\let\expandafter\recurselevel\csname\??recurseindex\recursedepth\endcsname
+  {\expandafter\let\expandafter\recurselevel\csname\??recurseindex\the\outerrecurse\endcsname
    \global\advance\outerrecurse\minusone}
 
 % \unexpanded\def\nonostepwiserecurse#1#2#3%
-%   {\expandafter\let\expandafter\recurselevel\csname\??recurseindex\recursedepth\endcsname
+%   {\expandafter\let\expandafter\recurselevel\csname\??recurseindex\the\outerrecurse\endcsname
 %    \global\advance\outerrecurse\minusone}
 
 \unexpanded\def\dorecurse#1%
@@ -3696,16 +4240,16 @@
 
 \unexpanded\def\syst_helpers_recurse_x#1#2%
   {\global\advance\outerrecurse \plusone
-   \expandafter\gdef\csname\??recurseaction\recursedepth\endcsname{#2}%
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+          \expandafter\gdef\csname\??recurseaction\the\outerrecurse\endcsname{#2}%
+   \global\expandafter\let \csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
    \expandafter\syst_helpers_recurse_indeed\expandafter1\expandafter{\number#1}}
 
 \unexpanded\def\syst_helpers_recurse_y#1#2%
   {\global\advance\outerrecurse \plusone
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+   \global\expandafter\let\csname\??recurseindex\the\outerrecurse\endcsname\recurselevel
    \let\recurselevel\!!plusone
    #2%
-   \expandafter\let\expandafter\recurselevel\csname\??recurseindex\recursedepth\endcsname
+   \expandafter\let\expandafter\recurselevel\csname\??recurseindex\the\outerrecurse\endcsname
    \global\advance\outerrecurse \minusone}
 
 \unexpanded\def\syst_helpers_recurse_indeed#1#2% from to
@@ -3730,7 +4274,7 @@
    \syst_helpers_recurse_indeed}
 
 \unexpanded\def\syst_helpers_recurse_indeed_nop#1#2#3%
-  {\expandafter\let\expandafter\recurselevel\csname\??recurseindex\recursedepth\endcsname
+  {\expandafter\let\expandafter\recurselevel\csname\??recurseindex\the\outerrecurse\endcsname
    \global\advance\outerrecurse \minusone }
 
 %D \macros
@@ -3768,8 +4312,8 @@
 
 \unexpanded\def\doloop#1%
   {\global\advance\outerrecurse \plusone
-   \expandafter\gdef\csname\??recurseaction\recursedepth\endcsname{#1}%
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+          \expandafter\gdef\csname\??recurseaction\the\outerrecurse\endcsname{#1}%
+   \global\expandafter\let \csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
    \let\endofloop\syst_helpers_loop
    \syst_helpers_loop1} % no \plusone else \recurselevel wrong
 
@@ -3783,7 +4327,7 @@
 
 \unexpanded\def\syst_helpers_loop_nop#1%
   {\let\endofloop\syst_helpers_loop % new, permits nested \doloop's
-   \expandafter\let\expandafter\recurselevel\csname\??recurseindex\recursedepth\endcsname
+   \expandafter\let\expandafter\recurselevel\csname\??recurseindex\the\outerrecurse\endcsname
    \global\advance\outerrecurse\minusone}
 
 \unexpanded\def\exitloop                     % \exitloop quits at end
@@ -3831,28 +4375,28 @@
 %D \stoptyping
 
 \def\syst_helpers_recurse_content
-  {\csname\??recurseaction\recursedepth\expandafter\expandafter\expandafter\endcsname
-     \expandafter\expandafter\expandafter{\expandafter\recurselevel\expandafter}\expandafter{\recursedepth}}
+  {\csname\??recurseaction\the\outerrecurse\expandafter\expandafter\expandafter\endcsname
+     \expandafter\expandafter\expandafter{\expandafter\recurselevel\expandafter}\expandafter{\the\outerrecurse}}
 
 \unexpanded\def\syst_helpers_recurse_x#1#2%
   {\global\advance\outerrecurse \plusone
-   \global\expandafter\def\csname\??recurseaction\recursedepth\endcsname##1##2{#2}%
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+   \global\expandafter\def\csname\??recurseaction\the\outerrecurse\endcsname##1##2{#2}%
+   \global\expandafter\let\csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
    \expandafter\syst_helpers_recurse_indeed\expandafter1\expandafter{\number#1}}
 
 \unexpanded\def\syst_helpers_recurse_y#1#2%
   {\global\advance\outerrecurse \plusone
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+   \global\expandafter\let\csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
    \let\recurselevel\!!plusone
-   \global\expandafter\def\csname\??recurseaction\recursedepth\endcsname##1##2{#2}%
+   \global\expandafter\def\csname\??recurseaction\the\outerrecurse\endcsname##1##2{#2}%
    \syst_helpers_recurse_content
-   \expandafter\let\expandafter\recurselevel\csname\??recurseindex\recursedepth\endcsname
+   \expandafter\let\expandafter\recurselevel\csname\??recurseindex\the\outerrecurse\endcsname
    \global\advance\outerrecurse \minusone}
 
 \unexpanded\def\dostepwiserecurse#1#2#3#4% can be made faster by postponing #4
   {\global\advance\outerrecurse \plusone
-   \global\expandafter\def\csname\??recurseaction\recursedepth\endcsname##1##2{#4}%
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+   \global\expandafter\def\csname\??recurseaction\the\outerrecurse\endcsname##1##2{#4}%
+   \global\expandafter\let\csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
    \ifnum#3>\zerocount\relax
      \ifnum#2<#1\relax
        \let\syst_helpers_stepwise_next\syst_helpers_stepwise_exit
@@ -3873,8 +4417,8 @@
 
 \unexpanded\def\doloop#1%
   {\global\advance\outerrecurse \plusone
-   \global\expandafter\def\csname\??recurseaction\recursedepth\endcsname##1##2{#1}%
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+   \global\expandafter\def\csname\??recurseaction\the\outerrecurse\endcsname##1##2{#1}%
+   \global\expandafter\let\csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
    \let\endofloop\syst_helpers_loop
    \syst_helpers_loop1} % no \plusone else \recurselevel wrong
 
@@ -3882,8 +4426,8 @@
 
 % \unexpanded\def\dostepwiserecurse#1#2#3#4% can be made faster by postponing #4
 %   {\global\advance\outerrecurse \plusone
-%    \global\expandafter\def\csname\??recurseaction\recursedepth\endcsname##1##2{#4}%
-%    \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+%    \global\expandafter\def\csname\??recurseaction\the\outerrecurse\endcsname##1##2{#4}%
+%    \global\expandafter\let\csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
 %    \csname @swr%
 %      \ifnum#3>\zerocount
 %        \ifnum#2<#1\else d\fi
@@ -3900,8 +4444,8 @@
 
 \unexpanded\def\dostepwiserecurse#1#2#3#4% can be made faster by postponing #4
   {\global\advance\outerrecurse \plusone
-   \global\expandafter\def\csname\??recurseaction\recursedepth\endcsname##1##2{#4}%
-   \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+   \global\expandafter\def\csname\??recurseaction\the\outerrecurse\endcsname##1##2{#4}%
+   \global\expandafter\let\csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
    \csname\??recursestepwise
      % we need the x in order to avoid the \relax that tex adds
      \ifnum#3>\zerocount
@@ -3920,8 +4464,8 @@
 %
 % \def\dostepwiserecurse#1#2#3#4% can be made faster by postponing #4
 %   {\global\advance\outerrecurse \plusone
-%    \global\expandafter\def\csname\??recurseaction\recursedepth\endcsname##1##2{#4}%
-%    \global\expandafter\let\csname\??recurseindex\recursedepth\endcsname\recurselevel
+%    \global\expandafter\def\csname\??recurseaction\the\outerrecurse\endcsname##1##2{#4}%
+%    \global\expandafter\let\csname\??recurseindex \the\outerrecurse\endcsname\recurselevel
 %    \normalexpanded
 %      {\ifnum#3>\zerocount
 %         \ifnum#2<#1
@@ -3996,10 +4540,10 @@
 
 \unexpanded\def\doloopoverlist#1#2%
   {\global\advance\outerrecurse\plusone
-   \expandafter\gdef\csname\??recurseaction\recursedepth\endcsname##1{\edef\recursestring{##1}#2}%
-   \expandafter\glet\csname\??recurseindex\recursedepth\endcsname\recursestring
-   \normalexpanded{\processcommalist[#1]{\expandafter\noexpand\csname\??recurseaction\recursedepth\endcsname}}%
-   \expandafter\let\expandafter\recursestring\csname\??recurseindex\recursedepth\endcsname
+   \expandafter\gdef\csname\??recurseaction\the\outerrecurse\endcsname##1{\edef\recursestring{##1}#2}%
+   \expandafter\glet\csname\??recurseindex \the\outerrecurse\endcsname\recursestring
+   \normalexpanded{\processcommalist[#1]{\expandafter\noexpand\csname\??recurseaction\the\outerrecurse\endcsname}}%
+   \expandafter\let\expandafter\recursestring\csname\??recurseindex\the\outerrecurse\endcsname
    \global\advance\outerrecurse\minusone}
 
 %D \macros
@@ -4475,16 +5019,14 @@
 %D \def\doezomaarwat#1{....#1....}
 %D \stoptyping
 %D
-%D A disadvantage of this approach is that the tokens that
-%D form \type{#1} are fixed the the moment the argument is read
-%D in. Normally this is no problem, but for instance verbatim
-%D environments adapt the \CATCODES\ of characters and therefore
+%D A disadvantage of this approach is that the tokens that form \type{#1} are fixed
+%D the the moment the argument is read in. Normally this is no problem, but for
+%D instance verbatim environments adapt the \CATCODES\ of characters and therefore
 %D are not always happy with already fixed tokens.
 %D
-%D Another problem arises when the argument is grouped not by
-%D \type{{}} but by \type{\bgroup} and \type{\egroup}. Such an
-%D argument fails, because the \type{\bgroup} is een as the
-%D argument (which is quite normal).
+%D Another problem arises when the argument is grouped not by \type {{}} but by
+%D \type {\bgroup} and \type {\egroup}. Such an argument fails, because the \type
+%D {\bgroup} is een as the argument (which is quite normal).
 %D
 %D The next macro offers a solution for both unwanted
 %D situations:
@@ -4514,9 +5056,8 @@
 %D .......... \rightword{the right way}
 %D \stoptyping
 %D
-%D Here \TEX\ typesets \type{\bf the right way} unbreakable
-%D at the end of the line. The solution mentioned before does
-%D not work here. We also handle
+%D Here \TEX\ typesets \type {\bf the right way} unbreakable at the end of the line.
+%D The solution mentioned before does not work here. We also handle
 %D
 %D \starttyping
 %D to be \bold{bold} or not, that's the question
@@ -4545,80 +5086,150 @@
 %    \afterassignment\m_syst_helpers_handle_group_before
 %    \let\next=}
 
-\unexpanded\def\syst_helpers_handle_group_normal#1#2%
+% \unexpanded\def\syst_helpers_handle_group_normal#1#2%
+%   {\bgroup
+%    \def\m_syst_helpers_handle_group_before{#1}%
+%    \def\m_syst_helpers_handle_group_after {#2}%
+%    \afterassignment\m_syst_helpers_handle_group_normal_before
+%    \let\next=}
+%
+% \def\m_syst_helpers_handle_group_normal_before
+%   {\bgroup
+%    \m_syst_helpers_handle_group_before
+%    \bgroup
+%    \aftergroup\m_syst_helpers_handle_group_normal_after}
+%
+% \def\m_syst_helpers_handle_group_normal_after
+%   {\m_syst_helpers_handle_group_after
+%    \egroup
+%    \egroup}
+%
+% \unexpanded\def\syst_helpers_handle_group_simple#1#2% no inner group (so no kerning interference)
+%   {\bgroup
+%    \def\m_syst_helpers_handle_group_before{#1}%
+%    \def\m_syst_helpers_handle_group_after {#2}%
+%    \afterassignment\m_syst_helpers_handle_group_simple_before
+%    \let\next=}
+%
+% \def\m_syst_helpers_handle_group_simple_before
+%   {\bgroup
+%    \aftergroup\m_syst_helpers_handle_group_simple_after
+%    \m_syst_helpers_handle_group_before}
+%
+% \def\m_syst_helpers_handle_group_simple_after
+%   {\m_syst_helpers_handle_group_after
+%    \egroup}%
+%
+% \unexpanded\def\syst_helpers_handle_group_pickup#1#2#3% no inner group (so no kerning interference)
+%   {\bgroup
+%    \def\m_syst_helpers_handle_group_before{#1}%
+%    \def\m_syst_helpers_handle_group_after {#2\egroup#3}%
+%    \afterassignment\m_syst_helpers_handle_group_pickup_before
+%    \let\next=}
+%
+% \def\m_syst_helpers_handle_group_pickup_before
+%   {\bgroup
+%    \aftergroup\m_syst_helpers_handle_group_after
+%    \m_syst_helpers_handle_group_before}
+%
+% \unexpanded\def\syst_helpers_handle_group_nop
+%   {\ifnum\currentgrouptype=\semisimplegroupcode
+%      \expandafter\syst_helpers_handle_group_nop_a
+%    \else
+%      \expandafter\syst_helpers_handle_group_nop_b
+%    \fi}
+%
+% \def\syst_helpers_handle_group_nop_a#1#2%
+%   {\def\m_syst_helpers_handle_group_after{#2\endgroup}%
+%    \begingroup
+%    \aftergroup\m_syst_helpers_handle_group_after
+%    #1}
+%
+% \def\syst_helpers_handle_group_nop_b#1#2%
+%   {\def\m_syst_helpers_handle_group_after{#2\egroup}%
+%    \bgroup
+%    \aftergroup\m_syst_helpers_handle_group_after
+%    #1}
+
+\unexpanded\def\syst_helpers_handle_group_nop
+  {\ifnum\currentgrouptype=\semisimplegroupcode
+     \expandafter\syst_helpers_handle_group_nop_a
+   \else
+     \expandafter\syst_helpers_handle_group_nop_b
+   \fi}
+
+\def\syst_helpers_handle_group_nop_a
+  {\begingroup
+   \aftergroup\m_syst_helpers_handle_group_a
+   \aftergroup\endgroup
+   \m_syst_helpers_handle_group_b}
+
+\def\syst_helpers_handle_group_nop_b
+  {\bgroup
+   \aftergroup\m_syst_helpers_handle_group_a
+   \aftergroup\egroup
+   \m_syst_helpers_handle_group_b}
+
+\unexpanded\def\syst_helpers_handle_group_normal
   {\bgroup
-   \def\m_syst_helpers_handle_group_before{#1}%
-   \def\m_syst_helpers_handle_group_after {#2}%
    \afterassignment\m_syst_helpers_handle_group_normal_before
    \let\next=}
 
 \def\m_syst_helpers_handle_group_normal_before
   {\bgroup
-   \m_syst_helpers_handle_group_before
+   \m_syst_helpers_handle_group_b
    \bgroup
-   \aftergroup\m_syst_helpers_handle_group_normal_after}
-
-\def\m_syst_helpers_handle_group_normal_after
-  {\m_syst_helpers_handle_group_after
-   \egroup
-   \egroup}
+   \aftergroup\m_syst_helpers_handle_group_a
+   \aftergroup\egroup
+   \aftergroup\egroup}
 
-% keep:
-%
-% \unexpanded\def\syst_helpers_handle_group_simple#1#2% no inner group (so no kerning interference)
-%   {\bgroup
-%    %def\m_syst_helpers_handle_group_before{\bgroup#1\aftergroup\m_syst_helpers_handle_group_after}% interferes
-%    \def\m_syst_helpers_handle_group_before{\bgroup\aftergroup\m_syst_helpers_handle_group_after#1}%
-%    \def\m_syst_helpers_handle_group_after {#2\egroup}%
-%    \afterassignment\m_syst_helpers_handle_group_before
-%    \let\next=}
-
-\unexpanded\def\syst_helpers_handle_group_simple#1#2% no inner group (so no kerning interference)
+\unexpanded\def\syst_helpers_handle_group_simple% no inner group (so no kerning interference)
   {\bgroup
-   \def\m_syst_helpers_handle_group_before{#1}%
-   \def\m_syst_helpers_handle_group_after {#2}%
    \afterassignment\m_syst_helpers_handle_group_simple_before
    \let\next=}
 
 \def\m_syst_helpers_handle_group_simple_before
   {\bgroup
    \aftergroup\m_syst_helpers_handle_group_simple_after
-   \m_syst_helpers_handle_group_before}
+   \m_syst_helpers_handle_group_b}
 
 \def\m_syst_helpers_handle_group_simple_after
-  {\m_syst_helpers_handle_group_after
+  {\m_syst_helpers_handle_group_a
    \egroup}%
 
-\unexpanded\def\syst_helpers_handle_group_pickup#1#2#3% no inner group (so no kerning interference)
+\unexpanded\def\syst_helpers_handle_group_pickup% no inner group (so no kerning interference)
   {\bgroup
-   \def\m_syst_helpers_handle_group_before{#1}%
-   \def\m_syst_helpers_handle_group_after {#2\egroup#3}%
    \afterassignment\m_syst_helpers_handle_group_pickup_before
    \let\next=}
 
 \def\m_syst_helpers_handle_group_pickup_before
   {\bgroup
-   \aftergroup\m_syst_helpers_handle_group_after
-   \m_syst_helpers_handle_group_before}
+   \aftergroup\m_syst_helpers_handle_group_a
+   \aftergroup\egroup
+   \aftergroup\m_syst_helpers_handle_group_p
+   \m_syst_helpers_handle_group_b}
 
-\unexpanded\def\syst_helpers_handle_group_nop
+\unexpanded\def\syst_helpers_handle_group_nop_x
   {\ifnum\currentgrouptype=\semisimplegroupcode
-     \expandafter\syst_helpers_handle_group_nop_a
+     \begingroup
+     \aftergroup\endgroup
    \else
-     \expandafter\syst_helpers_handle_group_nop_b
-   \fi}
+     \bgroup
+     \aftergroup\egroup
+   \fi
+   \m_syst_helpers_handle_group_b}
 
-\def\syst_helpers_handle_group_nop_a#1#2%
-  {\def\m_syst_helpers_handle_group_after{#2\endgroup}%
-   \begingroup
-   \aftergroup\m_syst_helpers_handle_group_after
-   #1}
+\unexpanded\def\syst_helpers_handle_group_normal_x
+  {\bgroup
+   \afterassignment\m_syst_helpers_handle_group_normal_before_x
+   \let\next=}
 
-\def\syst_helpers_handle_group_nop_b#1#2%
-  {\def\m_syst_helpers_handle_group_after{#2\egroup}%
+\def\m_syst_helpers_handle_group_normal_before_x
+  {\bgroup
+   \m_syst_helpers_handle_group_b
    \bgroup
-   \aftergroup\m_syst_helpers_handle_group_after
-   #1}
+   \aftergroup\egroup
+   \aftergroup\egroup}
 
 %D I considered it a nuisance that
 %D
@@ -4627,25 +5238,61 @@
 %D   {as grass}
 %D \stoptyping
 %D
-%D was not interpreted as one would expect. This is due to the
-%D fact that \type{\futurelet} obeys blank spaces, and a
-%D line||ending token is treated as a blank space. So the final
-%D implementation became:
+%D was not interpreted as one would expect. This is due to the fact that \type
+%D {\futurelet} obeys blank spaces, and a line||ending token is treated as a blank
+%D space. So the final implementation became:
+
+% \unexpanded\def\groupedcommand#1#2%
+%   {\doifelsenextbgroup{\syst_helpers_handle_group_normal{#1}{#2}}{\syst_helpers_handle_group_nop{#1}{#2}}}
+%
+% \unexpanded\def\groupedcommandcs#1#2%
+%   {\doifelsenextbgroup{\syst_helpers_handle_group_normal{#1}{#2}}{\syst_helpers_handle_group_nop{#1}{#2}}}
+%
+% \unexpanded\def\triggergroupedcommand#1%
+%   {\doifelsenextbgroup{\syst_helpers_handle_group_normal{#1}{}}{\syst_helpers_handle_group_nop{#1}{}}}
+%
+% \unexpanded\def\triggergroupedcommandcs#1%
+%   {\doifelsenextbgroup{\syst_helpers_handle_group_normal{#1}{}}{\syst_helpers_handle_group_nop{#1}{}}}
+%
+% \unexpanded\def\simplegroupedcommand#1#2%
+%   {\doifelsenextbgroup{\syst_helpers_handle_group_simple{#1}{#2}}{\syst_helpers_handle_group_nop{#1}{#2}}}
+%
+% \unexpanded\def\pickupgroupedcommand#1#2#3%
+%   {\doifelsenextbgroup{\syst_helpers_handle_group_pickup{#1}{#2}{#3}}{\syst_helpers_handle_group_nop{#1}{#2}}}
 
 \unexpanded\def\groupedcommand#1#2%
-  {\doifelsenextbgroup{\syst_helpers_handle_group_normal{#1}{#2}}{\syst_helpers_handle_group_nop{#1}{#2}}}
+  {\def\m_syst_helpers_handle_group_b{#1}%
+   \def\m_syst_helpers_handle_group_a{#2}%
+   \doifelsenextbgroupcs\syst_helpers_handle_group_normal\syst_helpers_handle_group_nop}
+
+\unexpanded\def\groupedcommandcs#1#2%
+  {\let\m_syst_helpers_handle_group_b#1%
+   \let\m_syst_helpers_handle_group_a#2%
+   \doifelsenextbgroupcs\syst_helpers_handle_group_normal\syst_helpers_handle_group_nop}
 
 \unexpanded\def\simplegroupedcommand#1#2%
-  {\doifelsenextbgroup{\syst_helpers_handle_group_simple{#1}{#2}}{\syst_helpers_handle_group_nop{#1}{#2}}}
+  {\def\m_syst_helpers_handle_group_b{#1}%
+   \def\m_syst_helpers_handle_group_a{#2}%
+   \doifelsenextbgroupcs\syst_helpers_handle_group_simple\syst_helpers_handle_group_nop}
 
 \unexpanded\def\pickupgroupedcommand#1#2#3%
-  {\doifelsenextbgroup{\syst_helpers_handle_group_pickup{#1}{#2}{#3}}{\syst_helpers_handle_group_nop{#1}{#2}}}
-
-%D Users should be aware of the fact that grouping can
-%D interfere with ones paragraph settings that are executed
-%D after the paragraph is closed. One should therefore
-%D explictly close the paragraph with \type{\par}, else the
-%D settings will be forgotten and not applied. So it's:
+  {\def\m_syst_helpers_handle_group_b{#1}%
+   \def\m_syst_helpers_handle_group_a{#2}%
+   \def\m_syst_helpers_handle_group_p{#2}%
+   \doifelsenextbgroupcs\syst_helpers_handle_group_pickup\syst_helpers_handle_group_nop}
+
+\unexpanded\def\triggergroupedcommand#1%
+  {\def\m_syst_helpers_handle_group_b{#1}%
+   \doifelsenextbgroupcs\syst_helpers_handle_group_normal_x\syst_helpers_handle_group_nop_x}
+
+\unexpanded\def\triggergroupedcommandcs#1%
+  {\let\m_syst_helpers_handle_group_b#1%
+   \doifelsenextbgroupcs\syst_helpers_handle_group_normal_x\syst_helpers_handle_group_nop_x}
+
+%D Users should be aware of the fact that grouping can interfere with ones paragraph
+%D settings that are executed after the paragraph is closed. One should therefore
+%D explictly close the paragraph with \type {\par}, else the settings will be
+%D forgotten and not applied. So it's:
 %D
 %D \starttyping
 %D \def\BoldRaggedCenter%
diff --git a/tex/context/base/mkiv/tabl-ntb.mkiv b/tex/context/base/mkiv/tabl-ntb.mkiv
index 9acf2ef36..d545ccc38 100644
--- a/tex/context/base/mkiv/tabl-ntb.mkiv
+++ b/tex/context/base/mkiv/tabl-ntb.mkiv
@@ -1364,7 +1364,7 @@
    \fi}
 
 \setvalue{\??naturaltablecell\the\c_tabl_ntb_cell}#1#2%
-  {\t_tabl_ntb_row\expandafter{\the\t_tabl_ntb_row\tabl_ntb_pass #1 #2 }% space delimited -> less tokens
+  {\toksapp\t_tabl_ntb_row{\tabl_ntb_pass #1 #2 }% space delimited -> less tokens
    \scratchcounter\tabl_ntb_get_col{#1}{#2}\relax
    \ifnum\scratchcounter>\zerocount
      \normalexpanded
diff --git a/tex/context/base/mkiv/tabl-tab.mkiv b/tex/context/base/mkiv/tabl-tab.mkiv
index 54b18a385..a7a1572d5 100644
--- a/tex/context/base/mkiv/tabl-tab.mkiv
+++ b/tex/context/base/mkiv/tabl-tab.mkiv
@@ -417,7 +417,7 @@
 % Key "a":  a{TOKENS} adds TOKENS to the right of (after) the template
 
 \newtableformatkey a#1%
-  {\!taDataColumnTemplate\expandafter{\the\!taDataColumnTemplate #1}%
+  {\toksapp\!taDataColumnTemplate{#1}%
    \doreadtableformatkeys}
 
 % Key "\{": Enclose template in braces.
@@ -435,7 +435,7 @@
    \scratchtoks\emptytoks
    \!thLoop
      \ifnum\scratchcounter>\zerocount
-     \scratchtoks\expandafter{\the\scratchtoks#2}%
+     \toksapp\scratchtoks{#2}%
      \advance\scratchcounter\minusone
    \repeat
    \expandafter\doreadtableformatkeys\the\scratchtoks}
diff --git a/tex/context/base/mkiv/tabl-tbl.mkiv b/tex/context/base/mkiv/tabl-tbl.mkiv
index ff2c0f4e5..6384b5a61 100644
--- a/tex/context/base/mkiv/tabl-tbl.mkiv
+++ b/tex/context/base/mkiv/tabl-tbl.mkiv
@@ -568,13 +568,13 @@
 \installtabulatepreambleoption{i}{\tabl_tabulate_set_preskip}
 \installtabulatepreambleoption{j}{\tabl_tabulate_set_posskip}
 \installtabulatepreambleoption{k}{\tabl_tabulate_set_preposskip}
-\installtabulatepreambleoption{e}{\t_tabl_tabulate_settings\expandafter{\the\t_tabl_tabulate_settings\global\settrue\c_tabl_tabulate_equal}%
+\installtabulatepreambleoption{e}{\toksapp\t_tabl_tabulate_settings{\global\settrue\c_tabl_tabulate_equal}%
                                   \tabl_tabulate_set_preamble}
 \installtabulatepreambleoption{g}{\tabl_tabulate_set_align}
 \installtabulatepreambleoption{.}{\tabl_tabulate_set_align.}
 \installtabulatepreambleoption{,}{\tabl_tabulate_set_align,}
 \installtabulatepreambleoption{C}{\tabl_tabulate_set_color_span}
-\installtabulatepreambleoption{d}{\t_tabl_tabulate_settings\expandafter{\the\t_tabl_tabulate_settings\fixedspaces}%
+\installtabulatepreambleoption{d}{\toksapp\t_tabl_tabulate_settings{\fixedspaces}%
                                   \tabl_tabulate_set_preamble}
 \installtabulatepreambleoption{ }{\tabl_tabulate_set_preamble}
 \installtabulatepreambleoption{A}{\tabl_tabulate_set_alignment}
@@ -2423,8 +2423,8 @@
    \dostarttaggedchained\t!tabulate\empty\??tabulation
    \dostarttagged\t!tabulaterow\empty
    \setfalse\inhibitmargindata % new per 2012.06.13 ... really needed
-   \everycr\expandafter{\the\everycr\noalign{\the\t_tabl_tabulate_every_real_row}\dostoptagged\dostarttagged\t!tabulaterow\empty}%
- % \toksapp\everycr{\dostoptagged\dostarttagged\t!tabulaterow\empty}%
+ % \everycr\expandafter{\the\everycr\noalign{\the\t_tabl_tabulate_every_real_row}\dostoptagged\dostarttagged\t!tabulaterow\empty}%
+   \toksapp\everycr{\noalign{\the\t_tabl_tabulate_every_real_row}\dostoptagged\dostarttagged\t!tabulaterow\empty}%
    \expandafter\halign\expandafter{\the\t_tabl_tabulate_preamble\crcr\tabl_tabulate_insert_content\crcr}%
    \dostoptagged
    \dostoptagged
diff --git a/tex/context/base/mkiv/trac-vis.lua b/tex/context/base/mkiv/trac-vis.lua
index e744f84f2..a9df0a91d 100644
--- a/tex/context/base/mkiv/trac-vis.lua
+++ b/tex/context/base/mkiv/trac-vis.lua
@@ -959,7 +959,7 @@ local ruledglue do
     local g_cache_h = caches["hglue"]
 
     local tags = {
-     -- userskip              = "US",
+     -- [gluecodes.userskip]              = "US",
         [gluecodes.lineskip]              = "LS",
         [gluecodes.baselineskip]          = "BS",
         [gluecodes.parskip]               = "PS",
@@ -982,8 +982,8 @@ local ruledglue do
         [gluecodes.cleaders]              = "CL",
         [gluecodes.xleaders]              = "XL",
         [gluecodes.gleaders]              = "GL",
-     -- true                  = "VS",
-     -- false                 = "HS",
+     -- true                              = "VS",
+     -- false                             = "HS",
     }
 
     -- we sometimes pass previous as we can have issues in math (not watertight for all)
diff --git a/tex/context/base/mkiv/type-ini.mkvi b/tex/context/base/mkiv/type-ini.mkvi
index 2ac3ee207..186a4682a 100644
--- a/tex/context/base/mkiv/type-ini.mkvi
+++ b/tex/context/base/mkiv/type-ini.mkvi
@@ -294,7 +294,6 @@
 \def\font_typescripts_start_gobble#definitions\stoptypescript{}
 
 \def\font_typescripts_start_document#definitions\stoptypescript
- %{\appendtoks\starttypescript#definitions\stoptypescript\to\c_font_typescripts_document}
   {\c_font_typescripts_document\expandafter{\the\c_font_typescripts_document\starttypescript#definitions\stoptypescript}}
 
 \def\font_typescripts_start_process % could be a faster \doifelsenextoptionalif needed
diff --git a/tex/context/base/mkiv/typo-cap.mkiv b/tex/context/base/mkiv/typo-cap.mkiv
index 4d1272e10..890b08186 100644
--- a/tex/context/base/mkiv/typo-cap.mkiv
+++ b/tex/context/base/mkiv/typo-cap.mkiv
@@ -81,20 +81,23 @@
 
 % todo: names casings
 
-\unexpanded\def\WORD {\groupedcommand{\setcharactercasing[\v!WORD ]}{}}
-\unexpanded\def\word {\groupedcommand{\setcharactercasing[\v!word ]}{}}
-\unexpanded\def\Word {\groupedcommand{\setcharactercasing[\v!Word ]}{}}
-\unexpanded\def\Words{\groupedcommand{\setcharactercasing[\v!Words]}{}}
-\unexpanded\def\camel{\groupedcommand{\setcharactercasing[\v!camel]}{}}
-
-% This might become:
-%
-% \unexpanded\def\WORD {\bgroup\def\g_word{\setcharactercasing[\v!WORD ]}\afterassignment\g_word\let\nexttoken}
-% \unexpanded\def\word {\bgroup\def\g_word{\setcharactercasing[\v!word ]}\afterassignment\g_word\let\nexttoken}
-% \unexpanded\def\Word {\bgroup\def\g_word{\setcharactercasing[\v!Word ]}\afterassignment\g_word\let\nexttoken}
-% \unexpanded\def\Words{\bgroup\def\g_word{\setcharactercasing[\v!Words]}\afterassignment\g_word\let\nexttoken}
-%
-% so no longer {\Word test} and { } mandate (also later \groupedcommands will go)
+% \unexpanded\def\WORD {\groupedcommand{\setcharactercasing[\v!WORD ]}{}}
+% \unexpanded\def\word {\groupedcommand{\setcharactercasing[\v!word ]}{}}
+% \unexpanded\def\Word {\groupedcommand{\setcharactercasing[\v!Word ]}{}}
+% \unexpanded\def\Words{\groupedcommand{\setcharactercasing[\v!Words]}{}}
+% \unexpanded\def\camel{\groupedcommand{\setcharactercasing[\v!camel]}{}}
+
+\unexpanded\def\typo_capitale_WORD {\clf_setcharactercasing{\v!WORD }\fontid\font}
+\unexpanded\def\typo_capitale_word {\clf_setcharactercasing{\v!word }\fontid\font}
+\unexpanded\def\typo_capitale_Word {\clf_setcharactercasing{\v!Word }\fontid\font}
+\unexpanded\def\typo_capitale_Words{\clf_setcharactercasing{\v!Words}\fontid\font}
+\unexpanded\def\typo_capitale_camel{\clf_setcharactercasing{\v!camel}\fontid\font}
+
+\unexpanded\def\WORD {\triggergroupedcommandcs\typo_capitale_WORD }
+\unexpanded\def\word {\triggergroupedcommandcs\typo_capitale_word }
+\unexpanded\def\Word {\triggergroupedcommandcs\typo_capitale_Word }
+\unexpanded\def\Words{\triggergroupedcommandcs\typo_capitale_Words}
+\unexpanded\def\camel{\triggergroupedcommandcs\typo_capitale_camel}
 
 \let\WORDS\WORD
 \let\words\word
@@ -176,16 +179,27 @@
    \sc
    \clf_setcharactercasing{\currentcapitals}\fontid\font}
 
-\unexpanded\def\pseudosmallcapped{\groupedcommand{\typo_capitals_set_fake\v!WORD   }\donothing} % all upper
-\unexpanded\def\pseudoSmallcapped{\groupedcommand{\typo_capitals_set_fake\v!capital}\donothing} % one upper + font
-\unexpanded\def\pseudoSmallCapped{\groupedcommand{\typo_capitals_set_fake\v!Capital}\donothing} % some upper + font
-\unexpanded\def\pseudoMixedCapped{\groupedcommand{\typo_capitals_set_fake\v!mixed  }\donothing} % UpperCase
+% \unexpanded\def\pseudosmallcapped{\groupedcommand{\typo_capitals_set_fake\v!WORD   }\donothing} % all upper
+% \unexpanded\def\pseudoSmallcapped{\groupedcommand{\typo_capitals_set_fake\v!capital}\donothing} % one upper + font
+% \unexpanded\def\pseudoSmallCapped{\groupedcommand{\typo_capitals_set_fake\v!Capital}\donothing} % some upper + font
+% \unexpanded\def\pseudoMixedCapped{\groupedcommand{\typo_capitals_set_fake\v!mixed  }\donothing} % UpperCase
+%
+% \unexpanded\def\realsmallcapped  {\groupedcommand{\typo_capitals_set_real\v!WORD   }\donothing} % all lower
+% \unexpanded\def\realSmallcapped  {\groupedcommand{\typo_capitals_set_real\v!Word   }\donothing} % one upper + font
+% \unexpanded\def\realSmallCapped  {\groupedcommand{\typo_capitals_set_real\v!Words  }\donothing} % some upper
+%
+% \unexpanded\def\notsmallcapped   {\groupedcommand{\typo_capitals_set_fake\v!word   }\donothing}
+
+\unexpanded\def\pseudosmallcapped{\triggergroupedcommandcs\font_style_pseudosmallcapped}
+\unexpanded\def\pseudoSmallcapped{\triggergroupedcommandcs\font_style_pseudoSmallcapped}
+\unexpanded\def\pseudoSmallCapped{\triggergroupedcommandcs\font_style_pseudoSmallCapped}
+\unexpanded\def\pseudoMixedCapped{\triggergroupedcommandcs\font_style_pseudoMixedCapped}
 
-\unexpanded\def\realsmallcapped  {\groupedcommand{\typo_capitals_set_real\v!WORD   }\donothing} % all lower
-\unexpanded\def\realSmallcapped  {\groupedcommand{\typo_capitals_set_real\v!Word   }\donothing} % one upper + font
-\unexpanded\def\realSmallCapped  {\groupedcommand{\typo_capitals_set_real\v!Words  }\donothing} % some upper
+\unexpanded\def\realsmallcapped  {\triggergroupedcommandcs\font_style_realsmallcapped}
+\unexpanded\def\realSmallcapped  {\triggergroupedcommandcs\font_style_realSmallcapped}
+\unexpanded\def\realSmallCapped  {\triggergroupedcommandcs\font_style_realSmallCapped}
 
-\unexpanded\def\notsmallcapped   {\groupedcommand{\typo_capitals_set_fake\v!word   }\donothing}
+\unexpanded\def\notsmallcapped   {\triggergroupedcommandcs\font_style_notsmallcapped}
 
 \unexpanded\def\font_style_pseudosmallcapped{\typo_capitals_set_fake\v!WORD   } % all upper
 \unexpanded\def\font_style_pseudoSmallcapped{\typo_capitals_set_fake\v!capital} % one upper + font
@@ -285,7 +299,9 @@
 %
 % \definestartstop[randomized][\c!before=\dosetattribute{case}{8},\c!after=]
 
-\unexpanded\def\randomizetext{\groupedcommand{\attribute\caseattribute\pluseight}{}}
+% \unexpanded\def\randomizetext{\groupedcommand{\attribute\caseattribute\pluseight}{}}
+
+\unexpanded\def\randomizetext{\triggergroupedcommand{\attribute\caseattribute\pluseight}}
 
 \definestartstop[randomized][\c!before=\dosetattribute{case}{8},\c!after=]
 
diff --git a/tex/context/base/mkiv/typo-del.mkiv b/tex/context/base/mkiv/typo-del.mkiv
index d12be6bcf..7b222a851 100644
--- a/tex/context/base/mkiv/typo-del.mkiv
+++ b/tex/context/base/mkiv/typo-del.mkiv
@@ -214,7 +214,8 @@
 
 \unexpanded\def\startsubsentence{\beginofsubsentence\prewordbreak\beginofsubsentencespacing\typo_subsentence_cleanup_start}
 \unexpanded\def\stopsubsentence {\typo_subsentence_cleanup_stop\endofsubsentencespacing\prewordbreak\endofsubsentence}
-\unexpanded\def\subsentence     {\groupedcommand\startsubsentence\stopsubsentence}
+\unexpanded\def\subsentence     {\groupedcommandcs\startsubsentence\stopsubsentence}
+%unexpanded\def\subsentence     {\groupedcommand\startsubsentence\stopsubsentence}
 \unexpanded\def\midsubsentence  {\typo_subsentence_cleanup_start\prewordbreak\midsentence\prewordbreak\typo_subsentence_cleanup_stop}
 
 \definehspace [quotation]      [\zeropoint]
diff --git a/tex/context/base/mkiv/util-lib.lua b/tex/context/base/mkiv/util-lib.lua
index 714cfd4c7..fb65a566e 100644
--- a/tex/context/base/mkiv/util-lib.lua
+++ b/tex/context/base/mkiv/util-lib.lua
@@ -237,7 +237,7 @@ local function locate(required,version,trace,report,action)
             report("stored library: %a",required)
         end
     end
-    return library
+    return library or nil
 end
 
 do
@@ -352,7 +352,7 @@ We use the same lookup logic for ffi loading.
     trackers.register("resolvers.ffilib", function(v) trace_ffilib = v end)
 
  -- pushlibpath(pathpart(name))
- -- local message, library = pcall(savedffiload,nameonly(name))
+ -- local state, library = pcall(savedffiload,nameonly(name))
  -- poplibpath()
 
     local loaded = { }
@@ -361,11 +361,11 @@ We use the same lookup logic for ffi loading.
         name = removesuffix(name)
         local l = loaded[name]
         if l == nil then
-            local message, library = pcall(savedffiload,name)
-            if type(message) == "userdata" then
-                l = message
-            elseif type(library) == "userdata" then
+            local state, library = pcall(savedffiload,name)
+            if type(library) == "userdata" then
                 l = library
+            elseif type(state) == "userdata" then
+                l = state
             else
                 l = false
             end
@@ -376,6 +376,20 @@ We use the same lookup logic for ffi loading.
         return l
     end
 
+    local function getlist(required)
+        local list = directives.value("system.librarynames" )
+        if type(list) == "table" then
+            list = list[required]
+            if type(list) == "table" then
+                if trace then
+                    report("using lookup list for library %a: % | t",required,list)
+                end
+                return list
+            end
+        end
+        return { required }
+    end
+
     function ffilib(name,version)
         name = removesuffix(name)
         local l = loaded[name]
@@ -384,23 +398,45 @@ We use the same lookup logic for ffi loading.
                 report_ffilib("reusing already loaded %a",name)
             end
             return l
-        elseif version == "system" then
-            return locateindeed(name)
+        end
+        local list = getlist(name)
+        if version == "system" then
+            for i=1,#list do
+                local library = locateindeed(list[i])
+                if type(library) == "userdata" then
+                    return library
+                end
+            end
         else
-            return locate(name,version,trace_ffilib,report_ffilib,locateindeed)
+            for i=1,#list do
+                local library = locate(list[i],version,trace_ffilib,report_ffilib,locateindeed)
+                if type(library) == "userdata" then
+                    return library
+                end
+            end
         end
     end
 
     function ffi.load(name)
-        local library = ffilib(name)
-        if type(library) == "userdata" then
-            return library
+        local list = getlist(name)
+        for i=1,#list do
+            local library = ffilib(list[i])
+            if type(library) == "userdata" then
+                return library
+            end
         end
         if trace_ffilib then
             report_ffilib("trying to load %a using normal loader",name)
         end
         -- so here we don't store
-        return savedffiload(name)
+        for i=1,#list do
+            local state, library = pcall(savedffiload,list[i])
+            if type(library) == "userdata" then
+                return library
+            elseif type(state) == "userdata" then
+                return library
+            end
+        end
     end
 
 end