Experimenting with transfer.

grammars/numerals/ResDecimal.gf

@@ -0,0 +1,7 @@
+resource ResDecimal = {
+
+param Zeros = noz  | zz  ;
+
+oper ss : Str -> {s : Str} = \s -> {s = s} ;
+oper mkz : Str -> {s : Zeros => Str} = \s -> {s = table {_ => s}} ;
+}