(remainder (apply + (map char->integer (string->list "Edgar"))) 23) 0 ; (remainder (apply + (map char->integer (string->list "Héloïse"))) 23) 22