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)