(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module") (let ((str "αιμα")) (display (elstr-set-accent str 2)) (newline))