let prerr_list (f : '-> string) (separator : string) (l : 'a list) : unit =
  prerr_string (list_to_string f separator l)