12345678910111213141516171819202122 |
- cons := "p" | "t" | "k"
- | "m" | "n" | "ŋ"
- | "s" | "ʃ" | "ɾ";
- vowel ::= a i u;
- rime := 4: <vowel> | <vowel, "ʔ">;
- syll := tuple/flatten[cons, rime];
- word := tuple/flatten[tuple/rep[2..4, syll]];
- orthography := {
- ["ʃ"] => "sh";
- ["ŋ"] => "ng";
- ["ɾ"] => "r";
- ["ʔ"] => "'";
- [ch] => ch
- };
- fix word;
- ortho := tuple/join[tuple/map[orthography, word]];
- ipa := tuple/join[word];
- puts ortho " (pronounced /ˈ" ipa "/)";
|