Finnish attempto started

examples/attempto/LexAttemptoFin.gf

@@ -0,0 +1,34 @@
+instance LexAttemptoFin of LexAttempto = 
+  open 
+   ExtraFin,  
+   SyntaxFin, 
+   ParadigmsFin, 
+   ConstructX, 
+   (M = MakeStructuralFin)
+   in {
+
+oper
+  possible_A = mkA "mahdollinen" ;
+  necessary_A = mkA "välttämätön" ;
+  own_A = mkA "oma" ;
+  have_VV = mkVV (mkV "pitää") ;
+  provably_Adv = mkAdv "todistettavasti" ;
+  provable_A = mkA "todistettava" ;
+  false_A = mkA (mkN "epätosi" "epätosia") ;
+  such_A = mkA "sellainen" ;
+ 
+  genitiveNP np = mkNP (GenNP np) ;
+
+  kilogram_CN = mkCN (mkN "kilo") ;
+
+  each_Det = every_Det ; ----
+
+  that_Subj = M.mkSubj "että" ;
+
+  comma_and_Conj = M.mkConj [] ", ja" plural ;
+  comma_or_Conj = M.mkConj [] ", tai" singular ;
+  slash_Conj = M.mkConj [] "/" singular ;
+
+  whose_IDet = mkIDet (M.mkIQuant "kenen") ;
+
+}