|
@@ -3,7 +3,7 @@ fn flatten[t] => tuple/fold[fn {[x, xs] => x xs }, "", t];
|
|
|
|
|
|
fn word[w] => flatten[tuple/map[orthography, w]];
|
|
|
wd := tuple/concat[<begin, middle, end>];
|
|
|
-middle := syll | tuple/concat[<syll, syll>] | tuple/concat[<syll, syll, syll>] | tuple/concat[<syll, syll, syll, syll>];
|
|
|
+middle := tuple/concat[tuple/rep[1..4, syll]];
|
|
|
syll := <cons, vowel>;
|
|
|
end := <cons, vowel, final>
|
|
|
| 2: <cons, ("eː" | "a"), final>
|