(load-extension "./libelmorph" "scm_init_ellinika_elmorph_module") (let ((str "παιδιου")) (display (elstr-set-accent str 1)) (newline))