6 files changed, 62 insertions, 7 deletions
diff --git a/examples/translator/TranslateBul.gf b/examples/translator/TranslateBul.gf
index 4f6733e81..f6a253a6c 100644
--- a/examples/translator/TranslateBul.gf
+++ b/examples/translator/TranslateBul.gf
@@ -1,6 +1,9 @@
 --# -path=.:alltenses:../phrasebook:../../lib/src/english:../../lib/src/bulgarian
 
-concrete TranslateBul of Translate = ParseBul, PhrasebookBul ** open SyntaxBul, (E = ExtraBul), Prelude in {
+concrete TranslateBul of Translate = 
+  ParseBul, 
+  PhrasebookBul - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease]
+   ** open SyntaxBul, (E = ExtraBul), Prelude in {
 
 lin
   PPhr p = lin Text p ;
@@ -9,5 +12,12 @@ lin
   NP_Item np = lin NP np ;
   NP_Place np0 = let np = lin NP np0 in 
                  {name = np ; at = SyntaxBul.mkAdv in_Prep np ; to = SyntaxBul.mkAdv to_Prep np} ;
+
+--- to remove Phrasebook punctuation, which makes the output in Translate heterogeneous
+
+    PSentence s = lin Text (mkUtt s) ; 
+    PQuestion s = lin Text (mkUtt s) ; 
+    PGreetingMale, PGreetingFemale = \g -> lin Text g ;
+    GObjectPlease o = lin Text (mkUtt o) ;
   
 }
 \ No newline at end of file
diff --git a/examples/translator/TranslateChi.gf b/examples/translator/TranslateChi.gf
index 08197f6d6..869abb6cd 100644
--- a/examples/translator/TranslateChi.gf
+++ b/examples/translator/TranslateChi.gf
@@ -1,6 +1,9 @@
 --# -path=.:alltenses:../phrasebook:../../lib/src/chinese:../../lib/src/chinese/sysu:../../lib/src/english
 
-concrete TranslateChi of Translate = ParseChi, PhrasebookChi - [at_Prep] ** open SyntaxChi, (E = ExtraChi), Prelude in {
+concrete TranslateChi of Translate = 
+  ParseChi, 
+  PhrasebookChi - [at_Prep, PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease] 
+  ** open SyntaxChi, (E = ExtraChi), Prelude in {
 
 lin
   PPhr p = lin Text p ;
@@ -9,5 +12,12 @@ lin
   NP_Item np = lin NP np ;
   NP_Place np0 = let np = lin NP np0 in 
                  {name = np ; at = SyntaxChi.mkAdv in_Prep np ; to = SyntaxChi.mkAdv to_Prep np} ;
+
+--- to remove Phrasebook punctuation, which makes the output in Translate heterogeneous
+
+    PSentence s = lin Text (mkUtt s) ; 
+    PQuestion s = lin Text (mkUtt s) ; 
+    PGreetingMale, PGreetingFemale = \g -> lin Text g ;
+    GObjectPlease o = lin Text (mkUtt o) ;
   
 }
 \ No newline at end of file
diff --git a/examples/translator/TranslateEng.gf b/examples/translator/TranslateEng.gf
index 22f09deef..2b3a05a60 100644
--- a/examples/translator/TranslateEng.gf
+++ b/examples/translator/TranslateEng.gf
@@ -1,6 +1,9 @@
 --# -path=.:../phrasebook:../../lib/src/english:../../lib/src/abstract
 
-concrete TranslateEng of Translate = ParseEng, PhrasebookEng ** open SyntaxEng, (E = ExtraEng), Prelude in {
+concrete TranslateEng of Translate = 
+  ParseEng, 
+  PhrasebookEng  - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease] 
+  ** open SyntaxEng, (E = ExtraEng), Prelude in {
 
 lin
   PPhr p = lin Text p ;
@@ -9,5 +12,12 @@ lin
   NP_Item np = lin NP np ;
   NP_Place np0 = let np = lin NP np0 in 
                  {name = np ; at = SyntaxEng.mkAdv in_Prep np ; to = SyntaxEng.mkAdv to_Prep np} ;
+
+--- to remove Phrasebook punctuation, which makes the output in Translate heterogeneous
+
+    PSentence s = lin Text (mkUtt s) ; 
+    PQuestion s = lin Text (mkUtt s) ; 
+    PGreetingMale, PGreetingFemale = \g -> lin Text g ;
+    GObjectPlease o = lin Text (mkUtt o) ;
   
 }
 \ No newline at end of file
diff --git a/examples/translator/TranslateFin.gf b/examples/translator/TranslateFin.gf
index 02c5d18bf..6c75d98a4 100644
--- a/examples/translator/TranslateFin.gf
+++ b/examples/translator/TranslateFin.gf
@@ -1,6 +1,10 @@
 --# -path=.:../phrasebook:../../lib/src/finnish/stemmed:../../lib/src/finnish:../../lib/src/api:../../lib/src/english:alltenses
 
-concrete TranslateFin of Translate = ParseFin, PhrasebookFin - [at_Prep] ** open SyntaxFin, (E = ExtraFin), Prelude in {
+concrete TranslateFin of Translate = 
+
+  ParseFin, 
+  PhrasebookFin - [at_Prep, PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease] 
+  ** open SyntaxFin, (E = ExtraFin), Prelude in {
 
 lin
   PPhr p = lin Text p ;
@@ -10,5 +14,12 @@ lin
   NP_Place np0 = let np = lin NP np0 in 
                  {name = np ; at = SyntaxFin.mkAdv in_Prep np ; 
                   to = SyntaxFin.mkAdv to_Prep np ; from = SyntaxFin.mkAdv from_Prep np} ;
+
+--- to remove Phrasebook punctuation, which makes the output in Translate heterogeneous
+
+    PSentence s = lin Text (mkUtt s) ; 
+    PQuestion s = lin Text (mkUtt s) ; 
+    PGreetingMale, PGreetingFemale = \g -> lin Text g ;
+    GObjectPlease o = lin Text (mkUtt o) ;
   
 }
 \ No newline at end of file
diff --git a/examples/translator/TranslateFre.gf b/examples/translator/TranslateFre.gf
index ee5acf946..e923947a8 100644
--- a/examples/translator/TranslateFre.gf
+++ b/examples/translator/TranslateFre.gf
@@ -2,7 +2,7 @@
 
 concrete TranslateFre of Translate = 
     ParseFre - [open_A], 
-    PhrasebookFre ** 
+    PhrasebookFre - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease] ** 
   open SyntaxFre, ParadigmsFre, (E = ExtraFre), Prelude in {
 
 lin
@@ -13,4 +13,11 @@ lin
   NP_Place np0 = let np = lin NP np0 in 
                  {name = np ; at = SyntaxFre.mkAdv dative np ; to = SyntaxFre.mkAdv dative np} ;
   
+--- to remove Phrasebook punctuation, which makes the output in Translate heterogeneous
+
+    PSentence s = lin Text (mkUtt s) ; 
+    PQuestion s = lin Text (mkUtt s) ; 
+    PGreetingMale, PGreetingFemale = \g -> lin Text g ;
+    GObjectPlease o = lin Text (mkUtt o) ;
+
 }
 \ No newline at end of file
diff --git a/examples/translator/TranslateSwe.gf b/examples/translator/TranslateSwe.gf
index 957be0c50..36e07ffec 100644
--- a/examples/translator/TranslateSwe.gf
+++ b/examples/translator/TranslateSwe.gf
@@ -2,8 +2,8 @@
 
 concrete TranslateSwe of Translate = 
     ParseSwe - [open_A], 
-    PhrasebookSwe ** 
-  open SyntaxSwe, ParadigmsSwe, (E = ExtraSwe), Prelude in {
+    PhrasebookSwe - [PSentence, PQuestion, PGreetingMale, PGreetingFemale, GObjectPlease] 
+  ** open SyntaxSwe, ParadigmsSwe, (E = ExtraSwe), Prelude in {
 
 lin
   PPhr p = lin Text p ;
@@ -13,4 +13,11 @@ lin
   NP_Place np0 = let np = lin NP np0 in 
                  {name = np ; at = SyntaxSwe.mkAdv in_Prep np ; to = SyntaxSwe.mkAdv to_Prep np} ;
   
+--- to remove Phrasebook punctuation, which makes the output in Translate heterogeneous
+
+    PSentence s = lin Text (mkUtt s) ; 
+    PQuestion s = lin Text (mkUtt s) ; 
+    PGreetingMale, PGreetingFemale = \g -> lin Text g ;
+    GObjectPlease o = lin Text (mkUtt o) ;
+
 }
 \ No newline at end of file