let name = function | `Fastq f -> f#product#paths |> fst |> Filename.basename | `Bam (b, _) -> b#product#path |> Filename.basename