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