123456789101112131415 |
- word := begin rep[1..4, syll] end;
- syll := cons vowel;
- end := cons vowel final | cons "é" final | cons "a" final | "r" | "n";
- begin := vowel | initcons vowel;
- cons ::= b c d d ch d f g g gn h j l l l lh m m m n n n nh
- p qu r s s s ss ss ss sc sc t t t tg tj tz tz tr rt v z;
- initcons ::= b c d ch d f g gn h j l m n p qu r s sc t v;
- vowel := 4: commonvowel | uncommonvowel;
- commonvowel ::= a i u e é o;
- uncommonvowel ::= à è ó ò í ú;
- final := "s" | 6: "";
- puts word;
|