New numeral grammars.

grammars/numerals/ResNumSwedish.gf

@@ -0,0 +1,23 @@
+resource ResNumSwedish = {
+  param DForm = ental | ton | tiotal ;
+  oper mkTal : Str -> Str -> Str -> {
+    s : DForm => Str 
+  }
+  = \ två -> \ tolv -> \ tjugo -> {
+    s = table {
+      ental => två ;
+      ton => tolv ;
+      tiotal => tjugo 
+    }
+    } ;
+  oper regTal : Str -> {
+    s : DForm => Str 
+  }
+  = \ fem -> mkTal fem (fem + "ton")(fem + "tio");
+  oper ss : Str -> {
+    s : Str 
+  }
+  = \ s -> {
+    s = s 
+  } ;
+  }