17 lines
364 B
Text
17 lines
364 B
Text
$ENTRY Go {
|
|
= <Prout <Quibble>>
|
|
<Prout <Quibble ('ABC')>>
|
|
<Prout <Quibble ('ABC') ('DEF')>>
|
|
<Prout <Quibble ('ABC') ('DEF') ('G') ('H')>>;
|
|
};
|
|
|
|
Quibble {
|
|
e.X = '{' <Quibble1 e.X> '}';
|
|
};
|
|
|
|
Quibble1 {
|
|
= ;
|
|
(e.Word) = e.Word;
|
|
(e.Word1) (e.Word2) = e.Word1 ' and ' e.Word2;
|
|
(e.Word) e.Words = e.Word ', ' <Quibble1 e.Words>;
|
|
};
|