examples/phrasebook/PhrasebookEng.gf


1
2
3
4
5
6
7
8
9
10
11
12
13

--# -path=.:present

concrete PhrasebookEng of Phrasebook = 
  GreetingsEng,
  WordsEng ** open 
    (R = Roles),
    SyntaxEng,
    Prelude in {

lin
  PGreeting p g = mkText (lin Text g) (lin Text (ss p.s)) ;

}