blob: afb8d9ba862e2189dee6bf4d59d1bd7c4cccb08b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
--# -path=.:present
concrete PhrasebookRon of Phrasebook =
GreetingsRon,
WordsRon
** open
SyntaxRon,
Prelude in {
lin
PGreeting p g = mkText (lin Text (ss g.s)) (lin Text (ss p.s)) ;
}
|