next-lib renamed to lib, lib to old-lib

9 files changed, 0 insertions, 3894 deletions

diff --git a/next-lib/src/romanian/BeschRon.gf b/next-lib/src/romanian/BeschRon.gf
deleted file mode 100644
index 4511833ac..000000000
--- a/next-lib/src/romanian/BeschRon.gf
+++ /dev/null
@@ -1,171 +0,0 @@
-resource BeschRon = open Prelude, MorphoRon,CatRon in {
-
-flags optimize=noexpand ; -- faster and smaller than =all
-
-oper VerbeN = {s: VForm => Str } ;
-oper mkNV : Verbe -> V = \ve -> {s = ve ; lock_V = <> } ;
-oper mkRV : Verbe -> V = \ve -> {s = ve ; lock_V = <>} ;
-
-
--- for Group 1 - verbs ending in a (last sylablle) - the default behaviour is conjugation with "ez"
---        with small mutation, depending on the second last letter (80 % verbs - especially neological)
--- for Group 2 - verbs ending in ea - there are relatively few verbs, most of them irregular
---        default behavior - covers almost 25 %
--- for Group 3 - verbs ending in e - most verbs have phonetical mutations in the stem, for different 
---        tenses, difficult to find a pattern that describes this behavior
---        default conjugation - covers almost 20%
--- for Group 4 - verbs ending in i/î - the default behaviour is the conjugation with "sc", which 
---        characterizes almost 75 % of the verbs
--- in general : Group 1 + Group 4 are the most frequent for verbs
--- the smart paradigm covers (60-70% cases for a reasonably big database)
---          (statistical tests also needed)                    
-
-
-
-oper conj : Str -> Verbe = mkV6 ;  
-
-
-
-oper v_besch6 : Str -> VerbeN = \s -> mkNV (mkV6 s) ;
-oper v_besch7 : Str -> VerbeN = \s -> mkNV (mkV7 s) ;
-oper v_besch8 : Str -> VerbeN = \s -> mkNV (mkV8 s) ;
-oper v_besch9 : Str -> VerbeN = \s -> mkNV (mkV9 s) ;
-oper v_besch10 : Str -> VerbeN = \s -> mkNV (mkV10 s) ;
-oper v_besch11 : Str -> VerbeN = \s -> mkNV (mkV11 s) ;
-oper v_besch12 : Str -> VerbeN = \s -> mkNV (mkV12 s) ;
-oper v_besch13 : Str -> VerbeN = \s -> mkNV (mkV13 s) ;
-oper v_besch14 : Str -> VerbeN = \s -> mkNV (mkV14 s) ;
-oper v_besch15 : Str -> VerbeN = \s -> mkNV (mkV15 s) ; 
-oper v_besch16 : Str -> VerbeN = \s -> mkNV (mkV16 s) ;
-oper v_besch17 : Str -> VerbeN = \s -> mkNV (mkV17 s) ;
-oper v_besch18 : Str -> VerbeN = \s -> mkNV (mkV18 s) ;
-oper v_besch19 : Str -> VerbeN = \s -> mkNV (mkV19 s) ;
-oper v_besch20 : Str -> VerbeN = \s -> mkNV (mkV20 s) ;
-oper v_besch21 : Str -> VerbeN = \s -> mkNV (mkV21 s) ; 
-oper v_besch22 : Str -> VerbeN = \s -> mkNV (mkV22 s) ;
-oper v_besch23 : Str -> VerbeN = \s -> mkNV (mkV23 s) ;
-oper v_besch24 : Str -> VerbeN = \s -> mkNV (mkV24 s) ;
-oper v_besch25 : Str -> VerbeN = \s -> mkNV (mkV25 s) ;
-oper v_besch26 : Str -> VerbeN = \s -> mkNV (mkV26 s) ;
-oper v_besch27 : Str -> VerbeN = \s -> mkNV (mkV27 s) ;
-oper v_besch28 : Str -> VerbeN = \s -> mkNV (mkV28 s) ;
-oper v_besch29 : Str -> VerbeN = \s -> mkNV (mkV29 s) ;
-oper v_besch30 : Str -> VerbeN = \s -> mkNV (mkV30 s) ;
-oper v_besch31 : Str -> VerbeN = \s -> mkNV (mkV31 s) ;
-oper v_besch32 : Str -> VerbeN = \s -> mkNV (mkV32 s) ;
-oper v_besch33 : Str -> VerbeN = \s -> mkNV (mkV33 s) ;
-oper v_besch34 : Str -> VerbeN = \s -> mkNV (mkV34 s) ;
-oper v_besch35 : Str -> VerbeN = \s -> mkNV (mkV35 s) ;
-oper v_besch36 : Str -> VerbeN = \s -> mkNV (mkV36 s) ;
-oper v_besch37 : Str -> VerbeN = \s -> mkNV (mkV37 s) ;
-oper v_besch38 : Str -> VerbeN = \s -> mkNV (mkV38 s) ;
-oper v_besch39 : Str -> VerbeN = \s -> mkNV (mkV39 s) ;
-oper v_besch40 : Str -> VerbeN = \s -> mkNV (mkV40 s) ;
-oper v_besch41 : Str -> VerbeN = \s -> mkNV (mkV41 s) ;
-oper v_besch42 : Str -> VerbeN = \s -> mkNV (mkV42 s) ;
-oper v_besch43 : Str -> VerbeN = \s -> mkNV (mkV43 s) ;
-oper v_besch44 : Str -> VerbeN = \s -> mkNV (mkV44 s) ;
-oper v_besch45 : Str -> VerbeN = \s -> mkNV (mkV45 s) ;
-oper v_besch46 : Str -> VerbeN = \s -> mkNV (mkV46 s) ;
-oper v_besch47 : Str -> VerbeN = \s -> mkNV (mkV47 s) ;
-oper v_besch48 : Str -> VerbeN = \s -> mkNV (mkV48 s) ;
-oper v_besch49 : Str -> VerbeN = \s -> mkNV (mkV49 s) ;
-oper v_besch50 : Str -> VerbeN = \s -> mkNV (mkV50 s) ; 
-oper v_besch51 : Str -> VerbeN = \s -> mkNV (mkV51 s) ;
-oper v_besch52 : Str -> VerbeN = \s -> mkNV (mkV52 s) ;
-oper v_besch53 : Str -> VerbeN = \s -> mkNV (mkV53 s) ;
-oper v_besch54 : Str -> VerbeN = \s -> mkNV (mkV54 s) ;
-oper v_besch55 : Str -> VerbeN = \s -> mkNV (mkV55 s) ;
-oper v_besch56 : Str -> VerbeN = \s -> mkNV (mkV56 s) ;
-oper v_besch57 : Str -> VerbeN = \s -> mkNV (mkV57 s) ;
-oper v_besch58 : Str -> VerbeN = \s -> mkNV (mkV58 s) ;
-oper v_besch59 : Str -> VerbeN = \s -> mkNV (mkV59 s) ;
-oper v_besch60 : Str -> VerbeN = \s -> mkNV (mkV60 s) ;
-oper v_besch61 : Str -> VerbeN = \s -> mkNV (mkV61 s) ;
-oper v_besch62 : Str -> VerbeN = \s -> mkNV (mkV62 s) ;
---oper v_besch63 : Str -> VerbeN = \s -> mkNV (mkV63 s) ;
-oper v_besch64 : Str -> VerbeN = \s -> mkNV (mkV64 s) ;
-oper v_besch65 : Str -> VerbeN = \s -> mkNV (mkV65 s) ;
-oper v_besch66 : Str -> VerbeN = \s -> mkNV (mkV66 s) ;
-oper v_besch67 : Str -> VerbeN = \s -> mkNV (mkV67 s) ;
-oper v_besch68 : Str -> VerbeN = \s -> mkNV (mkV68 s) ;
-oper v_besch69 : Str -> VerbeN = \s -> mkNV (mkV69 s) ;
-oper v_besch70 : Str -> VerbeN = \s -> mkNV (mkV70 s) ;
-oper v_besch71 : Str -> VerbeN = \s -> mkNV (mkV71 s) ;
-oper v_besch72 : Str -> VerbeN = \s -> mkNV (mkV72 s) ;
-oper v_besch73 : Str -> VerbeN = \s -> mkNV (mkV73 s) ;
-oper v_besch74 : Str -> VerbeN = \s -> mkNV (mkV74 s) ;
---oper v_besch75 : Str -> VerbeN = \s -> mkNV (mkV75 s) ;
-oper v_besch76 : Str -> VerbeN = \s -> mkNV (mkV76 s) ;
-oper v_besch77 : Str -> VerbeN = \s -> mkNV (mkV77 s) ;
-oper v_besch78 : Str -> VerbeN = \s -> mkNV (mkV78 s) ;
-oper v_besch79 : Str -> VerbeN = \s -> mkNV (mkV79 s) ;
-oper v_besch80 : Str -> VerbeN = \s -> mkNV (mkV80 s) ;
-oper v_besch81 : Str -> VerbeN = \s -> mkNV (mkV81 s) ;
-oper v_besch82 : Str -> VerbeN = \s -> mkNV (mkV82 s) ;
-oper v_besch83 : Str -> VerbeN = \s -> mkNV (mkV83 s) ;
-oper v_besch84 : Str -> VerbeN = \s -> mkNV (mkV84 s) ;
-oper v_besch85 : Str -> VerbeN = \s -> mkNV (mkV85 s) ;
-oper v_besch86 : Str -> VerbeN = \s -> mkNV (mkV86 s) ;
-oper v_besch87 : Str -> VerbeN = \s -> mkNV (mkV87 s) ;
-oper v_besch88 : Str -> VerbeN = \s -> mkNV (mkV88 s) ;
-oper v_besch89 : Str -> VerbeN = \s -> mkNV (mkV89 s) ;
-oper v_besch90 : Str -> VerbeN = \s -> mkNV (mkV90 s) ;
-oper v_besch91 : Str -> VerbeN = \s -> mkNV (mkV91 s) ;
-oper v_besch92 : Str -> VerbeN = \s -> mkNV (mkV92 s) ;
-oper v_besch93 : Str -> VerbeN = \s -> mkNV (mkV93 s) ;
-oper v_besch94 : Str -> VerbeN = \s -> mkNV (mkV94 s) ;
-oper v_besch95 : Str -> VerbeN = \s -> mkNV (mkV95 s) ;
-oper v_besch96 : Str -> VerbeN = \s -> mkNV (mkV96 s) ;
-oper v_besch97 : Str -> VerbeN = \s -> mkNV (mkV97 s) ;
-oper v_besch98 : Str -> VerbeN = \s -> mkNV (mkV98 s) ;
-oper v_besch99 : Str -> VerbeN = \s -> mkNV (mkV99 s) ;
-oper v_besch100 : Str -> VerbeN = \s -> mkNV (mkV100 s) ; 
-oper v_besch101 : Str -> VerbeN = \s -> mkNV (mkV101 s) ; 
-oper v_besch102 : Str -> VerbeN = \s -> mkNV (mkV102 s) ; 
-oper v_besch103 : Str -> VerbeN = \s -> mkNV (mkV103 s) ; 
-oper v_besch104 : Str -> VerbeN = \s -> mkNV (mkV104 s) ; 
-oper v_besch105 : Str -> VerbeN = \s -> mkNV (mkV105 s) ; 
-oper v_besch106 : Str -> VerbeN = \s -> mkNV (mkV106 s) ; 
---oper v_besch107 : Str -> VerbeN = \s -> mkNV (mkV107 s) ; 
-oper v_besch108 : Str -> VerbeN = \s -> mkNV (mkV108 s) ; 
-oper v_besch109 : Str -> VerbeN = \s -> mkNV (mkV109 s) ; 
-oper v_besch110 : Str -> VerbeN = \s -> mkNV (mkV110 s) ; 
---oper v_besch111 : Str -> VerbeN = \s -> mkNV (mkV111 s) ; 
-oper v_besch112 : Str -> VerbeN = \s -> mkNV (mkV112 s) ; 
-oper v_besch113 : Str -> VerbeN = \s -> mkNV (mkV113 s) ; 
---oper v_besch114 : Str -> VerbeN = \s -> mkNV (mkV114 s) ; 
-oper v_besch115 : Str -> VerbeN = \s -> mkNV (mkV115 s) ; 
-oper v_besch116 : Str -> VerbeN = \s -> mkNV (mkV116 s) ; 
-oper v_besch117 : Str -> VerbeN = \s -> mkNV (mkV117 s) ; 
-oper v_besch118 : Str -> VerbeN = \s -> mkNV (mkV118 s) ; 
-oper v_besch119 : Str -> VerbeN = \s -> mkNV (mkV119 s) ; 
-oper v_besch120 : Str -> VerbeN = \s -> mkNV (mkV120 s) ; 
-oper v_besch121 : Str -> VerbeN = \s -> mkNV (mkV121 s) ; 
-oper v_besch122 : Str -> VerbeN = \s -> mkNV (mkV122 s) ; 
-oper v_besch123 : Str -> VerbeN = \s -> mkNV (mkV123 s) ; 
-oper v_besch124 : Str -> VerbeN = \s -> mkNV (mkV124 s) ; 
-oper v_besch125 : Str -> VerbeN = \s -> mkNV (mkV125 s) ; 
-oper v_besch126 : Str -> VerbeN = \s -> mkNV (mkV126 s) ; 
-oper v_besch127 : Str -> VerbeN = \s -> mkNV (mkV127 s) ; 
-oper v_besch128 : Str -> VerbeN = \s -> mkNV (mkV128 s) ; 
-oper v_besch129 : Str -> VerbeN = \s -> mkNV (mkV129 s) ; 
-oper v_besch130 : Str -> VerbeN = \s -> mkNV (mkV130 s) ; 
-oper v_besch131 : Str -> VerbeN = \s -> mkNV (mkV131 s) ; 
-oper v_besch132 : Str -> VerbeN = \s -> mkNV (mkV132 s) ; 
-oper v_besch133 : Str -> VerbeN = \s -> mkNV (mkV133 s) ; 
-oper v_besch134 : Str -> VerbeN = \s -> mkNV (mkV134 s) ; 
-oper v_besch135 : Str -> VerbeN = \s -> mkNV (mkV135 s) ; 
-oper v_besch136 : Str -> VerbeN = \s -> mkNV (mkV136 s) ; 
-oper v_besch137 : Str -> VerbeN = \s -> mkNV (mkV137 s) ; 
-oper v_besch138 : Str -> VerbeN = \s -> mkNV (mkV138 s) ; 
-oper v_besch139 : Str -> VerbeN = \s -> mkNV (mkV139 s) ; 
-oper v_besch140 : Str -> VerbeN = \s -> mkNV (mkV140 s) ; 
-oper v_besch141 : Str -> VerbeN = \s -> mkNV (mkV141 s) ; 
-oper v_besch142 : Str -> VerbeN = \s -> mkNV (mkV142 s) ; 
-oper v_besch143 : Str -> VerbeN = \s -> mkNV (mkV143 s) ; 
-oper v_besch144 : Str -> VerbeN = \s -> mkNV (mkV144 s) ;
-oper v_have : VerbeN = mkNV (mkV1 "avea") ;
-
-
-}
diff --git a/next-lib/src/romanian/CatRon.gf b/next-lib/src/romanian/CatRon.gf
deleted file mode 100644
index a43aa5d3b..000000000
--- a/next-lib/src/romanian/CatRon.gf
+++ /dev/null
@@ -1,70 +0,0 @@
---# -path=.:../Romance:../common:../abstract:../common:prelude

-

-concrete CatRon of Cat =

-  CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] 

-  ** open Prelude, ResRon, (R = ParamX) in {

-

-  flags optimize=all_subs ;

-

-

-  

-  lincat

-

-

--- Verb

-

- --   VP = ResRon.VP ;

-  --  VPSlash = ResRon.VP ** {c2 : Compl} ;

-  --  Comp = {s : Agr => Str} ; 

-

--- Adjective

-

-    AP = {s : AForm => Str ; isPre : Bool} ; 

-

--- Noun

- lincat 

-    CN      = {s : Number => Str ; g : Gender} ;

- --   Pron    = Pronoun ;

- --   NP      = NounPhrase ;

-  --  Det     = {

-  --    s : Gender => Case => Str ; 

-  --    n : Number ; 

-  --    s2 : Str ;            -- -ci 

-  --    sp : Gender => Case => Str    -- substantival: mien, mienne

-  --    } ;

-  --  Quant = {

-  --    s  : Bool => Number => Gender => Case => Str ; 

-  --    s2 : Str ; 

-  --    sp : Number => Gender => Case => Str 

-       Ord = {s : AForm => Str ; isPre : Bool} ;

--- Numeral

-

-    Numeral = {s : ACase => CardOrd => NumF => Str ; size : Size } ;

-    Digits  = {s : CardOrd => Str ; n : Size ; isDig : Bool} ;

-

-    

-

--- Structural

- 

-    Conj = {s1,s2 : Str ; n : Number} ;

-    Subj = {s : Str ; m : Mood} ;

-    Prep = {s : Str ; c : NCase ; isDir : Bool} ;

-

--- Open lexical classes, e.g. Lexicon

-    Verb = {s : VForm => Str } ;

-    V ={s : VForm => Str } ;

-    VQ, VA = V ;

-    V2, VV, V2S, V2Q = V ** {c2 : Compl} ;

-    V3, V2A, V2V = V ** {c2,c3 : Compl} ;

-    VS = V ** {m : Polarity => Mood} ;

-

-    A  = {s : Degree => AForm => Str ; isPre : Bool} ;

-    A2 = {s : Degree => AForm => Str ; c2 : Compl} ;

-

-    N  = Noun ; 

-    N2 = Noun  ** {c2 : Compl} ;

-    N3 = Noun  ** {c2,c3 : Compl} ;

-    PN = {s : ACase => Str ; g : Gender ; n : Number} ;

-

-

-}

diff --git a/next-lib/src/romanian/GrammarRon.gf b/next-lib/src/romanian/GrammarRon.gf
deleted file mode 100644
index 43460e8f7..000000000
--- a/next-lib/src/romanian/GrammarRon.gf
+++ /dev/null
@@ -1,9 +0,0 @@
---# -path=.:../romance:../abstract:../common:prelude

-

-concrete GrammarRon of Grammar = 

-  NumeralRon

-  ** {

-

-flags startcat = Phr ; unlexer = text ; lexer = text ;

-

-} ;

diff --git a/next-lib/src/romanian/LangRon.gf b/next-lib/src/romanian/LangRon.gf
deleted file mode 100644
index 9663cb5d1..000000000
--- a/next-lib/src/romanian/LangRon.gf
+++ /dev/null
@@ -1,10 +0,0 @@
---# -path=.:../romance:../abstract:../common

-

-concrete LangRon of Lang = 

-  GrammarRon,

-  LexiconRon

-  ** {

-

-flags startcat = Phr ; unlexer = text ; lexer = text ;

-

-} ;

diff --git a/next-lib/src/romanian/LexiconRon.gf b/next-lib/src/romanian/LexiconRon.gf
deleted file mode 100644
index f5c643364..000000000
--- a/next-lib/src/romanian/LexiconRon.gf
+++ /dev/null
@@ -1,365 +0,0 @@
---# -path=.:../romance:../common:../abstract:../../prelude

-

-concrete LexiconRon of Lexicon = CatRon ** 

-  open ParadigmsRon,BeschRon,MorphoRon in {

-

-flags 

-  optimize=values; coding=cp1250;

-

-lin

- airplane_N = mkN "avion" ;

- answer_V2S = mkV2S (mkV "răspunde") (noPrep Da) ; 

- apartment_N = mkN "apartament";

- apple_N = mkN "măr";

- art_N = mkN "artă" ;

- ask_V2Q = mkV2Q (v_besch29 "întreba") (noPrep Ac) ; 

- baby_N = mkAnim (mkN "bebeluș" masculine) ;

- bad_A =  mkA "rău" "rea" "răi" "rele" ;

- bank_N = mkN "bancă" "bănci" ;

- beautiful_A = mkRMut "frumos" ; 

- become_VA = mkVA (v_besch136 "deveni") ;

- beer_N = mkN "bere" ;

- beg_V2V = mkV2V (v_besch48 "ruga") (noPrep Ac) (noPrep Da) ; 

- big_A = mkA "mare" ;

- bike_N = mkN "bicicletă" ;

- bird_N = mkN "pasăre" "păsări" ;

- black_A = mkRMut "negru" ;

- blue_A = mkA "albastru" ;

- boat_N = mkN "vapor" neuter ;

- book_N = mkN "carte" "cărți" ;

- boot_N = mkN "cizmă" ;

- boss_N = mkAnim (mkN "șef" masculine) ;

- boy_N = mkAnim (mkN "băiat" "băieți") ;

- bread_N = mkN "pâine";

- break_V2 = dirV2 (v_besch97 "sparge") ;

- broad_A = mkA "larg" ;

- brother_N2 = mkN2 (mkAnim(mkN "frate" masculine)) (noPrep Ge) ;

- brown_A = invarA "maro" ;

- butter_N = mkNR "unt";

- buy_V2 = dirV2 (v_besch35 "cumpăra"); 

- camera_N = compN (mkN "aparat" neuter) ["foto"] ;

- cap_N = mkN "șapcă" "șepci" ;

- car_N = mkN "mașină" ;

- carpet_N = mkN "covor" neuter ;

- cat_N = mkN "pisică"  ;

- ceiling_N = mkN "plafon" ;

- chair_N = mkN "scaun"  ;

- cheese_N = mkN "brânză" "brânzeturi" "brânze" ;

- child_N = mkAnim (mkN "copil" "copii" ) ;

- church_N = mkN "biserică"  ;

- city_N = mkN "oraș" ;

- clean_A = mkA "curat" ;

- clever_A = mkRMut "deștept" ; 

- close_V2 = dirV2 (mkV "închide") ;

- coat_N = mkN "haină" ;

- cold_A = mkA "rece" ;

- come_V = v_besch136 "veni" ;

- computer_N = mkN "calculator" neuter ;

- country_N = mkN "țară" "țări" ;

- cousin_N = mkAnim (mkN "văr" masculine) ; 

- cow_N = mkN "vacă" "vaci"  ;

- die_V = v_besch129 "muri" ;

- dirty_A = mkA "murdar" ;

- distance_N3 = mkN3 (mkN "distanță") (mkPrep "de la" Ac) (mkPrep "la" Ac) ;

- doctor_N = mkAnim (mkN "doctor") ;

- dog_N = mkN "câine" masculine ;

- door_N = mkN "ușă" "uși" ;

- drink_V2 = dirV2 (v_besch73 "bea") ;

- easy_A2V = mkA2V (mkRMut "ușor") (noPrep Ac) (noPrep Ac) ;

- eat_V2 = dirV2 (v_besch52 "mânca") ;

- empty_A = mkSMut "gol" ;

- enemy_N = mkAnim (mkN "dușman" masculine) ;

- factory_N = mkN "fabrică" ;

- father_N2 = mkN2 (mkN "tată" "tați" masculine) (noPrep Ge);

- fear_VS = mkVS (v_besch100 "teme") ;

- fear_V2 = mmkV2 (mkRV (mkV100 "teme")) (mkPrep "de" Ac) ;

- find_V2 = dirV2 (mkV "găsi") ;

- fish_N = mkN "pește" masculine ;

- floor_N = mkN "podea" ;

- forget_V2 = dirV2 (v_besch18 "uita") ;

- fridge_N = mkN "frigider" ;

- friend_N = mkAnim (mkN "prieten") ;

- fruit_N = mkN "fruct"  ;

- fun_AV = mkAV (mkA "distractiv") (noPrep Ac) ;

- garden_N = mkN "gradină" ;

- girl_N = mkAnim (mkN "fată" "fete") ;

- glove_N = mkN "mănușă" "mănuși" ;

- gold_N = mkNR "aur" ;

-good_A = mkA "bun" "bună" "buni" "bune" "bine" ;

-go_V = v_besch90 "merge" ;

-green_A = mkA "verde" ;

-harbour_N = mkNR "port" ;

-hate_V2 = dirV2 (mkV "urî") ;

-hat_N = mkN "pălărie" ;

-hear_V2 = dirV2 (v_besch127 "auzi") ;

-hill_N = mkNR "deal" ;

-hope_VS = mkVS (v_besch17 "spera") ;

-horse_N = mkN "cal" "cai" ;

-hot_A = mkA "cald" ;

-house_N = mkN "casă" ;

-important_A = mkA "important" ;

-industry_N = mkN "industrie" ;

-iron_N = mkN "fier" masculine ;

-king_N = mkAnim (mkN "rege" masculine) ;

-know_V2 = dirV2 (v_besch122 "ști") ;

-know_VS = mkVS (v_besch109 "cunoaște") ;

-lake_N = mkNR "lac" ;

-lamp_N = mkN "lampă" "lămpi" ;

-learn_V2 = dirV2(v_besch45 "învăța") ;

-leather_N = mkN "piele" "piei" ;

-leave_V2 = dirV2 (mkV "părăsi") ;

-like_V2 = dirV2 (v_besch71 "plăcea") ;

-listen_V2 = dirV2 (v_besch18 "asculta") ;

-live_V = mkV "trăi" ;

-long_A = mkA "lung" ;

-lose_V2 = dirV2 (v_besch113 "pierde") ;

-love_N = mkN "iubire" ;

-love_V2 = dirV2 (mkV "iubi") ;

-man_N = mkAnim (mkN "om" "oameni") ;

-married_A2 = mkA2 (mkA "căsătorit") (mkPrep "cu" Ac) ;

-meat_N = mkN "carne" "cărnuri" "cărni" ;

-milk_N = mkN "lapte" masculine ;

-moon_N = mkN "lună" "luni" ;

-mother_N2 = mkN2 (chV "mamă" (mkAnim (mkN "mamă"))) (noPrep Ge) ;

-mountain_N = mkN "munte" masculine ;

-music_N = mkN "muzică" ;

-narrow_A = mkA "îngust" ;

-new_A = mkA "nou" "nouă" "noi" "noi" ;

-newspaper_N = mkN "ziar" ;

-oil_N = mkNR "ulei" ;

-old_A = mkA "vechi" "veche" "vechi" "vechi" ; 

-open_V2 = dirV2 (mkV "deshide") ;

-paint_V2A = mkV2A (mkV "picta") (noPrep Ac) (mkPrep "cu" Ac) ; 

-paper_N = mkN "hârtie" ;

-paris_PN = mkPN "Paris" ;

-peace_N = mkN "pace" "păci" ;

-pen_N = mkNR "stilou" ;

-planet_N = mkN "planetă" ;

-plastic_N = mkN "plastic" ;

-play_V2 = dirV2 (v_besch48 "juca") ;

-policeman_N = mkAnim (mkN "polițist" masculine) ;

-priest_N = mkAnim (mkN "preot" masculine) ;

-probable_AS = mkAS (mkA "probabil") ;

-queen_N = mkAnim (mkN "regină" "regine") ;

-radio_N = mkNR "radio";

---rain_V0 = mkV0 (v_besch54 "ploua") ;

-read_V2 = dirV2 (mkV "citi") ;

-red_A = mkA "roșu" "roșie" "roșii" "roșii" ;

-religion_N = mkN "religie" ;

-restaurant_N = mkN "restaurant" ;

-river_N = mkN "fluviu" masculine ;

-rock_N = mkN "piatră" "pietre" ;

-roof_N = mkNR "acoperiș";

-rubber_N = mkNR "cauciuc";

- run_V = v_besch126 "fugi" ;

- say_VS = mkVS (v_besch76 "spune") ;

- school_N = mkN "școala" "școli" ;

- science_N = mkN "știință" ;

- sea_N = mkN "mare" "mări" ;

- seek_V2 = dirV2 (v_besch24 "căuta") ;

- see_V2 = dirV2 (v_besch67 "vedea") ;

- sell_V3 = dirV3 (v_besch112 "vinde") ;

- send_V3 = dirV3 (v_besch82 "trimite") ;

- sheep_N = mkN "oaie" ;

- ship_N = mkN "vapor" neuter ;

- shirt_N = mkN "cămașă" "cămăși" ;

- shoe_N = mkN "pantof" masculine ;

- shop_N = mkN "magazin" ;

- short_A = mkA "scurt" ; 

- silver_N = mkN "argint" masculine ;

- sister_N = mkAnim (mkN "soră" "surori") ;

- sleep_V = v_besch128 "dormi" ;

- small_A = mkA "mic" "mică" "mici" "mici" ;

- snake_N = mkN "șarpe" "șerpi" masculine ;

- sock_N = mkN "șosetă" ;

- speak_V2 = dirV2 (mkV "vorbi") ;

- star_N = mkN "stea" ;

- steel_N = mkNR "oțel" ;

- stone_N = mkN "piatră" "pietre" ;

- stove_N = mkN "sobă" ;

- student_N = mkAnim (mkN "student" masculine) ;

- stupid_A = mkA "stupid" ;

- sun_N = mkN "soare" "sori" masculine ;

- switch8off_V2 = dirV2 (v_besch77 "stinge") ;

- switch8on_V2 = dirV2 (mkV "aprinde") ;

- table_N = mkN "masă" "mese" ;

- talk_V3 = mmkV3 (mkV "vorbi") (noPrep Ac) (mkPrep "cu" Ac) ; 

- teacher_N = mkAnim (mkN "profesor") ;

- teach_V2 = dirV2 (v_besch57 "preda") ;

- television_N = mkN "televiziune" ;

- thick_A = mkRMut "gros" ;

- thin_A = mkA "subțire" ;

- train_N = mkNR "tren";

- travel_V = mkV "călători" ;

- tree_N = mkN "copac" masculine ;

- --trousers_N = mkN "pantalon" masculine ;

- ugly_A = mkA "urât" ;

- understand_V2 = dirV2 (v_besch83 "înțelege") ;

- university_N = mkN "universitate" ;

- village_N = mkN "sat" neuter ;

- wait_V2 = dirV2 (v_besch30 "aștepta") ;

- walk_V = v_besch90 "merge" ;

- warm_A = mkA "calduț" ;

- war_N = mkN "război" neuter ;

- watch_V2 = dirV2 (mkV "privi") ;

- water_N = mkN "apă" ;

- white_A = mkA "alb" ;

- window_N = mkN "fereastră" "ferestre" ;

- wine_N = mkNR "vin" ;

- win_V2 = dirV2 (v_besch17 "câștiga") ;

- woman_N = chV "femeie" (mkAnim (mkN "femeie")) ;

- wonder_VQ = mkVQ (mkRV (regV "minuna")) ;

- wood_N = mkN "lemn" ;

- write_V2 = dirV2 (v_besch117 "scrie") ;

- yellow_A = mkA "galben" ;

- young_A = mkA "tânăr" "tânără" "tineri" "tinere" "tinerește" ;

-

-  do_V2 = dirV2 (v_besch115 "face") ;

-  now_Adv = mkAdv "acum" ; 

-  already_Adv = mkAdv "deja" ;

-  song_N = mkN "cântec" ;

-  add_V3 = dirV3 (v_besch23 "adăuga") ;

-  number_N = mkN "număr" ;

-  put_V2 = dirV2 (v_besch76 "pune") ;

-  stop_V = mkRV (regV "opri") ;

- jump_V = v_besch118 "sări" ;

-

-  left_Ord = mkOrd (regA "stâng") ;

-  right_Ord = mkOrd (mkRMut "drept") ;

-far_Adv = mkAdv "departe" ;

-correct_A = mkA "corect" ;

-dry_A = mkA "uscat" ;

-dull_A = mkA "monoton";

-full_A = mkA "plin" ;

-heavy_A = mkA "greu" "grea" "grei" "grele";

-near_A = mkA "apropiat" ;

-rotten_A = mkA "stricat" ;

-round_A = mkA "rotund" ;

-sharp_A = mkA "ascuțit" ;

-smooth_A = mkA "neted" ;

-straight_A = mkRMut "drept" ;

-wet_A = mkA "ud" ;

-wide_A = mkA "adânc" ;

-  animal_N = mkN "animal" ;

-  ashes_N = mkN "cenușă" "cenuși" ;

-  back_N = mkN "spate" "spate" neuter ;

-  bark_N = mkNR "lătrat" ;

-  belly_N = mkN "pântec" ;

-  blood_N = mkNR "sânge" ;

-  bone_N = mkN "os" ;

-  breast_N = mkNR "piept" ;

-  cloud_N = mkN "nor" ;

-  day_N = mkN "zi" feminine ;

-  dust_N = mkNR "praf" ;

-  ear_N = mkN "ureche" ;

-  earth_N = mkNR "pământ" ;

-  egg_N = mkN "ou" "ouă" neuter ;

-  eye_N = mkN "ochi" masculine ;

-  fat_N = mkN "grăsime" ;

-  feather_N = mkN "pană" "pene" ;

-  fingernail_N = mkN "unghie" ;

-  fire_N = mkNR "foc" ;

-  flower_N = mkN "floare" "flori" ;

-  fog_N = mkN "ceață" "cețuri" "ceți" ; 

-  foot_N = mkN "picior" neuter ;

-  forest_N = mkN "pădure" ;

-  grass_N = mkN "iarbă" "ierburi" "ierbi" ;

-  guts_N = mkN "intestin" ;

-  hair_N = mkN "păr" masculine ;

-  hand_N = mkN "mână" "mâini" ;

-  head_N = mkN "cap" "capete" neuter ;

-  heart_N = mkN "inimă" ;

-  horn_N = mkNR "corn" ;

-  husband_N = mkAnim (mkN "soț" masculine) ;

-  ice_N = mkN "gheață" "ghețuri" "gheți" ;

-  knee_N = mkN "genunchi" masculine ;

-  leaf_N = mkN "frunză" ;

-  leg_N = mkN "picior" neuter ;

-  liver_N = mkN "ficat" ;

-  louse_N = mkN "păduche" masculine ;

-  mouth_N = mkN "gură" ;

-  name_N = mkN "nume" "nume" neuter ;

-  neck_N = mkNR "gât" ;

-  night_N = mkN "noapte" "nopți" ;

-  nose_N = mkNR "nas" ;

-  person_N = mkAnim (mkN "persoană") ;

-  rain_N = mkN "ploaie" ;

-  road_N = mkNR "drum" ;

-  root_N = mkN "rădăcină" ;

-  rope_N = mkN "sfoară" "sfori" ;

-  salt_N = mkN "sare" "săruri" "sări";

-  sand_N = mkNR "nisip" ;

-  seed_N = mkN "sămânță" "semințe" ;

-  skin_N = mkN "piele" "pieli" "piei" ;

-  sky_N = mkNR "cer"  ;

-  smoke_N = mkNR "fum" ;

-  snow_N = mkN "zăpadă" "zăpezi" ;

-  stick_N = mkN "băț" ;

-  tail_N = mkN "coadă" "cozi"  ; -- mkN "coadă" feminine - certain kind of tails

-  tongue_N = mkN "limbă" "limbi";

-  tooth_N = mkN "dinte" masculine ;

-  wife_N = mkAnim (mkN "soție");

-  wind_N = mkNR "vânt" ;

-  wing_N = mkN "aripă" ;

-  worm_N = mkN "vierme" masculine;

-  year_N = mkN "an" masculine;

-  bite_V2 = dirV2 (v_besch22 "mușca") ;

-  blow_V = v_besch55 "sufla" ; 

-  breathe_V = v_besch17 "respira" ;

-  burn_V = mkV "arde" ;

-  count_V2 = dirV2 (v_besch35 "număra" ) ;

-  cut_V2 = dirV2(v_besch14 "tăia") ;

-  dig_V = v_besch23 "săpa" ;

-  fall_V = v_besch65 "cădea" ;

-  fight_V2 = dirV2 (v_besch18 "lupta") ;

-  float_V = mkV "pluti" ;

-  flow_V = v_besch89 "curge" ; 

-  fly_V = v_besch48 "zbura" ;

-  freeze_V = v_besch29 "îngheța" ;

-  give_V3 = dirV3 (v_besch60 "da") ;

-  hit_V2 = dirV2 (mkV "lovi") ;

-  hunt_V2 = dirV2 (mkV "vâna") ;

-  kill_V2 = dirV2 (v_besch81 "ucide") ;

-  laugh_V =  v_besch91 "râde" ;

-  lie_V = mkRV (regV "întinde") ;

-  play_V = mkNV (mkV48 "juca") ;

-  pull_V2 = dirV2 (v_besch78 "trage") ;

-  push_V2 = dirV2 (v_besch77 "împinge") ;

-  rub_V2 = dirV2 (v_besch29 "freca") ;

-  scratch_V2 = dirV2 (v_besch23 "scărpina") ;

-  sew_V = v_besch110 "coase" ;

-  sing_V = v_besch18  "cânta" ;

-  sit_V = mkRV (mkV41 "așeza") ;

-  smell_V = v_besch133 "mirosi" ;

-  spit_V = v_besch17 "scuipa" ;

-  squeeze_V2 = dirV2 (v_besch88 "stoarce") ;

-  stab_V2 = dirV2 (v_besch12 "înjunghia") ;

-  stand_V = v_besch17 "ridica" ;

-  suck_V2 = dirV2 (v_besch95 "suge") ;

-  swell_V = v_besch55 "umfla" ;

-  swim_V = v_besch32 "înota" ;

-  think_V = mkV "gândi" ;

- throw_V2 = dirV2 (v_besch17 "arunca") ;

- tie_V2 = dirV2 (v_besch29 "lega") ;

- turn_V = v_besch88 "întoarce" ;

- vomit_V = v_besch18 "vomita" ;

- wash_V2 = dirV2 (v_besch45 "spăla") ;

- wipe_V2 = dirV2 (v_besch83 "șterge") ;

-

- hold_V2 = dirV2 (v_besch108 "ține") ;

- split_V2 = dirV2 (v_besch134 "despărți");

- -- sit_V = v_besch41 "așeza" ;

-

-grammar_N = mkN "gramatică" ;

-language_N = mkN "limbă" "limbi" ;

-rule_N = mkN "regulă" "reguli" ;

-

-john_PN = mkPN "Ion" ;

-question_N = mkN "întrebare" ;

-ready_A = mkA "pregătit" ;

-reason_N = mkN "motiv" ;

-today_Adv = mkAdv "astăzi" ;

-uncertain_A = mkA "nesigur" ;

-

-

-} ;

diff --git a/next-lib/src/romanian/MorphoRon.gf b/next-lib/src/romanian/MorphoRon.gf
deleted file mode 100644
index 2260dfb02..000000000
--- a/next-lib/src/romanian/MorphoRon.gf
+++ /dev/null
@@ -1,2428 +0,0 @@
---# -path=.:../Romance:../common:../../prelude

-

-resource MorphoRon = ResRon ** 

-  open  Prelude, Predef in {

-

-flags

-  optimize=noexpand; coding=cp1250;

-

----------------------------------------------------------------------------------

-------------------------------ARTICLES-------------------------------------------

----------------------------------------------------------------------------------

-

---defined article (enclitic)

--- we need two forms, as the Singular AGenDat form for Feminine is obtained from the

--- Plural form, except for irregular nouns that need an additional form  

-

-oper artDf : Str -> Str -> Gender -> Number -> ACase -> Str =

-\bun, buni, g, n, a ->

-case <g,n,a> of

-{ <Masc,Sg,ANomAcc>  => case last bun of

-                        { "u" => bun + "l";

-                          "e" => bun + "le"; 

-                          "ă" => bun + "a";

-                           _   => bun + "ul"

-                        };

-  <Masc,Sg,AGenDat>  => case last bun of

-                        {("u"|"e" ) => bun + "lui" ;

-                         _          => bun + "ului"

-                         };              

-  <Masc,Sg,AVoc>  => case bun of

-					    { x+"u"           => bun + "le";

-					      x + "itor"      => bun + "ule" ;

-					      x + ("en"|"or") => bun + "e" ;

-					      x+("e"|"ă") => bun;

-						  _           => bun + "ule"

-					    };                                  

-  <Masc,Pl,ANomAcc>  => buni + "i";

-  <Masc,Pl, _>    => buni + "lor";

-  <Fem,Sg,ANomAcc>   =>  case bun of

-				        { x + ("a"|"i") => bun + "ua";

-					      x + "ie"      => x + "ia";

-						  x + "ă"       => x + "a";

-						  _             => bun + "a"			

-						};

-						 

- <Fem,Sg,AGenDat>   => case  bun of

-                        { x + ("a"|"e")+"ie" => buni+"i";

-                          x + "ie"  => bun + "i"; 

-                          _   => buni + "i"

-                         };

-                            

- <Fem,Sg,AVoc>   => case bun of

-					    { x + "ă"       => x + "o";

-					      x + "ie"      => x + "io";

-					      _             => bun + "o"

-					    };						  

- <Fem,Pl,ANomAcc>   => buni + "le";

- <Fem,Pl,_>   => buni + "lor"

-                            };

- 

---Undefined article (proclitical) -- 

---we keep the non-articled form of the noun and glue it with the article on syntactical level

-

-oper artUndef : Gender -> Number -> NCase -> Str = \g,n,a ->

-case <g,n,a> of

-{<Masc,Sg,No> => "un"; <Masc,Sg,Ac> => "un" ; <Masc,Sg,Ge> => "unui"; <Masc,Sg,Da> => "unui" ;<_,_,Vo> => "" ;

- <_,Pl,No> => "niște"; <_,Pl,Ac> => "niște"; <_,Pl,Da> => "unor"; <_,Pl,Ge> => "unor" ; 

- <Fem,Sg,No> => "o"; <Fem,Sg,Ac> => "o"; <Fem,Sg,Da> => "unei"; <Fem,Sg,Ge> => "unei"

-};

-

---possesive article 

--- used for Cardinals and for Genitive case		  				    	

-

-oper artPos : Gender -> Number -> Str = \g,n ->

- case <g,n> of

-{ <Masc,Sg> => "al";

-  <Masc,Pl> => "ai";

-  <Fem,Sg>  => "a";

-  <Fem,Pl>  => "ale"

-};

-

-	     		  

---demonstrative article 

--- used as Determined article in order to emphasise on the noun/adjective, and for Dative/Genitive for of ordinals

-

-oper artDem : Gender -> Number -> ACase -> Str = \g,n,c ->

- case <g,n,c> of

-{<Masc,Sg,ANomAcc> => "cel"; <Masc,Pl,ANomAcc> => "cei"; <Masc,Sg,AGenDat> => "celui"; 

-<Fem,Sg,ANomAcc>  => "cea"; <Fem,Pl,ANomAcc>  => "cele"; <Fem,Sg,AGenDat>  => "celei";

- <_,Pl,AGenDat>    => "celor";

- <Masc,Sg,AVoc> => "cel"; 

-<Masc,Pl,AVoc> => "cei"; <Fem,Sg,AVoc> => "cea"; <Fem,Pl,AVoc> => "cele"

-  

-};

-

---flexion forms of a noun without article

-

-oper artUnf : Str -> Str -> Gender -> Number -> ACase -> Str = \buna,bune,g,n,a ->

-case <g,n,a> of

-{<Masc,Sg,_> => buna ; <Masc,Pl,_> => bune ;

- <Fem,Sg,ANomAcc> => buna ; <Fem,Sg,AGenDat> => bune ; <Fem,Sg,AVoc> => buna;

- <Fem,Pl,_> => bune 

-} ;

-

---undefined article form 

-

-oper artUndefMasc : Str -> Number -> ACase -> Str = \s,n,a -> s;

-

-oper artUndefFem : Str -> Str -> Number -> ACase -> Str = \buna, bune, n, a ->

-case <n,a> of

-{

-<Sg,ANomAcc>  => buna;

-<Sg,AGenDat>  => bune;

-<Sg,AVoc>   => buna;  

-<Pl,_>     => bune

-}; 

-          	

-

-

----------------------------------------------------------------------------------

-------------------------------- NOUNS-------------------------------------------- 

----------------------------------------------------------------------------------

-

--- the irregular nouns (of feminine gender) need 3 forms in order to build the

--- morfological table : (Singular ANomAcc Indef, Plural ANomAcc Indef and 

--- Singular AGenDat Indef)

-

-

-oper mkNomVIrreg : Str -> Str -> Str -> Noun = \iarba, ierburi, ierbi ->

-let noun = mkNomIrreg iarba ierburi NFem

- in

-  {s = \\n,a,c => case n of

-                    {Sg => case c of 

-                            {AGenDat => case a of {Indef => ierbi;

-                                                   Def   => artDf iarba ierbi Fem Sg AGenDat

-                                                   };

-                              _ => noun.s ! Sg ! a ! c                  

-                            };

-                     Pl => noun.s ! Pl ! a ! c     

-                     };

- g = NFem ;

- a = Animate 

-   }; 

- 

--- usual nouns need two forms (Singular + Plural ANomAcc Indef)

--- because the Neuter behaves like Masculine for Singular and Feminine for Plural,

--- we pass 2 parameters - gender for Singular and for Plural, so that we can define 

--- the forms for Neuter as a combination of Feminine and Masculine

-

- 

-oper mkNomIrreg : Str -> Str -> NGender -> Noun = \obiect, obiecte , gen ->

- case gen of

-  { NMasc =>  {s = mkNom obiect obiecte Masc Masc ; g = gen ; a = Animate };

-    NFem  =>  {s = mkNom obiect obiecte Fem Fem ; g = gen ; a = Animate };

-    NNeut =>  {s = mkNom obiect obiecte Masc Fem ; g = gen ; a = Animate } 

-  };

- 

---creates the table for a noun : 

- 

-oper mkNom : Str -> Str -> Gender -> Gender -> Number => Species => ACase => Str = \obiect, obiecte, gs, gp ->

-     table  { Sg => table {Def => \\p => artDf obiect obiecte gs Sg p;    

-                           Indef => \\p => artUnf obiect obiecte gs Sg p

-                           };

-              Pl => table { Def   => \\p => artDf obiect obiecte gp Pl p ;

-                            Indef => \\p => artUnf obiect obiecte gp Pl p              

-                           }             

-            } ;

-

-

--- for regular nouns, we need just the Singular ANomAcc Indef form :

--- for obtaining the plural form, we apply almost the same rules as for adjectives

--- for Neuter we treat the Singular ANomAcc Indef for as the Masculine Singular form of an Adjective

--- and we obtains it's plural form as the Feminine Plural form of the adjective 

--- (with potential o -> oa mutations, that occur in most of the cases)

-      

-mkNomReg : Str -> NGender -> Noun = \obiect, g ->

-case g of 

-       {NMasc => mkNomIrreg obiect ((mkAdjReg obiect).s ! (AF Masc Pl Indef ANomAcc)) NMasc ;

-        NFem  => case (Predef.dp 4 obiect) of 

-                   { "ai"+x+"ă"  => mkNomIrreg obiect (init obiect + "e") NFem ; --always

-                      _ => case (Predef.dp 3 obiect) of

-                      {"i"+("c"|"n"|"m"|"p")+"ă" => mkNomIrreg obiect (init obiect + "i") NFem ; -- 60% cases frequently used words, not frequent for neological words

-                         _                       => mkNomIrreg obiect (mkFemPl obiect) NFem 

-                      }

-                   };

-        NNeut => if_then_else Noun (pbool2bool (Predef.occur "o" (Predef.dp 3 obiect) ))  

-                           (mkNomIrreg obiect ((mkAdjRegO obiect).s ! (AF Fem Pl Indef ANomAcc)) NNeut) 

-                                       (mkNomIrreg obiect ((mkAdjReg obiect).s ! (AF Fem Pl Indef ANomAcc)) NNeut)                                      

-       };

-

---for nouns that have a different vocative form than the one inferred

-

-mkVocc : Noun -> Str -> Noun  = \n -> \vo ->

- {s = table{ Sg => \\p, c => case c of

-                                     { AVoc => vo ;

-                                       _    => n.s ! Sg ! p ! c

-                                      };

-             Pl => \\p,c => n.s ! Pl ! p ! c                     

-           };

-  g = n.g ;

-  a = n.a

-

-  };                                 

- 

- -- composes a noun with an invariable string ( Ex camera foto)

- -- with/without dash

- 

- ccompose : Noun -> Str -> Noun = \noun, y ->

- { s = \\n,p,c => noun.s ! n ! p ! c +"-"+ y ;

-   g = noun.g ;

-   a = noun.a

- };

- 

- 

- composeN : Noun -> Str -> Noun = \noun, y ->

- { s = \\n,p,c => noun.s ! n ! p ! c ++ y ;

-   g = noun.g ;

-   a = noun.a

- };

- 

- -- changes the Animacy attribute 

- 

- mkInanimate : Noun -> Noun = \n ->

- {s = table { Sg => \\p,c => case c of 

-                       {AVoc => n.s ! Sg ! Indef ! ANomAcc ;

-                        _    => n.s ! Sg ! p ! c

-                       };

-              Pl => \\p, c => n.s ! Pl ! p ! c         

-            };

-  g = n.g ;

-  a = Inanimate          

-  };

- 

- mkAnimate : Noun -> Noun = \n ->

-  let ob = n.s ! Sg ! Indef ! ANomAcc ;

-     obs = n.s ! Pl ! Indef ! ANomAcc 

-     in

- {s = table { Sg => \\p,c => case <p,c> of 

-                       {<Indef,AVoc> => n.s ! Sg ! Indef ! ANomAcc ;

-                        <Def,AVoc>   => case (n.g) of 

-                                          {NFem  => artDf ob obs Fem Sg AVoc ;

-                                           _     => artDf ob obs Masc Sg AVoc 

-                                          } ;

-                        _            => n.s ! Sg ! p ! c

-                       };

-              Pl => \\p, c => n.s ! Pl ! p ! c         

-            };

-  g = n.g ;

-  a = Animate      

-};

- 

---a special case of neuter nouns -- the ones that just add -ri/-uri to the Singular Form

- 

-mkNomNeut : Str -> Noun = \obiect ->

-case last obiect of

-{"u" => mkNomIrreg obiect (obiect + "ri") NNeut;

-  _  => mkNomIrreg obiect (obiect + "uri") NNeut

-};

-

-

----------------------------------------------------------------------------------

------------------------------ADJECTIVES------------------------------------------

----------------------------------------------------------------------------------

-

-

-

--- in the worst case, the adjective needs 5 forms for Singular/Plural - Masculine/Feminine +  Adverb		  				    	

-

-

-oper mkAdjSSpec : Str -> Str -> Str -> Str -> Str -> Adj

-= \bun -> \buna -> \buni -> \bune -> \bine ->

-{ s = table {AF Masc Sg Def c   => artDf bun buni Masc Sg c ;

-              AF Fem Sg Def c    => artDf buna bune Fem Sg c ;

-              AF Masc Pl Def c   => artDf bun buni Masc Pl c; 

-              AF Fem Pl Def c    => artDf buna bune Fem Pl c ;

-              AF Masc Pl Indef c => artUndefMasc buni Pl c;

-              AF Fem Pl Indef c  => artUndefFem buna bune Pl c;

-              AF Masc Sg Indef c => artUndefMasc bun Sg c;

-              AF Fem Sg Indef c  => artUndefFem buna bune Sg c;

-              AA                  => bine

-             }

-

-};

-

--- usually the determined adverb is identical to the Singular Masculine form of the adjective

-

-oper mkAdjSpec : Str -> Str -> Str -> Str -> Adj 

-= \bun -> \buna -> \buni -> \bune ->

-                mkAdjSSpec bun buna buni bune bun ;

-

-

--- special classes of adjectives :

-

-oper adjAuriu : Str -> Adj = \s ->

-  let f  = init s + "e";

-      pl = init s + "i" 

-       in

-   mkAdjSpec s f pl pl ;

-  

-oper adjMuncitor : Str -> Adj = \s ->

- let f   = Predef.tk 2 s + "oare";

-     pl  = s + "i";

-     adv = s + "ește"

-     in

- mkAdjSSpec s f pl f adv ;

- 

- oper adjRomanesc : Str -> Adj = \s ->

-  let f   = Predef.tk 2 s + "ască";

-      pl  = Predef.tk 2 s + "ști";

-      adv = Predef.tk 2 s + "ște"

-      in

- mkAdjSSpec s f pl pl adv ;

- 

-oper adjMare : Str -> Adj = \s ->

-  let pl = mkStemPlReg s

-   in

-   mkAdjSpec s s pl pl;                    

-  

-oper adjDimin : Str -> Adj = \s ->

-  let f  = Predef.tk 2 s + "ică";

-     pl  = init s + "i";  

-     plf = s + "e" 

-     in

-     mkAdjSpec s f pl plf;

- 

- 

- -- the phonetical mutations that occur in Romanian (Singular Masculine -> Singular Feminine) are 

- -- o -> oa  (Ex : frumos -> frumoasă)

- -- e -> ea / ie -> ia (Ex : des -> deasă)

- -- on the last occurence of o/e in the word (usually 2rd or 3rd last letter)

-     

-  mkStemMutE : Str -> Str = \s ->

-   let  s1 = if_then_Str (pbool2bool (Predef.occur "ie" (Predef.dp 4 s))) ((Predef.tk 3 s) +"a"+(Predef.dp 2 s)) ((Predef.tk 3 s) +"ea" + (Predef.dp 2 s));

-        s2 = if_then_Str (pbool2bool (Predef.occur "ie" (Predef.dp 3 s))) ((Predef.tk 2 s) +"a" + (last s)) ((Predef.tk 2 s) +"ea" + (last s))

-         in

-  case Predef.dp 3 s of

-		  {"e"+x => s1;

-			_    => s2

-		  };

-		  

-  mkStemMutO : Str -> Str = \s ->

-  case Predef.dp 3 s of

-  {"o"+x => (Predef.tk 3 s) +"oa" + x;

-    _    => (Predef.tk 2 s) + "oa" + (last s)

-  };

-

-  -- another phonetical mutation is ă -> e (Ex : proaspătă -> proaspete) 

-  -- Singular Feminine -> Plural Feminine

-  -- on the last occurence of ă -- 2nd last letter of the root 

-  

-  mkStemMutA : Str -> Str = \s ->

-   case (Predef.dp 2 s) of

-   { "ă" + x => (Predef.tk 2 s) + "e" + (last s);

-      _      => s

-   };

-   

-  

--- obtaining the Masculine Plural form from the Masculine Singular

--- contains most usual mutations  

-

-oper mkStemPlReg : Str -> Str = \s -> 

-case s of

-{x + ("st"|"sc"|"șc")=> x + "ști"; -- always -- usually the nouns/adj can end in an "u", but we eliminate that first

- x + "str"           => x + "ștri"; 

- x + "s"             => x + "și"; 

- x + "x"             => x + "cși"; 

- x + "xt"            => x + "cști"; 

- x + "ian"           => x + "ieni"; 

- x + "ean"           => x + "eni"; 

- x + "ead"           => x + "ezi"; 

- x + ("de"|"d")      => x + "zi";  

- x + ("te"|"tă"|"t") => x + "ți";

- x + ("e"|"i"|"a"|"ă")=> x + "i";

- _                   => s + "i"

-}; --all the mutations occur always for adjectives, appart from the exception that mutate other syllables from the word

-

-

--- special cases that imply other mutations that don't occur for all words

--- because these rules don't apply for neological words, which are more frequent, they are treated

--- separately

-

-oper mkStemPlSpec : Str -> Str = \s ->

-case s of 

-{x + "l"    => x + "i";

- x + "z"    => x + "j";

- _          => s

-};

-

-

---obtaining the Feminine Singular form from the Masculine Singular one for Adjectives :

-

-mkFemSg : Str -> Str = \s ->

-case s of

-{x + "i"  => s + "e";

- x + "iu" => x + "ie";

- x + "u"  => x + "ă";

- _        => s + "ă"

-};

-

--- obtaining the Feminine Plural from Feminine Singular for Nouns :

-

-mkFemPl : Str -> Str = \s ->

-case s of

-{ x + "are"           => x + "ări"; --always

-  x + ("ui"|"ai")     => s + "e"; -- from Masc (adjectives)

-  x + "ură"           => x + "uri"; -- always

-  x + "oaie"          => x + "oi"; -- almost always

-  x + "aie"           => x + "ăi"; --always

-  x + "eie"           => x + "ei"; --always

-  x + "i"             => s + "le" ; --always - special cases of Feminines ending in "i" like zi = day

-  x + "a"             => x + "le"; --always - special cases of Feminines ending in "a" -- most of Turkish origine like cafea = coffee

-  x + "une"           => x + "uni"; --always - abstract collective nouns like "națiune" = nation, French origine

-  x + "ate"           => x + "ăți"; --always same as above like "libertate" = freedom--  x + "șă"            => x + "și"; -- 70% of cases

-  x + "re"            => x + "ri"; -- almost always, exception nouns ending in "oare" which are treated as special case in adjReg

-  x + "e"             => x + "i"; -- almost always for Nouns, always for Adjectives

-  _                   => case init s of

-                        { 

-                          x + ("g"|"h"|"nc")   => (init s) + "i"; -- always for Adjectives, almost always for Nouns (g - ending has exceptions)

-                          

-                          x + "ăt"                 => x + "ete"; --always

-                          x + "ânt"                => x + "inte"; --always

-                          _                        => case s of

-                                                  { x + "ă" => x + "e" ; -- default -- exception occur

-                                                    _       => s + "e" -- worst case

-                                                  }

-

-                        }

-};

-

-

---obtainint Feminine Plural from Masculine Singular for Adjectives :

-

-mkFemAdj : Str -> Str = \s ->

-case s of 

-{ x + ("g"|"h"|"nc") => s + "i";

-  x + "ânt"              => x + "inte";

-  x + "ăt"               => x + "ete";

-  _                      => s + "e"

-

-};

-

-

----------------------------------------------------------------

-

--- invariable adjective - where all the forms are identical

- 

-mkAdjInvar : Str -> Adj  = \s ->

-{s =  table {AF g n a c         => s ;

-             AA                 => s

-             }

- };

-

--- regular adjective - just the Masculine Singular Form is needed

- 

-mkAdjReg : Str -> Adj = \s ->

- let  r    = mkStemMutA s ; 

-      rad  = if_then_Str (pbool2bool (Predef.occur "u" (last r))) (init r) r;

-      radF = if_then_Str (pbool2bool (Predef.occur "u" (last s))) (init s) s

- in

- case s of 

- {x + "tor" => adjMuncitor s;

-  x + "esc" => adjRomanesc s;

-  x + "e"   => adjMare s;

-  x + "iu"  => adjAuriu s;

-  x + "el"  => adjDimin s;

-  _         => mkAdjSpec s (mkFemSg radF) (mkStemPlReg rad) (mkFemAdj rad)

- 

- };

- 

- -- regular adjective that has the e -> ea mutation from Masculine Singular to Feminine Singular

- 

- mkAdjRegE : Str -> Adj = \s ->

- let rad = if_then_Str (pbool2bool (Predef.occur "u" (last s))) (init s) s 

-  in

-    mkAdjSpec s (mkFemSg (mkStemMutE rad)) (mkStemPlReg rad) (mkFemAdj rad);

-

-    

--- regular adjective that has the e -> ea mutation as above, and also the l -> _ / z -> j

--- mutations from Masculine Singular -> Masculine Plural   

-    

- mkAdjSpecE : Str -> Adj = \s ->

- let rad = if_then_Str (pbool2bool (Predef.occur "u" (last s))) (init s) s 

- in

-    mkAdjSpec s (mkFemSg (mkStemMutE rad)) (mkStemPlSpec rad) (mkFemAdj rad);

-    

--- regular adjective that has the o -> oa mutation from Masculine Singular to Feminine Singular    

-    

- mkAdjRegO : Str -> Adj = \s ->

- let rad = if_then_Str (pbool2bool (Predef.occur "u" (last s))) (init s) s 

- in

-    mkAdjSpec s (mkFemSg (mkStemMutO rad)) (mkStemPlReg rad) (mkFemPl (mkStemMutO rad));      

- 

- -- regular adjective that has the o -> oa mutation as above and also the l -> _ / z -> j

- -- mutations from Masculine Singular -> Masculine Plural

- 

- mkAdjSpecO : Str -> Adj = \s ->

- let rad = if_then_Str (pbool2bool (Predef.occur "u" (last s))) (init s) s 

- in

-    mkAdjSpec s (mkFemSg (mkStemMutO rad)) (mkStemPlSpec rad) (mkFemPl (mkStemMutO rad));

- 

- 

- -- the two categories mkAdjRegE and mkAdjRegO have been merge into one category of adjectives

- -- that have mutations from Masculine Singular to Feminine Singular

- 

- mkRegMut : Str -> Adj = \s ->

- let rad = if_then_Str (pbool2bool (Predef.occur "u" (last s))) (init s) s 

-     in

-      if_then_else Adj (pbool2bool (Predef.occur "o" (Predef.dp 3 rad)))  

-              (mkAdjSpec s (mkFemSg (mkStemMutO rad)) (mkStemPlReg rad) (mkFemPl (mkStemMutO rad)))

-              (mkAdjSpec s (mkFemSg (mkStemMutE rad)) (mkStemPlReg rad) (mkFemAdj rad));

- 

- -- the two categories mkAdjSpecE and mkAdjSpecO have been merge into one category of adjectives

- -- that have mutations from Masculine Singular to Feminine Singular

- -- and also from Masculine Singular to Masculine Plural

-               

-mkSpecMut : Str -> Adj = \s ->              

-  let rad = if_then_Str (pbool2bool (Predef.occur "u" (last s))) (init s) s 

-     in

-      if_then_else Adj (pbool2bool (Predef.occur "o" (Predef.dp 3 rad)))  

-              (mkAdjSpec s (mkFemSg (mkStemMutO rad)) (mkStemPlSpec rad) (mkFemPl (mkStemMutO rad)))

-              (mkAdjSpec s (mkFemSg (mkStemMutE rad)) (mkStemPlSpec rad) (mkFemAdj rad));            

-        

-

-

-

-

-

------------------------------------------------------------------------------------

-------------------------------VERBS------------------------------------------------

------------------------------------------------------------------------------------ 

-

---with rules based on the book "Conjugarea verbelor romanesti" by Ana-Maria Barbu--

-

-

--- for building the table for a verb, there are needed 29 forms

--- infinitive - 1 form 

--- tables for Present, Imperfect, Past Simple, Past Perfect - 24 forms

--- 3rd person Singular form for Conjunctive Present (= 3rd person Plural) - 1 form

--- Adjective that describes the Past Participe Form (regular adjective)- 1 form

--- Gerund - 1 form 

--- 2nd person Singular form for Imperative - 1 form

-

-  Verbe : Type = VForm => Str ;

-  

-   verbAffixes :

-     Str-> (a,b,c,d: Number => Person => Str) ->  Str -> Adj -> Str -> Str -> Verbe =

-    \fi,pres, imperf, pSimple, pPerf, subj, adj, ger, imp  ->

-    table {

-      Inf                     => fi  ;

-      Indi  Presn n p         => pres ! n ! p ;

-      Indi  Imparf  n p       => imperf ! n ! p;

-      Indi  PSimple n p       => pSimple ! n ! p ;

-      Indi  PPerfect   n p    => pPerf ! n ! p ;

-      Subjo SPres   n P3      => subj ;

-      Subjo SPres   n p       => pres ! n ! p;

-      Imper        SgP2       => imp ;

-      Imper        PlP2       => pres ! Pl ! P2 ;

-      Imper        PlP1       => pres ! Pl ! P1 ;

-      Ger                     => ger ;

-      PPasse g n a d          => adj. s ! (AF g  n  a  d) 

-      } ;

-

-

--- syntactical verb : 

--- obtains all the verb forms present in Romanian, based on the primitive forms found in Verbe 

-

-SVerbe : Type = VerbForm => Str ;

-

-  mkVerb : Verbe -> SVerbe = \vb -> 

-    table {   

-      TInf                    => "a" ++ vb ! Inf  ;

-      TIndi  TPresn n p       => vb ! (Indi Presn n p) ;

-      TIndi  TImparf  n p     => vb ! (Indi Imparf n p);

-      TIndi  TPComp n  p      => pComp ! n ! p ++ vb ! (PPasse Masc Sg Indef ANomAcc) ;

-      TIndi  TPSimple n p     => vb ! (Indi PSimple n p) ;

-      TIndi  TPPerfect n p    => vb ! (Indi PPerfect n p) ;

-      TIndi  TFutur   n p     => pFut ! n ! p ++ vb ! Inf ;

-      TSubjo TSPres   n p     => "să" ++ vb ! (Subjo SPres n p) ;

-      TSubjo TSPast   n p     => "să" ++ "fi" ++ vb ! (PPasse Masc Sg Indef ANomAcc) ;

-      TCondi n p              => pCond ! n ! p ++ vb ! Inf ;

-      TImper        PlP1      => "să" ++ vb ! (Imper PlP1) ;

-      TImper        p         => vb ! (Imper p) ;

-      TGer                    => vb ! Ger ;

-      TPPasse g n a d         => vb ! (PPasse g n a d)

-           }; 

-

--- auxiliary for Past Composite (to have - as auxiliary) :

-

-pComp : Number => Person => Str = table {Sg => table {P1 => "am" ; P2 => "ai" ; P3 => "a"} ;

-                                         Pl => table {P1 => "am" ; P2 => "ați"; P3 => "au"}

-                                         };

-                                         

--- auxiliary for Future Simple :

-                                         

-pFut : Number => Person => Str = table  {Sg => table {P1 => "voi" ; P2 => "vei" ; P3 => "va"} ;

-                                         Pl => table {P1 => "vom" ; P2 => "veți"; P3 => "vor"}

-                                         };                                          

-

---auxiliary for Condional Present :

-

-pCond : Number => Person => Str = table {Sg => table {P1 => "aș" ; P2 => "ai" ; P3 => "ar"} ;

-                                         Pl => table {P1 => "am" ; P2 => "ați"; P3 => "ar"}

-                                         };

- 

--- make Reflexive verbe :  ? with variants ?

--- syntactical category of reflexive verbs based on the primitive forms in Verbe                                   

-                                         

-mkVerbRefl : Verbe -> SVerbe = \vb ->

-table {   

-      TInf                    => "a" ++ "se" ++ vb ! Inf  ;

-      TIndi  TPresn n p       => pronRefl ! n ! p ++ vb ! (Indi Presn n p) ;

-      TIndi  TImparf  n p     => pronRefl !n ! p ++ vb ! (Indi Imparf n p);

-      TIndi  TPComp n  p      => pronReflClit ! n ! p + "-" + pComp ! n ! p ++ vb ! (PPasse Masc Sg Indef ANomAcc) ;

-      TIndi  TPSimple n p     => pronRefl ! n ! p ++ vb ! (Indi PSimple n p) ;

-      TIndi  TPPerfect n p    => pronRefl ! n ! p ++ vb ! (Indi PPerfect n p) ;

-      TIndi  TFutur   n p     => pronRefl ! n ! p ++ pFut ! n ! p ++ vb ! Inf ;

-      TSubjo TSPres   n p     => "să" ++ pronRefl ! n ! p ++ vb ! (Subjo SPres n p) ;

-      TSubjo TSPast   n p     => "să" ++ pronRefl ! n ! p ++ "fi" ++ vb ! (PPasse Masc Sg Indef ANomAcc) ;

-      TCondi n p              => pronReflClit ! n ! p + "-" + pCond ! n ! p ++ vb ! Inf ;

-      TImper        PlP1      => "să" ++ pronRefl ! Pl ! P1 ++ vb ! (Imper PlP1) ;

-      TImper        PlP2      => vb ! (Imper PlP2) + "-"+ pronRefl ! Pl ! P2  ;

-      TImper        SgP2      => vb ! (Imper SgP2) + "-"+ pronRefl ! Sg ! P2  ;

-      TGer                    => vb ! Ger + "u" + "-" + pronRefl ! Sg ! P3 ;

-      TPPasse g n a d         => vb ! (PPasse g n a d)

-           };                                 

-

--- reflexive pronouns - full form

-

-pronRefl : Number => Person => Str = 

-table {Sg => table {P1 => "mă" ; P2 => "te" ; P3 => "se"};

-       Pl => table {P1 => "ne" ; P2 => "vă" ; P3 => "se" } 

-};

-

--- reflexive pronouns - short form (clitics)

-

-pronReflClit : Number => Person => Str =

-table {Sg => table {P1 => "m" ; P2 => "te" ; P3 => "s"};

-       Pl => table {P1 => "ne" ; P2 => "v" ; P3 => "s" } 

-};

-

-

-{-

-  verbAffixes1 :

-     Str-> (a,b,c,d: Number => Person => Str) -> (e,f,g,h : Str) -> Verbe =

-    \fi,pres, imperf, pSimple, pPerf, subj, part, ger, imp ->

-    table {

-      Inf                     => fi  ;

-      Indi  Presn n p         => pres ! n ! p ;

-      Indi  Imparf  n p       => imperf ! n ! p;

-      Indi  PComp   n  p      => "aa"  ++ part ;

-      Indi  PSimple n p       => pSimple ! n ! p ;

-      Indi  PPerf   n p       => pPerf ! n ! p ;

-      Indi  Futur   n  p      => "va" ++ fi ;

-      Condi         n  p      => "as" ++ fi ;

-      Subjo SPres   n P3      => subj ;

-      Subjo SPres   n p       => pres ! n ! p;

-      Subjo SPast   n  p      => "sa" ++ "fi" ++ part ;

-      Imper        SgP2       => imp ;

-      Imper        PlP2       => pres ! Pl ! P2 ;

-      Imper        PlP1       => "sa" ++ pres ! Pl ! P1 ;

-      Part PPres              => ger ;

-      Part (PPasse g n a d)   => (mkAdjReg part). s ! (AF g  n  a  d) 

-      } ;

--}

-

--- This is a conversion to the type in $CommonRomance$.

-

-oper

-  vvf : (VerbForm => Str) -> (VF => Str) = \aller -> table { 

-    VInfin _       => aller ! TInf ;

-    VFin (VPres   Indic) n p => aller ! TIndi TPresn n p ; 

-    VFin (VPres   Subjunct) n p => aller ! TSubjo TSPres n p ;

-    VFin (VImperf Indic) n p => aller ! TIndi TImparf n p ;     --# notpresent

-    VFin (VImperf Subjunct) n p => aller ! TSubjo TSPast n p ;  --# notpresent

-    VFin VPasse n p  => aller ! TIndi TPComp n p ;  --# notpresent

-    VFin VFut n p    => aller ! TIndi TFutur n p ;  --# notpresent

-    VFin VCondit n p => aller ! TCondi n p ;  --# notpresent

-    VImper np        => aller ! TImper np ;

-    VPart g n a d    => aller ! TPPasse g n a d ;

-    VGer             => aller ! TGer 

-    } ;

-

-

-

--- vowells in Romanian - used for clitics

-

-   vocale : Str = ("a"|"e"|"i"|"u"|"ă"|"î"|"â");

-

--- phonetical mutations that occur when declining verbs :

-

--- last ă in the word -> a

-

-modALast : Str -> Str = \root ->

-if_then_Str (pbool2bool (Predef.occur "ă" (Predef.dp 2 root))) 

-                   ((Predef.tk 2 root) + "a" + (last root)) ((Predef.tk 3 root) + "a" + (Predef.dp 2 root)); 

-           

--- last u in the word -> o

-           

-modU : Str -> Str = \root ->

-if_then_Str (pbool2bool (Predef.occur "u" (Predef.dp 2 root))) 

-                   ((Predef.tk 2 root) + "o" + (last root)) ((Predef.tk 3 root) + "o" + (Predef.dp 2 root)); 

-                      

--- first ă in the word -> a           

-           

-modAFirst : Str -> Str = \root ->

-if_then_Str (pbool2bool (Predef.occur "ă" (Predef.take 2 root))) 

-                   ((Predef.take 1 root) + "a" + (Predef.drop 2 root)) ((Predef.take 2 root) + "a" + (Predef.drop 3 root)); 

-           

--- ă -> a (general)           

-

-modA : Str -> Str = \root ->

-  if_then_Str (pbool2bool (Predef.occur "ă" (Predef.dp 3 root))) (modALast root) (modAFirst root) ;

-

-

--- e -> ea mutation (general)

-

-mkMutE : Str -> Str = \root ->

-  if_then_Str (pbool2bool (Predef.occur "e" (Predef.dp 3 root))) (mkStemMutE root) 

-                     (mkStemMutE (Predef.take 4 root) + (Predef.drop 4 root)) ;

-

--- o -> oa mutation (general)

-

-mkMutO : Str -> Str = \root ->

-    if_then_Str (pbool2bool (Predef.occur "o" (Predef.dp 3 root))) (mkStemMutO root) 

-                     (mkStemMutO (Predef.take 4 root) + (Predef.drop 4 root)) ;

-             

--- general mutation - last occurence of a letter in the word is replaced by other string

--- the letter should occurd 2nd or 3rd last in the word

-

---for replacing 1 character with a string             

-genMut : Str -> Str -> Str -> Str = \root, e, a ->

-   if_then_Str (pbool2bool (Predef.occur e (Predef.dp 2 root))) 

-                   ((Predef.tk 2 root) + a + (last root)) ((Predef.tk 3 root) + a + (Predef.dp 2 root)); 

-                           

--- for replacing 2 characters with a string

-

-genMut2 : Str -> Str -> Str -> Str = \root,e , a ->

-   if_then_Str (pbool2bool (Predef.occur e (Predef.dp 3 root))) 

-                   ((Predef.tk 3 root) + a + (last root)) ((Predef.tk 4 root) + a + (Predef.dp 2 root)); 

-                           

-

--- oa -> o mutation (last occurence in the word)

-

-mkStemMutOa : Str -> Str = \s ->

-  case Predef.dp 4 s of

-  {"oa" + x => (Predef.tk 4 s) + "o" + x;

-   _        => (Predef.tk 3 s) + "o" + (last s)  

-  };                            

-          

-

--- Affixes :

--- It is convenient to have sets of affixes as data objects.

-

-  Affixe : Type = Person => Str ;

-

-  afixe : (_,_,_ : Str) -> Affixe = \x,y,z -> table {

-      P1 => x ;

-      P2 => y ;

-      P3 => z

-      } ;

-     

--- Empty table (for verbs that lack certain tenses and moods )

-

-empty : Number => Person => Str = \\n,p => nonExist ;      

-     

-specTab : Str -> Str -> Number => Person => Str = \ploua, plouau ->

-\\n,p => case <n,p> of     

-         {<Sg,P3> => ploua ;

-          <Pl,P3> => plouau ;

-          _  => nonExist 

-          };

-                                                            

--- VERB GROUPS :     

-      

-      

----------------------------------------------------

------------Group 1 - ending in -a, with exceptions

----------------------------------------------------

-   

--- Much of variation can be described in terms of affix sets:

----------------------------------

---for Present :

----------------------------------

---for subGroups 1,13

-

-  affixSgGr1Ez  : Affixe = afixe "ez" "ezi" "ează" ;

-  affixPlGr1Ez  : Affixe = afixe "ăm" "ați" "ează" ;

-------

---for subGroups 2-3

-  affixSgGr1EzI : Affixe = afixe "ez" "ezi" "ază" ;

-  affixPlGr1EzI : Affixe = afixe "em" "ați" "ază" ;

-------

---for subGroup 4

-  affixSgGr1I  : Affixe = afixe "i" "i" "e" ;

-  affixPlGr1I  : Affixe = afixe "em" "ați" "e";

-------

---for subGroup 5

-  affixSgGr1VI  : Affixe = afixe "" "" "e" ;

-  affixPlGr1VI  : Affixe = affixPlGr1I ; 

-------

---for subGroups 6-7

-  affixSgGr1    : Affixe = afixe "" "i" "ă" ; 

-  affixPlGr1    : Affixe = afixe "ăm" "ați" "ă" ;   

-------

---for subGroup 8

-  affixSgGr1U   : Affixe = afixe "u" "i" "ă" ;

-  affixPlGr1U   : Affixe = affixPlGr1 ;

-------

---for subGroup 9,11,12

-  affixSgGr1AU   : Affixe = afixe "au" "ai" "ă" ;

-  affixPlGr1AU   : Affixe =  afixe "ăm" "ați" "au" ;

--------

---for subGroup 10

-  affixSgGr1EU   : Affixe = afixe "au" "ei" "a" ;

-  affixPlGr1EU   : Affixe =  afixe "ăm" "ați" "au" ;

--------

- --for subGroup 14 

-  affixSgGr1CI  : Affixe = afixe "i" "i" "e" ;

-  affixPlGr1CI  : Affixe = afixe "em" "eați" "e";

------  

-

-

--------------------------  

---for Imperfect :

--------------------------

---for subGroups 1-10

- affixSgI : Affixe = afixe "am" "ai" "a" ;

- affixPlI : Affixe = afixe "am" "ați" "au" ;

- 

---for subGroups 11-14 

- affixSgII : Affixe = afixe "eam" "eai" "ea" ;

- affixPlII : Affixe = afixe "eam" "eați" "eau" ;

-

----------------------------

- --for Perfect Simple :

- ---------------------------

- --for subGroups 1, 6-10

- 

- affixSgPS1 : Affixe = afixe "ai" "ași" "ă" ;

- affixPlPS1 : Affixe = afixe "arăm" "arăți" "ară" ;

- 

- --for subGroups 2-5

- 

- affixSgPS2 : Affixe = afixe "ai" "ași" "e" ;

- affixPlPS2 : Affixe = afixe "arăm" "arăți" "ară" ;

- 

- --for subGroups 11-12

- 

- affixSgPS3 : Affixe = afixe "ui" "uși" "u" ;

- affixPlPS3 : Affixe = afixe "urăm" "urăți" "ură" ;

- 

- --for subGroups 13-14

- 

- affixSgPS4 : Affixe = afixe "eai" "eași" "e" ;

- affixPlPS4 : Affixe = afixe "earăm" "earăți" "eară" ;

- 

---------------------------  

--- for Past Perfect :

----------------------------

-

---for subGroups 1-10

-

-affixSgPP : Affixe = afixe "asem" "aseși" "ase" ;

-affixPlPP : Affixe = afixe "aserăm" "aserăți" "aseră" ;

-

---for subGroups 11-12

-

-affixSgPP2 : Affixe = afixe "usem" "useși" "use" ;

-affixPlPP2 : Affixe = afixe "userăm" "userăți" "useră" ;

-

---for subGroups 13-14

-

-affixSgPP3 : Affixe = afixe "easem" "easeși" "ease" ;

-affixPlPP3 : Affixe = afixe "easerăm" "easerăți" "easeră" ;

-

-

--- functions that build a tense table for a verb :

-

- 

--- worst case : we need 5 forms and an affixe -

--- root, 1st Sg, 2nd Sg, 3rd Sg, 3rd Pl and affixe

-                     

-mkTab : (a,b,c,d,e : Str) -> Affixe -> Number => Person => Str =

-\lua -> \iau -> \iei -> \ia -> \iaP -> \aff ->

-table {Sg => table {P1 => iau; P2 => iei; P3 => ia};

-       Pl => table {P3 => iaP; p => lua + aff ! p} 

-       };

-

-

--- regular case : we need just the root and affixes for Singular and Plural

-

-mkFromAffix : Str -> Affixe -> Affixe -> Number => Person => Str = \ar,affSg,affPl ->

- table {Sg => table {p => ar + affSg ! p};

-        Pl => table {p => ar + affPl ! p}

-        };

-

--- case where we need 2 roots and two affixes 

-

-

-mkFromAffixes1 : Str -> Str -> Affixe -> Affixe -> Number => Person => Str =

-\ar,arr,affSg, affPl ->

-table {Sg => table {p => ar + affSg ! p };

-       Pl => table {P3 => ar + affSg ! P3 ;

-                    p  => arr + affPl ! p 

-                    } 

-       };

- 

-       

-mkFromAffixes2 : Str -> Str -> Affixe -> Affixe -> Number => Person => Str =

-\ar,arr,affSg, affPl ->

-table {Sg => table {p => ar + affSg ! p};

-       Pl => table {P3 => ar + affPl ! P3;

-                    p => arr + affPl ! p

-                    }

-      };      

-

--- cases where the 3rd Person Singular is formed with a different root :

-

-mkAffixSpec1 : Str -> Str -> Affixe -> Affixe -> Number => Person => Str = 

-\ar, arr, affSg, affPl ->

-table {Sg => table {P3 => arr + affSg ! P3 ;

-                    p  => ar + affSg ! p

-                    };

-       Pl => table {P3 => arr + affSg ! P3 ;

-                    p  => ar + affPl ! p 

-                    } 

-      };

-      

-mkAffixSpec2 : Str -> Str -> Affixe -> Affixe -> Number => Person => Str = 

-\ar, arr, affSg, affPl ->

-table {Sg => table {P3 => arr + affSg ! P3 ;

-                    p  => ar + affSg ! p

-                    };

-       Pl => table {P3 => ar + affSg ! P1 ;

-                    p  => ar + affPl ! p 

-                    } 

-      };      

-     

-     

--- case where the 2nd person Singular has a different form, than the usual one :      

-      

-changeP2 : Str -> (Number => Person => Str) -> Number => Person => Str =

-\ari -> \pres ->

-table {Sg => table {P2 => ari;

-                    p => pres ! Sg ! p};

-       Pl => \\p => pres ! Pl ! p             

-      };       

-     

--- case where the 1st person Singular has a different form than the usual one :      

-      

-changeP1 : Str -> (Number => Person => Str) -> Number => Person => Str =

-\ari -> \pres ->

-table {Sg => table {P1 => ari;

-                    p => pres ! Sg ! p};

-       Pl => \\p => pres ! Pl ! p             

-      };       

-             

-             

---subGroup 1

-mkV6: Str -> Verbe = \lucra ->

-   let  root = init lucra in

-verbAffixes lucra (mkFromAffix root affixSgGr1Ez affixPlGr1Ez) 

-               (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-                  (mkFromAffix root affixSgPP affixPlPP) (root + "eze") (mkAdjReg(root + "at")) 

-                        (root + "ând") (root + "ează") ;

-

-

-mkV7 : Str -> Verbe = \crea ->

-     mkV6 crea ;

-     

-mkV8 : Str -> Verbe = \parca ->

-    let   r = init parca ;

-          root = r + "h"

-              in

-verbAffixes parca (mkFromAffixes1 r root  affixSgGr1Ez affixPlGr1Ez)

-          (mkFromAffix r affixSgI affixPlI) (mkFromAffix r affixSgPS1 affixPlPS1)

-             (mkFromAffix r affixSgPP affixPlPP) (root + "eze") (mkAdjReg (r + "at"))

-                    (r + "ând") (root + "ează") ;

-                    

-mkV9 : Str -> Verbe = \divaga ->

-          mkV8 divaga ;                    

-

-

---subGroup 2

-

-mkV10 : Str -> Verbe = \studia ->

-    let root = init studia in

- verbAffixes studia (mkFromAffix root affixSgGr1EzI affixPlGr1EzI) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS2 affixPlPS2)

-             (mkFromAffix root affixSgPP affixPlPP) (root + "eze") (mkAdjReg (root + "at"))

-                    (root + "ind") (root + "ază") ;

-

---subGroup 3 

-

-mkV11 : Str -> Verbe = \ardeia ->

-    let root = init ardeia in

-    verbAffixes ardeia (mkFromAffix root affixSgGr1EzI affixPlGr1EzI) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS2 affixPlPS2)

-             (mkFromAffix root affixSgPP affixPlPP) (root + "eze") (mkAdjReg (root + "at"))

-                    (root + "nd") (root + "ază") ;

-

---subGroup 4

-

-mkV12 : Str -> Verbe = \speria ->

-   let root = init speria in

-   verbAffixes speria (mkFromAffix root affixSgGr1I affixPlGr1I) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS2 affixPlPS2)

-             (mkFromAffix root affixSgPP affixPlPP) (root + "e") (mkAdjReg (root + "at"))

-                    (root + "ind") (root + "e") ;

-                    

---subGroup 5

-

-mkV13 : Str -> Verbe = \incuia -> 

-         let root = init incuia in

-   verbAffixes incuia (mkFromAffix root affixSgGr1VI affixPlGr1VI) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS2 affixPlPS2)

-             (mkFromAffix root affixSgPP affixPlPP) (root + "e") (mkAdjReg (root + "at"))

-                    (root + "nd") (root + "e") ;

-                             

-mkV14 : Str -> Verbe = \taia ->

-        let root = init taia ;

-            r = modA root

-               in

-verbAffixes taia (mkFromAffixes1 r root affixSgGr1VI affixPlGr1VI) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS2 affixPlPS2)

-             (mkFromAffix root affixSgPP affixPlPP) (r + "e") (mkAdjReg (root + "at"))

-                    (root + "nd") (r + "e") ;

-                               

-mkV15 : Str -> Verbe = \infoia ->

-    let root = init infoia ;

-        r = mkStemMutO root 

-        in

- verbAffixes infoia (mkAffixSpec1 root r affixSgGr1VI affixPlGr1VI) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS2 affixPlPS2)

-             (mkFromAffix root affixSgPP affixPlPP) (r + "e") (mkAdjReg (root + "at"))

-                    (root + "nd") (r + "e") ;       

-                               

-mkV16 : Str -> Verbe = \muia ->

-     let root = init muia ;

-         r1   = modU root ;

-         r2   = mkStemMutO r1

-         in

- verbAffixes muia (mkTab root r1 r1 (r2 + "e") (r2+"e") affixPlGr1VI) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS2 affixPlPS2)

-             (mkFromAffix root affixSgPP affixPlPP) (r2 + "e") (mkAdjReg (root + "at"))

-                    (root + "nd") (r2 + "e") ;       

-                        

---subGroup 6 

-

-mkV17 : Str -> Verbe = \acuza ->

-   let root = init acuza

-    in

-  verbAffixes acuza (mkFromAffix root affixSgGr1 affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root + "e") (mkAdjReg (root + "at"))

-                    (root + "ând") (root + "ă") ;       

-                    

-mkV18 : Str -> Verbe = \ajuta ->

-   let root = init ajuta ;

-       newF = mkStemPlReg root;                    

-       pres = changeP2 newF (mkFromAffix root affixSgGr1 affixPlGr1)

-in

-verbAffixes ajuta pres 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root + "e") (mkAdjReg (root + "at"))

-                    (root + "ând") (root + "ă") ;  

-

-

-mkV19 : Str -> Verbe = \acorda ->

-  mkV18 acorda ;

-   

-mkV20 : Str -> Verbe = \asista ->

-  mkV18 asista ;

-  

-  

-  

-mkV21 : Str -> Verbe = \risca ->

-      let root = init risca ;

-       newF = mkStemPlReg root ;                    

-       newP = init newF + "e" ;

-       pres = changeP2 newF (mkFromAffix root affixSgGr1 affixPlGr1)

-in

-verbAffixes risca pres 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) newP (mkAdjReg (root + "at"))

-                    (root + "ând") (root + "ă") ;  

-

- 

- mkV22 : Str -> Verbe = \misca ->

-   mkV21 misca ;

-   

- mkV23 : Str -> Verbe = \calca ->

-   let root = init calca ;

-       r    = modA root 

-       in  

-   verbAffixes calca (mkFromAffixes1 r root affixSgGr1 affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (r + "e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r + "ă") ;  

-

-mkV24 : Str -> Verbe = \cauta ->

-    let root = init cauta ;

-        r    = modA root ;

-        newF = mkStemPlReg r ;                    

-        pres = changeP2 newF (mkFromAffixes1 r root  affixSgGr1 affixPlGr1)

-     in

-   verbAffixes cauta pres 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (r + "e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r + "ă") ;  

-

-mkV25 : Str -> Verbe = \lauda ->

-   mkV24 lauda ;

-

-mkV26 : Str -> Verbe = \lasa ->

-   mkV24 lasa ;

-   

-mkV27 : Str -> Verbe = \adasta ->

-  mkV24 adasta ;

-  

-mkV28 : Str -> Verbe = \casca ->

-   let root = init casca ;

-       r    = modA root ; 

-       newF = mkStemPlReg r ;                  

-       newP = init newF + "e"

-       in

-  verbAffixes casca (changeP2 newF (mkFromAffixes1 r root  affixSgGr1 affixPlGr1)) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) newP (mkAdjReg (root + "at"))

-                    (root + "ând") (r + "ă") ;  

-                    

- mkV29 : Str -> Verbe = \chema ->

-  let root = init chema ;

-      r    = mkMutE root

-      in

-    verbAffixes chema (mkAffixSpec1 root r affixSgGr1 affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root+"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r + "ă") ; 

-                    

-  mkV30 : Str -> Verbe = \certa ->

-   let root = init certa ;

-       newF = mkStemPlReg root ;

-       newP = mkMutE root + "ă"

-       in

-     verbAffixes certa (mkTab root root newF newP newP affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root+"e") (mkAdjReg (root + "at"))

-                    (root + "ând") newP ;

-                    

- mkV31 : Str -> Verbe = \toca ->

-  let root = init toca ;

-      r    = mkStemMutO root

-      in

-    verbAffixes toca (mkAffixSpec1 root r affixSgGr1 affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root+"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r + "ă") ; 

-                                              

-  mkV32 : Str -> Verbe = \inota -> 

-   let root = init inota ;

-       newF = mkStemPlReg root ;

-       newP = mkStemMutO root + "ă"

-       in

-     verbAffixes inota (mkTab root root newF newP newP affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root+"e") (mkAdjReg (root + "at"))

-                    (root + "ând") newP ;

-                             

-  mkV33 : Str -> Verbe = \innoda ->

-     mkV32 innoda ;

-     

-  mkV34 : Str -> Verbe = \improsca ->

-    let root = init improsca ;

-        newF = mkStemPlReg root ;                  

-        newS = mkStemMutO (init newF) + "e" ;

-        newP = mkStemMutO root + "ă"

-       in

-  verbAffixes improsca (mkTab root root newF newP newP affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) newS (mkAdjReg (root + "at"))

-                    (root + "ând") newP ;  

-        

- mkV35 : Str -> Verbe = \apara ->

-    let root = init apara ;

-        newP = mkStemMutA root ;

-        pres = changeP2 (newP + "i") (mkFromAffix root affixSgGr1 affixPlGr1)

-          in

-  verbAffixes apara pres 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (newP + "e") (mkAdjReg (root + "at"))

-                    (root + "ând") (root + "ă") ;  

-                

-  mkV36 : Str -> Verbe = \semana -> 

-     let root = init semana ;          

-         newP = mkStemMutA root ;

-         newF = mkMutE root + "ă" 

-         in                           

-  verbAffixes semana (mkTab root root (newP+"i") newF newF affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (newP + "e") (mkAdjReg (root + "at"))

-                    (root + "ând") newF ;  

-                         

-   mkV37 : Str -> Verbe = \fremata ->

-       let root = init fremata ;

-           r    = mkMutE root ;

-           newC = (mkStemMutA root) + "e" ;

-           newP = mkStemPlReg r ;

-           newF = r + "ă" 

-           in                      

-  verbAffixes fremata (mkTab root r newP newF newF affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) newC (mkAdjReg (root + "at"))

-                    (root + "ând") newF ;

-                    

-  mkV38 : Str -> Verbe = \lepada -> 

-    mkV37 lepada ;

-    

-  mkV39 : Str -> Verbe = \scapara ->

-     let root = init scapara ;

-         r    = modAFirst root ;

-         newP = mkStemMutA r ;

-         newF = r + "ă"

-         in

-    verbAffixes scapara (mkTab root r (newP + "i") newF newF affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (newP + "e") (mkAdjReg (root + "at"))

-                    (root + "ând") newF ;     

-         

-  mkV40 : Str -> Verbe = \capata ->

-  let root = init capata ;

-         r    = modAFirst root ;

-         newC = mkStemMutA r + "e" ;

-         newP = mkStemPlReg(mkStemMutA r)  ;

-         newF = r + "ă"

-         in

-    verbAffixes capata (mkTab root r newP newF newF affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) newC (mkAdjReg (root + "at"))

-                    (root + "ând") newF ;            

-         

-  mkV41 : Str -> Verbe = \aseza ->

-     let root = init aseza ;

-         r    = genMut root "e" "a"  

-           in                                           

-  verbAffixes aseza (mkAffixSpec1 root r  affixSgGr1 affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root+"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r +"ă") ;

-        

- mkV42 : Str -> Verbe = \ierta ->

-    mkV30 ierta ;

-    

- mkV43 : Str -> Verbe = \dezmierda ->

-    mkV30 dezmierda ;

-    

- mkV44 : Str -> Verbe = \pieptana ->

-    mkV36 pieptana ;

-    

- mkV45 : Str -> Verbe = \invata ->

-   let root = init invata ;

-       newP = mkStemMutA root ;

-       r   = genMut root "ă" "a"       

-         in

-   verbAffixes invata (mkTab root root (newP + "i") (r+"ă") (r+"ă") affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (newP +"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r +"ă") ;      

-   

- mkV46 : Str -> Verbe = \imbata ->

-   let root = init imbata ;

-       newP = mkStemMutA root ;

-       r   = genMut root "ă" "a"       

-         in

-   verbAffixes imbata (mkTab root root (mkStemPlReg newP) (r+"ă") (r+"ă") affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (newP +"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r +"ă") ;      

-                    

- mkV47 : Str -> Verbe = \varsa ->

-      mkV46 varsa ;

-      

- mkV48 : Str -> Verbe = \juca ->

-    let root = init juca ;

-         r1   = modU root ;

-         r2   = mkStemMutO r1

-         in                      

-   verbAffixes juca (mkTab root r1 (mkStemPlReg r1)  (r2+"ă") (r2+"ă") affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (r2 +"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r2 +"ă") ;      

-                    

- mkV49 : Str -> Verbe = \purta ->

-     mkV48 purta ;

-     

- mkV50 : Str -> Verbe = \prezenta ->

-    let root = init prezenta ;

-        r1   = genMut root "e" "i" 

-        in

-  verbAffixes prezenta (mkTab root r1 (mkStemPlReg r1)  (r1+"ă") (r1+"ă") affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (r1 +"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r1 +"ă") ; 

-           

-  mkV51 : Str -> Verbe = \usca ->

-     let root = init usca ;

-          r   = "usuc"

-      in

-    verbAffixes usca (mkTab root r (r + "i") (r+"ă") (r+"ă") affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (r +"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r +"ă") ;          

-        

-   mkV52 : Str -> Verbe = \manca ->

-      let root = init manca ;     

-          r    = "mănânc"   

-        in

-   verbAffixes manca (mkTab root r (r + "i") (r+"ă") (r+"ă") affixPlGr1) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (r +"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r +"ă") ; 

-     

- --subGroup 7                   

-  mkV53 : Str -> Verbe = \preceda ->

-        let root = init preceda ;

-            newP = mkStemPlReg root ;

-            newC = mkMutE root

-            in

-   verbAffixes preceda (changeP2 newP (mkFromAffix root affixSgGr1 affixPlGr1)) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (newC +"ă") (mkAdjReg (root + "at"))

-                    (root + "ând") (root +"ă") ;          

-                               

-  mkV54 : Str -> Verbe = \ploua ->

-          let root = init ploua

-          in

-    verbAffixes ploua (specTab (root + "ă") (root + "ă")) (specTab ploua (ploua+ "u")) 

-      (specTab (root + "ă") (root + "ară")) (specTab (root + "ase") (root + "aseră")) 

-       (root + "ă") (mkAdjReg (root + "at")) (root + "ând") (root + "ă") ;     

-                                           

- --subGroup8

-   mkV55 : Str -> Verbe = \umbla ->

-        let root = init umbla

-        in

-   verbAffixes umbla (mkFromAffix root affixSgGr1U affixPlGr1U) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root +"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (root +"ă") ;          

-                                      

-   mkV56 : Str -> Verbe = \latra ->

-         let root = init latra ;

-             r    = genMut root "ă" "a"

-             in

-   verbAffixes latra (mkFromAffixes1 r root  affixSgGr1U affixPlGr1U) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (r +"e") (mkAdjReg (root + "at"))

-                    (root + "ând") (r +"ă") ;          

-     

-  --subGroup 9 

-                                  

-  mkV57 : Str -> Verbe = \reda -> 

-          let root = init reda

-            in          

-   verbAffixes reda (mkFromAffix root affixSgGr1AU affixPlGr1AU) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (root +"ea") (mkAdjReg (root + "at"))

-                    (root + "ând") (root +"ă") ;          

-  

-  --subGroup 10

-  mkV58 : Str -> Verbe = \lua ->

-      let root = init lua ;

-          r = Predef.tk 2 root + "i" 

-          in

-   verbAffixes lua (mkFromAffixes1 r root  affixSgGr1EU affixPlGr1EU) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS1 affixPlPS1)

-             (mkFromAffix root affixSgPP affixPlPP) (r +"a") (mkAdjReg (root + "at"))

-                    (root + "ând") (r +"a") ;          

-                                                                         

-  --subGroup 11

-  mkV59 : Str -> Verbe = \sta ->

-       let root = init sta ;

-           r    = Predef.tk 2 root + "stăt" 

-           in

-   verbAffixes sta (mkFromAffix root  affixSgGr1AU affixPlGr1AU) 

-        (mkFromAffix r affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (root +"ea") (mkAdjReg (root + "at"))

-                    (root + "ând") (root +"ai") ;          

-                                             

- --subGroups 12

- mkV60 : Str -> Verbe = \da ->

-      let root = init da ;

-          r    = init root + "dăd"

-          in

-   verbAffixes da (mkFromAffix root  affixSgGr1AU affixPlGr1AU) 

-        (mkFromAffix r affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (root +"ea") (mkAdjReg (root + "at"))

-                    (root + "ând") (root +"ai") ;          

-                                   

- --subGroups 13 

- mkV61 : Str -> Verbe = \veghea ->

-    let root = Predef.tk 2 veghea 

-    in

-     verbAffixes veghea (mkFromAffix root  affixSgGr1Ez affixPlGr1Ez) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS4 affixPlPS4)

-             (mkFromAffix root affixSgPP3 affixPlPP3) (root +"eze") (mkAdjReg (root + "eat"))

-                    (root + "ind") (root +"ează") ;          

-            

---subGroups 14                 

-mkV62 : Str -> Verbe = \deochea ->

-   let root = Predef.tk 2 deochea ;

-       newP = mkMutO root                                     

-     in

-   verbAffixes deochea (mkAffixSpec1 root newP  affixSgGr1CI affixPlGr1CI) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS4 affixPlPS4)

-             (mkFromAffix root affixSgPP3 affixPlPP3) (newP +"e") (mkAdjReg (root + "eat"))

-                    (root + "ind") (newP + "e") ;          

-     

------------------------------------

----------GROUP 2 -- verbs ending in -ea (same syllable)

------------------------------------

-----------

---Present

-----------

-

---subGroup 1-2

-affixSgGr21  : Affixe = afixe "" "i" "e" ;

-affixPlGr21  : Affixe = afixe "em" "eți" "" ;

-

---subGroup 3

-affixSgGr23  : Affixe = afixe "eau" "ei" "ea" ;

-affixPlGr23  : Affixe = afixe "em" "eți" "eau" ;

-

---subGroup 4 

-affixSgGr24  : Affixe = afixe "eau" "ei" "ea" ; 

-affixPlGr24  : Affixe = afixe "em" "eți" "" ;

-

-----------

---Imperf

-----------

-

---subGroups 1-3

---affixSgII and affixPlII

-

---subGroup 4

-affixSgI2 : Affixe = afixe "iam" "iai" "ia" ;

-affixPlI2 : Affixe = afixe "iam" "iați" "iau" ;

-

----------------

---Past Simple

---------------

---affixSgPS3 and affixPlPS3

-

---------------

---Past Perfect

---------------

--- for subGroups 1-3

--- affixSgPP2 and affixPlPP2

-

---for subGroup 4 

-affixSgPP4 : Affixe = afixe "usem" "useși" "use" ;

-affixPlPP4 : Affixe = afixe "useserăm" "useserăți" "useseră" ;

-

-

------------------

-

--- subGroup 1

-

-mkV64 : Str -> Verbe = \aparea ->

-   let root = Predef.tk 2 aparea ;

-       r    = genMut root "ă" "a"

-       in

-   verbAffixes aparea (mkFromAffixes2 r root   affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (root + "ut"))

-                    (root + "ând") (r + "i") ;            

-

-mkV65 : Str -> Verbe = \cadea ->

-    let root = Predef.tk 2 cadea ;

-        r    = genMut root "ă" "a";

-        rad  = init (mkStemPlReg root) 

-      in

-   verbAffixes cadea (changeP2 (mkStemPlReg r) (mkFromAffixes2 r root  affixSgGr21 affixPlGr21) )

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix rad affixSgPS3 affixPlPS3)

-             (mkFromAffix rad affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (rad + "ut"))

-                    (rad + "ând") (mkStemPlReg r) ;

-                    

-mkV66 : Str -> Verbe = \sedea ->

-     let root = Predef.tk 2 sedea ;

-         r    = genMut root "e" "a";                                

-         rad  = init (mkStemPlReg root)

-       in

-   verbAffixes sedea (mkTab root root (mkStemPlReg root) (r + "e") root affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix rad affixSgPS3 affixPlPS3)

-             (mkFromAffix rad affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (rad + "ut"))

-                    (rad + "ând") (rad + "i") ;            

-   

-mkV67 : Str -> Verbe = \vedea ->

-     let root = Predef.tk 2 vedea ;

-         r    = genMut root "e" "ă" ;

-         newC = genMut root "e" "a" ;

-         rad  = init (mkStemPlReg r)

-        in

-  verbAffixes vedea (mkTab root r (mkStemPlReg root) (root + "e") r affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix rad affixSgPS3 affixPlPS3)

-             (mkFromAffix rad affixSgPP2 affixPlPP2) (newC +"ă") (mkAdjReg (rad + "ut"))

-                    (rad + "ând") (mkStemPlReg root) ;

-                    

-mkV68 : Str -> Verbe = \putea ->

-      let root = Predef.tk 2 putea ;

-          r    = modU root ;

-          newP = mkMutO r 

-       in

-   verbAffixes putea (mkTab root r (mkStemPlReg r) (newP + "e") r affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS3 affixPlPS3)

-             (mkFromAffix root affixSgPP2 affixPlPP2) (newP +"ă") (mkAdjReg (root + "ut"))

-                    (root + "ând") (mkStemPlReg r) ;

-

---subGroup 2

-                    

- mkV69 : Str -> Verbe = \scadea ->

-   let root = Predef.tk 2 scadea ;

-       r    = genMut root "ă" "a";

-       rad  = init (mkStemPlReg root) 

-      in

-   verbAffixes scadea (changeP2 (mkStemPlReg r) (mkFromAffixes2 r root  affixSgGr21 affixPlGr21) )

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix rad affixSgPS3 affixPlPS3)

-             (mkFromAffix rad affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (rad + "ut"))

-                    (rad + "ând") (r + "e") ;

-      

-  mkV70 : Str -> Verbe = \prevedea ->

-     let root = Predef.tk 2 prevedea ;

-         r    = genMut root "e" "ă" ;

-         newC = genMut root "e" "a" ;

-         rad  = init (mkStemPlReg r)

-        in

-  verbAffixes prevedea (mkTab root r (mkStemPlReg root) (root + "e") r affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix rad affixSgPS3 affixPlPS3)

-             (mkFromAffix rad affixSgPP2 affixPlPP2) (newC +"ă") (mkAdjReg (rad + "ut"))

-                    (rad + "ând") (root + "e") ;

-                    

-  mkV71 : Str -> Verbe = \placea ->

-     let root = Predef.tk 2 placea ;

-         r    = genMut root "ă" "a"

-       in

-   verbAffixes placea (mkFromAffixes2 r root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (root + "ut"))

-                    (root + "ând") (r + "e") ;       

-                    

-  mkV72 : Str -> Verbe = \durea ->

-                  mkV68 durea ;

-

---subGroup 3 

-                  

-  mkV73 : Str -> Verbe = \bea ->

-      let root = Predef.tk 2 bea ;

-          r    = root + "ă"                

-     in              

-    verbAffixes bea (mkFromAffix root affixSgGr23 affixPlGr23) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (root +"ea") (mkAdjReg (r + "ut"))

-                    (root + "ând") (root + "ea") ;

-

---subGroup 4

-                    

-   mkV74 : Str -> Verbe = \vrea ->

-     let root = Predef.tk 2 vrea ;                                                                          

-         r    = root + "o"

-      in

-       verbAffixes vrea (mkTab root (root+"eau") (root+"ei")(root +"ea") (init root + "or")  affixPlGr24) 

-        (mkFromAffix r affixSgII affixPlII) (mkFromAffix root affixSgPS3 affixPlPS3)

-             (mkFromAffix root affixSgPP4 affixPlPP4) (root +"ea") (mkAdjReg (r + "ut"))

-                    (root + "ând") (root + "ei") ;

-                    

-  ----------------------------------------------------------------------

-  -------Group 3 -- verbs ending in -e

-  -------------------------------------------------------------------------

-  -----------------------

-  --Present

-  -----------------------                  

---subGroups 1-6

---affixSgGr21 + affixPlGr21

-

---subGroup 7-8

-affixSgGr31 : Affixe = afixe "u" "i" "e" ;

-affixPlGr31 : Affixe = afixe "em" "eți" "u" ;

-

-----------------

---Imperfect

-----------------

---subGroups 1-6  affixSgII affixPlII

-

---subGroups 7-8 affixSgI affixPlI

-

-----------------

---Past Simple

-----------------

---subGroups 1-4,8

-affixSgPS5 : Affixe = afixe "sei" "seși" "se" ;

-affixPlPS5 : Affixe = afixe "serăm" "serăți" "seră" ;

-

---subGroups 5-7 affixSgPS3 + affixPlPS3

-

----------------

---P Perfect 

----------------

---subGroups 1-4,8

-affixSgPP5 : Affixe = afixe "sesem" "seseși" "sese" ;

-affixPlPP5 : Affixe = afixe "seserăm" "seserăți" "seseră" ;

-

---subGroups 5-7

---affixSgPP2 and affixPlPP2 

-

---subGroup 1

-

-mkV76 : Str -> Verbe = \pune ->

-   let root = init pune ;

-       r    = init root

-       in

-verbAffixes pune (changeP2 (r+"i") (mkFromAffix root affixSgGr21 affixPlGr21) )

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (root + "ând") (root + "e") ;

-       

-mkV77 : Str -> Verbe = \atinge ->

-    let root = init atinge ;

-        r    = init root 

-        in

-verbAffixes atinge (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (root + "ând") (root + "e") ;

-                    

-mkV78 : Str -> Verbe = \trage ->                    

-     let root = init trage ;

-         rad1  = genMut root "a" "ă" ;

-         r    = init root ;

-         rad2 = genMut r "a" "ă"

-        in

-verbAffixes trage (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix rad1 affixSgII affixPlII) 

-        (mkTab rad2 (r + "ei") (r + "seși") (rad2 + "e") (rad2 + "eră") affixPlPS5)

-             (mkFromAffix rad2 affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (rad1 + "ând") (root + "e") ;

-              

-mkV79 : Str -> Verbe = \decide ->

-     let root = init decide ;

-         r    = init root 

-         in

-verbAffixes decide (changeP2 (mkStemPlReg root) (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (r + "zând") (root + "e") ;

-                    

-mkV80 : Str -> Verbe = \rade ->

-      let root = init rade ;

-          rad1  = genMut root "a" "ă" ;

-          r    = init root ;

-          rad2 = genMut r "a" "ă"

-        in

-verbAffixes rade (changeP2 (mkStemPlReg root) (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix rad1 affixSgII affixPlII) 

-        (mkTab rad2 (r + "ei") (r + "seși") (rad2 + "e") (rad2 + "eră") affixPlPS5)

-             (mkFromAffix rad2 affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (rad2 + "zând") (root + "e") ;

-

-mkV81 : Str -> Verbe = \ucide ->

-     let root = init ucide ;

-         r    = init root 

-         in

-verbAffixes ucide (changeP2 (mkStemPlReg root) (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (r + "gând") (root + "e") ;

-

-mkV82 : Str -> Verbe = \admite ->

-    let root = init admite ;

-         r    = init root 

-         in

-verbAffixes admite (changeP2 (mkStemPlReg root) (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (r + "țând") (root + "e") ;

-

-mkV83 : Str -> Verbe = \alege ->

-    let root = init alege ;

-        r    = init root ;

-        newP = mkMutE root 

-        in

-verbAffixes alege (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (newP +"ă") (mkAdjRegE (r + "s"))

-                    (root + "ând") (root + "e") ;

-

-mkV84 : Str -> Verbe = \sumete ->

-	let root = init sumete ;

-		r    = init root ;

-		newP = mkMutE root 

-			in

-verbAffixes sumete (changeP2 (mkStemPlReg root) (mkAffixSpec2 root newP affixSgGr21 affixPlGr21)) 

-			(mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-				 (mkFromAffix r affixSgPP5 affixPlPP5) (newP +"ă") (mkAdjRegE (r + "s"))

-						(r + "țând") (root + "e") ;

-

-mkV85 : Str -> Verbe = \scoate ->

-    let root = init scoate ;

-        r    = mkStemMutOa root ;

-        rad  = init r ;

-        rad1 = init root 

-           in 

-verbAffixes scoate (mkTab root r (mkStemPlReg r) scoate r affixPlGr21) 

-	    	(mkFromAffix r affixSgII affixPlII) 

-	    	(mkTab rad1 (rad + "sei") (rad + "seși") (rad1 + "se") (rad1 + "eră") affixPlPS5)

-    			 (mkFromAffix rad affixSgPP5 affixPlPP5) (root +"ă") (mkAdjRegO (rad + "s"))

-						(rad + "țând") (root + "e") ;

-     

-        

-mkV86 : Str -> Verbe = \roade ->

-	let root = init roade ;

-		r    = mkStemMutOa root ;

-		rad  = init r ;

-		rad1 = init root

-		   in 

-verbAffixes roade (mkTab root r (mkStemPlReg r) roade r affixPlGr21) 

-	    		(mkFromAffix r affixSgII affixPlII) 

-	    		(mkTab rad1 (rad + "sei") (rad + "seși") (rad1 + "se") (rad1 + "eră") affixPlPS5)

-    				 (mkFromAffix rad affixSgPP5 affixPlPP5) (root +"ă") (mkAdjRegO (rad + "s"))

-							(rad + "zând") (root + "e") ;

-	     

-

-mkV87 : Str -> Verbe = \purcede ->

-     let root = init purcede ;

-         r    = init root ;

-         newP = mkMutE root

-           in

-verbAffixes purcede (changeP2 (mkStemPlReg root) (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (newP +"ă") (mkAdjRegE (r + "s"))

-                    (r + "zând") (root + "e") ;

-

-

-mkV88 : Str -> Verbe = \toarce ->

-	let root = init toarce ;

-	    r    = mkStemMutOa root ;

-		rad  = init r ;

-        rad1 = init root

-				   in 

-verbAffixes toarce (mkTab root r (mkStemPlReg r) toarce r affixPlGr21) 

-	    (mkFromAffix r affixSgII affixPlII) 

-	    (mkTab rad1 (rad + "sei") (rad + "seși") (rad1 + "se") (rad1 + "eră") affixPlPS5)

-    			 (mkFromAffix rad affixSgPP5 affixPlPP5) (root +"ă") (mkAdjRegO (rad + "s"))

-						(rad + "când") (root + "e") ;

-

---subGroup 2

-

-mkV89 : Str -> Verbe = \curge ->

-	let root = init curge ;

-		r    = init root 

-			in

-	verbAffixes curge (mkFromAffix root affixSgGr21 affixPlGr21) 

-			(mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-				 (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-						(root + "ând") (root + "i") ;

-						

-mkV90 : Str -> Verbe = \merge ->

-let root = init merge ;

-    r    = init root ;

-    newP = mkMutE root 

-        in

-verbAffixes merge (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (newP +"ă") (mkAdjRegE (r + "s"))

-                    (root + "ând") (root + "i") ;

-

-mkV91 : Str -> Verbe = \ride ->

-let root = init ride ;

-     r    = init root 

-         in

-verbAffixes ride (changeP2 (mkStemPlReg root) (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (r + "zând") (mkStemPlReg root) ;

-                    

-

-mkV92 : Str -> Verbe = \ramane ->

-let root = init ramane ;

-    r    = init root ;

-    r1   = genMut root "â" "ă" ;

-    r2   = genMut root "â" "a"

-       in

-verbAffixes ramane (changeP2 (r + "i") (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) 

-        (mkTab (init r2) (init r1 + "sei") (init r1 + "seși") (init r2 + "se") (init r2 + "seră")  affixPlPS5)

-             (mkFromAffix (init r1) affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (init r2 + "s"))

-                    (root + "ând") (r + "i") ;       

-

---subGroup 3 :

-

-mkV93 : Str -> Verbe = \zice ->

- let root = init zice ;

-        r    = init root 

-        in

-verbAffixes zice (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "s"))

-                    (root + "ând") r ;

-                    

---subGroup 4 :

-                    

-mkV94 : Str -> Verbe = \rupe ->

-  let root = init rupe 

-  in 

-verbAffixes rupe (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS5 affixPlPS5)

-             (mkFromAffix root affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (root + "t"))

-                    (root + "ând") rupe ;  

-

-mkV95 : Str -> Verbe = \frige ->

-   let root = init frige ;

-       r    = init root + "p"

-       in

-verbAffixes frige (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "t"))

-                    (root + "ând") frige ;

-

-

-mkV96 : Str -> Verbe = \frange ->

- let root = init frange ;

-       r  = init root 

-       in

-verbAffixes frange (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "t"))

-                    (root + "ând") frange ;

-

-mkV97 : Str -> Verbe = \sparge ->

-  let root = init sparge ;

-      r    = init root ;

-      r1   = genMut root "a" "ă";

-      r2   = genMut r "a" "ă"

-      in

-verbAffixes sparge (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix r1 affixSgII affixPlII) 

-        (mkTab r2 (init r1 + "sei") (init r1 + "seși") (r2 + "se") (r2 + "seră")  affixPlPS5)

-             (mkFromAffix r2 affixSgPP5 affixPlPP5) (root +"ă") (mkAdjReg (r + "t"))

-                    (r1 + "ând") sparge ;

-

-mkV98 : Str -> Verbe = \fierbe ->

-  let root = init fierbe ;

-      r    = init root ;

-      r1   = genMut root "e" "a"

-      in

-verbAffixes fierbe (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS5 affixPlPS5)

-             (mkFromAffix r affixSgPP5 affixPlPP5) (r1 +"ă") (mkAdjRegE (r + "t"))

-                    (root + "ând") fierbe ;      

-

-mkV99 : Str -> Verbe = \coace ->

-   let root = init coace ;

-       r    = genMut2 root "oa" "o" ;

-       r1   = init r + "p"

-       in

-verbAffixes coace (mkTab root r1 (r1+"i") (root+"e") r1 affixPlGr21) 

-        (mkFromAffix r affixSgII affixPlII) (mkFromAffix r1 affixSgPS5 affixPlPS5)

-             (mkFromAffix r1 affixSgPP5 affixPlPP5) (root +"ă") (mkAdjRegO (r1 + "t"))

-                    (r + "ând") coace ;       

---subGroup 5 :

-

-mkV100 : Str -> Verbe = \cere ->

-  let root = init cere ;

-      r    = mkMutE root 

-      in

-verbAffixes cere (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (root + "ut"))

-                    (root + "ând") cere ;

-    

-

-mkV101 : Str -> Verbe = \crede ->

-   let root = init crede ;

-       newP = init (mkStemPlReg root) ;

-       r    = mkMutE root

-       in

-verbAffixes crede (changeP2 (newP + "i") (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix newP affixSgPS3 affixPlPS3)

-             (mkFromAffix newP affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (newP + "ut"))

-                    (newP + "ând") crede ;  

-

-mkV102 : Str -> Verbe = \tese ->

-   let root = init tese ;

-       newP = init (mkStemPlReg root) ;

-       r    = mkMutE root

-       in

-verbAffixes tese (changeP2 (newP + "i") (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS3 affixPlPS3)

-             (mkFromAffix root affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (root + "ut"))

-                    (root + "ând") tese ;  

-

-mkV103 : Str -> Verbe = \creste ->

-  let root = init creste ;

-      r    = Predef.tk 2 root + "sc" ;

-      newC = mkMutE r 

-      in

-verbAffixes creste (changeP1 r (mkFromAffix  root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (newC +"ă") (mkAdjReg (r + "ut"))

-                    (r + "ând") creste ;

-      

-

-mkV104 : Str -> Verbe = \investe ->

-  let root = init investe ;

-      r    = Predef.tk 2 root + "sc" ;

-      newC = mkMutE r ;

-      rad  = genMut r "e" "ă" 

-      in

-verbAffixes investe (changeP1 r (mkFromAffix  root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix rad affixSgPS3 affixPlPS3)

-             (mkFromAffix rad affixSgPP2 affixPlPP2) (newC +"ă") (mkAdjReg (rad + "ut"))

-                    (rad + "ând") investe ;

-

-

-mkV105 : Str -> Verbe = \bate ->

- let root = init bate ;

-     r    = genMut root "a" "ă"

-     in

-verbAffixes bate (changeP2 (mkStemPlReg root) (mkFromAffix  root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix r affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (root +"ă") (mkAdjReg (r + "ut"))

-                    (r + "ând") bate ;

-

-mkV106 : Str -> Verbe = \naste ->

-  let root = init naste ;

-      r    = Predef.tk 2 root + "sc" ;

-      rad  = genMut r "a" "ă" 

-      in

-verbAffixes naste (changeP1 r (mkFromAffix  root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix rad affixSgPS3 affixPlPS3)

-             (mkFromAffix rad affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (rad + "ut"))

-                    (rad + "ând") naste ;

-

---mkV107 : Str -> Verbe = \rage ->

-

-  

-mkV108 : Str -> Verbe = \tine ->

-let root = init tine ;

-     r    = init root + "i"

-     in

-verbAffixes tine (changeP2 r (mkFromAffix  root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS3 affixPlPS3)

-             (mkFromAffix root affixSgPP2 affixPlPP2) (root +"ă") (mkAdjReg (root + "ut"))

-                    (root + "ând") tine ;

-

-mkV109 : Str -> Verbe = \cunoaste ->

-let   root = init cunoaste ;

-      newC = Predef.tk 2 root + "sc" ;

-      r    = mkStemMutOa newC ;

-      rad  = mkStemMutOa root

-      in

-verbAffixes cunoaste (mkTab root r (mkStemPlReg r) cunoaste r affixPlGr21) 

-        (mkFromAffix rad affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (newC +"ă") (mkAdjReg (r + "ut"))

-                    (r + "ând") cunoaste ;    

-

-mkV110 : Str -> Verbe = \coase ->

-let root = init coase ;

-    r    = mkStemMutOa root ;

-    rad  = genMut2 root "oa" "u" 

-    in

-verbAffixes coase (mkTab root r (mkStemPlReg r) coase r affixPlGr21) 

-        (mkFromAffix r affixSgII affixPlII) (mkFromAffix rad affixSgPS3 affixPlPS3)

-             (mkFromAffix rad affixSgPP2 affixPlPP2) (root +"ă") (mkAdjReg (rad + "ut"))

-                    (r + "ând") coase ;     

-    

-mkV111 : Str -> Verbe = \divide ->

-let root = init divide ;

-    newP = mkStemPlReg root

-    in

-verbAffixes divide (changeP2 newP (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        empty empty empty (root +"ă") (variants{})

-                    (root + "ând") divide ;

-                       

-mkV112 : Str -> Verbe = \vinde ->

-let root = init vinde ;

-    r    = genMut root "i" "â" ;

-    in

-verbAffixes vinde (mkTab root r (mkStemPlReg root) vinde r affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (root +"ă") (mkAdjReg (r + "ut"))

-                    (init r + "zând") vinde ;   

-   

-mkV113 : Str -> Verbe = \pierde ->

-let root = init pierde ;

-    r    = mkMutE root ;

-    rad  = init (mkStemPlReg root)

-    in

-verbAffixes pierde (changeP2 (rad + "i") (mkFromAffix root affixSgGr21 affixPlGr21)) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS3 affixPlPS3)

-             (mkFromAffix root affixSgPP2 affixPlPP2) (r +"ă") (mkAdjReg (root + "ut"))

-                    (rad + "ând") pierde ;

-

---mkV114 : Str -> Verbe = \exige ->

-

-

---subGroup 6

-

-mkV115 : Str -> Verbe = \face -> 

-let root = init face ;

-    r    = genMut root "a" "ă" 

-    in

-verbAffixes face (mkFromAffix root affixSgGr21 affixPlGr21) 

-        (mkFromAffix r affixSgII affixPlII) (mkFromAffix r affixSgPS3 affixPlPS3)

-             (mkFromAffix r affixSgPP2 affixPlPP2) (root +"ă") (mkAdjReg (r + "ut"))

-                    (r + "ând") (init r) ;

---subGroup 7

-mkV116 : Str -> Verbe = \umple ->

-let root = init umple 

-     in

-verbAffixes umple (mkFromAffix root affixSgGr31 affixPlGr31) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS3 affixPlPS3)

-             (mkFromAffix root affixSgPP2 affixPlPP2) (root +"e") (mkAdjReg (root + "ut"))

-                    (root + "ând") umple ;   

-

---subGroup 8

-mkV117 : Str -> Verbe = \scrie ->

-let root = init scrie 

-   in 

-verbAffixes scrie (mkFromAffix root affixSgGr31 affixPlGr31) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS5 affixPlPS5)

-             (mkFromAffix root affixSgPP5 affixPlPP5) (root +"e") (mkAdjReg (root + "s"))

-                    (root + "ind") scrie ;

-

-------------------------------------

----GROUP 4 -- verbs ending in -i/-î

-------------------------------------

---------------

---Present 

---------------

-

---subGroups 1-2

-affixSgGr41 : Affixe = afixe "esc" "ești" "ește" ;

-affixPlGr41 : Affixe = afixe "im" "iți" "esc" ;

-

---subGroup 3

-

-affixSgGr43 : Affixe = afixe "iesc" "iești" "iește" ;

-affixPlGr43 : Affixe = afixe "im" "iți" "iesc" ;

-

---subGroup 4

-

-affixSgGr44 : Affixe = afixe "iu" "ii" "ie" ;

-affixPlGr44 : Affixe = afixe "im" "iți" "iu" ;

-

---subGroup 5 

-

-affixSgGr45 : Affixe = afixe "i" "i" "ie" ;

-affixPlGr45 : Affixe = afixe "im" "iți" "ie" ;

-

---subGroups 6 -8

-

-affixSgGr468 : Affixe = afixe "" "i" "e" ;

-affixPlGr468 : Affixe = afixe "im" "iți" "" ;

-

---subGroup 9 

-

-affixSgGr49 : Affixe = afixe "" "i" "ă" ;

-affixPlGr49 : Affixe = afixe "im" "iți" "ă" ;

-

---subGroup 10

-

-affixSgGr410 : Affixe = afixe "" "i" "e" ;

-affixPlGr410 : Affixe = afixe "im" "iți" "e" ;

-

---subGroup 11

-

-affixSgGr411 : Affixe = afixe "" "" "ie" ;

-affixPlGr411 : Affixe = afixe "" "" "ie" ;

-

---subGroup 12 

-

-affixSgGr412 : Affixe = afixe "ăsc" "ăști" "ăște" ;

-affixPlGr412 : Affixe = afixe "âm" "âți" "ăsc" ;

-

---subGroup 13

-

-affixSgGr413 : Affixe = afixe "" "i" "ă" ;

-affixPlGr413 : Affixe = afixe "âm" "âți" "ă" ;

-

-

--------------------------

---Imperfect

--------------------------

-

---subGroup 1,6-10

---affixSgII + affixPlII

-

---subGroup 2, 12-13

---affixSgI + affixPlI

-

---subGroups 3-5

---affixSgI2 + affixPlI2

-

---subGroup 11

-affixSgI4 : Affixe = afixe "" "" "ia" ;

-affixPlI4 : Affixe = afixe "" "" "iau" ;

-

-------------------------

---Past Simple

-------------------------

---subGroups 1-3,5-10

-affixSgPS6 : Affixe = afixe "ii" "iși" "i" ;

-affixPlPS6 : Affixe = afixe "irăm" "irăți" "iră" ;

-

---subGroup 4

-affixSgPS7 : Affixe = afixe "iui" "iuși" "iu" ;

-affixPlPS7 : Affixe = afixe "iurăm" "iurăți" "iură" ;

-

---subGroup 11

-affixSgPS8 : Affixe = afixe "" "" "i" ;

-affixPlPS8 : Affixe = afixe "" "" "iră" ;

-

---subGroup 12-13

-affixSgPS9 : Affixe = afixe "âi" "âși" "î" ;

-affixPlPS9 : Affixe = afixe "ârăm" "ârăți" "âră" ;

-

------------------------

---Past Perfect

------------------------

---subGroups 1-3,5 + 10

-affixSgPP6 : Affixe = afixe "isem" "iseși" "ise" ;

-affixPlPP6 : Affixe = afixe "iserăm" "iserăți" "iseră" ;

-

---subGroup 4

-

-affixSgPP7 : Affixe = afixe "iusem" "iuseși" "iuse" ;

-affixPlPP7 : Affixe = afixe "iuserăm" "iuserăți" "iuseră" ;

-

---subGroup 11

-affixSgPP8 : Affixe = afixe "" "" "ise" ;

-affixPlPP8 : Affixe = afixe "" "" "iseră" ;

-

---subGroup 12-13

-affixSgPP9 : Affixe = afixe "âsem" "âseși" "âse" ;

-affixPlPP9 : Affixe = afixe "âserăm" "âserăți" "âseră" ;

-

-

---subGroup 1 

-

-

-

-mkV119 : Str -> Verbe = \povesti ->

- let root = init povesti 

- in

-verbAffixes povesti (mkFromAffix root affixSgGr41 affixPlGr41) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (root +"ească") (mkAdjReg (root + "it"))

-                    (root + "ind") (root + "ește") ;

---subGroup 2

-mkV120 : Str -> Verbe = \pustii ->

-let root = init pustii

-in 

-verbAffixes pustii (mkFromAffix root affixSgGr41 affixPlGr41) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (root +"ască") (mkAdjReg (root + "it"))

-                    (root + "ind") (root + "ește") ;

---subGroup 3

-mkV121 : Str -> Verbe = \locui ->

-let root = init locui

-in

-verbAffixes locui (mkFromAffix root affixSgGr43 affixPlGr44) 

-        (mkFromAffix root affixSgI2 affixPlI2) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (root +"iască") (mkAdjReg (root + "it"))

-                    (root + "ind") (root + "ește") ;

---subGroup 4

-mkV122 : Str -> Verbe = \sti ->

-let root = init sti 

-in

-verbAffixes sti (mkFromAffix root affixSgGr44 affixPlGr44) 

-        (mkFromAffix root affixSgI2 affixPlI2) (mkFromAffix root affixSgPS7 affixPlPS7)

-             (mkFromAffix root affixSgPP7 affixPlPP7) (root +"ie") (mkAdjReg (root + "iut"))

-                    (root + "iind") (variants{}) ;

---subGroup 5

-mkV123 : Str -> Verbe = \sui ->

-let root = init sui

-in

-verbAffixes sui (mkFromAffix root affixSgGr45 affixPlGr45) 

-        (mkFromAffix root affixSgI2 affixPlI2) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (root +"ie") (mkAdjReg (root + "it"))

-                    (root + "ind") (sui+"e") ;

-

-mkV124 : Str -> Verbe = \indoi ->

-let root = init indoi ;

-    r    = init (mkMutO indoi)

-    in

-verbAffixes indoi (mkAffixSpec1 root r affixSgGr45 affixPlGr45) 

-        (mkFromAffix root affixSgI2 affixPlI2) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ie") (mkAdjReg (root + "it"))

-                    (root + "ind") (r+"ie") ;

-                 

-mkV125 : Str -> Verbe = \jupui ->

-let root = init jupui ;

-    r1   = genMut jupui "u" "o" ;

-    r2   = genMut jupui "u" "oa"

-in

-verbAffixes jupui (mkTab root r1 r1 (r2+"e") (r2+"e") affixPlGr45) 

-        (mkFromAffix root affixSgI2 affixPlI2) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r2 +"e") (mkAdjReg (root + "it"))

-                    (root + "ind") (r2+"e") ;

-

---subGroup 6

-mkV126 : Str -> Verbe = \fugi ->

-let root = init fugi

-in

-verbAffixes fugi (mkFromAffix root affixSgGr468 affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (root +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") fugi ;

-

-mkV127 : Str -> Verbe = \auzi ->

-let root = init auzi ;

-    r    = init root + "d"

-    in

-verbAffixes auzi (mkTab root r auzi (r+"e") r affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") auzi ;

-

-mkV128 : Str -> Verbe = \dormi ->

-let root = init dormi ;

-    r    = mkMutO root 

-    in

-verbAffixes dormi (mkAffixSpec2 root r affixSgGr468 affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") dormi ;

-                    

-mkV129 : Str -> Verbe = \muri ->

-let root = init muri ;

-    r1   = modU root ;

-    r2   = mkStemMutO r1

-         in                  

-verbAffixes muri (mkTab root r1 (r1 + "i") (r2 + "e") r1  affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r2 +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (r1 + "i") ;

---subGroup 7

-mkV130 : Str -> Verbe = \simti ->

-let root = init simti ;

-    r    = init root + "t"

-    in

-verbAffixes simti (mkTab root r (mkStemPlReg r) (r+"e") r affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (r+"e") ;

-                    

-mkV131 : Str -> Verbe = \sorbi ->

-let root = init sorbi ;

-    r    = mkMutO root 

-    in

-verbAffixes sorbi (mkAffixSpec2 root r affixSgGr468 affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (r + "e") ;

-                    

-mkV132 : Str -> Verbe = \slobozi ->

-let root = init slobozi ;

-    rad  = init root + "d" ;

-    r    = mkMutO rad 

-    in

-verbAffixes slobozi (mkTab root rad root (r+"e") rad affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (r+"e") ;

-                    

-mkV133 : Str -> Verbe = \mirosi ->

-let root = init mirosi ;

-    r    = mkMutO root

-    in

-verbAffixes mirosi (mkAffixSpec2 root r  affixSgGr468 affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (r+"e") ;

-                    

-mkV134 : Str -> Verbe = \imparti ->

-let root = init imparti ;

-    rad  = init root + "t" ;

-    r    = genMut rad "ă" "a"

-    in

-verbAffixes imparti (mkFromAffixes1 r root  affixSgGr468 affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (r+"e") ;

-                    

-mkV118 : Str -> Verbe = \sari ->

-let root = init sari ;

-    r    = genMut root "ă" "a"

-    in

-verbAffixes sari (mkFromAffixes2 r root  affixSgGr468 affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (r+"i") ;

-                    

-                    

-mkV135 : Str -> Verbe = \repezi ->

-let root = init repezi ;

-    rad  = init root + "d" ;

-    r    = mkMutE rad

-    in

-verbAffixes repezi (mkTab root rad repezi (rad + "e") r affixPlGr468)

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (rad + "e") ;

-

---subGroup 8

-mkV136 : Str -> Verbe = \veni ->

-let root = init veni ;

-    rad  = init root ;

-    r    = genMut root "e" "i"

-    in

-verbAffixes veni (mkTab root r (init r + "i") (r + "e") r affixPlGr468) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (r +"ă") (mkAdjReg (root + "it"))

-                    (root + "ind") (r + "o") ;

---subGroup 9

-mkV137 : Str -> Verbe = \oferi ->

-let root = init oferi

-in

-verbAffixes oferi (mkFromAffix root affixSgGr49 affixPlGr49) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (root +"e") (mkAdjReg (root + "it"))

-                    (root + "ind") (root + "ă") ;

-

-mkV138 : Str -> Verbe = \acoperi ->

-let root = init acoperi;

-    r    = genMut root "e" "ă" 

-    in

-verbAffixes acoperi (mkTab root r acoperi (root + "ă") (root + "ă")  affixPlGr49) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (root +"e") (mkAdjReg (root + "it"))

-                    (root + "ind") (root + "ă") ;

-

---subGroup 10

-mkV139 : Str -> Verbe = \bombani ->

-let root = init bombani

-in

-verbAffixes bombani (mkFromAffix root affixSgGr410 affixPlGr410) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS6 affixPlPS6)

-             (mkFromAffix root affixSgPP6 affixPlPP6) (root +"e") (mkAdjReg (root + "it"))

-                    (root + "ind") (root + "e") ;

-

---subGroup 11 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

-mkV140 : Str -> Verbe = \trebui ->

-let root = init trebui

-in

-verbAffixes trebui (mkFromAffix root affixSgGr411 affixPlGr411) 

-        (mkFromAffix root affixSgI4 affixPlI4) (mkFromAffix root affixSgPS8 affixPlPS8)

-             (mkFromAffix root affixSgPP8 affixPlPP8) (root +"iască") (mkAdjReg (root + "it"))

-                    (root + "ind") nonExist ;

-

---subGroup 12

-mkV141 : Str -> Verbe = \uri ->

-let root = init uri

-in

-verbAffixes uri (mkFromAffix root affixSgGr412 affixPlGr412) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS9 affixPlPS9)

-             (mkFromAffix root affixSgPP9 affixPlPP9) (root +"ască") (mkAdjReg (root + "ât"))

-                    (root + "ând") (root + "ăște") ;

---subGroup 13

-

-mkV142 : Str -> Verbe = \vari ->

-let root = init vari

-in

-verbAffixes vari (mkFromAffix root affixSgGr413 affixPlGr413) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS9 affixPlPS9)

-             (mkFromAffix root affixSgPP9 affixPlPP9) (root +"e") (mkAdjReg (root + "ât"))

-                    (root + "ând") (root + "ă") ;

-

-mkV143 : Str -> Verbe = \cobori ->

-let root = init cobori ;

-    r    = mkMutO root

-    in

-verbAffixes cobori (mkAffixSpec1 root r affixSgGr413 affixPlGr413) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS9 affixPlPS9)

-             (mkFromAffix root affixSgPP9 affixPlPP9) (r +"e") (mkAdjReg (root + "ât"))

-                    (root + "ând") (r + "ă") ;

-                 

-mkV144 : Str -> Verbe = \tabari ->

-let root = init tabari ;

-    rad  = modAFirst root ;

-    r    = mkStemPlReg rad

-    in

-verbAffixes tabari (mkTab root rad r (rad + "ă") (rad + "ă") affixPlGr413) 

-        (mkFromAffix root affixSgI affixPlI) (mkFromAffix root affixSgPS9 affixPlPS9)

-             (mkFromAffix root affixSgPP9 affixPlPP9) (init r +"e") (mkAdjReg (root + "ât"))

-                    (root + "ând") (rad + "ă") ;

-

-

----------------------------------------

---Special verbs :

-

---to have :

-

-mkV1 : Str -> Verbe = \avea ->

-let root = Predef.tk 2 avea

-  in

-verbAffixes avea (mkTab root "am" "ai" "are" "au" affixPlGr21) 

-        (mkFromAffix root affixSgII affixPlII) (mkFromAffix root affixSgPS3 affixPlPS3)

-             (mkFromAffix root affixSgPP2 affixPlPP2) "aibă" (mkAdjReg (root + "ut"))

-                    (root + "ând") "ai" ;

-                    

---to be :                    

-{-

-mkV2 : Str -> Verbe = \fi ->

-let root = init fi ;

-    pres : Number => Person => Str = table {Sg => table {P1 => "sunt"; P2 => "ești"; P3 => "este"};

-                                            Pl => table {P1 => "suntem"; P2 => "sunteți"; P3 => "sunt"} 

-                                            };

-    ps  : Number => Person => Str = table {Sg => table {P1 => "fusei"; P2 => "fuseși"; P3 => "fuse"};

-                                           Pl => table {P1 => "fuserăm"; P2 => "fuserăți"; P3 => "fuseră"} 

-                                           };                                        

-    pp : Number => Person => Str = table {Sg => table {P1 => "fusesem"; P2 => "fuseseși"; P3 => "fusese"};

-                                           Pl => table {P1 => "fuseserăm"; P2 => "fuseserăți"; P3 => "fuseseră"} 

-                                           }

-    in

-    verbAffixes fi pres (mkFromAffix "er" affixSgI affixPlI) ps pp

-                                               

--}    

-} ;
\ No newline at end of file
diff --git a/next-lib/src/romanian/NumeralRon.gf b/next-lib/src/romanian/NumeralRon.gf
deleted file mode 100644
index 3cd7907a5..000000000
--- a/next-lib/src/romanian/NumeralRon.gf
+++ /dev/null
@@ -1,252 +0,0 @@
-concrete NumeralRon of Numeral = CatRon ** 

-  open  MorphoRon, CatRon, Prelude in {

-

-flags

-  coding=cp1250;

-

-param DForm = unit | teen | ten | teen_inf | attr;

-

-lincat Digit = {s : CardOrd => DForm => Str ; size : Size} ;

-lincat Sub10 = {s : CardOrd => DForm => Str ; size : Size} ;

-lincat Sub100 = {s : CardOrd => NumF => Str ; size : Size} ;

-lincat Sub1000 = {s : CardOrd => NumF => Str ; size : Size} ;

-lincat Sub1000000 = { s : CardOrd => NumF => Str; size : Size } ;

-

-

-

-oper mkOrdinalForm : Str -> Gender ->  Str =

-\two, g ->  case g of 

-                  { Masc => case two of 

-                            {x+"t"    => two+"ulea"; 

-                             x + "ie" => x + "iilea";

-                             _        => two+"lea" 

-                            };      

-                    Fem => case two of

-                            { x + "a"         => two ;

-                              x + ("ă"|"u")   => x +"a"; 

-                              x + "ei"        => two + "a";

-                              x + "ii"         => x + "ia" ;

-                              x + "i"         => x + "ea";

-                              x + "ie"         => x +"a" ;

-                              _               => two +"a" 

-                            }

-                   };                        

- 

-                

-oper mkOrdinal : Str -> Gender -> ACase -> Str =

-\two, g, fl ->  mkOrd (mkOrdinalForm two g) g fl;  

-

-oper mkOrd : Str -> Gender -> ACase -> Str =

-\two, g, fl -> let cc = variants{(artPos g Sg)++ two ; 

-                                   (artDem g Sg ANomAcc) ++ "de-"+(artPos g Sg) ++ two

-                                   } in

-         case fl of

-                { ANomAcc => cc ;             

-                  AGenDat => (artDem g Sg AGenDat)++"de-"+(artPos g Sg)++ two ;

-                  AVoc => cc

-                };  

-

-

-oper mkNum : Str -> Str -> Str -> Str -> Digit = 

- \two -> \twelve -> \twenty -> \doispe -> mkNumVSpc two twelve twelve twenty two doispe doispe (mkOrdinalForm two Masc) (mkOrdinalForm two Fem) two two;

-

-

-oper mkNumVSpc : Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Str -> Digit = 

-  \two -> \twelve -> \douasprezece -> \twenty -> \dou -> \doispe -> \douaspe -> \doilea -> \doua ->

-  \unu -> \una ->  

-  {s = table { 

-               NCard Masc  => table {unit => two ; teen => twelve ;

-                                     ten => twenty ; teen_inf => doispe ; attr => unu

-                                    } ;

-               NCard Fem  => table {unit => dou ; teen => douasprezece ;

-                                    ten  => twenty ; teen_inf => douaspe ; attr => una

-                                   } ;                      

-               NOrd Masc  => table {unit     => doilea ; 

-                                    teen     => mkOrdinalForm twelve Masc ;   

-                                    ten      => mkOrdinalForm twenty Masc ;   

-                                    teen_inf => mkOrdinalForm doispe Masc ;      

-                                    attr     => mkOrdinalForm unu Masc

-                                   } ;

-               NOrd Fem   => table {unit     => doua  ;

-                                    teen     => mkOrdinalForm douasprezece Fem ;   

-                                    ten      => mkOrdinalForm twenty Fem ;   

-                                    teen_inf => mkOrdinalForm douaspe Fem ;

-                                    attr     => mkOrdinalForm una Fem      

-                                   }                      

-              } ;      

-   size = less20 ;

-   lock_Digit = <>

-  } ;

-

-oper regNum : Str -> Digit = 

-  \trei -> mkNum trei (trei + "sprezece") (trei + "zeci") (trei + "șpe") ;

-

-

-oper mkMidF : Str -> Str -> Sub100 =

-\unsprezece, unspe -> 

-{ s = table {NCard g => table { Formal   => unsprezece  ;

-                                Informal => unspe  

-                               };

-             NOrd g  => table {Formal    =>  mkOrdinalForm unsprezece g;

-                               Informal  => mkOrdinalForm unspe g 

-                              }                 

-            };

-            

- size = less20 ;

- lock_Sub100 = <>

- };

-

-

-lin num = \d ->

- { s = \\cse => table { NCard g => \\f => d.s ! (NCard g) ! f ;

-                        NOrd g => \\f =>  let ss = d.s ! (NOrd g) ! f 

-                                                 in 

-                                       case d.size of 

-                                              { sg => (artDem g Sg cse) ++ ss ;

-                                                _  => mkOrd ss g cse

-                                               }

-                       }; 

-   size = d.size

- } ; 

--- Latin A Supplement chars

-

-lin n2 = mkNumVSpc "doi" "doispreze" "douăsprezece" "douăzeci" "două" "doișpe" "douășpe" "doilea" "doua" "doi" "două";

-lin n3 = regNum "trei";

-lin n4 = mkNum "patru" "paisprezece" "patruzeci" "paișpe";

-lin n5 = mkNum "cinci" "cinsprezece" "cincizeci" "cinșpe";

-lin n6 = mkNum "șase" "șaisprezece" "șaizeci" "șaișpe";

-lin n7 = mkNum "șapte" "șaptesprezece" "șaptezeci" "șaptișpe";

-lin n8 = mkNum "opt" "optsprezece" "optzeci" "optișpe";

-lin n9 = regNum "nouă";

-

-lin pot01 = let num = mkNumVSpc "un" "unsprezece" "unsprezece" "zece" "o" "unșpe" "unșpe" "dintâi" "dintâi" "unu" "una"              

-              in 

-         { s = \\o,c =>  num.s ! o ! c ;

-           size = sg 

-          };            

-

-lin pot0 d = { s = \\o, c => d.s ! o ! c ;

-               size = less20

-              };

-

-lin pot110 = mkMidF "zece" "zece" ;           

-

-lin pot111 = mkMidF "unsprezece" "unșpe" ; 

-                                       

-lin pot1to19 = \d -> 

-  {s = \\c => table { Formal    => d.s ! c ! teen ;

-                      Informal  => d.s ! c ! teen_inf 

-                  };                        

-   size = less20

-  };

-               

-lin pot0as1  = \d -> 

-  {s = \\c,_ => d.s ! c ! unit ;                                  

-   size = d.size

-  };

-                   

-lin pot1  = \d -> 

-  {s = \\c,_ => d.s ! c ! ten ;                                        

-   size = pl

-  };

-

-

-                 

-lin pot1plus d e = 

-  {s = table { 

-          NCard g => \\_ => d.s ! (NCard g) ! ten ++ "și" ++ e.s ! (NCard g) ! attr  ;

-          NOrd g  => \\_ => d.s ! (NCard g) ! ten ++ "și" ++ e.s ! (NOrd g)  ! attr 

-             };

-   size = pl 

-   };          

-     

-lin pot1as2 n = n ;

-

-lin pot2 d = 

-  {s = table {

-              NCard g => \\_ => d.s ! (NCard Fem) ! unit  ++ (mksute d.size) ; 

-              NOrd g  => \\_ => d.s ! (NCard Fem) ! unit  ++ (mkSute d.size g)       

-             };

-                     

-  size = pl} ;

-             

-lin pot2plus d e = 

-  {s = \\c,f => d.s ! (NCard Fem) ! unit ++ (mksute d.size) ++ e.s ! c ! f  ;    

-   size = pl} ;

-

-lin pot2as3 n = n ;

- 

-lin pot3 n = 

-  {s =  table {  

-              NCard g => \\f => mkmie n.size (n.s ! (NCard Fem) ! f )  ;

-              NOrd g  => \\f => mkMie n.size g (n.s ! (NCard Fem) ! f )   

-              };

-  size = pl                     

-  } ;

-

-

-lin pot3plus n m = 

- {s = \\c, f => mkmie n.size (n.s ! (NCard Fem) ! f )  ++ m.s ! c ! f ;                   

-  size = pl                              

-   };

-

-oper mksute : Size -> Str = \sz -> table {sg => "sută" ; _ => "sute" } ! sz ; 

-oper mkSute : Size -> Gender -> Str = \sz, g -> 

-table {sg => mkOrdinalForm "sută" g  ;

-       _  => mkOrdinalForm "sute" g  } ! sz ;

-

-oper mkmie : Size -> Str -> Str = \sz, attr -> 

-  table {sg     => "o" ++ "mie" ;

-         less20 => attr ++ "mii" ;

-         pl     => attr ++ "de" ++ "mii"} ! sz ;

-

-

-oper mkMie : Size -> Gender -> Str -> Str = \sz, g, attr ->

-table { sg      => "o" ++ mkOrdinalForm "mie" g  ;

-        less20  => attr ++ mkOrdinalForm "mii" g ;

-        pl      => attr ++ "de" ++ mkOrdinalForm "mii" g  } ! sz ; 

-

-

-

---numerals as sequences of digits :

-

-lincat 

-    Dig = {s : CardOrd => Str; n : Size ; isDig : Bool} ;

-

-lin 

-   IDig d = d ;

-

-   IIDig d i = {

-     s = \\o => d.s ! NCard Masc ++ i.s ! o ;

-      n = case d.n of

-              { sg => if_then_else Size (i.isDig) less20 pl ;

-                _  => pl           

-              };

-      isDig = False

-    } ;

-lin

-    D_0 = mkDig "0" ;

-    D_1 = mk3Dig "1" "1ul" "1a" 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 mkDig : Str -> Dig = \c -> mk3Dig c (c + "lea") (c + "a") less20 ;

-

-oper  mk3Dig : Str -> Str -> Str-> Size -> Dig = \c,u,o,n -> {

-      s = table {NCard g => c ; NOrd Masc => u ; NOrd Fem => o } ; 

-      n = n;

-      isDig = True ;

-      lock_Dig = <> 

-      } ;

-

-    TDigit = {s : CardOrd => Str; n : Size ; isDig : Bool} ;

-

-

-}

diff --git a/next-lib/src/romanian/ParadigmsRon.gf b/next-lib/src/romanian/ParadigmsRon.gf
deleted file mode 100644
index b92b06879..000000000
--- a/next-lib/src/romanian/ParadigmsRon.gf
+++ /dev/null
@@ -1,424 +0,0 @@
---# -path=.:../romance:../common:../abstract:../../prelude

-

---1 Romanian Lexical Paradigms

---

---  Ramona Enache 2008 - 2009

---

-

-

-resource ParadigmsRon = 

-  open 

-    (Predef=Predef), 

-    Prelude, 

-    MorphoRon, 

-    CatRon,

-    BeschRon in {

-

-  flags optimize=all ;

-

---2 Parameters 

---

--- To abstract over gender names, we define the following identifiers.

-

-oper

-  NGender : Type ; 

-

-  masculine : NGender ;

-  feminine  : NGender ;

-  neuter    : NGender ;

-  

-  Gender : Type ;

-  

-  Masculine : Gender ;

-  Feminine  : Gender ;

-  

---To abstract over animacy, we define the following :  

-

-  Anim : Type ;

-  

-  animate   : Anim ;

-  inanimate : Anim;

-  

--- To abstract over number names, we define the following.

-

-  Number : Type ; 

-

-  singular : Number ;

-  plural   : Number ;

-

--- prepositions which require cases :

-   

-   Preposition : Type ;

- 

- NCase : Type ;

-  Acc : NCase ;

-  Dat : NCase ;

-  Gen : NCase ;

-    

-  mkPrep : Str -> NCase -> Prep ;

-  noPrep : NCase -> Prep ;

-

---2 Nouns

-

-

-

---3 Relational nouns 

--- 

--- Relational nouns need a noun and a preposition. 

-

- mkN2 : N -> Prep -> N2 ;

- mkN2 n p = n ** {lock_N2 = <> ; c2 = p};

-

--- Three-place relational nouns need two prepositions.

-

-mkN3 : N -> Prep -> Prep -> N3 ;

-mkN3 n p q = n ** {lock_N3 = <> ; c2 = p ; c3 = q };

-
-

-

---3 Proper names and noun phrases

---

--- Proper names need a string and a gender. If no gender is given, the

--- feminine is used for strings ending with "e", the masculine for other strings.

-

-  mkPN  = overload {

-    mkPN : Str -> PN = mkPropN ;

-    mkPN : Str -> Gender -> PN = mkPropNoun ;

-    mkPN : Str -> Gender -> Number -> PN = mkProperNoun; 

-    } ;

-

-

-mkPropN : Str -> PN = \Ion ->

-case last Ion of

-{ "a" => mkPropNoun Ion Feminine ;

-   _  => mkPropNoun Ion Masculine

-};

-

-mkPropNoun : Str -> Gender -> PN = \Ion, gen ->

- mkProperNoun Ion gen singular ;

-

-mkProperNoun : Str -> Gender -> Number -> PN = \Ion, gen, num ->

-{s = table {ANomAcc => Ion;

-            AGenDat => case <last Ion,gen> of

-                      { <"a",Fem> => init Ion + "ei" ;

-                        _         => "lui" ++ Ion

-                      };

-            AVoc => Ion            

-            };

-g = gen ;

-n = num ;

-lock_PN = <>

-};

-

-

-

-

---3 Two-place adjectives

---

--- Two-place adjectives need a preposition for their second argument.

-

- mkA2 : A -> Prep -> A2 ;

- mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ;

-

---.

---2 Definitions of the paradigms

---

--- The definitions should not bother the user of the API. So they are

--- hidden from the document.

-

-

-  NGender = MorphoRon.NGender ; 

-  Number = MorphoRon.Number ;

-  Anim   = MorphoRon.Animacy ;

-  Gender = MorphoRon.Gender ;

-  NCase   = MorphoRon.NCase ;

-  

-  masculine = NMasc ;

-  feminine  = NFem ;

-  neuter    = NNeut ;

-  

-  singular = Sg ;

-  plural   = Pl ;

- 

-  animate   = Animate ;

-  inanimate = Inanimate ;

-

-  Masculine = Masc ;

-  Feminine = Fem ;

-  

-  Acc = Ac ;

-  Dat = Da ;

-  Gen = Ge ;

-  

-  

-  Preposition = Compl ;

-  mkPrep ss cc = {s = ss ; c = cc; isDir = True; lock_Prep = <>} ;

-  noPrep cc = mkPrep [] cc  ;

-

-  

-compN : N -> Str -> N ;

-compN x y = composeN x y ** {lock_N = <>} ;

-

-ccompN : N -> Str -> N ;

-ccompN x y = ccompose x y ** {lock_N = <>} ;

-

-mkNI : Str -> Str -> NGender -> N;

-mkNI s ss g = mkIn (mkNomIrreg s ss g) ** {lock_N = <>} ; 

-             

-regN : Str -> NGender -> N ;

-regN s g = mkIn (mkNomReg s g) ** {lock_N = <>};

-             

-

-mkVI : Str -> Str -> Str -> N;

-mkVI s ss sss = mkIn (mkNomVIrreg s ss sss) ** {lock_N = <>} ;

-

-mkIn : N -> N ;

-mkIn n = mkInanimate n ** {lock_N = <> };

-

-mkAnim : N -> N ;

-mkAnim n = mkAnimate n ** {lock_N = <> }; 

-

-chV : Str -> N -> N ;

-chV s n = mkVocc n s ** {lock_N = <> } ;

-

-

---smart paradigm for inferring the gender of the nouns

---partly based on the paper 

---"COVERT SEMANTIC AND MORPHOPHONEMIC CATEGORIES IN THE ROMANIAN GENDER SYSTEM"

--- by Jan Louis Perkowski, Emil Vrabie

-

-mkSPN : Str -> N ;

-mkSPN s = case s of 

-   { x + ("ă"|"e"|"a") => regN s feminine ;

-     x + ("el"|"mp"|"mb"|"en"|"id"|"at"|"ete"|"ol"|"et"|"or") => regN s masculine ;

-     _  => regN s neuter  

-    };

-

-mkNN : Str -> Str -> N ;

-mkNN s ss = case s of 

-     { x + ("ă"|"e"|"a") => mkNI s ss feminine ;

-       _                 => case ss of 

-                          {x + "uri" => mkNI s ss neuter ;

-                           x + "e"   => mkNI s ss neuter ;

-                           _         => mkNI s ss masculine

-                          

-                          }

-     };

-

- mkN = overload {

-    mkN : Str -> Str -> NGender -> N = mkNI; -- worst case - we need Singular + Plural form + gender

-    mkN : Str -> Str -> Str -> N = mkVI; -- very irregular nouns - feminine

-    mkN : Str -> Str -> N = mkNN; -- needed Singular + Plural form, infers gender

-    mkN : Str -> NGender -> N = regN;  -- needed Singular +  gender, infers Plural form

-    mkN : Str -> N = mkSPN; -- needed Singular form, infers gender and Plural form

- } ; 

-

---because the plurals ending in "uri" are becoming less and less frequent for neuter nouns,

---and because there is no way of infering the plural form by looking at the structure of the word

---we treat this case separately :

-   

-mkNR : Str -> N;

-mkNR s = mkIn (mkNomNeut s) ** {lock_N = <>} ;

-

---------------------------------------------------------------------

-

-mkA = overload {

-   mkA : Str -> Str -> Str -> Str -> Str -> A = mk5A ;--worst case -- all 4 forms are needed + form for adverb

-   mkA : Str -> Str -> Str -> Str -> A = mk4A; -- 4 forms are needed

-   mkA : Str -> A = regA; -- regular adjectives

-};

-

-mk4A : Str -> Str -> Str -> Str -> A;

-mk4A a b c d =  

-let adj = mkAdjSpec a b c d in

-{s = table { Posit  => adj.s ;

-             Compar => \\f => "mai" ++ (adj.s ! f) ++ "decât";

-             Superl => table {AF g n a c => artDem g n c ++ "mai" ++ adj.s ! (AF g n Indef c) ;

-                              AA         => artDem Masc Sg ANomAcc ++ "mai" ++ adj.s ! AA 

-                                                          

-                              }

-            }; isPre = False ; lock_A = <>} ;

-

-mk5A : Str -> Str -> Str -> Str -> Str -> A ;

-mk5A a b c d e = 

-let adj = mkAdjSSpec a b c d e in

-{s = table { Posit  => adj.s ;

-             Compar => \\f => "mai" ++ (adj.s ! f) ++ "decât";

-             Superl => table {AF g n a c => artDem g n c ++ "mai" ++ adj.s ! (AF g n Indef c);

-                              AA         => artDem Masc Sg ANomAcc ++ "mai" ++ adj.s ! AA 

-                                                          

-                              }

-            }; isPre = False ; lock_A = <>} ;

-

-regA : Str -> A = \auriu ->  let adj = mkAdjReg auriu in

-                             {s = table {Posit  => adj.s ;

-                                         Compar => \\f => "mai" ++  (adj.s ! f) ++ "decât";

-                                         Superl => table {AF g n a c => artDem g n c ++ "mai" ++ adj.s ! (AF g n Indef c);

-                                                          AA         => artDem Masc Sg ANomAcc ++ "mai" ++ adj.s ! AA 

-                                                          } 

-                             }; isPre = False ; lock_A = <> } ;

-                             

-invarA : Str -> A = \auriu -> 

-let adj =mkAdjInvar auriu in

-{s = table { Posit  => adj.s ;

-             Compar => \\f => "mai" ++ (adj.s ! f) ++ "decât";

-             Superl => table {AF g n a c => artDem g n c ++ "mai" ++ adj.s ! (AF g n Indef c);

-                              AA         => artDem Masc Sg ANomAcc ++ "mai" ++ adj.s ! AA 

-                                                          

-                              }

-            }; isPre = False ; lock_A = <>} ;

-

-mkRMut : Str -> A = \auriu ->

-let adj = mkRegMut auriu in

-{s = table { Posit  => adj.s ;

-             Compar => \\f => "mai" ++ (adj.s ! f) ++ "decât";

-             Superl => table {AF g n a c => artDem g n c ++ "mai" ++ adj.s ! (AF g n Indef c);

-                              AA         => artDem Masc Sg ANomAcc ++ "mai" ++ adj.s ! AA 

-                                                          

-                              }

-            }; isPre = False ; lock_A = <>} ;

-       

-mkSMut : Str -> A = \auriu ->

-let adj = mkSpecMut auriu in

-{s = table { Posit  => adj.s ;

-             Compar => \\f => "mai" ++ (adj.s ! f) ++ "decât";

-             Superl => table {AF g n a c => artDem g n c ++ "mai" ++ adj.s ! (AF g n Indef c);

-                              AA         => artDem Masc Sg ANomAcc ++ "mai" ++ adj.s ! AA 

-                                                          

-                              }

-            }; isPre = False ; lock_A = <>} ;    

-            

- mkADeg : A -> A -> A ;

- noComp : A -> A ;

-

-

-  prefA : A -> A ;

-

-mkADeg a b = 

-    {s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ; isPre = a.isPre ; lock_A = <>} ;

-

-noComp a = 

-    {s = \\_ => a.s ! Posit ;

-     isPre = a.isPre ;

-     lock_A = <>} ;

-  

-prefA a = {s = a.s ; isPre = True ; lock_A = <>} ;

-

---Adverbs :

-         

-    mkAdv : Str -> Adv ;
-    mkAdV : Str -> AdV ;
-    mkAdA : Str -> AdA ;      

-

-  mkAdv x = ss x ** {lock_Adv = <>} ;

-  mkAdV x = ss x ** {lock_AdV = <>} ;

-  mkAdA x = ss x ** {lock_AdA = <>} ;

-

-
---Verbs :
-
-oper regV : Str -> Verbe = \s ->
-case s of 
-{ x + ("chea"|"ghea") => mkV61 s ;
-  x + "ea" => mkV69 s ;
-  x + "ca" => mkV8 s ;
-  x + "ga" => mkV9 s ;
-  x + "eia" => mkV11 s;
-  x + "ia"  => mkV10 s;
-  x + "a"   => mkV6 s ;
-  x + "e"   => mkV79 s ;
-  x + "ui"  => mkV121 s ;
-  x + "ii"  => mkV120 s ;
-  x + "i"   => mkV119 s ;
-  x + "î"   => mkV141 s
-};
-
-oper mkV : Str -> V = \s -> mkNV (regV s) ; 
-
-
-
-  mkV2S : V -> Prep -> V2S ;
---  mkVV  : V -> VV ;  
-  mkV2V : V -> Prep -> Prep -> V2V ;
-  mkVA  : V -> VA ;
-  mkV2A : V -> Prep -> Prep -> V2A ;
-  mkVQ  : V -> VQ ;
-  mkV2Q : V -> Prep -> V2Q ;
-
-  mkAS  : A -> AS ;
-  mkA2S : A -> Prep -> A2S ;
-  mkAV  : A -> Prep -> AV ;
-  mkA2V : A -> Prep -> Prep -> A2V ;
-

-

-  mmkV3 : V -> Prep -> Prep -> V3;

-  mmkV3 v p q = v ** {c2 = p ; c3 = q ; lock_V3 = <>} ;

-  

-  dirV3 : V -> V3 ;

-  dirV3 v = mmkV3 v (noPrep Ac) (noPrep Da) ;

-

-  mkV3 = overload {

-    mkV3 : V -> V3 = dirV3 ;          

-    mkV3 : V -> Prep -> Prep -> V3 = mmkV3    

-    } ;

-

-  V0 : Type = V ;

-  AS, AV : Type = A ;

-  A2S, A2V : Type = A2 ;

-  mkV0 : V -> V0 ;

-  mkV0  v = v ** {lock_V0 = <>} ;

-

-  mmkV2 : V -> Prep -> V2 ;

-  mmkV2 v p = v ** {c2 = p ; lock_V2 = <>} ;

-

-  dirV2 : V -> V2 ;

-  dirV2 v = mmkV2 v (noPrep Ac) ;

-   

-  mmkV3 : V -> Prep -> Prep -> V3 ;

-  mmkV3 v p q = v ** {c2 = p ; c3 = q ; lock_V3 = <>} ;

-  

-  mkVS : V -> VS ;

-  mkVS  v = v ** {m = \\_ => Indic ; lock_VS = <>} ;  

-  mkV2S v p = mmkV2 v p ** {mn,mp = Indic ; lock_V2S = <>} ;

---  mkVV  v = v ** {c2 = complAcc ; lock_VV = <>} ;

---  deVV  v = v ** {c2 = complGen ; lock_VV = <>} ;

---aVV  v = v ** {c2 = complDat ; lock_VV = <>} ;

-  mkV2V v p q = mmkV3 v p q ** {lock_V2V = <>} ;

-  mkVA  v = v ** {lock_VA = <>} ;

-  mkV2A v p q = mmkV3 v p q ** {lock_V2A = <>} ;

-   mkVQ : V -> VQ ;

-   mkVQ  v = v ** {lock_VQ = <>} ;

-   mkV2Q : V -> Prep -> V2Q ;

-   mkV2Q v p = mmkV2 v p ** {lock_V2Q = <>} ;

-

-  mkAS  v = v ** {lock_AS = <>} ; ---- more moods

-  mkA2S v p = mkA2 v p ** {lock_A2S = <>} ;

-  mkAV  v p = v ** {c = p.p1 ; s2 = p.p2 ; lock_AV = <>} ;

-  mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ;

-

-

-

- 

-mkOrd : A -> Ord ;

-mkOrd a = {s = a.s ! Posit ; isPre = a.isPre ; lock_Ord = <>} ;

-

-

-

---mkComp a = 

---let adj = a.s ! Posit in

---{ s = table {Posit  => adj ;

---             Compar => \\f => "mai" ++ adj ! f ++ "decât";

---             Superl => table {AF g n a c => (artDem g n c) ++ "mai" ++ adj ! (AF g n a c);

---                              AA         => "cel"++"mai" ++ adj ! AA

---                              }  

---            };

---              isPre = a.isPre ;

---              lock_A = <>

--- };          

- 

-     

-  

-

-

-

-} ;

diff --git a/next-lib/src/romanian/ResRon.gf b/next-lib/src/romanian/ResRon.gf
deleted file mode 100644
index 08887f2c8..000000000
--- a/next-lib/src/romanian/ResRon.gf
+++ /dev/null
@@ -1,165 +0,0 @@
---1 Romance auxiliary operations.

---

-

-resource ResRon = ParamX ** open Prelude in {

-

-flags optimize=all ;

-

-  flags optimize=all ;

-

---2 Enumerated parameter types for morphology

---

--- These types are the ones found in school grammars.

--- Their parameter values are atomic.

-

-param

-

-  Gender = Masc | Fem ;

-

-  NGender = NMasc | NFem | NNeut ;

- 

-  Mood   = Indic | Conjunct ;

-

-  Direct = DDir | DInv ;

-

-  NumF  = Formal | Informal ;

- 

-  Animacy = Animate | Inanimate ;

- 

-  param Size = sg | less20 | pl ;

- 

- -- Case = Acc | Dat | Gen ;

- 

--- Adjectives are inflected in number, gender, have specific form for enclitic determined

---article, and specific forms for Nominative-Accusative/Dative-Genitive/Voccative

-

-  AForm = AF Gender Number Species ACase | AA ;

-

--- Gender is not morphologically determined for first and second person pronouns.

-

-  PronGen = PGen Gender | PNoGen ;

-

--- Cardinal numerals have gender, ordinal numerals have full number as well.

-

-  ACase = ANomAcc | AGenDat | AVoc ;

-  Species  =  Def | Indef ;

-  NCase = No | Da | Ac | Ge | Vo ;

-  

-   

-  CardOrd = NCard Gender | NOrd Gender;

-

-

-

-

-

-

-

---3 Verbs 

-

-

--- the form we build on syntactical level, based on VForm

--- it represents the main verb forms in Romanian

- 

-param

-  Temps1    = TPresn | TImparf | TPComp | TPSimple | TPPerfect | TFutur ;

-  TSubj1    = TSPres | TSPast ;

- -- TPart1    = TGer | TPPasse Gender Number Species ACase;

-  

-  VerbForm    = TInf

-           | TIndi Temps1 Number Person 

-           | TCondi Number Person 

-           | TSubjo TSubj1 Number Person

-           | TImper NumPersI

-           | TGer 

-           | TPPasse Gender Number Species ACase ;

-

- -- the form we build on morphological level :

- 

-  Temps    = Presn | Imparf | PSimple | PPerfect ;

-  TSubj    = SPres ;

-  --TPart    = PPasse Gender Number Species ACase;

-  

-  VForm    = Inf

-           | Indi Temps Number Person 

-           | Subjo TSubj Number Person

-           | Imper NumPersI

-           | Ger

-           | PPasse Gender Number Species ACase ;

-

--- form for compatibility with the other Romance languages, to be used in case that

--- Romanian will be integrated in the Romance category

-

-param 

-  VF =

-     VInfin Bool

-   | VFin   TMood Number Person 

-   | VImper NumPersI 

-   | VPart  Gender Number Species ACase

-   | VGer

-   ;

-

-  TMood = 

-     VPres  Mood

-   | VImperf Mood   --# notpresent

-   | VPasse  --# notpresent

-   | VFut  --# notpresent

-   | VCondit  --# notpresent

-   ;

-

-  NumPersI  = SgP2 | PlP1 | PlP2 ;

-

-  VPForm =

-     VPFinite TMood Anteriority

-   | VPImperat

-   | VPGerund

-   | VPInfinit Anteriority Bool ;

-

-  RTense =

-     RPres 

-   | RPast   --# notpresent

-   | RPasse  --# notpresent

-   | RFut    --# notpresent

-   | RCond   --# notpresent

-   ;

-

--- Agreement of adjectives, verb phrases, and relative pronouns.

-

-oper

-  AAgr : Type = {g : Gender ; n : Number} ;

-  Agr  : Type = AAgr ** {p : Person} ;

-

-param

-  RAgr = RAg {g : Gender ; n : Number} | RNoAg ; --- AAgr

-

-

-  oper

-    genForms : Str -> Str -> Gender => Str = \bon,bonne ->

-      table {

-        Masc => bon ; 

-        Fem => bonne

-        } ; 

-

-    aagrForms : (x1,_,_,x4 : Str) -> (AAgr => Str) = \tout,toute,tous,toutes ->

-      table {

-        {g = g ; n = Sg} => genForms tout toute ! g ;

-        {g = g ; n = Pl} => genForms tous toutes ! g

-        } ;

-

-    Noun = {s : Number => Species => ACase => Str; g : NGender; a : Animacy} ;

-    Adj = {s : AForm => Str} ;

- --   A  = {s : Degree => AForm => Str ; isPre : Bool} ;

-

-  Compl : Type = {s : Str ; c : NCase ; isDir : Bool} ;

-

---  complAcc : Compl = {s = [] ; c = Acc ; isDir = True} ;
---  complGen : Compl = {s = [] ; c = Gen ; isDir = True} ;
---  complDat : Compl = {s = [] ; c = Dat ; isDir = True} ;
-

-

-

-

-

-

- 

-     

-}