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