Danish lexicon and verbs complete, but inflection has to be verified

lib/resource-1.0/danish/IdiomDan.gf

@@ -9,13 +9,13 @@ concrete IdiomDan of Idiom = CatDan **
 
     ExistNP np = 
       mkClause "det" (agrP3 neutrum Sg) (insertObj 
-        (\\_ => np.s ! accusative) (predV (depV finne_V))) ;
+        (\\_ => np.s ! accusative) (predV (depV finde_V))) ;
 
     ExistIP ip = {
       s = \\t,a,p => 
             let 
               cls = 
-               (mkClause "det" (agrP3 neutrum Sg) (predV (depV finne_V))).s ! t ! a ! p ;
+               (mkClause "det" (agrP3 neutrum Sg) (predV (depV finde_V))).s ! t ! a ! p ;
               who = ip.s ! accusative
             in table {
               QDir   => who ++ cls ! Inv ;

lib/resource-1.0/danish/IrregDan.gf

@@ -1,72 +1,74 @@
 --# -path=.:../scandinavian:../common:../abstract:../../prelude
 
--- see: http://frodo.bruderhof.com/norskklassen/commonverbs.htm
+-- http://users.cybercity.dk/~nmb3879/danishgram3.html
 
-concrete IrregDan of IrregDanAbs = CatDan ** open ParadigmsDan in {
+concrete IrregDan of IrregDanAbs = CatDan ** open Prelude, ParadigmsDan in {
 
   flags optimize=values ;
 
-  lin be_V = mkV "be" "ber" "bes" "bad" "bedt" "be" ;
-  lin bite_V = irregV "bite" (variants {"bet" ; "beit"}) "bitt" ;
-  lin bli_V = irregV "bli" (variants {"ble" ; "blei"}) "blitt" ;
-  lin brenne_V = irregV "brenne" (variants {"brant" ; "brente"}) "brent" ;
-  lin bringe_V = irregV "bringe" "brakte" "brakt" ;
-  lin burde_V = irregV "burde" "burde" "burdet" ;
-  lin bære_V = irregV "bære" "bar" "båret" ;
-  lin dra_V = mkV "dra" "drar" "dras" "drog" (variants {"dradd" ; "dratt"}) "dra" ;
-  lin drikke_V = irregV "drikke" "drakk" "drukket" ;
-  lin drive_V = irregV "drive" (variants {"drev" ; "dreiv"}) "drevet" ;
-  lin dø_V = irregV "dø" (variants {"dødde" ; "døde"}) "dødd" ;
-  lin eie_V = irregV "eie" (variants {"eide" ; "åtte"}) (variants {"eid" ; "ått"}) ;
-  lin falle_V = irregV "falle" "falt" "falt" ;
-  lin finne_V = irregV "finne" "fant" "funnet" ;
-  lin fly_V = irregV "fly" (variants {"fløy" ; "flaug"}) (variants {"fløyet";"flydd"}) ;
-  lin flyte_V = irregV "flyte" (variants {"fløte" ; "flaut"}) "flytt" ;
-  lin foretrekke_V = irregV "foretrekke" "foretrakk" "foretrukket" ;
-  lin forlate_V = irregV "forlate" "forlot" "forlatt" ;
-  lin forstå_V = irregV "forstå" "forstod" "forstått" ;
-  lin fortelle_V = irregV "fortelle" "fortalte" "fortalt" ;
-  lin fryse_V = irregV "fryse" "frøs" "frosset" ;
-  lin få_V = irregV "få" "fikk" "fått" ;
-  lin gi_V = irregV "gi" "gav" "gitt" ;
-  lin gjelde_V = irregV "gjelde" (variants {"gjaldt" ; "galdt"}) "gjeldt" ;
-  lin gjøre_V = irregV "gjøre" "gjorde" "gjort" ;
-  lin gni_V = irregV "gni" (variants {"gned" ; "gnei" ; "gnidde"}) "gnidd" ;
-  lin gå_V = irregV "gå" "gikk" "gått" ;
-  lin ha_V = irregV "ha" "hadde" "hatt" ;
-  lin hente_V = irregV "hente" "hentet" "hendt" ;
-  lin hete_V = irregV "hete" (variants {"het" ; "hette"}) "hett" ;
-  lin hjelpe_V = irregV "hjelpe" "hjalp" "hjulpet" ;
-  lin holde_V = irregV "holde" "holdt" "holdt" ;
-  lin komme_V = irregV "komme" "kom" "kommet" ;
-  lin kunne_V = irregV "kunne" "kunne" "kunnet" ;
-  lin la_V = irregV "la" "lot" "latt" ;
-  lin legge_V = irregV "legge" "la" "lagt" ;
-  lin ligge_V = irregV "ligge" "lå" "ligget" ;
-  lin løpe_V = irregV "løpe" "løp" (variants {"løpt" ; "løpet"}) ;
-  lin måtte_V = irregV "måtte" "måtte" "måttet" ;
-  lin renne_V = irregV "renne" "rant" "rent" ;
-  lin se_V = mkV "se" "ser" "ses" "så" "sett" "se" ;
-  lin selge_V = irregV "selge" "solgte" "solgt" ;
-  lin sette_V = irregV "sette" "satte" "satt" ;
-  lin si_V = irregV "si" "sa" "sagt" ;
-  lin sitte_V = irregV "sitte" "satt" "sittet" ;
-  lin skjære_V = irregV "skjære" "skar" "skåret" ;
-  lin skrive_V = irregV "skrive" "skrev" "skrevet" ;
-  lin skulle_V = irregV "skulle" "skulle" "skullet" ;
-  lin slå_V = irregV "slå" "slo" "slått" ;
-  lin slåss_V = mkV "slåss" "slåss" "slåss" "sloss" "slåss" "slåss" ;
-  lin sove_V = irregV "sove" "sov" "sovet" ;
-  lin springe_V = irregV "springe" "sprang" "sprunget" ;
-  lin spørre_V = irregV "spørre" "spurte" "spurt" ;
-  lin stikke_V = irregV "stikke" "stakk" "stukket" ;
-  lin stå_V = irregV "stå" "stod" "stått" ;
-  lin suge_V = irregV "suge" (variants {"sugde" ; "saug"}) "sugd" ;
-  lin synes_V = irregV "synes" "syntes" (variants {"synes" ; "syns"}) ;
-  lin synge_V = irregV "synge" "sang" "sunget" ;
-  lin ta_V = irregV "ta" "tok" "tatt" ;
-  lin treffe_V = irregV "treffe" "traff" "truffet" ;
-  lin trives_V = irregV "trives" "trivdes" (variants {"trives" ; "trivs"}) ;
-  lin ville_V = irregV "ville" "ville" "villet" ;
-  lin vite_V = mkV "vite" "vet" "vetes" "visste" "visst" "vit" ;
+  lin
+
+  bære_V = irregV "bære" "bar" "båret" ;--
+  bede_V = mkV "bede" "beder" "bedes" "bad" "bedt" "bed" ;--
+  bide_V = irregV "bite" "bed" "bitt" ;--
+  blive_V = irregV "blive" "blev" "blevet" ;
+  brænde_V = irregV "brænde" "brant" "brænt" ;--
+  bringe_V = irregV "bringe" "bragte" "bragt" ;--
+  burde_V = irregV "burde" "burde" "burdet" ;--
+  dø_V = irregV "dø" "døde" "død" ;
+--  dra_V = mkV "dra" "drar" "dras" "drog" (variants {"dradd" ;-- "dratt"}) "dra" ;--
+  drikke_V = irregV "drikke" "drak" "drukket" ;
+--  drive_V = irregV "drive" (variants {"drev" ;-- "dreiv"}) "drevet" ;--
+--  eie_V = irregV "eie" (variants {"eide" ;-- "åtte"}) (variants {"eid" ;-- "ått"}) ;--
+  falle_V = irregV "falle" "falt" "falt" ;--
+  få_V = irregV "få" "fik" "fået" ;
+  finde_V = irregV "finde" "fand" "fundet" ;--
+  flyde_V = irregV "flyde" "flød" "flytt" ;--
+  flyve_V = irregV "flyve" "fløg" "flydd" ;--
+  foretrekke_V = irregV "foretrekke" "foretrakk" "foretrukket" ;--
+  forlade_V = irregV "forlade" "forlod" "forladet" ;
+  forstå_V = irregV "forstå" "forstod" "forstått" ;--
+  fortælle_V = irregV "fortælle" "fortalte" "fortalt" ;--
+  fryse_V = irregV "fryse" "frøs" "frosset" ;--
+  gå_V = irregV "gå" "gik" "gået" ;
+  give_V = irregV "give" "gav" "givet" ;
+--  gjelde_V = irregV "gjelde" (variants {"gjaldt" ;-- "galdt"}) "gjeldt" ;--
+  gnide_V = irregV "gnide" "gned" "gnidd" ;--
+  gøre_V = irregV "gøre" "gjorde" "gjort" ;
+  have_V =  mkV "have" "har" "havde" "haft" nonExist "hav" ;
+  hente_V = irregV "hente" "hentet" "hendt" ;--
+--  hete_V = irregV "hete" (variants {"het" ;-- "hette"}) "hett" ;--
+--  hjelpe_V = irregV "hjelpe" "hjalp" "hjulpet" ;--
+  holde_V = irregV "holde" "holdt" "holdt" ;--
+  komme_V = irregV "komme" "kom" "kommet" ;
+  kunne_V = irregV "kunne" "kunne" "kunnet" ;
+  lade_V = irregV "lade" "lod" "ladet" ;
+  lægge_V = irregV "lægge" "lagde" "lagt" ;
+  le_V = irregV "le" "lo" "leet" ;
+  ligge_V = irregV "ligge" "lå" "ligget" ;
+  løbe_V = irregV "løbe" "løb" "løbet" ;
+  måtte_V = irregV "måtte" "måtte" "måttet" ;
+  renne_V = irregV "renne" "rant" "rent" ;--
+  sælge_V = irregV "sælge" "solgte" "solgt" ;
+  sætte_V = irregV "sætte" "satte" "sat" ;
+  se_V = irregV "se" "så" "set" ;
+  sidde_V = irregV "sidde" "sad" "siddet" ;
+  sige_V = irregV "sige" "sagde" "sagt" ;
+  skære_V = irregV "skære" "skar" "skåret" ;--
+  skrive_V = irregV "skrive" "skrev" "skrevet" ;
+  skulle_V = irregV "skulle" "skulle" "skullet" ;
+  slå_V = irregV "slå" "slog" "slått" ;--
+  sove_V = irregV "sove" "sov" "sovet" ;
+  spørge_V = irregV "spørge" "spurgte" "spurgt" ;
+  springe_V = irregV "springe" "sprang" "sprunget" ;--
+  stå_V = irregV "stå" "stod" "stået" ;
+  stikke_V = irregV "stikke" "stakk" "stukket" ;--
+  synge_V = irregV "synge" "sang" "sunget" ;--
+  tage_V = irregV "tage" "tog" "taget" ;
+--  treffe_V = irregV "treffe" "traff" "truffet" ;--
+--  trives_V = irregV "trives" "trivdes" (variants {"trives" ;-- "trivs"}) ;--
+  vide_V = irregV "vide" "vidste" "vidst" ;
+
 }
+
+-- readFile "vrbs.tmp" >>= mapM_ (putStrLn . (\ (a:_:b:c:_) -> "  " ++ a ++ "_V = irregV \"" ++ a ++ "\" \"" ++ b ++ "\" \"" ++ c ++ "\" ;") . words) . lines

lib/resource-1.0/danish/IrregDanAbs.gf

@@ -1,65 +1,66 @@
 abstract IrregDanAbs = Cat ** {
-  fun be_V : V ;
-  fun bite_V : V ;
-  fun bli_V : V ;
-  fun brenne_V : V ;
-  fun bringe_V : V ;
-  fun burde_V : V ;
-  fun bćre_V : V ;
-  fun dra_V : V ;
-  fun drikke_V : V ;
-  fun drive_V : V ;
-  fun dř_V : V ;
-  fun eie_V : V ;
-  fun falle_V : V ;
-  fun finne_V : V ;
-  fun fly_V : V ;
-  fun flyte_V : V ;
-  fun foretrekke_V : V ;
-  fun forlate_V : V ;
-  fun forstĺ_V : V ;
-  fun fortelle_V : V ;
-  fun fryse_V : V ;
-  fun fĺ_V : V ;
-  fun gi_V : V ;
-  fun gjelde_V : V ;
-  fun gjřre_V : V ;
-  fun gni_V : V ;
-  fun gĺ_V : V ;
-  fun ha_V : V ;
-  fun hente_V : V ;
-  fun hete_V : V ;
-  fun hjelpe_V : V ;
-  fun holde_V : V ;
-  fun komme_V : V ;
-  fun kunne_V : V ;
-  fun la_V : V ;
-  fun legge_V : V ;
-  fun ligge_V : V ;
-  fun lřpe_V : V ;
-  fun mĺtte_V : V ;
-  fun renne_V : V ;
-  fun se_V : V ;
-  fun selge_V : V ;
-  fun sette_V : V ;
-  fun si_V : V ;
-  fun sitte_V : V ;
-  fun skjćre_V : V ;
-  fun skrive_V : V ;
-  fun skulle_V : V ;
-  fun slĺ_V : V ;
-  fun slĺss_V : V ;
-  fun sove_V : V ;
-  fun springe_V : V ;
-  fun spřrre_V : V ;
-  fun stikke_V : V ;
-  fun stĺ_V : V ;
-  fun suge_V : V ;
-  fun synes_V : V ;
-  fun synge_V : V ;
-  fun ta_V : V ;
-  fun treffe_V : V ;
-  fun trives_V : V ;
-  fun ville_V : V ;
-  fun vite_V : V ;
+
+  fun
+
+  bćre_V : V ; 
+  bede_V : V ; 
+  bide_V : V ; 
+  blive_V : V ; 
+  brćnde_V : V ; 
+  bringe_V : V ; 
+  burde_V : V ; 
+  dř_V : V ; 
+--  dra_V : V ; 
+  drikke_V : V ; 
+--  drive_V : V ; 
+--  eie_V : V ; 
+  falle_V : V ; 
+  fĺ_V : V ; 
+  finde_V : V ; 
+  flyde_V : V ; 
+  flyve_V : V ; 
+  foretrekke_V : V ; 
+  forlade_V : V ; 
+  forstĺ_V : V ; 
+  fortćlle_V : V ; 
+  fryse_V : V ; 
+  gĺ_V : V ; 
+  give_V : V ; 
+--  gjelde_V : V ; 
+  gnide_V : V ; 
+  gřre_V : V ; 
+  have_V : V ; 
+  hente_V : V ; 
+--  hete_V : V ; 
+--  hjelpe_V : V ; 
+  holde_V : V ; 
+  komme_V : V ; 
+  kunne_V : V ; 
+  lade_V : V ; 
+  lćgge_V : V ; 
+  le_V : V ; 
+  ligge_V : V ; 
+  lřbe_V : V ; 
+  mĺtte_V : V ; 
+  renne_V : V ; 
+  sćlge_V : V ; 
+  sćtte_V : V ; 
+  se_V : V ; 
+  sidde_V : V ; 
+  sige_V : V ; 
+  skćre_V : V ; 
+  skrive_V : V ; 
+  skulle_V : V ; 
+  slĺ_V : V ; 
+  sove_V : V ; 
+  spřrge_V : V ; 
+  springe_V : V ; 
+  stĺ_V : V ; 
+  stikke_V : V ; 
+  synge_V : V ; 
+  tage_V : V ; 
+--  treffe_V : V ; 
+--  trives_V : V ; 
+  vide_V : V ;
+ 
 }

lib/resource-1.0/danish/LexiconDan.gf

@@ -9,344 +9,344 @@ flags startcat=Phr ; lexer=textlit ; unlexer=text ;
 lin
   airplane_N = mk2N "fly" "flyet" ;
   answer_V2S = mkV2S (regV "svare") "til" ;
-  apartment_N = mk2N "leilighet" "leiligheten" ;
-  apple_N = mk2N "eple" "eplet" ;
+  apartment_N = mk2N "værelse" "værelsen" ;
+  apple_N = mk2N "æble" "æblet" ;
   art_N = mk2N "kunst" "kunsten" ;
-  ask_V2Q = mkV2Q spørre_V [] ;
-  baby_N = mk2N "baby" "babyen" ;
+  ask_V2Q = mkV2Q spørge_V [] ;
+  baby_N = mk2N "baby" "babyen" ; ---- babyen
   bad_A = regADeg "dårlig" ; ----
   bank_N = mk2N "bank" "banken" ;
-  beautiful_A = mk3ADeg "vakker" "vakkert" "vakra" ;
-  become_VA = mkVA bli_V ;
+  beautiful_A = mk3ADeg "smuk" "smukt" "smukke" ; ----
+  become_VA = mkVA blive_V ;
   beer_N = regGenN "øl" neutrum ;
-  beg_V2V = mkV2V be_V [] "att" ;
+  beg_V2V = mkV2V bede_V [] "att" ;
   big_A = irregADeg "stor" "større" "størst";
-  bike_N = mkN "sykkel" "sykkelen" "sykler" "syklene" ;
+  bike_N = mkN "cykel" "cykeln" "cykler" "cyklene" ; ----
   bird_N = mk2N "fugl" "fuglen" ;
-  black_A = mk2ADeg "svart" "svart" ;
+  black_A = mk2ADeg "sort" "sort" ;
   blue_A = mk2ADeg "blå" "blått";
-  boat_N = regGenN "båt" utrum ;
-  book_N = mkN "bok" "boka" "bøker" "bøkene" ;
-  boot_N = mkN "støvel" "støvelen" "støvler" "støvlene" ;
-  boss_N = mk2N "sjef" "sjefen" ;
-  boy_N = regGenN "gutt" utrum ;
+  boat_N = regGenN "båd" utrum ;
+  book_N = mkN "bog" "bogen" "bøger" "bøgene" ;
+  boot_N = mkN "støvle" "støvlen" "støvler" "støvlene" ;
+  boss_N = mk2N "chef" "chefen" ;
+  boy_N = regGenN "dreng" utrum ;
   bread_N = regGenN "brød" neutrum ;
   break_V2 = dirV2 (mk2V "knuse" "knuste") ;
   broad_A = regADeg "bred" ;
-  brother_N2 = mkN2 ( (mkN "bror" "broren" "brødre" "brødrene")) "til" ;
+  brother_N2 = mkN2 ( (mkN "broder" "broderen" "brødre" "brødrene")) "til" ; ----
   brown_A = regADeg "brun" ;
   butter_N = regGenN "smør" neutrum ;
-  buy_V2 = dirV2 (mk2V "kjøpe" "kjøpte") ;
+  buy_V2 = dirV2 (mk2V "købe" "købte") ; ----
   camera_N = mk2N "kamera" "kameraen" ; ----
-  cap_N = mk2N "lue" "lua" ;
+  cap_N = mk2N "hue" "huen" ;
   car_N = regGenN "bil" utrum ;
-  carpet_N = regGenN "matte" utrum ;
-  cat_N = mk2N "katt" "katten" ;
-  ceiling_N = regGenN "tak" neutrum ;
+  carpet_N = regGenN "tæppe" utrum ;
+  cat_N = mk2N "kat" "katen" ;
+  ceiling_N = regGenN "loft" neutrum ; ----
   chair_N = regGenN "stol" utrum ;
   cheese_N = regGenN "ost" utrum ;
-  child_N = regGenN "barn" neutrum ;
+  child_N = mkN "barn" "barnet" "børn" "børnen" ; ----
   church_N = regGenN "kirke" utrum ;
   city_N = mk2N "by" "byen" ;
-  clean_A = regADeg "rein" ;
-  clever_A = regADeg "klok" ;
+  clean_A = regADeg "ren" ;
+  clever_A = regADeg "flink" ;
   close_V2 = dirV2 (mk2V "lukke" "lukket") ;
-  coat_N = regGenN "frakk" utrum ;
-  cold_A = regADeg "kald" ;
+  coat_N = regGenN "frakke" utrum ;
+  cold_A = regADeg "kold" ;
   come_V = komme_V ;
-  computer_N = mk2N "datamaskin" "datamaskinen" ;
+  computer_N = mk2N "datamaskine" "datamaskinen" ;
   country_N = mk2N "land" "landet" ;
-  cousin_N = mk2N "fetter" "fetteren" ; ----
+  cousin_N = mk2N "fætter" "fætteren" ; ----
   cow_N = mkN "ku" "kua" "kyr" "kyrne" ; ----
   die_V = dø_V ;
-  dirty_A = mk3ADeg "skitten" "skittent" "skitne" ; ----
-  distance_N3 = mkN3 (regGenN "avstand" utrum) "fra" "til" ;
-  doctor_N = mk2N "lege" "legen" ;
+  dirty_A = regADeg "smudsig" ; ----
+  distance_N3 = mkN3 (regGenN "afstand" utrum) "fra" "til" ;
+  doctor_N = mk2N "læge" "lægen" ;
   dog_N = regGenN "hund" utrum ;
   door_N = regGenN "dør" utrum ;
   drink_V2 = dirV2 drikke_V ;
-  easy_A2V = mkA2V (regA "grei") "før" ;
+  easy_A2V = mkA2V (regA "nem") "for" ; ----
   eat_V2 = dirV2 (mk2V "spise" "spiste") ;
-  empty_A = mkADeg "tom" "tomt" "tomme" "tommere" "tommest" ;
-  enemy_N = regGenN "fiende" utrum ;
-  factory_N = mk2N "fabrikk" "fabrikken" ;
-  father_N2 = mkN2 ( (mkN "far" "faren" "fedre" "fedrene")) "til" ;
-  fear_VS = mkVS (regV "frykte") ;
-  find_V2 = dirV2 (irregV "finne" "fann" "funnet") ;
+  empty_A = mkADeg "tøm" "tømt" "tømme" "tømmere" "tømmest" ; ----
+  enemy_N = regGenN "fjende" utrum ;
+  factory_N = mk2N "fabrik" "fabriken" ;
+  father_N2 = mkN2 ( (mkN "far" "faderen" "fædre" "fædrene")) "til" ; ----
+  fear_VS = mkVS (regV "frygte") ;
+  find_V2 = dirV2 (irregV "finde" "fand" "fundet") ; ----
   fish_N = mk2N "fisk" "fisken" ;
-  floor_N = regGenN "golv" neutrum ;
-  forget_V2 = dirV2 (mkV "glemme" "glemmer" "glemmes" "glemte" "glemt" "glem") ;
-  fridge_N = regGenN "kjøleskap" neutrum ;
-  friend_N = mkN "venn" "vennen" "venner" "vennene" ;
-  fruit_N = mk2N "frukt" "frukten" ;
-  fun_AV = mkAV (mkA "morsom" "morsomt" "morsomme") ;
-  garden_N = regGenN "hage" utrum ;
-  girl_N = regGenN "jente" utrum ;
-  glove_N = regGenN "hanske" utrum ;
-  gold_N = regGenN "gull" neutrum ;
-  good_A = mkADeg "god" "godt" "gode" "bedre" "best" ;
+  floor_N = regGenN "gulv" neutrum ;
+  forget_V2 = dirV2 (mkV "glemme" "glemmer" "glemmes" "glemte" "glemt" "glem") ; ----
+  fridge_N = regGenN "køleskab" neutrum ;
+  friend_N = mkN "ven" "vennen" "venner" "vennene" ; ----
+  fruit_N = mk2N "frugt" "frugten" ;
+  fun_AV = mkAV (mkA "morsom" "morsomt" "morsomme") ; ----
+  garden_N = regGenN "have" utrum ;
+  girl_N = regGenN "pige" utrum ;
+  glove_N = regGenN "handske" utrum ;
+  gold_N = regGenN "guld" neutrum ;
+  good_A = mkADeg "god" "godt" "gode" "bedre" "bedst" ; ----
   go_V = gå_V ;
-  green_A = mk2ADeg "grønn" "grønt" ;
+  green_A = mk2ADeg "grøn" "grønt" ;
   harbour_N = regGenN "havn" utrum;
-  hate_V2 = dirV2 (regV "hate") ;
-  hat_N = regGenN "hatt" utrum ;
-  have_V2 = dirV2 ha_V ;
+  hate_V2 = dirV2 (regV "hade") ;
+  hat_N = regGenN "hat" utrum ;
+  have_V2 = dirV2 have_V ;
   hear_V2 = dirV2 (mk2V "høre" "hørte") ;
-  hill_N = regGenN "haug" utrum ;
-  hope_VS = mkVS (regV "håpe") ;
+  hill_N = regGenN "høj" utrum ;
+  hope_VS = mkVS (regV "håbe") ;
   horse_N = regGenN "hest" utrum ;
-  hot_A = regADeg "heit" ;
+  hot_A = regADeg "hed" ;
   house_N = regGenN "hus" neutrum ;
-  important_A = regADeg "viktig" ;
+  important_A = regADeg "vigtig" ;
   industry_N = mk2N "industri" "industrien" ;
   iron_N = regGenN "jern" neutrum ;
   king_N = regGenN "konge" utrum ;
-  know_V2 = dirV2 vite_V ;
-  lake_N = regGenN "vann" neutrum ;
+  know_V2 = dirV2 vide_V ;
+  lake_N = regGenN "sø" utrum ;
   lamp_N = regGenN "lampe" utrum ;
   learn_V2 = dirV2 (mk2V "lære" "lærte") ; 
-  leather_N = regGenN "lær" neutrum ;
-  leave_V2 = dirV2 forlate_V ;
-  like_V2 = dirV2 (mk2V "like" "likte") ;
+  leather_N = regGenN "læder" neutrum ;
+  leave_V2 = dirV2 forlade_V ;
+  like_V2 = mkV2 holde_V "af" ;
   listen_V2 = dirV2 (regV "lytte") ;
   live_V = mk2V "leve" "levde" ;
-  long_A = irregADeg "lang" "lengre" "lengst" ;
-  lose_V2 = dirV2 (mk2V "tape" "tapte") ;
-  love_N = regGenN "kjærlighet" utrum ;
+  long_A = irregADeg "lang" "længer" "længst" ; ----
+  lose_V2 = dirV2 (regV "tabe") ;
+  love_N = regGenN "kærlighed" utrum ;
   love_V2 = dirV2 (regV "elske") ;
-  man_N =  (mkN "mann" "mannen" "menn" "mennen") ;
+  man_N =  (mkN "mand" "manden" "mænd" "mænden") ; ----
   married_A2 = mkA2 (mk2A "gift" "gift") "med" ;
-  meat_N = regGenN "kjøtt" neutrum ;
-  milk_N = regGenN "melk" utrum ;
+  meat_N = regGenN "kød" neutrum ;
+  milk_N = regGenN "mælk" utrum ;
   moon_N = regGenN "måne" utrum ;
-  mother_N2 = mkN2 (mkN "mor" "moren" "mødre" "mødrene") "til" ; ---- fem
-  mountain_N = regGenN "berg" neutrum ;
-  music_N = mk2N "musikk" "musikken" ;
+  mother_N2 = mkN2 (mkN "moder" "moderen" "mødre" "mødrene") "til" ; ----
+  mountain_N = regGenN "bjerg" neutrum ;
+  music_N = mk2N "musik" "musiken" ;
   narrow_A = regADeg "smal" ;
   new_A = mkADeg "ny" "nytt" "nye" "nyere" "nyest" ;
   newspaper_N = regGenN "avis" utrum ;
-  oil_N = regGenN "olje" utrum ;
-  old_A = mkADeg "gammel" "gammelt" "gamle" "eldre" "eldst" ;
-  open_V2 = dirV2 (regV "åpne") ;
+  oil_N = regGenN "olie" utrum ;
+  old_A = mkADeg "gammel" "gammelt" "gamle" "ældre" "ældst" ; ----
+  open_V2 = dirV2 (regV "åbne") ;
   paint_V2A = mkV2A (regV "male") [] ;
   paper_N = regGenN "papir" neutrum ; ----
   paris_PN = regPN "Paris" neutrum ;
   peace_N = regGenN "fred" utrum ;
-  pen_N = regGenN "penn" utrum ;
+  pen_N = regGenN "pen" utrum ;
   planet_N = mk2N "planet" "planeten" ;
   plastic_N = mk2N "plast" "plasten" ;
   play_V2 = dirV2 (mk2V "spille" "spilte") ;
-  policeman_N = mk2N "politi" "politien" ;
-  priest_N = mk2N "prest" "presten" ;
-  probable_AS = mkAS (regA "sannsynlig") ;
+  policeman_N = mk2N "politibetjent" "politibetjenten" ; ----
+  priest_N = mk2N "præst" "præsten" ;
+  probable_AS = mkAS (regA "sandsynlig") ;
   queen_N = regGenN "dronning" utrum ;
   radio_N = regGenN "radio" utrum ;
   rain_V0 = mkV0 (regV "regne") ;
-  read_V2 = dirV2 (mk2V "lese" "leste") ;
+  read_V2 = dirV2 (mk2V "læse" "læste") ;
   red_A = regADeg "rød" ;
   religion_N = mk2N "religion" "religionen" ;
   restaurant_N = mk2N "restaurant" "restauranten" ;
-  river_N = mk2N "elv" "elva" ;
-  rock_N = regGenN "stein" utrum ;
-  roof_N = regGenN "tak" neutrum ;
+  river_N = mk2N "flod" "floden" ;
+  rock_N = regGenN "sten" utrum ;
+  roof_N = regGenN "tag" neutrum ;
   rubber_N = mk2N "gummi" "gummien" ;
-  run_V = springe_V ;
-  say_VS = mkVS si_V ;
+  run_V = regV "løbe" ;
+  say_VS = mkVS sige_V ;
   school_N = regGenN "skole" utrum;
-  science_N = mk2N "vitenskap" "vitenskapen" ;
-  sea_N = mk2N "sjø" "sjøen" ;
-  seek_V2 = mkV2 (mk2V "lete" "lette") "etter" ;
+  science_N = mk2N "videnskab" "videnskaben" ;
+  sea_N = mk2N "hav" "havet" ;
   see_V2 = dirV2 se_V ;
-  sell_V3 = dirV3 selge_V "til" ;
+  seek_V2 = mkV2 (mk2V "søge" "søgte") "efter" ;
+  sell_V3 = dirV3 sælge_V "til" ;
   send_V3 = dirV3 (mk2V "sende" "sendte") "til" ;
   sheep_N = mk2N "får" "fåret" ;
-  ship_N = regGenN "skip" neutrum ;
+  ship_N = regGenN "skib" neutrum ;
   shirt_N = regGenN "skjorte" utrum ;
   shoe_N = regGenN "sko" utrum ;
-  shop_N = mk2N "butikk" "butikken" ;
+  shop_N = mk2N "butik" "butiken" ;
   short_A = regADeg "kort" ;
   silver_N = mk2N "sølv" "sølvet";
-  sister_N = mkN "søster" "søsteren" "søstrer" "søstrene" ;
+  sister_N = mkN "søster" "søsteren" "søstrer" "søstrene" ; ----
   sleep_V = irregV "sove" "sov" "sovet" ;
-  small_A = mkADeg "liten" "lite" "små" "mindre" "minst" ; ---- lille
-  snake_N = regGenN "orm" utrum ;
-  sock_N = regGenN "strømpe" utrum ;
-  speak_V2 = dirV2 (regV "snakke") ;
+  small_A = mkADeg "lille" "lille" "små" "mindre" "mindst" ; ----
+  snake_N = regGenN "slange" utrum ;
+  sock_N = regGenN "sok" utrum ;
+  speak_V2 = dirV2 (regV "tale") ; ----
   star_N = regGenN "stjerne" utrum ;
   steel_N = regGenN "stål" neutrum ;
-  stone_N = regGenN "stein" utrum ;
-  stove_N = regGenN "komfyr" utrum ;
+  stone_N = regGenN "sten" utrum ;
+  stove_N = regGenN "komfur" utrum ;
   student_N = mk2N "student" "studenten" ;
   stupid_A = mk3ADeg "dum" "dumt" "dumme" ;
   sun_N = regGenN "sol" utrum ;
-  switch8off_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "av") ;
-  switch8on_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "på") ;
+  switch8off_V2 = dirV2 (partV (regV "lukke") "for") ;
+  switch8on_V2 = dirV2 (partV (regV "lukke") "op") ;
   table_N = regGenN "bord" neutrum ;
-  talk_V3 = mkV3 (regV "snakke") "til" "om" ;
+  talk_V3 = mkV3 (regV "tale") "til" "om" ;
   teacher_N = mkN "lærer" "læreren" "lærere" "lærerne" ;
   teach_V2 = dirV2 (mk2V "undervise" "underviste") ;
   television_N = mk2N "fjernsyn" "fjernsynet" ;
-  thick_A = mk2ADeg "tykk" "tykt" ;
-  thin_A = mk2ADeg "tynn" "tynt" ;
+  thick_A = mk2ADeg "tyk" "tykt" ;
+  thin_A = mk2ADeg "tynd" "tyndt" ; ----
   train_N = regGenN "tog" neutrum ;
-  travel_V = mk2V "reise" "reiste" ;
-  tree_N = mkN "tre" "treet" "trær" "træne" ;
+  travel_V = mk2V "rejse" "rejste" ;
+  tree_N = mkN "træ" "træet" "trær" "træne" ; ----
   ----  trousers_N = regGenN "trousers" ; ---- pl t !
-  ugly_A = mk2ADeg "stygg" "stygt" ;
+  ugly_A = regADeg "grim" ;
   understand_V2 = dirV2 (irregV "forstå" "forstod" "forstått") ;
   university_N = regGenN "universitet" neutrum ;
-  village_N = mk2N "grend" "grenda" ;
+  village_N = mk2N "landsby" "landsbyen" ;
   wait_V2 = mkV2 (regV "vente") "på" ;
   walk_V = (irregV "gå" "gikk" "gått") ;
   warm_A = regADeg "varm" ;
   war_N = regGenN "krig" utrum ;
   watch_V2 = mkV2 se_V "på" ;
-  water_N = mk2N "vatn" "vatnet" ;
-  white_A = regADeg "hvit" ;
-  window_N = mkN "vindu" "vinduet" "vinduer" "vinduene" ; ---- er?
+  water_N = mk2N "vand" "vandet" ;
+  white_A = regADeg "hvid" ;
+  window_N = mkN "vindue" "vinduet" "vinduer" "vinduene" ; ---- er?
   wine_N = mk2N "vin" "vinen" ;
-  win_V2 = dirV2 (irregV "vinne" "vant" "vunnet") ;
-  woman_N = regGenN "kvinne" utrum ; ---- kvinnen
-  wonder_VQ = mkVQ (regV "undre") ; ---- seg
-  wood_N = mkN "tre" "treet" "trær" "træne" ;
+  win_V2 = dirV2 (irregV "vinde" "vand" "vundet") ;
+  woman_N = regGenN "kvinde" utrum ;
+  wonder_VQ = mkVQ (depV (regV "undre")) ;
+  wood_N = mkN "træ" "træet" "trær" "træne" ; ----
   write_V2 = dirV2 (irregV "skrive" "skrev" "skrevet") ;
   yellow_A = regADeg "gul" ;
-  young_A = irregADeg "ung" "yngre" "yngst" ;
+  young_A = irregADeg "ung" "yngre" "yngst" ; ----
 
-  do_V2 = dirV2 (irregV "gjøre" "gjorde" "gjort") ;
-  now_Adv = mkAdv "nå" ;
+  do_V2 = dirV2 (irregV "gøre" "gjorde" "gjort") ; ----
+  now_Adv = mkAdv "nu" ;
   already_Adv = mkAdv "allerede" ;
   song_N = mk2N "sang" "sangen" ;
-  add_V3 = mkV3 (partV (irregV "legge" "la" "lagt") "til") [] "til" ;
-  number_N = mk2N "nummer" "nummeret" ;
-  put_V2 = mkV2 (irregV "sette" "satte" "satt") [] ;
-  stop_V = regV "stanse" ;
+  add_V3 = mkV3 (regV "tilføje") [] "til" ; ----
+  number_N = mk2N "nummer" "nummeret" ; ----
+  put_V2 = mkV2 (irregV "sætte" "satte" "satt") [] ; ----
+  stop_V = regV "standse" ;
   jump_V = regV "hoppe" ;
 
   left_Ord = {s = "venstre" ; isDet = True} ;
-  right_Ord = {s = "høyre" ; isDet = True} ;
+  right_Ord = {s = "højre" ; isDet = True} ;
   far_Adv = mkAdv "fjern" ;
-  correct_A = regA "riktig" ;
-  dry_A = mk2A "tørr" "tørt" ;
+  correct_A = regA "rigtig" ;
+  dry_A = mk2A "tør" "tørt" ;
   dull_A = regA "sløv" ;
-  full_A = regA "full" ;
+  full_A = regA "fuld" ;
   heavy_A = irregADeg "tung" "tyngre" "tyngst" ;
   near_A = mkADeg "nære" "nære" "nære" "nærmere" "nærmest" ;
-  rotten_A = mk3ADeg "råtten" "råttent" "råtne" ;
+  rotten_A = mk3ADeg "rådden" "råddent" "rådne" ; ----
   round_A = regA "rund" ;
-  sharp_A = mk2A "kvass" "kvast" ;
-  smooth_A = mk2A "slett" "slett" ;
-  straight_A = regA "rak" ;
-  wet_A = regA "våt" ;
+  sharp_A = regA "skarp" ;
+  smooth_A = regA "jævn" ;
+  straight_A = regA "ret" ;
+  wet_A = regA "våd" ;
   wide_A = regA "bred" ;
   animal_N = mk2N "dyr" "dyret" ;
-  ashes_N = mk2N "aske" "aska" ;
-  back_N = mk2N "rygg" "ryggen" ;
+  ashes_N = mk2N "aske" "asken" ;
+  back_N = mk2N "ryg" "ryggen" ; ----
   bark_N = mk2N "bark" "barken" ;
-  belly_N = mk2N "mage" "magen" ;
+  belly_N = mk2N "mave" "maven" ;
   blood_N = mk2N "blod" "blodet" ;
-  bone_N = mk2N "bein" "beinet" ;
+  bone_N = mk2N "ben" "benet" ;
   breast_N = mk2N "bryst" "brystet" ;
-  cloud_N = mk2N "sky" "skya" ;
+  cloud_N = mk2N "sky" "skyen" ;
   day_N = mk2N "dag" "dagen" ;
   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" ;
-  feather_N = mk2N "fjør" "fjøra" ;
+  earth_N = mk2N "jord" "jorden" ;
+  egg_N = mk2N "æg" "æget" ;
+  eye_N = mkN "øje" "øjet" "øjne" "øjnene" ;
+  fat_N = mk2N "fedt" "fedtet" ;
+  feather_N = mk2N "fjer" "fjeren" ;
   fingernail_N = mk2N "negl" "neglen" ;
   fire_N = mk2N "ild" "ilden" ;
   flower_N = mk2N "blomst" "blomsten" ;
-  fog_N = mk2N "tåke" "tåka" ;
-  foot_N = mk2N "fot" "føtter" ;
-  forest_N = mk2N "skog" "skogen" ;
-  grass_N = mk2N "gras" "graset" ;
-  guts_N = mk2N "tarm" "tarmen" ; ---- involler
+  fog_N = mk2N "tåge" "tågen" ;
+  foot_N = mk2N "fod" "føder" ; ----
+  forest_N = mk2N "skov" "skoven" ;
+  grass_N = mk2N "græs" "græset" ;
+  guts_N = mk2N "tarm" "tarmen" ; ---- indvolde
   hair_N = mk2N "hår" "håret" ;
   hand_N = mk2N "hånd" "hånden" ;
-  head_N = mk2N "hode" "hodet" ;
+  head_N = mk2N "hoved" "hovedet" ;
   heart_N = mk2N "hjerte" "hjertet" ;
   horn_N = mk2N "horn" "hornet" ;
-  husband_N = mkN "ektemann" "ektemannen" "ektemenn" "ektemennen" ;
+  husband_N = mk2N "ægtefælle" "ægtefællen" ; ----
   ice_N = mk2N "is" "isen" ;
-  knee_N = mkN "kne" "kneet" "knær" "knæne" ;
+  knee_N = mkN "knæ" "knæt" "knær" "knæne" ; ----
   leaf_N = mk2N "løv" "løvet" ;
-  leg_N = mk2N "bein" "beinet" ;
-  liver_N = mkN "lever" "leveren" "levrer" "levrene" ;
-  louse_N = mk2N "lus" "lusa" ;
-  mouth_N = mk2N "munn" "munnen" ;
+  leg_N = mk2N "ben" "benet" ;
+  liver_N = mkN "lever" "leveren" "levrer" "levrene" ; ----
+  louse_N = mk2N "lus" "lusen" ;
+  mouth_N = mk2N "mund" "munden" ;
   name_N = mk2N "navn" "navnet" ;
-  neck_N = mk2N "nakke" "nakken" ;
-  night_N = mkN "natt" "natta" "netter" "nettene" ;
-  nose_N = mk2N "nese" "nesen" ;
+  neck_N = mk2N "hals" "halsen" ;
+  night_N = mkN "nat" "natten" "nætter" "nættene" ; ----
+  nose_N = mk2N "næse" "næsen" ;
   person_N = mk2N "person" "personen" ;
   rain_N = mk2N "regn" "regnet" ;
-  road_N = mk2N "vei" "veien" ;
-  root_N = mkN "rot" "rota" "røtter" "røttene" ;
-  rope_N = mk2N "tau" "tauet" ;
+  road_N = mk2N "vej" "vejen" ;
+  root_N = mkN "rod" "roden" "røder" "rødene" ; ----
+  rope_N = mk2N "reb" "rebet" ;
   salt_N = mk2N "salt" "saltet" ;
   sand_N = mk2N "sand" "sanden" ;
   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" ;
+  skin_N = mk2N "skind" "skindet" ;
+  sky_N = mkN "himmel" "himmelen" "himler" "himlene" ; ----
+  smoke_N = mk2N "røg" "røgen" ;
   snow_N = mk2N "snø" "snøen" ;
-  stick_N = mk2N "pinne" "pinnen" ;
+  stick_N = mk2N "pind" "pinden" ;
   tail_N = mk2N "hale" "halen" ;
-  tongue_N = mk2N "tunge" "tunga" ;
-  tooth_N = mkN "tann" "tanna" "tenner" "tennene" ;
-  wife_N = mk2N "kone" "kona" ;
+  tongue_N = mk2N "tunge" "tungen" ;
+  tooth_N = mkN "tand" "tanden" "tænder" "tændene" ; ----
+  wife_N = mk2N "kone" "konen" ;
   wind_N = mk2N "vind" "vinden" ;
   wing_N = mk2N "vinge" "vingen" ;
-  worm_N = mk2N "mark" "marken" ;
+  worm_N = mk2N "orm" "ormen" ;
   year_N = mk2N "år" "året" ;
-  bite_V2 = dirV2 (IrregDan.bite_V) ;
-  blow_V = mk2V "blåse" "blåste" ;
-  burn_V = brenne_V ;
-  count_V2 = dirV2 (regV "regne") ;
-  cut_V2 = dirV2 (skjære_V) ;
+  bite_V2 = dirV2 bide_V ;
+  blow_V = mk2V "blæse" "blæste" ;
+  burn_V = brænde_V ;
+--  count_V2 = dirV2 tælle_V ;
+  cut_V2 = dirV2 (skære_V) ;
   dig_V = mk2V "grave" "gravde" ;
   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 ;
+  fear_V2 = dirV2 (regV "frygte") ;
+  fight_V2 = dirV2 (regV "kæmpe") ;
+  float_V = flyde_V ;
+  flow_V = regV "strømme" ;
+  fly_V = flyve_V ;
   freeze_V = fryse_V ;
-  give_V3 = dirdirV3 gi_V ;
+  give_V3 = dirdirV3 give_V ;
   hit_V2 = dirV2 (slå_V) ;
   hold_V2 = dirV2 (holde_V) ;
-  hunt_V2 = dirV2 (regV "jakte") ;
-  kill_V2 = dirV2 (mk2V "drepe" "drepte") ;
-  laugh_V = mkV "le" "ler" "les" "lo" "ledd" "le" ;
+  hunt_V2 = dirV2 (regV "jage") ;
+  kill_V2 = dirV2 (regV "dræbe") ;
+  laugh_V = le_V ;
   lie_V = ligge_V ;
-  play_V = mk2V "leke" "lekte" ;
-  pull_V2 = dirV2 (dra_V) ;
-  push_V2 = dirV2 (irregV "skyve" "skjøv" "skjøvet") ;
-  rub_V2 = dirV2 (gni_V) ;
-  scratch_V2 = dirV2 (regV "klø") ;
+  play_V = regV "spille" ;
+  pull_V2 = dirV2 (regV "trække") ;
+  push_V2 = dirV2 (regV "skubbe") ;
+  rub_V2 = dirV2 (gnide_V) ;
+  scratch_V2 = dirV2 (regV "kradse") ;
   sew_V = mk2V "sy" "sydde" ;
   sing_V = synge_V ;
-  sit_V = sitte_V ;
-  smell_V = regV "lukte" ;
+  sit_V = sidde_V ;
+  smell_V = regV "lugte" ;
   spit_V = regV "spytte" ;
-  split_V2 = dirV2 (mk2V "kløyve" "kløyvde") ;
-  squeeze_V2 = dirV2 (mk2V "klemme" "klemte") ;
+  split_V2 = dirV2 (regV "splitte") ; ----
+  squeeze_V2 = dirV2 (regV "presse") ;
   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" ;
+  suck_V2 = dirV2 (regV "sutte") ; ----
+  swell_V = regV "svulme" ;
+  swim_V = regV "svømme" ;
+  think_V = mk2V "tænke" "tænkte" ; ----
   throw_V2 = dirV2 (regV "kaste") ;
-  tie_V2 = dirV2 (regV "knytte") ;
-  turn_V = mk2V "vende" "vendte" ;
-  vomit_V = partV (regV "kaste") "opp" ;
+--  tie_V2 = dirV2 binde_V ;
+  turn_V = regV "dreje" ;
+  vomit_V = partV (regV "kaste") "op" ;
   wash_V2 = dirV2 (regV "vaske") ;
-  wipe_V2 = dirV2 (regV "tørke") ;
-  breathe_V = regV "puste" ;
+  wipe_V2 = dirV2 (regV "viske") ;
+  breathe_V = regV "ånde" ;
 
 
 } ;