Duodecim example treated

7 files changed, 180 insertions, 120 deletions

diff --git a/examples/uusisuomi/Declensions.gf b/examples/uusisuomi/Declensions.gf
index d36343c4b..cd7374022 100644
--- a/examples/uusisuomi/Declensions.gf
+++ b/examples/uusisuomi/Declensions.gf
@@ -90,7 +90,7 @@ resource Declensions = ResFin ** open MorphoFin,CatFin,Prelude in {
       (onnettom + "in" + a) (onnettom + "iss" + a) 
       (onnettom + "iin") ;
 
-
+  -- 2-syllable a/ä, o/ö, u/y
   dUkko : (_,_ : Str) -> NForms = \ukko,ukon ->
       let
         o   = last ukko ;
@@ -117,27 +117,33 @@ resource Declensions = ResFin ** open MorphoFin,CatFin,Prelude in {
         ukkoja.p2 ukkoja.p1
         ukkoina ukoissa ukkoja.p5 ; 
 
+  -- 3-syllable a/ä/o/ö
   dSilakka : (_,_,_ : Str) -> NForms = \silakka,silakan,silakoita ->
     let
-      a   = last silakka ;
+      o = last silakka ;
+      a = getHarmony o ;
       silakk = init silakka ;
       silaka = init silakan ;
       silak  = init silaka ;
+      silakkaa = silakka + case o of {
+        "o" | "ö" => "t" + a ;  -- radiota
+        _ => a                  -- sammakkoa
+        } ;
       silakoiden = case <silakoita : Str> of {
         _ + "i" + ("a" | "ä") =>                    -- asemia
-          <silakk + "ien", silakk, silak, silakk + "iin"> ;
-        _ + o@("o" | "ö") + ("ja" | "jä") =>        -- pasuunoja
-          <silakk + o + "jen",silakk + o, silak + o, silakk + o + "ihin"> ;
-        _ + o@("o" | "ö") + ("ita" | "itä") =>      -- silakoita
-          <silak + o + "iden",silakk + o, silak + o, silakk + o + "ihin"> ;
-       _   => Predef.error silakoita                    
-       } ;
-      silakkoina = silakoiden.p2 + "in" + a ; 
-      silakoissa = silakoiden.p3 + "iss" + a ;
+          <silakka+a, silakk + "ien", silakk, silak, silakk + "iin"> ;
+        _ + O@("o" | "ö") + ("ja" | "jä") =>        -- pasuunoja
+          <silakka+a,silakk+O+"jen",silakk+O, silak+O, silakk +O+ "ihin"> ;
+        _ + O@("o" | "ö") + ("ita" | "itä") =>      -- silakoita
+          <silakkaa, silak+O+"iden",silakk+O, silak+O, silakk +O+ "ihin"> ;
+        _   => Predef.error silakoita                    
+        } ;
+      silakkoina = silakoiden.p3 + "in" + a ; 
+      silakoissa = silakoiden.p4 + "iss" + a ;
     in nForms10
-      silakka silakan (silakka + a) (silakka + "n" + a) (silakka + a + "n")
-      silakoiden.p1 silakoita
-      silakkoina silakoissa silakoiden.p4 ; 
+      silakka silakan silakoiden.p1 (silakka + "n" + a) (silakka + o + "n")
+      silakoiden.p2 silakoita
+      silakkoina silakoissa silakoiden.p5 ; 
 
    dArpi : (_,_ : Str) -> NForms = \arpi,arven ->
       let
@@ -186,15 +192,24 @@ resource Declensions = ResFin ** open MorphoFin,CatFin,Prelude in {
           (rakei + "n" + a) (rakei + "ss" + a) (rakei + "siin") ; ---- sisariin
 
   dPaatti : (_,_ : Str) -> NForms = \paatti,paatin ->
-        let
-          a = vowelHarmony paatti ;
-          paatte = init paatti + "e" ;
-          paati = init paatin ;
-          paate = init paati + "e" ;
-        in nForms10
-          paatti paatin (paatti + a) (paatti + "n" + a) (paatti + "in")
-          (paatti + "en") (paatte + "j" + a) 
-          (paatte + "in" + a) (paate + "iss" + a) (paatte + "ihin") ; 
+    let
+      a = vowelHarmony paatti ;
+      paatte = init paatti + "e" ;
+      paati = init paatin ;
+      paate = init paati + "e" ;
+    in nForms10
+      paatti paatin (paatti + a) (paatti + "n" + a) (paatti + "in")
+      (paatti + "en") (paatte + "j" + a) 
+      (paatte + "in" + a) (paate + "iss" + a) (paatte + "ihin") ; 
+
+  dTohtori : (_ : Str) -> NForms = \tohtori ->
+    let
+      a = vowelHarmony tohtori ;
+      tohtor = init tohtori ;
+    in nForms10
+      tohtori (tohtori+"n") (tohtori + a) (tohtori + "n" + a) (tohtori + "in")
+      (tohtor + "eiden") (tohtor + "eit" + a) 
+      (tohtor + "ein" + a) (tohtor + "eiss" + a) (tohtor + "eihin") ; 
 
   dPiennar : (_,_ : Str) -> NForms = \piennar,pientaren ->
     let 
@@ -207,14 +222,14 @@ resource Declensions = ResFin ** open MorphoFin,CatFin,Prelude in {
       (pientar + "iss" + a) (pientar + "iin") ;
 
   dUnix : (_ : Str) -> NForms = \unix ->
-        let 
-          a = vowelHarmony unix ;
-          unixi = unix + "i" ; 
-          unixe = unix + "e" ; 
-        in nForms10
-          unix (unixi + "n") (unixi + a) (unixi + "n" + a) (unixi + "in")
-          (unixi + "en") (unixe + "j" + a) (unixe + "in" + a)
-          (unixe + "iss" + a) (unixe + "ihin") ;
+    let 
+      a = vowelHarmony unix ;
+      unixi = unix + "i" ; 
+      unixe = unix + "e" ; 
+    in nForms10
+      unix (unixi + "n") (unixi + a) (unixi + "n" + a) (unixi + "in")
+      (unixi + "en") (unixe + "j" + a) (unixe + "in" + a)
+      (unixe + "iss" + a) (unixe + "ihin") ;
 
   dNukke : (_,_ : Str) -> NForms = \nukke,nuken ->
     let
@@ -238,6 +253,41 @@ resource Declensions = ResFin ** open MorphoFin,CatFin,Prelude in {
       (jalas + "ten") (jalaksi + a) 
       (jalaksi + "n" + a) (jalaksi + "ss" + a) (jalaksi + "in") ; 
 
+  dSDP : Str -> NForms = \SDP ->
+    let 
+      c = case last SDP of {
+        "A" => 
+           <"n","ta","na","han","iden","ita","ina","issa","ihin"> ;
+        "B" | "C" | "D" | "E" | "G" | "P" | "T" | "V" | "W" => 
+           <"n","tä","nä","hen","iden","itä","inä","issä","ihin"> ;
+        "F" | "L" | "M" | "N" | "R" | "S" | "X" => 
+           <"n","ää","nä","ään","ien","iä","inä","issä","iin"> ;
+        "H" | "K" | "O" | "Å" => 
+           <"n","ta","na","hon","iden","ita","ina","issa","ihin"> ;
+        "I" | "J" => 
+           <"n","tä","nä","hin","iden","itä","inä","issä","ihin"> ;
+        "Q" | "U" => 
+           <"n","ta","na","hun","iden","ita","ina","issa","ihin"> ;
+        "Z" => 
+           <"n","aa","na","aan","ojen","oja","oina","oissa","oihin"> ;
+        "Ä" => 
+           <"n","tä","nä","hän","iden","itä","inä","issä","ihin"> ;
+        "Ö" => 
+           <"n","tä","nä","hön","iden","itä","inä","issä","ihin"> ;
+        _ => Predef.error (["illegal abbreviation"] ++ SDP)
+        } ;
+    in nForms10
+      SDP (SDP + ":" + c.p1) (SDP + ":" + c.p2) (SDP + ":" + c.p3) 
+      (SDP + ":" + c.p4) (SDP + ":" + c.p5) (SDP + ":" + c.p6) 
+      (SDP + ":" + c.p7) (SDP + ":" + c.p8) (SDP + ":" + c.p9) ;
+
+
+
+-------------------
+-- auxiliaries ----
+-------------------
+
+-- the maximal set of technical stems
 
     NForms : Type = Predef.Ints 9 => Str ;
 
diff --git a/examples/uusisuomi/Makefile b/examples/uusisuomi/Makefile
index d3a8d96c2..f5023537b 100644
--- a/examples/uusisuomi/Makefile
+++ b/examples/uusisuomi/Makefile
@@ -1,13 +1,15 @@
+#LEX=Duodecim
+#LEX=Aino
 LEX=Omat
 
 all: tests
 
 gf-files:
-	runghc MkLex.hs 0 > $(LEX)Abs.gf
-	runghc MkLex.hs 1 > $(LEX)1.gf
-	runghc MkLex.hs 2 > $(LEX)2.gf
-	runghc MkLex.hs 3 > $(LEX)3.gf
-	runghc MkLex.hs 4 > $(LEX)4.gf
+	runghc MkLex.hs 0 $(LEX) > $(LEX)Abs.gf
+	runghc MkLex.hs 1 $(LEX) > $(LEX)1.gf
+	runghc MkLex.hs 2 $(LEX) > $(LEX)2.gf
+	runghc MkLex.hs 3 $(LEX) > $(LEX)3.gf
+	runghc MkLex.hs 4 $(LEX) > $(LEX)4.gf
 
 experiments: gf-files
 	echo "gt -cat=Utt | l | wf exper1-$(LEX).txt" | gf $(LEX)1.gf
diff --git a/examples/uusisuomi/MkLex.hs b/examples/uusisuomi/MkLex.hs
index 8bfaa3944..304fd8b1f 100644
--- a/examples/uusisuomi/MkLex.hs
+++ b/examples/uusisuomi/MkLex.hs
@@ -5,25 +5,17 @@ import Char
 
 -- generate Finnish lexicon implementations with 1 or more 
 -- characteristic arguments
--- usage: runghc MkLex.hs 3
+-- usage: runghc MkLex.hs 3 name
 
 main = do
-  i:_ <- getArgs
+  i:tgt:_ <- getArgs
+  let src = "correct-" ++ tgt ++ ".txt"
   ss <- readFile src >>= return . filter (not . (all isSpace)) . lines
-  initiate i
+  initiate tgt i
   mapM_ (mkLex (read i) . uncurry (++)) (zip nums ss)
   putStrLn "}"
 
---src = "correct-NSK.txt"
---tgt = "NSK"
-src = "correct-Omat.txt"
-tgt = "Omat"
---src = "aino.txt"
---tgt = "Aino"
---src = "duodecim.txt"
---tgt = "Duodecim"
-
-initiate i = mapM_ putStrLn [
+initiate tgt i = mapM_ putStrLn [
   "--# -path=.:alltenses",
   "",
   header i,
diff --git a/examples/uusisuomi/Nominal.gf b/examples/uusisuomi/Nominal.gf
index e8ab2262a..767f61fc2 100644
--- a/examples/uusisuomi/Nominal.gf
+++ b/examples/uusisuomi/Nominal.gf
@@ -18,11 +18,11 @@ resource Nominal = ResFin ** open MorphoFin,Declensions,CatFin,Prelude in {
     let
       ukk = init ukko ;
       uko = weakGrade ukko ;
+      ukon = uko + "n" ;
       renka = Declensions.strongGrade (init ukko) ;
       rake = Declensions.strongGrade ukko ;
     in
     case ukko of {
-      _ + ("us" | "ys") => dLujuus ukko ;
       _ + "nen" => dNainen ukko ;
       _ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" |"ää"|"öö") => dPuu ukko ;
       _ + ("ai" | "ei" | "oi" | "ui" | "yi" | "äi" | "öi") => dPuu ukko ;
@@ -34,8 +34,12 @@ resource Nominal = ResFin ** open MorphoFin,Declensions,CatFin,Prelude in {
       _ + ("ut" | "yt") => dRae ukko (ukk + "en") ;
       _ + ("as" | "äs") => dRae ukko (renka + last renka + "n") ;
       _ + "e" => dRae ukko (rake + "en") ;
-      _ + ("a" | "o" | "u" | "y" | "ä" | "ö") => dUkko ukko (uko + "n") ;
-      _ + "i" => dPaatti ukko (uko + "n") ;
+      _ + "s" => dJalas ukko ; 
+      _ + "i" +o@("o"|"ö") => dSilakka ukko (ukko+"n") (ukko+"it"+getHarmony o);
+      _ + "i" + "a" => dSilakka ukko (ukko + "n") (ukk + "oita") ;
+      _ + "i" + "ä" => dSilakka ukko (ukko + "n") (ukk + "öitä") ;
+      _ + ("a" | "o" | "u" | "y" | "ä" | "ö") => dUkko ukko ukon ;
+      _ + "i" => dPaatti ukko ukon ;
       _ + ("ar" | "är") => dPiennar ukko (renka + "ren") ;
       _ + "e" + ("l" | "n") => dPiennar ukko (ukko + "en") ;
       _ => dUnix ukko
@@ -47,7 +51,8 @@ resource Nominal = ResFin ** open MorphoFin,Declensions,CatFin,Prelude in {
       in
       case <ukko,ukon> of {
         <_ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" | 
-              "ie" | "uo" | "yö" | "ea" | "eä"), _ + "n"> => 
+              "ie" | "uo" | "yö" | "ea" | "eä" | 
+              "ia" | "iä" | "io" | "iö"), _ + "n"> => 
            nForms1 ukko ; --- to protect
         <_ + ("a" | "o" | "u" | "y" | "ä" | "ö"), _ + "n"> => 
           dUkko ukko ukon ;  -- auto,auton
@@ -57,7 +62,8 @@ resource Nominal = ResFin ** open MorphoFin,Declensions,CatFin,Prelude in {
         <terv + "e", terv + "een"> => 
           dRae ukko (terv + "een") ;
         <nukk + "e", nuk + "en"> => dNukke ukko ukon ;
-        <_ + "s", _ + "ksen"> => dJalas ukko ; 
+        <_ + ("us" | "ys"), _ + "den"> => dLujuus ukko ;
+        <_, _ + ":n"> => dSDP ukko ;
         <_, _ + "n"> => nForms1 ukko ;
         _ => 
           Predef.error (["second argument should end in n, not"] ++ ukon)
@@ -68,12 +74,16 @@ resource Nominal = ResFin ** open MorphoFin,Declensions,CatFin,Prelude in {
         ukot = nForms2 ukko ukon ; 
       in
       case <ukko,ukon,ukkoja> of {
-
+        <_ + "ea", _ + "ean", _ + "oita"> => 
+          dSilakka ukko ukon ukkoja ;  -- idea, but not korkea
         <_ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" | 
-              "ie" | "uo" | "yö" | "ea" | "eä"), _ + "n", _> => 
-          nForms1 ukko ; --- to protect
-        <_ + "a" | "ä", _ + "n", _ + ("a" | "ä")> => 
+              "ie" | "uo" | "yö" | "ea" | "eä" | 
+              "ia" | "iä" | "io" | "iö"), _ + "n"> => 
+          nForms1 ukko ; --- to protect --- how to get "dioja"?
+        <_ + "a" | "ä" | "o" | "ö", _ + "n", _ + ("a" | "ä")> => 
           dSilakka ukko ukon ukkoja ;
+        <_ + "i", _ + "n", _ + ("eita" | "eitä")> => 
+          dTohtori ukko ;
         <_, _ + "n", _ + ("a" | "ä")> => ukot ;
         _ => 
           Predef.error 
diff --git a/examples/uusisuomi/correct-Aino.txt b/examples/uusisuomi/correct-Aino.txt
index 92be13c9d..a7976475b 100644
--- a/examples/uusisuomi/correct-Aino.txt
+++ b/examples/uusisuomi/correct-Aino.txt
@@ -4,7 +4,7 @@ tunti tunnin tuntia tuntina tuntiin tuntien tunteja tunteina tunneissa tunteihin
 
 äiti äidin äitiä äitinä äitiin äitien äitejä äiteinä äideissä äiteihin
 
-tähti tähdin tähtiä tähtinä tähtiin tähtien tähtejä tähteinä tähdeissä tähteihin
+tähti tähden tähteä tähtenä tähteen tähtien tähtiä tähtinä tähdissä tähtiin
 
 puhelin puhelimen puhelinta puhelimena puhelimeen puhelimien puhelimia puhelimina puhelimissa puhelimiin
 
@@ -16,12 +16,12 @@ kulta kullan kultaa kultana kultaan kultien kultia kultina kullissa kultiin
 
 hame hameen hametta hameena hameeseen hameiden hameita hameina hameissa hameisiin
 
+pelle pellen pelleä pellenä pelleen pellien pellejä pelleinä pelleissä pelleihin
+
 seinä seinän seinää seinänä seinään seinien seiniä seininä seinissä seiniin
 
 helma helman helmaa helmana helmaan helmojen helmoja helmoina helmoissa helmoihin
 
-hetki hetkin hetkiä hetkinä hetkiin hetkien hetkejä hetkeinä hetkeissä hetkeihin
-
 paikka paikan paikkaa paikkana paikkaan paikkojen paikkoja paikkoina paikoissa paikkoihin
 
 Nyytti Nyytin Nyyttiä Nyyttinä Nyyttiin Nyyttien Nyyttejä Nyytteinä Nyyteissä Nyytteihin
@@ -32,11 +32,11 @@ lauta laudan lautaa lautana lautaan lautojen lautoja lautoina laudoissa lautoihi
 
 rosvo rosvon rosvoa rosvona rosvoon rosvojen rosvoja rosvoina rosvoissa rosvoihin
 
-kivi kivin kiviä kivinä kiviin kivien kivejä kiveinä kiveissä kiveihin
+kivi kiven kiveä kivenä kiveen kivien kiviä kivinä kivissä kiviin
 
-eläin eläimen eläintä eläimenä eläimeen eläimien eläimiä eläiminä eläimissä eläimiin
+eläin eläimen eläintä eläimenä eläimeen eläimien/eläinten eläimiä eläiminä eläimissä eläimiin
 
-langas lankaan langasta lankaana lankaaseen lankaiden lankaita lankaina lankaissa lankaisiin
+kangas kankaan kangasta kankaana kankaaseen kankaiden kankaita kankaina kankaissa kankaisiin
 
 tukka tukan tukkaa tukkana tukkaan tukkien tukkia tukkina tukissa tukkiin
 
@@ -56,9 +56,9 @@ ystävä ystävän ystävää ystävänä ystävään ystävien ystäviä ystävinä ystävissä yst
 
 teatteri teatterin teatteria teatterina teatteriin teatterien teattereja teattereina teattereissa teattereihin
 
-ravintola ravintolan ravintolaa ravintolana ravintolaan ravintolien ravintolia ravintolina ravintolissa ravintoliin
+ravintola ravintolan ravintolaa ravintolana ravintolaan ravintoloiden ravintoloita ravintoloina ravintoloissa ravintoloihin
 
-suuttumus suuttumuden suuttumutta suuttumutena suuttumuteen suuttumuksien suuttumuksia suuttumuksina suuttumuksissa suuttumuksiin
+suuttumus suuttumuksen suuttumusta suuttumuksena suuttumukseen suuttumusten suuttumuksia suuttumuksina suuttumuksissa suuttumuksiin
 
 laukku laukun laukkua laukkuna laukkuun laukkujen laukkuja laukkuina laukuissa laukkuihin
 
@@ -66,13 +66,13 @@ pussi pussin pussia pussina pussiin pussien pusseja pusseina pusseissa pusseihin
 
 puikko puikon puikkoa puikkona puikkoon puikkojen puikkoja puikkoina puikoissa puikkoihin
 
-rasia rasian rasiaa rasiana rasiaan rasiojen rasioja rasioina rasioissa rasioihin
+rasia rasian rasiaa rasiana rasiaan rasioiden rasioita rasioina rasioissa rasioihin
 
 takki takin takkia takkina takkiin takkien takkeja takkeina takeissa takkeihin
 
 kielto kiellon kieltoa kieltona kieltoon kieltojen kieltoja kieltoina kielloissa kieltoihin
 
-käsi käsin käsiä käsinä käsiin käsien käsejä käseinä käseissä käseihin
+käsi käden kättä kätenä käteen käsien käsiä käsinä käsissä käsiin
 
 isä isän isää isänä isään isien isiä isinä isissä isiin
 
@@ -80,7 +80,7 @@ Veikka Veikan Veikkaa Veikkana Veikkaan Veikkojen Veikkoja Veikkoina Veikoissa V
 
 itku itkun itkua itkuna itkuun itkujen itkuja itkuina itkuissa itkuihin
 
-hetki hetkin hetkiä hetkinä hetkiin hetkien hetkejä hetkeinä hetkeissä hetkeihin
+hetki hetken hetkeä hetkenä hetkeen hetkien hetkiä hetkinä hetkissä hetkiin
 
 ihminen ihmisen ihmistä ihmisenä ihmiseen ihmisten ihmisiä ihmisinä ihmisissä ihmisiin
 
@@ -122,7 +122,7 @@ kello kellon kelloa kellona kelloon kellojen kelloja kelloina kelloissa kelloihi
 
 viisari viisarin viisaria viisarina viisariin viisarien viisareja viisareina viisareissa viisareihin
 
-toivotus toivotuden toivotutta toivotutena toivotuteen toivotuksien toivotuksia toivotuksina toivotuksissa toivotuksiin
+toivotus toivotuksen toivotusta toivotuksena toivotukseen toivotusten toivotuksia toivotuksina toivotuksissa toivotuksiin
 
 kemu kemun kemua kemuna kemuun kemujen kemuja kemuina kemuissa kemuihin
 
@@ -134,9 +134,9 @@ kastike kastikkeen kastiketta kastikkeena kastikkeeseen kastikkeiden kastikkeita
 
 ruoka ruoan ruokaa ruokana ruokaan ruokien ruokia ruokina ruoissa ruokiin
 
-ateria aterian ateriaa ateriana ateriaan ateriojen aterioja aterioina aterioissa aterioihin
+ateria aterian ateriaa ateriana ateriaan aterioiden aterioita aterioina aterioissa aterioihin
 
-kierros kierrosin kierrosia kierrosina kierrosiin kierrosien kierroseja kierroseina kierroseissa kierroseihin
+kierros kierroksen kierrosta kierroksena kierrokseen kierrosten kierroksia kierroksina kierroksissa kierroksiin
 
 lupa luvan lupaa lupana lupaan lupien lupia lupina luvissa lupiin
 
@@ -170,7 +170,7 @@ kerta kerran kertaa kertana kertaan kertojen kertoja kertoina kerroissa kertoihi
 
 harjoittelu harjoittelun harjoittelua harjoitteluna harjoitteluun harjoittelujen harjoitteluja harjoitteluina harjoitteluissa harjoitteluihin
 
-asia asian asiaa asiana asiaan asiojen asioja asioina asioissa asioihin
+asia asian asiaa asiana asiaan asioiden asioita asioina asioissa asioihin
 
 mieli mielin mieliä mielinä mieliin mielien mielejä mieleinä mieleissä mieleihin
 
@@ -184,17 +184,15 @@ koulu koulun koulua kouluna kouluun koulujen kouluja kouluina kouluissa kouluihi
 
 tehtävä tehtävän tehtävää tehtävänä tehtävään tehtävien tehtäviä tehtävinä tehtävissä tehtäviin
 
-rehtori rehtorin rehtoria rehtorina rehtoriin rehtorien rehtoreja rehtoreina rehtoreissa rehtoreihin
+rehtori rehtorin rehtoria rehtorina rehtoriin rehtoreiden rehtoreita rehtoreina rehtoreissa rehtoreihin
 
 viitta viitan viittaa viittana viittaan viittojen viittoja viittoina viitoissa viittoihin
 
 hyppy hypyn hyppyä hyppynä hyppyyn hyppyjen hyppyjä hyppyinä hypyissä hyppyihin
 
-taivutus taivutuden taivututta taivututena taivututeen taivutuksien taivutuksia taivutuksina taivutuksissa taivutuksiin
+taivutus taivutuksen taivutusta taivutuksena taivutukseen taivutusten taivutuksia taivutuksina taivutuksissa taivutuksiin
 
 opettaja opettajan opettajaa opettajana opettajaan opettajien opettajia opettajina opettajissa opettajiin
 
-saavutus saavutuden saavututta saavututena saavututeen saavutuksien saavutuksia saavutuksina saavutuksissa saavutuksiin
-
-pelle pelteen pellettä pelteenä pelteeseen pelteiden pelteitä pelteinä pelteissä pelteisiin
+saavutus saavutuksen saavutusta saavutuksena saavutukseen saavutusten saavutuksia saavutuksina saavutuksissa saavutuksiin
 
diff --git a/examples/uusisuomi/correct-Duodecim.txt b/examples/uusisuomi/correct-Duodecim.txt
index 78d9f31bd..c8732a274 100644
--- a/examples/uusisuomi/correct-Duodecim.txt
+++ b/examples/uusisuomi/correct-Duodecim.txt
@@ -14,7 +14,7 @@ poisto poiston poistoa poistona poistoon poistojen poistoja poistoina poistoissa
 
 endometrioosi endometrioosin endometrioosia endometrioosina endometrioosiin endometrioosien endometriooseja endometriooseina endometriooseissa endometriooseihin
 
-suoli suolin suolia suolina suoliin suolien suoleja suoleina suoleissa suoleihin
+suoli suolen suolta suolena suoleen suolten/suolien suolia suolina suolissa suoliin
 
 autosomi autosomin autosomia autosomina autosomiin autosomien autosomeja autosomeina autosomeissa autosomeihin
 
@@ -22,11 +22,9 @@ inkontinenssi inkontinenssin inkontinenssia inkontinenssina inkontinenssiin inko
 
 alku alun alkua alkuna alkuun alkujen alkuja alkuina aluissa alkuihin
 
-vuoto vuodon vuotoa vuotona vuotoon vuotojen vuotoja vuotoina vuodoissa vuotoihin
-
-tutkimus tutkimuden tutkimutta tutkimutena tutkimuteen tutkimuksien tutkimuksia tutkimuksina tutkimuksissa tutkimuksiin
+tutkimus tutkimuksen tutkimusta tutkimuksena tutkimukseen tutkimusten tutkimuksia tutkimuksina tutkimuksissa tutkimuksiin
 
-tulos tulosin tulosia tulosina tulosiin tulosien tuloseja tuloseina tuloseissa tuloseihin
+tulos tuloksen tulosta tuloksena tulokseen tulosten tuloksia tuloksina tuloksissa tuloksiin
 
 Basedow Basedowin Basedowia Basedowina Basedowiin Basedowien Basedoweja Basedoweina Basedoweissa Basedoweihin
 
@@ -38,31 +36,31 @@ hoito hoidon hoitoa hoitona hoitoon hoitojen hoitoja hoitoina hoidoissa hoitoihi
 
 oire oireen oiretta oireena oireeseen oireiden oireita oireina oireissa oireisiin
 
-HYKS HYKSin HYKSiä HYKSinä HYKSiin HYKSien HYKSejä HYKSeinä HYKSeissä HYKSeihin
+HYKS HYKS:n HYKS:ä HYKS:nä HYKS:ään HYKS:ien HYKS:iä HYKS:inä HYKS:issä HYKS:iin
 
-endokrinologia endokrinologian endokrinologiaa endokrinologiana endokrinologiaan endokrinologiien endokrinologiia endokrinologiina endokrinologiissa endokrinologiiin
+endokrinologia endokrinologian endokrinologiaa endokrinologiana endokrinologiaan endokrinologioiden endokrinologioita endokrinologioina endokrinologioissa endokrinologioihin
 
-poliklinikka poliklinikan poliklinikkaa poliklinikkana poliklinikkaan poliklinikkien poliklinikkia poliklinikkina poliklinikissa poliklinikkiin
+poliklinikka poliklinikan poliklinikkaa poliklinikkana poliklinikkaan poliklinikoiden poliklinikoita poliklinikkoina poliklinikoissa poliklinikkoihin
 
-kompressio kompression kompressioa kompressiona kompressioon kompressiojen kompressioja kompressioina kompressioissa kompressioihin
+kompressio kompression kompressiota kompressiona kompressioon kompressioiden kompressioita kompressioina kompressioissa kompressioihin
 
-leikkaus leikkauden leikkautta leikkautena leikkauteen leikkauksien leikkauksia leikkauksina leikkauksissa leikkauksiin
+leikkaus leikkauksen leikkausta leikkauksena leikkaukseen leikkausten leikkauksia leikkauksina leikkauksissa leikkauksiin
 
 kortisoni kortisonin kortisonia kortisonina kortisoniin kortisonien kortisoneja kortisoneina kortisoneissa kortisoneihin
 
-hyperkalsemia hyperkalsemian hyperkalsemiaa hyperkalsemiana hyperkalsemiaan hyperkalsemiojen hyperkalsemioja hyperkalsemioina hyperkalsemioissa hyperkalsemioihin
+hyperkalsemia hyperkalsemian hyperkalsemiaa hyperkalsemiana hyperkalsemiaan hyperkalsemioiden hyperkalsemioita hyperkalsemioina hyperkalsemioissa hyperkalsemioihin
 
 seerumi seerumin seerumia seerumina seerumiin seerumien seerumeja seerumeina seerumeissa seerumeihin
 
-pitoisuus pitoisuuden pitoisuutta pitoisuutena pitoisuuteen pitoisuuksien pitoisuuksia pitoisuuksina pitoisuuksissa pitoisuuksiin
+pitoisuus pitoisuuksen pitoisuusta pitoisuuksena pitoisuukseen pitoisuusten pitoisuuksia pitoisuuksina pitoisuuksissa pitoisuuksiin
 
 viitealue viitealueen viitealuetta viitealueena viitealueeseen viitealueiden viitealueita viitealueina viitealueissa viitealueisiin
 
-kevät kevätin kevätiä kevätinä kevätiin kevätien kevätejä keväteinä keväteissä keväteihin
+kevät kevään kevättä keväänä kevääseen keväiden keväitä keväinä keväissä keväihin/keväisiin
 
 itä idän itää itänä itään itien itiä itinä idissä itiin
 
-kausi kausin kausia kausina kausiin kausien kauseja kauseina kauseissa kauseihin
+kausi kauden kautta kautena kauteen kausien kausia kausina kausissa kausiin
 
 luku luvun lukua lukuna lukuun lukujen lukuja lukuina luvuissa lukuihin
 
@@ -72,9 +70,9 @@ osa osan osaa osana osaan osien osia osina osissa osiin
 
 sarkoidoosi sarkoidoosin sarkoidoosia sarkoidoosina sarkoidoosiin sarkoidoosien sarkoidooseja sarkoidooseina sarkoidooseissa sarkoidooseihin
 
-kuvaus kuvauden kuvautta kuvautena kuvauteen kuvauksien kuvauksia kuvauksina kuvauksissa kuvauksiin
+kuvaus kuvauksen kuvausta kuvauksena kuvaukseen kuvausten kuvauksia kuvauksina kuvauksissa kuvauksiin
 
-ACE ACEin ACEiä ACEinä ACEiin ACEien ACEejä ACEeinä ACEeissä ACEeihin
+ACE ACE:n ACE:tä ACE:nä ACE:hen ACE:iden ACE:itä ACE:inä ACE:issä ACE:ihin
 
 vaihe vaiheen vaihetta vaiheena vaiheeseen vaiheiden vaiheita vaiheina vaiheissa vaiheisiin
 
@@ -88,7 +86,7 @@ kontrolli kontrollin kontrollia kontrollina kontrolliin kontrollien kontrolleja
 
 tuntuma tuntuman tuntumaa tuntumana tuntumaan tuntumien tuntumia tuntumina tuntumissa tuntumiin
 
-laboratorio laboratorion laboratorioa laboratoriona laboratorioon laboratoriojen laboratorioja laboratorioina laboratorioissa laboratorioihin
+laboratorio laboratorion laboratoriota laboratoriona laboratorioon laboratorioiden laboratorioita laboratorioina laboratorioissa laboratorioihin
 
 virhe virheen virhettä virheenä virheeseen virheiden virheitä virheinä virheissä virheisiin
 
@@ -96,23 +94,23 @@ epäily epäilyn epäilyä epäilynä epäilyyn epäilyjen epäilyjä epäilyinä epäilyissä
 
 rauhanen rauhasen rauhasta rauhasena rauhaseen rauhasten rauhasia rauhasina rauhasissa rauhasiin
 
-paratyreoidea paratyreoidean paratyreoideaa paratyreoideana paratyreoideaan paratyreoideiden paratyreoideita paratyreoideina paratyreoideissa paratyreoideisiin
+paratyreoidea paratyreoidean paratyreoideaa paratyreoideana paratyreoideaan paratyreoideoiden paratyreoideoita paratyreoideoina paratyreoideoissa paratyreoideoihin
 
 näyte näytteen näytettä näytteenä näytteeseen näytteiden näytteitä näytteinä näytteissä näytteisiin
 
-löydös löydösin löydösiä löydösinä löydösiin löydösien löydösejä löydöseinä löydöseissä löydöseihin
+löydös löydöksen löydöstä löydöksenä löydökseen löydösten löydöksiä löydöksinä löydöksissä löydöksiin
 
-hyperplasia hyperplasian hyperplasiaa hyperplasiana hyperplasiaan hyperplasiojen hyperplasioja hyperplasioina hyperplasioissa hyperplasioihin
+hyperplasia hyperplasian hyperplasiaa hyperplasiana hyperplasiaan hyperplasioiden hyperplasioita hyperplasioina hyperplasioissa hyperplasioihin
 
-lääkitys lääkityden lääkityttä lääkitytenä lääkityteen lääkityksien lääkityksiä lääkityksinä lääkityksissä lääkityksiin
+lääkitys lääkityksen lääkitystä lääkityksenä lääkitykseen lääkitysten lääkityksiä lääkityksinä lääkityksissä lääkityksiin
 
 tyroksiini tyroksiinin tyroksiinia tyroksiinina tyroksiiniin tyroksiinien tyroksiineja tyroksiineina tyroksiineissa tyroksiineihin
 
 valeraatti valeraatin valeraattia valeraattina valeraattiin valeraattien valeraatteja valeraatteina valeraateissa valeraatteihin
 
-koe koeen koetta koeena koeeseen koeiden koeita koeina koeissa koeisiin
+koe kokeen koetta kokeena kokeeseen kokeiden kokeita kokeina kokeissa kokeisiin
 
-veri verin veriä verinä veriin verien verejä vereinä vereissä vereihin
+veri veren verta verenä vereen verten/verien veriä verinä verissä veriin
 
 kalsium kalsiumin kalsiumia kalsiumina kalsiumiin kalsiumien kalsiumeja kalsiumeina kalsiumeissa kalsiumeihin
 
@@ -120,13 +118,13 @@ virtsa virtsan virtsaa virtsana virtsaan virtsojen virtsoja virtsoina virtsoissa
 
 määrä määrän määrää määränä määrään määrien määriä määrinä määrissä määriin
 
-PTH PTHin PTHiä PTHinä PTHiin PTHien PTHejä PTHeinä PTHeissä PTHeihin
+PTH PTH:n PTH:ta PTH:na PTH:hon PTH:iden PTH:ita PTH:ina PTH:issa PTH:ihin
 
 tiheys tiheyden tiheyttä tiheytenä tiheyteen tiheyksien tiheyksiä tiheyksinä tiheyksissä tiheyksiin
 
-tulehdus tulehduden tulehdutta tulehdutena tulehduteen tulehduksien tulehduksia tulehduksina tulehduksissa tulehduksiin
+tulehdus tulehduksen tulehdusta tulehduksena tulehdukseen tulehdusten tulehduksia tulehduksina tulehduksissa tulehduksiin
 
-pilleri pillerin pilleriä pillerinä pilleriin pillerien pillerejä pillereinä pillereissä pillereihin
+pilleri pillerin pilleriä pillerinä pilleriin pillereiden pillereitä pillereinä pillereissä pillereihin
 
 tuote tuotteen tuotetta tuotteena tuotteeseen tuotteiden tuotteita tuotteina tuotteissa tuotteisiin
 
@@ -134,27 +132,27 @@ valmiste valmisteen valmistetta valmisteena valmisteeseen valmisteiden valmistei
 
 diagnoosi diagnoosin diagnoosia diagnoosina diagnoosiin diagnoosien diagnooseja diagnooseina diagnooseissa diagnooseihin
 
-väsymys väsymyden väsymyttä väsymytenä väsymyteen väsymyksien väsymyksiä väsymyksinä väsymyksissä väsymyksiin
+väsymys väsymyksen väsymystä väsymyksenä väsymykseen väsymysten väsymyksiä väsymyksinä väsymyksissä väsymyksiin
 
 poikkeavuus poikkeavuuden poikkeavuutta poikkeavuutena poikkeavuuteen poikkeavuuksien poikkeavuuksia poikkeavuuksina poikkeavuuksissa poikkeavuuksiin
 
-vaihdunta vaihdunnan vaihduntaa vaihduntana vaihduntaan vaihduntien vaihduntia vaihduntina vaihdunnissa vaihduntiin
+vaihdunta vaihdunnan vaihduntaa vaihduntana vaihduntaan vaihduntojen vaihduntoja vaihduntoina vaihdunnoissa vaihduntoihin
 
-häiriö häiriön häiriöä häiriönä häiriöön häiriöjen häiriöjä häiriöinä häiriöissä häiriöihin
+häiriö häiriön häiriötä häiriönä häiriöön häiriöiden häiriöitä häiriöinä häiriöissä häiriöihin
 
 piirre piirteen piirrettä piirteenä piirteeseen piirteiden piirteitä piirteinä piirteissä piirteisiin
 
-eritys erityden erityttä eritytenä erityteen erityksien erityksiä erityksinä erityksissä erityksiin
+eritys erityksen eritystä erityksenä eritykseen eritysten erityksiä erityksinä erityksissä erityksiin
 
 raja rajan rajaa rajana rajaan rajojen rajoja rajoina rajoissa rajoihin
 
 tieto tiedon tietoa tietona tietoon tietojen tietoja tietoina tiedoissa tietoihin
 
-reseptio reseption reseptioa reseptiona reseptioon reseptiojen reseptioja reseptioina reseptioissa reseptioihin
+reseptio reseption reseptiota reseptiona reseptioon reseptioiden reseptioita reseptioina reseptioissa reseptioihin
 
 munuainen munuaisen munuaista munuaisena munuaiseen munuaisten munuaisia munuaisina munuaisissa munuaisiin
 
-reabsorptio reabsorption reabsorptioa reabsorptiona reabsorptioon reabsorptiojen reabsorptioja reabsorptioina reabsorptioissa reabsorptioihin
+reabsorptio reabsorption reabsorptiota reabsorptiona reabsorptioon reabsorptioiden reabsorptioita reabsorptioina reabsorptioissa reabsorptioihin
 
 luusto luuston luustoa luustona luustoon luustojen luustoja luustoina luustoissa luustoihin
 
@@ -164,13 +162,13 @@ suolisto suoliston suolistoa suolistona suolistoon suolistojen suolistoja suolis
 
 vitamiini vitamiinin vitamiinia vitamiinina vitamiiniin vitamiinien vitamiineja vitamiineina vitamiineissa vitamiineihin
 
-muodostus muodostuden muodostutta muodostutena muodostuteen muodostuksien muodostuksia muodostuksina muodostuksissa muodostuksiin
+muodostus muodostuksen muodostusta muodostuksena muodostukseen muodostusten muodostuksia muodostuksina muodostuksissa muodostuksiin
 
-CaR CaRin CaRia CaRina CaRiin CaRien CaReja CaReina CaReissa CaReihin
+CaR CaR:n CaR:ää CaR:nä CaR:ään CaR:ien CaR:iä CaR:inä CaR:issä CaR:iin
 
 synteesi synteesin synteesiä synteesinä synteesiin synteesien synteesejä synteeseinä synteeseissä synteeseihin
 
-vaikutus vaikutuden vaikututta vaikututena vaikututeen vaikutuksien vaikutuksia vaikutuksina vaikutuksissa vaikutuksiin
+vaikutus vaikutuksen vaikutusta vaikutuksena vaikutukseen vaikutusten vaikutuksia vaikutuksina vaikutuksissa vaikutuksiin
 
 syy syyn syytä syynä syyhyn syiden syitä syinä syissä syihin
 
@@ -180,7 +178,7 @@ sairaus sairauden sairautta sairautena sairauteen sairauksien sairauksia sairauk
 
 tausta taustan taustaa taustana taustaan taustojen taustoja taustoina taustoissa taustoihin
 
-toiminta toiminnan toimintaa toimintana toimintaan toimintien toimintia toimintina toiminnissa toimintiin
+toiminta toiminnan toimintaa toimintana toimintaan toimintojen toimintoja toimintoina toiminnoissa toimintoihin
 
 kriteeri kriteerin kriteeriä kriteerinä kriteeriin kriteerien kriteerejä kriteereinä kriteereissä kriteereihin
 
@@ -192,9 +190,9 @@ kreatiniini kreatiniinin kreatiniinia kreatiniinina kreatiniiniin kreatiniinien
 
 poistuma poistuman poistumaa poistumana poistumaan poistumien poistumia poistumina poistumissa poistumiin
 
-FHH FHHin FHHiä FHHinä FHHiin FHHien FHHejä FHHeinä FHHeissä FHHeihin
+FHH FHH:n FHH:ta FHH:na FHH:hon FHH:iden FHH:ita FHH:ina FHH:issa FHH:ihin
 
-historia historian historiaa historiana historiaan historiien historiia historiina historiissa historiiin
+historia historian historiaa historiana historiaan historioiden historioita historioina historioissa historioihin
 
 mahdollisuus mahdollisuuden mahdollisuutta mahdollisuutena mahdollisuuteen mahdollisuuksien mahdollisuuksia mahdollisuuksina mahdollisuuksissa mahdollisuuksiin
 
diff --git a/examples/uusisuomi/correct-Omat.txt b/examples/uusisuomi/correct-Omat.txt
index 1c78b60a5..b940c747e 100644
--- a/examples/uusisuomi/correct-Omat.txt
+++ b/examples/uusisuomi/correct-Omat.txt
@@ -10,16 +10,12 @@ maa maan maata maana maahan maiden maita maina maissa maihin
 
 paluu paluun paluuta paluuna paluuhun paluiden paluita paluina paluissa paluihin
 
-syy syyn syytä syynä syyhyn syiden syitä syinä syissä syihin
-
 pii piin piitä piinä piihin piiden piitä piinä piissä piihin
 
 hai hain haita haina haihin haiden haita haina haissa haihin
 
 tienoo tienoon tienoota tienoona tienoohon tienoiden tienoita tienoina tienoissa tienoihin
 
-suo suon suota suona suohon soiden soita soina soissa soihin
-
 yö yön yötä yönä yöhön öiden öitä öinä öissä öihin
 
 tie tien tietä tienä tiehen teiden teitä teinä teissä teihin
@@ -186,3 +182,17 @@ kevät kevään kevättä keväänä kevääseen keväiden keväitä keväinä keväissä keväihi
 
 sydän sydämen sydäntä sydämenä sydämeen sydanten/sydämien sydämiä sydäminä sydämissä sydämiin
 
+radio radion radiota radiona radioon radioiden radioita radioina radioissa radioihin
+
+neliö neliön neliötä neliönä neliöön neliöiden neliöitä neliöinä neliöissä neliöihin
+
+sammakko sammakon sammakkoa sammakkona sammakoiden sammakoita sammakkoina sammakoissa sammakkoihin
+
+asia asian asiaa asiana asiaan asioiden asioita asioina asioissa asioihin
+
+päkiä päkiän päkiää päkiänä päkiään päkiöiden päkiöitä päkiöinä päkiöissä päkiöihin
+
+idea idean ideaa ideana ideaan ideoiden ideoita ideoina ideoissa ideoihin
+
+SDP SDP:n SDP:tä SDP:nä SDP:hen SDP:iden SDP:itä SDP:inä SDP:issä SDP:ihin
+