merging Lexicon with Swadesh

9 files changed, 2294 insertions, 0 deletions

diff --git a/examples/bronzeage/old/SwadeshEng.gf b/examples/bronzeage/old/SwadeshEng.gf
new file mode 100644
index 000000000..b79111b11
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshEng.gf
@@ -0,0 +1,243 @@
+concrete SwadeshEng of Swadesh = CatEng 
+  ** open MorphoEng, LangEng, ParadigmsEng, IrregEng, Prelude in {
+
+  lincat
+    MassN = N ;
+
+  lin
+
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+    all_Predet = all_Predet ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+
+--    left_Ord = left_Ord ;
+--    right_Ord = right_Ord ;
+
+    -- Adverbs
+
+    here_Adv = here_Adv;
+    there_Adv = there_Adv;
+    where_IAdv = where_IAdv;
+    when_IAdv = when_IAdv;
+    how_IAdv = how_IAdv;
+--    far_Adv = far_Adv ;
+
+    -- "not" treated in Verb
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+---    at_Prep = ss "at" ;
+    in_Prep = in_Prep ;
+    with_Prep = with_Prep ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+    -- Adjectives
+
+    bad_A = bad_A ;
+    big_A = big_A ;
+    black_A = black_A ;
+    cold_A = cold_A ;
+    correct_A = (regA "correct") ;
+    dirty_A = dirty_A ;
+    dry_A = regA "dry" ;
+    dull_A = regA "dull" ;
+    full_A = regA "full" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = regA "heavy" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = regA "near" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    rotten_A = (regA "rotten") ;
+    round_A = regA "round" ;
+    sharp_A = regA "sharp" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = regA "smooth" ;
+    straight_A = regA "straight" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = regA "wet" ; ----
+    white_A = white_A ;
+    wide_A = regA "wide" ;
+    yellow_A = yellow_A ;
+
+    -- Nouns
+
+    animal_N = regN "animal" ;
+    ashes_N = regN "ash" ; -- FIXME: plural only?
+    back_N = regN "back" ;
+    bark_N = regN "bark" ;
+    belly_N = regN "belly" ;
+    bird_N = bird_N;
+    blood_N = regN "blood" ;
+    bone_N = regN "bone" ;
+    breast_N = regN "breast" ;
+    child_N = child_N ;
+    cloud_N = regN "cloud" ;
+    day_N = regN "day" ;
+    dog_N = dog_N ;
+    dust_N = regN "dust" ;
+    ear_N = regN "ear" ;
+    earth_N = regN "earth" ;
+    egg_N = regN "egg" ;
+    eye_N = regN "eye" ;
+    fat_N = regN "fat" ;
+    father_N = UseN2 father_N2 ;
+    feather_N = regN "feather" ;
+    fingernail_N = regN "fingernail" ;
+    fire_N = regN "fire" ;
+    fish_N = fish_N ;
+    flower_N = regN "flower" ;
+    fog_N = regN "fog" ;
+    foot_N = mk2N "foot" "feet" ;
+    forest_N = regN "forest" ;
+    fruit_N = fruit_N ;
+    grass_N = regN "grass" ;
+    guts_N = regN "gut" ; -- FIXME: no singular
+    hair_N = regN "hair" ;
+    hand_N = regN "hand" ;
+    head_N = regN "head" ;
+    heart_N = regN "heart" ;
+    horn_N = regN "horn" ;
+    husband_N = genderN masculine (regN "husband") ;
+    ice_N = regN "ice" ;
+    knee_N = regN "knee" ;
+    lake_N = lake_N ;
+    leaf_N = mk2N "leaf" "leaves" ;
+    leg_N = regN "leg" ;
+    liver_N = regN "liver" ;
+    louse_N = mk2N "louse" "lice" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = UseN2 mother_N2 ;
+    mountain_N = mountain_N ;
+    mouth_N = regN "mouth" ;
+    name_N = regN "name" ;
+    neck_N = regN "neck" ;
+    night_N = regN "night" ;
+    nose_N = regN "nose" ;
+    person_N = genderN human (regN "person") ;
+    rain_N = regN "rain" ;
+    river_N = river_N ;
+    road_N = regN "road" ;
+    root_N = regN "root" ;
+    rope_N = regN "rope" ;
+    salt_N = regN "salt" ;
+    sand_N = regN "sand" ;
+    sea_N = sea_N ;
+    seed_N = regN "seed" ;
+    skin_N = regN "skin" ;
+    sky_N = regN "sky" ; 
+    smoke_N = regN "smoke" ;
+    snake_N = snake_N ;
+    snow_N = regN "snow" ;
+    star_N = star_N ;
+    stick_N = regN "stick" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = regN "tail" ;
+    tongue_N = regN "tongue" ;
+    tooth_N = mk2N "tooth" "teeth" ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = genderN feminine (mk2N "wife" "wives") ;
+    wind_N = regN "wind" ;
+    wing_N = regN "wing" ;
+    woman_N = woman_N ;
+    worm_N = regN "worm" ;
+    year_N = regN "year" ;
+
+    -- Verbs
+
+    bite_V2 = dirV2 bite_V ;
+    blow_V = blow_V ;
+    breathe_V = dirV2 (regV "breathe") ;
+    burn_V = burn_V ;
+    come_V = come_V ;
+    count_V2 = dirV2 (regV "count") ;
+    cut_V2 = dirV2 cut_V ;
+    die_V = die_V ;
+    dig_V = dig_V ;
+    drink_V2 = dirV2 drink_V ;
+    eat_V2 = dirV2 eat_V ;
+    fall_V = fall_V ;
+    fear_V2 = dirV2 (regV "fear") ;
+    fight_V2 = dirV2 fight_V ;
+    float_V = regV "float" ;
+    flow_V = regV "flow" ;
+    fly_V = fly_V ;
+    freeze_V = freeze_V ;
+    give_V3 = dirV3 give_V "to" ;
+    hear_V2 = dirV2 hear_V ;
+    hit_V2 = dirV2 hit_V ;
+    hold_V2 = dirV2 hold_V ;
+    hunt_V2 = dirV2 (regV "hunt") ;
+    kill_V2 = dirV2 (regV "kill") ;
+    know_V2 = dirV2 know_V ;
+    laugh_V = regV "laugh" ;
+    lie_V = lie_V ;
+    live_V = live_V ;
+    play_V = regV "play" ;
+    pull_V2 = dirV2 (regV "pull") ;
+    push_V2 = dirV2 (regV "push") ;
+    rub_V2 = dirV2 (regDuplV "rub") ;
+    say_V = say_V ;
+    scratch_V2 = dirV2 (regV "scratch") ;
+    see_V2 = dirV2 see_V ;
+    sew_V = sew_V ;
+    sing_V = sing_V ;
+    sit_V = sit_V ;
+    sleep_V = sleep_V ;
+    smell_V = regV "smell" ;
+    spit_V = spit_V ;
+    split_V2 = dirV2 split_V ;
+    squeeze_V2 = dirV2 (regV "squeeze") ;
+    stab_V2 = dirV2 (regDuplV "stab") ;
+    stand_V = stand_V ;
+    suck_V2 = dirV2 (regV "suck") ;
+    swell_V = swell_V ;
+    swim_V = swim_V ;
+    think_V = think_V ;
+    throw_V2 = dirV2 throw_V ;
+    tie_V2 = dirV2 (regV "tie") ;
+    turn_V = regV "turn" ;
+    vomit_V = regV "vomit" ;
+    walk_V = walk_V ;
+    wash_V2 = dirV2 (regV "wash") ;
+    wipe_V2 = dirV2 (regV "wipe") ;
+
+}
diff --git a/examples/bronzeage/old/SwadeshFin.gf b/examples/bronzeage/old/SwadeshFin.gf
new file mode 100644
index 000000000..4f73c5a09
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshFin.gf
@@ -0,0 +1,269 @@
+--# -path=.:../present:../finnish:../common:../abstract:../../prelude
+
+concrete SwadeshFin of Swadesh = CatFin
+  ** open MorphoFin, LangFin, ParadigmsFin, Prelude in {
+
+  flags optimize=values ;
+
+  lincat
+    MassN = N ;
+
+  lin
+
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+    all_Det = mkDet Pl {s = \\nf => 
+      let
+        kaiket = (nhn (sKorpi "kaikki" "kaiken" "kaikkena")).s
+      in
+      case nf of {
+        NCase Pl Nom => "kaikki" ;
+        _ => kaiket ! nf
+        }
+      } ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = mkDet Sg (regN "harva") ;
+    other_Det = mkDet Sg (regN "muu") ;
+
+    left_Ord = mkOrd (regN "vasen") ;
+    right_Ord = mkOrd (regN "oikea") ;
+
+  oper
+    mkOrd : N -> Ord ;
+    mkOrd x = {s = \\n,c => x.s ! NCase n c; lock_Ord = <> } ;
+
+  lin
+
+    -- Adverbs
+
+    here_Adv = here_Adv;
+    there_Adv = there_Adv;
+    where_IAdv = where_IAdv;
+    when_IAdv = when_IAdv;
+    how_IAdv = how_IAdv;
+    far_Adv = mkAdv "kaukana" ;
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+    at_Prep = casePrep adessive ;
+    in_Prep = casePrep inessive ;
+    with_Prep = postGenPrep "kanssa" ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+    -- Adjectives
+
+    bad_A = bad_A ;
+    big_A = big_A ;
+    black_A = black_A ;
+    cold_A = cold_A ;
+    correct_A = regA "oikea" ;
+    dirty_A = dirty_A ;
+    dry_A = mkADeg (regN "kuiva") "kuivempi" "kuivin" ;
+    dull_A = mkADeg (regN "tyls�") "tylsempi" "tylsin" ;
+    full_A = mkADeg (reg3N "t�ysi" "t�yden" "t�ysi�") "t�ydempi" "t�ysin" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = regA "raskas" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = regA "l�heinen" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    rotten_A = regA "m�t�" ;
+    round_A = regA "py�re�" ;
+    sharp_A = regA "ter�v�" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = regA "sile�" ;
+    straight_A = mkADeg (regN "suora") "suorempi" "suorin" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = mkADeg (regN "m�rk�") "m�rempi" "m�rin" ;
+    white_A = white_A ;
+    wide_A = regA "leve�" ;
+    yellow_A = yellow_A ;
+
+    -- Nouns
+
+    animal_N = reg3N "el�in" "el�imen" "el�imi�" ;
+    ashes_N = regN "tuhka" ;
+    back_N = regN "selk�" ;
+    bark_N = regN "kaarna" ;
+    belly_N = regN "vatsa" ;
+    bird_N = bird_N;
+    blood_N = nMeri "veri" ;
+    bone_N = regN "luu" ;
+    breast_N = regN "rinta" ;
+    child_N = child_N ;
+    cloud_N = reg2N "pilvi" "pilvi�" ;
+    day_N = regN "p�iv�" ;
+    dog_N = dog_N ;
+    dust_N = regN "p�ly" ;
+    ear_N = regN "korva" ;
+    earth_N = regN "maa" ;
+    egg_N = regN "muna" ;
+    eye_N = regN "silm�" ;
+    fat_N = regN "rasva" ;
+    father_N = regN "is�" ;
+    feather_N = reg3N "h�yhen" "h�yhenen" "h�yheni�" ;
+    fingernail_N = reg3N "kynsi" "kynnen" "kynsi�" ;
+    fire_N = reg2N "tuli" "tulia" ;
+    fish_N = fish_N ;
+    flower_N = regN "kukka" ;
+    fog_N = regN "sumu" ;
+    foot_N = regN "jalka" ;
+    forest_N = regN "mets�" ;
+    fruit_N = fruit_N ;
+    grass_N = regN "ruoho" ;
+    guts_N = regN "sis�lmys" ; --- suoli
+    hair_N = regN "hius" ;
+    hand_N = reg3N "k�si" "k�den" "k�si�" ;
+    head_N = regN "p��" ;
+    heart_N = reg3N "syd�n" "syd�men" "syd�mi�" ;
+    horn_N = reg2N "sarvi" "sarvia" ;
+    husband_N = man_N ; --- aviomies
+    ice_N = regN "j��" ;
+    knee_N = reg2N "polvi" "polvia" ;
+    lake_N = lake_N ;
+    leaf_N = reg2N "lehti" "lehti�" ;
+    leg_N = regN "jalka" ; --- s��ri
+    liver_N = regN "maksa" ;
+    louse_N = regN "lude" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = regN "�iti" ;
+    mountain_N = mountain_N ;
+    mouth_N = regN "suu" ;
+    name_N = reg2N "nimi" "nimi�" ;
+    neck_N = regN "niska" ;
+    night_N = regN "y�" ;
+    nose_N = regN "nen�" ;
+    person_N = regN "henkil�" ;
+    rain_N = regN "sade" ;
+    river_N = river_N ;
+    road_N = regN "tie" ;
+    root_N = reg2N "juuri" "juuria" ;
+    rope_N = reg3N "k�ysi" "k�yden" "k�ysi�" ;
+    salt_N = regN "suola" ;
+    sand_N = regN "hiekka" ;
+    sea_N = sea_N ;
+    seed_N = regN "siemen" ;
+    skin_N = regN "nahka" ;
+    sky_N = reg3N "taivas" "taivaan" "taivaita" ;
+    smoke_N = regN "savu" ;
+    snake_N = snake_N ;
+    snow_N = sgpartN (nMeri "lumi") "lunta" ;
+    star_N = star_N ;
+    stick_N = regN "keppi" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = regN "h�nt�" ;
+    tongue_N = reg2N "kieli" "kieli�" ;
+    tooth_N = regN "hammas" ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = regN "vaimo" ;
+    wind_N = reg2N "tuuli" "tuulia" ;
+    wing_N = reg2N "siipi" "siipi�" ;
+    woman_N = woman_N ;
+    worm_N = regN "mato" ;
+    year_N = reg3N "vuosi" "vuoden" "vuosia" ;
+
+    -- Verbs
+
+    bite_V2 = dirV2 (regV "purra") ;
+    blow_V = regV "puhaltaa" ;
+    breathe_V2 = dirV2 (regV "hengitt��") ;
+    burn_V = regV "palaa" ;
+    come_V = come_V ;
+    count_V2 = dirV2 (regV "laskea") ;
+    cut_V2 = dirV2 (reg2V "leikata" "leikkasi") ;
+    die_V = regV "kuolla";
+    dig_V = regV "kaivaa" ;
+    drink_V2 = dirV2 ( drink_V2) ;
+    eat_V2 = dirV2 ( eat_V2) ;
+    fall_V = reg3V "pudota" "putoan" "putosi" ;
+    fear_V2 = dirV2 (reg3V "pel�t�" "pelk��n" "pelk�si") ;
+    fight_V2 = dirV2 (regV "taistella") ;
+    float_V = regV "kellua" ;
+    flow_V = reg3V "virrata" "virtaan" "virtasi" ;
+    fly_V = regV "lent��" ;
+    freeze_V = regV "j��ty�" ;
+    give_V = dirdirV3 (regV "antaa") ;
+    hear_V2 = dirV2 ( hear_V2) ;
+    hit_V2 = dirV2 (regV "ly�d�") ;
+    hold_V2 = dirV2 (regV "pit��") ;
+    hunt_V2 = dirV2 (regV "mets�st��") ;
+    kill_V2 = dirV2 (regV "tappaa") ;
+    know_V2 = dirV2 (reg2V "tuntea" "tunsin") ;
+    laugh_V = reg3V "nauraa" "nauran" "nauroi" ;
+    lie_V = reg3V "maata" "makaan" "makasi" ;
+    live_V = live_V ;
+    play_V =  play_V2 ;
+    pull_V2 = dirV2 (regV "vet��") ;
+    push_V2 = dirV2 (regV "ty�nt��") ;
+    rub_V2 = dirV2 (regV "hieroa") ;
+    say_V = regV "sanoa" ;
+    scratch_V2 = dirV2 (regV "raapia") ;
+    see_V = ( see_V2) ;
+    sew_V = regV "kylv��" ;
+    sing_V = regV "laulaa" ;
+    sit_V = regV "istua" ;
+    sleep_V = sleep_V ;
+    smell_V = reg2V "haistaa" "haistoi" ;
+    spit_V = regV "sylke�" ;
+    split_V2 = dirV2 (reg2V "halkaista" "halkaisi") ;
+    squeeze_V2 = dirV2 (regV "puristaa") ;
+    stab_V2 = dirV2 (regV "pist��") ;
+    stand_V = mkV "seist�" "seisoo" "seison" "seisovat" "seisk��" "seist��n"
+      "seisoi" "seisoin" "seisoisi" "seissyt" "seisty" "seistyn" ; --- *seisoiv�t
+    suck_V2 = dirV2 (regV "ime�") ;
+    swell_V = mkV "turvota" "turpoaa" "turpoan" "turpoavat" "turvotkaa" "turvotaan"
+      "turposi" "turposin" "turpoaisi" "turvonnut" "turvottu" "turvotun" ;
+    swim_V = reg3V "uida" "uin" "ui" ;
+    think_V = reg3V "ajatella" "ajattelen" "ajatteli" ;
+    throw_V2 = dirV2 (regV "heitt��") ;
+    tie_V2 = dirV2 (regV "sitoa") ;
+    turn_V = regV "k��nty�" ;
+    vomit_V = regV "oksentaa" ;
+    walk_V = walk_V ;
+    wash_V2 = dirV2 (regV "pest�") ;
+    wipe_V2 = dirV2 (regV "pyyhki�") ;
+
+oper 
+  regA = regADeg ; ----
+
+
+}
diff --git a/examples/bronzeage/old/SwadeshFre.gf b/examples/bronzeage/old/SwadeshFre.gf
new file mode 100644
index 000000000..a7c326ca4
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshFre.gf
@@ -0,0 +1,259 @@
+--# -path=.:../french:../common:../abstract:../../prelude:../romance
+
+concrete SwadeshFre of Swadesh = CatFre
+  ** open PhonoFre, MorphoFre, LangFre, ParadigmsFre, IrregFre, Prelude in {
+
+  lincat
+    MassN = N ;
+
+  lin
+
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+    all_Det  = {
+      s = \\g,c => prepCase c ++ genForms "tous" "toutes" ! g ++ "les" ;
+      n = Pl
+      } ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = {s = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl} ;
+    other_Det = {
+      s = \\g,c => prepCase c ++ "d'autres" ;   -- de d'autres
+      n = Pl
+      } ;
+
+    left_Ord = mkOrd (regA "gauche") ;
+    right_Ord = mkOrd (regA "droite") ;
+
+  oper
+    mkOrd : A -> Ord ;
+    mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
+
+  lin
+
+    -- Adverbs
+
+    here_Adv = here_Adv;
+    there_Adv = there_Adv;
+    where_IAdv = where_IAdv;
+    when_IAdv = when_IAdv;
+    how_IAdv = how_IAdv;
+    far_Adv = mkAdv "loin" ;
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+    at_Prep = dative ;
+    in_Prep = in_Prep ;
+    with_Prep = with_Prep ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+    -- Adjectives
+
+    bad_A = bad_A ;
+    big_A = big_A ;
+    black_A = black_A ;
+    cold_A = cold_A ;
+    correct_A = regA "correct" ;
+    dirty_A = dirty_A ;
+    dry_A = (mkA "sec" "s�che" "secs" "s�ches") ;
+    dull_A = regA "�mouss�" ;
+    full_A = regA "plein" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = regA "lourd" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = regA "proche" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    rotten_A = regA "pourri" ;
+    round_A = regA "rond" ;
+    sharp_A = regA "tranchant" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = regA "lisse" ;
+    straight_A = regA "droite" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = regA "mouill�" ;
+    white_A = white_A ;
+    wide_A = regA "large" ;
+    yellow_A = yellow_A ;
+
+    -- Nouns
+
+    animal_N = regN "animal" ;
+    ashes_N = regGenN "cendre" masculine ;
+    back_N = regN "dos" ;
+    bark_N = regN "�corce" ; 
+    belly_N = regGenN "ventre"  masculine ;
+    bird_N = bird_N;
+    blood_N = regN "sang" ;
+    bone_N = regN "os" ;
+    breast_N = regN "sein" ; --- poitrine
+    child_N = child_N ;
+    cloud_N = regGenN "nuage"  masculine ;
+    day_N = regN "jour" ;
+    dog_N = dog_N ;
+    dust_N = regN "poussi�re" ;
+    ear_N = regN "oreille" ;
+    earth_N = regN "terre" ;
+    egg_N = regN "oeuf" ;
+    eye_N = mkN "oeil" "yeux" masculine ;
+    fat_N = regN "graisse" ;
+    father_N = UseN2 father_N2 ;
+    feather_N = regN "plume" ;
+    fingernail_N = regGenN "ongle" masculine ;
+    fire_N = regN "feu" ;
+    fish_N = fish_N ;
+    flower_N = regGenN "fleur" feminine ;
+    fog_N = regN "brouillard" ;
+    foot_N = regN "pied" ;
+    forest_N = regGenN "for�t" feminine ;
+    fruit_N = fruit_N ;
+    grass_N = regN "herbe" ;
+    guts_N = regN "entraille" ;
+    hair_N = regN "cheveu" ;
+    hand_N = regGenN "main" feminine ;
+    head_N = regN "t�te" ;
+    heart_N = regN "coeur" ;
+    horn_N = regGenN "corne"  masculine ;
+    husband_N = regN "mari" ;
+    ice_N = regN "glace" ;
+    knee_N = regN "genou" ;
+    lake_N = lake_N ;
+    leaf_N = regN "feuille" ;
+    leg_N = regN "jambe" ;
+    liver_N = regGenN "foie"  masculine ;
+    louse_N = regN "pou" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = UseN2 mother_N2 ;
+    mountain_N = mountain_N ;
+    mouth_N = regN "bouche" ;
+    name_N = regN "nom" ;
+    neck_N = mkN "cou" "cous" masculine ;
+    night_N = regGenN "nuit" feminine ;
+    nose_N = regN "nez" ;
+    person_N = regN "personne" ;
+    rain_N = regN "pluie" ;
+    river_N = river_N ;
+    road_N = regN "route" ;
+    root_N = regN "racine" ;
+    rope_N = regN "corde" ;
+    salt_N = regN "sel" ;
+    sand_N = regGenN "sable"  masculine ;
+    sea_N = sea_N ;
+    seed_N = regN "graine" ;
+    skin_N = regN "peau" ;
+    sky_N = mkN "ciel" "cieux" masculine ; 
+    smoke_N = regN "fum�e" ;
+    snake_N = snake_N ;
+    snow_N = regN "neige" ;
+    star_N = star_N ;
+    stick_N = regN "b�ton" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = regN "queue" ;
+    tongue_N = regN "langue" ;
+    tooth_N = regGenN "dent" feminine ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = regN "femme" ;
+    wind_N = regN "vent" ;
+    wing_N = regN "aile" ;
+    woman_N = woman_N ;
+    worm_N = regN "ver" ; 
+    year_N = regN "an" ; --- ann�e
+
+    -- Verbs
+
+    bite_V = ( mordre_V2) ;
+    blow_V = regV "souffler" ;
+    breathe_V2 = dirV2 (regV "respirer") ;
+    burn_V = regV "br�ler" ;
+    come_V = venir_V ;
+    count_V2 = dirV2 (regV "conter") ;
+    cut_V2 = dirV2 (regV "tailler") ;
+    die_V = mourir_V ;
+    dig_V = regV "creuser" ;
+    drink_V = ( boire_V2) ;
+    eat_V2 = dirV2 (regV "manger") ;
+    fall_V = regV "tomber" ;
+    fear_V = ( craindre_V2) ;
+    fight_V2 = dirV2 (regV "lutter") ;
+    float_V = regV "flotter" ;
+    flow_V = regV "couler" ;
+    fly_V = regV "voler" ;
+    freeze_V = reg3V "geler" "g�le" "g�lera" ;
+    give_V = dirdirV3 (regV "donner") ;
+    hear_V = ( entendre_V2) ;
+    hit_V2 = dirV2 (regV "frapper") ;
+    hold_V = ( tenir_V2) ;
+    hunt_V2 = dirV2 (regV "chasser") ;
+    kill_V2 = dirV2 (regV "tuer") ;
+    know_V = ( conna�tre_V2) ;
+    laugh_V =  rire_V2 ;
+    lie_V = reflV �tendre_V2 ;
+    live_V = vivre_V2 ;
+    play_V = regV "jouer" ;
+    pull_V2 = dirV2 (regV "tirer") ;
+    push_V2 = dirV2 (regV "pousser") ;
+    rub_V2 = dirV2 (regV "frotter") ;
+    say_V = dire_V2 ;
+    scratch_V2 = dirV2 (regV "gratter") ;
+    see_V = ( voir_V2) ;
+    sew_V = coudre_V2 ;
+    sing_V = regV "chanter" ;
+    sit_V = reflV asseoir_V2 ;
+    sleep_V = dormir_V2 ;
+    smell_V = v2V ( sentir_V2) ;
+    spit_V = regV "cracher" ;
+    split_V = ( fendre_V2) ;
+    squeeze_V2 = dirV2 (regV "serrer") ;
+    stab_V2 = dirV2 (regV "poignarder") ;
+    stand_V = reflV (reg3V "lever" "l�ve" "l�vera") ;
+    suck_V2 = dirV2 (regV "sucer") ;
+    swell_V = regV "gonfler" ;
+    swim_V = regV "nager" ;
+    think_V = regV "penser" ;
+    throw_V2 = dirV2 (regV "jeter") ;
+    tie_V2 = dirV2 (regV "lier") ;
+    turn_V = regV "tourner" ;
+    vomit_V = regV "vomir" ;
+    walk_V = regV "marcher" ;
+    wash_V2 = dirV2 (regV "laver") ;
+    wipe_V2 = dirV2 (regV "essuyer") ;
+
+}
diff --git a/examples/bronzeage/old/SwadeshGer.gf b/examples/bronzeage/old/SwadeshGer.gf
new file mode 100644
index 000000000..85c057bb0
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshGer.gf
@@ -0,0 +1,248 @@
+--# -path=.:../abstract:../common:../german:../../prelude
+
+concrete SwadeshGer of Swadesh = CatGer
+  ** open MorphoGer, LangGer, ParadigmsGer, Prelude in {
+
+  lincat
+    MassN = N ;
+
+  lin
+
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+--     all_Det = mkDeterminer Pl "all" ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+--     few_Det = mkDeterminer Pl "few" ;
+--     other_Det = mkDeterminer Pl "other" ;
+
+
+--     left_Ord = regA "left" ;
+--     right_Ord = regA "right" ;
+
+    -- Adverbs
+
+    here_Adv = here_Adv;
+    there_Adv = there_Adv;
+    where_IAdv = where_IAdv;
+    when_IAdv = when_IAdv;
+    how_IAdv = how_IAdv;
+--     far_Adv = mkAdv "far" ;
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+--     at_Prep = ss "at" ;
+--     in_Prep = ss "in" ;
+--     with_Prep = ss "with" ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+    -- Adjectives
+
+    bad_A = bad_A ;
+    big_A = big_A ;
+    black_A = black_A ;
+    cold_A = cold_A ;
+--     correct_A = (regA "correct") ;
+    dirty_A = dirty_A ;
+--     dry_A = regA "dry" ;
+--     dull_A = regA "dull" ;
+--     full_A = regA "full" ;
+    good_A = good_A ;
+    green_A = green_A ;
+--     heavy_A = regA "heavy" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+--     near_A = regA "near" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+--     rotten_A = (regA "rotten") ;
+--     round_A = regA "round" ;
+--     sharp_A = regA "sharp" ;
+    short_A = short_A ;
+    small_A = small_A ;
+--     smooth_A = regA "smooth" ;
+--     straight_A = regA "straight" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+--     wet_A = regA "wet" ; ----
+    white_A = white_A ;
+--     wide_A = regA "wide" ;
+    yellow_A = yellow_A ;
+
+    -- Nouns
+
+--     animal_N = regN "animal" ;
+--     ashes_N = regN "ash" ; -- FIXME: plural only?
+--     back_N = regN "back" ;
+--     bark_N = regN "bark" ;
+--     belly_N = regN "belly" ;
+    bird_N = bird_N;
+--     blood_N = regN "blood" ;
+--     bone_N = regN "bone" ;
+--     breast_N = regN "breast" ;
+    child_N = child_N ;
+--     cloud_N = regN "cloud" ;
+--     day_N = regN "day" ;
+    dog_N = dog_N ;
+--     dust_N = regN "dust" ;
+--     ear_N = regN "ear" ;
+--     earth_N = regN "earth" ;
+--     egg_N = regN "egg" ;
+--     eye_N = regN "eye" ;
+--     fat_N = regN "fat" ;
+---    father_N = UseN2 father_N2 ;
+--     feather_N = regN "feather" ;
+--     fingernail_N = regN "fingernail" ;
+--     fire_N = regN "fire" ;
+    fish_N = fish_N ;
+--     flower_N = regN "flower" ;
+--     fog_N = regN "fog" ;
+--     foot_N = mk2N "foot" "feet" ;
+--     forest_N = regN "forest" ;
+    fruit_N = fruit_N ;
+--     grass_N = regN "grass" ;
+--     guts_N = regN "gut" ; -- FIXME: no singular
+--     hair_N = regN "hair" ;
+--     hand_N = regN "hand" ;
+--     head_N = regN "head" ;
+--     heart_N = regN "heart" ;
+--     horn_N = regN "horn" ;
+--     husband_N = genderN masculine (regN "husband") ;
+--     ice_N = regN "ice" ;
+--     knee_N = regN "knee" ;
+    lake_N = lake_N ;
+--     leaf_N = mk2N "leaf" "leaves" ;
+--     leg_N = regN "leg" ;
+--     liver_N = regN "liver" ;
+--     louse_N = mk2N "louse" "lice" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+---    mother_N = UseN2 mother_N2 ;
+    mountain_N = mountain_N ;
+--     mouth_N = regN "mouth" ;
+--     name_N = regN "name" ;
+--     neck_N = regN "neck" ;
+--     night_N = regN "night" ;
+--     nose_N = regN "nose" ;
+--     person_N = genderN human (regN "person") ;
+--     rain_N = regN "rain" ;
+    river_N = river_N ;
+--     road_N = regN "road" ;
+--     root_N = regN "root" ;
+--     rope_N = regN "rope" ;
+--     salt_N = regN "salt" ;
+--     sand_N = regN "sand" ;
+    sea_N = sea_N ;
+--     seed_N = regN "seed" ;
+--     skin_N = regN "skin" ;
+--     sky_N = regN "sky" ;
+--     smoke_N = regN "smoke" ;
+    snake_N = snake_N ;
+--     snow_N = regN "snow" ;
+    star_N = star_N ;
+--     stick_N = regN "stick" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+--     tail_N = regN "tail" ;
+--     tongue_N = regN "tongue" ;
+--     tooth_N = mk2N "tooth" "teeth" ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+--     wife_N = genderN feminine (mk2N "wife" "wives") ;
+--     wind_N = regN "wind" ;
+--     wing_N = regN "wing" ;
+    woman_N = woman_N ;
+--     worm_N = regN "worm" ;
+--     year_N = regN "year" ;
+
+    -- Verbs
+
+--    bite_V = bite_V ;
+--    blow_V = blow_V ;
+--     breathe_V2 = dirV2 (regV "breathe") ;
+--    burn_V = burn_V ;
+    come_V = come_V ;
+--     count_V2 = dirV2 (regV "count") ;
+--    cut_V2 = dirV2 cut_V ;
+    die_V = die_V ;
+--    dig_V = dig_V ;
+    drink_V = drink_V2 ;
+    eat_V = eat_V2 ;
+--    fall_V = fall_V ;
+--     fear_V2 = dirV2 (regV "fear") ;
+--    fight_V2 = dirV2 fight_V ;
+--     float_V = regV "float" ;
+--     flow_V = regV "flow" ;
+--    fly_V = fly_V ;
+--    freeze_V = freeze_V ;
+--    give_V = dirdirV3 give_V ;
+    hear_V = hear_V2 ;
+--    hit_V2 = dirV2 hit_V ;
+--    hold_V2 = dirV2 hold_V ;
+--     hunt_V2 = dirV2 (regV "hunt") ;
+--     kill_V2 = dirV2 (regV "kill") ;
+--    know_V2 = dirV2 know_V ;
+--     laugh_V = regV "laugh" ;
+--    lie_V = lie_V ;
+    live_V = live_V ;
+--     play_V = regV "play" ;
+--     pull_V2 = dirV2 (regV "pull") ;
+--     push_V2 = dirV2 (regV "push") ;
+--     rub_V2 = dirV2 (regDuplV "rub") ;
+--    say_V = say_V ;
+--     scratch_V2 = dirV2 (regV "scratch") ;
+--    see_V = see_V2 ;
+--    sew_V = sew_V ;
+--    sing_V = sing_V ;
+--    sit_V = sit_V ;
+    sleep_V = sleep_V ;
+--     smell_V2 = dirV2 (regV "smell") ;
+--    spit_V = spit_V ;
+--    split_V2 = dirV2 split_V ;
+--     squeeze_V2 = dirV2 (regV "squeeze") ;
+--     stab_V2 = dirV2 (regDuplV "stab") ;
+--    stand_V = stand_V ;
+--     suck_V2 = dirV2 (regV "suck") ;
+--    swell_V = swell_V ;
+--    swim_V = swim_V ;
+--    think_V = think_V ;
+--    throw_V2 = dirV2 throw_V ;
+--     tie_V2 = dirV2 (regV "tie") ;
+--     turn_V = regV "turn" ;
+--     vomit_V = regV "vomit" ;
+    walk_V = walk_V ;
+--     wash_V2 = dirV2 (regV "wash") ;
+--     wipe_V2 = dirV2 (regV "wipe") ;
+
+}
diff --git a/examples/bronzeage/old/SwadeshIta.gf b/examples/bronzeage/old/SwadeshIta.gf
new file mode 100644
index 000000000..7d55f2a99
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshIta.gf
@@ -0,0 +1,258 @@
+--# -path=.:../italian:../common:../abstract:../../prelude:../romance
+
+concrete SwadeshIta of Swadesh = CatIta
+  ** open PhonoIta, MorphoIta, LangIta, ParadigmsIta, BeschIta, Prelude in {
+
+  lincat
+    MassN = N ;
+
+  lin
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+    all_Det  = {
+      s = \\g,c => prepCase c ++ genForms ["tutti i"] ["tutte le"] ! g ;
+      n = Pl
+      } ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = {s = \\g,c => prepCase c ++ genForms "pochi" "poche" ! g ; n = Pl} ;
+    other_Det = {
+      s = \\g,c => prepCase c ++ genForms "altri" "altre" ! g ;
+      n = Pl
+      } ;
+
+    left_Ord = mkOrd (regA "sinistro") ;
+    right_Ord = mkOrd (regA "destro") ;
+
+  oper
+    mkOrd : A -> Ord ;
+    mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
+
+  lin
+
+    -- Adverbs
+
+    here_Adv = here_Adv;
+    there_Adv = there_Adv;
+    where_IAdv = where_IAdv;
+    when_IAdv = when_IAdv;
+    how_IAdv = how_IAdv;
+    far_Adv = mkAdv "lontano" ;
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+    at_Prep = dative ;
+    in_Prep = in_Prep ;
+    with_Prep = with_Prep ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+    -- Adjectives
+
+    bad_A = bad_A ;
+    big_A = big_A ;
+    black_A = black_A ;
+    cold_A = cold_A ;
+    correct_A = regA "corretto" ;
+    dirty_A = dirty_A ;
+    dry_A = regA "secco" ;
+    dull_A = regA "noioso" ;
+    full_A = regA "pieno" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = regA "pesante" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = regA "vicino" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    rotten_A = regA "marcio" ;
+    round_A = regA "rotondo" ;
+    sharp_A = regA "aguzzo" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = regA "liscio" ;
+    straight_A = regA "diretto" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = regA "bagnato" ;
+    white_A = white_A ;
+    wide_A = regA "largo" ;
+    yellow_A = yellow_A ;
+
+    -- Nouns
+
+    animal_N = regN "animale" ;
+    ashes_N = regN "cenere" ;
+    back_N = regN "schiena" ;
+    bark_N = regN "corteccia" ; 
+    belly_N = regN "pancia" ;
+    bird_N = bird_N;
+    blood_N = regN "sangue" ;
+    bone_N = regN "osso" ;
+    breast_N = regN "seno" ;
+    child_N = child_N ;
+    cloud_N = regN "nuvola" ;
+    day_N = regN "giorno" ;
+    dog_N = dog_N ;
+    dust_N = regN "polvere" ;
+    ear_N = regN "orecchio" ;
+    earth_N = regN "terra" ;
+    egg_N = mkN "uovo" "uova" masculine ; -- fem in Pl
+    eye_N = regN "occhio" ;
+    fat_N = regN "grasso" ;
+    father_N = UseN2 father_N2 ;
+    feather_N = regN "piuma" ;
+    fingernail_N = regN "unghia" ;
+    fire_N = regN "fuoco" ;
+    fish_N = fish_N ;
+    flower_N = regN "fiore" ;
+    fog_N = regN "nebbia" ;
+    foot_N = regN "piede" ;
+    forest_N = regN "bosco" ;
+    fruit_N = fruit_N ;
+    grass_N = regN "erba" ;
+    guts_N = regN "intestino" ;
+    hair_N = regN "capello" ;
+    hand_N = femN (regN "mano") ;
+    head_N = regN "testa" ;
+    heart_N = regN "cuore" ;
+    horn_N = regN "corno" ;
+    husband_N = regN "marito" ;
+    ice_N = regN "ghiaccio" ;
+    knee_N = regN "ginocchio" ;
+    lake_N = lake_N ;
+    leaf_N = regN "foglia" ;
+    leg_N = regN "gamba" ;
+    liver_N = regN "fegato" ;
+    louse_N = regN "pidocchio" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = UseN2 mother_N2 ;
+    mountain_N = mountain_N ;
+    mouth_N = regN "bocca" ;
+    name_N = regN "nome" ;
+    neck_N = regN "collo" ;
+    night_N = femN (regN "notte") ;
+    nose_N = regN "naso" ;
+    person_N = regN "persona" ;
+    rain_N = regN "pioggia" ;
+    river_N = river_N ;
+    road_N = regN "strada" ;
+    root_N = femN (regN "radice") ;
+    rope_N = regN "corda" ;
+    salt_N = regN "sale" ;
+    sand_N = regN "sabbia" ;
+    sea_N = sea_N ;
+    seed_N = regN "seme" ;
+    skin_N = femN (regN "pelle") ;
+    sky_N = regN "cielo" ; 
+    smoke_N = regN "fumo" ;
+    snake_N = snake_N ;
+    snow_N = femN (regN "neve") ;
+    star_N = star_N ;
+    stick_N = regN "bastone" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = regN "coda" ;
+    tongue_N = regN "lingua" ;
+    tooth_N = regN "dente" ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = regN "donna" ;
+    wind_N = regN "vento" ;
+    wing_N = regN "ala" ;
+    woman_N = woman_N ;
+    worm_N = regN "verme" ;
+    year_N = regN "anno" ;
+
+    -- Verbs
+
+    bite_V2 = dirV2 (verboV (esplodere_51 "mordere")) ;
+    blow_V = regV "soffiare" ;
+    breathe_V2 = dirV2 (regV "respirare") ;
+    burn_V = regV "bruciare" ;
+    come_V = come_V ;
+    count_V2 = dirV2 (regV "contare") ;
+    cut_V2 = dirV2 (regV "tagliare") ;
+    die_V = die_V ;
+    dig_V = regV "scavare" ;
+    drink_V2 = dirV2 (drink_V2) ;
+    eat_V2 = dirV2 (regV "mangiare") ;
+    fall_V = essereV (verboV (cadere_28 "cadere")) ;
+    fear_V2 = dirV2 (fear_VS) ;
+    fight_V2 = dirV2 (regV "lottare") ;
+    float_V = regV "galleggiare" ;
+    flow_V = verboV (finire_100 "fluire") ;
+    fly_V = regV "volare" ;
+    freeze_V = regV "gelare" ;
+    give_V = dirdirV3 (verboV (dare_15 "dare")) ;
+    hear_V2 = dirV2 (hear_V2) ;
+    hit_V2 = dirV2 (regV "colpire") ;
+    hold_V2 = dirV2 (verboV (venire_110 "tenire")) ;
+    hunt_V2 = dirV2 (regV "cacciare") ;
+    kill_V2 = dirV2 (verboV (ridere_74 "uccidere")) ;
+    know_V2 = dirV2 (know_V2) ;
+    laugh_V = verboV (ridere_74 "ridere") ;
+    lie_V = verboV (piacere_64 "giacere") ;
+    live_V = live_V ;
+    play_V = regV "giocare" ;
+    pull_V2 = dirV2 (regV "tirare") ;
+    push_V2 = dirV2 (verboV (cingere_31 "spingere")) ;
+    rub_V2 = dirV2 (regV "strofinare") ;
+    say_V = say_VS ;
+    scratch_V2 = dirV2 (regV "graffiare") ;
+    see_V2 = dirV2 (see_V2) ;
+    sew_V = verboV (cucire_103 "cucire") ;
+    sing_V = regV "cantare" ;
+    sit_V = reflV (verboV (sedere_84 "sedere")) ;
+    sleep_V = sleep_V ;
+    smell_V = verboV (sentire_99 "sentire") ;
+    spit_V = regV "sputare" ;
+    split_V2 = dirV2 (verboV (ridere_74 "dividere")) ;
+    squeeze_V2 = dirV2 (verboV (temere_20 "spremere")) ;
+    stab_V2 = dirV2 (regV "pugnalare") ;
+    stand_V = verboV (stare_16 "stare") ;   ---- in piedi
+    suck_V2 = dirV2 (regV "succhiare") ;
+    swell_V = regV "gonfiare" ;
+    swim_V = regV "nuotare" ;
+    think_V = regV "pensare" ;
+    throw_V2 = dirV2 (regV "gettare") ;
+    tie_V2 = dirV2 (regV "legare") ;
+    turn_V = regV "tornare" ;
+    vomit_V = regV "vomitare" ;
+    walk_V = regV "camminare" ;
+    wash_V2 = dirV2 (regV "lavare") ;
+    wipe_V2 = dirV2 (regV "asciugare") ;
+
+}
diff --git a/examples/bronzeage/old/SwadeshNor.gf b/examples/bronzeage/old/SwadeshNor.gf
new file mode 100644
index 000000000..48d8a4db8
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshNor.gf
@@ -0,0 +1,252 @@
+--# -path=.:../norwegian:../common:../abstract:../scandinavian:../../prelude
+
+concrete SwadeshNor of Swadesh = CatNor
+  ** open MorphoNor, LangNor, ParadigmsNor, IrregNor, Prelude in {
+
+  lincat
+    MassN = N ;
+
+  lin
+
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+    all_Det  = {s = \\_,_ => "alle" ; n = Pl ; det = DDef Indef} ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = {s = \\_,_ => "f�" ; n = Pl ; det = DDef Indef} ;
+    other_Det = {s = \\_,_ => "andre" ; n = Pl ; det = DDef Indef} ;
+
+    left_Ord = {s = "venstre" ; isDet = True} ;
+    right_Ord = {s = "h�yre" ; isDet = True} ;
+
+    -- Adverbs
+
+    here_Adv = here_Adv ;
+    there_Adv = there_Adv ;
+    where_IAdv = where_IAdv ;
+    when_IAdv = when_IAdv ;
+    how_IAdv = how_IAdv ;
+
+    far_Adv = mkAdv "fjern" ;
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+    at_Prep = ss "ved" ;
+    in_Prep = ss "i" ;
+    with_Prep = ss "med" ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+    -- Adjectives
+
+    bad_A = bad_A ;
+    big_A = big_A ;
+    black_A = black_A ;
+    cold_A = cold_A ;
+    correct_A = regA "riktig" ;
+    dirty_A = dirty_A ;
+    dry_A = mk2A "t�rr" "t�rt" ;
+    dull_A = regA "sl�v" ;
+    full_A = regA "full" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = irregADeg "tung" "tyngre" "tyngst" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = mkADeg "n�re" "n�re" "n�re" "n�rmere" "n�rmest" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    rotten_A = mk3ADeg "r�tten" "r�ttent" "r�tne" ;
+    round_A = regA "rund" ;
+    sharp_A = mk2A "kvass" "kvast" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = mk2A "slett" "slett" ;
+    straight_A = regA "rak" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = regA "v�t" ;
+    white_A = white_A ;
+    wide_A = regA "bred" ;
+    yellow_A = yellow_A ;
+
+
+    -- Nouns
+
+    animal_N = mk2N "dyr" "dyret" ;
+    ashes_N = mk2N "aske" "aska" ;
+    back_N = mk2N "rygg" "ryggen" ;
+    bark_N = mk2N "bark" "barken" ;
+    belly_N = mk2N "mage" "magen" ;
+    bird_N = bird_N ;
+    blood_N = mk2N "blod" "blodet" ;
+    bone_N = mk2N "bein" "beinet" ;
+    breast_N = mk2N "bryst" "brystet" ;
+    child_N = child_N ;
+    cloud_N = mk2N "sky" "skya" ;
+    day_N = mk2N "dag" "dagen" ;
+    dog_N = dog_N ;
+    dust_N = mk2N "st�v" "st�vet" ;
+    ear_N = mk2N "�re" "�ret" ;
+    earth_N = mk2N "jord" "jorda" ;
+    egg_N = mk2N "egg" "egget" ;
+    eye_N = mkN "�ye" "�yet" "�yne" "�ynene" ;
+    fat_N = mk2N "fett" "fettet" ;
+    father_N = mkN "far" "faren" "fedre" "fedrene" ;
+--    father_N = UseN2 father_N2 ;
+    feather_N = mk2N "fj�r" "fj�ra" ;
+    fingernail_N = mk2N "negl" "neglen" ;
+    fire_N = mk2N "ild" "ilden" ;
+    fish_N = fish_N ;
+    flower_N = mk2N "blomst" "blomsten" ;
+    fog_N = mk2N "t�ke" "t�ka" ;
+    foot_N = mk2N "fot" "f�tter" ;
+    forest_N = mk2N "skog" "skogen" ;
+    fruit_N = fruit_N ;
+    grass_N = mk2N "gras" "graset" ;
+    guts_N = mk2N "tarm" "tarmen" ; ---- involler
+    hair_N = mk2N "h�r" "h�ret" ;
+    hand_N = mk2N "h�nd" "h�nden" ;
+
+    head_N = mk2N "hode" "hodet" ;
+    heart_N = mk2N "hjerte" "hjertet" ;
+    horn_N = mk2N "horn" "hornet" ;
+    husband_N = mkN "ektemann" "ektemannen" "ektemenn" "ektemennen" ;
+    ice_N = mk2N "is" "isen" ;
+    knee_N = mkN "kne" "kneet" "kn�r" "kn�ne" ;
+    lake_N = lake_N ;
+    leaf_N = mk2N "l�v" "l�vet" ;
+    leg_N = mk2N "bein" "beinet" ;
+    liver_N = mkN "lever" "leveren" "levrer" "levrene" ;
+    louse_N = mk2N "lus" "lusa" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = mkN "mor" "moren" "m�dre" "m�drene" ;
+--    mother_N = UseN2 mother_N2 ;
+    mountain_N = mountain_N ;
+    mouth_N = mk2N "munn" "munnen" ;
+    name_N = mk2N "navn" "navnet" ;
+    neck_N = mk2N "nakke" "nakken" ;
+    night_N = mkN "natt" "natta" "netter" "nettene" ;
+    nose_N = mk2N "nese" "nesen" ;
+    person_N = mk2N "person" "personen" ;
+    rain_N = mk2N "regn" "regnet" ;
+    river_N = river_N ;
+    road_N = mk2N "vei" "veien" ;
+    root_N = mkN "rot" "rota" "r�tter" "r�ttene" ;
+    rope_N = mk2N "tau" "tauet" ;
+    salt_N = mk2N "salt" "saltet" ;
+    sand_N = mk2N "sand" "sanden" ;
+    sea_N = sea_N ;
+    seed_N = mk2N "fr�" "fr�et" ;
+    skin_N = mk2N "skinn" "skinnet" ;
+    sky_N = mkN "himmel" "himmelen" "himler" "himlene" ;
+    smoke_N = mk2N "r�yk" "r�yken" ;
+    snake_N = snake_N ;
+    snow_N = mk2N "sn�" "sn�en" ;
+    star_N = star_N ;
+    stick_N = mk2N "pinne" "pinnen" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = mk2N "hale" "halen" ;
+    tongue_N = mk2N "tunge" "tunga" ;
+    tooth_N = mkN "tann" "tanna" "tenner" "tennene" ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = mk2N "kone" "kona" ;
+    wind_N = mk2N "vind" "vinden" ;
+    wing_N = mk2N "vinge" "vingen" ;
+    woman_N = woman_N ;
+    worm_N = mk2N "mark" "marken" ;
+    year_N = mk2N "�r" "�ret" ;
+
+    -- Verbs
+
+    bite_V2 = dirV2 (IrregNor.bite_V) ;
+    blow_V = mk2V "bl�se" "bl�ste" ;
+    breathe_V2 = dirV2 (regV "puste") ;
+    burn_V = brenne_V ;
+    come_V = komme_V ;
+    count_V2 = dirV2 (regV "regne") ;
+    cut_V2 = dirV2 (skj�re_V) ;
+    die_V = d�_V ;
+    dig_V = mk2V "grave" "gravde" ;
+    drink_V2 = dirV2 (drikke_V) ;
+    eat_V2 = dirV2 (mk2V "spise" "spiste") ;
+    fall_V = falle_V ;
+    fear_V2 = dirV2 (regV "frykte") ;
+    fight_V2 = dirV2 (sl�ss_V) ;
+    float_V = flyte_V ;
+    flow_V = renne_V ;
+    fly_V = fly_V ;
+    freeze_V = fryse_V ;
+    give_V = dirdirV3 gi_V ;
+    hear_V2 = dirV2 (mk2V "h�re" "h�rde") ;
+    hit_V2 = dirV2 (sl�_V) ;
+    hold_V2 = dirV2 (holde_V) ;
+    hunt_V2 = dirV2 (regV "jakte") ;
+    kill_V2 = dirV2 (mk2V "drepe" "drepte") ;
+    know_V2 = dirV2 (vite_V) ;
+    laugh_V = mkV "le" "ler" "les" "lo" "ledd" "le" ;
+    lie_V = ligge_V ;
+    live_V = mk2V "leve" "levde" ;
+    play_V = mk2V "leke" "lekte" ;
+    pull_V2 = dirV2 (dra_V) ;
+    push_V2 = dirV2 (irregV "skyve" "skj�v" "skj�vet") ;
+    rub_V2 = dirV2 (gni_V) ;
+    say_V = si_V ;
+    scratch_V2 = dirV2 (regV "kl�") ;
+    see_V2 = dirV2 (se_V) ;
+    sew_V = mk2V "sy" "sydde" ;
+    sing_V = synge_V ;
+    sit_V = sitte_V ;
+    sleep_V = sove_V ;
+    smell_V = regV "lukte" ;
+    spit_V = regV "spytte" ;
+    split_V2 = dirV2 (mk2V "kl�yve" "kl�yvde") ;
+    squeeze_V2 = dirV2 (mk2V "klemme" "klemte") ;
+    stab_V2 = dirV2 (stikke_V) ;
+    stand_V = st�_V ;
+    suck_V2 = dirV2 (suge_V) ;
+    swell_V = partV (regV "hovne") "opp" ;
+    swim_V = regV "simme" ;
+    think_V = mk2V "tenke" "tenkte" ;
+    throw_V2 = dirV2 (regV "kaste") ;
+    tie_V2 = dirV2 (regV "knytte") ;
+    turn_V = mk2V "vende" "vendte" ;
+    vomit_V = partV (regV "kaste") "opp" ;
+    walk_V = g�_V ;
+    wash_V2 = dirV2 (regV "vaske") ;
+    wipe_V2 = dirV2 (regV "t�rke") ;
+
+}
diff --git a/examples/bronzeage/old/SwadeshRus.gf b/examples/bronzeage/old/SwadeshRus.gf
new file mode 100644
index 000000000..651b0b0fa
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshRus.gf
@@ -0,0 +1,251 @@
+--# -path=.:../abstract:../../prelude

+

+concrete SwadeshRus of Swadesh = CatRus 

+  ** open ResourceRus, SyntaxRus, ParadigmsRus, 

+          BasicRus, Prelude in {

+flags  coding=utf8 ;

+

+  lincat

+    MassN = N ;

+

+  lin

+

+    -- Pronouns

+

+    i_NP = i_Pron ;

+    youSg_NP = youSg_Pron ;

+    he_NP = he_Pron ;

+    we_NP = we_Pron ;

+    youPl_NP = youPl_Pron ;

+    they_NP = they_Pron ;

+    whoPl_IP = whoPl_IP ;

+    whoSg_IP = whoSg_IP ;

+    whatPl_IP = whatPl_IP ;

+    whatSg_IP = whatSg_IP ;

+

+    -- Determiners

+

+    this_Det = this_Det ;

+    that_Det = that_Det ;

+    all_Det = all_NDet ;

+    many_Det = many_Det ;

+    some_Det = someSg_Det ;

+    few_Det = adjInvar "мало" ** {n = Sg; g = PNoGen; c= Nom} ;

+    other_Det = drugojDet ** {n = Sg; g = PNoGen; c= Nom} ;

+

+--    left_Ord = AStaruyj "лев";

+--    right_Ord = AStaruyj "прав";

+

+    -- Adverbs

+

+    here_Adv = here_Adv ;

+    there_Adv = there_Adv ;

+    where_IAdv = where_IAdv ;

+    when_IAdv = when_IAdv ;

+    how_IAdv = how_IAdv ;

+

+    -- not : Adv ; -- ?

+

+    -- Conjunctions

+

+    and_Conj = and_Conj ;

+

+    -- Prepositions

+

+    at_Prep = { s2 = "у" ; c = genitive} ;

+    in_Prep = { s2 = "в" ; c = prepositional} ;

+    with_Prep = { s2 = "с" ; c = instructive} ;

+

+    -- Numerals

+

+    one_Det = DetSg one_Quant NoOrd ;

+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;

+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;

+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;

+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;

+

+    -- Adjectives

+

+    bad_A = bad_A ;

+    big_A = big_A ;

+    black_A = black_A ;

+    cold_A = cold_A ;

+    correct_A = mkA (AStaruyj "правильн") "правильнее"; 

+    dirty_A = dirty_A ;

+    dry_A = mkA (AMolodoj "сух") "суше";

+    dull_A = mkA (AStaruyj "скучн") "скучнее";

+    far_A = mkA (AKhoroshij "далекий") "дальше";

+    full_A = mkA (AStaruyj "полн") "полнее";

+    good_A = good_A ;

+    green_A = green_A ;

+    heavy_A = mkA (AStaruyj "тяжел") "тяжелее";

+    long_A = long_A ;

+    narrow_A = narrow_A ;

+    near_A = mkA (AMalenkij "близк") "ближе";

+    new_A = new_A ;

+    old_A = old_A ;

+    red_A = red_A ;

+    rotten_A = mkA (AMolodoj "гнил") "гнилее";

+    round_A = mkA (AStaruyj "кругл") "круглее";

+    sharp_A = mkA (AStaruyj "остр") "острее";

+    short_A = short_A ;

+    small_A = small_A ;

+    smooth_A = mkA (AMalenkij "гладк") "глаже";

+    straight_A = mkA (AMolodoj "прям") "прямее";

+    thick_A = thick_A ;

+    thin_A = thin_A ;

+    warm_A = warm_A ;

+    wet_A = mkA (AStaruyj "мокр") "мокрее";

+    white_A = white_A ;

+    wide_A = mkA (AMalenkij "широк") "шире";

+    yellow_A = yellow_A ;

+

+

+    -- Nouns

+

+    animal_N = nZhivotnoe "животн" ;

+    ashes_N = nPepel "пеп" ;

+    back_N = nMashina "спин" ;

+    bark_N = mkN "лай" "лая" "лаю" "лай" "лаем" "лае" "лаи" "лаев" "лаям" "лаи" "лаями" "лаях" masculine inanimate;

+    belly_N = nTelefon "живот" ;

+    bird_N = bird_N ;

+    blood_N = nBol "кров" ;

+    bone_N = nBol "кост" ;

+    breast_N = nBol "грудь" ;

+    child_N = child_N ;

+    cloud_N = nChislo "облак" ;

+    day_N = mkN "день" "дня" "дню" "день" "днём" "дне" "дни" "дней" "дням" "дни" "днями" "днях" masculine inanimate ;

+    dog_N = dog_N ;

+    dust_N = nBol "пыл" ;

+   ear_N = nChislo "ухо" ;

+   earth_N = nTetya "земл" ;

+    egg_N = nChislo "яйц" ;

+    eye_N = nAdres "глаз" ;

+    fat_N = nBank "жир" ;

+    father_N = mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate ; 

+--    father_N = UseN2 father_N2 ;

+    feather_N = mkN "перо" "пера" "перу" "пера" "пером" "пере" "перья" "перьев" "перьям" "перьев" "перьями" "перьях" neuter inanimate ;

+   fingernail_N = mkN "ноготь" "ногтя" "ногтю" "ногтя" "ногтем" "ногте" "ногти" "ногтей" "ногтям" "ногтей" "ногтями" "ногтях" masculine inanimate ;

+    fire_N = mkN "огонь" "огня" "огню" "огня" "огнём" "огне" "огни" "огней" "огням" "огней" "огнями" "огнях" masculine inanimate ;

+    fish_N = fish_N ;

+    flower_N = mkN "отец" "отца" "отцу" "отца" "отцом" "отце" "отцы" "отцов" "отцам" "отцов" "отцами" "отцах" masculine animate ;

+    fog_N = nTelefon "туман" ;

+    foot_N = nTetya "ступн" ;

+    forest_N = nAdres "лес" ;

+    fruit_N = fruit_N ;

+    grass_N = nMashina "трав" ;

+    guts_N =  nBol "внутренност" ;

+    hair_N = nTelefon "волос" ;

+   hand_N =  nNoga "рук" ;

+   head_N = nMashina "голов" ;

+   heart_N = mkN "сердце" "сердца" "сердцу" "сердца" "сердцем" "сердце" "сердца" "сердец" "сердцам" "сердец" "сердцами" "сердцах" neuter inanimate;

+   horn_N = nAdres "рог" ;

+   husband_N = mkN "муж" "мужа" "мужу" "мужа" "мужем" "муже" "мужья" "мужей" "мужьям" "мужей" "мужьями" "мужьях" masculine animate ;

+   ice_N = mkN "лёд" "льда" "льду" "льда" "льдом" "льде" "льды" "льдов" "льдам" "льдов" "льдами" "льдах" masculine inanimate ;

+   knee_N = mkN "колено" "колена" "колену" "колена" "коленом" "колене" "колени" "колен" "коленам" "колен" "коленями" "коленях" neuter inanimate ;

+    lake_N = lake_N ;

+   leaf_N = nStul "лист" ;

+   leg_N = nNoga "ног" ;

+  liver_N = nBol "печен" ;

+  louse_N = mkN "вошь" "вши" "вши" "вошь" "вошью" "вше" "вши" "вшей" "вшам" "вшей" "вшами" "вшах" feminine animate ;

+    man_N = man_N ;

+    meat_N = meat_N ;

+    moon_N = moon_N ;

+    mother_N = mkN "мать" "матери" "матери" "мать" "матерью" "матери" "матери" "матерей" "матерям" "матерей" "матерями" "матерях" feminine animate ;

+---    mother_N = UseN2 mother_N2 ;

+    mountain_N = mountain_N ;

+   mouth_N =  mkN "рот" "рта" "рту" "рот" "ртом" "рте" "рты" "ртов" "ртам" "рты" "ртами" "ртах" masculine inanimate;

+  name_N = mkN "имя" "имени" "имени" "имя" "именем" "имени" "имена" "имён" "именам" "имена" "именами" "именах" neuter inanimate;

+  neck_N = nTetya "ше"  ;

+  night_N = nBol "ноч" ;

+  nose_N = nTelefon "нос" ;

+  person_N = nBol "личность" ;

+  rain_N = nNol "дожд" ;

+   river_N = river_N ;

+  road_N = nNoga "дорог" ;

+   root_N = nUroven "кор" ;

+   rope_N =  nNoga "веревк" ;

+   salt_N = nBol "сол" ;

+   sand_N = mkN "песок" "песка" "песку" "песок" "песком" "песке" "пески" "песков" "пескам" "песков" "песками" "песках" masculine inanimate ;

+    sea_N = sea_N ;

+    seed_N = mkN "семя" "семени" "семении" "семя" "семенем" "семени" "семена" "семян" "семенам" "семена" "семенами" "семенах" neuter inanimate ;

+   skin_N =  nEdinica "кож" ;

+   sky_N = mkN "небо" "неба" "небу" "небо" "небом" "небе" "небеса" "небес" "небесам" "небес" "небесами" "небесах" neuter inanimate ; 

+   smoke_N =  nTelefon "дым" ;

+    snake_N = snake_N ;

+   snow_N = nAdres "снег" ;

+    star_N = star_N ;

+    stick_N = nNoga "палк" ;

+    stone_N = stone_N ;

+    sun_N = sun_N ;

+   tail_N = nTelefon "хвост" ;

+   tongue_N = nBank "язык" ;

+   tooth_N = nTelefon "зуб" ;

+    tree_N = tree_N ;

+    water_N = water_N ;

+    wife_N = nMashina "жен" ;

+    wind_N = mkN "ветер" "ветра" "ветру" "ветер" "ветром" "ветра" "ветров" "ветра" "ветрам" "ветров" "ветрами" "ветрах" masculine inanimate ;

+    wing_N = mkN "крыло" "крыла" "крылу" "крыло" "крылом" "крыле" "крылья" "крыльев" "крыльям" "крылья" "крыльями" "крыльях" neuter inanimate ;

+    woman_N = woman_N ;

+   worm_N = nNol "черв" ;

+   year_N = nAdres "год" ;

+

+    -- Verbs

+

+    bite_V = mkRegVerb imperfective  first "куса" "ю" "кусал" "кусай" "кусать";

+    blow_V = mkRegVerb imperfective  first "ду" "ю" "дул" "дуй" "дуть"  ;

+   breathe_V = mkRegVerb imperfective  second "дыш" "у" "дышал" "дыши" "дышать"  ;

+   burn_V = mkRegVerb imperfective  second "гор" "ю" "горел" "гори" "гореть"  ;

+   come_V = come_V ;

+   count_V = mkRegVerb imperfective  first "счита" "ю" "считал" "считай" "считать"   ;

+    cut_V = mkRegVerb imperfective  first "реж" "у" "резал" "режь" "резать"  ;

+    die_V = die_V ;

+    dig_V = mkRegVerb imperfective  first "копа" "ю" "копал" "копай" "копать"  ;

+    drink_V =  mkRegVerb imperfective  firstE  "пь" "ю" "пил" "пей" "пить"  ;

+    eat_V = mkVerbum imperfective  "ем" "ешь" "ест" "едим" "едите" "едят" "ел" "ешь" "есть"  ; 

+    fall_V = mkRegVerb imperfective  first "пада" "ю" "падал" "падай" "падать"  ;

+    fear_V = mkRegVerb imperfective  second "бо" "ю" "боял" "бой" "боять"  ;

+    fight_V = mkRegVerb imperfective  firstE "дер" "у" "драл" "дери" "драть"  ;

+    float_V = mkRegVerb imperfective  firstE "плыв" "у" "плыл" "плыви" "плыть"  ;

+    flow_V = mkRegVerb imperfective  firstE "тек" "у" "тёк" "теки" "течь"  ;

+    fly_V = mkRegVerb imperfective  second "лета" "ю" "летал" "летай" "летать"  ;

+    freeze_V = mkRegVerb imperfective  first "замерза" "ю" "замерзал" "замерзай" "замерзать"  ;

+    give_V = mkRegVerb imperfective  firstE "да" "ю" "давал" "давай" "давать"  ;

+    hear_V = mkRegVerb imperfective  first "слыш" "у" "слышал" "слышь" "слышать"  ;

+    hit_V = mkRegVerb imperfective  first "ударя" "ю" "ударял" "ударяй" "ударять"  ;

+    hold_V = mkRegVerb imperfective  second "держ" "у" "держал" "держи" "держать"  ;

+    hunt_V = mkRegVerb imperfective  second "охоч" "у" "охотил" "охоть" "охотить"  ;

+    kill_V = mkRegVerb imperfective  first "убива" "ю" "убивал" "убивай" "убивать"  ;

+    know_V = mkRegVerb imperfective  first "зна" "ю" "знал" "знай" "знать"  ;

+    laugh_V = mkRegVerb imperfective  firstE "сме" "ю" "смеял" "смей" "смеять"  ;

+    lie_V = mkRegVerb imperfective  firstE "лг" "у" "лгал" "лги" "лгать"  ;

+    live_V = live_V ;

+    play_V = mkRegVerb imperfective  first "игра" "ю" "играл" "играй" "играть"  ;

+    pull_V = mkRegVerb imperfective  first "тян" "у" "тянул" "тяни" "тянуть"  ;

+    push_V = mkRegVerb imperfective  first "толка" "ю" "толкал" "толкай" "толкать"  ;

+    rub_V = mkRegVerb imperfective  firstE "тр" "у" "тёр" "три" "тереть"  ;

+    say_V = mkRegVerb imperfective  second "говор" "ю" "говорил" "говори" "говорить";

+    scratch_V = mkRegVerb imperfective  first "чеш" "у" "чесал" "чеши" "чесать"  ;    see_V = mkRegVerb imperfective  second "смотр" "ю" "смотрел" "смотри" "смотреть"  ;

+    sew_V = mkRegVerb imperfective  firstE "шь" "ю" "шил" "шей" "шить"  ;

+    sing_V = mkRegVerb imperfective  firstE "по" "ю" "пел" "пой" "петь"  ;

+    sit_V = mkVerbum imperfective  "сижу" "сидишь" "сидит" "сидим" "сидите" "сидят" "сидел" "сиди" "сидеть"  ;

+    sleep_V = sleep_V ;

+    smell_V = mkRegVerb imperfective  first "пахн" "у" "пахнул" "пахни" "пахнуть"  ;

+    spit_V = mkRegVerb imperfective  firstE "плю" "ю" "плевал" "плюй" "плевать"  ;

+    split_V = mkRegVerb imperfective  first "разбива" "ю" "разбивал" "разбей" "разбивать"  ;

+    squeeze_V = mkRegVerb imperfective  first "сжима" "ю" "сжимал" "сжимай" "сжимать"  ;

+    stab_V = mkRegVerb imperfective  first "кол" "ю" "колол" "коли" "колоть"  ;

+    stand_V = mkRegVerb imperfective second "сто" "ю" "стоял" "стой" "стоять"  ;

+    suck_V = mkRegVerb imperfective  firstE "сос" "у" "сосал" "соси" "сосать"  ;

+    swell_V = mkRegVerb imperfective  first "опуха" "ю" "опухал" "опухай" "опухать"  ;

+    swim_V = mkRegVerb imperfective  first "плава" "ю" "плавал" "плавай" "плавать"  ;

+    think_V = mkRegVerb imperfective  first "дума" "ю" "думал" "думай" "думать"  ;

+    throw_V = mkRegVerb imperfective  first "броса" "ю" "бросал" "бросай" "бросать"  ;

+    tie_V = mkRegVerb imperfective  first "вяж" "у" "вязал" "вяжи" "вязать"  ;

+    turn_V = mkRegVerb imperfective  first "поворачива" "ю" "поворачивал" "поворачивай" "поворачивать"  ;

+    vomit_V = mkRegVerb imperfective  firstE "рв" "у" "рвал" "рви" "рвать"  ;

+    walk_V = walk_V ;

+    wash_V = mkRegVerb imperfective  first "мо" "ю" "мыл" "мой" "мыть"  ;

+    wipe_V = mkRegVerb imperfective  first "вытира" "ю" "вытирал" "вытирай" "вытирать"  ;

+

+};

diff --git a/examples/bronzeage/old/SwadeshSpa.gf b/examples/bronzeage/old/SwadeshSpa.gf
new file mode 100644
index 000000000..c7ef810df
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshSpa.gf
@@ -0,0 +1,262 @@
+--# -path=.:../spanish:../common:../abstract:../../prelude:../romance
+
+concrete SwadeshSpa of Swadesh = CatSpa
+  ** open PhonoSpa, MorphoSpa, LangSpa, ParadigmsSpa, BeschSpa, Prelude in {
+
+-- words contributed by Ana Bove, May 2005
+
+  lincat
+    MassN = N ;
+
+  lin
+
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+    all_Det  = {
+      s = \\g,c => prepCase c ++ genForms ["todos los"] ["todas las"] ! g ;
+      n = Pl
+      } ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = {s = \\g,c => prepCase c ++ genForms "pocos" "pocas" ! g ; n = Pl} ;
+    other_Det = {
+      s = \\g,c => prepCase c ++ genForms "otros" "otras" ! g ;
+      n = Pl
+      } ;
+
+    left_Ord = mkOrd (regA "izquierda") ;
+    right_Ord = mkOrd (regA "derecha") ;
+
+  oper
+    mkOrd : A -> Ord ;
+    mkOrd x = {s = \\ag => x.s ! Posit ! AF ag.g ag.n; lock_Ord = <> } ;
+
+  lin
+
+    -- Adverbs
+
+    here_Adv = here_Adv;
+    there_Adv = there_Adv;
+    where_IAdv = where_IAdv;
+    when_IAdv = when_IAdv;
+    how_IAdv = how_IAdv;
+    far_Adv = mkAdv "lejos" ; ----?
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+    at_Prep = dative ;
+    in_Prep = in_Prep ;
+    with_Prep = with_Prep ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+
+    -- Adjectives
+
+     bad_A = bad_A ;
+     big_A = big_A ;
+     black_A = black_A ;
+     cold_A = cold_A ;
+     correct_A = regA "correcto" ;
+     dirty_A = dirty_A ;
+     dry_A = regA "seco" ;
+     dull_A = regA "desafilado" ;
+     full_A = regA "lleno" ;
+     good_A = good_A ;
+     green_A = green_A ;
+     heavy_A = regA "pesado" ;
+     long_A = long_A ;
+     narrow_A = narrow_A ;
+     near_A = regA "cerca" ;
+     new_A = new_A ;
+     old_A = old_A ;
+     red_A = red_A ;
+     rotten_A = regA "podrido" ;
+     round_A = regA "redondo" ;
+     sharp_A = regA "filoso" ; -- afilado, puntiagudo
+     short_A = short_A ;
+     small_A = small_A ;
+     smooth_A = regA "liso" ;	-- suave
+     straight_A = regA "directo" ;
+     thick_A = thick_A ;
+     thin_A = thin_A ;
+     warm_A = warm_A ;
+     wet_A = regA "mojado" ;
+     white_A = white_A ;
+     wide_A = regA "ancho" ;	-- extenso
+     yellow_A = yellow_A ;
+
+     -- Nouns
+
+     animal_N = regN "animal" ;		-- masc (sometimes fem when adj)
+     ashes_N = regN "ceniza" ;
+     back_N = regN "espalda" ;
+     bark_N = regN "corteza" ;
+     belly_N = regN "panza" ;		-- barriga
+     bird_N = bird_N;
+     blood_N = femN (regN "sangre") ;
+     bone_N = regN "hueso" ;
+     breast_N = regN "seno" ;		-- pecho
+     child_N = child_N ;
+     cloud_N = femN (regN "nube") ;
+     day_N = mascN (regN "d�a") ;
+     dog_N = dog_N ;
+     dust_N = regN "polvo" ;
+     ear_N = regN "oreja" ;
+     earth_N = regN "tierra" ;
+     egg_N = regN "huevo" ;
+     eye_N = regN "ojo" ;
+     fat_N = regN "grasa" ;
+     father_N = UseN2 father_N2 ;
+     feather_N = regN "pluma" ;
+     fingernail_N = regN "u�a" ;
+     fire_N = regN "fuego" ;
+     fish_N = fish_N ;
+     flower_N = femN (regN "flor") ;
+     fog_N = regN "niebla" ;
+     foot_N = regN "pie" ;
+     forest_N = regN "bosque" ;
+     fruit_N = fruit_N ;
+     grass_N = regN "pasto" ;		-- hierba, c�sped (masc)
+     guts_N = regN "tripa" ;		-- gut=intestino ---- pl.t. tripas
+     hair_N = regN "cabello" ;		-- pelo
+     hand_N = femN (regN "mano") ;
+     head_N = regN "cabeza" ;
+     heart_N = mkN "coraz�n" "corazones" masculine ;
+     horn_N = regN "cuerno" ;
+     husband_N = regN "marido" ;	-- esposo
+     ice_N = regN "hielo" ;
+     knee_N = regN "rodilla" ;
+     lake_N = lake_N ;
+     leaf_N = regN "hoja" ;
+     leg_N = regN "pierna" ;
+     liver_N = regN "h�gado" ;
+     louse_N = regN "piojo" ;
+     man_N = man_N ;
+     meat_N = meat_N ;
+     moon_N = moon_N ;
+     mother_N = UseN2 mother_N2 ;
+     mountain_N = mountain_N ;
+     mouth_N = regN "boca" ;
+     name_N = regN "nombre" ;
+     neck_N = regN "cuello" ;
+     night_N = femN (regN "noche") ;
+     nose_N = femN (regN "nariz") ;
+     person_N = regN "persona" ;
+     rain_N = regN "lluvia" ;
+     river_N = river_N ;
+     road_N = femN (regN "calle") ;		-- camino
+     root_N = femN (regN "ra�z") ;
+     rope_N = regN "cuerda" ;
+     salt_N = femN (regN "sal") ;
+     sand_N = regN "arena" ;
+     sea_N = sea_N ;
+     seed_N = regN "semilla" ;
+     skin_N = femN (regN "piel") ;	-- fem
+     sky_N = regN "cielo" ;
+     smoke_N = regN "humo" ;
+     snake_N = snake_N ;
+     snow_N = femN (regN "nieve") ;	-- fem
+     star_N = star_N ;
+     stick_N = mkN "bast�n" "bastones" masculine ;		-- palo
+     stone_N = stone_N ;
+     sun_N = sun_N ;
+     tail_N = regN "cola" ;
+     tongue_N = regN "lengua" ;
+     tooth_N = regN "diente" ;
+     tree_N = tree_N ;
+     water_N = water_N ;
+     wife_N = regN "esposa" ;
+     wind_N = regN "viento" ;
+     wing_N = regN "ala" ;
+     woman_N = woman_N ;
+     worm_N = regN "gusano" ;		-- lombriz (fem)
+     year_N = regN "a�o" ;
+
+     -- Verbs
+
+    bite_V2 = dirV2 (verboV (morder_50b "morder")) ;
+     blow_V = regV "soplar" ;
+    breathe_V2 = dirV2 (regV "respirar") ;
+     burn_V = regV "quemar" ;
+     come_V = come_V ;
+    count_V2 = dirV2 (verboV (contar_38b "contar")) ;
+    cut_V2 = dirV2 (regV "cortar") ;
+     die_V = die_V ;
+     dig_V = regV "escarbar" ;
+    drink_V2 = dirV2 (regV "tomar") ;
+    eat_V2 = dirV2 (regV "comer") ;
+     fall_V = verboV (caer_20 "caer") ;
+    fear_V2 = dirV2 (fear_VS) ;
+    fight_V2 = dirV2 (regV "pelear") ;
+     float_V = regV "flotar" ;
+     flow_V = verboV (influir_45 "fluir") ;             -- circular
+     fly_V = regV "volar" ;
+     freeze_V = regV "congelar" ;
+     give_V = dirdirV3 (verboV (dar_27 "dar")) ;
+    hear_V2 = dirV2 (hear_V2) ;
+    hit_V2 = dirV2 (regV "golpear") ;
+    hold_V2 = dirV2 (verboV (tener_4 "tener")) ; 
+    hunt_V2 = dirV2 (regV "cazar") ;
+    kill_V2 = dirV2 (regV "matar") ;
+    know_V2 = dirV2 (know_V2) ;
+     laugh_V = regV "reir" ; ----V re�r_67
+     lie_V = reflV (regV "acostar") ; --  "acostarse"
+     live_V = live_V ;
+     play_V = regV "jugar" ;
+    pull_V2 = dirV2 (regV "tirar") ;
+    push_V2 = dirV2 (regV "empujar") ;
+    rub_V2 = dirV2 (regV "resfregar") ;
+     say_V = say_VS ;
+    scratch_V2 = dirV2 (regV "rascar") ;
+    see_V2 = dirV2 (see_V2) ;
+     sew_V = regV "coser" ;
+     sing_V = regV "cantar" ;
+     sit_V = reflV (regV "sentar") ;
+     sleep_V = sleep_V ;
+    smell_V = verboV (oler_52 "oler") ;
+     spit_V = regV "escupir" ;
+    split_V2 = dirV2 (regV "separar") ; -- dividir,) ;
+    squeeze_V2 = dirV2 (regV "exprimir") ;
+    stab_V2 = dirV2 (regV "apu�alar") ;
+     stand_V = verboV (estar_2 "estar") ; ---- "estar de pie" ;
+    suck_V2 = dirV2 (regV "chupar") ;
+     swell_V = regV "tragar" ;
+     swim_V = regV "nadar" ;
+     think_V = regV "pensar" ;
+    throw_V2 = dirV2 (regV "tirar") ;
+    tie_V2 = dirV2 (regV "atar") ;
+     turn_V = regV "doblar" ;
+     vomit_V = regV "vomitar" ;
+     walk_V = regV "caminar" ;
+    wash_V2 = dirV2 (regV "lavar") ;
+    wipe_V2 = dirV2 (regV "secar") ;
+
+}
diff --git a/examples/bronzeage/old/SwadeshSwe.gf b/examples/bronzeage/old/SwadeshSwe.gf
new file mode 100644
index 000000000..be548b07f
--- /dev/null
+++ b/examples/bronzeage/old/SwadeshSwe.gf
@@ -0,0 +1,252 @@
+--# -path=.:present:prelude
+
+concrete SwadeshSwe of Swadesh = CatSwe
+  ** open MorphoSwe, LangSwe, ParadigmsSwe, IrregSwe, Prelude in {
+
+  lincat
+    MassN = N ;
+
+  lin
+
+    -- Pronouns
+
+    i_NP = i_Pron ;
+    youSg_NP = youSg_Pron ;
+    he_NP = he_Pron ;
+    we_NP = we_Pron ;
+    youPl_NP = youPl_Pron ;
+    they_NP = they_Pron ;
+    whoPl_IP = whoPl_IP ;
+    whoSg_IP = whoSg_IP ;
+    whatPl_IP = whatPl_IP ;
+    whatSg_IP = whatSg_IP ;
+
+    -- Determiners
+
+    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
+    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
+    all_Det  = {s = \\_,_ => "alla" ; n = Pl ; det = DDef Indef} ;
+    many_Det = many_Det ;
+    some_Det = someSg_Det ;
+    few_Det  = {s = \\_,_ => "f�" ; n = Pl ; det = DDef Indef} ;
+    other_Det = {s = \\_,_ => "andra" ; n = Pl ; det = DDef Indef} ;
+
+    left_Ord = {s = "v�nstra" ; isDet = True} ;
+    right_Ord = {s = "h�gra" ; isDet = True} ;
+
+    -- Adverbs
+
+    here_Adv = here_Adv ;
+    there_Adv = there_Adv ;
+    where_IAdv = where_IAdv ;
+    when_IAdv = when_IAdv ;
+    how_IAdv = how_IAdv ;
+    far_Adv = mkAdv "l�ngt" ;
+
+    -- not : Adv ; -- ?
+
+    -- Conjunctions
+
+    and_Conj = and_Conj ;
+
+    -- Prepositions
+
+    at_Prep = ss "vid" ;
+    in_Prep = ss "i" ;
+    with_Prep = ss "med" ;
+
+    -- Numerals
+
+    one_Det = DetSg one_Quant NoOrd ;
+    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
+    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
+    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
+    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;
+
+    -- Adjectives
+
+    bad_A = bad_A ;
+    big_A = big_A ;
+    black_A = black_A ;
+    cold_A = cold_A ;
+    correct_A = regA "riktig" ;
+    dirty_A = dirty_A ;
+    dry_A = regA "torr" ;
+    dull_A = mk2A "sl�" "sl�tt";
+    full_A = regA "full" ;
+    good_A = good_A ;
+    green_A = green_A ;
+    heavy_A = irregA "tung" "tyngre" "tyngst" ;
+    long_A = long_A ;
+    narrow_A = narrow_A ;
+    near_A = mkA "n�ra" "n�ra" "n�ra" "n�ra"
+                       "n�rmare" "n�rmast" "n�rmaste" ;
+    new_A = new_A ;
+    old_A = old_A ;
+    red_A = red_A ;
+    rotten_A = mk3A "rutten" "ruttet" "ruttna" ;
+    round_A = regA "rund" ;
+    sharp_A = regA "vass" ;
+    short_A = short_A ;
+    small_A = small_A ;
+    smooth_A = regA "sl�t" ;
+    straight_A = regA "rak" ;
+    thick_A = thick_A ;
+    thin_A = thin_A ;
+    warm_A = warm_A ;
+    wet_A = regA "v�t" ;
+    white_A = white_A ;
+    wide_A = mk2A "bred" "brett" ;
+    yellow_A = yellow_A ;
+
+
+    -- Nouns
+
+    animal_N = mk2N "djur" "djur" ;
+    ashes_N = mk2N "aska" "askor" ;
+    back_N = mk2N "rygg" "ryggar" ;
+    bark_N = mk2N "bark" "barkar" ;
+    belly_N = mk2N "mage" "magar" ;
+    bird_N = bird_N ;
+    blood_N = mk2N "blod" "blod" ;
+    bone_N = mk2N "ben" "ben" ;
+    breast_N = mk2N "br�st" "br�st" ;
+    child_N = child_N ;
+    cloud_N = mk2N "moln" "moln" ;
+    day_N = mk2N "dag" "dagar" ;
+    dog_N = dog_N ;
+    dust_N = mk2N "damm" "damm" ;
+    ear_N = mkN "�ra" "�rat" "�ron" "�ronen" ;
+    earth_N = mk2N "jord" "jordar" ;
+    egg_N = mk2N "�gg" "�gg" ;
+    eye_N = mkN "�ga" "�gat" "�gon" "�gonen" ;
+    fat_N = mk2N "fett" "fett" ;
+    father_N = (mkN "far" "fadern" "f�der" "f�derna") ;
+--    father_N = UseN2 father_N2 ;
+    feather_N = mk2N "fj�der" "fj�drar" ;
+    fingernail_N = mkN "nagel" "nageln" "naglar" "naglarna";
+    fire_N = mk2N "eld" "eldar" ;
+    fish_N = fish_N ;
+    flower_N = mk2N "blomma" "blommor" ;
+    fog_N = mk2N "dimma" "dimmor" ;
+    foot_N = mk2N "fot" "f�tter" ;
+    forest_N = mk2N "skog" "skogar" ;
+    fruit_N = fruit_N ;
+    grass_N = mk2N "gr�s" "gr�s" ;
+    guts_N = mk2N "in�lva" "in�lvor" ;
+    hair_N = mk2N "h�r" "h�r" ;
+    hand_N = mk2N "hand" "h�nder" ;
+    head_N = mkN "huvud" "huvudet" "huvuden" "huvudena" ;
+    heart_N = mkN "hj�rta" "hj�rtat" "hj�rtan" "hj�rtana" ;
+    horn_N = mk2N "horn" "horn" ;
+    husband_N = (mk2N "make" "makar") ;
+    ice_N = mk2N "is" "isar" ;
+    knee_N = mkN "kn�" "kn�et" "kn�n" "kn�na" ;
+    lake_N = lake_N ;
+    leaf_N = mk2N "l�v" "l�v" ;
+    leg_N = mk2N "ben" "ben" ;
+    liver_N = mkN "lever" "levern" "levrar" "levrarna";
+    louse_N = mkN "lus" "lusen" "l�ss" "l�ssen" ;
+    man_N = man_N ;
+    meat_N = meat_N ;
+    moon_N = moon_N ;
+    mother_N = mkN "mor" "modern" "m�drar" "m�drarna" ;
+--    mother_N = UseN2 mother_N2 ;
+    mountain_N = mountain_N ;
+    mouth_N = mkN "mun" "munnen" "munnar" "munnarna" ;
+    name_N = mk2N "namn" "namn" ;
+    neck_N = mk2N "nacke" "nackar" ;
+    night_N = mk2N "natt" "n�tter" ;
+    nose_N = mk2N "n�sa" "n�sor" ;
+    person_N = mk2N "person" "personer" ;
+    rain_N = mk2N "regn" "regn" ;
+    river_N = river_N ;
+    road_N = mk2N "v�g" "v�gar" ;
+    root_N = mk2N "rot" "r�tter" ;
+    rope_N = mk2N "rep" "rep" ;
+    salt_N = mkN "salt" "saltet" "salter" "salterna";
+    sand_N = mk2N "sand" "sander" ;
+    sea_N = sea_N ;
+    seed_N = mkN "fr�" "fr�et" "fr�n" "fr�na" ;
+    skin_N = mk2N "skinn" "skinn" ;
+    sky_N = mk2N "himmel" "himlar" ;
+    smoke_N = mk2N "r�k" "r�kar" ;
+    snake_N = snake_N ;
+    snow_N = mkN "sn�" "sn�n" "sn�er" "sn�erna" ;
+    star_N = star_N ;
+    stick_N = mk2N "pinne" "pinnar" ;
+    stone_N = stone_N ;
+    sun_N = sun_N ;
+    tail_N = mk2N "svans" "svansar" ;
+    tongue_N = mk2N "tunga" "tungor" ;
+    tooth_N = mk2N "tand" "t�nder" ;
+    tree_N = tree_N ;
+    water_N = water_N ;
+    wife_N = mk2N "fru" "fruar" ;
+    wind_N = mk2N "vind" "vindar" ;
+    wing_N = mk2N "vinge" "vingar" ;
+    woman_N = woman_N ;
+    worm_N = mk2N "mask" "maskar" ;
+    year_N = mk2N "�r" "�r" ;
+
+    -- Verbs
+
+    bite_V2 = dirV2 (bita_V) ;
+    blow_V = mk2V "bl�sa" "bl�ste" ;
+    breathe_V2 = dirV2 (depV (regV "anda")) ;
+    burn_V = brinna_V ; -- FIXME: br�nna?
+    come_V = komma_V ;
+    count_V2 = dirV2 (regV "r�kna") ;
+    cut_V2 = dirV2 (sk�ra_V) ;
+    die_V = d�_V ;
+    dig_V = mk2V "gr�va" "gr�vde" ;
+    drink_V2 = dirV2 (dricka_V) ;
+    eat_V2 = dirV2 (�ta_V) ;
+    fall_V = falla_V ;
+    fear_V2 = dirV2 (regV "frukta") ;
+      -- FIXME: passive forms are very strange
+    fight_V = mkV2 (mkV "sl�ss" "sl�ss" "sl�ss" "slogs" "slagits" "slagen") "med" ;
+    float_V = flyta_V ;
+    flow_V = rinna_V ;
+    fly_V = flyga_V ;
+    freeze_V = frysa_V ;
+    give_V = dirV3 giva_V "till";
+    hear_V2 = dirV2 (mk2V "h�ra" "h�rde") ;
+    hit_V2 = dirV2 (sl�_V) ;
+    hold_V2 = dirV2 (h�lla_V) ;
+    hunt_V2 = dirV2 (regV "jaga") ;
+    kill_V2 = dirV2 (regV "d�da") ;
+    know_V2 = dirV2 (k�nna_V) ;
+    laugh_V = regV "skratta" ;
+    lie_V = ligga_V ;
+    live_V = leva_V ;
+    play_V = mk2V "leka" "lekte" ;
+    pull_V2 = dirV2 (draga_V) ;
+    push_V2 = dirV2 (mk2V "trycka" "tryckte") ;
+    rub_V2 = dirV2 (gnida_V) ;
+    say_V = s�ga_V ;
+    scratch_V2 = dirV2 (regV "klia") ;
+    see_V2 = dirV2 (se_V) ;
+    sew_V = sy_V ;
+    sing_V = sjunga_V ;
+    sit_V = sitta_V ;
+    sleep_V = sova_V ;
+    smell_V = regV "lukta" ;
+    spit_V = regV "spotta" ;
+    split_V2 = dirV2 (klyva_V) ;
+    squeeze_V2 = dirV2 (kl�mma_V) ;
+    stab_V2 = dirV2 (sticka_V) ;
+    stand_V = st�_V ;
+    suck_V2 = dirV2 (suga_V) ;
+    swell_V = sv�lla_V ;
+    swim_V = regV "simma" ;
+    think_V = mk2V "t�nka" "t�nkte" ;
+    throw_V2 = dirV2 (regV "kasta") ;
+    tie_V2 = dirV2 (knyta_V) ;
+    turn_V = v�nda_V ;
+    vomit_V = mk2V "spy" "spydde" ;
+    walk_V = g�_V ;
+    wash_V2 = dirV2 (regV "tv�tta") ;
+    wipe_V2 = dirV2 (regV "torka") ;
+
+}