--# -path=.:../scandinavian:../abstract:../../prelude

concrete BasicDan of Basic = CategoriesDan ** open ParadigmsDan,VerbsDan in {

flags startcat=Phr ; lexer=textlit ; unlexer=text ;
  optimize=values ;

lin
  airplane_N = mk2N "fly" "flyet" ;
  answer_V2S = mkV2S (regV "svare") "til" ;
  apartment_N = mk2N "leilighet" "leiligheten" ;
  apple_N = mk2N "eple" "eplet" ;
  art_N = mk2N "kunst" "kunsten" ;
  ask_V2Q = mkV2Q spørre_V [] ;
  baby_N = mk2N "baby" "babyen" ;
  bad_ADeg = regADeg "dårlig" ; ----
  bank_N = mk2N "bank" "banken" ;
  beautiful_ADeg = mk3ADeg "vakker" "vakkert" "vakra" ;
  become_VA = mkVA bli_V;
  beer_N = regN "øl" neutrum ;
  beg_V2V = mkV2V be_V [] "att" ;
  big_ADeg = irregADeg "stor" "større" "størst";
  bike_N = mkN "sykkel" "sykkelen" "sykler" "syklene" ;
  bird_N = mk2N "fugl" "fuglen" ;
  black_ADeg = mk2ADeg "svart" "svart" ;
  blue_ADeg = mk2ADeg "blå" "blått";
  boat_N = regN "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 = regN "gutt" utrum ;
  bread_N = regN "brød" neutrum ;
  break_V2 = dirV2 (mk2V "knuse" "knuste") ;
  broad_ADeg = regADeg "bred" ;
  brother_N2 = mkN2 ( (mkN "bror" "broren" "brødre" "brødrene")) "til" ;
  brown_ADeg = regADeg "brun" ;
  butter_N = regN "smør" neutrum ;
  buy_V2 = dirV2 (mk2V "kjøpe" "kjøpte") ;
  camera_N = mk2N "kamera" "kameraen" ; ----
  cap_N = mk2N "lue" "lua" ;
  car_N = regN "bil" utrum ;
  carpet_N = regN "matte" utrum ;
  cat_N = mk2N "katt" "katten" ;
  ceiling_N = regN "tak" neutrum ;
  chair_N = regN "stol" utrum ;
  cheese_N = regN "ost" utrum ;
  child_N = regN "barn" neutrum ;
  church_N = regN "kirke" utrum ;
  city_N = mk2N "by" "byen" ;
  clean_ADeg = regADeg "rein" ;
  clever_ADeg = regADeg "klok" ;
  close_V2 = dirV2 (mk2V "lukke" "lukket") ;
  coat_N = regN "frakk" utrum ;
  cold_ADeg = regADeg "kald" ;
  come_V = komme_V ;
  computer_N = mk2N "datamaskin" "datamaskinen" ;
  country_N = mk2N "land" "landet" ;
  cousin_N = mk2N "fetter" "fetteren" ; ----
  cow_N = mkN "ku" "kua" "kyr" "kyrne" ; ----
  die_V = dø_V ;
  dirty_ADeg = mk3ADeg "skitten" "skittent" "skitne" ; ----
  distance_N3 = mkN3 (regN "avstand" utrum) "fra" "til" ;
  doctor_N = mk2N "lege" "legen" ;
  dog_N = regN "hund" utrum ;
  door_N = regN "dør" utrum ;
  drink_V2 = dirV2 drikke_V ;
  easy_A2V = mkA2V (regA "grei") "før" ;
  eat_V2 = dirV2 (mk2V "spise" "spiste") ;
  empty_ADeg = mkADeg "tom" "tomt" "tomme" "tommere" "tommest" ;
  enemy_N = regN "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") ;
  fish_N = mk2N "fisk" "fisken" ;
  floor_N = regN "golv" neutrum ;
  forget_V2 = dirV2 (mkV "glemme" "glemmer" "glemmes" "glemte" "glemt" "glem") ;
  fridge_N = regN "kjøleskap" neutrum ;
  friend_N = mkN "venn" "vennen" "venner" "vennene" ;
  fruit_N = mk2N "frukt" "frukten" ;
  fun_AV = mkAV (mkA "morsom" "morsomt" "morsomme") ;
  garden_N = regN "hage" utrum ;
  girl_N = regN "jente" utrum ;
  glove_N = regN "hanske" utrum ;
  gold_N = regN "gull" neutrum ;
  good_ADeg = mkADeg "god" "godt" "gode" "bedre" "best" ;
  go_V = gå_V ;
  green_ADeg = mk2ADeg "grønn" "grønt" ;
  harbour_N = regN "havn" utrum;
  hate_V2 = dirV2 (regV "hate") ;
  hat_N = regN "hatt" utrum ;
  have_V2 = dirV2 ha_V ;
  hear_V2 = dirV2 (mk2V "høre" "hørte") ;
  hill_N = regN "haug" utrum ;
  hope_VS = mkVS (regV "håpe") ;
  horse_N = regN "hest" utrum ;
  hot_ADeg = regADeg "heit" ;
  house_N = regN "hus" neutrum ;
  important_ADeg = regADeg "viktig" ;
  industry_N = mk2N "industri" "industrien" ;
  iron_N = regN "jern" neutrum ;
  king_N = regN "konge" utrum ;
  know_V2 = dirV2 vite_V ;
  lake_N = regN "vann" neutrum ;
  lamp_N = regN "lampe" utrum ;
  learn_V2 = dirV2 (mk2V "lære" "lærte") ; 
  leather_N = regN "lær" neutrum ;
  leave_V2 = dirV2 forlate_V ;
  like_V2 = dirV2 (mk2V "like" "likte") ;
  listen_V2 = dirV2 (regV "lytte") ;
  live_V = mk2V "leve" "levde" ;
  long_ADeg = irregADeg "lang" "lengre" "lengst" ;
  lose_V2 = dirV2 (mk2V "tape" "tapte") ;
  love_N = regN "kjærlighet" utrum ;
  love_V2 = dirV2 (regV "elske") ;
  man_N =  (mkN "mann" "mannen" "menn" "mennen") ;
  married_A2 = mkA2 (mk2A "gift" "gift") "med" ;
  meat_N = regN "kjøtt" neutrum ;
  milk_N = regN "melk" utrum ;
  moon_N = regN "måne" utrum ;
  mother_N2 = mkN2 (mkN "mor" "moren" "mødre" "mødrene") "til" ; ---- fem
  mountain_N = regN "berg" neutrum ;
  music_N = mk2N "musikk" "musikken" ;
  narrow_ADeg = regADeg "smal" ;
  new_ADeg = mkADeg "ny" "nytt" "nye" "nyere" "nyest" ;
  newspaper_N = regN "avis" utrum ;
  oil_N = regN "olje" utrum ;
  old_ADeg = mkADeg "gammel" "gammelt" "gamle" "eldre" "eldst" ;
  open_V2 = dirV2 (regV "åpne") ;
  paint_V2A = mkV2A (regV "male") [] ;
  paper_N = regN "papir" neutrum ; ----
  peace_N = regN "fred" utrum ;
  pen_N = regN "penn" 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") ;
  queen_N = regN "dronning" utrum ;
  radio_N = regN "radio" utrum ;
  rain_V0 = mkV0 (regV "regne") ;
  read_V2 = dirV2 (mk2V "lese" "leste") ;
  red_ADeg = regADeg "rød" ;
  religion_N = mk2N "religion" "religionen" ;
  restaurant_N = mk2N "restaurant" "restauranten" ;
  river_N = mk2N "elv" "elva" ;
  rock_N = regN "stein" utrum ;
  roof_N = regN "tak" neutrum ;
  rubber_N = mk2N "gummi" "gummien" ;
  run_V = springe_V ;
  say_VS = mkVS si_V ;
  school_N = regN "skole" utrum;
  science_N = mk2N "vitenskap" "vitenskapen" ;
  sea_N = mk2N "sjø" "sjøen" ;
  seek_V2 = mkV2 (mk2V "lete" "lette") "etter" ;
  see_V2 = dirV2 se_V ;
  sell_V3 = dirV3 selge_V "til" ;
  send_V3 = dirV3 (mk2V "sende" "sendte") "til" ;
  sheep_N = mk2N "får" "fåret" ;
  ship_N = regN "skip" neutrum ;
  shirt_N = regN "skjorte" utrum ;
  shoe_N = regN "sko" utrum ;
  shop_N = mk2N "butikk" "butikken" ;
  short_ADeg = regADeg "kort" ;
  silver_N = mk2N "sølv" "sølvet";
  sister_N = mkN "søster" "søsteren" "søstrer" "søstrene" ;
  sleep_V = irregV "sove" "sov" "sovet" ;
  small_ADeg = mkADeg "liten" "lite" "små" "mindre" "minst" ; ---- lille
  snake_N = regN "orm" utrum ;
  sock_N = regN "strømpe" utrum ;
  speak_V2 = dirV2 (regV "snakke") ;
  star_N = regN "stjerne" utrum ;
  steel_N = regN "stål" neutrum ;
  stone_N = regN "stein" utrum ;
  stove_N = regN "komfyr" utrum ;
  student_N = mk2N "student" "studenten" ;
  stupid_ADeg = mk3ADeg "dum" "dumt" "dumme" ;
  sun_N = regN "sol" utrum ;
  switch8off_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "av") ;
  switch8on_V2 = dirV2 (partV (irregV "slå" "slo" "slått") "på") ;
  table_N = regN "bord" neutrum ;
  talk_V3 = mkV3 (regV "snakke") "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_ADeg = mk2ADeg "tykk" "tykt" ;
  thin_ADeg = mk2ADeg "tynn" "tynt" ;
  train_N = regN "tog" neutrum ;
  travel_V = mk2V "reise" "reiste" ;
  tree_N = mkN "tre" "treet" "trær" "træne" ;
  ----  trousers_N = regN "trousers" ; ---- pl t !
  ugly_ADeg = mk2ADeg "stygg" "stygt" ;
  understand_V2 = dirV2 (irregV "forstå" "forstod" "forstått") ;
  university_N = regN "universitet" neutrum ;
  village_N = mk2N "grend" "grenda" ;
  wait_V2 = mkV2 (regV "vente") "på" ;
  walk_V = (irregV "gå" "gikk" "gått") ;
  warm_ADeg = regADeg "varm" ;
  war_N = regN "krig" utrum ;
  watch_V2 = mkV2 se_V "på" ;
  water_N = mk2N "vatn" "vatnet" ;
  white_ADeg = regADeg "hvit" ;
  window_N = mkN "vindu" "vinduet" "vinduer" "vinduene" ; ---- er?
  wine_N = mk2N "vin" "vinen" ;
  win_V2 = dirV2 (irregV "vinne" "vant" "vunnet") ;
  woman_N = regN "kvinne" utrum ; ---- kvinnen
  wonder_VQ = mkVQ (regV "undre") ; ---- seg
  wood_N = mkN "tre" "treet" "trær" "træne" ;
  write_V2 = dirV2 (irregV "skrive" "skrev" "skrevet") ;
  yellow_ADeg = regADeg "gul" ;
  young_ADeg = irregADeg "ung" "yngre" "yngst" ;

  do_V2 = dirV2 (irregV "gjøre" "gjorde" "gjort") ;
  now_Adv = mkAdv "nå" ;
  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" ;
  jump_V = regV "hoppe" ;
  here_Adv = mkAdv "her" ;
  here7to_Adv = mkAdv "hit" ;
  here7from_Adv = mkAdv ["herfra"] ;
  there_Adv = mkAdv "der" ;
  there7to_Adv = mkAdv "dit" ;
  there7from_Adv = mkAdv ["derfra"] ;

} ;

-- a" -> e"   86
-- ö  -> ø    66
-- ck -> kk   20
-- ä  -> e    44