seqcomments <- c(
    "Caenorhabditis elegans - chromosome I",
    "Caenorhabditis elegans - chromosome II",
    "Caenorhabditis elegans - chromosome III",
    "Caenorhabditis elegans - chromosome IV",
    "Caenorhabditis elegans - chromosome V",
    "Caenorhabditis elegans - chromosome X",
    "Caenorhabditis elegans - chromosome M"
)
mseqcomments <- c(
    "Caenorhabditis elegans - upstream1000",
    "Caenorhabditis elegans - upstream2000",
    "Caenorhabditis elegans - upstream5000"
)
