Added ló and kő cases (lovak, kövek) but not done yet

src/hungarian/LexiconHun.gf

@@ -174,7 +174,7 @@ lin fly_V = mkV "repül" ;
 -- lin hold_V2 = mkV2 "" ;
 -- lin hope_VS = mkV "" ;
 -- lin horn_N = mkN "" ;
--- lin horse_N = mkN "" ;
+lin horse_N = mkN "ló" ;
 -- lin hot_A = mkA "" ;
 lin house_N = mkN "ház" ;
 -- lin hunt_V2 = mkV2 "" ;
@@ -342,7 +342,7 @@ lin red_A = mkA "piros" ;
 -- lin star_N = mkN "" ;
 -- lin steel_N = mkN "" ;
 -- lin stick_N = mkN "" ;
--- lin stone_N = mkN "" ;
+lin stone_N = mkN "kő" ;
 -- lin stop_V =  mkV "" ;
 -- lin stove_N = mkN "" ;
 -- lin straight_A = mkA "" ;

src/hungarian/NounMorphoHun.gf

@@ -47,6 +47,25 @@ oper
     let foo : Str = "foo" ;
      in mkNoun sör ;
 
+  --Handles words like "ló, kő" which are "lovak, kövek" in plural
+  --TODO: not fixed, right now "lovok" and "kövök"
+  dLó : Str -> Noun = \ló ->
+    let lo = shorten ló ;
+        lov = lo + "v" ;
+        nLov = mkNoun lov ;
+        nLó = mkNoun ló ;
+    in {s = \\n,c => case <n,c> of {
+                -- All plural forms and Sg Acc use the "lov" stem
+                <Pl,_>|<Sg,Acc> => nLov.s ! n ! c ;
+
+                -- The rest of the forms are formed with the regular constructor,
+                -- using "ló" as the stem.
+                _ => nLó.s ! n ! c
+
+              } ;
+        } ;
+
+
   -- More words not covered by current paradigms:
   -- https://cl.lingfil.uu.se/~bea/publ/megyesi-hungarian.pdf
   -- falu ~ falva-k
@@ -161,7 +180,7 @@ oper
     _   => endCaseCons c
   } ;
 
-  -- Function to return a plural allomorph given the stem (e.g. nev, almá).
+  -- Function to return a plural allomorph given the stem (e.g. név, almá).
   pluralAllomorph : (stem : Str) -> Str = \stem ->
     case vowFinal stem of {
       True  => "k" ;