(Ger) Shrink Agr = Ag Gender Number Person from 3*2*3 = 18 values to 2+3+1+3+1 = 10 by

Agr = AgSgP1 | AgSgP2 | AgSgP3 Gender | AgSgP3Gen | AgPl Person | AgPlPol ;
      with AgSgP3Gen resp. AgPlPol used for reflexive,possessive forms of "man", "Sie".

      Compiles AllGer from src in 162sec with 15M VerbGer.gfo vs. 380sec with 17M VerbGer.gfo

src/german/QuestionGer.gf

@@ -14,14 +14,14 @@ concrete QuestionGer of Question = CatGer ** open ResGer in {
       } ;
 
     QuestVP ip vp = {
-      s = \\m,t,a,p => 
+      s = \\m,t,a,p =>
         let
           who = appPrep vp.c1 ip.s ;
           cl = (mkClause who (agrP3 ip.n) vp).s ! m ! t ! a ! p
         in table {
-          QDir   => cl ! Main ;
-          QIndir => cl ! Sub
-          }
+            QDir   => cl ! Main ;
+            QIndir => cl ! Sub
+            }
       } ;
 
     QuestSlash ip slash = {