corrections to German verbs by Hans Leiss

lib/src/german/IrregGer.gf

@@ -15,13 +15,13 @@ in {
   lin backen_u_V =  irregV "backen" "bäckt" "buk" "buke" "gebacken" ;
   lin befehlen_V =  irregV "befehlen" "befiehlt" "befahl" "beföhle" "befähle)" ;
   lin beginnen_V =  irregV "beginnen" "beginnt" "begann" "begönne" "begänne)" ;
-  lin beißen_V =  irregV "beißen" "beißt" "biß" "biße" "gebissen" ;
+  lin beißen_V =  irregV "beißen" "beißt" "biß" "bisse" "gebissen" ;
   lin bergen_V =  irregV "bergen" "birgt" "barg" "bärge" "geborgen" ;
   lin bersten_V =  irregV "bersten" "birst" "barst" "bärste" "geborsten" ;
   lin bewegen_V =  irregV "bewegen" "bewegt" "bewog" "bewöge" "bewogen" ;
   lin biegen_V =  irregV "biegen" "biegt" "bog" "böge" "gebogen" ;
   lin bieten_V =  irregV "bieten" "bietet" "bot" "böte" "geboten" ;
-  lin binden_V =  irregV "binden" "bindt" "band" "bände" "gebunden" ;
+  lin binden_V =  irregV "binden" "bindet" "band" "bände" "gebunden" ;
   lin bitten_V =  irregV "bitten" "bittet" "bat" "bäte" "gebeten" ;
   lin blasen_V =  irregV "blasen" "bläst" "blies" "bliese" "geblasen" ;
   lin bleiben_V =  irregV "bleiben" "bleibt" "blieb" "bliebe" "geblieben" ;
@@ -33,11 +33,9 @@ in {
   lin dingen_V =  irregV "dingen" "dingt" "dingte" "dang" "gedungen" ;
   lin dreschen_V =  irregV "dreschen" "drischt" "drosch" "drösche" "gedroschen" ;
   lin dringen_V =  irregV "dringen" "dringt" "drang" "dränge" "gedrungen" ;
-  lin dürfen_V = M.mkV 
-        "dürfen" "darf" "darfst" "darf" "dürft" "dürf" 
-        "durfte" "durftest" "durften" "durftet"
-        "dürfte" "gedurft" [] 
-        M.VHaben ** {lock_V = <>} ;
+  lin dürfen_V = lin V (M.mkV "dürfen" "darf" "darfst" "darf" "dürft" "dürf" 
+                          "durfte" "durftest" "durften" "durftet" "dürfte" "gedurft" [] 
+                          M.VHaben) ; 
   lin empfehlen_V =  irregV "empfehlen" "empfiehlt" "empfahl" 
     "empfähle" "empfohlen" ;
   lin empfehlen_o_V =  irregV "empfehlen" "empfiehlt" "empfahl" 
@@ -50,7 +48,7 @@ in {
   lin fallen_V =  irregV "fallen" "fällt" "fiel" "fiele" "gefallen" ;
   lin fangen_V =  irregV "fangen" "fängt" "fing" "finge" "gefangen" ;
   lin fechten_V =  irregV "fechten" "fechtet" "focht" "föchte" "gefochten" ;
-  lin finden_V =  irregV "finden" "findt" "fand" "fände" "gefunden" ;
+  lin finden_V =  irregV "finden" "findet" "fand" "fände" "gefunden" ;
   lin flechten_V =  irregV "flechten" "flicht" "flocht" "flöchte" "geflochten" ;
   lin fliegen_V =  irregV "fliegen" "fliegt" "flog" "flöge" "geflogen" ;
   lin fliehen_V =  irregV "fliehen" "flieht" "floh" "flöhe" "geflohen" ;
@@ -90,11 +88,9 @@ in {
   lin klingen_V =  irregV "klingen" "klingt" "klang" "klänge" "geklungen" ;
   lin kneifen_V =  irregV "kneifen" "kneift" "kniff" "kniffe" "gekniffen" ;
   lin kommen_V =  irregV "kommen" "kommt" "kam" "käme" "gekommen" ;
-  lin können_V =  M.mkV 
-        "können" "kann" "kannst" "kann" "könnt" "könn" 
-        "konnte" "konntest" "konnten" "konntet"
-        "könnte" "gekonnt" [] 
-        M.VHaben  ** {lock_V = <>} ;
+  lin können_V =  lin V (M.mkV "können" "kann" "kannst" "kann" "könnt" "könn" 
+                           "konnte" "konntest" "konnten" "konntet"
+                           "könnte" "gekonnt" [] M.VHaben) ;
   lin kriechen_V =  irregV "kriechen" "kriecht" "kroch" "kröche" "gekrochen" ;
   lin küren_V =  irregV "küren" "kürt" "kürte" "kor" "gekürt" ;
   lin laden_V =  irregV "laden" "lädt" "lud" "lüde" "geladen" ;
@@ -110,16 +106,12 @@ in {
   lin melken_V =  irregV "melken" "milkt" "molk" "mölke" "gemolken" ;
   lin messen_V =  irregV "messen" "mißt" "maß" "mäße" "gemessen" ;
   lin mißlingen_V =  irregV "mißlingen" "mißlingt" "mißlang" "mißlungen" "mißlänge" ;
-  lin mögen_V =  M.mkV 
-        "mögen" "mag" "magst" "mag" "mögt" "mög" 
-        "mochte" "mochtest" "mochten" "mochtet"
-        "möchte" "gemocht" [] 
-        M.VHaben ** {lock_V = <>} ;
-  lin müssen_V = M.mkV 
-        "müssen" "muß" "mußt" "muß" "müßt" "müß" 
-        "mußte" "mußtest" "mußten" "mußtet"
-        "müßte" "gemußt" [] 
-        M.VHaben ** {lock_V = <>} ;
+  lin mögen_V =  lin V (M.mkV "mögen" "mag" "magst" "mag" "mögt" "mög" 
+                          "mochte" "mochtest" "mochten" "mochtet"
+                          "möchte" "gemocht" [] M.VHaben) ;
+  lin müssen_V = lin V (M.mkV "müssen" "muß" "mußt" "muß" "müßt" "müß" 
+                          "mußte" "mußtest" "mußten" "mußtet"
+                          "müßte" "gemußt" [] M.VHaben) ;
   lin nehmen_V = mk6V "nehmen" "nimmt" "nimm" "nahm" "nähme" "genommen" ;
   lin nennen_V =  irregV "nennen" "nennt" "nannte" "nennte" "genannt" ;
   lin pfeifen_V =  irregV "pfeifen" "pfeift" "pfiff" "pfiffe" "gepfiffen" ;
@@ -155,7 +147,7 @@ in {
   lin schlingen_V =  irregV "schlingen" "schlingt" "schlang" "schlünge" "geschlungen" ;
   lin schmeißen_V =  irregV "schmeißen" "schmeißt" "schmiß" "schmiße" "geschmissen" ;
   lin schmelzen_V =  irregV "schmelzen" "schmilzt" "schmolz" "schmölze" "geschmolzen" ;
-  lin schneiden_V =  irregV "schneiden" "schneidt" "schnitt" "schnitte" "geschnitten" ;
+  lin schneiden_V =  irregV "schneiden" "schneidet" "schnitt" "schnitte" "geschnitten" ;
   lin schreiben_V =  irregV "schreiben" "schreibt" "schrieb" "schriebe" "geschrieben" ;
   lin schreien_V =  irregV "schreien" "schreit" "schrie" "schrie" "geschrien" ;
   lin schreiten_V =  irregV "schreiten" "schreitet" "schritt" "schritte" "geschritten" ;
@@ -168,17 +160,15 @@ in {
   lin schwören_V =  irregV "schwören" "schwört" "schwor" "schwüre" "geschworen" ;
   lin sehen_V =  irregV "sehen" "sieht" "sah" "sähe" "gesehen" ;
   lin sein_V =  irregV "sein" "ist" "war" "wäre" "gewesen" ;
-  lin senden_V =  irregV "senden" "sendt" "sandte" "sandte" "gesandt" ;
-  lin sieden_V =  irregV "sieden" "siedt" "sott" "sotte" "gesotten" ;
+  lin senden_V =  irregV "senden" "sendet" "sandte" "sandte" "gesandt" ;
+  lin sieden_V =  irregV "sieden" "siedet" "sott" "sotte" "gesotten" ;
   lin singen_V =  irregV "singen" "singt" "sang" "sänge" "gesungen" ;
   lin sinken_V =  irregV "sinken" "sinkt" "sank" "sänke" "gesunken" ;
   lin sinnen_V =  irregV "sinnen" "sinnt" "sann" "sänne" "gesonnen" ;
   lin sitzen_V =  irregV "sitzen" "sitzt" "saß" "säße" "gesessen" ;
-  lin sollen_V =  M.mkV 
-        "sollen" "soll" "sollst" "soll" "sollt" "soll" 
-        "sollte" "solltest" "sollten" "solltet"
-        "sollte" "gesollt" [] 
-        M.VHaben ** {lock_V = <>} ;
+  lin sollen_V =  lin V (M.mkV "sollen" "soll" "sollst" "soll" "sollt" "soll" 
+                           "sollte" "solltest" "sollten" "solltet"
+                           "sollte" "gesollt" [] M.VHaben) ;
 
   lin speien_V =  irregV "speien" "speit" "spie" "spie" "gespien" ;
   lin spinnen_V =  irregV "spinnen" "spinnt" "spann" "spänne" "gesponnen" ;
@@ -204,8 +194,13 @@ in {
   lin treten_V =  irregV "treten" "tritt" "trat" "träte" "getreten" ;
   lin trinken_V =  irregV "trinken" "trinkt" "trank" "tränke" "getrunken" ;
   lin trügen_V =  irregV "trügen" "trügt" "trog" "tröge" "getrogen" ;
-  lin tun_V =  irregV "tun" "tut" "tat" "täte" "getan" ;
+--  lin tun_V =  irregV "tun" "tut" "tat" "täte" "getan" ;
+  lin tun_V = lin V (M.mkV -- HL
+                       "tun" "tue" "tust" "tut" "tut" "tue" 
+                       "tat" "tatest" "taten" "tatet"
+                       "täte" "getan" [] M.VHaben) ;
   lin verderben_V =  irregV "verderben" "verdirbt" "verdarb" "verdarbe" "verdorben" ;
+  lin vergessen_V =  irregV "vergessen" "vergißt" "vergaß" "vergäße" "vergessen" ;
   lin verlieren_V =  irregV "verlieren" "verliert" "verlor" "verlöre" "verloren" ;
   lin wachsen_V =  irregV "wachsen" "wächst" "wuchs" "wüchse" "gewachsen" ;
   lin wägen_V =  irregV "wägen" "wägt" "wog" "woge" "gewogen" ;
@@ -215,24 +210,18 @@ in {
   lin weisen_V =  irregV "weisen" "weist" "wies" "wiese" "gewiesen" ;
   lin wenden_V =  irregV "wenden" "wendt" "wandte" "wandte" "gewandt" ;
   lin werben_V =  irregV "werben" "wirbt" "warb" "würbe" "geworben" ;
-  lin werden_V = M.mkV 
-        "werden" "werde" "wirst" "wird" "werdet" "werd" 
-        "wurde" "wurdest" "wurden" "wurdet"
-        "würde" "geworden" [] 
-        M.VHaben ** {lock_V = <>} ;
+  lin werden_V = lin V (M.mkV "werden" "werde" "wirst" "wird" "werdet" "werd" 
+                          "wurde" "wurdest" "wurden" "wurdet"
+                          "würde" "geworden" [] M.VHaben) ;
   lin werfen_V =  irregV "werfen" "wirft" "warf" "würfe" "geworfen" ;
   lin wiegen_V =  irregV "wiegen" "wiegt" "wog" "wöge" "gewogen" ;
   lin winden_V =  irregV "winden" "windt" "wand" "wände" "gewunden" ;
-  lin wissen_V =  M.mkV 
-        "wissen" "weiß" "weißt" "weiß" "wisst" "wisse" 
-        "wusste" "wusstest" "wussten" "wusstet"
-        "wüsste" "gewusst" [] 
-        M.VHaben ** {lock_V = <>} ;
-  lin wollen_V =  M.mkV 
-        "wollen" "will" "willst" "will" "wollt" "woll" 
-        "wollte" "wolltest" "wollten" "wolltet"
-        "wollte" "gewollt" [] 
-        M.VHaben ** {lock_V = <>} ;
+  lin wissen_V =  lin V (M.mkV "wissen" "weiß" "weißt" "weiß" "wisst" "wisse" 
+                           "wusste" "wusstest" "wussten" "wusstet"
+                           "wüsste" "gewusst" [] M.VHaben) ;
+  lin wollen_V =  lin V (M.mkV "wollen" "will" "willst" "will" "wollt" "woll" 
+                           "wollte" "wolltest" "wollten" "wolltet"
+                           "wollte" "gewollt" [] M.VHaben) ;
 
 
   lin wringen_V =  irregV "wringen" "wringt" "wrang" "wränge" "gewrungen" ;

lib/src/german/IrregGerAbs.gf

@@ -173,6 +173,7 @@ abstract IrregGerAbs = Cat ** {
   fun trügen_V : V ;
   fun tun_V : V ;
   fun verderben_V : V ;
+  fun vergessen_V : V ;
   fun verlieren_V : V ;
   fun wachsen_V : V ;
   fun wägen_V : V ;

lib/src/german/LexiconGer.gf

@@ -1,9 +1,10 @@
---# -path=.:../common:../abstract:../../prelude
+--# -path=.:../common:../abstract:../prelude
 
 -- work by Aarne Ranta, Andreas Priesnitz, and Henning Thielemann.
+-- a few corrections by Hans Leiß, and using the better IrregGer 
 
 concrete LexiconGer of Lexicon = CatGer ** 
-  open Prelude, ParadigmsGer, (Mo = MorphoGer), IrregGer in {
+  open Prelude, ParadigmsGer, (Mo = MorphoGer), (Irreg = IrregGer) in {
 
 flags 
     coding=utf8 ;
@@ -22,13 +23,13 @@ lin
   bad_A = regA "schlecht" ;
   bank_N = reg2N "Bank" "Banken" feminine ;
   beautiful_A = regA "schön" ;
-  become_VA = mkVA IrregGer.werden_V ;
+  become_VA = mkVA Irreg.werden_V ;
   beer_N = reg2N "Bier" "Biere" neuter ;
   beg_V2V = mkV2V (mk6V "bitten" "bittet" "bitte" "bat" "bäte" "gebeten") accPrep ;
   big_A = mk3A "groß" "größer" "größte" ;
   bike_N = reg2N "Fahrrad" "Fahrräder" neuter ;
   bird_N = reg2N "Vogel" "Vögel" masculine ;
-  black_A = regA "schwarz" ;
+  black_A = mk3A "schwarz" "schwärzer" "schwärzeste" ; 
   blue_A = regA "blau";
   boat_N = reg2N "Boot" "Boote" neuter ;
   book_N = reg2N "Buch" "Bücher" neuter ;
@@ -36,8 +37,7 @@ lin
   boss_N = reg2N "Chef" "Chefs" masculine ; ----
   boy_N = reg2N "Junge" "Jungen" masculine ;
   bread_N = reg2N "Brot" "Brote" neuter ;
-  break_V2 = dirV2 
-    (irregV "zerschlagen" "zerschlägt" "zerschlug" "zerschlüge" "zerschlagen") ;
+  break_V2 = dirV2 (fixprefixV "zer" Irreg.schlagen_V) ;
   broad_A = regA "breit" ;
   brother_N2 = mkN2 (reg2N "Bruder" "Brüder" masculine)  von_Prep ;
   brown_A = regA "braun" ;
@@ -56,7 +56,7 @@ lin
   city_N = reg2N "Stadt" "Städte" feminine ;
   clean_A = regA "rein" ;
   clever_A = mk3A "klug" "klüger" "klügste" ;
-  close_V2 = dirV2 (irregV "schließen" "schließt" "schloß" "schlösse" "geschlossen") ;
+  close_V2 = dirV2 Irreg.schließen_V ;
   coat_N = mkN "Jacke" ;
   cold_A = regA "kalt" ;
   come_V = seinV (mk6V "kommen" "kommt" "komm" "kam" "käme" "gekommen") ;
@@ -64,25 +64,25 @@ lin
   country_N = reg2N "Land" "Länder" neuter ;
   cousin_N = reg2N "Vetter" "Vetter" masculine ; --- Kusine
   cow_N = reg2N "Kuh" "Kühe" feminine ;
-  die_V = seinV (irregV "sterben" "stirbt" "starb" "stürbe" "gestorben") ;
+  die_V = seinV Irreg.sterben_V ;
   distance_N3 = mkN3 (mkN "Entfernung") von_Prep zu_Prep ;
   dirty_A = regA "schmutzig" ;
-  do_V2 = dirV2 (irregV "tun" "tut" "tat" "täte" "getan") ;
+  do_V2 = dirV2 Irreg.tun_V ;
   doctor_N = reg2N "Arzt" "Ärzte" masculine ;
   dog_N = mkN "Hund" ;
   door_N = reg2N "Tür" "Türen" feminine ;
-  drink_V2 = dirV2 (irregV "trinken" "trinkt" "trank" "tränke" "getrunken") ;
+  drink_V2 = dirV2 Irreg.trinken_V ;
   easy_A2V = mkA2V (regA "leicht") (mkPrep "für" accusative) ;
-  eat_V2 = dirV2 (irregV "essen" "ißt" "aß" "äße" "gegessen") ;
-  empty_A = regA "leer" ; ---- check infl
+  eat_V2 = dirV2 Irreg.essen_V ;
+  empty_A = mk3A "leer" "leerer" "leereste" ; ---- infl still wrong in Posit
   enemy_N = mkN "Feind" ; 
   factory_N = mkN "Fabrik" "Fabriken" feminine ;
   father_N2 = mkN2 (reg2N "Vater" "Väter" masculine) von_Prep ;
   fear_VS = mkVS (regV "fürchten") ;
-  find_V2 = dirV2 (irregV "finden" "findet" "fand" "fände" "gefunden") ;
+  find_V2 = dirV2 Irreg.finden_V ;
   fish_N = mkN "Fisch" ;
   floor_N = reg2N "Fußboden" "Fußböden" masculine ;
-  forget_V2 = dirV2 (irregV "vergessen" "vergißt" "vergaß" "vergäße" "vergessen") ;
+  forget_V2 = dirV2 Irreg.vergessen_V ; 
   fridge_N = reg2N "Kühlschrank" "Kühlschränke" masculine ;
   friend_N = mkN "Freund" ;
   fruit_N = reg2N "Frucht" "Früchte" feminine ;
@@ -92,7 +92,7 @@ lin
   glove_N = mkN "Handschuh" ;
   gold_N = reg2N "Gold" "Golde" neuter ; ---- infl
   good_A = mk3A "gut" "besser" "beste" ;
-  go_V = seinV (irregV "gehen" "geht" "ging" "ginge" "gegangen") ;
+  go_V = seinV Irreg.gehen_V ;
   green_A = regA "grün" ;
   harbour_N = reg2N "Hafen" "Häfen" masculine ;
   hate_V2 = dirV2 (regV "hassen") ;
@@ -106,21 +106,21 @@ lin
   important_A = regA "wichtig" ;
   industry_N = mkN "Industrie" ;
   iron_N = reg2N "Eisen" "Eisen" neuter ;
-  jump_V = seinV (irregV "springen" "springt" "sprang" "spränge" "gesprungen") ;
+  jump_V = seinV Irreg.springen_V ;
   king_N = mkN "König" ;
-  know_V2 = dirV2 (irregV "kennen" "kennt" "kannte" "kännte" "gekannt") ; ---- infl
-  know_VQ = mkVQ wissen_V ;
-  know_VS = mkVS wissen_V ;
+  know_V2 = dirV2 Irreg.kennen_V ; 
+  know_VQ = mkVQ Irreg.wissen_V ;
+  know_VS = mkVS Irreg.wissen_V ;
   lake_N = reg2N "See" "Seen" masculine ; --- infl
   lamp_N = mkN "Lampe";
   learn_V2 = dirV2 (regV "lernen") ;
   leather_N = reg2N "Leder" "Leder" neuter ;
-  leave_V2 = dirV2 (irregV "verlassen" "verläßt" "verließ" "verließe" "verlassen") ;
-  like_V2 = dirV2 IrregGer.mögen_V ;
+  leave_V2 = dirV2 (fixprefixV "ver" Irreg.lassen_V) ;
+  like_V2 = dirV2 Irreg.mögen_V ;
   listen_V2 = prepV2 (prefixV "zu" (regV "hören")) datPrep ; ---- dat
   live_V = regV "leben" ;
   long_A = mk3A "lang" "länger" "längste" ;
-  lose_V2 = dirV2 (irregV "verlieren" "verliert" "verlor" "verlöre" "verloren") ;
+  lose_V2 = dirV2 Irreg.verlieren_V ;
   love_N = mkN "Liebe" ;
   love_V2 = dirV2 (regV "lieben") ;
   man_N = reg2N "Mann" "Männer" masculine ;
@@ -141,7 +141,7 @@ lin
   open_V2 = dirV2 (regV "öffnen") ;
   paint_V2A = mkV2A (regV "malen") accPrep ;
   paper_N = reg2N "Papier" "Papiere" neuter ;
-  paris_PN = mkPN "Paris" "Paris" ;
+  paris_PN = mkPN "Paris" ; -- neuter ;
   peace_N = mk6N "Friede" "Frieden" "Frieden" "Friedens" "Frieden" "Frieden" masculine ;
   pen_N = mkN "Bleistift" ; ----
   planet_N = reg2N "Planet" "Planeten" masculine ;
@@ -154,7 +154,7 @@ lin
   queen_N = reg2N "Königin" "Königinnen" feminine ;
   radio_N = reg2N "Radio" "Radios" neuter ; ----
   rain_V0 = mkV0 (regV "regnen") ;
-  read_V2 = dirV2 (irregV "lesen" "liest" "las" "läse" "gelesen") ;
+  read_V2 = dirV2 Irreg.lesen_V ;
   red_A = regA "rot" ;
   religion_N = mkN "Religion" ;
   restaurant_N = reg2N "Restaurant" "Restaurants" neuter ;
@@ -162,13 +162,13 @@ lin
   rock_N = mkN "Stein" ;
   roof_N = reg2N "Dach" "Dächer" neuter ;
   rubber_N = reg2N "Gummi" "Gummis" neuter ;
-  run_V = seinV (irregV "laufen" "läuft" "lief" "liefe" "gelaufen") ;
+  run_V = seinV Irreg.laufen_V ;
   say_VS = mkVS (regV "sagen") ;
   school_N = mkN "Schule";
   science_N = reg2N "Wissenschaft" "Wissenschaften" feminine ;
   sea_N = reg2N "Meer" "Meere" neuter ;
   seek_V2 = dirV2 (regV "suchen") ;
-  see_V2 = dirV2 (irregV "sehen" "sieht" "sah" "sähe" "gesehen") ;
+  see_V2 = dirV2 Irreg.sehen_V ;
   sell_V3 = accdatV3 (no_geV (regV "verkaufen")) ;
   send_V3 = accdatV3 (regV "schicken") ;
   sheep_N = reg2N "Schaf" "Schafe" neuter ;
@@ -179,16 +179,16 @@ lin
   short_A =  mk3A "kurz" "kürzer" "kürzeste" ;
   silver_N = reg2N "Silber" "Silber" neuter ; ---- infl
   sister_N = reg2N "Schwester" "Schwestern" feminine ;
-  sleep_V = irregV "schlafen" "schläft" "schlief" "schliefe" "geschlafen" ;
+  sleep_V = Irreg.schlafen_V ;
   small_A = regA "klein" ;
   snake_N = mkN "Schlange" ;
   sock_N = reg2N "Strumpf" "Strümpfe" masculine ;
   song_N = reg2N "Lied" "Lieder" neuter ;
-  speak_V2 = dirV2 (irregV "sprechen" "spricht" "sprach" "spräche" "gesprochen") ;
+  speak_V2 = dirV2 Irreg.sprechen_V ;
   star_N = mkN "Sterne" ;
   steel_N = mkN "Stahl" ;
   stone_N = mkN "Stein" ;
-  stop_V = seinV (irregV "halten" "hält" "hielt" "hielte" "gehalten") ;
+  stop_V = seinV Irreg.halten_V ;
   stove_N = mkN "Herd" ;
   student_N = reg2N "Student" "Studenten" masculine ;
   stupid_A = mk3A "dumm" "dümmer" "dümmste" ; ----
@@ -203,7 +203,7 @@ lin
   thick_A = regA "dick" ;
   thin_A = regA "dünn" ;
   train_N = reg2N "Zug" "Züge" masculine  ;
-  travel_V = regV "reisen" ;
+  travel_V = seinV (regV "reisen") ; 
   tree_N = reg2N "Baum" "Bäume" masculine ;
   ----  trousers_N = mkN "trousers" ; ---- pl t !
   ugly_A = regA "häßlich" ;
@@ -212,19 +212,20 @@ lin
   university_N = reg2N "Universität" "Universitäten" feminine  ;
   village_N = reg2N "Dorf" "Dörfer" neuter ;
   wait_V2 = prepV2 (regV "warten") (mkPrep "auf" accusative) ;
-  walk_V = seinV (irregV "gehen" "geht" "ging" "ginge" "gegangen") ;
+  walk_V = seinV Irreg.gehen_V ;
   warm_A = mk3A "warm" "wärmer" "wärmste" ;
   war_N = mkN "Krieg" ;
-  watch_V2 = dirV2 (prefixV "an" (regV "schauen")) ;
+--  watch_V2 = prepV2 (regV "schauen") (mkPrep "an" accusative) ; -- an die Wand schauen
+  watch_V2 = dirV2 (prefixV "an" (regV "schauen")) ;              -- die Wand anschauen
   water_N = reg2N "Wasser" "Wasser" neuter ;
   white_A = regA "weiß" ;
   window_N = reg2N "Fenster" "Fenster" neuter ;
   wine_N = mkN "Wein" ;
-  win_V2 = dirV2 (irregV "gewinnen" "gewinnt" "gewann" "gewänne" "gewonnen") ;
+  win_V2 = dirV2 Irreg.gewinnen_V ;
   woman_N = reg2N "Frau" "Frauen" feminine ;
   wonder_VQ = mkVQ (reflV (regV "wundern") accusative) ;
   wood_N = reg2N "Holz" "Hölzer" neuter ;
-  write_V2 = dirV2 (irregV "schreiben" "schreibt" "schrieb" "schriebe" "geschrieben") ;
+  write_V2 = dirV2 Irreg.schreiben_V ;
   yellow_A = regA "gelb" ;
   young_A = mk3A "jung" "jünger" "jüngste" ;
   left_Ord = Mo.mkOrd (regA "link") ;
@@ -275,7 +276,7 @@ lin
   horn_N = mkN "Horn" "Hörner" neuter ;
   husband_N = mkN "Ehemann" "Ehemänner" masculine ;
   ice_N = mkN "Eis" "Eise" neuter ;
-  knee_N = mkN "Knie" "Knien" neuter ;
+  knee_N = mkN "Knie" "Kniee" neuter ;
   leaf_N = reg2N "Blatt" "Blätter" neuter ;
   leg_N = mkN "Bein" "Beine" neuter ;
   liver_N = mkN "Leber" "Lebern" feminine ;
@@ -306,58 +307,57 @@ lin
   wing_N = reg2N "Flügel" "Flügel" masculine ;
   worm_N = mkN "Wurm" "Würmer" masculine ;
   year_N = mkN "Jahr" "Jahre" neuter ;
-  blow_V = regV "blasen" ;
+  blow_V = Irreg.blasen_V ; 
   breathe_V = regV "atmen" ;
-  burn_V = regV "brennen" ;
-  dig_V = regV "graben" ;
-  fall_V = regV "fallen" ;
-  float_V = regV "treiben" ;
-  flow_V = regV "fließen" ;
-  fly_V = regV "fliegen" ;
-  freeze_V = regV "frieren" ;
-  give_V3 = accdatV3 (irregV "geben" "gibt" "gab" "gäbe" "gegeben") ;
+  burn_V = Irreg.brennen_V ; 
+  dig_V = Irreg.graben_V ;
+  fall_V = seinV (Irreg.fallen_V) ; 
+  float_V = seinV (Irreg.treiben_V) ; 
+  flow_V = seinV (Irreg.fließen_V) ; 
+  fly_V = seinV (Irreg.fliegen_V) ; 
+  freeze_V = Irreg.frieren_V ; 
+  give_V3 = accdatV3 Irreg.geben_V ;
   laugh_V = regV "lachen" ;
-  lie_V = regV "lügen" ;
+  lie_V = Irreg.lügen_V ; 
   play_V = regV "spielen" ;
   sew_V = regV "nähen" ;
-  sing_V = regV "singen" ;
-  sit_V = irregV "sitzen" "sitzt" "saß" "säße" "gesessen" ;
-  smell_V = regV "riechen" ;
+  sing_V = Irreg.singen_V ; 
+  sit_V = Irreg.sitzen_V ;
+  smell_V = Irreg.riechen_V ; 
   spit_V = regV "spucken" ;
-  stand_V = regV "stehen" ;
+  stand_V = Irreg.stehen_V ; 
   swell_V = prefixV "an" (regV "schwellen") ;
-  swim_V = regV "schwimmen" ;
-  think_V = regV "denken" ;
+  swim_V = seinV (Irreg.schwimmen_V) ; 
+  think_V = Irreg.denken_V ; 
   turn_V = regV "drehen" ;
   vomit_V = regV "kotzen" ;
-
-  bite_V2 = dirV2 (irregV "beißen" "beißt" "biss" "bisse" "gebissen") ;
+  bite_V2 = dirV2 Irreg.beißen_V ;
   count_V2 = dirV2 (regV "zählen") ;
-  cut_V2 = dirV2 (irregV "schneiden" "schneidet" "schnitt" "schnitte" "geschnitten") ;
+  cut_V2 = dirV2 Irreg.schneiden_V ;
   fear_V2 = dirV2 (regV "fürchten") ;
-  fight_V2 = dirV2 (regV "bekämpfen") ;
-  hit_V2 = dirV2 (irregV "schlagen" "schlägt" "schlug" "schlüge" "geschlagen") ;
-  hold_V2 = dirV2 (irregV "halten" "hält" "hielt" "hielte" "gehalten") ;
+  fight_V2 = dirV2 (no_geV (regV "bekämpfen")) ; 
+  hit_V2 = dirV2 Irreg.schlagen_V ;
+  hold_V2 = dirV2 Irreg.halten_V ;
   hunt_V2 = dirV2 (regV "jagen") ;
   kill_V2 = dirV2 (regV "töten") ;
-  pull_V2 = dirV2 (irregV "ziehen" "zieht" "zog" "zöge" "gezogen") ;
-  push_V2 = dirV2 (irregV "schieben" "schiebt" "schub" "schübe" "geschoben") ;
-  rub_V2 = dirV2 (irregV "reiben" "reibt" "rieb" "riebe" "gerieben") ;
+  pull_V2 = dirV2 Irreg.ziehen_V ;
+  push_V2 = dirV2 Irreg.schieben_V ; -- schob, schöbe 
+  rub_V2 = dirV2 Irreg.reiben_V ;
   scratch_V2 = dirV2 (regV "kratzen") ;
   split_V2 = dirV2 (prefixV "auf" (regV "teilen")) ;
   squeeze_V2 = dirV2 (regV "pressen") ;
-  stab_V2 = dirV2 (irregV "stechen" "sticht" "stach" "stäche" "gestochen") ;
+  stab_V2 = dirV2 Irreg.stechen_V ;
   suck_V2 = dirV2 (regV "saugen") ;
-  throw_V2 = dirV2 (irregV "werfen" "wirft" "warf" "würfe" "geworfen") ;
-  tie_V2 = dirV2 (irregV "binden" "bindet" "band" "bände" "gebunden") ;
-  wash_V2 = dirV2 (irregV "waschen" "wäscht" "wusch" "wüsche" "gewaschen") ;
+  throw_V2 = dirV2 Irreg.werfen_V ;
+  tie_V2 = dirV2 Irreg.binden_V ;
+  wash_V2 = dirV2 Irreg.waschen_V ;
   wipe_V2 = dirV2 (regV "wischen") ;
 
   grammar_N = reg2N "Grammatik" "Grammatiken" feminine ;
   language_N = mkN "Sprache" ;
   rule_N = reg2N "Regel" "Regeln" feminine ;
 
-    john_PN = regPN "Johann" ;
+    john_PN = mkPN "Johann" ; -- should be: masculine ;
     question_N = mkN "Frage" ;
     ready_A = regA "fertig" ;
     reason_N = reg2N "Grund" "Gründe" masculine ;