1 files changed, 6 insertions, 0 deletions
diff --git a/grammars/multiple/SystemCityEng.gf b/grammars/multiple/SystemCityEng.gf
new file mode 100644
index 000000000..ddf15248a
--- /dev/null
+++ b/grammars/multiple/SystemCityEng.gf
@@ -0,0 +1,6 @@
+concrete SystemCityEng of SystemCity = SystemEng, CityEng ** open
+  Prelude in {
+  lin
+    RDistance x y d = 
+      ss (["the distance from"] ++ x.s ++ "to" ++ y.s ++ "is" ++ d.s) ;
+} ;