(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module") (let ((str "διαβασε")) (display (elstr-set-accent str 3)) (newline))