-----------------------------------------
Definition of the sets OrhtoNative and OrthoForeign
-----------------------------------------
eq OrthoNative =
add("abfahrt",
add("abfall",
add("anmelden",
add("banal",
add("bandit",
add("dauer",
add("entsprechen", []))))))) .
- add("flugzeug",
- add("einfuegen",
- add("einsetzen",
- add("unbarmherzig",
- add("erbarmungslos",
- add("richtig",
- add("recht",
- add("unterdurchschnittlich",
- add("minderbegabt", [])))))))))))))))) .
eq OrthoForeign =
add("departure",
add("descent",
add("rubbish",
add("waste",
add("announce",
add("enrol",
add("book",
add("banal",
add("bandit",
add("duration", [])))))))))) .
- add("correspond",
- add("fit",
- add("plane",
- add("aircraft",
- add("insertion",
- add("pitiless",
- add("right",
- add("subnormal", [])))))))) .
----------------------------------------
Definition of a test vocabulary
----------------------------------------
eq MyVoc =
addE(["abfall", "waste"],
addE(["abfall", "rubbish"],
addE(["abfahrt", "departure"],
addE(["dauer", "duration"],
addE(["banal", "banal"], []))))) .