let picard_mark_duplicates       ?(settings=Picard.Mark_duplicates_settings.default) bam =     Picard_mark_duplicates (settings, bam)