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