let list_of_chars s = to_list (array_of_chars s)