(
  "original matrix",
  [
    ["t1", "t1", "t2", "t2", "t2"],
    ["a1", "a2", "a1", "a1", "a2"],
    ["intron", "intron", "UTR_CG", "UTR", "UTR"],
  ],
)
(
  "\@t",
  [
    ["t1", "a1", "intron"],
    ["t1", "a2", "intron"],
    ["t2", "a1", "UTR_CG"],
    ["t2", "a1", "UTR"],
    ["t2", "a2", "UTR"],
  ],
)
("%cg", { "t2\na1" => 1 })
(
  "modified \@t",
  [
    ["t1", "a1", "intron"],
    ["t1", "a2", "intron"],
    ["t2", "a1", "UTR_CG"],
    ["t2", "a2", "UTR"],
  ],
)
(
  "final matrix",
  [
    ["t1", "t1", "t2", "t2"],
    ["a1", "a2", "a1", "a2"],
    ["intron", "intron", "UTR_CG", "UTR"],
  ],
)