let cufflinks ?reference_build =     let build =       match reference_build with       | None -> "bam's build"       | Some s -> s in     one_to_one "cufflinks" (sprintf "build:%s" build)