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