1 2 3 4 5 6
unit module NucleotideCount; subset DNA of Str where * !~~ /<-[ACGT]>/; sub nucleotide-count (DNA $strand) is export { $strand.comb.Bag; }