let gtf_path_exn t =   let msg = sprintf "gtf_path_exn of %s" (name t) in   let trgt = Option.value_exn ~msg t.gtf in   trgt#product#path