Karin C's example

grammars/video/allSwe.gf

@@ -0,0 +1,9 @@
+--# -path=.:Shared:Weekday:Time:Channel:User:System
+
+concrete allSwe of all = specUserSwe, specSystemSwe ** {
+
+-- lincat Move = {s : Str} ;
+-- lin userMove m = {s = "Användaren:" ++ m.s} ;
+-- lin systemMove m = {s = "Systemet:" ++ m.s} ;
+
+}