let clean files =
if not (Wp_parameters.is_out ()) then
List.iter
(fun file ->
try if Sys.file_exists file then Unix.unlink file ;
with Unix.Unix_error(err,_,_) ->
Wp_parameters.debug ~dkey:"tmp" "removing tmp file '%s':@ %s"
file (Unix.error_message err)
) files