(BeschPor) correct começar and peneirar

also add documentation on verb paradigms

src/portuguese/BeschPor.gf

@@ -71,7 +71,11 @@ oper
     -- or in =Ryan, M. A. Conjugação dos Verbos em Português. ática,
     -- 1991.=
 
+    -- the numbers in the comments below the oper declaration are the
+    -- verb's paradigm numbers in bescherelle and in Ryan
+
 oper ter_Besch : Str -> Verbum = \ter ->
+-- 1 | r3
   let x_ = Predef.tk 3 ter in
  {s = table {
     VI Infn => x_ + "ter" ;
@@ -141,6 +145,7 @@ oper ter_Besch : Str -> Verbum = \ter ->
   } ;
 
 oper haver_Besch : Str -> Verbum = \haver ->
+-- 2 | r4
   let x_ = Predef.tk 5 haver in
  {s = table {
     VI Infn => x_ + "haver" ;
@@ -210,6 +215,7 @@ oper haver_Besch : Str -> Verbum = \haver ->
   } ;
 
 oper ser_Besch : Str -> Verbum = \ser ->
+-- 3 | r1
   let x_ = Predef.tk 3 ser in
  {s = table {
     VI Infn => x_ + "ser" ;
@@ -279,6 +285,7 @@ oper ser_Besch : Str -> Verbum = \ser ->
   } ;
 
 oper comprar_Besch : Str -> Verbum = \comprar ->
+-- 4 | r5
   let compr_ = Predef.tk 2 comprar in
  {s = table {
     VI Infn => compr_ + "ar" ;
@@ -348,6 +355,7 @@ oper comprar_Besch : Str -> Verbum = \comprar ->
   } ;
 
 oper vender_Besch : Str -> Verbum = \vender ->
+-- 5 | r6
   let vend_ = Predef.tk 2 vender in
  {s = table {
     VI Infn => vend_ + "er" ;
@@ -417,6 +425,7 @@ oper vender_Besch : Str -> Verbum = \vender ->
   } ;
 
 oper garantir_Besch : Str -> Verbum = \garantir ->
+-- 6 | r7
   let garant_ = Predef.tk 2 garantir in
  {s = table {
     VI Infn => garant_ + "ir" ;
@@ -486,6 +495,7 @@ oper garantir_Besch : Str -> Verbum = \garantir ->
   } ;
 
 oper estar_Besch : Str -> Verbum = \estar ->
+-- 10 | r2
   let est_ = Predef.tk 2 estar in
  {s = table {
     VI Infn => est_ + "ar" ;
@@ -555,6 +565,7 @@ oper estar_Besch : Str -> Verbum = \estar ->
   } ;
 
 oper dar_Besch : Str -> Verbum = \dar ->
+-- 11 | r59
   let x_ = Predef.tk 3 dar in
  {s = table {
     VI Infn => x_ + "dar" ;
@@ -624,6 +635,7 @@ oper dar_Besch : Str -> Verbum = \dar ->
   } ;
 
 oper ficar_Besch : Str -> Verbum = \ficar ->
+-- 12 | r23
   let x_ = Predef.tk 5 ficar in
  {s = table {
     VI Infn => x_ + "ficar" ;
@@ -693,75 +705,77 @@ oper ficar_Besch : Str -> Verbum = \ficar ->
   } ;
 
 oper começar_Besch : Str -> Verbum = \começar ->
-  let x_ = Predef.tk 7 começar in
+-- 13 | r24
+  let come_ = Predef.tk 3 começar in
  {s = table {
-    VI Infn => x_ + "começar" ;
+    VI Infn => come_ + "çar" ;
-    VI Ger => x_ + "começando" ;
+    VI Ger => come_ + "çando" ;
-    VI Part => x_ + "começado" ;
+    VI Part => come_ + "çado" ;
-    VPB (Pres Ind Sg P1) => x_ + "começo" ;
+    VPB (Pres Ind Sg P1) => come_ + "ço" ;
-    VPB (Pres Ind Sg P2) => x_ + "começas" ;
+    VPB (Pres Ind Sg P2) => come_ + "ças" ;
-    VPB (Pres Ind Sg P3) => x_ + "começa" ;
+    VPB (Pres Ind Sg P3) => come_ + "ça" ;
-    VPB (Pres Ind Pl P1) => x_ + "começamos" ;
+    VPB (Pres Ind Pl P1) => come_ + "çamos" ;
-    VPB (Pres Ind Pl P2) => x_ + "começais" ;
+    VPB (Pres Ind Pl P2) => come_ + "çais" ;
-    VPB (Pres Ind Pl P3) => x_ + "começam" ;
+    VPB (Pres Ind Pl P3) => come_ + "çam" ;
-    VPB (Pres Sub Sg P1) => x_ + "comece" ;
+    VPB (Pres Sub Sg P1) => come_ + "ce" ;
-    VPB (Pres Sub Sg P2) => x_ + "comeces" ;
+    VPB (Pres Sub Sg P2) => come_ + "ces" ;
-    VPB (Pres Sub Sg P3) => x_ + "comece" ;
+    VPB (Pres Sub Sg P3) => come_ + "ce" ;
-    VPB (Pres Sub Pl P1) => x_ + "comecemos" ;
+    VPB (Pres Sub Pl P1) => come_ + "cemos" ;
-    VPB (Pres Sub Pl P2) => x_ + "comeceis" ;
+    VPB (Pres Sub Pl P2) => come_ + "ceis" ;
-    VPB (Pres Sub Pl P3) => x_ + "comecem" ;
+    VPB (Pres Sub Pl P3) => come_ + "cem" ;
-    VPB (PretI Ind Sg P1) => x_ + "começava" ; --# notpresent
+    VPB (PretI Ind Sg P1) => come_ + "çava" ; --# notpresent
-    VPB (PretI Ind Sg P2) => x_ + "começavas" ; --# notpresent
+    VPB (PretI Ind Sg P2) => come_ + "çavas" ; --# notpresent
-    VPB (PretI Ind Sg P3) => x_ + "começava" ; --# notpresent
+    VPB (PretI Ind Sg P3) => come_ + "çava" ; --# notpresent
-    VPB (PretI Ind Pl P1) => x_ + "começávamos" ; --# notpresent
+    VPB (PretI Ind Pl P1) => come_ + "çávamos" ; --# notpresent
-    VPB (PretI Ind Pl P2) => x_ + "começáveis" ; --# notpresent
+    VPB (PretI Ind Pl P2) => come_ + "çáveis" ; --# notpresent
-    VPB (PretI Ind Pl P3) => x_ + "começavam" ; --# notpresent
+    VPB (PretI Ind Pl P3) => come_ + "çavam" ; --# notpresent
-    VPB (PretI Sub Sg P1) => x_ + "começasse" ; --# notpresent
+    VPB (PretI Sub Sg P1) => come_ + "çasse" ; --# notpresent
-    VPB (PretI Sub Sg P2) => x_ + "começasses" ; --# notpresent
+    VPB (PretI Sub Sg P2) => come_ + "çasses" ; --# notpresent
-    VPB (PretI Sub Sg P3) => x_ + "começasse" ; --# notpresent
+    VPB (PretI Sub Sg P3) => come_ + "çasse" ; --# notpresent
-    VPB (PretI Sub Pl P1) => x_ + "começássemos" ; --# notpresent
+    VPB (PretI Sub Pl P1) => come_ + "çássemos" ; --# notpresent
-    VPB (PretI Sub Pl P2) => x_ + "começasseis" ; --# notpresent
+    VPB (PretI Sub Pl P2) => come_ + "çasseis" ; --# notpresent
-    VPB (PretI Sub Pl P3) => x_ + "começassem" ; --# notpresent
+    VPB (PretI Sub Pl P3) => come_ + "çassem" ; --# notpresent
-    VPB (MQPerf Sg P1) => x_ + "começara" ; --# notpresent
+    VPB (MQPerf Sg P1) => come_ + "çara" ; --# notpresent
-    VPB (MQPerf Sg P2) => x_ + "começaras" ; --# notpresent
+    VPB (MQPerf Sg P2) => come_ + "çaras" ; --# notpresent
-    VPB (MQPerf Sg P3) => x_ + "começara" ; --# notpresent
+    VPB (MQPerf Sg P3) => come_ + "çara" ; --# notpresent
-    VPB (MQPerf Pl P1) => x_ + "começáramos" ; --# notpresent
+    VPB (MQPerf Pl P1) => come_ + "çáramos" ; --# notpresent
-    VPB (MQPerf Pl P2) => x_ + "começáreis" ; --# notpresent
+    VPB (MQPerf Pl P2) => come_ + "çáreis" ; --# notpresent
-    VPB (MQPerf Pl P3) => x_ + "começaram" ; --# notpresent
+    VPB (MQPerf Pl P3) => come_ + "çaram" ; --# notpresent
-    VPB (PretP Sg P1) => x_ + "comecei" ; --# notpresent
+    VPB (PretP Sg P1) => come_ + "cei" ; --# notpresent
-    VPB (PretP Sg P2) => x_ + "começaste" ; --# notpresent
+    VPB (PretP Sg P2) => come_ + "çaste" ; --# notpresent
-    VPB (PretP Sg P3) => x_ + "começou" ; --# notpresent
+    VPB (PretP Sg P3) => come_ + "çou" ; --# notpresent
-    VPB (PretP Pl P1) => x_ + vars "começamos" "começámos" ; --# notpresent
+    VPB (PretP Pl P1) => come_ + vars "çamos" "çámos" ; --# notpresent
-    VPB (PretP Pl P2) => x_ + "começastes" ; --# notpresent
+    VPB (PretP Pl P2) => come_ + "çastes" ; --# notpresent
-    VPB (PretP Pl P3) => x_ + "começaram" ; --# notpresent
+    VPB (PretP Pl P3) => come_ + "çaram" ; --# notpresent
-    VPB (Fut Ind Sg P1) => x_ + "começarei" ; --# notpresent
+    VPB (Fut Ind Sg P1) => come_ + "çarei" ; --# notpresent
-    VPB (Fut Ind Sg P2) => x_ + "começarás" ; --# notpresent
+    VPB (Fut Ind Sg P2) => come_ + "çarás" ; --# notpresent
-    VPB (Fut Ind Sg P3) => x_ + "começará" ; --# notpresent
+    VPB (Fut Ind Sg P3) => come_ + "çará" ; --# notpresent
-    VPB (Fut Ind Pl P1) => x_ + "começaremos" ; --# notpresent
+    VPB (Fut Ind Pl P1) => come_ + "çaremos" ; --# notpresent
-    VPB (Fut Ind Pl P2) => x_ + "começareis" ; --# notpresent
+    VPB (Fut Ind Pl P2) => come_ + "çareis" ; --# notpresent
-    VPB (Fut Ind Pl P3) => x_ + "começarão" ; --# notpresent
+    VPB (Fut Ind Pl P3) => come_ + "çarão" ; --# notpresent
-    VPB (Fut Sub Sg P1) => x_ + "começar" ; --# notpresent
+    VPB (Fut Sub Sg P1) => come_ + "çar" ; --# notpresent
-    VPB (Fut Sub Sg P2) => x_ + "começares" ; --# notpresent
+    VPB (Fut Sub Sg P2) => come_ + "çares" ; --# notpresent
-    VPB (Fut Sub Sg P3) => x_ + "começar" ; --# notpresent
+    VPB (Fut Sub Sg P3) => come_ + "çar" ; --# notpresent
-    VPB (Fut Sub Pl P1) => x_ + "começarmos" ; --# notpresent
+    VPB (Fut Sub Pl P1) => come_ + "çarmos" ; --# notpresent
-    VPB (Fut Sub Pl P2) => x_ + "começardes" ; --# notpresent
+    VPB (Fut Sub Pl P2) => come_ + "çardes" ; --# notpresent
-    VPB (Fut Sub Pl P3) => x_ + "começarem" ; --# notpresent
+    VPB (Fut Sub Pl P3) => come_ + "çarem" ; --# notpresent
-    VPB (Cond Sg P1) => x_ + "começaria" ; --# notpresent
+    VPB (Cond Sg P1) => come_ + "çaria" ; --# notpresent
-    VPB (Cond Sg P2) => x_ + "começarias" ; --# notpresent
+    VPB (Cond Sg P2) => come_ + "çarias" ; --# notpresent
-    VPB (Cond Sg P3) => x_ + "começaria" ; --# notpresent
+    VPB (Cond Sg P3) => come_ + "çaria" ; --# notpresent
-    VPB (Cond Pl P1) => x_ + "começaríamos" ; --# notpresent
+    VPB (Cond Pl P1) => come_ + "çaríamos" ; --# notpresent
-    VPB (Cond Pl P2) => x_ + "começarieis" ; --# notpresent
+    VPB (Cond Pl P2) => come_ + "çarieis" ; --# notpresent
-    VPB (Cond Pl P3) => x_ + "começariam" ; --# notpresent
+    VPB (Cond Pl P3) => come_ + "çariam" ; --# notpresent
-    VPB (Imper Sg P2) => x_ + "começa" ;
+    VPB (Imper Sg P2) => come_ + "ça" ;
-    VPB (Imper Sg P3) => x_ + "comece" ;
+    VPB (Imper Sg P3) => come_ + "ce" ;
-    VPB (Imper Pl P1) => x_ + "comecemos" ;
+    VPB (Imper Pl P1) => come_ + "cemos" ;
-    VPB (Imper Pl P2) => x_ + "começai" ;
+    VPB (Imper Pl P2) => come_ + "çai" ;
-    VPB (Imper Pl P3) => x_ + "comecem" ;
+    VPB (Imper Pl P3) => come_ + "cem" ;
     VPB (Imper Sg P1) => nonExist
     }
   } ;
 
 oper chegar_Besch : Str -> Verbum = \chegar ->
+-- 14 | r26
   let cheg_ = Predef.tk 2 chegar in
  {s = table {
     VI Infn => cheg_ + "ar" ;
@@ -831,6 +845,7 @@ oper chegar_Besch : Str -> Verbum = \chegar ->
   } ;
 
 oper recear_Besch : Str -> Verbum = \recear ->
+-- 15 | r46
   let rec_ = Predef.tk 3 recear in
  {s = table {
     VI Infn => rec_ + "ear" ;
@@ -900,6 +915,7 @@ oper recear_Besch : Str -> Verbum = \recear ->
   } ;
 
 oper anunciar_Besch : Str -> Verbum = \anunciar ->
+-- 16 | r46
   let anunci_ = Predef.tk 2 anunciar in
  {s = table {
     VI Infn => anunci_ + "ar" ;
@@ -969,6 +985,7 @@ oper anunciar_Besch : Str -> Verbum = \anunciar ->
   } ;
 
 oper odiar_Besch : Str -> Verbum = \odiar ->
+-- 17 | r46
   let od_ = Predef.tk 3 odiar in
  {s = table {
     VI Infn => od_ + "iar" ;
@@ -1038,6 +1055,7 @@ oper odiar_Besch : Str -> Verbum = \odiar ->
   } ;
 
 oper comerciar_Besch : Str -> Verbum = \comerciar ->
+-- 18 | r36
   let comerc_ = Predef.tk 3 comerciar in
  {s = table {
     VI Infn => comerc_ + "iar" ;
@@ -1107,6 +1125,7 @@ oper comerciar_Besch : Str -> Verbum = \comerciar ->
   } ;
 
 oper saudar_Besch : Str -> Verbum = \saudar ->
+-- 19 | r16
   let sa_ = Predef.tk 4 saudar in
  {s = table {
     VI Infn => sa_ + "udar" ;
@@ -1176,6 +1195,7 @@ oper saudar_Besch : Str -> Verbum = \saudar ->
   } ;
 
 oper perdoar_Besch : Str -> Verbum = \perdoar ->
+-- 20 | r38
   let perd_ = Predef.tk 3 perdoar in
  {s = table {
     VI Infn => perd_ + "oar" ;
@@ -1245,6 +1265,7 @@ oper perdoar_Besch : Str -> Verbum = \perdoar ->
   } ;
 
 oper averiguar_Besch : Str -> Verbum = \averiguar ->
+-- 21 | r30
   let averigu_ = Predef.tk 2 averiguar in
  {s = table {
     VI Infn => averigu_ + "ar" ;
@@ -1314,6 +1335,7 @@ oper averiguar_Besch : Str -> Verbum = \averiguar ->
   } ;
 
 oper neviscar_Besch : Str -> Verbum = \neviscar ->
+-- 22 | r23
   let n_ = Predef.tk 7 neviscar in
  {s = table {
     VI Infn => n_ + "eviscar" ;
@@ -1383,6 +1405,7 @@ oper neviscar_Besch : Str -> Verbum = \neviscar ->
   } ;
 
 oper adequar_Besch : Str -> Verbum = \adequar ->
+-- 23 | r82
   let adequ_ = Predef.tk 2 adequar in
  {s = table {
     VI Infn => adequ_ + "ar" ;
@@ -1452,6 +1475,7 @@ oper adequar_Besch : Str -> Verbum = \adequar ->
   } ;
 
 oper relampaguear_Besch : Str -> Verbum = \relampaguear ->
+-- 24
   let relamp_ = Predef.tk 6 relampaguear in
  {s = table {
     VI Infn => relamp_ + "aguear" ;
@@ -1521,6 +1545,7 @@ oper relampaguear_Besch : Str -> Verbum = \relampaguear ->
   } ;
 
 oper aquecer_Besch : Str -> Verbum = \aquecer ->
+-- 25 | r25
   let aque_ = Predef.tk 3 aquecer in
  {s = table {
     VI Infn => aque_ + "cer" ;
@@ -1590,6 +1615,7 @@ oper aquecer_Besch : Str -> Verbum = \aquecer ->
   } ;
 
 oper proteger_Besch : Str -> Verbum = \proteger ->
+-- 26 | r27
   let prote_ = Predef.tk 3 proteger in
  {s = table {
     VI Infn => prote_ + "ger" ;
@@ -1659,6 +1685,7 @@ oper proteger_Besch : Str -> Verbum = \proteger ->
   } ;
 
 oper erguer_Besch : Str -> Verbum = \erguer ->
+-- 27 | r32
   let erg_ = Predef.tk 3 erguer in
  {s = table {
     VI Infn => erg_ + "uer" ;
@@ -1728,6 +1755,7 @@ oper erguer_Besch : Str -> Verbum = \erguer ->
   } ;
 
 oper moer_Besch : Str -> Verbum = \moer ->
+-- 28 | r39
   let m_ = Predef.tk 3 moer in
  {s = table {
     VI Infn => m_ + "oer" ;
@@ -1797,6 +1825,7 @@ oper moer_Besch : Str -> Verbum = \moer ->
   } ;
 
 oper dizer_Besch : Str -> Verbum = \dizer ->
+-- 29 | r60
   let di_ = Predef.tk 3 dizer in
  {s = table {
     VI Infn => di_ + "zer" ;
@@ -1866,6 +1895,7 @@ oper dizer_Besch : Str -> Verbum = \dizer ->
   } ;
 
 oper trazer_Besch : Str -> Verbum = \trazer ->
+-- 30 | r73
   let tr_ = Predef.tk 4 trazer in
  {s = table {
     VI Infn => tr_ + "azer" ;
@@ -1935,6 +1965,7 @@ oper trazer_Besch : Str -> Verbum = \trazer ->
   } ;
 
 oper fazer_Besch : Str -> Verbum = \fazer ->
+-- 31 | r61
   let f_ = Predef.tk 4 fazer in
  {s = table {
     VI Infn => f_ + "azer" ;
@@ -2004,6 +2035,7 @@ oper fazer_Besch : Str -> Verbum = \fazer ->
   } ;
 
 oper aprazer_Besch : Str -> Verbum = \aprazer ->
+-- 32 | r55
   let apr_ = Predef.tk 4 aprazer in
  {s = table {
     VI Infn => apr_ + "azer" ;
@@ -2073,6 +2105,7 @@ oper aprazer_Besch : Str -> Verbum = \aprazer ->
   } ;
 
 oper jazer_Besch : Str -> Verbum = \jazer ->
+-- 33 | r43
   let jaz_ = Predef.tk 2 jazer in
  {s = table {
     VI Infn => jaz_ + "er" ;
@@ -2142,6 +2175,7 @@ oper jazer_Besch : Str -> Verbum = \jazer ->
   } ;
 
 oper caber_Besch : Str -> Verbum = \caber ->
+-- 34 | r56
   let c_ = Predef.tk 4 caber in
  {s = table {
     VI Infn => c_ + "aber" ;
@@ -2211,6 +2245,7 @@ oper caber_Besch : Str -> Verbum = \caber ->
   } ;
 
 oper saber_Besch : Str -> Verbum = \saber ->
+-- 35 | r72
   let s_ = Predef.tk 4 saber in
  {s = table {
     VI Infn => s_ + "aber" ;
@@ -2280,6 +2315,7 @@ oper saber_Besch : Str -> Verbum = \saber ->
   } ;
 
 oper poder_Besch : Str -> Verbum = \poder ->
+-- 36 | r66
   let p_ = Predef.tk 4 poder in
  {s = table {
     VI Infn => p_ + "oder" ;
@@ -2349,6 +2385,7 @@ oper poder_Besch : Str -> Verbum = \poder ->
   } ;
 
 oper crer_Besch : Str -> Verbum = \crer ->
+-- 37 | r58
   let cr_ = Predef.tk 2 crer in
  {s = table {
     VI Infn => cr_ + "er" ;
@@ -2418,6 +2455,7 @@ oper crer_Besch : Str -> Verbum = \crer ->
   } ;
 
 oper querer_Besch : Str -> Verbum = \querer ->
+-- 38 | r69
   let qu_ = Predef.tk 4 querer in
  {s = table {
     VI Infn => qu_ + "erer" ;
@@ -2487,6 +2525,7 @@ oper querer_Besch : Str -> Verbum = \querer ->
   } ;
 
 oper requerer_Besch : Str -> Verbum = \requerer ->
+-- 39 | r70
   let reque_ = Predef.tk 3 requerer in
  {s = table {
     VI Infn => reque_ + "rer" ;
@@ -2556,6 +2595,7 @@ oper requerer_Besch : Str -> Verbum = \requerer ->
   } ;
 
 oper ver_Besch : Str -> Verbum = \ver ->
+-- 40 | r25
   let v_ = Predef.tk 2 ver in
  {s = table {
     VI Infn => v_ + "er" ;
@@ -2625,6 +2665,7 @@ oper ver_Besch : Str -> Verbum = \ver ->
   } ;
 
 oper prover_Besch : Str -> Verbum = \prover ->
+-- 41 | r68
   let prov_ = Predef.tk 2 prover in
  {s = table {
     VI Infn => prov_ + "er" ;
@@ -2694,6 +2735,7 @@ oper prover_Besch : Str -> Verbum = \prover ->
   } ;
 
 oper ler_Besch : Str -> Verbum = \ler ->
+-- 42 | r58
   let l_ = Predef.tk 2 ler in
  {s = table {
     VI Infn => l_ + "er" ;
@@ -2763,6 +2805,7 @@ oper ler_Besch : Str -> Verbum = \ler ->
   } ;
 
 oper valer_Besch : Str -> Verbum = \valer ->
+-- 43 | r74
   let val_ = Predef.tk 2 valer in
  {s = table {
     VI Infn => val_ + "er" ;
@@ -2832,6 +2875,7 @@ oper valer_Besch : Str -> Verbum = \valer ->
   } ;
 
 oper perder_Besch : Str -> Verbum = \perder ->
+-- 44 | r65
   let per_ = Predef.tk 3 perder in
  {s = table {
     VI Infn => per_ + "der" ;
@@ -2901,6 +2945,7 @@ oper perder_Besch : Str -> Verbum = \perder ->
   } ;
 
 oper pôr_Besch : Str -> Verbum = \pôr ->
+-- 45 | r67
   let p_ = Predef.tk 2 pôr in
  {s = table {
     VI Infn => p_ + "ôr" ;
@@ -2970,6 +3015,7 @@ oper pôr_Besch : Str -> Verbum = \pôr ->
   } ;
 
 oper acontecer_Besch : Str -> Verbum = \acontecer ->
+-- 46 | r25
   let aconte_ = Predef.tk 3 acontecer in
  {s = table {
     VI Infn => aconte_ + "cer" ;
@@ -3039,6 +3085,7 @@ oper acontecer_Besch : Str -> Verbum = \acontecer ->
   } ;
 
 oper chover_Besch : Str -> Verbum = \chover ->
+-- 47 | r6
   let chov_ = Predef.tk 2 chover in
  {s = table {
     VI Infn => chov_ + "er" ;
@@ -3108,6 +3155,7 @@ oper chover_Besch : Str -> Verbum = \chover ->
   } ;
 
 oper doer_Besch : Str -> Verbum = \doer ->
+-- 48 | r83
   let d_ = Predef.tk 3 doer in
  {s = table {
     VI Infn => d_ + "oer" ;
@@ -3177,6 +3225,7 @@ oper doer_Besch : Str -> Verbum = \doer ->
   } ;
 
 oper prazer_Besch : Str -> Verbum = \prazer ->
+-- 49 | r55
   let pr_ = Predef.tk 4 prazer in
  {s = table {
     VI Infn => pr_ + "azer" ;
@@ -3246,6 +3295,7 @@ oper prazer_Besch : Str -> Verbum = \prazer ->
   } ;
 
 oper precaver_Besch : Str -> Verbum = \precaver ->
+-- 50 | r85
   let precav_ = Predef.tk 2 precaver in
  {s = table {
     VI Infn => precav_ + "er" ;
@@ -3315,6 +3365,7 @@ oper precaver_Besch : Str -> Verbum = \precaver ->
   } ;
 
 oper reaver_Besch : Str -> Verbum = \reaver ->
+-- 51 | r86
   let re_ = Predef.tk 4 reaver in
  {s = table {
     VI Infn => re_ + "aver" ;
@@ -3384,6 +3435,7 @@ oper reaver_Besch : Str -> Verbum = \reaver ->
   } ;
 
 oper redigir_Besch : Str -> Verbum = \redigir ->
+-- 52 | r28
   let red_ = Predef.tk 4 redigir in
  {s = table {
     VI Infn => red_ + "igir" ;
@@ -3453,6 +3505,7 @@ oper redigir_Besch : Str -> Verbum = \redigir ->
   } ;
 
 oper extinguir_Besch : Str -> Verbum = \extinguir ->
+-- 53 | r33
   let extin_ = Predef.tk 4 extinguir in
  {s = table {
     VI Infn => extin_ + "guir" ;
@@ -3522,6 +3575,7 @@ oper extinguir_Besch : Str -> Verbum = \extinguir ->
   } ;
 
 oper servir_Besch : Str -> Verbum = \servir ->
+-- 54 | r47
   let s_ = Predef.tk 5 servir in
  {s = table {
     VI Infn => s_ + "ervir" ;
@@ -3591,6 +3645,7 @@ oper servir_Besch : Str -> Verbum = \servir ->
   } ;
 
 oper seguir_Besch : Str -> Verbum = \seguir ->
+-- 55 | r50
   let s_ = Predef.tk 5 seguir in
  {s = table {
     VI Infn => s_ + "eguir" ;
@@ -3660,6 +3715,7 @@ oper seguir_Besch : Str -> Verbum = \seguir ->
   } ;
 
 oper sentir_Besch : Str -> Verbum = \sentir ->
+-- 56 | r47
   let s_ = Predef.tk 5 sentir in
  {s = table {
     VI Infn => s_ + "entir" ;
@@ -3729,6 +3785,7 @@ oper sentir_Besch : Str -> Verbum = \sentir ->
   } ;
 
 oper preferir_Besch : Str -> Verbum = \preferir ->
+-- 57 | r47
   let pref_ = Predef.tk 4 preferir in
  {s = table {
     VI Infn => pref_ + "erir" ;
@@ -3798,6 +3855,7 @@ oper preferir_Besch : Str -> Verbum = \preferir ->
   } ;
 
 oper agredir_Besch : Str -> Verbum = \agredir ->
+-- 58 | r48
   let agr_ = Predef.tk 4 agredir in
  {s = table {
     VI Infn => agr_ + "edir" ;
@@ -3867,6 +3925,7 @@ oper agredir_Besch : Str -> Verbum = \agredir ->
   } ;
 
 oper dormir_Besch : Str -> Verbum = \dormir ->
+-- 59 | r51
   let d_ = Predef.tk 5 dormir in
  {s = table {
     VI Infn => d_ + "ormir" ;
@@ -3936,6 +3995,7 @@ oper dormir_Besch : Str -> Verbum = \dormir ->
   } ;
 
 oper polir_Besch : Str -> Verbum = \polir ->
+-- 60 | r81
   let p_ = Predef.tk 4 polir in
  {s = table {
     VI Infn => p_ + "olir" ;
@@ -4005,6 +4065,7 @@ oper polir_Besch : Str -> Verbum = \polir ->
   } ;
 
 oper acudir_Besch : Str -> Verbum = \acudir ->
+-- 61 | r53
   let ac_ = Predef.tk 4 acudir in
  {s = table {
     VI Infn => ac_ + "udir" ;
@@ -4074,6 +4135,7 @@ oper acudir_Besch : Str -> Verbum = \acudir ->
   } ;
 
 oper fugir_Besch : Str -> Verbum = \fugir ->
+-- 62 | r54
   let f_ = Predef.tk 4 fugir in
  {s = table {
     VI Infn => f_ + "ugir" ;
@@ -4143,6 +4205,7 @@ oper fugir_Besch : Str -> Verbum = \fugir ->
   } ;
 
 oper frigir_Besch : Str -> Verbum = \frigir ->
+-- 63 | r28
   let fr_ = Predef.tk 4 frigir in
  {s = table {
     VI Infn => fr_ + "igir" ;
@@ -4212,6 +4275,7 @@ oper frigir_Besch : Str -> Verbum = \frigir ->
   } ;
 
 oper divergir_Besch : Str -> Verbum = \divergir ->
+-- 64 | r49
   let div_ = Predef.tk 5 divergir in
  {s = table {
     VI Infn => div_ + "ergir" ;
@@ -4281,6 +4345,7 @@ oper divergir_Besch : Str -> Verbum = \divergir ->
   } ;
 
 oper refletir_Besch : Str -> Verbum = \refletir ->
+-- 65 | r47
   let refl_ = Predef.tk 4 refletir in
  {s = table {
     VI Infn => refl_ + vars "etir" "ectir" ;
@@ -4350,6 +4415,7 @@ oper refletir_Besch : Str -> Verbum = \refletir ->
   } ;
 
 oper ir_Besch : Str -> Verbum = \ir ->
+-- 66 | r53
   let x_ = Predef.tk 2 ir in
  {s = table {
     VI Infn => x_ + "ir" ;
@@ -4419,6 +4485,7 @@ oper ir_Besch : Str -> Verbum = \ir ->
   } ;
 
 oper vir_Besch : Str -> Verbum = \vir ->
+-- 67 | r63
   let v_ = Predef.tk 2 vir in
  {s = table {
     VI Infn => v_ + "ir" ;
@@ -4488,6 +4555,7 @@ oper vir_Besch : Str -> Verbum = \vir ->
   } ;
 
 oper sair_Besch : Str -> Verbum = \sair ->
+-- 68 | r42
   let sa_ = Predef.tk 2 sair in
  {s = table {
     VI Infn => sa_ + "ir" ;
@@ -4557,6 +4625,7 @@ oper sair_Besch : Str -> Verbum = \sair ->
   } ;
 
 oper rir_Besch : Str -> Verbum = \rir ->
+-- 69 | r48
   let r_ = Predef.tk 2 rir in
  {s = table {
     VI Infn => r_ + "ir" ;
@@ -4626,6 +4695,7 @@ oper rir_Besch : Str -> Verbum = \rir ->
   } ;
 
 oper pedir_Besch : Str -> Verbum = \pedir ->
+-- 70 | r63
   let pe_ = Predef.tk 3 pedir in
  {s = table {
     VI Infn => pe_ + "dir" ;
@@ -4695,6 +4765,7 @@ oper pedir_Besch : Str -> Verbum = \pedir ->
   } ;
 
 oper ouvir_Besch : Str -> Verbum = \ouvir ->
+-- 71 | r63
   let ou_ = Predef.tk 3 ouvir in
  {s = table {
     VI Infn => ou_ + "vir" ;
@@ -4764,6 +4835,7 @@ oper ouvir_Besch : Str -> Verbum = \ouvir ->
   } ;
 
 oper traduzir_Besch : Str -> Verbum = \traduzir ->
+-- 72 | r44
   let traduz_ = Predef.tk 2 traduzir in
  {s = table {
     VI Infn => traduz_ + "ir" ;
@@ -4833,6 +4905,7 @@ oper traduzir_Besch : Str -> Verbum = \traduzir ->
   } ;
 
 oper distribuir_Besch : Str -> Verbum = \distribuir ->
+-- 73 | r40
   let distribu_ = Predef.tk 2 distribuir in
  {s = table {
     VI Infn => distribu_ + "ir" ;
@@ -4902,6 +4975,7 @@ oper distribuir_Besch : Str -> Verbum = \distribuir ->
   } ;
 
 oper destruir_Besch : Str -> Verbum = \destruir ->
+-- 74 | r57
   let destr_ = Predef.tk 3 destruir in
  {s = table {
     VI Infn => destr_ + "uir" ;
@@ -4971,6 +5045,7 @@ oper destruir_Besch : Str -> Verbum = \destruir ->
   } ;
 
 oper arguir_Besch : Str -> Verbum = \arguir ->
+-- 75 | r31
   let arg_ = Predef.tk 3 arguir in
  {s = table {
     VI Infn => arg_ + "uir" ;
@@ -5040,6 +5115,7 @@ oper arguir_Besch : Str -> Verbum = \arguir ->
   } ;
 
 oper reunir_Besch : Str -> Verbum = \reunir ->
+-- 76 | r18
   let re_ = Predef.tk 4 reunir in
  {s = table {
     VI Infn => re_ + "unir" ;
@@ -5109,6 +5185,7 @@ oper reunir_Besch : Str -> Verbum = \reunir ->
   } ;
 
 oper proibir_Besch : Str -> Verbum = \proibir ->
+-- 77 | r20
   let pro_ = Predef.tk 4 proibir in
  {s = table {
     VI Infn => pro_ + "ibir" ;
@@ -5178,6 +5255,7 @@ oper proibir_Besch : Str -> Verbum = \proibir ->
   } ;
 
 oper imergir_Besch : Str -> Verbum = \imergir ->
+-- 78 | r49
   let imerg_ = Predef.tk 2 imergir in
  {s = table {
     VI Infn => imerg_ + "ir" ;
@@ -5247,6 +5325,7 @@ oper imergir_Besch : Str -> Verbum = \imergir ->
   } ;
 
 oper falir_Besch : Str -> Verbum = \falir ->
+-- 79 | r81
   let fal_ = Predef.tk 2 falir in
  {s = table {
     VI Infn => fal_ + "ir" ;
@@ -5316,6 +5395,7 @@ oper falir_Besch : Str -> Verbum = \falir ->
   } ;
 
 oper remir_Besch : Str -> Verbum = \remir ->
+-- 80 | r49
   let rem_ = Predef.tk 2 remir in
  {s = table {
     VI Infn => rem_ + "ir" ;
@@ -5385,6 +5465,7 @@ oper remir_Besch : Str -> Verbum = \remir ->
   } ;
 
 oper viajar_Besch : Str -> Verbum = \viajar ->
+-- r22
   let viaj_ = Predef.tk 2 viajar in
  {s = table {
     VI Infn => viaj_ + "ar" ;
@@ -5454,6 +5535,7 @@ oper viajar_Besch : Str -> Verbum = \viajar ->
   } ;
 
 oper suar_Besch : Str -> Verbum = \suar ->
+-- r37
   let su_ = Predef.tk 2 suar in
  {s = table {
     VI Infn => su_ + "ar" ;
@@ -5522,4 +5604,74 @@ oper suar_Besch : Str -> Verbum = \suar ->
     }
   } ;
 
+oper peneirar_Besch : Str -> Verbum = \peneirar ->
+-- r10
+  let peneir_ = Predef.tk 2 peneirar in
+ {s = table {
+    VI Infn => peneir_ + "ar" ;
+    VI Ger => peneir_ + "ando" ;
+    VI Part => peneir_ + "ado" ;
+    VPB (Pres Ind Sg P1) => peneir_ + "o" ;
+    VPB (Pres Ind Sg P2) => peneir_ + "as" ;
+    VPB (Pres Ind Sg P3) => peneir_ + "a" ;
+    VPB (Pres Ind Pl P1) => peneir_ + "amos" ;
+    VPB (Pres Ind Pl P2) => peneir_ + "ais" ;
+    VPB (Pres Ind Pl P3) => peneir_ + "am" ;
+    VPB (Pres Sub Sg P1) => peneir_ + "e" ;
+    VPB (Pres Sub Sg P2) => peneir_ + "es" ;
+    VPB (Pres Sub Sg P3) => peneir_ + "e" ;
+    VPB (Pres Sub Pl P1) => peneir_ + "emos" ;
+    VPB (Pres Sub Pl P2) => peneir_ + "eis" ;
+    VPB (Pres Sub Pl P3) => peneir_ + "em" ;
+    VPB (PretI Ind Sg P1) => peneir_ + "ava" ; --# notpresent
+    VPB (PretI Ind Sg P2) => peneir_ + "avas" ; --# notpresent
+    VPB (PretI Ind Sg P3) => peneir_ + "ava" ; --# notpresent
+    VPB (PretI Ind Pl P1) => peneir_ + "ávamos" ; --# notpresent
+    VPB (PretI Ind Pl P2) => peneir_ + "áveis" ; --# notpresent
+    VPB (PretI Ind Pl P3) => peneir_ + "avam" ; --# notpresent
+    VPB (PretI Sub Sg P1) => peneir_ + "asse" ; --# notpresent
+    VPB (PretI Sub Sg P2) => peneir_ + "asses" ; --# notpresent
+    VPB (PretI Sub Sg P3) => peneir_ + "asse" ; --# notpresent
+    VPB (PretI Sub Pl P1) => peneir_ + "ássemos" ; --# notpresent
+    VPB (PretI Sub Pl P2) => peneir_ + "ásseis" ; --# notpresent
+    VPB (PretI Sub Pl P3) => peneir_ + "assem" ; --# notpresent
+    VPB (MQPerf Sg P1) => peneir_ + "ara" ; --# notpresent
+    VPB (MQPerf Sg P2) => peneir_ + "aras" ; --# notpresent
+    VPB (MQPerf Sg P3) => peneir_ + "ara" ; --# notpresent
+    VPB (MQPerf Pl P1) => peneir_ + "áramos" ; --# notpresent
+    VPB (MQPerf Pl P2) => peneir_ + "áreis" ; --# notpresent
+    VPB (MQPerf Pl P3) => peneir_ + "aram" ; --# notpresent
+    VPB (PretP Sg P1) => peneir_ + "ei" ; --# notpresent
+    VPB (PretP Sg P2) => peneir_ + "aste" ; --# notpresent
+    VPB (PretP Sg P3) => peneir_ + "ou" ; --# notpresent
+    VPB (PretP Pl P1) => peneir_ + "amos" ; --# notpresent
+    VPB (PretP Pl P2) => peneir_ + "astes" ; --# notpresent
+    VPB (PretP Pl P3) => peneir_ + "aram" ; --# notpresent
+    VPB (Fut Ind Sg P1) => peneir_ + "arei" ; --# notpresent
+    VPB (Fut Ind Sg P2) => peneir_ + "arás" ; --# notpresent
+    VPB (Fut Ind Sg P3) => peneir_ + "ará" ; --# notpresent
+    VPB (Fut Ind Pl P1) => peneir_ + "aremos" ; --# notpresent
+    VPB (Fut Ind Pl P2) => peneir_ + "areis" ; --# notpresent
+    VPB (Fut Ind Pl P3) => peneir_ + "arão" ; --# notpresent
+    VPB (Fut Sub Sg P1) => peneir_ + "ar" ; --# notpresent
+    VPB (Fut Sub Sg P2) => peneir_ + "ares" ; --# notpresent
+    VPB (Fut Sub Sg P3) => peneir_ + "ar" ; --# notpresent
+    VPB (Fut Sub Pl P1) => peneir_ + "armos" ; --# notpresent
+    VPB (Fut Sub Pl P2) => peneir_ + "ardes" ; --# notpresent
+    VPB (Fut Sub Pl P3) => peneir_ + "arem" ; --# notpresent
+    VPB (Cond Sg P1) => peneir_ + "aria" ; --# notpresent
+    VPB (Cond Sg P2) => peneir_ + "aries" ; --# notpresent
+    VPB (Cond Sg P3) => peneir_ + "aria" ; --# notpresent
+    VPB (Cond Pl P1) => peneir_ + "aríamos" ; --# notpresent
+    VPB (Cond Pl P2) => peneir_ + "aríeis" ; --# notpresent
+    VPB (Cond Pl P3) => peneir_ + "ariam" ; --# notpresent
+    VPB (Imper Sg P2) => peneir_ + "a" ;
+    VPB (Imper Sg P3) => peneir_ + "e" ;
+    VPB (Imper Pl P1) => peneir_ + "emos" ;
+    VPB (Imper Pl P2) => peneir_ + "ai" ;
+    VPB (Imper Pl P3) => peneir_ + "em" ;
+    VPB (Imper Sg P1) => nonExist
+    }
+  } ;
+
 } ;

src/portuguese/DiffPor.gf

@@ -148,7 +148,7 @@ instance DiffPor of DiffRomance - [partAgr,vpAgrSubj,vpAgrClits] = open CommonRo
     subjIf = "se" ;
 
   oper
-    relPron : Bool => AAgr => Case => Str = \\b,a,c =>
+    relPron : Bool => AAgr => Case => Str = \\_b,a,c =>
       case c of {
         Nom | Acc => "que" ;
         CPrep P_a => "cujo" ;