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