let kallisto ~reference_build ?(bootstrap_samples=100) fastq =     let fq = get_fastq (AF.get_file fastq) in     let result_prefix =       Name_file.in_directory ~readable_suffix:"kallisto" Config.work_dir [         fq#product#escaped_sample_name;         sprintf "%d" bootstrap_samples;         reference_build;       ] in     Kallisto_result (       Tools.Kallisto.run         ~reference_build         ~fastq:fq ~run_with ~result_prefix ~bootstrap_samples     ) |> AF.with_provenance "kallisto" ["fastq", AF.get_provenance fastq]       ~string_arguments:[         "reference-build", reference_build;         "bootstrap-samples", Int.to_string bootstrap_samples;       ]