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))