diff --git a/src/egekusii/AdjectiveGus.gf b/src/egekusii/AdjectiveGus.gf
new file mode 100644
index 000000000..e30579d32
--- /dev/null
+++ b/src/egekusii/AdjectiveGus.gf
@@ -0,0 +1,16 @@
+concrete AdjectiveGus of Adjective = CatGus **AdjectiveBantu-[ComparA,UseComparA,ComplA2] 
+with  (ResBantu = ResGus)** open DiffGus in
+{ 
+flags coding=utf8;
+  lin
+    ComparA a np = {
+      s = \\g,n => a.s  !AAdj g n  ++ conjThan  ++ np.s ! npNom ; 
+      isPre = False} ;
+
+    UseComparA a = {s = \\g,n=> a.s !AAdj g n;isPre = True};
+
+     ComplA2 a np = {
+      s = \\g,n => a.s  !AAdj g n  ++ a.c2 ++ np.s ! NPAcc; 
+      isPre = False
+      } ;
+    }
\ No newline at end of file
diff --git a/src/egekusii/AdverbGus.gf b/src/egekusii/AdverbGus.gf
new file mode 100644
index 000000000..14df4d77a
--- /dev/null
+++ b/src/egekusii/AdverbGus.gf
@@ -0,0 +1,13 @@
+concrete AdverbGus of Adverb = CatGus **AdverbBantu -[ComparAdvAdj,ComparAdvAdjS] with
+ (ResBantu = ResGus)** open DiffGus in
+{ 
+flags coding=utf8;
+  lin
+    ComparAdvAdj cadv a np =let agr = complAgr np.a
+    in {
+      s = cadv.s ++ a.s !AAdj agr.g agr.n ++ cadv.p ++ np.s ! npNom
+      } ;
+    ComparAdvAdjS cadv a s = {
+      s = cadv.s ++ a.s !AAdj G1 Sg ++ cadv.p ++ s.s
+      } ;
+    }
\ No newline at end of file
diff --git a/src/egekusii/CatGus.gf b/src/egekusii/CatGus.gf
new file mode 100644
index 000000000..3ec568dd0
--- /dev/null
+++ b/src/egekusii/CatGus.gf
@@ -0,0 +1,2 @@
+concrete CatGus of Cat = CommonX - [Pol] 
+  ** CatBantu with (ResBantu = ResGus);  
diff --git a/src/egekusii/ConjunctionGus.gf b/src/egekusii/ConjunctionGus.gf
new file mode 100644
index 000000000..e26984628
--- /dev/null
+++ b/src/egekusii/ConjunctionGus.gf
@@ -0,0 +1,2 @@
+concrete ConjunctionGus of Conjunction = CatGus ** ConjunctionBantu with
+ (ResBantu = ResGus);  
\ No newline at end of file
diff --git a/src/egekusii/DiffGus.gf b/src/egekusii/DiffGus.gf
new file mode 100644
index 000000000..a307aebe9
--- /dev/null
+++ b/src/egekusii/DiffGus.gf
@@ -0,0 +1,244 @@
+instance DiffGus of DiffBantu  =  open CommonBantu, Prelude  in {
+
+param 
+  GenderGus = G1 | G2 | G3 |G4| G5|G6|G7|G8|G9|G10 ;
+oper 
+  Gender = GenderGus ;
+  firstGender = G1 ; secondGender = G2 ;
+  conjThan = "kobua" ;
+  conjThat = "kobua" ;
+
+   conjGender : Gender -> Gender -> Gender = \m,n -> 
+    case m of { G1 => n ; _ => G2 } ;
+  reflPron :Agr => Str = \\ag=> case <ag >  of  {
+         < Ag G1 Sg P1  >     => "mimi" ;
+         < Ag G1 Sg P2  >     => "wewe" ;
+         < Ag G1 Sg P3 >     => "yeye" ;
+         < Ag _ Sg P3 >     => "" ;
+         < Ag G1 Pl P1 >     => "sisi" ;
+         < Ag G1 Pl P2  >     => "nyinyi" ;
+         < Ag G1 Pl P3 >     => "wao" ;
+          < Ag _ _ _ >     => "" 
+        
+         };
+ possess_Prepof,mkPrepof : Number => Gender => Str = 
+    table Number {  Sg => table {
+                    G1| G2  => "bwo" ;
+                    G3 => "ya";
+                    G4 => "ria";
+                    G5 => "kia"; --
+                    G6 => "rwa";
+                    G7 => "ka";
+                    G8 => "bwa";
+                    G9 => "kwa";
+                    G10 => "a"
+                   }; 
+                                 
+                   Pl => table { G1 => "ba" ;
+                    G2  => "ya" ;
+                    G3|G6  => "cia";
+                    G4  |G8|G9|G10 => "a";
+                    G5  => "bi"; --
+                    G7 => "bia"} } ;
+
+   
+ superVery ="bi";
+
+Cardoneprefix  : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1>  =>"oya";
+    <G7> =>"aka";
+    <G8>  =>"obo";
+    <G4> =>"eri";
+    <G3>  =>"eye";
+    <G6> =>"oro";
+    <G2>  =>"oyo";
+    <G5> =>"eke";
+    <G9> =>"oko";
+    <G10> => "a"
+      } ;
+Cardtwoprefix  : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1>  =>"ba";
+    <G7> |<G5> =>"bi";
+    <G8> |<G4> =>"a";
+    <G3> |<G6> =>"i";
+    <G2> |<G9>  =>"e";
+    < G10> => ""
+      } ;
+
+  Allpredetprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1>   => "b" ;
+    <G2>   => "y" ;
+    <G3> |<G5>| <G8> => "bi" ;
+    <G9> | <G10> |<G4>    => "" ;
+    <G6> | <G7> => "ci" 
+             } ;
+        
+
+  PrefixPlNom : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1>  => "aba" ;
+    <G2> => "eme" ;
+    <G3> |<G6> => "ci" ;
+    <G4>| <G8> |<G9>  => "ama" ;
+    <G5> |<G7> => "ebi";
+        <G10> => "" 
+          } ;
+
+  mkprefix,Ordprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1> |<G2> =>"o";
+    <G4> => "ria";
+    <G5>  => "kia";
+    <G3> => "ya";
+    <G6>=> "rwa";
+    <G7>=> "ka";
+    <G8>=> "bwa";
+    <G9>=> "kwa";
+    < G10> => "a" 
+          } ;
+
+  Cardprefix : Gender ->  Str = \g ->
+   case <g> of {    
+     <G1>  =>"ba";
+    <G7> |<G5> =>"bi";
+    <G8> |<G4> =>"a";
+    <G3> |<G6> =>"i";
+    <G2> |<G9>  =>"e";
+    <G10> => ""
+      } ;
+
+       Mostpredetprefix : Gender ->  Str = \g -> ""; -- not taken care of 
+   
+      ConsonantAdjprefix: Gender -> Number ->   Str = \n,g -> ""; --not taken care of
+   {-case <n,g> of {
+    <G1,Sg> => "m" ;
+    <G1,Pl> => "wa" ;
+    <G2,Sg> => "m" ;
+    <G2,Pl>  => "mi" ;
+    <G3,Pl> => "ma" ;
+    <G4,Sg> => "ki" ;
+    <G4,Pl> => "vi" ;
+    <G6,Sg>  => "m" ;
+    <G7,_>  => "m" ;
+    <G8,Sg>  => "m" ;
+    <G8,Pl> => "ma" ;
+    <G9,_> => "ma" ;
+    <G11,Sg> => "pa" ;
+    <G12,Sg> => "ku" ;
+   <G13,Sg> => "m" ;
+     <_,_> => "" 
+       } ; -}
+
+    VowelAdjprefix: Gender -> Number ->   Str = \n,g ->""; -- not taken care of 
+  {-} case <n,g> of {
+    <G1,Sg> => "mw" ;
+    <G1,Pl> => "w" ;
+    <G2,Sg> => "mw" ;
+    <G2,Pl> => "my" ;    
+    <G3,Sg> => "j" ;
+    <G3,Pl> => "m" ; 
+    <G4,Sg> => "ch" ;
+    <G4,Pl> => "vy" ;
+    <G5,Sg> => "ny";
+    <G5,Pl> => "ny";
+    <G6,Sg>=> "mw" ;
+    <G6,Pl> => "y" ;
+    <G7,Sg> => "mw" ;
+    <G7,Pl> => "mw" ;
+    <G8,Sg>=> "mw" ;
+    <G8,Pl>  => "m" ; 
+    <G9,_>  => "m" ;    
+    <G10,_> => "ny" ;
+    <G11,Sg> => "p" ;
+    <G12,Sg> => "kw" ;
+    <G13,Sg> => "mu" ;    
+       <_,_> => "" 
+       } ; -}
+
+  VoweliAdjprefix: Gender -> Number ->   Str = \n,g -> ""; -- not taken care of 
+  {-} case <n,g> of {
+    <G1,Sg> => "mwi" ;
+    <G1,Pl> => "we" ;
+    <G2,Sg> => "mwi" ;
+    <G2,Pl> => "mi" ;    
+    <G3,Sg> => "ji" ;
+    <G3,Pl> => "me" ; 
+    <G4,Sg> => "ki" ;
+    <G4,Pl> => "vi" ;
+    <G5,Sg> => "zi";
+    <G5,Pl> => "zi";
+    <G6,Sg>=> "mwi" ;
+    <G6,Pl> => "zi" ;
+    <G7,Sg> => "mwi" ;
+    <G7,Pl> => "mwi" ;
+    <G8,Sg>=> "mwi" ;
+    <G8,Pl>  => "me" ; 
+    <G9,_>  => "me" ;    
+    <G10,_> => "zi" ;
+    <G11,Sg> => "pe" ;
+    <G12,Sg> => "kwi" ;
+    <G13,Sg> => "mwi" ;    
+       <_,_> => "" 
+       } ; -}
+Adjpprefix : Gender -> Number ->   Str = \n,g ->
+   case <n,g> of {
+    <G1,Pl> => "aba" ;
+    <G2,Pl> => "eme" ;
+    <G3,Sg> => "e" ;
+    <G4,Sg> => "eri" ;
+    <G5,Sg> => "ege" ;
+    <G5,Pl> => "ebi" ;
+    <G6,Sg> => "oro" ;
+    <G7,Sg> => "aka" ;
+    <G7,Pl> => "ebi";
+    <G8,Sg> => "obo" ;
+     <G9,Sg> => "oko" ;
+     <G10,Sg> => "aa" ;
+     <G1,Sg>|<G2,Sg> => "omo" ;
+     <G3,Pl> |<G6,Pl> => "ci" ;
+     <G4,Pl>|<G8,Pl> |<G9,Pl> => "ama" ;
+    <G10,Pl> => ""  
+       } ;
+  ProunSgprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1> |<G2> =>"o";
+    <G4> => "ria";
+    <G5>  => "kia";
+    <G3> => "ya";
+    <G6>=> "rwa";
+    <G7>=> "ka";
+    <G8>=> "bwa";
+    <G9>=> "kwa";
+    <G10> => "a" 
+          } ;
+
+ProunPlprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1> |<G7> =>"ba";
+    <G8> |<G4> =>"a";
+    <G3> |<G6> =>"chia";
+    <G2>  =>"ya";
+    <G5> =>"bia";
+    <_> => ""
+         } ;
+
+      dfltGender : Gender = G1 ;
+      dflt2Gender : Gender = G2 ;
+
+
+
+ param
+
+  VForm = VInf 
+     | VPres Gender Number Person
+    | VPast Gender Number Person
+    | VFut  Gender Number Person
+   -- | notpresent 
+     ;
+   
+     DForm = unit | teen | ten |hund  ;
+     AForm = AAdj Gender Number;
+}
diff --git a/src/egekusii/GrammarGus.gf b/src/egekusii/GrammarGus.gf
new file mode 100644
index 000000000..19119486c
--- /dev/null
+++ b/src/egekusii/GrammarGus.gf
@@ -0,0 +1,30 @@
+--# -path=.:../abstract:../common:prelude
+
+concrete GrammarGus of Grammar = 
+  NounGus, 
+  VerbGus, 
+  AdjectiveGus,
+  AdverbGus,
+  NumeralGus,
+  SentenceGus,
+  QuestionGus,
+  RelativeGus,
+  ConjunctionGus,
+  PhraseGus,
+  TextX - [Pol,PPos,PNeg,Pres],
+  StructuralGus,
+  IdiomGus,
+  TenseX - [Pol,PPos,PNeg,Pres]
+  **  {
+
+flags startcat = Phr ; unlexer = text ; lexer = text;
+
+--lin
+  --PPos = {s = [] ; p = CPos} ;
+ -- PNeg = {s = [] ; p = CNeg True} ; -- contracted: don't
+ --PPos  = {s = [] ; b = True} ;
+ --  PNeg  = {s = [] ; b = False} ;
+ --  TPres = {s = [] ; t = ResGus.Pres} ;
+ -- TPast = {s = [] ; t = ResGus.Past };
+ --  TFut = {s = [] ; t = ResGus.Fut };
+} ;
diff --git a/src/egekusii/IdiomGus.gf b/src/egekusii/IdiomGus.gf
new file mode 100644
index 000000000..4582e2281
--- /dev/null
+++ b/src/egekusii/IdiomGus.gf
@@ -0,0 +1,48 @@
+concrete IdiomGus of Idiom = CatGus ** open Prelude, ResGus in {
+
+  flags optimize=all_subs ;
+{-
+  lin
+    ImpersCl vp = mkClause "it" (agrP3 Sg) vp ;
+    GenericCl vp = mkClause "one" (agrP3 Sg) vp ;
+
+    CleftNP np rs = mkClause "it" (agrP3 Sg) 
+      (insertObj (\\_ => rs.s ! np.a)
+        (insertObj (\\_ => np.s ! rs.c) (predAux auxBe))) ;
+
+    CleftAdv ad s = mkClause "it" (agrP3 Sg) 
+      (insertObj (\\_ => conjThat ++ s.s)
+        (insertObj (\\_ => ad.s) (predAux auxBe))) ;
+
+    ExistNP np = 
+      mkClause "there" (agrP3 (fromAgr np.a).n) 
+        (insertObj (\\_ => np.s ! NPAcc) (predAux auxBe)) ;
+
+    ExistIP ip = 
+      mkQuestion (ss (ip.s ! npNom)) 
+        (mkClause "there" (agrP3 ip.n) (predAux auxBe)) ;
+
+    ExistNPAdv np adv = 
+      mkClause "there" (agrP3 (fromAgr np.a).n) 
+        (insertObj (\\_ => np.s ! NPAcc ++ adv.s) (predAux auxBe)) ;
+
+    ExistIPAdv ip adv = 
+      mkQuestion (ss (ip.s ! npNom)) 
+        (mkClause "there" (agrP3 ip.n) (insertObj (\\_ => adv.s) (predAux auxBe))) ;
+
+    ProgrVP vp = insertObj (\\a => vp.ad ! a ++ vp.prp ++ vp.p ++ vp.s2 ! a) (predAux auxBe) ;
+
+    ImpPl1 vp = {s = "let's" ++ infVP VVAux vp Simul CPos (AgP1 Pl)} ;
+
+    ImpP3 np vp = {s = "let" ++ np.s ! NPAcc ++ infVP VVAux vp Simul CPos np.a} ;
+
+    SelfAdvVP vp = insertObj reflPron vp ;
+    SelfAdVVP vp = insertAdVAgr reflPron vp ;
+    SelfNP np = {
+      s = \\c => np.s ! c ++ reflPron ! np.a ; 
+      a = np.a
+      } ;
+} -}
+
+}
+
diff --git a/src/egekusii/LangGus.gf b/src/egekusii/LangGus.gf
new file mode 100644
index 000000000..abf594085
--- /dev/null
+++ b/src/egekusii/LangGus.gf
@@ -0,0 +1,11 @@
+--# -path=.:../abstract:../common:../api
+
+concrete LangGus of Lang = 
+  GrammarGus,
+  LexiconGus
+--  ,ConstructionGus
+    ** {
+
+
+
+} ;
diff --git a/src/egekusii/LexiconGus.gf b/src/egekusii/LexiconGus.gf
new file mode 100644
index 000000000..6bf8b40dc
--- /dev/null
+++ b/src/egekusii/LexiconGus.gf
@@ -0,0 +1,79 @@
+--# -path=.:prelude
+
+concrete LexiconGus of Lexicon = CatGus **
+  open ParadigmsGus,StructuralGus, Prelude in {
+
+flags
+  optimize=values ;
+
+lin
+person_N = regN "omonto" omo_aba;
+  woman_N = regN "omosubati" omo_aba;
+  house_N = regN "enyomba" e_ci ;
+  tree_N = regN "omote" omo_eme;
+  big_A =  regA "nene"  ;
+  beautiful_A =  regA "muya"  ;
+  black_A =  regA "mwamu";
+  blue_A = regA "buluu" ;
+  broad_A =  regA "gare"  ;
+  brown_A =  regA "maraba"  ;
+  clean_A =  iregA "safi" "safi";
+  clever_A =  regA "ng'aini"  ;
+  cold_A =  regA "kundu";
+  correct_A =   regA "keene"  ;
+  dirty_A =  regA "chabu" ;
+  dry_A = regA "kamoku"  ;
+  full_A =  regA "ichire"  ;
+  good_A =  regA "ya"  ;
+  green_A =  regA "machani" ;
+  heavy_A =  regA "rito" ;
+  hot_A = regA "morero"  ;
+  important_A =    regA "eng'encho" ;
+  long_A =  regA "tambe"  ;
+  narrow_A =  regA "nyerere"  ;
+  near_A = regA "ang'e" ;
+  new_A = regA "nyia" ;
+  old_A =  regA "koro"  ;
+  red_A =   regA "bariri"  ;
+  rotten_A =   regA "ng'undo"  ;
+  round_A =    regA "viringo"  ;
+  sharp_A =   regA "oge"  ;
+  short_A =   regA "eng'e"  ;
+  small_A =   regA "ke"  ;
+  smooth_A =  regA "terere"  ;
+  straight_A = regA "ronge"  ;
+  stupid_A =  regA "riri"  ;
+  thick_A = regA "netu" ;
+  thin_A =   regA "reu"  ;
+  ugly_A = regA "be";
+  warm_A =  regA "berera"  ;
+  wet_A =  regA "nyiu" ;
+  white_A = regA "rabu"  ;
+  yellow_A =  regA "yaye"  ;
+  young_A =   regA "ke"  ;
+  certain_A=regA "maena";
+  cow_N = regN "eng'ombe"  e_ci ;
+  doctor_N = regN "omorwaria" omo_aba ;
+  dog_N =  regN "esese" e_ci;
+  door_N =  regN "omorangwa" omo_eme  ;
+  enemy_N =  regN "omobisa" omo_aba;
+  fish_N =   regN "enswe" e_ci;
+  friend_N =   regN "omosani" omo_aba;
+  garden_N = regN "omogondo" omo_eme;
+  girl_N = regN "omoiseke" omo_aba  ;
+  lamp_N =  regN "etaya" e_ci;
+  man_N = regN "omosacha" omo_aba  ;
+  eye_N = iregN "eriso" "amaiso" eri_ama  ;
+  tooth_N = regN "ero" eri_ama ;
+  wife_N =   regN "omokungu" omo_aba;
+
+oper
+  aboutP = mkPrep "juu ya" ;
+  atP = mkPrep "vala ve" ;
+  forP = mkPrep "for" ;
+  fromP = mkPrep "kutoka" ;
+  inP = mkPrep "ndani" ;
+  onP = mkPrep "juu" ;
+  toP = mkPrep "hadi" ;
+ 
+} ;
diff --git a/src/egekusii/MorphoGus.gf b/src/egekusii/MorphoGus.gf
new file mode 100644
index 000000000..1f3063a5f
--- /dev/null
+++ b/src/egekusii/MorphoGus.gf
@@ -0,0 +1,446 @@
+--# -path=.:../../prelude
+
+--1 Egekusii Resource Morphology
+
+resource MorphoGus = CommonBantu ,
+ResGus ** open Prelude, Predef
+in {
+
+  flags optimize=all ;
+  oper 
+  Many_prefix: Gender ->  Str = \g ->
+   case <g> of {    
+   <G1>  =>"aba";
+    <G4> |<G9>|<G8> =>"ama";
+    <G3> |<G6>  =>"cini";
+    <G2>  =>"eme";
+    <G5> | <G7> =>"ebi";
+    <G10> => "ani"
+      } ;
+
+  Few_prefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1>  =>"basi";
+    <G4> |<G9>|<G8> =>"masi";
+    <G3> |<G6>  =>"cisi";
+    <G2>  =>"mesi";
+    <G5> | <G7> =>"bisi";
+    <G10> => "asi"
+      } ;
+
+
+  Detsomesgprefix : Gender ->  Str = \g ->"";
+  {-} case <g> of {    
+    <G3> => "li" ;
+    <G4>   => "ki" ;
+    <G9>  => "me";
+    <G11> => "pe" ;
+    <G12> => "kwi" ;
+    <G5>|<G10> => "nyi" ; 
+    <G1> |<G6>|<G2>|<G7>|<G8> |<G13> => "mwi" 
+
+      } ; -}
+    Some_prefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1>  =>"beke";
+    <G7> =>"bike";
+    <G8>  =>"make";
+    <G4> =>"make";
+    <G3>  =>"nke";
+    <G6> =>"nke";
+    <G2>  =>"mebe";
+    <G5> =>"bike";
+    <G9> =>"make";
+    <G10> => "ake"
+      } ;
+
+Detsomeplprefix : Gender ->  Str = \g ->"";
+ {-}  case <g> of {    
+    <G1>   => "we" ;
+    <G2>   => "mi"  ;
+    <G10> => "nyi" ;
+    <G11> => "pe" ;
+    <G12> => "kwi" ;
+    <G4>    => "vi" ;
+     <G5>|<G6> => "nye" ;    
+    <G7> |<G13>  => "mwi" ;
+     <G3>|<G8> |<G9>  => "me"
+
+      } ; -}
+
+ mkNum3 : Str  -> Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \two, second ->
+    {s = table {
+       unit => table {NCard =>\\g => Cardprefix g + two ; 
+                      NOrd => \\g => Ordprefix g ++  second} ; 
+       teen => table {NCard =>\\g =>"ikomi na"  ++ CardThirteenprefix g + two ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi na" ++  second} ; 
+       ten  => table {NCard =>\\g =>"emerongo  etato"  ; 
+                      NOrd => \\g => Ordprefix g ++ "emerongo  etato"};
+       hund  => table {NCard =>\\g =>"amagana atato " ; 
+                      NOrd => \\g => Ordprefix g ++ "amagana atato"}  
+       }
+    } ;
+  mkNum4 : Str  -> Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \two, second ->
+    {s = table {
+       unit => table {NCard =>\\g => Cardprefix g + two ; 
+                      NOrd => \\g => Ordprefix g ++ second} ; 
+       teen => table {NCard =>\\g =>"ikomi na"  ++ Cardfouteenprefix g ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi na" ++ second } ; 
+       ten  => table {NCard =>\\g =>"emerongo  ene"; 
+                      NOrd => \\g => Ordprefix g ++ "emerongo  ene"};
+       hund  => table {NCard =>\\g =>"amagana ane " ; 
+                      NOrd => \\g => Ordprefix g ++ "amagana ane"}  
+       }
+    } ;
+    mkNum5 : Str  -> Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \two, second ->
+    {s = table {
+       unit => table {NCard =>\\g => Cardprefix g + two ;-- create table totake care of eci and oroci which is isano not itano 
+                      NOrd => \\g => Ordprefix g ++ second} ; 
+       teen => table {NCard =>\\g =>"ikomi na"  ++ Cardfifteenprefix g + two ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi na" ++ second } ; 
+       ten  => table {NCard =>\\g =>"emerongo  etano"  ; 
+                      NOrd => \\g => Ordprefix g ++ "emerongo  etano"};
+       hund  => table {NCard =>\\g =>"amagana atano " ; 
+                      NOrd => \\g => Ordprefix g ++ "amagana atano"}  
+       }
+    } ;
+
+    mkNum6 : Str  -> Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \two, second ->
+    {s = table {
+       unit => table {NCard =>\\g => Cardprefix g + two ++Cardsixprefix g + second;
+                      NOrd => \\g => Ordprefix g ++ "ga" + two ++ "ri" + second} ; 
+       teen => table {NCard =>\\g =>"ikomi na"  ++ Cardfifteenprefix g + two ++ Cardsixprefix g + second ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi na" ++ "ga" + two ++ "ri" + second} ; 
+       ten  => table {NCard =>\\g =>"emerongo  etano" ++ Cardsixprefix g + second  ; 
+                      NOrd => \\g => Ordprefix g ++ "emerongo  etato"++ "ri" + second};
+       hund  => table {NCard =>\\g =>"amagana atano "++ Cardoneprefix g + second ; 
+                      NOrd => \\g => Ordprefix g ++ "amagana atano"++ "ri" + second}  
+       }
+    } ;
+
+    mkNum7 : Str  -> Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \two, second ->
+    {s = table {
+       unit => table {NCard =>\\g => Cardprefix g + two ++Cardtwoprefix g + second;
+                      NOrd => \\g => Ordprefix g ++ "ga" + two ++ "ka" + second} ; 
+       teen => table {NCard =>\\g =>"ikomi na"  ++ Cardfifteenprefix g + two ++ Cardtwoprefix g + second ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi na" ++ "ga" + two ++  "ka" + second} ; 
+       ten  => table {NCard =>\\g =>"emerongo  etano" ++ Cardtwoprefix g + second  ; 
+                      NOrd => \\g => Ordprefix g ++ "emerongo  etano"++  "ka" + second};
+       hund  => table {NCard =>\\g =>"amagana atano "++ Cardtwoprefix g  + second ; 
+                      NOrd => \\g => Ordprefix g ++ "amagana atano"++"ka" + second}  
+       }
+    } ;
+
+     mkNum8 : Str  -> Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \two, second ->
+    {s = table {
+       unit => table {NCard =>\\g => Cardprefix g + two ++ Cardprefix g   + second;
+                      NOrd => \\g => Ordprefix g ++ "ga" + two ++ "ga" + second} ; 
+       teen => table {NCard =>\\g =>"ikomi na"  ++ Cardfifteenprefix g + two ++ Cardprefix g  + second ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi na" ++ "ga" + two ++  "ga" + second} ; 
+       ten  => table {NCard =>\\g =>"emerongo  etano" ++ Cardprefix g   + second  ; 
+                      NOrd => \\g => Ordprefix g ++ "emerongo  etano"++ "ga" + second};
+       hund  => table {NCard =>\\g =>"amagana atano "++ Cardprefix g  + second ; 
+                      NOrd => \\g => Ordprefix g ++ "amagana atano"++ "ga" + second}  
+       }
+    } ;
+   mkNum2 : Str ->  Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \two,  second ->
+    {s = table {
+       unit => table {NCard =>\\g => Cardtwoprefix g + two ; 
+                      NOrd => \\g => Ordprefix g ++ second} ; 
+       teen => table {NCard =>\\g =>"ikomi na"  ++ Cardtwelveprefix g + two ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi na"  ++ Cardtwelveprefix g + two } ; 
+       ten  => table {NCard =>\\g =>"emerongo  ebere"  ; 
+                      NOrd => \\g => Ordprefix g ++ "emerongo ebere" };
+       hund  => table {NCard =>\\g =>"amagana  ebere" ; 
+                      NOrd => \\g => Ordprefix g ++ "amagana ebere" }  
+       }
+    } ;
+
+    mkNum1 : Str -> Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \two,  second -> 
+    {s = table {
+       unit => table {NCard =>\\g => Cardoneprefix g + two ; 
+                      NOrd => \\g => Ordoneprefix g ++ second} ; 
+       teen => table {NCard =>\\g =>"ikomi  nemo" ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi " ++ "nemo"} ; 
+       ten  => table {NCard =>\\g =>"ikomi" ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi"};
+       hund  => table {NCard =>\\g =>"rigana  erimo"; 
+                      NOrd => \\g => Ordprefix g ++ "rigana erimo" }  
+       }
+    } ;
+
+  regNum : Str -> {s : DForm => CardOrd => Gender => Str} = 
+    \six -> {s = table {
+       unit => table {NCard =>\\g => six ; 
+                      NOrd => \\g => Ordprefix g ++ six} ; 
+       teen => table {NCard =>\\g =>"ikomi na"  ++ six ; 
+                      NOrd => \\g => Ordprefix g ++ "ikomi na" ++ six} ; 
+       ten  => table {NCard =>\\g =>"emerongo"  ++ six ; 
+                      NOrd => \\g => Ordprefix g ++ "emerongo" ++ six};
+       hund  => table {NCard =>\\g =>"amagana "  ++ six ; 
+                      NOrd => \\g => Ordprefix g ++ "amagana" ++ six}  
+       } } ;
+
+ 
+  regCardOrd : Str -> {s : CardOrd => Gender => Str} = \ten ->
+    {s = table {NCard => \\g =>  ten ; 
+    NOrd =>\\g => Ordprefix g ++ ten } } ;  
+
+    regCardone : Str -> Str -> {s : CardOrd => Gender => Str} = \ten,one ->
+    {s = table {NCard => \\g =>  ten ++ Cardoneprefix g + one ; 
+    NOrd =>\\g => Ordprefix g ++ ten ++ Cardoneprefix g + one  } } ;
+
+  mkCard : CardOrd -> Str -> Gender => Str = \o,ten -> 
+    (regCardOrd ten).s ! o ; 
+ 
+    
+  
+ 
+
+regN : Str ->Gender -> Noun =  \w, g ->let 
+       ndeto= PrefixPlNom g + Predef.drop 3 w;
+           in case g of {
+       G4 => {s = table {  Sg => table {Nom => w; Loc =>  ""}  ;
+                Pl=>table{ Nom => "ama" + Predef.drop 2 w; Loc =>  "" }  
+                }; g = g} ;
+       G3=> {s = table {  Sg => table {Nom => w; Loc =>  ""}  ;
+                Pl=>table{ Nom => "ci" + Predef.drop 1 w; Loc => "" } 
+                 }; g = g} ;
+      _ => {s = table {  Sg => table {Nom => w; Loc =>  ""}  ;
+                Pl=>table{ Nom => ndeto; Loc =>  "" }  };
+                 g = g}};
+
+  iregN :Str-> Str ->Gender -> Noun= \man,men,g -> { 
+    s = table{Sg => table{Nom => man ; Loc=> ""}; 
+              Pl => table{Nom => men ; Loc=> ""}} ;
+    g = g
+    } ;
+
+ regA:Str -> {s : AForm =>  Str} = \seo ->  {s = table {
+     AAdj G1  Sg=>case Predef.take 1 seo of { 
+               "a"|"e"|"i"|"u"  => "omu" + seo;
+                "o"  => "omw" + seo;
+                   _ => ConsonantAdjprefix  G1 Sg + seo };
+     AAdj G1  Pl =>case Predef.take 1 seo of { 
+                   _ => ConsonantAdjprefix  G1 Pl + seo };
+
+  
+    AAdj G2   Sg=>case Predef.take 1 seo of { 
+               "a"|"e"|"i"|"u"  => "omu" + seo;
+                "o"  => "omw" + seo;
+                   _ => ConsonantAdjprefix  G2 Sg + seo };
+    AAdj  G2  Pl =>case Predef.take 1 seo of { 
+              "o" => "emi" + seo;
+             _ => ConsonantAdjprefix  G2 Pl + seo };
+  
+    AAdj G3  Sg=>case Predef.take 1 seo of { 
+               "o" |"i"  => "eng" + seo;
+                   _ => ConsonantAdjprefix  G3 Sg + seo };
+   AAdj G3 Pl =>case Predef.take 1 seo of { 
+               "o" |"i"  => "ching" + seo;
+                _ => ConsonantAdjprefix  G3 Pl + seo };
+    AAdj G4  Sg=>case Predef.take 1 seo of { 
+               "a"|"e"|"i"|"o"|"u"  => "rigi" + seo;
+                   _ => ConsonantAdjprefix  G4 Sg + seo };
+      AAdj G4 Pl =>case Predef.take 1 seo of { 
+                     _ => ConsonantAdjprefix  G4 Pl + seo };
+    AAdj G5  Sg=>case Predef.take 1 seo of { 
+               "i" => "eki" + seo;
+                   _ => ConsonantAdjprefix  G5 Sg + seo };
+      AAdj G5 Pl =>case Predef.take 1 seo of { 
+                          "i"  => "ebi" + seo;
+                   _ => ConsonantAdjprefix  G5 Pl + seo };
+
+    AAdj G6  Sg=>case Predef.take 1 seo of { 
+               "i"|"o"  => "oru"+ seo;
+                   _ => ConsonantAdjprefix  G6 Sg + seo };
+      AAdj G6 Pl =>case Predef.take 1 seo of { 
+             "i"|"o"  => "ching'"+ seo;
+                    _ => ConsonantAdjprefix  G6 Pl + seo };
+   AAdj G7  Sg=>case Predef.take 1 seo of { 
+                    _ => ConsonantAdjprefix  G7 Sg + seo };
+      AAdj G7 Pl =>case Predef.take 1 seo of { 
+                    _ => ConsonantAdjprefix  G7 Pl + seo };
+    AAdj G8  Sg=>case Predef.take 1 seo of { 
+               "i"|"o"  => "obu"+ seo;
+                   _ => ConsonantAdjprefix  G8 Sg + seo };
+      AAdj G8 Pl =>case Predef.take 1 seo of { 
+                    _ => ConsonantAdjprefix  G8 Pl + seo };
+      AAdj G9  Sg=>case Predef.take 1 seo of { 
+               "i"|"o"  => "oku" + seo;
+                   _ => ConsonantAdjprefix  G9 Sg + seo };
+      AAdj G9 Pl =>case Predef.take 1 seo of { 
+                                  _ => ConsonantAdjprefix  G9 Pl + seo };
+  
+     AAdj G10  Sg=>case Predef.take 1 seo of { 
+                                  _ => ConsonantAdjprefix  G10 Sg + seo };
+      AAdj G10 Pl =>[] }};
+
+    
+lregA : Str-> Str -> {s : AForm =>  Str} = \seo,seoo -> {  
+       s = table {
+             AAdj g Sg => ProunSgprefix g + seo ++ seoo; 
+             AAdj g Pl=> ProunPlprefix g + seo ++ seoo 
+            } } ;
+                      
+iregA : Str-> Str -> {s : AForm =>  Str} = \seo,seoo -> {  
+       s = table {
+            AAdj g Sg=> seo;
+            AAdj g Pl => seoo} };
+
+regV : Str -> Verb = 
+     \vika -> {
+     s = table{  True => table{
+       VInf        => vika;
+       VPres g n p => Verbprefix g n p + vika; 
+       VPast g n p => Verbprefix g n p + init vika + "ie" ;
+       VFut  g n p => Verbfutureprefix g n p + vika 
+            } ;
+        False =>table {
+        VInf       =>  "ndi" + vika;
+       VPres g n p => neg (Ag g n p) False Pres + "na" + vika ; 
+       VPast g n p => neg (Ag g n p) False Past + "ne" + vika ;
+       VFut  g n p => neg (Ag g n p) False Fut + "ka" + vika    
+       } 
+     };     
+     };
+
+  neg : Agr -> Bool ->Tense -> Str = \a,b,t -> let 
+        g = getGender a;
+        n=getNumber a;
+        p=getPerson a
+      in case b of {True => [] ; False => negprefix g n t p} ;
+
+  negprefix : Gender -> Number -> Tense -> Person -> Str =\g,n,t,p-> case <g,n,t,p> of {
+            <G1,Sg,_,P1> => "ndi";
+            <G1,Sg,_,P2> => "ndu";
+            <G1,Sg,_,P3> => "ndu";
+            <G1,Pl,_,P1> => "twi";
+            <G1,Pl,_,P2> => "mwi";
+            <G1,Pl,_,P3> => "mai";
+            <G2,Sg,_,_> => "ndu";
+            <G2,Pl,_,_> => "i";
+            <G3,Sg,_,_> => "i";
+            <G3,Pl,_,_> => "mai";
+            <G4,Sg,_,_> => "ki";
+            <G4,Pl,_,_> => "i";
+            <G5,Sg,_,_> => "kai";
+            <G5,Pl,_,_> => "tui";
+            <G6,Sg,_,_> => "vai";
+            <G6,Pl,_,_> => "kui";
+            <G7,Sg,_,_> => "i";
+            <_,_,_,_> => "syi"
+           
+};
+
+
+
+
+   
+
+ Verbprefix : Gender -> Number -> Person -> Str = \g, n, p ->
+   case <g,n,p> of {    
+    <G1,Sg,P1>   => "na" ;
+    <G1,Sg,P2>   => "wa" ;
+    <G1,Sg,P3>   => "wa" ;
+    <G1,Pl,P1>   => "twa" ;
+    <G1,Pl,P2>   => "mwa" ;
+    <G1,Pl,P3>   => "ma" ;
+    <G2,Sg,_>   => "wa" ;
+    <G2,Pl, _>   => "ya"  ;
+    <G4,Sg,_>   => "kya" ;
+    <G4,Pl,_>   => "sya" ;
+    <G3,Sg,_>  => "ya" ;
+    <G3,Pl,_>  => "ma" ;
+     <G5,Sg,_>  => "ka" ;
+    <G5,Pl,_>  => "twa" ;
+     <G6,Sg,_>  => "va" ;
+    <G6,Pl,_>  => "kwa" ;
+    <G7,Sg,_>  => "ya" ;
+    <_,_,_>  => "sya" 
+          } ;
+ 
+ Verbfutureprefix : Gender -> Number -> Person -> Str = \g, n, p ->
+   case <g,n,p> of {    
+    <G1,Sg,P1>   => "nga" ;
+    <G1,Sg,P2>   => "uka" ;
+    <G1,Sg,P3>   => "uka" ;
+    <G1,Pl,P1>   => "tuka" ;
+    <G1,Pl,P2>   => "muka" ;
+    <G1,Pl,P3>   => "maka" ;
+    <G2,Sg,_>   => "uka" ;
+    <G2,Pl, _>   => "ika"  ;
+    <G4,Sg,_>   => "kika" ;
+    <G4,Pl,_>   => "ika" ;
+    <G3,Sg,_>  => "ika" ;
+    <G3,Pl,_>  => "maka" ;
+     <G5,Sg,_>  => "kaka" ;
+    <G5,Pl,_>  => "tuka" ;
+     <G6,Sg,_>  => "vaka" ;
+    <G6,Pl,_>  => "kuka" ;
+    <G7,Sg,_>  => "ika" ;
+    <_,_,_>  => "ika" 
+          } ;
+
+
+Cardtwelveprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1>  =>"ba";
+    <G2>  =>"ne";
+     <_> => "i"
+         } ;
+
+CardThirteenprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1> |<G7> |<G5>=>"bat";
+    <G8> |<G4> |<G9> =>"at";
+    <G3> |<G6> =>"is";
+     <G2> =>"nit";
+     <G10> =>"at"
+            } ;
+
+Cardsixprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1> =>"o";
+    <G7> |<G5>=>"bi";
+     <G2>|<G4> |<G3>|<G6> |<G8> |<G9> |<G10>  =>"e"
+               } ;
+
+  Cardfouteenprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1> |<G7> |<G5>=>"bane";
+    <G8> |<G4> |<G9> =>"ane";
+    <G3> |<G6> =>"inye";
+     <G2> =>"ene";
+     <G10> =>"ene"
+            } ;
+  Cardfifteenprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1> =>"ba";
+    <G5> |<G7>=>"bi";
+    <G8> |<G9> |<G4> =>"a";
+    <G3> |<G6> =>"es";
+     <G2> =>"e";
+     <G10> =>"a"
+            } ;
+       Ordoneprefix : Gender ->  Str = \g ->
+   case <g> of {    
+    <G1> |<G2> =>"omo";
+    <G4> => "rita";
+    <G5>  => "ege";
+    <G3> => "en";
+    <G6>=> "oro";
+    <G7>=> "aka";
+    <G8>=> "abo";
+    <G9>=> "oko";
+    < G10> => "aa"
+    } ;
+        }
diff --git a/src/egekusii/NounGus.gf b/src/egekusii/NounGus.gf
new file mode 100644
index 000000000..3ef6f3cd4
--- /dev/null
+++ b/src/egekusii/NounGus.gf
@@ -0,0 +1,2 @@
+concrete NounGus of Noun = 
+  CatGus ** NounBantu with (Structural = StructuralGus), (ResBantu = ResGus);  
diff --git a/src/egekusii/NumeralGus.gf b/src/egekusii/NumeralGus.gf
new file mode 100644
index 000000000..b149a1001
--- /dev/null
+++ b/src/egekusii/NumeralGus.gf
@@ -0,0 +1,86 @@
+concrete NumeralGus of Numeral = CatGus [Numeral,Digits] ** open Prelude, 
+DiffGus,MorphoGus in {
+
+lincat 
+  Digit = {s : DForm => CardOrd => Gender => Str} ;
+  Sub10 = {s : DForm => CardOrd => Gender => Str ; n : Number} ;
+  Sub100     = {s : CardOrd => Gender => Str ; n : Number} ;
+  Sub1000    = {s : CardOrd => Gender => Str ; n : Number} ;
+  Sub1000000 = {s : CardOrd => Gender => Str ; n : Number} ;
+
+lin num x = x ;
+lin n2 = mkNum2 "bere"   "kabere" ;
+lin n3 = mkNum3 "ato"  "gatatu" ;
+lin n4 = mkNum4 "ne"   "kane" ;
+lin n5 = mkNum5 "tano"  "gatano" ;
+lin n6 = mkNum6 "tano" "mo";
+lin n7 = mkNum7 "tano" "bere";
+lin n8 = mkNum8 "tano" "tato";
+lin n9 = regNum "kianda" ;
+
+lin pot01 = mkNum1 "mo"  "tang'ani" ** {n = Sg} ;
+lin pot0 d = d ** {n = Pl} ;
+lin pot110 = regCardOrd "ikomi" ** {n = Pl} ;
+lin pot111 = regCardone "ikomi na" "mo" ** {n = Pl} ; -- creat another function to be gender specific
+lin pot1to19 d = {s = d.s ! teen} ** {n = Pl} ;
+lin pot0as1 n = {s = n.s ! unit}  ** {n = n.n} ;
+lin pot1 d = {s = d.s ! ten} ** {n = Pl} ;
+lin pot1plus d e = { s = table {
+      NCard => \\g => d.s ! ten ! NCard ! g ++ "na"++ e.s ! unit ! NCard ! g  ;
+      NOrd => \\g =>Ordprefix g++ d.s ! ten ! NCard ! g ++ "na"++ e.s ! unit ! NCard ! g } ;
+                  n = Pl} ;
+lin pot1as2 n = n ;
+lin pot2 d = {s = d.s ! hund} ** {n = Pl} ; 
+lin pot2plus d e = {s = table {
+      NCard => \\g => d.s ! hund ! NCard ! g ++  "na" ++ e.s !NCard ! g ;
+      NOrd => \\g =>Ordprefix g++ d.s ! hund ! NCard ! g ++  "na" ++ e.s ! NCard ! g } ;
+                   n = Pl} ;
+ lin pot2as3 n = n ;
+lin pot3 n = { s = table {
+      NCard => \\g => mkCard NCard "chilibu" ! g ++ n.s ! NCard ! g ;
+      NOrd => \\g =>Ordprefix g++ mkCard NCard "chilibu" ! g ++ n.s ! NCard ! g } ;
+              n = Pl} ;
+lin pot3plus n m = { s = table {
+      NCard => \\g => "chilibu" ++ n.s ! NCard !g ++  m.s ! NCard ! g ;
+      NOrd => \\g =>Ordprefix g++ "chilibu" ++ n.s ! NCard !g ++  m.s ! NCard ! g} ;
+                 n = Pl} ;
+
+-- numerals as sequences of digits0'
+
+  lincat 
+    Dig = TDigit ;
+
+  lin
+    IDig d = d ; 
+
+    IIDig d i = {
+      --s = \\o,g => d.s ! NCard ! g   ++ i.s ! o ! g ;
+      s = table {NCard => \\g => d.s! NCard ! g ++ BIND  ++ i.s ! NCard  ! g ;
+                 NOrd => \\g => d.s! NOrd! g ++ BIND  ++ i.s !NCard! g } ;
+           n = Pl 
+    } ;
+
+    D_0 = mkDig "0" ;
+    D_1 = mk3Dig "1" "1" Sg ;
+    D_2 = mkDig "2" ;
+    D_3 = mkDig "3" ;
+    D_4 = mkDig "4" ;
+    D_5 = mkDig "5" ;
+    D_6 = mkDig "6" ;
+    D_7 = mkDig "7" ;
+    D_8 = mkDig "8" ;
+    D_9 = mkDig "9" ;
+
+  oper
+    mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
+    mkDig : Str -> TDigit = \c -> mk2Dig c (c ) ;
+
+    mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> {
+      s = table {NCard => \\g => c ; NOrd => \\g =>Ordprefix g ++ o} ; 
+            n = n} ;
+
+    TDigit = {
+      n : Number ;
+      s : CardOrd => Gender => Str
+    } ;
+}
diff --git a/src/egekusii/ParadigmsGus.gf b/src/egekusii/ParadigmsGus.gf
new file mode 100644
index 000000000..d3fc779a0
--- /dev/null
+++ b/src/egekusii/ParadigmsGus.gf
@@ -0,0 +1,437 @@
+--# -path=.:../abstract:../../prelude:../common
+
+resource ParadigmsGus = open 
+  (Predef=Predef), 
+  Prelude, 
+  MorphoGus,
+   ResGus,
+  CatGus
+  in {
+
+oper
+  Gender : Type ; 
+   omo_aba  : Gender ;--%
+  omo_eme   : Gender ;
+  e_ci      : Gender ;
+  eri_ama   : Gender ;
+  ege_ebi   : Gender ;
+  oro_ci    : Gender ;
+  aka_ebi   : Gender ; --%
+  abo_ama   : Gender ;
+  oko_ama   : Gender ;
+  aa        : Gender ;
+
+-- To abstract over number names, we define the following.
+
+  Number : Type ; 
+
+  singular : Number ; 
+  plural   : Number ;
+
+-- To abstract over case names, we define the following.
+
+  Case : Type ; --%
+
+  nominative : Case ; --%
+  locative   : Case ; --%
+
+  npNumber : NP -> Number ; -- exctract the number of a noun phrase
+
+
+--2 Nouns
+
+-- Nouns are constructed by the function $mkN$, which takes a varying
+-- number of arguments.
+
+  mkN : overload {
+    mkN : (flash : Str) -> Gender -> N ;  --regular plural 
+    mkN : (man,men : Str) ->Gender -> N ; -- irregular plural
+    mkN : Str  -> N -> N -- e.g. baby + boom compound noun
+  } ;
+
+--3 Relational nouns 
+ mkN2 : overload {
+      mkN2 : N -> Prep -> N2 ;
+      mkN2 : N -> Str -> N2 ;
+      mkN2 : N -> N2 ; 
+      mkN2 : N -> (Gender => Number => Str)-> N2 ;
+    } ;
+ 
+oper dfltGender : Gender = G1 ; 
+       dfltNumber : Number = Sg ;
+ 
+-- Three-place relational nouns ("the connection from x to y") need two prepositions.
+
+  mkN3 : N -> Prep -> Prep -> N3 ; -- e.g. connection from x to y
+
+
+
+--3 Proper names and noun phrases
+--
+-- Proper names, with a regular genitive, are formed from strings.
+
+  mkPN : overload {
+
+    mkPN : Str ->Gender -> PN ;
+
+-- Sometimes a common noun can be reused as a proper name, e.g. "Bank"
+
+    mkPN : N -> PN --%
+  } ;
+
+--3 Determiners and quantifiers
+
+  mkOrd : Str -> Ord ; --%
+
+--2 Adjectives
+
+  mkA : overload {
+    mkA : (happy : Str) -> A ; 
+    --mkA : (happy : Str) -> A ;-- regular adj, 
+    mkA : (fat,fatter : Str) -> A ; -- irreg. 
+    } ;
+
+
+--3 Two-place adjectives
+
+  mkA2 : overload {
+    mkA2 : A -> Prep -> A2 ; -- absent from 
+    mkA2 : A -> Str -> A2 ; -- absent from --%
+    mkA2 : Str -> Prep -> A2 ; -- absent from --%
+    mkA2 : Str -> Str -> A2 -- absent from --%
+
+  } ;
+
+
+--2 Adverbs
+
+-- Adverbs are not inflected. Most lexical ones have position
+-- after the verb. Some can be preverbal (e.g. "always").
+
+  mkAdv : Str -> Adv ; -- e.g. today
+  mkAdV : Str -> AdV ; -- e.g. always
+
+-- Adverbs modifying adjectives and sentences can also be formed.
+
+  mkAdA : Str -> AdA ; -- e.g. quite
+
+-- Adverbs modifying numerals
+
+  mkAdN : Str -> AdN ; -- e.g. approximately
+
+--2 Prepositions
+
+  mkPrep : overload {
+   mkPrep : Str -> Prep  ;
+  -- mkPrep : Str -> Str -> Prep ;
+    mkPrep : (Gender => Number => Str) -> Prep ;
+  } ;
+  
+  noPrep : Prep ;  -- no preposition
+
+-- (These two functions are synonyms.)
+
+--2 Conjunctions
+--
+
+  mkConj : overload {
+    mkConj : Str -> Conj ;                  -- and (plural agreement) --%
+    mkConj : Str -> Number -> Conj ;        -- or (agrement number given as argument) --%
+    mkConj : Str -> Str -> Conj ;           -- both ... and (plural) --%
+    mkConj : Str -> Str -> Number -> Conj ; -- either ... or (agrement number given as argument) --%
+  } ;
+
+--2 Verbs
+--
+
+-- Verbs are constructed by the function $mkV$, which takes a varying
+-- number of arguments.
+
+  mkV : overload {
+    mkV : (cry : Str) -> V ; -- regular, incl. cry-cries, kiss-kisses etc
+    mkV : Str -> V -> V ;  -- fix compound, e.g. under+take
+  };
+
+
+
+
+--3 Two-place verbs
+--
+-- Two-place verbs need a preposition, except the special case with direct object.
+-- (transitive verbs). Notice that a particle comes from the $V$.-}
+
+  mkV2 : overload {
+    mkV2  : Str -> V2 ;       -- kill --%
+    mkV2  : V -> V2 ;         -- transitive, e.g. hit
+    mkV2  : V -> Prep -> V2 ; -- with preposiiton, e.g. believe in
+    mkV2  : V -> Str -> V2 ;  -- believe in --%
+    mkV2  : Str -> Prep -> V2 ; -- believe in --%
+    mkV2  : Str -> Str -> V2  -- believe in --%
+  };
+
+--3 Three-place verbs
+--
+-- Three-place (ditransitive) verbs need two prepositions, of which
+-- the first one or both can be absent.
+
+  mkV3 : overload {
+    mkV3  : V -> V3 ;                   -- ditransitive, e.g. give,_,_
+    mkV3  : V -> Prep -> Prep -> V3 ;   -- two prepositions, e.g. speak, with, about
+    mkV3  : V -> Prep -> V3 ;           -- give,_,to --%
+    mkV3  : V -> Str -> V3 ;            -- give,_,to --%
+    mkV3  : Str -> Str -> V3 ;          -- give,_,to --%
+    mkV3  : Str -> V3 ;                 -- give,_,_ --%
+  };
+
+
+--2 Other categories
+
+mkSubj : Str -> Subj = \s -> lin Subj {s = s} ; --%
+mkInterj : Str -> Interj
+  = \s -> lin Interj (ss s) ;
+
+--.
+--2 Definitions of paradigms
+--
+-- The definitions should not bother the user of the API. So they are
+-- hidden from the document.
+
+  Gender =  MorphoGus.Gender ; 
+  Number =  MorphoGus.Number ;
+  Case   =  MorphoGus.NPCase ;
+   omo_aba   = G1 ;
+  omo_eme   = G2 ;
+  e_ci      = G3 ;
+  eri_ama   = G4 ;
+  ege_ebi   = G5 ;
+  oro_ci    = G6 ;
+  aka_ebi   = G7 ; 
+  abo_ama   = G8 ;
+  oko_ama   = G9 ;
+  aa        = G10 ;
+  singular = Sg ;
+  plural = Pl ;
+  nominative = npNom ;
+  locative = npLoc ;
+
+  npNumber np = (agrFeatures np.a).n ;
+
+
+
+  regN = MorphoGus.regN ; 
+  iregN = MorphoGus.iregN ;
+
+ 
+  compoundN s n = lin N {s = \\x,y => s ++ n.s ! x ! y ; g=n.g} ;
+
+  mkPN = overload {
+   mkPN : Str -> Gender -> PN = regPN;
+   mkPN : N -> PN = nounPN
+  } ;
+
+
+mkN2 = overload {
+      mkN2 : N -> Prep -> N2 = prepN2 ;
+      mkN2 : N -> Str -> N2 = \n,s -> prepN2 n (mkPrep s);
+      mkN2 : N -> N2         = \n -> prepN2 n (mkPrep  mkPrepof ) ;
+      mkN2 : N -> (Number =>Gender =>  Str)-> N2= \n,s -> prepN2 n (mkPrep mkPrepof) ;
+    } ;
+ 
+  prepN2 = \n,p -> lin N2 (n ** {c2 = p}) ; 
+  regN2 = \n -> (prepN2 n (mkPrep mkPrepof )) ; 
+  mkN3 = \n,p,q -> lin N3 (n ** {c2 = p ; c3 = q}) ;  
+  mkPrepof : Number => Gender => Str = 
+    table Number {  Sg => table {
+                    G1| G2  => "bwo" ;
+                    G3 => "ya";
+                    G4 => "ria";
+                    G5 => "kia"; --
+                    G6 => "rwa";
+                    G7 => "ka";
+                    G8 => "bwa";
+                    G9 => "kwa";
+                    G10 => "a"
+                   }; 
+                                 
+                   Pl => table { G1 => "ba" ;
+                    G2  => "ya" ;
+                    G3|G6  => "cia";
+                    G4  |G8|G9|G10 => "a";
+                    G5  => "bi"; --
+                    G7 => "bia"} } ;
+                       
+ 
+
+
+  cnN2 : CN -> Prep -> N2 ;
+  cnN3 : CN -> Prep -> Prep -> N3 ;
+
+-- This is obsolete.
+  cnN2 = \n,p -> lin N2 (n ** {c2 = p}) ;
+  cnN3 = \n,p,q -> lin N3 (n ** {c2 = p ; c3 = q}) ;
+
+  
+    regPN n g = lin PN {s = table {Loc => ""  ; _ => n} ; g = g} ;
+    
+   
+  nounPN n = lin PN {s = n.s ! singular ; g = n.g} ;
+
+    mkOrd : Str -> Ord = \x -> lin Ord { s =\\g => x};
+
+ 
+  prepA2 a p = lin A2 (a ** {c2 = p.s!Sg!G1}) ;
+
+  mkAdv x = lin Adv (ss x) ;
+  mkAdV x = lin AdV (ss x) ;
+  mkAdA x = lin AdA (ss x) ;
+  mkAdN x = lin AdN (ss x) ;
+
+  mkPrep = overload {
+    mkPrep : Str -> Prep = \str -> lin Prep {s = \\n,g => str } ;
+    mkPrep : (Number => Gender =>  Str) -> Prep = \t ->lin Prep {s = t} ;
+  } ;
+
+   noPrep = mkPrep []  ;
+  {-} mkPrep : Str -> Str -> Prep = \p,q -> lin Prep 
+        {s = table{Sg => table{G1 => p; _=> "" }; 
+              Pl => table{G1 => q; _=> ""}}} ; 
+ prepV2 : V -> Prep -> V2 ;
+  prepV2 = \v,p -> lin V2 (v ** {c2 = p.s!Sg!G1}) ;
+  dirV2 : V -> V2 = \v -> prepV2 v noPrep ;
+
+  prepPrepV3 v p q = lin V3 (v ** {c2 = p ; c3 = q}) ; 
+   dirV3 v p = prepPrepV3 v noPrep p ;
+  dirdirV3 v = dirV3 v noPrep ;
+
+ 
+ mkA2V : A -> Prep -> Prep -> A2V;
+      A2S, A2V : Type = A2 ;
+      mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ;
+ 
+
+      mkAV  v  = v ** { lock_AV = <>} ;
+      mkAV  : A ->  AV ;
+      AS, AV : Type = A ;
+
+      mkAS  : A -> AS ; 
+      mkAS  v = v ** {lock_AS = <>} ;
+
+      mkVS  : V -> VS ;
+      mkVS  v = v ** { lock_VS = <>} ;
+
+      mkVQ  : V -> VQ ;
+      mkVQ  v = v ** {lock_VQ = <>} ;
+
+ 
+     -- mkVV : V -> VV ;
+    --  mkVV  v = v ** { lock_VV = <>} ;
+
+      mkVA  : V -> VA ;
+      mkVA  v = v ** {lock_VA = <>} ;
+
+       mkV2V : V -> Prep -> Prep -> V2V ;
+         mkV2V v p q = prepPrepV3 v p q ** {lock_V2V = <>} ;
+
+         mkV2S : V -> Prep -> V2S ; 
+         mkV2S v p = prepV2 v p ** { lock_V2S = <>} ;
+
+         mkV2Q : V -> Prep -> V2Q ;
+         mkV2Q v p = prepV2 v p ** {lock_V2Q = <>} ;
+          
+         mkV2A : V -> Prep -> Prep -> V2A ;
+         mkV2A v p q = prepPrepV3 v p q ** {lock_V2A = <>} ;
+
+
+        mkV0  : V -> V0 ;
+        V0 : Type ;
+        V0 : Type = V;
+        mkV0  v = v ** {lock_V0 = <>} ;
+-}
+-- pre-overload API and overload definitions
+
+ -- regN : Str ->Gender -> N ;
+  --iregN : (man,men : Str) ->Gender -> N ;
+  compoundN : Str  -> N -> N ;
+
+  mkN = overload {
+    mkN : Str ->Gender -> N =  \n, g -> lin N (regN n g );
+    mkN : (man,men : Str) ->Gender -> N = \s,p,g -> lin N ( iregN s p g) ;
+        } ;
+--mkN : Str ->  N -> N = compoundN taken from mkN can be added later if need be
+-- Relational nouns ("daughter of x") need a preposition. 
+
+  prepN2 : N -> Prep -> N2 ;
+
+-- The most common preposition is "of", and the following is a
+-- shortcut for regular relational nouns with "of".
+
+  regN2 : N -> N2 ;
+  
+
+
+ -- iregA : (free,freely : Str) -> A ;
+  regA : Str -> A = \s -> lin A (MorphoGus.regA s) ;
+ -- pregA : Str -> A = \s -> lin A (MorphoGus.pregA s) ;
+   iregA : (fat,fatter : Str) -> A =\a,b -> lin A (MorphoGus.iregA a b);
+  mkA = overload {
+    mkA : Str -> A = \a -> lin A (regA a);-- |lin A (pregA a) ;
+    mkA : (fat,fatter : Str) -> A =\a,b -> lin A (iregA a b);
+    } ;
+
+  prepA2 : A -> Prep -> A2 ;
+
+  mkA2 = overload {
+    mkA2 : A -> Prep -> A2   = prepA2 ;
+    mkA2 : A -> Str -> A2    = \a,p -> prepA2 a (mkPrep p) ;
+    mkA2 : Str -> Prep -> A2 = \a,p -> prepA2 (regA a) p;
+    mkA2 : Str -> Str -> A2  = \a,p -> prepA2 (regA a) (mkPrep p);
+  } ;
+
+  {-}
+  regV=MorphoGus.regV ;
+
+  mkV = overload {
+    mkV :  Str -> V =\v ->lin V(regV v) ;
+   mkV : Str -> V -> V = prefixV
+  };
+
+ 
+  prefixV : Str -> V -> V = \p,v -> lin V { s = \\b,vform => p + v.s! b ! vform } ;
+  mkV2 = overload {
+    mkV2  : V -> V2 = dirV2 ;
+    mkV2  : Str -> V2 = \s -> dirV2 (regV s) ;
+    mkV2  : V -> Prep -> V2 = prepV2; 
+    mkV2  : V -> Str -> V2 = \v,p -> prepV2 v (mkPrep p) ;
+    mkV2  : Str -> Prep -> V2 = \v,p -> prepV2 (regV v) p ;
+    mkV2  : Str -> Str -> V2 = \v,p -> prepV2 (regV v) (mkPrep p)
+  }; 
+
+  prepPrepV3 : V -> Prep -> Prep -> V3 ;
+  dirV3 : V -> Prep -> V3 ;
+  dirdirV3 : V -> V3 ;
+
+  mkV3 = overload {
+    mkV3 : V -> Prep -> Prep -> V3 = prepPrepV3 ;
+    mkV3 : V -> Prep -> V3 = dirV3 ;
+    mkV3 : V -> Str -> V3 = \v,s -> dirV3 v (mkPrep s);
+    mkV3 : Str -> Str -> V3 = \v,s -> dirV3 (regV v) (mkPrep s);
+    mkV3 : V -> V3 = dirdirV3 ;
+    mkV3 : Str -> V3 = \v -> dirdirV3 (regV v) ;
+  } ;
+-}
+  mkConj = overload {
+    mkConj : Str -> Conj = \y -> mk2Conj [] y plural ;
+    mkConj : Str -> Number -> Conj = \y,n -> mk2Conj [] y n ;
+    mkConj : Str -> Str -> Conj = \x,y -> mk2Conj x y plural ;
+    mkConj : Str -> Str -> Number -> Conj = mk2Conj ;
+  } ;
+
+  mk2Conj : Str -> Str -> Number -> Conj = \x,y,n -> 
+    lin Conj (sd2 x y ** {n = n}) ;
+
+  regPN    : Str ->Gender -> PN ;          
+   nounPN : N -> PN ;
+
+
+
+} 
diff --git a/src/egekusii/PhraseGus.gf b/src/egekusii/PhraseGus.gf
new file mode 100644
index 000000000..3a5cc5406
--- /dev/null
+++ b/src/egekusii/PhraseGus.gf
@@ -0,0 +1,3 @@
+concrete PhraseGus of Phrase = CatGus ** PhraseBantu with
+ (ResBantu = ResGus);  
+  
\ No newline at end of file
diff --git a/src/egekusii/QuestionGus.gf b/src/egekusii/QuestionGus.gf
new file mode 100644
index 000000000..071ef7b62
--- /dev/null
+++ b/src/egekusii/QuestionGus.gf
@@ -0,0 +1,2 @@
+concrete QuestionGus of Question = CatGus ** QuestionBantu with
+ (ResBantu = ResGus);  
\ No newline at end of file
diff --git a/src/egekusii/RelativeGus.gf b/src/egekusii/RelativeGus.gf
new file mode 100644
index 000000000..8d85fe09a
--- /dev/null
+++ b/src/egekusii/RelativeGus.gf
@@ -0,0 +1,2 @@
+concrete RelativeGus of Relative = CatGus ** RelativeBantu with
+ (ResBantu = ResGus);  
\ No newline at end of file
diff --git a/src/egekusii/ResGus.gf b/src/egekusii/ResGus.gf
new file mode 100644
index 000000000..4c81fdd4f
--- /dev/null
+++ b/src/egekusii/ResGus.gf
@@ -0,0 +1,7 @@
+--# -path=.:../abstract:../common:../../prelude
+
+
+instance ResGus of ResBantu = DiffGus, CommonBantu ** open Prelude in {
+
+} ;
+ 
diff --git a/src/egekusii/SentenceGus.gf b/src/egekusii/SentenceGus.gf
new file mode 100644
index 000000000..2983fb6d7
--- /dev/null
+++ b/src/egekusii/SentenceGus.gf
@@ -0,0 +1,3 @@
+concrete SentenceGus of Sentence = CatGus ** SentenceBantu with
+ (ResBantu = ResGus);  
+
diff --git a/src/egekusii/StructuralGus.gf b/src/egekusii/StructuralGus.gf
new file mode 100644
index 000000000..ec401c73b
--- /dev/null
+++ b/src/egekusii/StructuralGus.gf
@@ -0,0 +1,236 @@
+concrete StructuralGus of Structural = CatGus ** 
+  open MorphoGus, ParadigmsGus, 
+   (C = ConstructX), Prelude in {
+
+  flags optimize=all ;
+
+  lin
+  above_Prep = mkPrep "igoro" ;
+  after_Prep = mkPrep "itina" ;
+  all_Predet = {s = \\g => MorphoGus.Allpredetprefix g + "onsi"} ;
+  almost_AdA = mkAdA "ang'e " ;
+  almost_AdN = mkAdN "vakuvi " ;
+  although_Subj = ss "ona kau" ;
+  always_AdV = mkAdV "botambe " ;
+  and_Conj = mkConj "na" ;
+  because_Subj = ss "nundu" | ss "ni kwithiwa" ;
+  before_Prep = mkPrep "mbee" |mkPrep "vau mbeange" ;
+  behind_Prep = mkPrep "itina" ;
+  between_Prep = mkPrep "kati" ;
+  both7and_DConj = mkConj "eli" "na";
+  but_PConj = ss "korende" ;
+  by8agent_Prep = mkPrep "kwa" ;
+  by8means_Prep = mkPrep "kwa" ;
+
+ during_Prep = mkPrep "during" ;
+  either7or_DConj = mkConj "kana"  singular ;
+ everybody_NP = regNP "kila umwe" G1 singular ;
+  every_Det =  {s = table {Obj g => "" ;
+             Sub =>   "kila" };
+            n= Sg
+             } ;
+ 
+  -- mkDeterminerSpec singular "every" "everyone" False ;
+  everything_NP = regNP "ase oboamo" G1 singular ; --gender confirm
+  everywhere_Adv = mkAdv "ase oboamo" ;
+  few_Det =  {s = table {Obj g => Few_prefix g + "nini" ;
+             Sub =>   [] };
+            n= Pl
+             } ;
+  -- mkDeterminer plural "few" ;
+---  first_Ord = ss "first" ; DEPRECATED
+  for_Prep = mkPrep "aera" ;
+  from_Prep = mkPrep "kuma" ;
+  he_Pron = mkPron "ere" "je" G1 Sg P3 ;
+  here_Adv = mkAdv "vaa" ;
+  here7to_Adv = mkAdv ["kuvika vaa"] ;
+  here7from_Adv = mkAdv ["kuma vaa"] ;
+  how_IAdv = ss "ata" | ss "nzia myau" ;
+  how8much_IAdv = ss "mala meana" ;
+ --how8many_IDet = mkDeterminer plural ["mala meana"] ;
+  if_Subj = ss "enthwa" ;
+  in8front_Prep = mkPrep ["mbee wa"] ;
+ i_Pron   =mkPron "inche" "ne" G1 Sg P1 ;
+  in_Prep = mkPrep "in" ;
+ it_Pron   ={ s=\\c=>"yo"; poss=\\n,g=> ""; a=Ag G4 Sg P3};-- mkPron "yo" ""G4 Sg P3  ;
+       
+  less_CAdv = C.mkCAdv "ninangi" "kwi" ;
+ much_Det, many_Det = { s = table { 
+                      Obj g => Many_prefix g + "nge" ;
+                        Sub =>   []} ;
+            n= Pl
+             } ;
+  more_CAdv = C.mkCAdv "mbeange" "kwi" ; -- more should be a function beccause og Gender
+ -- most_Predet = {s = \\g => MorphoGus.Mostpredetprefix g + "ingi"} ;
+ 
+{-}  must_VV = {
+    s = table {
+      VVF VInf => ["have to"] ;
+      VVF VPres => "must" ;
+      VVF VPPart => ["had to"] ;
+      VVF VPres2Part => ["having to"] ;
+      VVF VPast => ["had to"] ;      --# notpresent
+      VVPastNeg => ["hadn't to"] ;      --# notpresent
+      VVPresNeg => "mustn't"
+      } ;
+    p = [] ;
+    typ = VVAux
+    
+    } ; -}
+---b  no_Phr = ss "no" ;
+  no_Utt = ss "yaya" ;
+  on_Prep = mkPrep "iulu wa" ;
+----  one_Quant = mkDeterminer singular "one" ; -- DEPRECATED
+  only_Predet = {s = \\g =>  "tu" } ;
+  or_Conj = mkConj "kana" singular ;
+  otherwise_PConj = ss "otherwise" ;
+--part_Prep = mkPrep "" ;
+  please_Voc = ss "ame" ;
+  part_Prep, possess_Prep = let
+       questo : ParadigmsGus.Number =>  MorphoGus.Gender =>  Str = table {
+    Sg => \\g=> case <g> of {
+                    <G1>| <G2 > => "bwo" ;
+                    <G3 > => "ya";
+                    <G4 > => "ria";
+                    <G5 > => "kia"; --
+                    <G6 > => "rwa";
+                    <G7> => "ka";
+                    <G8> => "bwa";
+                    <G9> => "kwa";
+                    <G10> => "a"
+                   }; 
+                       
+      Pl => \\g=> case <g> of{
+                   <G1> => "ba" ;
+                    <G2 > => "ya" ;
+                    <G3 >|<G6 > => "cia";
+                    <G4 > |<G8>|<G9>|<G10> => "a";
+                    <G5 > => "bi"; --
+                    <G7> => "bia"
+                       }                
+           }
+    in { s= questo} ;
+  quite_Adv = mkAdv "o muno" ;
+  she_Pron  = mkPron "ere" "je" G1 Sg P3 ;
+           
+  so_AdA = mkAdA "so" ;
+  somebody_NP = regNP " o mundu " G1 singular ;
+  someSg_Det = { s = table  {Obj g  => Some_prefix g  ;
+             Sub =>   [] } ;
+            n= Sg
+             } ;
+  somePl_Det = {s = table  {Obj g => Some_prefix g ;
+               Sub =>   [] };
+            n= Pl
+             } ;
+  something_NP = regNP "o kindu" G1 singular ; --confirm gender
+  somewhere_Adv = mkAdv "o vandu" ;
+  that_Quant = let
+       questo : ParadigmsGus.Number => MorphoGus.Gender =>  Str = table {
+    Sg => \\g=> case <g> of {
+                  <G1> => "aria";
+                  <G2> => "oria";
+                  <G4> => "riira";
+                  <G5> => "keria";
+                  <G3> => "eria";
+                  <G6> => "roria";
+                  <G7> => "karia";
+                  <G8> => "boria";
+                  <G9> => "koria";
+                  <G10> => "aria"
+                   }; 
+                       
+      Pl => \\g=> case <g> of{
+                  <G1> => "baria" |"abuo";
+                  <G2> => "eria"|"eyio";
+                  <G4> | <G8> => "aria"|"ayio"; --confirm gendder 8
+                  <G5> => "baria" |"ebio";
+                  <G3> | <G6> => "ciria"|"ecio";
+                  <G7> => "biiraa" |"ebio";
+                  <G9> => "aria" |"eyio";
+                  <G10> => "ayio"
+                   } 
+               
+           }
+    in {
+         s = questo ;
+        } ;
+  there_Adv = mkAdv "vau" ;
+  there7to_Adv = mkAdv "vau" ;
+  there7from_Adv = mkAdv ["kuma vau"] ;
+  therefore_PConj = ss "kwoou" ;
+  they_Pron  =mkPron "barabwo" "bo" G1 Pl P3 ;
+   
+  this_Quant = let
+       questo : ParadigmsGus.Number => MorphoGus.Gender =>  Str = table {
+    Sg => \\g=> case <g> of {
+                   <G1> => "oyo";
+                   <G2> => "oyo";
+                  <G4> => "eri";
+                  <G5> => "eke";
+                  <G3> => "eye";
+                  <G6> => "oro";
+                  <G7> => "aka";
+                  <G8> => "obo";
+                  <G9> => "oko";
+                  <G10> => "aa"
+                   }; 
+                       
+      Pl => \\g=> case <g> of{
+                  <G1> => "aba";
+                  <G2> => "eye";
+                  <G4>  => "aya";
+                  <G5> |<G7> => "ebi";
+                  <G3> |<G6> => "eci";
+                  <G8> |<G9>  => " aya";
+                  <G10> => "aa"
+                   } 
+               
+           }
+    in {
+         s = questo ;
+        } ;
+    through_Prep = mkPrep "kuvitila" ;
+  too_AdA = mkAdA "too" ;
+  to_Prep = mkPrep "kuvika" ;
+  under_Prep = mkPrep "itheo" ;
+  very_AdA = mkAdA "muno" ;
+ -- want_VV = mkVV (regV "enda") ;
+  we_Pron  =mkPron "intwe" "ito" G1 Pl P1 ;
+   
+  --whatPl_IP = mkIP "ata" "ata"  plural ;
+ -- whatSg_IP = mkIP "ata" "ata"  singular ;
+  when_IAdv = ss "when" ;
+  when_Subj = ss "when" ;
+  where_IAdv = ss "where" ;
+  which_IQuant = {s = \\_ => "which"} ;
+---b  whichPl_IDet = mkDeterminer plural ["which"] ;
+---b  whichSg_IDet = mkDeterminer singular ["which"] ;
+ -- whoPl_IP = mkIP "uu" "whom" "whose" plural ;
+ -- whoSg_IP = mkIP "who" "whom" "whose" singular ;
+  why_IAdv = ss "why" ;
+  without_Prep = mkPrep "nza" ;
+  with_Prep = mkPrep "vamwe na" ;
+ --yes_Phr = ss "ii" ;
+  yes_Utt = ss "eee" ;
+   youSg_Pron  =  mkPron "aye" "o" G1 Sg P2 ;
+   
+ youPol_Pron,youPl_Pron  = mkPron "inwe" "no" G1 Pl P3 ;
+   not_Predet = {s = \\g =>  "nongi"} ;
+  --no_Quant =  {s = \\g,n =>  nonExist} ;   
+  if_then_Conj = mkConj "ethiwa" "indi" singular ;
+  nobody_NP = regNP "obosa" G1 singular ;
+  nothing_NP = regNP "obosa" G1 singular ; --confirm gender
+
+  at_least_AdN = mkAdN "at least" ;
+  at_most_AdN = mkAdN "at most" ;
+  except_Prep = mkPrep "ate o" ;
+  as_CAdv = C.mkCAdv "nundu" "ta" ;
+
+ -- have_V2 = dirV2 (mk5V "have" "has" "had" "had" "having") ;
+  that_Subj = ss "ati" ;
+  lin language_title_Utt = ss "egekusii" ;
+
+
+}
+
diff --git a/src/egekusii/VerbGus.gf b/src/egekusii/VerbGus.gf
new file mode 100644
index 000000000..6026f09ee
--- /dev/null
+++ b/src/egekusii/VerbGus.gf
@@ -0,0 +1,2 @@
+concrete VerbGus of Verb = CatGus ** VerbBantu with
+ (ResBantu = ResGus);