diff --git a/lib/resource/abstract/Compatibility.gf b/lib/resource/abstract/Compatibility.gf
new file mode 100644
index 000000000..a4af7d4f5
--- /dev/null
+++ b/lib/resource/abstract/Compatibility.gf
@@ -0,0 +1,9 @@
+abstract Compatibility = Cat ** {
+
+-- from Noun 19/4/2008
+
+fun
+    NumInt     : Int -> Num ;     -- 57
+    OrdInt     : Int -> Ord ;     -- 57
+
+}
diff --git a/lib/resource/english/CompatibilityEng.gf b/lib/resource/english/CompatibilityEng.gf
new file mode 100644
index 000000000..28ede2a17
--- /dev/null
+++ b/lib/resource/english/CompatibilityEng.gf
@@ -0,0 +1,11 @@
+--# -path=.:../abstract:../common
+
+concrete CompatibilityEng of Compatibility = CatEng ** open Prelude, ResEng in {
+
+-- from Noun 19/4/2008
+
+lin
+    NumInt n = {s = n.s ; n = Pl ; hasCard = True} ; 
+    OrdInt n = {s = n.s ++ "th"} ;
+
+}
diff --git a/lib/resource/spanish/CompatibilitySpa.gf b/lib/resource/spanish/CompatibilitySpa.gf
new file mode 100644
index 000000000..b8af3136b
--- /dev/null
+++ b/lib/resource/spanish/CompatibilitySpa.gf
@@ -0,0 +1,11 @@
+--# -path=.:../romance:../abstract:../common
+
+concrete CompatibilitySpa of Compatibility = CatSpa ** open Prelude, CommonRomance in {
+
+-- from Noun 19/4/2008
+
+lin
+    NumInt n = {s = \\_ => n.s ; isNum = True ; n = Pl} ;
+    OrdInt n = {s = \\_ => n.s ++ "."} ; ---
+
+}
diff --git a/lib/resource/swedish/CompatibilitySwe.gf b/lib/resource/swedish/CompatibilitySwe.gf
new file mode 100644
index 000000000..84ab961b3
--- /dev/null
+++ b/lib/resource/swedish/CompatibilitySwe.gf
@@ -0,0 +1,11 @@
+--# -path=.:../scandinavian:../abstract:../common
+
+concrete CompatibilitySwe of Compatibility = CatSwe ** open Prelude, CommonScand in {
+
+-- from Noun 19/4/2008
+
+lin
+    NumInt n = {s = \\_ => n.s ; isDet = True ; n = Pl} ;
+    OrdInt n = {s = n.s ++ ":e" ; isDet = True} ;
+
+}