let picard_reorder_sam ?mem_param ?reference_build bam =     fwd (Input.picard_reorder_sam ?mem_param ?reference_build (bwd bam))