let fastqc fq =     let fastq = get_fastq (AF.get_file fq) in     let output_folder =       Name_file.in_directory ~readable_suffix:"fastqc_result" Config.work_dir [         fastq#product#escaped_sample_name;         fastq#product#fragment_id_forced;       ] in     Fastqc_result (Tools.Fastqc.run ~run_with ~fastq ~output_folder)     |> AF.with_provenance "fastqc" ["fastq", AF.get_provenance fq]