let picard_reorder_sam ?mem_param ?reference_build = one_to_one "picard_reorder_sam" (sprintf "ref-%s" (match reference_build with None -> "inputs" | Some r -> r))