let list_to_string l ~f = List_to_string (l, f)