let list_of_string l ~f = String_to_list (l, f)