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