1 Changelog

20230410: Making some changes to improve the differential expression plots as well as prepare for some different pathway/GSEA/GSVA analyses on the data.

2 Introduction

Having established that the TMRC2 macrophage data looks robust and illustrative of a couple of interesting questions, let us perform a couple of differential analyses of it.

Also note that as of 202212, we received a new set of samples which now include some which are of a completely different cell type, U937. As their ATCC page states, they are malignant cells taken from the pleural effusion of a 37 year old white male with histiocytic lymphoma and which exhibit the morphology of monocytes. Thus, this document now includes some comparisons of the cell types as well as the various macrophage donors (given that there are now more donors too).

2.1 Human data

I am moving the dataset manipulations here so that I can look at them all together before running the various DE analyses.

2.2 Create sets focused on drug, celltype, strain, and combinations

Let us start by playing with the metadata a little and create sets with the condition set to:

Drug treatment
Cell type (macrophage or U937)
Donor
Infection Strain
Some useful combinations thereof

In addition, keep mental track of which datasets are comprised of all samples vs. those which are only macrophage vs. those which are only U937. (Thus, the usage of all_human vs. hs_macr vs. u937 as prefixes for the data structures.)

Ideally, these recreations of the data should perhaps be in the datastructures worksheet.

all_human <- sanitize_expt_metadata(hs_macrophage, columns = "drug") %>%
  set_expt_conditions(fact = "drug") %>%
  set_expt_batches(fact = "typeofcells")

## 
## antimony     none 
##       34       34 
## 
## Macrophages        U937 
##          54          14

## The following 3 lines were copy/pasted to datastructures and should be removed soon.
no_strain_idx <- pData(all_human)[["strainid"]] == "none"
##pData(all_human)[["strainid"]] <- paste0("s", pData(all_human)[["strainid"]],
##                                         "_", pData(all_human)[["macrophagezymodeme"]])
pData(all_human)[no_strain_idx, "strainid"] <- "none"
table(pData(all_human)[["strainid"]])

## 
## 10763 10772 10977 11026 11075 11126 12251 12309 12355 12367  2169  7158  none 
##     2     8     2     2     2     8     7     8     2     7     8     2    10

all_human_types <- set_expt_conditions(all_human, fact = "typeofcells") %>%
  set_expt_batches(fact = "drug")

## 
## Macrophages        U937 
##          54          14 
## 
## antimony     none 
##       34       34

type_zymo_fact <- paste0(pData(all_human_types)[["condition"]], "_",
                         pData(all_human_types)[["macrophagezymodeme"]])
type_zymo <- set_expt_conditions(all_human_types, fact = type_zymo_fact)

## 
## Macrophages_none  Macrophages_z22  Macrophages_z23        U937_none         U937_z22 
##                8               23               23                2                6 
##         U937_z23 
##                6

type_drug_fact <- paste0(pData(all_human_types)[["condition"]], "_",
                         pData(all_human_types)[["drug"]])
type_drug <- set_expt_conditions(all_human_types, fact = type_drug_fact)

## 
## Macrophages_antimony     Macrophages_none        U937_antimony            U937_none 
##                   27                   27                    7                    7

strain_fact <- pData(all_human_types)[["strainid"]]
table(strain_fact)

## strain_fact
## 10763 10772 10977 11026 11075 11126 12251 12309 12355 12367  2169  7158  none 
##     2     8     2     2     2     8     7     8     2     7     8     2    10

new_conditions <- paste0(pData(hs_macrophage)[["macrophagetreatment"]], "_",
                         pData(hs_macrophage)[["macrophagezymodeme"]])
## Note the sanitize() call is redundant with the addition of sanitize() in the
## datastructures file, but I don't want to wait to rerun that.
hs_macr <- set_expt_conditions(hs_macrophage, fact = new_conditions) %>%
  sanitize_expt_metadata(column = "drug") %>%
  subset_expt(subset = "typeofcells!='U937'")

## 
##      inf_z22      inf_z23    infsb_z22    infsb_z23   uninf_none uninfsb_none 
##           14           15           15           14            5            5

## subset_expt(): There were 68, now there are 54 samples.

2.2.1 Separate Macrophage samples

Once again, we should reconsider where the following block is placed, but these datastructures are likely to be used in many of the following analyses.

hs_macr_drug_expt <- set_expt_conditions(hs_macr, fact = "drug")

## 
## antimony     none 
##       27       27

hs_macr_strain_expt <- set_expt_conditions(hs_macr, fact = "macrophagezymodeme") %>%
  subset_expt(subset = "macrophagezymodeme != 'none'")

## 
## none  z22  z23 
##    8   23   23

## subset_expt(): There were 54, now there are 46 samples.

table(pData(hs_macr)[["strainid"]])

## 
## 10763 10772 10977 11026 11075 11126 12251 12309 12355 12367  2169  7158  none 
##     2     6     2     2     2     6     5     6     2     5     6     2     8

2.2.2 Refactor U937 samples

The U937 samples were separated in the datastructures file, but we want to use the combination of drug/zymodeme with them pretty much exclusively.

new_conditions <- paste0(pData(hs_u937)[["macrophagetreatment"]], "_",
                         pData(hs_u937)[["macrophagezymodeme"]])
u937_expt <- set_expt_conditions(hs_u937, fact = new_conditions)

## 
##      inf_z22      inf_z23    infsb_z22    infsb_z23   uninf_none uninfsb_none 
##            3            3            3            3            1            1

2.3 Contrasts used in this document

Given the various ways we have chopped up this dataset, there are a few general types of contrasts we will perform, which will then be combined into greater complexity:

drug treatment
strains used
cellltypes
donors

In the end, our actual goal is to consider the variable effects of drug+strain and see if we can discern patterns which lead to better or worse drug treatment outcome.

There is a set of contrasts in which we are primarily interested in this data, these follow. I created one ratio of ratios contrast which I think has the potential to ask our biggest question.

tmrc2_human_extra <- "z23drugnodrug_vs_z22drugnodrug = (infsbz23 - infz23) - (infsbz22 - infz22), z23z22drug_vs_z23z22nodrug = (infsbz23 - infsbz22) - (infz23 - infz22)"
tmrc2_human_keepers <- list(
  "z23nosb_vs_uninf" = c("infz23", "uninfnone"),
  "z22nosb_vs_uninf" = c("infz22", "uninfnone"),
  "z23nosb_vs_z22nosb" = c("infz23", "infz22"),
  "z23sb_vs_z22sb" = c("infsbz23", "infsbz22"),
  "z23sb_vs_z23nosb" = c("infsbz23", "infz23"),
  "z22sb_vs_z22nosb" = c("infsbz22", "infz22"),
  "z23sb_vs_sb" = c("infsbz23", "uninfsbnone"),
  "z22sb_vs_sb" = c("infsbz22", "uninfsbnone"),
  "z23sb_vs_uninf" = c("infsbz23", "uninfnone"),
  "z22sb_vs_uninf" = c("infsbz22", "uninfnone"),
  "sb_vs_uninf" = c("uninfsbnone", "uninfnone"),
  "extra_z2322" = c("z23drugnodrug", "z22drugnodrug"),
  "extra_drugnodrug" = c("z23z22drug", "z23z22nodrug"))
tmrc2_drug_keepers <- list(
  "drug" = c("antimony", "none"))
tmrc2_type_keepers <- list(
  "type" = c("U937", "Macrophages"))
tmrc2_strain_keepers <- list(
  "strain" = c("z23", "z22"))
type_zymo_extra <- "zymos_vs_types = (U937z23 - U937z22) - (Macrophagesz23 - Macrophagesz22)"
tmrc2_typezymo_keepers <- list(
  "u937_macr" = c("Macrophagesnone", "U937none"),
  "zymo_macr" = c("Macrophagesz23", "Macrophagesz22"),
  "zymo_u937" = c("U937z23", "U937z22"),
  "z23_types" = c("U937z23", "Macrophagesz23"),
  "z22_types" = c("U937z22", "Macrophagesz22"),
  "zymos_types" = c("zymos_vs_types"))
tmrc2_typedrug_keepers <- list(
  "type_nodrug" = c("U937none", "Macrophagesnone"),
  "type_drug" = c("U937antimony", "Macrophagesantimony"),
  "macr_drugs" = c("Macrophagesantimony", "Macrophagesnone"),
  "u937_drugs" = c("U937antimony", "U937none"))
u937_keepers <- list(
  "z23nosb_vs_uninf" = c("infz23", "uninfnone"),
  "z22nosb_vs_uninf" = c("infz22", "uninfnone"),
  "z23nosb_vs_z22nosb" = c("infz23", "infz22"),
  "z23sb_vs_z22sb" = c("infsbz23", "infsbz22"),
  "z23sb_vs_z23nosb" = c("infsbz23", "infz23"),
  "z22sb_vs_z22nosb" = c("infsbz22", "infz22"),
  "z23sb_vs_sb" = c("infsbz23", "uninfsbnone"),
  "z22sb_vs_sb" = c("infsbz22", "uninfsbnone"),
  "z23sb_vs_uninf" = c("infsbz23", "uninfnone"),
  "z22sb_vs_uninf" = c("infsbz22", "uninfnone"),
  "sb_vs_uninf" = c("uninfsbnone", "uninfnone"))
high_expression <- 128
high_expression_column <- "deseq_basemean"

combined_to_tsv <- function(combined, celltype = "all") {
  keepers <- combined[["keepers"]]
  for (k in seq_len(length(keepers))) {
    kname <- names(keepers)[k]
    numerator <- keepers[[k]][1]
    denominator <- keepers[[k]][2]
    filename <- glue("analyses/macrophage_de/{ver}/tsv_tables/tmrc2_{celltype}_{kname}_n{numerator}_d{denominator}-v{ver}.tsv")
    kdata <- combined[["data"]][[kname]]
    if (is.null(kdata[["basic_num"]])) {
      next
    }
    wanted <- c("hgncsymbol", "deseq_logfc", "deseq_adjp", "deseq_basemean", "deseq_num", "deseq_den")
    wanted_data <- kdata[, wanted]
    colnames(wanted_data) <- c("hgncsymbol", "deseq_logfc", "deseq_adjp", "deseq_mean", "deseq_numerator", "deseq_denominator")
    readr::write_tsv(x = wanted_data %>% tibble::rownames_to_column(), file = filename)
  }
}

write_all_gp <- function(all_gp) {
  for (g in seq_len(length(all_gp))) {
    name <- names(all_gp)[g]
    datum <- all_gp[[name]]
    filename <- glue("analyses/macrophage_de/{ver}/gprofiler/{name}_gprofiler-v{ver}.xlsx")
    written <- sm(write_gprofiler_data(datum, excel = filename))
  }
}

2.3.1 Primary queries

There is a series of initial questions which make some sense to me, but these do not necessarily match the set of questions which are most pressing. I am hoping to pull both of these sets of queries in one.

Before extracting these groups of queries, let us invoke the all_pairwise() function and get all of the likely contrasts along with one or more extras that might prove useful (the ‘extra’ argument).

2.3.2 Combined U937 and Macrophages: Compare drug effects

When we have the u937 cells in the same dataset as the macrophages, that provides an interesting opportunity to see if we can observe drug-dependant effects which are shared across both cell types.

drug_de <- all_pairwise(all_human, filter = TRUE, model_batch = "svaseq")

## 
## antimony     none 
##       34       34

## Removing 0 low-count genes (12283 remaining).

## Setting 3092 low elements to zero.

## transform_counts: Found 3092 values equal to 0, adding 1 to the matrix.

drug_table <- combine_de_tables(
  drug_de, keepers = tmrc2_drug_keepers,
  excel = glue("analyses/macrophage_de/{ver}/de_tables/tmrc2_macrophage_drug_comparison-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

combined_to_tsv(drug_table, celltype = "all")

## Error in combined_to_tsv(drug_table, celltype = "all"): object 'drug_table' not found

drug_sig <- extract_significant_genes(
  drug_table,
  excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_drug_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(drug_table, excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_drug_sig-v{ver}.xlsx")): object 'drug_table' not found

drug_highsig <- extract_significant_genes(
  drug_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_drug_highsig-v{ver}.xlsx"))

## Error in extract_significant_genes(drug_table, min_mean_exprs = high_expression, : object 'drug_table' not found

all_drug_gp <- all_gprofiler(drug_sig)

## Error in all_gprofiler(drug_sig): object 'drug_sig' not found

write_all_gp(all_drug_gp)

## Error in write_all_gp(all_drug_gp): object 'all_drug_gp' not found

2.3.3 Combined U937 and Macrophages: compare cell types

There are a couple of ways one might want to directly compare the two cell types.

Given that the variance between the two celltypes is so huge, just compare all samples.
One might want to compare them with the interaction effects of drug/zymodeme.

type_de <- all_pairwise(all_human_types, filter = TRUE, model_batch = "svaseq")

## 
## Macrophages        U937 
##          54          14

## Removing 0 low-count genes (12283 remaining).

## Setting 8682 low elements to zero.

## transform_counts: Found 8682 values equal to 0, adding 1 to the matrix.

type_table <- combine_de_tables(
  type_de, keepers = tmrc2_type_keepers,
  excel = glue("analyses/macrophage_de/{ver}/de_tables/tmrc2_macrophage_type_comparison-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

combined_to_tsv(type_table, celltype = "all")

## Error in combined_to_tsv(type_table, celltype = "all"): object 'type_table' not found

type_sig <- extract_significant_genes(
  type_table,
  excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(type_table, excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_sig-v{ver}.xlsx")): object 'type_table' not found

type_highsig <- extract_significant_genes(
  type_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_highsig-v{ver}.xlsx"))

## Error in extract_significant_genes(type_table, min_mean_exprs = high_expression, : object 'type_table' not found

2.3.3.1 Combined factors of interest: celltype+zymodeme

Given the above explicit comparison of all samples comprising the two cell types, now let us look at the drug treatment+zymodeme status with all samples, macrophages and U937.

type_zymo_de <- all_pairwise(type_zymo, filter = TRUE, model_batch = "svaseq",
                             extra_contrasts = type_zymo_extra)

## 
## Macrophages_none  Macrophages_z22  Macrophages_z23        U937_none         U937_z22 
##                8               23               23                2                6 
##         U937_z23 
##                6

## Removing 0 low-count genes (12283 remaining).

## Setting 9655 low elements to zero.

## transform_counts: Found 9655 values equal to 0, adding 1 to the matrix.

type_zymo_table <- combine_de_tables(
  type_zymo_de, keepers = tmrc2_typezymo_keepers,
  excel = glue("analyses/macrophage_de/{ver}/de_tables/tmrc2_macrophage_type_zymo_comparison-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

combined_to_tsv(type_zymo_table, celltype = "all")

## Error in combined_to_tsv(type_zymo_table, celltype = "all"): object 'type_zymo_table' not found

type_zymo_sig <- extract_significant_genes(
  type_zymo_table,
  excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_zymo_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(type_zymo_table, excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_zymo_sig-v{ver}.xlsx")): object 'type_zymo_table' not found

type_zymo_highsig <- extract_significant_genes(
  type_zymo_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_zymo_highsig-v{ver}.xlsx"))

## Error in extract_significant_genes(type_zymo_table, min_mean_exprs = high_expression, : object 'type_zymo_table' not found

2.3.3.2 Combined factors of inteest: celltype+drug

The ‘type_drug’ datastructure is the same as above, but the condition is created from the concatenation of the cell type and drug treatment.

type_drug_de <- all_pairwise(type_drug, filter = TRUE, model_batch = "svaseq")

## 
## Macrophages_antimony     Macrophages_none        U937_antimony            U937_none 
##                   27                   27                    7                    7

## Removing 0 low-count genes (12283 remaining).

## Setting 9642 low elements to zero.

## transform_counts: Found 9642 values equal to 0, adding 1 to the matrix.

type_drug_table <- combine_de_tables(
  type_drug_de, keepers = tmrc2_typedrug_keepers,
  excel = glue("analyses/macrophage_de/{ver}/de_tables/tmrc2_macrophage_type_drug_comparison-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

combined_to_tsv(type_drug_table, celltype = "all")

## Error in combined_to_tsv(type_drug_table, celltype = "all"): object 'type_drug_table' not found

type_drug_sig <- extract_significant_genes(
  type_drug_table,
  excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_drug_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(type_drug_table, excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_drug_sig-v{ver}.xlsx")): object 'type_drug_table' not found

type_drug_highsig <- extract_significant_genes(
  type_drug_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/{ver}/sig_tables/tmrc2_macrophage_type_drug_highsig-v{ver}.xlsx"))

## Error in extract_significant_genes(type_drug_table, min_mean_exprs = high_expression, : object 'type_drug_table' not found

3 Individual cell types

At this point, I think it is fair to say that the two cell types are sufficiently different that they do not really belong together in a single analysis.

3.1 drug or strain effects, single cell type

One of the queries Najib asked which I think I misinterpreted was to look at drug and/or strain effects. My interpretation is somewhere below and was not what he was looking for. Instead, he was looking to see all(macrophage) drug/nodrug and all(macrophage) z23/z22 and compare them to each other. It may be that this is still a wrong interpretation, if so the most likely comparison is either:

(z23drug/z22drug) / (z23nodrug/z22nodrug), or perhaps
(z23drug/z23nodrug) / (z22drug/z22nodrug),

I am not sure those confuse me, and at least one of them is below

3.1.1 Macrophages

In these blocks we will explicitly query only one factor at a time, drug and strain. The eventual goal is to look for effects of drug treatment and/or strain treatment which are shared?

3.1.1.1 Macrophage Drug only

Thus we will start with the pure drug query. In this block we will look only at the drug/nodrug effect.

hs_macr_drug_de <- all_pairwise(hs_macr_drug_expt, filter = TRUE, model_batch = "svaseq")

## 
## antimony     none 
##       27       27

## Removing 0 low-count genes (11756 remaining).

## Setting 1309 low elements to zero.

## transform_counts: Found 1309 values equal to 0, adding 1 to the matrix.

hs_macr_drug_table <- combine_de_tables(
  hs_macr_drug_de, keepers = tmrc2_drug_keepers,
  excel = glue("analyses/macrophage_de/tmrc2_macrophage_onlydrug_table-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

combined_to_tsv(hs_macr_drug_table, celltype = "macrophage")

## Error in combined_to_tsv(hs_macr_drug_table, celltype = "macrophage"): object 'hs_macr_drug_table' not found

hs_macr_drug_sig <- extract_significant_genes(
  hs_macr_drug_table,
  excel = glue("analyses/macrophage_de/tmrc2_macrophageonly_drug_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(hs_macr_drug_table, excel = glue("analyses/macrophage_de/tmrc2_macrophageonly_drug_sig-v{ver}.xlsx")): object 'hs_macr_drug_table' not found

hs_macr_drug_highsig <- extract_significant_genes(
  hs_macr_drug_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/tmrc2_macrophageonly_drug_highsig-v{ver}.xlsx"))

## Error in extract_significant_genes(hs_macr_drug_table, min_mean_exprs = high_expression, : object 'hs_macr_drug_table' not found

3.1.1.2 Macrophage Strain only

In a similar fashion, let us look for effects which are observed when we consider only the strain used during infection.

hs_macr_strain_de <- all_pairwise(hs_macr_strain_expt, filter = TRUE, model_batch = "svaseq")

## 
## z22 z23 
##  23  23

## Removing 0 low-count genes (11720 remaining).

## Setting 1017 low elements to zero.

## transform_counts: Found 1017 values equal to 0, adding 1 to the matrix.

hs_macr_strain_table <- combine_de_tables(
  hs_macr_strain_de, keepers = tmrc2_strain_keepers,
  excel = glue("analyses/macrophage_de/tmrc2_macrophage_onlystrain_table-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

combined_to_tsv(hs_macr_strain_table, celltype = "macrophage")

## Error in combined_to_tsv(hs_macr_strain_table, celltype = "macrophage"): object 'hs_macr_strain_table' not found

hs_macr_strain_sig <- extract_significant_genes(
  hs_macr_strain_table,
  excel = glue("analyses/macrophage_de/tmrc2_macrophageonly_onlystrain_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(hs_macr_strain_table, excel = glue("analyses/macrophage_de/tmrc2_macrophageonly_onlystrain_sig-v{ver}.xlsx")): object 'hs_macr_strain_table' not found

hs_macr_strain_highsig <- extract_significant_genes(
  hs_macr_strain_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/tmrc2_macrophageonly_onlystrain_highsig-v{ver}.xlsx"))

## Error in extract_significant_genes(hs_macr_strain_table, min_mean_exprs = high_expression, : object 'hs_macr_strain_table' not found

3.1.1.3 Compare Drug and Strain Effects

Now let us consider the above two comparisons together. First, I will plot the logFC values of them against each other (drug on x-axis and strain on the y-axis). Then we can extract the significant genes in a few combined categories of interest. I assume these will focus exclusively on the categories which include the introduction of the drug.

drug_strain_comp_df <- merge(hs_macr_drug_table[["data"]][["drug"]],
                             hs_macr_strain_table[["data"]][["strain"]],
                             by = "row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'merge': object 'hs_macr_drug_table' not found

drug_strain_comp_plot <- plot_linear_scatter(
  drug_strain_comp_df[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'drug_strain_comp_df' not found

## Contrasts: antimony/none, z23/z22; x-axis: drug, y-axis: strain
## top left: higher no drug, z23; top right: higher drug z23
## bottom left: higher no drug, z22; bottom right: higher drug z22
drug_strain_comp_plot$scatter

## Error in eval(expr, envir, enclos): object 'drug_strain_comp_plot' not found

As I noted in the comments above, some quadrants of the scatter plot are likely to be of greater interest to us than others (the right side). Because I get confused sometimes, the following block will explicitly name the categories of likely interest, then ask which genes are shared among them, and finally use UpSetR to extract the various gene intersection/union categories.

higher_drug <- hs_macr_drug_sig[["deseq"]][["downs"]][[1]]

## Error in eval(expr, envir, enclos): object 'hs_macr_drug_sig' not found

higher_nodrug <- hs_macr_drug_sig[["deseq"]][["ups"]][[1]]

## Error in eval(expr, envir, enclos): object 'hs_macr_drug_sig' not found

higher_z23 <- hs_macr_strain_sig[["deseq"]][["ups"]][[1]]

## Error in eval(expr, envir, enclos): object 'hs_macr_strain_sig' not found

higher_z22 <- hs_macr_strain_sig[["deseq"]][["downs"]][[1]]

## Error in eval(expr, envir, enclos): object 'hs_macr_strain_sig' not found

sum(rownames(higher_drug) %in% rownames(higher_z23))

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'rownames': object 'higher_drug' not found

sum(rownames(higher_drug) %in% rownames(higher_z22))

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'rownames': object 'higher_drug' not found

sum(rownames(higher_nodrug) %in% rownames(higher_z23))

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'rownames': object 'higher_nodrug' not found

sum(rownames(higher_nodrug) %in% rownames(higher_z22))

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'rownames': object 'higher_nodrug' not found

drug_z23_lst <- list("drug" = rownames(higher_drug),
                     "z23" = rownames(higher_z23))

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'rownames': object 'higher_drug' not found

higher_drug_z23 <- upset(UpSetR::fromList(drug_z23_lst), text.scale = 2)

## Error in unlist(input): object 'drug_z23_lst' not found

higher_drug_z23

## Error in eval(expr, envir, enclos): object 'higher_drug_z23' not found

drug_z23_shared_genes <- overlap_groups(drug_z23_lst)

## Error in unlist(input): object 'drug_z23_lst' not found

shared_genes_drug_z23 <- overlap_geneids(drug_z23_shared_genes, "drug:z23")

## Error in overlap_geneids(drug_z23_shared_genes, "drug:z23"): object 'drug_z23_shared_genes' not found

#shared_genes_drug_z23 <- attr(drug_z23_shared_genes, "elements")[drug_z23_shared_genes[["drug:z23"]]]

drug_z22_lst <- list("drug" = rownames(higher_drug),
                     "z22" = rownames(higher_z22))

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'rownames': object 'higher_drug' not found

higher_drug_z22 <- upset(UpSetR::fromList(drug_z22_lst), text.scale = 2)

## Error in unlist(input): object 'drug_z22_lst' not found

higher_drug_z22

## Error in eval(expr, envir, enclos): object 'higher_drug_z22' not found

drug_z22_shared_genes <- overlap_groups(drug_z22_lst)

## Error in unlist(input): object 'drug_z22_lst' not found

shared_genes_drug_z22 <- overlap_geneids(drug_z22_shared_genes, "drug:z22")

## Error in overlap_geneids(drug_z22_shared_genes, "drug:z22"): object 'drug_z22_shared_genes' not found

#shared_genes_drug_z22 <- attr(drug_z22_shared_genes, "elements")[drug_z22_shared_genes[["drug:z22"]]]

3.1.1.4 Perform gProfiler on drug/strain effect shared genes

Now that we have some populations of genes which are shared across the drug/strain effects, let us pass them to some GSEA analyses and see what pops out.

wanted <- drug_z23_shared_genes[["drug:z23"]]

## Error in eval(expr, envir, enclos): object 'drug_z23_shared_genes' not found

shared_genes_drug_z23 <- attr(drug_z23_shared_genes, "elements")[wanted]

## Error in eval(expr, envir, enclos): object 'drug_z23_shared_genes' not found

shared_drug_z23_gp <- simple_gprofiler(shared_genes_drug_z23)

## Error in "character" %in% class(sig_genes): object 'shared_genes_drug_z23' not found

shared_drug_z23_gp[["pvalue_plots"]][["MF"]]

## Error in eval(expr, envir, enclos): object 'shared_drug_z23_gp' not found

shared_drug_z23_gp[["pvalue_plots"]][["BP"]]

## Error in eval(expr, envir, enclos): object 'shared_drug_z23_gp' not found

shared_drug_z23_gp[["pvalue_plots"]][["REAC"]]

## Error in eval(expr, envir, enclos): object 'shared_drug_z23_gp' not found

wanted <- drug_z22_shared_genes[["drug:z22"]]

## Error in eval(expr, envir, enclos): object 'drug_z22_shared_genes' not found

shared_genes_drug_z22 <- attr(drug_z22_shared_genes, "elements")[wanted]

## Error in eval(expr, envir, enclos): object 'drug_z22_shared_genes' not found

shared_drug_z22_gp <- simple_gprofiler(shared_genes_drug_z22)

## Error in "character" %in% class(sig_genes): object 'shared_genes_drug_z22' not found

shared_drug_z22_gp[["pvalue_plots"]][["BP"]]

## Error in eval(expr, envir, enclos): object 'shared_drug_z22_gp' not found

3.2 Our main question of interest

The data structure hs_macr contains our primary macrophages, which are, as shown above, the data we can really sink our teeth into.

Note, we expect some errors when running the combine_de_tables() because not all methods I use are comfortable using the ratio or ratios contrasts we added in the ‘extras’ argument. As a result, when we combine them into the larger output tables, those peculiar contrasts fail. This does not stop it from writing the rest of the results, however.

## test = deseq_pairwise(normalize_expt(hs_macr, filter=TRUE), model_batch = "svaseq", filter = TRUE, extra_contrasts = tmrc2_human_extra)
hs_macr_de <- all_pairwise(
  hs_macr, model_batch = "svaseq", parallel = FALSE,
  filter = TRUE,
  extra_contrasts = tmrc2_human_extra)

## 
##      inf_z22      inf_z23    infsb_z22    infsb_z23   uninf_none uninfsb_none 
##           11           12           12           11            4            4

## Removing 0 low-count genes (11756 remaining).

## Setting 2374 low elements to zero.

## transform_counts: Found 2374 values equal to 0, adding 1 to the matrix.

## Starting basic pairwise comparison.

## Basic step 0/3: Normalizing data.

## Basic step 0/3: Converting data.

## Basic step 0/3: Transforming data.

## Basic step 1/3: Creating mean and variance tables.

## Basic step 2/3: Performing 21 comparisons.

## Basic step 3/3: Creating faux DE Tables.

## Basic: Returning tables.

## Starting DESeq2 pairwise comparisons.

## The data should be suitable for EdgeR/DESeq/EBSeq.
## If they freak out, check the state of the count table
## and ensure that it is in integer counts.

## DESeq2 step 1/5: Including a matrix of batch estimates in the deseq model.

## converting counts to integer mode

## DESeq2 step 2/5: Estimate size factors.

## DESeq2 step 3/5: Estimate dispersions.

## gene-wise dispersion estimates

## mean-dispersion relationship

## final dispersion estimates

## Using a parametric fitting seems to have worked.

## DESeq2 step 4/5: nbinomWaldTest.

## The contrast z23drugnodrug is not in the results.

## If this is not an extra contrast, then this is an error.

## The contrast z23z22drug is not in the results.

## If this is not an extra contrast, then this is an error.

## Starting edgeR pairwise comparisons.

## The data should be suitable for EdgeR/DESeq/EBSeq.
## If they freak out, check the state of the count table
## and ensure that it is in integer counts.

## EdgeR step 1/9: Importing and normalizing data.

## EdgeR step 2/9: Estimating the common dispersion.

## EdgeR step 3/9: Estimating dispersion across genes.

## EdgeR step 4/9: Estimating GLM Common dispersion.

## EdgeR step 5/9: Estimating GLM Trended dispersion.

## EdgeR step 6/9: Estimating GLM Tagged dispersion.

## EdgeR step 7/9: Running glmFit, switch to glmQLFit by changing the argument 'edger_test'.

## EdgeR step 8/9: Making pairwise contrasts.

##                        Length Class         Mode     
## title                   1     -none-        character
## notes                   1     -none-        character
## initial_metadata       71     data.frame    list     
## expressionset           1     ExpressionSet S4       
## design                 71     data.frame    list     
## conditions             54     -none-        character
## batches                54     -none-        character
## samplenames            54     -none-        character
## colors                 54     -none-        character
## state                   5     -none-        list     
## libsize                54     -none-        numeric  
## original_expressionset  1     ExpressionSet S4       
## normalized              6     -none-        list     
## best_libsize           54     -none-        numeric  
## norm_result             6     -none-        list

## Starting limma pairwise comparison.

## libsize was not specified, this parameter has profound effects on limma's result.

## Using the libsize from expt$best_libsize.

## Limma step 1/6: choosing model.

## Limma step 2/6: running limma::voom(), switch with the argument 'which_voom'.

## Using normalize.method = quantile for voom.

## Limma step 3/6: running lmFit with method: ls.

## Limma step 4/6: making and fitting contrasts with no intercept. (~ 0 + factors)

## Limma step 5/6: Running eBayes with robust = FALSE and trend = FALSE.

## Limma step 6/6: Writing limma outputs.

## Limma step 6/6: 1/17: Creating table: infsbz23_vs_infsbz22.  Adjust = BH

## Limma step 6/6: 2/17: Creating table: infz22_vs_infsbz22.  Adjust = BH

## Limma step 6/6: 3/17: Creating table: infz23_vs_infsbz22.  Adjust = BH

## Limma step 6/6: 4/17: Creating table: uninfnone_vs_infsbz22.  Adjust = BH

## Limma step 6/6: 5/17: Creating table: uninfsbnone_vs_infsbz22.  Adjust = BH

## Limma step 6/6: 6/17: Creating table: infz22_vs_infsbz23.  Adjust = BH

## Limma step 6/6: 7/17: Creating table: infz23_vs_infsbz23.  Adjust = BH

## Limma step 6/6: 8/17: Creating table: uninfnone_vs_infsbz23.  Adjust = BH

## Limma step 6/6: 9/17: Creating table: uninfsbnone_vs_infsbz23.  Adjust = BH

## Limma step 6/6: 10/17: Creating table: infz23_vs_infz22.  Adjust = BH

## Limma step 6/6: 11/17: Creating table: uninfnone_vs_infz22.  Adjust = BH

## Limma step 6/6: 12/17: Creating table: uninfsbnone_vs_infz22.  Adjust = BH

## Limma step 6/6: 13/17: Creating table: uninfnone_vs_infz23.  Adjust = BH

## Limma step 6/6: 14/17: Creating table: uninfsbnone_vs_infz23.  Adjust = BH

## Limma step 6/6: 15/17: Creating table: uninfsbnone_vs_uninfnone.  Adjust = BH

## Limma step 6/6: 16/17: Creating table: z23drugnodrug_vs_z22drugnodrug.  Adjust = BH

## Limma step 6/6: 17/17: Creating table: z23z22drug_vs_z23z22nodrug.  Adjust = BH

## Limma step 6/6: 1/6: Creating table: infsbz22.  Adjust = BH

## Limma step 6/6: 2/6: Creating table: infsbz23.  Adjust = BH

## Limma step 6/6: 3/6: Creating table: infz22.  Adjust = BH

## Limma step 6/6: 4/6: Creating table: infz23.  Adjust = BH

## Limma step 6/6: 5/6: Creating table: uninfnone.  Adjust = BH

## Limma step 6/6: 6/6: Creating table: uninfsbnone.  Adjust = BH

##                        Length Class         Mode     
## title                   1     -none-        character
## notes                   1     -none-        character
## initial_metadata       71     data.frame    list     
## expressionset           1     ExpressionSet S4       
## design                 71     data.frame    list     
## conditions             54     -none-        character
## batches                54     -none-        character
## samplenames            54     -none-        character
## colors                 54     -none-        character
## state                   5     -none-        list     
## libsize                54     -none-        numeric  
## original_expressionset  1     ExpressionSet S4       
## normalized              6     -none-        list     
## best_libsize           54     -none-        numeric  
## norm_result             6     -none-        list

tmp_keepers <- tmrc2_human_keepers[13]

hs_macr_table <- combine_de_tables(
  hs_macr_de,
  keepers = tmrc2_human_keepers,
  excel = glue("analyses/macrophage_de/hs_macr_drug_zymo_table_testing_macr_only-v{ver}.xlsx"))

## Warning in combine_extracted_plots(entry_name, combined, wanted_denominator, : I think this
## is an extra contrast table, the plots may be weird.

## Did not find z22drugnodrug or z23drugnodrug.

## Warning in combine_extracted_plots(entry_name, combined, wanted_denominator, : I think this
## is an extra contrast table, the plots may be weird.

## Did not find z22drugnodrug or z23drugnodrug.

## Warning in combine_extracted_plots(entry_name, combined, wanted_denominator, : I think this
## is an extra contrast table, the plots may be weird.

## Did not find z23z22nodrug or z23z22drug.

## Warning in combine_extracted_plots(entry_name, combined, wanted_denominator, : I think this
## is an extra contrast table, the plots may be weird.

## Did not find z23z22nodrug or z23z22drug.

## Adding venn plots for z23nosb_vs_uninf.

## Adding venn plots for z22nosb_vs_uninf.

## Adding venn plots for z23nosb_vs_z22nosb.

## Adding venn plots for z23sb_vs_z22sb.

## Adding venn plots for z23sb_vs_z23nosb.

## Adding venn plots for z22sb_vs_z22nosb.

## Adding venn plots for z23sb_vs_sb.

## Adding venn plots for z22sb_vs_sb.

## Adding venn plots for z23sb_vs_uninf.

## Adding venn plots for z22sb_vs_uninf.

## Adding venn plots for sb_vs_uninf.

## Adding venn plots for extra_z2322.

## Adding venn plots for extra_drugnodrug.

combined_to_tsv(hs_macr_table, "macrophage")

hs_macr_sig <- extract_significant_genes(
  hs_macr_table,
  excel = glue("analyses/macrophage_de/hs_macr_drug_zymo_sig-v{ver}.xlsx"))

## There is no deseq_logfc column in the table.

## The columns are: ensembltranscriptid, ensemblgeneid, version, transcriptversion, hgncsymbol, description, genebiotype, cdslength, chromosomename, strand, startposition, endposition, transcript, edger_logfc, edger_adjp, limma_logfc, limma_adjp, edger_logcpm, edger_lr, edger_p, limma_ave, limma_t, limma_b, limma_p, limma_adjp_ihw, edger_adjp_ihw

## There is no deseq_logfc column in the table.

## The columns are: ensembltranscriptid, ensemblgeneid, version, transcriptversion, hgncsymbol, description, genebiotype, cdslength, chromosomename, strand, startposition, endposition, transcript, edger_logfc, edger_adjp, limma_logfc, limma_adjp, edger_logcpm, edger_lr, edger_p, limma_ave, limma_t, limma_b, limma_p, limma_adjp_ihw, edger_adjp_ihw

## There is no basic_logfc column in the table.

## The columns are: ensembltranscriptid, ensemblgeneid, version, transcriptversion, hgncsymbol, description, genebiotype, cdslength, chromosomename, strand, startposition, endposition, transcript, edger_logfc, edger_adjp, limma_logfc, limma_adjp, edger_logcpm, edger_lr, edger_p, limma_ave, limma_t, limma_b, limma_p, limma_adjp_ihw, edger_adjp_ihw

## There is no basic_logfc column in the table.

## The columns are: ensembltranscriptid, ensemblgeneid, version, transcriptversion, hgncsymbol, description, genebiotype, cdslength, chromosomename, strand, startposition, endposition, transcript, edger_logfc, edger_adjp, limma_logfc, limma_adjp, edger_logcpm, edger_lr, edger_p, limma_ave, limma_t, limma_b, limma_p, limma_adjp_ihw, edger_adjp_ihw

hs_macr_highsig <- extract_significant_genes(
  hs_macr_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/hs_macr_drug_zymo_highsig-v{ver}.xlsx"))

## Warning in get_sig_genes(this_table, lfc = lfc, p = p, z = z, n = n, column = this_fc_column,
## : The column deseq_basemean does not appears to be in the table, cannot filter by expression.

## Warning in get_sig_genes(this_table, lfc = lfc, p = p, z = z, n = n, column = this_fc_column,
## : The column deseq_basemean does not appears to be in the table, cannot filter by expression.

## Warning in get_sig_genes(this_table, lfc = lfc, p = p, z = z, n = n, column = this_fc_column,
## : The column deseq_basemean does not appears to be in the table, cannot filter by expression.

## Warning in get_sig_genes(this_table, lfc = lfc, p = p, z = z, n = n, column = this_fc_column,
## : The column deseq_basemean does not appears to be in the table, cannot filter by expression.

## There is no deseq_logfc column in the table.
## The columns are: ensembltranscriptid, ensemblgeneid, version, transcriptversion, hgncsymbol, description, genebiotype, cdslength, chromosomename, strand, startposition, endposition, transcript, edger_logfc, edger_adjp, limma_logfc, limma_adjp, edger_logcpm, edger_lr, edger_p, limma_ave, limma_t, limma_b, limma_p, limma_adjp_ihw, edger_adjp_ihw

## There is no deseq_logfc column in the table.

## The columns are: ensembltranscriptid, ensemblgeneid, version, transcriptversion, hgncsymbol, description, genebiotype, cdslength, chromosomename, strand, startposition, endposition, transcript, edger_logfc, edger_adjp, limma_logfc, limma_adjp, edger_logcpm, edger_lr, edger_p, limma_ave, limma_t, limma_b, limma_p, limma_adjp_ihw, edger_adjp_ihw

## There is no basic_logfc column in the table.

## The columns are: ensembltranscriptid, ensemblgeneid, version, transcriptversion, hgncsymbol, description, genebiotype, cdslength, chromosomename, strand, startposition, endposition, transcript, edger_logfc, edger_adjp, limma_logfc, limma_adjp, edger_logcpm, edger_lr, edger_p, limma_ave, limma_t, limma_b, limma_p, limma_adjp_ihw, edger_adjp_ihw

## There is no basic_logfc column in the table.

## The columns are: ensembltranscriptid, ensemblgeneid, version, transcriptversion, hgncsymbol, description, genebiotype, cdslength, chromosomename, strand, startposition, endposition, transcript, edger_logfc, edger_adjp, limma_logfc, limma_adjp, edger_logcpm, edger_lr, edger_p, limma_ave, limma_t, limma_b, limma_p, limma_adjp_ihw, edger_adjp_ihw

3.2.1 Our main questions in U937

Let us do the same comparisons in the U937 samples, though I will not do the extra contrasts, primarily because I think the dataset is less likely to support them.

u937_de <- all_pairwise(u937_expt, model_batch = "svaseq", filter = TRUE)

## 
##      inf_z22      inf_z23    infsb_z22    infsb_z23   uninf_none uninfsb_none 
##            3            3            3            3            1            1

## Removing 0 low-count genes (10751 remaining).

## Setting 5 low elements to zero.

## transform_counts: Found 5 values equal to 0, adding 1 to the matrix.

u937_table <- combine_de_tables(
  u937_de,
  keepers = u937_keepers,
  excel = glue("analyses/macrophage_de/u937_drug_zymo_table-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

combined_to_tsv(u937_table, celltype = "u937")

## Error in combined_to_tsv(u937_table, celltype = "u937"): object 'u937_table' not found

u937_sig <- extract_significant_genes(
  u937_table,
  excel = glue("analyses/macrophage_de/u937_drug_zymo_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(u937_table, excel = glue("analyses/macrophage_de/u937_drug_zymo_sig-v{ver}.xlsx")): object 'u937_table' not found

u937_highsig <- extract_significant_genes(
  u937_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/u937_drug_zymo_highsig-v{ver}.xlsx"))

## Error in extract_significant_genes(u937_table, min_mean_exprs = high_expression, : object 'u937_table' not found

3.2.1.1 Compare (no)Sb z2.3/z2.2 treatments among macrophages

upset_plots_hs_macr <- upsetr_sig(
  hs_macr_sig, both = TRUE,
  contrasts = c("z23sb_vs_z22sb", "z23nosb_vs_z22nosb"))
upset_plots_hs_macr[["both"]]

groups <- upset_plots_hs_macr[["both_groups"]]
shared_genes <- attr(groups, "elements")[groups[[2]]] %>%
  gsub(pattern = "^gene:", replacement = "")
length(shared_genes)

## [1] 387

shared_gp <- simple_gprofiler(shared_genes)

## No results to show
## Please make sure that the organism is correct or set significant = FALSE
## No results to show
## Please make sure that the organism is correct or set significant = FALSE

shared_gp[["pvalue_plots"]][["MF"]]

shared_gp[["pvalue_plots"]][["BP"]]

shared_gp[["pvalue_plots"]][["REAC"]]

drug_genes <- attr(groups, "elements")[groups[["z23sb_vs_z22sb"]]] %>%
  gsub(pattern = "^gene:", replacement = "")
drugonly_gp <- simple_gprofiler(drug_genes)

## No results to show
## Please make sure that the organism is correct or set significant = FALSE
## No results to show
## Please make sure that the organism is correct or set significant = FALSE
## No results to show
## Please make sure that the organism is correct or set significant = FALSE
## No results to show
## Please make sure that the organism is correct or set significant = FALSE
## No results to show
## Please make sure that the organism is correct or set significant = FALSE
## No results to show
## Please make sure that the organism is correct or set significant = FALSE

drugonly_gp[["pvalue_plots"]][["BP"]]

I want to try something, directly include the u937 data in this…

both_sig <- hs_macr_sig
names(both_sig[["deseq"]][["ups"]]) <- paste0("macr_", names(both_sig[["deseq"]][["ups"]]))
names(both_sig[["deseq"]][["downs"]]) <- paste0("macr_", names(both_sig[["deseq"]][["downs"]]))
u937_deseq <- u937_sig[["deseq"]]

## Error in eval(expr, envir, enclos): object 'u937_sig' not found

names(u937_deseq[["ups"]]) <- paste0("u937_", names(u937_deseq[["ups"]]))

## Error in paste0("u937_", names(u937_deseq[["ups"]])): object 'u937_deseq' not found

names(u937_deseq[["downs"]]) <- paste0("u937_", names(u937_deseq[["downs"]]))

## Error in paste0("u937_", names(u937_deseq[["downs"]])): object 'u937_deseq' not found

both_sig[["deseq"]][["ups"]] <- c(both_sig[["deseq"]][["ups"]], u937_deseq[["ups"]])

## Error in eval(expr, envir, enclos): object 'u937_deseq' not found

both_sig[["deseq"]][["downs"]] <- c(both_sig[["deseq"]][["ups"]], u937_deseq[["downs"]])

## Error in eval(expr, envir, enclos): object 'u937_deseq' not found

summary(both_sig[["deseq"]][["ups"]])

##                         Length Class      Mode
## macr_z23nosb_vs_uninf   49     data.frame list
## macr_z22nosb_vs_uninf   49     data.frame list
## macr_z23nosb_vs_z22nosb 49     data.frame list
## macr_z23sb_vs_z22sb     49     data.frame list
## macr_z23sb_vs_z23nosb   49     data.frame list
## macr_z22sb_vs_z22nosb   49     data.frame list
## macr_z23sb_vs_sb        49     data.frame list
## macr_z22sb_vs_sb        49     data.frame list
## macr_z23sb_vs_uninf     49     data.frame list
## macr_z22sb_vs_uninf     49     data.frame list
## macr_sb_vs_uninf        49     data.frame list
## macr_extra_z2322         0     data.frame list
## macr_extra_drugnodrug    0     data.frame list

upset_plots_both <- upsetr_sig(
  both_sig, both = TRUE,
  contrasts = c("macr_z23sb_vs_z22sb", "macr_z23nosb_vs_z22nosb",
                "u937_z23sb_vs_z22sb", "u937_z23nosb_vs_z22nosb"))
upset_plots_both$both

3.2.1.2 Compare DE results from macrophages and U937 samples

Looking a bit more closely at these, I think the u937 data is too sparse to effectively compare.

macr_u937_comparison <- compare_de_results(hs_macr_table, u937_table)

## Error: object 'u937_table' not found

macr_u937_comparison$lfc_heat

## Error in eval(expr, envir, enclos): object 'macr_u937_comparison' not found

macr_u937_venns <- compare_significant_contrasts(hs_macr_sig, second_sig_tables = u937_sig,
                                                 contrasts = "z23sb_vs_z23nosb")

## Error: object 'u937_sig' not found

macr_u937_venns$up_plot

## Error in eval(expr, envir, enclos): object 'macr_u937_venns' not found

macr_u937_venns$down_plot

## Error in eval(expr, envir, enclos): object 'macr_u937_venns' not found

macr_u937_venns_v2 <- compare_significant_contrasts(hs_macr_sig, second_sig_tables = u937_sig,
                                                    contrasts = "z22sb_vs_z22nosb")

## Error in compare_significant_contrasts(hs_macr_sig, second_sig_tables = u937_sig, : object 'u937_sig' not found

macr_u937_venns_v2$up_plot

## Error in eval(expr, envir, enclos): object 'macr_u937_venns_v2' not found

macr_u937_venns_v2$down_plot

## Error in eval(expr, envir, enclos): object 'macr_u937_venns_v2' not found

macr_u937_venns_v3 <- compare_significant_contrasts(hs_macr_sig, second_sig_tables = u937_sig,
                                                    contrasts = "sb_vs_uninf")

## Error in compare_significant_contrasts(hs_macr_sig, second_sig_tables = u937_sig, : object 'u937_sig' not found

macr_u937_venns_v3$up_plot

## Error in eval(expr, envir, enclos): object 'macr_u937_venns_v3' not found

macr_u937_venns_v3$down_plot

## Error in eval(expr, envir, enclos): object 'macr_u937_venns_v3' not found

3.2.2 Compare macrophage/u937 with respect to z2.3/z2.2

comparison_df <- merge(hs_macr_table[["data"]][["z23sb_vs_z22sb"]],
                       u937_table[["data"]][["z23sb_vs_z22sb"]],
                       by = "row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'y' in selecting a method for function 'merge': object 'u937_table' not found

macru937_z23z22_plot <- plot_linear_scatter(comparison_df[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'comparison_df' not found

macru937_z23z22_plot$scatter

## Error in eval(expr, envir, enclos): object 'macru937_z23z22_plot' not found

comparison_df <- merge(hs_macr_table[["data"]][["z23nosb_vs_z22nosb"]],
                       u937_table[["data"]][["z23nosb_vs_z22nosb"]],
                       by = "row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'y' in selecting a method for function 'merge': object 'u937_table' not found

macru937_z23z22_plot <- plot_linear_scatter(comparison_df[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'comparison_df' not found

macru937_z23z22_plot$scatter

## Error in eval(expr, envir, enclos): object 'macru937_z23z22_plot' not found

3.2.2.1 Add donor to the contrasts, no sva

no_power_fact <- paste0(pData(hs_macr)[["donor"]], "_",
                        pData(hs_macr)[["condition"]])
table(pData(hs_macr)[["donor"]])

## 
## d01 d02 d09 d81 
##  13  14  13  14

table(no_power_fact)

## no_power_fact
##      d01_inf_z22      d01_inf_z23    d01_infsb_z22    d01_infsb_z23   d01_uninf_none 
##                2                3                3                3                1 
## d01_uninfsb_none      d02_inf_z22      d02_inf_z23    d02_infsb_z22    d02_infsb_z23 
##                1                3                3                3                3 
##   d02_uninf_none d02_uninfsb_none      d09_inf_z22      d09_inf_z23    d09_infsb_z22 
##                1                1                3                3                3 
##    d09_infsb_z23   d09_uninf_none d09_uninfsb_none      d81_inf_z22      d81_inf_z23 
##                2                1                1                3                3 
##    d81_infsb_z22    d81_infsb_z23   d81_uninf_none d81_uninfsb_none 
##                3                3                1                1

hs_nopower <- set_expt_conditions(hs_macr, fact = no_power_fact)

## 
##      d01_inf_z22      d01_inf_z23    d01_infsb_z22    d01_infsb_z23   d01_uninf_none 
##                2                3                3                3                1 
## d01_uninfsb_none      d02_inf_z22      d02_inf_z23    d02_infsb_z22    d02_infsb_z23 
##                1                3                3                3                3 
##   d02_uninf_none d02_uninfsb_none      d09_inf_z22      d09_inf_z23    d09_infsb_z22 
##                1                1                3                3                3 
##    d09_infsb_z23   d09_uninf_none d09_uninfsb_none      d81_inf_z22      d81_inf_z23 
##                2                1                1                3                3 
##    d81_infsb_z22    d81_infsb_z23   d81_uninf_none d81_uninfsb_none 
##                3                3                1                1

hs_nopower <- subset_expt(hs_nopower, subset="macrophagezymodeme!='none'")

## subset_expt(): There were 54, now there are 46 samples.

hs_nopower_nosva_de <- all_pairwise(hs_nopower, model_batch = FALSE, filter = TRUE)

## 
##   d01_inf_z22   d01_inf_z23 d01_infsb_z22 d01_infsb_z23   d02_inf_z22   d02_inf_z23 
##             2             3             3             3             3             3 
## d02_infsb_z22 d02_infsb_z23   d09_inf_z22   d09_inf_z23 d09_infsb_z22 d09_infsb_z23 
##             3             3             3             3             3             2 
##   d81_inf_z22   d81_inf_z23 d81_infsb_z22 d81_infsb_z23 
##             3             3             3             3

nopower_keepers <- list(
  "d01_zymo" = c("d01infz23", "d01infz22"),
  "d01_sbzymo" = c("d01infsbz23", "d01infsbz22"),
  "d02_zymo" = c("d02infz23", "d02infz22"),
  "d02_sbzymo" = c("d02infsbz23", "d02infsbz22"),
  "d09_zymo" = c("d09infz23", "d09infz22"),
  "d09_sbzymo" = c("d09infsbz23", "d09infsbz22"),
  "d81_zymo" = c("d81infz23", "d81infz22"),
  "d81_sbzymo" = c("d81infsbz23", "d81infsbz22"))
hs_nopower_nosva_table <- combine_de_tables(
  hs_nopower_nosva_de, keepers = nopower_keepers,
  excel = glue("analyses/macrophage_de/hs_nopower_table-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

##                                  extra_contrasts = extra)
hs_nopower_nosva_sig <- extract_significant_genes(
  hs_nopower_nosva_table,
  excel = glue("analyses/macrophage_de/hs_nopower_nosva_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(hs_nopower_nosva_table, excel = glue("analyses/macrophage_de/hs_nopower_nosva_sig-v{ver}.xlsx")): object 'hs_nopower_nosva_table' not found

d01d02_zymo_nosva_comp <- merge(hs_nopower_nosva_table[["data"]][["d01_zymo"]],
                                hs_nopower_nosva_table[["data"]][["d02_zymo"]],
                                by="row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'merge': object 'hs_nopower_nosva_table' not found

d0102_zymo_nosva_plot <- plot_linear_scatter(d01d02_zymo_nosva_comp[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'd01d02_zymo_nosva_comp' not found

d0102_zymo_nosva_plot$scatter

## Error in eval(expr, envir, enclos): object 'd0102_zymo_nosva_plot' not found

d0102_zymo_nosva_plot$correlation

## Error in eval(expr, envir, enclos): object 'd0102_zymo_nosva_plot' not found

d0102_zymo_nosva_plot$lm_rsq

## Error in eval(expr, envir, enclos): object 'd0102_zymo_nosva_plot' not found

d09d81_zymo_nosva_comp <- merge(hs_nopower_nosva_table[["data"]][["d09_zymo"]],
                                hs_nopower_nosva_table[["data"]][["d81_zymo"]],
                                by="row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'merge': object 'hs_nopower_nosva_table' not found

d0981_zymo_nosva_plot <- plot_linear_scatter(d09d81_zymo_nosva_comp[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'd09d81_zymo_nosva_comp' not found

d0981_zymo_nosva_plot$scatter

## Error in eval(expr, envir, enclos): object 'd0981_zymo_nosva_plot' not found

d0981_zymo_nosva_plot$correlation

## Error in eval(expr, envir, enclos): object 'd0981_zymo_nosva_plot' not found

d0981_zymo_nosva_plot$lm_rsq

## Error in eval(expr, envir, enclos): object 'd0981_zymo_nosva_plot' not found

d01d81_zymo_nosva_comp <- merge(hs_nopower_nosva_table[["data"]][["d01_zymo"]],
                                hs_nopower_nosva_table[["data"]][["d81_zymo"]],
                                by="row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'merge': object 'hs_nopower_nosva_table' not found

d0181_zymo_nosva_plot <- plot_linear_scatter(d01d81_zymo_nosva_comp[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'd01d81_zymo_nosva_comp' not found

d0181_zymo_nosva_plot$scatter

## Error in eval(expr, envir, enclos): object 'd0181_zymo_nosva_plot' not found

d0181_zymo_nosva_plot$correlation

## Error in eval(expr, envir, enclos): object 'd0181_zymo_nosva_plot' not found

d0181_zymo_nosva_plot$lm_rsq

## Error in eval(expr, envir, enclos): object 'd0181_zymo_nosva_plot' not found

upset_plots_nosva <- upsetr_sig(hs_nopower_nosva_sig, both=TRUE,
                                contrasts=c("d01_zymo", "d02_zymo", "d09_zymo", "d81_zymo"))

## Error in upsetr_sig(hs_nopower_nosva_sig, both = TRUE, contrasts = c("d01_zymo", : object 'hs_nopower_nosva_sig' not found

upset_plots_nosva$up

## Error in eval(expr, envir, enclos): object 'upset_plots_nosva' not found

upset_plots_nosva$down

## Error in eval(expr, envir, enclos): object 'upset_plots_nosva' not found

upset_plots_nosva$both

## Error in eval(expr, envir, enclos): object 'upset_plots_nosva' not found

## The 7th element in the both groups list is the set shared among all donors.
## I don't feel like writing out x:y:z:a
groups <- upset_plots_nosva[["both_groups"]]

## Error in eval(expr, envir, enclos): object 'upset_plots_nosva' not found

shared_genes <- attr(groups, "elements")[groups[[7]]] %>%
  gsub(pattern = "^gene:", replacement = "")

## Error in (function (cond) : error in evaluating the argument 'x' in selecting a method for function 'gsub': subscript out of bounds

shared_gp <- simple_gprofiler(shared_genes)

## No results to show
## Please make sure that the organism is correct or set significant = FALSE

## No results to show
## Please make sure that the organism is correct or set significant = FALSE

shared_gp$pvalue_plots$MF

shared_gp$pvalue_plots$BP

shared_gp$pvalue_plots$REAC

shared_gp$pvalue_plots$WP

3.2.2.2 Add donor to the contrasts, sva

hs_nopower_sva_de <- all_pairwise(hs_nopower, model_batch = "svaseq", filter = TRUE)

## 
##   d01_inf_z22   d01_inf_z23 d01_infsb_z22 d01_infsb_z23   d02_inf_z22   d02_inf_z23 
##             2             3             3             3             3             3 
## d02_infsb_z22 d02_infsb_z23   d09_inf_z22   d09_inf_z23 d09_infsb_z22 d09_infsb_z23 
##             3             3             3             3             3             2 
##   d81_inf_z22   d81_inf_z23 d81_infsb_z22 d81_infsb_z23 
##             3             3             3             3

## Removing 0 low-count genes (11720 remaining).

## Setting 2174 low elements to zero.

## transform_counts: Found 2174 values equal to 0, adding 1 to the matrix.

nopower_keepers <- list(
  "d01_zymo" = c("d01infz23", "d01infz22"),
  "d01_sbzymo" = c("d01infsbz23", "d01infsbz22"),
  "d02_zymo" = c("d02infz23", "d02infz22"),
  "d02_sbzymo" = c("d02infsbz23", "d02infsbz22"),
  "d09_zymo" = c("d09infz23", "d09infz22"),
  "d09_sbzymo" = c("d09infsbz23", "d09infsbz22"),
  "d81_zymo" = c("d81infz23", "d81infz22"),
  "d81_sbzymo" = c("d81infsbz23", "d81infsbz22"))
hs_nopower_sva_table <- combine_de_tables(
  hs_nopower_sva_de, keepers = nopower_keepers,
  excel = glue("analyses/macrophage_de/hs_nopower_table-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

##                                  extra_contrasts = extra)
hs_nopower_sva_sig <- extract_significant_genes(
  hs_nopower_sva_table,
  excel = glue("analyses/macrophage_de/hs_nopower_sva_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(hs_nopower_sva_table, excel = glue("analyses/macrophage_de/hs_nopower_sva_sig-v{ver}.xlsx")): object 'hs_nopower_sva_table' not found

d01d02_zymo_sva_comp <- merge(hs_nopower_sva_table[["data"]][["d01_zymo"]],
                              hs_nopower_sva_table[["data"]][["d02_zymo"]],
                              by="row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'merge': object 'hs_nopower_sva_table' not found

d0102_zymo_sva_plot <- plot_linear_scatter(d01d02_zymo_sva_comp[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'd01d02_zymo_sva_comp' not found

d0102_zymo_sva_plot$scatter

## Error in eval(expr, envir, enclos): object 'd0102_zymo_sva_plot' not found

d0102_zymo_sva_plot$correlation

## Error in eval(expr, envir, enclos): object 'd0102_zymo_sva_plot' not found

d0102_zymo_sva_plot$lm_rsq

## Error in eval(expr, envir, enclos): object 'd0102_zymo_sva_plot' not found

d09d81_zymo_sva_comp <- merge(hs_nopower_sva_table[["data"]][["d09_zymo"]],
                              hs_nopower_sva_table[["data"]][["d81_zymo"]],
                              by="row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'merge': object 'hs_nopower_sva_table' not found

d0981_zymo_sva_plot <- plot_linear_scatter(d09d81_zymo_sva_comp[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'd09d81_zymo_sva_comp' not found

d0981_zymo_sva_plot$scatter

## Error in eval(expr, envir, enclos): object 'd0981_zymo_sva_plot' not found

d0981_zymo_sva_plot$correlation

## Error in eval(expr, envir, enclos): object 'd0981_zymo_sva_plot' not found

d0981_zymo_sva_plot$lm_rsq

## Error in eval(expr, envir, enclos): object 'd0981_zymo_sva_plot' not found

d01d81_zymo_sva_comp <- merge(hs_nopower_sva_table[["data"]][["d01_zymo"]],
                              hs_nopower_sva_table[["data"]][["d81_zymo"]],
                              by="row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'merge': object 'hs_nopower_sva_table' not found

d0181_zymo_sva_plot <- plot_linear_scatter(d01d81_zymo_sva_comp[, c("deseq_logfc.x", "deseq_logfc.y")])

## Error in is.data.frame(x): object 'd01d81_zymo_sva_comp' not found

d0181_zymo_sva_plot$scatter

## Error in eval(expr, envir, enclos): object 'd0181_zymo_sva_plot' not found

d0181_zymo_sva_plot$correlation

## Error in eval(expr, envir, enclos): object 'd0181_zymo_sva_plot' not found

d0181_zymo_sva_plot$lm_rsq

## Error in eval(expr, envir, enclos): object 'd0181_zymo_sva_plot' not found

upset_plots_sva <- upsetr_sig(hs_nopower_sva_sig, both=TRUE,
                              contrasts=c("d01_zymo", "d02_zymo", "d09_zymo", "d81_zymo"))

## Error in upsetr_sig(hs_nopower_sva_sig, both = TRUE, contrasts = c("d01_zymo", : object 'hs_nopower_sva_sig' not found

upset_plots_sva$up

## Error in eval(expr, envir, enclos): object 'upset_plots_sva' not found

upset_plots_sva$down

## Error in eval(expr, envir, enclos): object 'upset_plots_sva' not found

upset_plots_sva$both

## Error in eval(expr, envir, enclos): object 'upset_plots_sva' not found

## The 7th element in the both groups list is the set shared among all donors.
## I don't feel like writing out x:y:z:a
groups <- upset_plots_sva[["both_groups"]]

## Error in eval(expr, envir, enclos): object 'upset_plots_sva' not found

shared_genes <- attr(groups, "elements")[groups[[7]]] %>%
  gsub(pattern = "^gene:", replacement = "")

## Error in (function (cond) : error in evaluating the argument 'x' in selecting a method for function 'gsub': subscript out of bounds

shared_gp <- simple_gprofiler(shared_genes)

## No results to show
## Please make sure that the organism is correct or set significant = FALSE

## No results to show
## Please make sure that the organism is correct or set significant = FALSE

shared_gp$pvalue_plots$MF

shared_gp$pvalue_plots$BP

shared_gp$pvalue_plots$REAC

shared_gp$pvalue_plots$WP

3.2.3 Donor comparison

hs_donors <- set_expt_conditions(hs_macr, fact = "donor")

## 
## d01 d02 d09 d81 
##  13  14  13  14

donor_de <- all_pairwise(hs_donors, model_batch="svaseq", filter=TRUE)

## 
## d01 d02 d09 d81 
##  13  14  13  14

## Removing 0 low-count genes (11756 remaining).

## Setting 1225 low elements to zero.

## transform_counts: Found 1225 values equal to 0, adding 1 to the matrix.

donor_table <- combine_de_tables(
  donor_de,
  excel=glue("analyses/macrophage_de/donor_tables-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

donor_sig <- extract_significant_genes(
  donor_table,
  excel = glue("analyses/macrophage_de/donor_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(donor_table, excel = glue("analyses/macrophage_de/donor_sig-v{ver}.xlsx")): object 'donor_table' not found

3.2.3.1 Primary query contrasts

The final contrast in this list is interesting because it depends on the extra contrasts applied to the all_pairwise() above. In my way of thinking, the primary comparisons to consider are either cross-drug or cross-strain, but not both. However I think in at least a few instances Olga is interested in strain+drug / uninfected+nodrug.

3.2.3.2 Write contrast results

Now let us write out the xlsx file containing the above contrasts. The file with the suffix _table-version will therefore contain all genes and the file with the suffix _sig-version will contain only those deemed significant via our default criteria of DESeq2 |logFC| >= 1.0 and adjusted p-value <= 0.05.

4 Over representation searches

I decided to make one initially small, but I think quickly big change to the organization of this document: I am moving the GSEA searches up to immediately after the DE. I will then move the plots of the gprofiler results to immediately after the various volcano plots so that it is easier to interpret them.

all_gp <- all_gprofiler(hs_macr_sig)
for (g in seq_len(length(all_gp))) {
  name <- names(all_gp)[g]
  datum <- all_gp[[name]]
  filename <- glue("analyses/macrophage_de/gprofiler/{name}_gprofiler-v{ver}.xlsx")
  written <- sm(write_gprofiler_data(datum, excel = filename))
}

## Error in wb$check_overwrite_tables(sheet = sheet, new_rows = c(startRow,  : 
##   Cannot overwrite existing table with another table.

5 Plot contrasts of interest

One suggestion I received recently was to set the axes for these volcano plots to be static rather than let ggplot choose its own. I am assuming this is only relevant for pairs of contrasts, but that might not be true.

5.1 Individual zymodemes vs. uninfected

5.1.1 Infected with z2.3 no Antimonial vs. Uninfected

plot_colors <- get_expt_colors(hs_macr_table[["input"]][["input"]])
x_limits <- c(-20, 10)

## The original plot from my xlsx file
hs_macr_table$plots$z23nosb_vs_uninf$deseq_vol_plots

## Warning: ggrepel: 1 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

z23nosb_vs_uninf_volcano <- plot_volcano_condition_de(
  input = hs_macr_table[["data"]][["z23nosb_vs_uninf"]],
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = TRUE,
  color_high = plot_colors[["uninfnone"]], color_low = plot_colors[["infz23"]])
z23nosb_vs_uninf_volcano$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

## Warning: Removed 1 rows containing missing values (`geom_text_repel()`).

## Warning: ggrepel: 1 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

plotly::ggplotly(z23nosb_vs_uninf_volcano$plot)

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

z23nosb_vs_uninf_volcano_nol <- plot_volcano_condition_de(
  input = hs_macr_table[["data"]][["z23nosb_vs_uninf"]],
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = NULL, label_column = "hgncsymbol", invert = TRUE,
  color_high = plot_colors[["uninfnone"]], color_low = plot_colors[["infz23"]])
z23nosb_vs_uninf_volcano_nol$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

all_gp[["z23nosb_vs_uninf_up"]][["pvalue_plots"]][["REAC"]]

## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_uninf_up"]][["pvalue_plots"]][["KEGG"]]

## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_uninf_up"]][["pvalue_plots"]][["MF"]]

## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_uninf_up"]][["pvalue_plots"]][["TF"]]

## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_uninf_up"]][["pvalue_plots"]][["WP"]]

## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_uninf_up"]][["interactive_plots"]][["WP"]]

all_gp[["z23nosb_vs_uninf_down"]][["pvalue_plots"]][["REAC"]]

## NULL

## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23nosb_vs_uninf_down"]][["pvalue_plots"]][["MF"]]

## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23nosb_vs_uninf_down"]][["pvalue_plots"]][["TF"]]

## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

5.1.2 Infected with z2.2 no Antimonial vs. Uninfected

## The original plot
hs_macr_table$plots$z22nosb_vs_uninf$deseq_vol_plots

## Warning: ggrepel: 9 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

z22nosb_vs_uninf_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z22nosb_vs_uninf"]], "z22nosb_vs_uninf",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = TRUE,
  color_high = plot_colors[["uninfnone"]], color_low = plot_colors[["infz22"]])
z22nosb_vs_uninf_volcano$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

## Warning: Removed 1 rows containing missing values (`geom_text_repel()`).

## Warning: ggrepel: 10 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

plotly::ggplotly(z22nosb_vs_uninf_volcano$plot)

## Warning in geom2trace.default(dots[[1L]][[3L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

## Warning in geom2trace.default(dots[[1L]][[3L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

## Warning in geom2trace.default(dots[[1L]][[3L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

z22nosb_vs_uninf_volcano_nol <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z22nosb_vs_uninf"]], "z22nosb_vs_uninf",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = NULL, label_column = "hgncsymbol", invert = TRUE,
  color_high = plot_colors[["uninfnone"]], color_low = plot_colors[["infz22"]])
z22nosb_vs_uninf_volcano_nol$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

all_gp[["z22nosb_vs_uninf_up"]][["pvalue_plots"]][["REAC"]]

## Reactome, zymodeme2.2 without drug vs. uninfected without drug, up.
all_gp[["z22nosb_vs_uninf_up"]][["pvalue_plots"]][["MF"]]

## MF, zymodeme2.2 without drug vs. uninfected without drug, up.
all_gp[["z22nosb_vs_uninf_up"]][["pvalue_plots"]][["TF"]]

## TF, zymodeme2.2 without drug vs. uninfected without drug, up.
all_gp[["z22nosb_vs_uninf_up"]][["pvalue_plots"]][["WP"]]

## WikiPathways, zymodeme2.2 without drug vs. uninfected without drug, up.

all_gp[["z22nosb_vs_uninf_down"]][["pvalue_plots"]][["REAC"]]

## NULL

## Reactome, zymodeme2.2 without drug vs. uninfected without drug, down.
all_gp[["z22nosb_vs_uninf_down"]][["pvalue_plots"]][["MF"]]

## NULL

## MF, zymodeme2.2 without drug vs. uninfected without drug, down.
all_gp[["z22nosb_vs_uninf_down"]][["pvalue_plots"]][["TF"]]

## NULL

## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

5.1.3 Infected with z2.3 treated vs. Uninfected treated

## The original plot
hs_macr_table$plots$z23sb_vs_sb$deseq_vol_plots

## Warning: ggrepel: 4 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

z23sb_vs_uninfsb_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z23sb_vs_sb"]], "z23sb_vs_sb",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = TRUE,
  color_high = plot_colors[["infsbz23"]], color_low = plot_colors[["uninfsbnone"]])
z23sb_vs_uninfsb_volcano$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

## Warning: Removed 1 rows containing missing values (`geom_text_repel()`).

## Warning: ggrepel: 5 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

plotly::ggplotly(z23sb_vs_uninfsb_volcano$plot)

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

z23sb_vs_uninfsb_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z23sb_vs_sb"]], "z23sb_vs_sb",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = NULL, label_column = "hgncsymbol", invert = TRUE,
  color_high = plot_colors[["infsbz23"]], color_low = plot_colors[["uninfsbnone"]])
z23sb_vs_uninfsb_volcano$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

5.1.4 Infected with z2.3 untreated vs. z2.2 untreated

## The original plot
hs_macr_table$plots$z23nosb_vs_z22nosb$deseq_vol_plots

z23nosb_vs_z22nosb_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z23nosb_vs_z22nosb"]], "z23nosb_vs_z22nosb",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = TRUE,
  color_high = plot_colors[["infz23"]], color_low = plot_colors[["infz22"]])
z23nosb_vs_z22nosb_volcano$plot +
  scale_x_continuous(limits = x_limits)

5.1.5 Infected with z2.3 treated vs. z2.2 treated

## The original plot
hs_macr_table$plots$z23sb_vs_z22sb$deseq_vol_plots

## Warning: ggrepel: 3 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

z23sb_vs_z22sb_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z23sb_vs_z22sb"]], "z23sb_vs_z22sb",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = FALSE,
  color_high = plot_colors[["infsbz23"]], color_low = plot_colors[["infsbz22"]])
z23sb_vs_z22sb_volcano$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

## Warning: Removed 1 rows containing missing values (`geom_text_repel()`).

## Warning: ggrepel: 3 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

5.1.6 Infected with z2.3 SB treated vs. z2.3 untreated

## The original plot
hs_macr_table$plots$z23sb_vs_z23nosb$deseq_vol_plots

z23sb_vs_z23nosb_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z23sb_vs_z23nosb"]], "z23sb_vs_z23nosb",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = TRUE,
  color_low = plot_colors[["infsbz23"]], color_high = plot_colors[["infz23"]])
z23sb_vs_z23nosb_volcano$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

## Warning: Removed 1 rows containing missing values (`geom_text_repel()`).

5.1.7 Infected with z2.3 SB treated vs. z2.3 untreated

## The original plot
hs_macr_table$plots$z22sb_vs_z22nosb$deseq_vol_plots

z22sb_vs_z22nosb_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z22sb_vs_z22nosb"]], "z22sb_vs_z22nosb",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = TRUE,
  color_low = plot_colors[["infsbz22"]], color_high = plot_colors[["infz22"]])
z22sb_vs_z22nosb_volcano$plot +
  scale_x_continuous(limits = x_limits)

5.1.8 Infected with z2.3 SB treated vs. uninfected treated

## The original plot
hs_macr_table$plots$z23sb_vs_sb$deseq_vol_plots

## Warning: ggrepel: 4 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

z23sb_vs_sb_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z23sb_vs_sb"]], "z23sb_vs_sb",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = TRUE,
  color_low = plot_colors[["infsbz23"]], color_high = plot_colors[["uninfsbnone"]])
z23sb_vs_sb_volcano$plot +
  scale_x_continuous(limits = x_limits)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

## Warning: Removed 1 rows containing missing values (`geom_text_repel()`).

## Warning: ggrepel: 5 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

5.1.9 Infected with z2.2 SB treated vs. uninfected treated

## The original plot
hs_macr_table$plots$z22sb_vs_sb$deseq_vol_plots

## Warning: ggrepel: 11 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

z22sb_vs_sb_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["z22sb_vs_sb"]], "z22sb_vs_sb",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol", invert = TRUE,
  color_low = plot_colors[["infsbz22"]], color_high = plot_colors[["uninfsbnone"]])
z22sb_vs_sb_volcano$plot +
  scale_x_continuous(limits = x_limits)

## Warning: ggrepel: 15 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

Check that my perception of the number of significant up/down genes matches what the table/venn says.

shared <- Vennerable::Venn(list("drug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23sb_vs_uninf"]]),
                                "nodrug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23nosb_vs_uninf"]])))
pp(file="images/z23_vs_uninf_venn_up.png")
Vennerable::plot(shared)
dev.off()

## png 
##   2

Vennerable::plot(shared)

## I see 910 z23sb/uninf and 670 no z23nosb/uninf genes in the venn diagram.
length(shared@IntersectionSets[["10"]]) + length(shared@IntersectionSets[["11"]])

## [1] 839

dim(hs_macr_sig[["deseq"]][["ups"]][["z23sb_vs_uninf"]])

## [1] 839  49

shared <- Vennerable::Venn(list("drug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z22sb_vs_uninf"]]),
                                "nodrug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z22nosb_vs_uninf"]])))
pp(file="images/z22_vs_uninf_venn_up.png")
Vennerable::plot(shared)
dev.off()

## png 
##   2

Vennerable::plot(shared)

length(shared@IntersectionSets[["10"]]) + length(shared@IntersectionSets[["11"]])

## [1] 660

dim(hs_macr_sig[["deseq"]][["ups"]][["z22sb_vs_uninf"]])

## [1] 660  49

Note to self: There is an error in my volcano plot code which takes effect when the numerator and denominator of the all_pairwise contrasts are different than those in combine_de_tables. It is putting the ups/downs on the correct sides of the plot, but calling the down genes ‘up’ and vice-versa. The reason for this is that I did a check for this happening, but used the wrong argument to handle it.

A likely bit of text for these volcano plots:

The set of genes differentially expressed between the zymodeme 2.3 and uninfected samples without druge treatment was quantified with DESeq2 and included surrogate estimates from SVA. Given the criteria of significance of a abs(logFC) >= 1.0 and false discovery rate adjusted p-value <= 0.05, 670 genes were observed as significantly increased between the infected and uninfected samples and 386 were observed as decreased. The most increased genes from the uninfected samples include some which are potentially indicative of a strong innate immune response and the inflammatory response.

In contrast, when the set of genes differentially expressed between the zymodeme 2.2 and uninfected samples was visualized, only 7 genes were observed as decreased and 435 increased. The inflammatory response was significantly less apparent in this set, but instead included genes related to transporter activity and oxidoreductases.

5.2 Direct zymodeme comparisons

An orthogonal comparison to that performed above is to directly compare the zymodeme 2.3 and 2.2 samples with and without antimonial treatment.

z23nosb_vs_z22nosb_volcano <- plot_volcano_de(
  table = hs_macr_table[["data"]][["z23nosb_vs_z22nosb"]],
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  shapes_by_state = FALSE, color_by = "fc",  label = 10, label_column = "hgncsymbol")
plotly::ggplotly(z23nosb_vs_z22nosb_volcano$plot)

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

z23sb_vs_z22sb_volcano <- plot_volcano_de(
  table = hs_macr_table[["data"]][["z23sb_vs_z22sb"]],
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  shapes_by_state = FALSE, color_by = "fc",  label = 10, label_column = "hgncsymbol")
plotly::ggplotly(z23sb_vs_z22sb_volcano$plot)

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

z23nosb_vs_z22nosb_volcano$plot +
  xlim(-10, 10) +
  ylim(0, 60)

pp(file="images/z23nosb_vs_z22nosb_reactome_up.png", image=all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["REAC"]], height=12, width=9)

## Warning in pp(file = "images/z23nosb_vs_z22nosb_reactome_up.png", image =
## all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["REAC"]], : There is no device to shut
## down.

## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["KEGG"]]
## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["MF"]]
## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["TF"]]
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["WP"]]
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["interactive_plots"]][["WP"]]

all_gp[["z23nosb_vs_z22nosb_down"]][["pvalue_plots"]][["REAC"]]

## NULL

## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23nosb_vs_z22nosb_down"]][["pvalue_plots"]][["MF"]]
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23nosb_vs_z22nosb_down"]][["pvalue_plots"]][["TF"]]
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

z23sb_vs_z22sb_volcano$plot +
  xlim(-10, 10) +
  ylim(0, 60)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

## Warning: Removed 1 rows containing missing values (`geom_text_repel()`).

## Warning: ggrepel: 3 unlabeled data points (too many overlaps). Consider increasing
## max.overlaps

pp(file="images/z23sb_vs_z22sb_reactome_up.png", image=all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["REAC"]], height=12, width=9)

## Warning in pp(file = "images/z23sb_vs_z22sb_reactome_up.png", image =
## all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["REAC"]], : There is no device to shut down.

## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["KEGG"]]
## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["MF"]]
## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["TF"]]
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["WP"]]
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["interactive_plots"]][["WP"]]

all_gp[["z23sb_vs_z22sb_down"]][["pvalue_plots"]][["REAC"]]
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23sb_vs_z22sb_down"]][["pvalue_plots"]][["MF"]]
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23sb_vs_z22sb_down"]][["pvalue_plots"]][["TF"]]
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

shared <- Vennerable::Venn(list("drug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23sb_vs_z22sb"]]),
                                "nodrug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23nosb_vs_z22nosb"]])))
pp(file="images/drug_nodrug_venn_up.png")
Vennerable::plot(shared)
dev.off()

## png 
##   2

Vennerable::plot(shared)

shared <- Vennerable::Venn(list("drug" = rownames(hs_macr_sig[["deseq"]][["downs"]][["z23sb_vs_z22sb"]]),
                                "nodrug" = rownames(hs_macr_sig[["deseq"]][["downs"]][["z23nosb_vs_z22nosb"]])))
pp(file="images/drug_nodrug_venn_down.png")
Vennerable::plot(shared)
dev.off()

## png 
##   2

A slightly different way of looking at the differences between the two zymodeme infections is to directly compare the infected samples with and without drug. Thus, when a volcano plot showing the comparison of the zymodeme 2.3 vs. 2.2 samples was plotted, 484 genes were observed as increased and 422 decreased; these groups include many of the same inflammatory (up) and membrane (down) genes.

Similar patterns were observed when the antimonial was included. Thus, when a Venn diagram of the two sets of increased genes was plotted, a significant number of the genes was observed as increased (313) and decreased (244) in both the untreated and antimonial treated samples.

5.3 Drug effects on each zymodeme infection

Another likely question is to directly compare the treated vs untreated samples for each zymodeme infection in order to visualize the effects of antimonial.

z23sb_vs_z23nosb_volcano <- plot_volcano_de(
  table = hs_macr_table[["data"]][["z23sb_vs_z23nosb"]],
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  shapes_by_state = FALSE, color_by = "fc",  label = 10, label_column = "hgncsymbol")
plotly::ggplotly(z23sb_vs_z23nosb_volcano$plot)

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

z22sb_vs_z22nosb_volcano <- plot_volcano_de(
  table = hs_macr_table[["data"]][["z22sb_vs_z22nosb"]],
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  shapes_by_state = FALSE, color_by = "fc",  label = 10, label_column = "hgncsymbol")
plotly::ggplotly(z22sb_vs_z22nosb_volcano$plot)

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

## Warning in geom2trace.default(dots[[1L]][[2L]], dots[[2L]][[1L]], dots[[3L]][[1L]]): geom_GeomTextRepel() has yet to be implemented in plotly.
##   If you'd like to see this geom implemented,
##   Please open an issue with your example code at
##   https://github.com/ropensci/plotly/issues

z23sb_vs_z23nosb_volcano$plot +
  xlim(-8, 8) +
  ylim(0, 210)

## Warning: Removed 1 rows containing missing values (`geom_point()`).

## Warning: Removed 1 rows containing missing values (`geom_text_repel()`).

pp(file="images/z23sb_vs_z23nosb_reactome_up.png",
   image=all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["REAC"]], height=12, width=9)

## Warning in pp(file = "images/z23sb_vs_z23nosb_reactome_up.png", image =
## all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["REAC"]], : There is no device to shut
## down.

## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["KEGG"]]
## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["MF"]]
## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["TF"]]
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["WP"]]
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["interactive_plots"]][["WP"]]

all_gp[["z23sb_vs_z23nosb_down"]][["pvalue_plots"]][["REAC"]]

## Warning: Removed 1 rows containing missing values (`geom_col()`).

## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23sb_vs_z23nosb_down"]][["pvalue_plots"]][["MF"]]
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23sb_vs_z23nosb_down"]][["pvalue_plots"]][["TF"]]
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

z22sb_vs_z22nosb_volcano$plot +
  xlim(-8, 8) +
  ylim(0, 210)

pp(file="images/z22sb_vs_z22nosb_reactome_up.png",
   image=all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["REAC"]], height=12, width=9)

## Warning in pp(file = "images/z22sb_vs_z22nosb_reactome_up.png", image =
## all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["REAC"]], : There is no device to shut
## down.

## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["KEGG"]]
## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["MF"]]
## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["TF"]]
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["WP"]]
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["interactive_plots"]][["WP"]]

all_gp[["z22sb_vs_z22nosb_down"]][["pvalue_plots"]][["REAC"]]
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z22sb_vs_z22nosb_down"]][["pvalue_plots"]][["MF"]]
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z22sb_vs_z22nosb_down"]][["pvalue_plots"]][["TF"]]

## Warning: Removed 1 rows containing missing values (`geom_col()`).

## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

shared <- Vennerable::Venn(list("z23" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23sb_vs_z23nosb"]]),
                                "z22" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z22sb_vs_z22nosb"]])))
pp(file="images/z23_z22_drug_venn_up.png")
Vennerable::plot(shared)
dev.off()

## png 
##   2

Vennerable::plot(shared)

shared <- Vennerable::Venn(list("z23" = rownames(hs_macr_sig[["deseq"]][["downs"]][["z23sb_vs_z23nosb"]]),
                                "z22" = rownames(hs_macr_sig[["deseq"]][["downs"]][["z22sb_vs_z22nosb"]])))
pp(file="images/z23_z22_drug_venn_down.png")
Vennerable::plot(shared)
dev.off()

## png 
##   2

Vennerable::plot(shared)

Note: I am settig the x and y-axis boundaries by allowing the plotter to pick its own axis the first time, writing down the ranges I observe, and then setting them to the largest of the pair. It is therefore possible that I missed one or more genes which lies outside that range.

The previous plotted contrasts sought to show changes between the two strains z2.3 and z2.2. Conversely, the previous volcano plots seek to directly compare each strain before/after drug treatment.

5.4 LRT of the Human Macrophage

tmrc2_lrt_strain_drug <- deseq_lrt(hs_macr, interactor_column = "drug",
                                   interest_column = "macrophagezymodeme", factors = c("drug", "macrophagezymodeme"))

## converting counts to integer mode

## estimating size factors

## estimating dispersions

## gene-wise dispersion estimates

## mean-dispersion relationship

## final dispersion estimates

## fitting model and testing

## -- replacing outliers and refitting for 38 genes
## -- DESeq argument 'minReplicatesForReplace' = 7 
## -- original counts are preserved in counts(dds)

## estimating dispersions

## fitting model and testing

## rlog() may take a long time with 50 or more samples,
## vst() is a much faster transformation

## Working with 858 genes.

## Working with 855 genes after filtering: minc > 3

## Joining with `by = join_by(merge)`
## Joining with `by = join_by(merge)`

tmrc2_lrt_strain_drug$cluster_data$plot

5.5 Parasite

lp_macrophage_de <- all_pairwise(lp_macrophage_nosb,
                                 model_batch="svaseq", filter=TRUE)

## 
## z2.2 z2.3 
##   11    7

## Removing 0 low-count genes (8539 remaining).

## Setting 110 low elements to zero.

## transform_counts: Found 110 values equal to 0, adding 1 to the matrix.

tmrc2_parasite_keepers <- list(
  "z23_vs_z22" = c("z23", "z22"))
lp_macrophage_table <- combine_de_tables(
  lp_macrophage_de, keepers = tmrc2_parasite_keepers,
  excel = glue("analyses/macrophage_de/macrophage_parasite_infection_de-v{ver}.xlsx"))

## Error in names(x) <- value: 'names' attribute [8] must be the same length as the vector [6]

lp_macrophage_sig <- extract_significant_genes(
  lp_macrophage_table,
  excel = glue("analyses/macrophage_de/macrophage_parasite_sig-v{ver}.xlsx"))

## Error in extract_significant_genes(lp_macrophage_table, excel = glue("analyses/macrophage_de/macrophage_parasite_sig-v{ver}.xlsx")): object 'lp_macrophage_table' not found

lp_macrophage_table[["plots"]][["z23nosb_vs_z22nosb"]][["deseq_vol_plots"]][["plot"]]

## Error in eval(expr, envir, enclos): object 'lp_macrophage_table' not found

up_genes <- lp_macrophage_sig[["deseq"]][["ups"]][[1]]

## Error in eval(expr, envir, enclos): object 'lp_macrophage_sig' not found

dim(up_genes)

## Error in eval(expr, envir, enclos): object 'up_genes' not found

down_genes <- lp_macrophage_sig[["deseq"]][["downs"]][[1]]

## Error in eval(expr, envir, enclos): object 'lp_macrophage_sig' not found

dim(down_genes)

## Error in eval(expr, envir, enclos): object 'down_genes' not found

lp_z23sb_vs_z22sb_volcano <- plot_volcano_de(
  table = lp_macrophage_table[["data"]][["z23_vs_z22"]],
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  shapes_by_state = FALSE, color_by = "fc",  label = 10, label_column = "hgncsymbol")

## Error in is.data.frame(x): object 'lp_macrophage_table' not found

plotly::ggplotly(lp_z23sb_vs_z22sb_volcano$plot)

## Error in plotly::ggplotly(lp_z23sb_vs_z22sb_volcano$plot): object 'lp_z23sb_vs_z22sb_volcano' not found

lp_z23sb_vs_z22sb_volcano$plot

## Error in eval(expr, envir, enclos): object 'lp_z23sb_vs_z22sb_volcano' not found

up_goseq <- simple_goseq(up_genes, go_db = lp_go, length_db = lp_lengths)

## Error in simple_goseq(up_genes, go_db = lp_go, length_db = lp_lengths): object 'up_genes' not found

## View categories over represented in the 2.3 samples
up_goseq$pvalue_plots$bpp_plot_over

## Error in eval(expr, envir, enclos): object 'up_goseq' not found

down_goseq <- simple_goseq(down_genes, go_db = lp_go, length_db = lp_lengths)

## Error in simple_goseq(down_genes, go_db = lp_go, length_db = lp_lengths): object 'down_genes' not found

## View categories over represented in the 2.2 samples
down_goseq$pvalue_plots$bpp_plot_over

## Error in eval(expr, envir, enclos): object 'down_goseq' not found

written_goseq <- write_goseq_data(up_goseq,
                                  excel = glue("lp_macrophage_increased_z2.3_goseq-v{ver}.xlsx"))

## Writing a sheet containing the legend.

## Error in nrow(goseq_result[["bp_subset"]]): object 'up_goseq' not found

written_goseq <- write_goseq_data(down_goseq,
                                  excel = glue("lp_macrophage_increased_z2.2_goseq-v{ver}.xlsx"))

## Writing a sheet containing the legend.

## Error in nrow(goseq_result[["bp_subset"]]): object 'down_goseq' not found

6 GSVA

hs_infected <- subset_expt(hs_macrophage, subset="macrophagetreatment!='uninf'") %>%
  subset_expt(subset="macrophagetreatment!='uninf_sb'")

## subset_expt(): There were 68, now there are 63 samples.

## subset_expt(): There were 63, now there are 63 samples.

hs_gsva_c2 <- simple_gsva(hs_infected)

## Converting the rownames() of the expressionset to ENTREZID.

## 1630 ENSEMBL ID's didn't have a matching ENTEREZ ID. Dropping them now.

## Before conversion, the expressionset has 21481 entries.

## After conversion, the expressionset has 20006 entries.

hs_gsva_c2_meta <- get_msigdb_metadata(hs_gsva_c2, msig_xml="reference/msigdb_v7.2.xml")

## The downloaded msigdb contained 2725 rownames shared with the gsva result out of 2989.

hs_gsva_c2_sig <- get_sig_gsva_categories(hs_gsva_c2_meta, excel = "analyses/macrophage_de/hs_macrophage_gsva_c2_sig.xlsx")

##                  Length Class         Mode     
## title             1     -none-        character
## notes             1     -none-        character
## initial_metadata 71     data.frame    list     
## expressionset     1     ExpressionSet S4       
## design           71     data.frame    list     
## conditions       63     -none-        character
## batches          63     -none-        character
## samplenames      63     -none-        character
## colors           63     -none-        character
## state             5     -none-        list     
## libsize          63     -none-        numeric

## Starting limma pairwise comparison.

## libsize was not specified, this parameter has profound effects on limma's result.

## Using the libsize from expt$libsize.

## Limma step 1/6: choosing model.

## Assuming this data is similar to a micro array and not performign voom.

## Limma step 3/6: running lmFit with method: ls.

## Limma step 4/6: making and fitting contrasts with no intercept. (~ 0 + factors)

## Limma step 5/6: Running eBayes with robust = FALSE and trend = FALSE.

## Limma step 6/6: Writing limma outputs.

## Limma step 6/6: 1/3: Creating table: infsb_vs_inf.  Adjust = BH

## Limma step 6/6: 2/3: Creating table: uninfsb_vs_inf.  Adjust = BH

## Limma step 6/6: 3/3: Creating table: uninfsb_vs_infsb.  Adjust = BH

## Limma step 6/6: 1/3: Creating table: inf.  Adjust = BH

## Limma step 6/6: 2/3: Creating table: infsb.  Adjust = BH

## Limma step 6/6: 3/3: Creating table: uninfsb.  Adjust = BH

##                  Length Class         Mode     
## title             1     -none-        character
## notes             1     -none-        character
## initial_metadata 71     data.frame    list     
## expressionset     1     ExpressionSet S4       
## design           71     data.frame    list     
## conditions       63     -none-        character
## batches          63     -none-        character
## samplenames      63     -none-        character
## colors           63     -none-        character
## state             5     -none-        list     
## libsize          63     -none-        numeric

## The factor inf has 29 rows.

## The factor inf_sb has 29 rows.

## The factor uninf_sb has 5 rows.

## Testing each factor against the others.

## Scoring inf against everything else.

## Scoring inf_sb against everything else.

## Scoring uninf_sb against everything else.

hs_gsva_c2_sig$raw_plot

hs_gsva_c7 <- simple_gsva(hs_infected, signature_category = "c7")

## Converting the rownames() of the expressionset to ENTREZID.

## 1630 ENSEMBL ID's didn't have a matching ENTEREZ ID. Dropping them now.

## Before conversion, the expressionset has 21481 entries.

## After conversion, the expressionset has 20006 entries.

hs_gsva_c7_meta <- get_msigdb_metadata(hs_gsva_c7, msig_xml="reference/msigdb_v7.2.xml")

## The downloaded msigdb contained 2725 rownames shared with the gsva result out of 2989.

hs_gsva_c7_sig <- get_sig_gsva_categories(hs_gsva_c7, excel = "analyses/macrophage_de/hs_macrophage_gsva_c7_sig.xlsx")

##                  Length Class         Mode     
## title             1     -none-        character
## notes             1     -none-        character
## initial_metadata 71     data.frame    list     
## expressionset     1     ExpressionSet S4       
## design           71     data.frame    list     
## conditions       63     -none-        character
## batches          63     -none-        character
## samplenames      63     -none-        character
## colors           63     -none-        character
## state             5     -none-        list     
## libsize          63     -none-        numeric

## Starting limma pairwise comparison.

## libsize was not specified, this parameter has profound effects on limma's result.

## Using the libsize from expt$libsize.

## Limma step 1/6: choosing model.

## Assuming this data is similar to a micro array and not performign voom.

## Limma step 3/6: running lmFit with method: ls.

## Limma step 4/6: making and fitting contrasts with no intercept. (~ 0 + factors)

## Limma step 5/6: Running eBayes with robust = FALSE and trend = FALSE.

## Limma step 6/6: Writing limma outputs.

## Limma step 6/6: 1/3: Creating table: infsb_vs_inf.  Adjust = BH

## Limma step 6/6: 2/3: Creating table: uninfsb_vs_inf.  Adjust = BH

## Limma step 6/6: 3/3: Creating table: uninfsb_vs_infsb.  Adjust = BH

## Limma step 6/6: 1/3: Creating table: inf.  Adjust = BH

## Limma step 6/6: 2/3: Creating table: infsb.  Adjust = BH

## Limma step 6/6: 3/3: Creating table: uninfsb.  Adjust = BH

##                  Length Class         Mode     
## title             1     -none-        character
## notes             1     -none-        character
## initial_metadata 71     data.frame    list     
## expressionset     1     ExpressionSet S4       
## design           71     data.frame    list     
## conditions       63     -none-        character
## batches          63     -none-        character
## samplenames      63     -none-        character
## colors           63     -none-        character
## state             5     -none-        list     
## libsize          63     -none-        numeric

## The factor inf has 29 rows.

## The factor inf_sb has 29 rows.

## The factor uninf_sb has 5 rows.

## Testing each factor against the others.

## Scoring inf against everything else.

## Scoring inf_sb against everything else.

## Scoring uninf_sb against everything else.

hs_gsva_c7_sig$raw_plot

7 Try out a new tool

Two reasons: Najib loves him some PCA, this uses wikipathways, which is something I think is neat.

Ok, I spent some time looking through the code and I have some problems with some of the design decisions.

Most importantly, it requires a data.frame() which has the following format:

No rownames, instead column #1 is the sample ID.
Columns 2-m are the categorical/survival/etc metrics.
Columns m-n are 1 gene-per-column with log2 values.

But when I think about it I think I get the idea, they want to be able to do modelling stuff more easily with response factors.

library(pathwayPCA)
library(rWikiPathways)

## 
## Attaching package: 'rWikiPathways'

## The following object is masked from 'package:GenomeInfoDb':
## 
##     listOrganisms

downloaded <- downloadPathwayArchive(organism = "Homo sapiens", format = "gmt")
data_path <- system.file("extdata", package = "pathwayPCA")
wikipathways <- read_gmt(paste0(data_path, "/wikipathways_human_symbol.gmt"),
                         description = TRUE)

expt <- subset_expt(hs_macrophage, subset = "macrophagetreatment!='uninf'") %>%
  subset_expt(subset = "macrophagetreatment!='uninf_sb'")

## subset_expt(): There were 68, now there are 63 samples.

## subset_expt(): There were 63, now there are 63 samples.

expt <- set_expt_conditions(expt, fact = "macrophagezymodeme")

## 
## none  z22  z23 
##    5   29   29

symbol_vector <- fData(expt)[[symbol_column]]

## Error in (function(x, i, exact) if (is.matrix(i)) as.matrix(x)[[i]] else .subset2(x, : object 'symbol_column' not found

names(symbol_vector) <- rownames(fData(expt))

## Error in names(symbol_vector) <- rownames(fData(expt)): object 'symbol_vector' not found

symbol_df <- as.data.frame(symbol_vector)

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'symbol_vector' not found

assay_df <- merge(symbol_df, as.data.frame(exprs(expt)), by = "row.names")

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'merge': object 'symbol_df' not found

assay_df[["Row.names"]] <- NULL

## Error in assay_df[["Row.names"]] <- NULL: object 'assay_df' not found

rownames(assay_df) <- make.names(assay_df[["symbol_vector"]], unique = TRUE)

## Error in make.names(assay_df[["symbol_vector"]], unique = TRUE): object 'assay_df' not found

assay_df[["symbol_vector"]] <- NULL

## Error in assay_df[["symbol_vector"]] <- NULL: object 'assay_df' not found

assay_df <- as.data.frame(t(assay_df))

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': error in evaluating the argument 'x' in selecting a method for function 't': object 'assay_df' not found

assay_df[["SampleID"]] <- rownames(assay_df)

## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'rownames': object 'assay_df' not found

assay_df <- dplyr::select(assay_df, "SampleID", everything())

## Error in dplyr::select(assay_df, "SampleID", everything()): object 'assay_df' not found

factor_df <- as.data.frame(pData(expt))
factor_df[["SampleID"]] <- rownames(factor_df)
factor_df <- dplyr::select(factor_df, "SampleID", everything())
factor_df <- factor_df[, c("SampleID", factors)]

## Error in `[.data.frame`(factor_df, , c("SampleID", factors)): object 'factors' not found

tt <- CreateOmics(
  assayData_df = assay_df,
  pathwayCollection_ls = wikipathways,
  response = factor_df,
  respType = "categorical",
  minPathSize=5)

## Error in CreateOmics(assayData_df = assay_df, pathwayCollection_ls = wikipathways, : object 'assay_df' not found

super <- AESPCA_pVals(
  object = tt,
  numPCs = 2,
  parallel = FALSE,
  numCores = 8,
  numReps = 2,
  adjustment = "BH")

## Error in (function (classes, fdef, mtable) : unable to find an inherited method for function 'AESPCA_pVals' for signature '"list"'

## Stopping this because it takes forever
##if (!isTRUE(get0("skip_load"))) {
##  pander::pander(sessionInfo())
##  message("This is hpgltools commit: ", get_git_commit())
##  message("Saving to ", savefile)
##  tmp <- sm(saveme(filename = savefile))
##}

tmp <- loadme(filename = savefile)

LS0tCnRpdGxlOiAiVE1SQzIgMjAyMzA0OiBNYWNyb3BoYWdlIERpZmZlcmVudGlhbCBFeHByZXNzaW9uLiIKYXV0aG9yOiAiYXRiIGFiZWxld0BnbWFpbC5jb20iCmRhdGU6ICJgciBTeXMuRGF0ZSgpYCIKb3V0cHV0OgogIGh0bWxfZG9jdW1lbnQ6CiAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCiAgICBjb2RlX2ZvbGRpbmc6IHNob3cKICAgIGZpZ19jYXB0aW9uOiB0cnVlCiAgICBmaWdfaGVpZ2h0OiA3CiAgICBmaWdfd2lkdGg6IDcKICAgIGhpZ2hsaWdodDogemVuYnVybgogICAga2VlcF9tZDogZmFsc2UKICAgIG1vZGU6IHNlbGZjb250YWluZWQKICAgIG51bWJlcl9zZWN0aW9uczogdHJ1ZQogICAgc2VsZl9jb250YWluZWQ6IHRydWUKICAgIHRoZW1lOiByZWFkYWJsZQogICAgdG9jOiB0cnVlCiAgICB0b2NfZmxvYXQ6CiAgICAgIGNvbGxhcHNlZDogZmFsc2UKICAgICAgc21vb3RoX3Njcm9sbDogZmFsc2UKLS0tCgo8c3R5bGU+CmJvZHkgLm1haW4tY29udGFpbmVyIHsKbWF4LXdpZHRoOiAxNjAwcHg7Cn0KPC9zdHlsZT4KCmBgYHtyIG9wdGlvbnMsIGluY2x1ZGUgPSBGQUxTRX0KbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGdsdWUpCmxpYnJhcnkoSGVhdHBsdXMpCmxpYnJhcnkoaHBnbHRvb2xzKQpsaWJyYXJ5KFVwU2V0UikKbGlicmFyeSh0aWJibGUpCgp0dCA8LSBkZXZ0b29sczo6bG9hZF9hbGwoIn4vaHBnbHRvb2xzIikKa25pdHI6Om9wdHNfa25pdCRzZXQocHJvZ3Jlc3MgPSBUUlVFLCB2ZXJib3NlID0gVFJVRSwgd2lkdGggPSA5MCwgZWNobyA9IFRSVUUpCmtuaXRyOjpvcHRzX2NodW5rJHNldChlcnJvciA9IFRSVUUsIGZpZy53aWR0aCA9IDgsIGZpZy5oZWlnaHQgPSA4LCBkcGkgPSA5NikKb2xkX29wdGlvbnMgPC0gb3B0aW9ucyhkaWdpdHMgPSA0LCBzdHJpbmdzQXNGYWN0b3JzID0gRkFMU0UsIGtuaXRyLmR1cGxpY2F0ZS5sYWJlbCA9ICJhbGxvdyIpCmdncGxvdDI6OnRoZW1lX3NldChnZ3Bsb3QyOjp0aGVtZV9idyhiYXNlX3NpemUgPSAxMikpCnZlciA8LSAiMjAyMzA0IgpwcmV2aW91c19maWxlIDwtICIiCnJ1bmRhdGUgPC0gZm9ybWF0KFN5cy5EYXRlKCksIGZvcm1hdCA9ICIlWSVtJWQiKQoKIyMgdG1wIDwtIHRyeShzbShsb2FkbWUoZmlsZW5hbWUgPSBnc3ViKHBhdHRlcm4gPSAiXFwuUm1kIiwgcmVwbGFjZSA9ICJcXC5yZGFcXC54eiIsIHggPSBwcmV2aW91c19maWxlKSkpKQpybWRfZmlsZSA8LSBnbHVlKCJ0bXJjMl9tYWNyb3BoYWdlX2RpZmZlcmVudGlhbF9leHByZXNzaW9uX3t2ZXJ9LlJtZCIpCmxvYWRlZCA8LSBsb2FkKGZpbGUgPSBnbHVlKCJyZGEvdG1yYzJfZGF0YV9zdHJ1Y3R1cmVzLXZ7dmVyfS5yZGEiKSkKc2F2ZWZpbGUgPC0gZ3N1YihwYXR0ZXJuID0gIlxcLlJtZCIsIHJlcGxhY2UgPSAiXFwucmRhXFwueHoiLCB4ID0gcm1kX2ZpbGUpCmBgYAoKIyBDaGFuZ2Vsb2cKCiogMjAyMzA0MTA6IE1ha2luZyBzb21lIGNoYW5nZXMgdG8gaW1wcm92ZSB0aGUgZGlmZmVyZW50aWFsIGV4cHJlc3Npb24KcGxvdHMgYXMgd2VsbCBhcyBwcmVwYXJlIGZvciBzb21lIGRpZmZlcmVudCBwYXRod2F5L0dTRUEvR1NWQQphbmFseXNlcyBvbiB0aGUgZGF0YS4KCiMgSW50cm9kdWN0aW9uCgpIYXZpbmcgZXN0YWJsaXNoZWQgdGhhdCB0aGUgVE1SQzIgbWFjcm9waGFnZSBkYXRhIGxvb2tzIHJvYnVzdCBhbmQKaWxsdXN0cmF0aXZlIG9mIGEgY291cGxlIG9mIGludGVyZXN0aW5nIHF1ZXN0aW9ucywgbGV0IHVzIHBlcmZvcm0gYQpjb3VwbGUgb2YgZGlmZmVyZW50aWFsIGFuYWx5c2VzIG9mIGl0LgoKQWxzbyBub3RlIHRoYXQgYXMgb2YgMjAyMjEyLCB3ZSByZWNlaXZlZCBhIG5ldyBzZXQgb2Ygc2FtcGxlcyB3aGljaApub3cgaW5jbHVkZSBzb21lIHdoaWNoIGFyZSBvZiBhIGNvbXBsZXRlbHkgZGlmZmVyZW50IGNlbGwgdHlwZSwKVTkzNy4gQXMgdGhlaXIgQVRDQyBwYWdlIHN0YXRlcywgdGhleSBhcmUgbWFsaWduYW50IGNlbGxzIHRha2VuIGZyb20KdGhlIHBsZXVyYWwgZWZmdXNpb24gb2YgYSAzNyB5ZWFyIG9sZCB3aGl0ZSBtYWxlIHdpdGggaGlzdGlvY3l0aWMKbHltcGhvbWEgYW5kIHdoaWNoIGV4aGliaXQgdGhlIG1vcnBob2xvZ3kgb2YgbW9ub2N5dGVzLiAgVGh1cywgdGhpcwpkb2N1bWVudCBub3cgaW5jbHVkZXMgc29tZSBjb21wYXJpc29ucyBvZiB0aGUgY2VsbCB0eXBlcyBhcyB3ZWxsIGFzCnRoZSB2YXJpb3VzIG1hY3JvcGhhZ2UgZG9ub3JzIChnaXZlbiB0aGF0IHRoZXJlIGFyZSBub3cgbW9yZSBkb25vcnMKdG9vKS4KCiMjIEh1bWFuIGRhdGEKCkkgYW0gbW92aW5nIHRoZSBkYXRhc2V0IG1hbmlwdWxhdGlvbnMgaGVyZSBzbyB0aGF0IEkgY2FuIGxvb2sgYXQgdGhlbQphbGwgdG9nZXRoZXIgYmVmb3JlIHJ1bm5pbmcgdGhlIHZhcmlvdXMgREUgYW5hbHlzZXMuCgojIyBDcmVhdGUgc2V0cyBmb2N1c2VkIG9uIGRydWcsIGNlbGx0eXBlLCBzdHJhaW4sIGFuZCBjb21iaW5hdGlvbnMKCkxldCB1cyBzdGFydCBieSBwbGF5aW5nIHdpdGggdGhlIG1ldGFkYXRhIGEgbGl0dGxlIGFuZCBjcmVhdGUgc2V0cwp3aXRoIHRoZSBjb25kaXRpb24gc2V0IHRvOgoKKiBEcnVnIHRyZWF0bWVudAoqIENlbGwgdHlwZSAobWFjcm9waGFnZSBvciBVOTM3KQoqIERvbm9yCiogSW5mZWN0aW9uIFN0cmFpbgoqIFNvbWUgdXNlZnVsIGNvbWJpbmF0aW9ucyB0aGVyZW9mCgpJbiBhZGRpdGlvbiwga2VlcCBtZW50YWwgdHJhY2sgb2Ygd2hpY2ggZGF0YXNldHMgYXJlIGNvbXByaXNlZCBvZiBhbGwKc2FtcGxlcyB2cy4gdGhvc2Ugd2hpY2ggYXJlIG9ubHkgbWFjcm9waGFnZSB2cy4gdGhvc2Ugd2hpY2ggYXJlIG9ubHkKVTkzNy4gIChUaHVzLCB0aGUgdXNhZ2Ugb2YgYWxsX2h1bWFuIHZzLiBoc19tYWNyIHZzLiB1OTM3IGFzIHByZWZpeGVzCmZvciB0aGUgZGF0YSBzdHJ1Y3R1cmVzLikKCklkZWFsbHksIHRoZXNlIHJlY3JlYXRpb25zIG9mIHRoZSBkYXRhIHNob3VsZCBwZXJoYXBzIGJlIGluIHRoZQpkYXRhc3RydWN0dXJlcyB3b3Jrc2hlZXQuCgpgYGB7ciBkZV9kYXRhc2V0c30KYWxsX2h1bWFuIDwtIHNhbml0aXplX2V4cHRfbWV0YWRhdGEoaHNfbWFjcm9waGFnZSwgY29sdW1ucyA9ICJkcnVnIikgJT4lCiAgc2V0X2V4cHRfY29uZGl0aW9ucyhmYWN0ID0gImRydWciKSAlPiUKICBzZXRfZXhwdF9iYXRjaGVzKGZhY3QgPSAidHlwZW9mY2VsbHMiKQoKIyMgVGhlIGZvbGxvd2luZyAzIGxpbmVzIHdlcmUgY29weS9wYXN0ZWQgdG8gZGF0YXN0cnVjdHVyZXMgYW5kIHNob3VsZCBiZSByZW1vdmVkIHNvb24uCm5vX3N0cmFpbl9pZHggPC0gcERhdGEoYWxsX2h1bWFuKVtbInN0cmFpbmlkIl1dID09ICJub25lIgojI3BEYXRhKGFsbF9odW1hbilbWyJzdHJhaW5pZCJdXSA8LSBwYXN0ZTAoInMiLCBwRGF0YShhbGxfaHVtYW4pW1sic3RyYWluaWQiXV0sCiMjICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiXyIsIHBEYXRhKGFsbF9odW1hbilbWyJtYWNyb3BoYWdlenltb2RlbWUiXV0pCnBEYXRhKGFsbF9odW1hbilbbm9fc3RyYWluX2lkeCwgInN0cmFpbmlkIl0gPC0gIm5vbmUiCnRhYmxlKHBEYXRhKGFsbF9odW1hbilbWyJzdHJhaW5pZCJdXSkKCmFsbF9odW1hbl90eXBlcyA8LSBzZXRfZXhwdF9jb25kaXRpb25zKGFsbF9odW1hbiwgZmFjdCA9ICJ0eXBlb2ZjZWxscyIpICU+JQogIHNldF9leHB0X2JhdGNoZXMoZmFjdCA9ICJkcnVnIikKCnR5cGVfenltb19mYWN0IDwtIHBhc3RlMChwRGF0YShhbGxfaHVtYW5fdHlwZXMpW1siY29uZGl0aW9uIl1dLCAiXyIsCiAgICAgICAgICAgICAgICAgICAgICAgICBwRGF0YShhbGxfaHVtYW5fdHlwZXMpW1sibWFjcm9waGFnZXp5bW9kZW1lIl1dKQp0eXBlX3p5bW8gPC0gc2V0X2V4cHRfY29uZGl0aW9ucyhhbGxfaHVtYW5fdHlwZXMsIGZhY3QgPSB0eXBlX3p5bW9fZmFjdCkKCnR5cGVfZHJ1Z19mYWN0IDwtIHBhc3RlMChwRGF0YShhbGxfaHVtYW5fdHlwZXMpW1siY29uZGl0aW9uIl1dLCAiXyIsCiAgICAgICAgICAgICAgICAgICAgICAgICBwRGF0YShhbGxfaHVtYW5fdHlwZXMpW1siZHJ1ZyJdXSkKdHlwZV9kcnVnIDwtIHNldF9leHB0X2NvbmRpdGlvbnMoYWxsX2h1bWFuX3R5cGVzLCBmYWN0ID0gdHlwZV9kcnVnX2ZhY3QpCgpzdHJhaW5fZmFjdCA8LSBwRGF0YShhbGxfaHVtYW5fdHlwZXMpW1sic3RyYWluaWQiXV0KdGFibGUoc3RyYWluX2ZhY3QpCgpuZXdfY29uZGl0aW9ucyA8LSBwYXN0ZTAocERhdGEoaHNfbWFjcm9waGFnZSlbWyJtYWNyb3BoYWdldHJlYXRtZW50Il1dLCAiXyIsCiAgICAgICAgICAgICAgICAgICAgICAgICBwRGF0YShoc19tYWNyb3BoYWdlKVtbIm1hY3JvcGhhZ2V6eW1vZGVtZSJdXSkKIyMgTm90ZSB0aGUgc2FuaXRpemUoKSBjYWxsIGlzIHJlZHVuZGFudCB3aXRoIHRoZSBhZGRpdGlvbiBvZiBzYW5pdGl6ZSgpIGluIHRoZQojIyBkYXRhc3RydWN0dXJlcyBmaWxlLCBidXQgSSBkb24ndCB3YW50IHRvIHdhaXQgdG8gcmVydW4gdGhhdC4KaHNfbWFjciA8LSBzZXRfZXhwdF9jb25kaXRpb25zKGhzX21hY3JvcGhhZ2UsIGZhY3QgPSBuZXdfY29uZGl0aW9ucykgJT4lCiAgc2FuaXRpemVfZXhwdF9tZXRhZGF0YShjb2x1bW4gPSAiZHJ1ZyIpICU+JQogIHN1YnNldF9leHB0KHN1YnNldCA9ICJ0eXBlb2ZjZWxscyE9J1U5MzcnIikKYGBgCgojIyMgU2VwYXJhdGUgTWFjcm9waGFnZSBzYW1wbGVzCgpPbmNlIGFnYWluLCB3ZSBzaG91bGQgcmVjb25zaWRlciB3aGVyZSB0aGUgZm9sbG93aW5nIGJsb2NrIGlzIHBsYWNlZCwKYnV0IHRoZXNlIGRhdGFzdHJ1Y3R1cmVzIGFyZSBsaWtlbHkgdG8gYmUgdXNlZCBpbiBtYW55IG9mIHRoZQpmb2xsb3dpbmcgYW5hbHlzZXMuCgpgYGB7ciBoc19tYWNyX2RydWdfc3RyYWlufQpoc19tYWNyX2RydWdfZXhwdCA8LSBzZXRfZXhwdF9jb25kaXRpb25zKGhzX21hY3IsIGZhY3QgPSAiZHJ1ZyIpCgpoc19tYWNyX3N0cmFpbl9leHB0IDwtIHNldF9leHB0X2NvbmRpdGlvbnMoaHNfbWFjciwgZmFjdCA9ICJtYWNyb3BoYWdlenltb2RlbWUiKSAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQgPSAibWFjcm9waGFnZXp5bW9kZW1lICE9ICdub25lJyIpCgp0YWJsZShwRGF0YShoc19tYWNyKVtbInN0cmFpbmlkIl1dKQpgYGAKCiMjIyBSZWZhY3RvciBVOTM3IHNhbXBsZXMKClRoZSBVOTM3IHNhbXBsZXMgd2VyZSBzZXBhcmF0ZWQgaW4gdGhlIGRhdGFzdHJ1Y3R1cmVzIGZpbGUsIGJ1dCB3ZQp3YW50IHRvIHVzZSB0aGUgY29tYmluYXRpb24gb2YgZHJ1Zy96eW1vZGVtZSB3aXRoIHRoZW0gcHJldHR5IG11Y2gKZXhjbHVzaXZlbHkuCgpgYGB7ciB1OTM3X3NhbXBsZXN9Cm5ld19jb25kaXRpb25zIDwtIHBhc3RlMChwRGF0YShoc191OTM3KVtbIm1hY3JvcGhhZ2V0cmVhdG1lbnQiXV0sICJfIiwKICAgICAgICAgICAgICAgICAgICAgICAgIHBEYXRhKGhzX3U5MzcpW1sibWFjcm9waGFnZXp5bW9kZW1lIl1dKQp1OTM3X2V4cHQgPC0gc2V0X2V4cHRfY29uZGl0aW9ucyhoc191OTM3LCBmYWN0ID0gbmV3X2NvbmRpdGlvbnMpCmBgYAoKIyMgQ29udHJhc3RzIHVzZWQgaW4gdGhpcyBkb2N1bWVudAoKR2l2ZW4gdGhlIHZhcmlvdXMgd2F5cyB3ZSBoYXZlIGNob3BwZWQgdXAgdGhpcyBkYXRhc2V0LCB0aGVyZSBhcmUgYQpmZXcgZ2VuZXJhbCB0eXBlcyBvZiBjb250cmFzdHMgd2Ugd2lsbCBwZXJmb3JtLCB3aGljaCB3aWxsIHRoZW4gYmUKY29tYmluZWQgaW50byBncmVhdGVyIGNvbXBsZXhpdHk6CgoqIGRydWcgdHJlYXRtZW50Ciogc3RyYWlucyB1c2VkCiogY2VsbGx0eXBlcwoqIGRvbm9ycwoKSW4gdGhlIGVuZCwgb3VyIGFjdHVhbCBnb2FsIGlzIHRvIGNvbnNpZGVyIHRoZSB2YXJpYWJsZSBlZmZlY3RzIG9mCmRydWcrc3RyYWluIGFuZCBzZWUgaWYgd2UgY2FuIGRpc2Nlcm4gcGF0dGVybnMgd2hpY2ggbGVhZCB0byBiZXR0ZXIgb3IKd29yc2UgZHJ1ZyB0cmVhdG1lbnQgb3V0Y29tZS4KClRoZXJlIGlzIGEgc2V0IG9mIGNvbnRyYXN0cyBpbiB3aGljaCB3ZSBhcmUgcHJpbWFyaWx5IGludGVyZXN0ZWQgaW4KdGhpcyBkYXRhLCB0aGVzZSBmb2xsb3cuICBJIGNyZWF0ZWQgb25lIHJhdGlvIG9mIHJhdGlvcyBjb250cmFzdCB3aGljaApJIHRoaW5rIGhhcyB0aGUgcG90ZW50aWFsIHRvIGFzayBvdXIgYmlnZ2VzdCBxdWVzdGlvbi4KCmBgYHtyIHR1bXJjMl9odW1hbl9rZWVwZXJzfQp0bXJjMl9odW1hbl9leHRyYSA8LSAiejIzZHJ1Z25vZHJ1Z192c196MjJkcnVnbm9kcnVnID0gKGluZnNiejIzIC0gaW5mejIzKSAtIChpbmZzYnoyMiAtIGluZnoyMiksIHoyM3oyMmRydWdfdnNfejIzejIybm9kcnVnID0gKGluZnNiejIzIC0gaW5mc2J6MjIpIC0gKGluZnoyMyAtIGluZnoyMikiCnRtcmMyX2h1bWFuX2tlZXBlcnMgPC0gbGlzdCgKICAiejIzbm9zYl92c191bmluZiIgPSBjKCJpbmZ6MjMiLCAidW5pbmZub25lIiksCiAgInoyMm5vc2JfdnNfdW5pbmYiID0gYygiaW5mejIyIiwgInVuaW5mbm9uZSIpLAogICJ6MjNub3NiX3ZzX3oyMm5vc2IiID0gYygiaW5mejIzIiwgImluZnoyMiIpLAogICJ6MjNzYl92c196MjJzYiIgPSBjKCJpbmZzYnoyMyIsICJpbmZzYnoyMiIpLAogICJ6MjNzYl92c196MjNub3NiIiA9IGMoImluZnNiejIzIiwgImluZnoyMyIpLAogICJ6MjJzYl92c196MjJub3NiIiA9IGMoImluZnNiejIyIiwgImluZnoyMiIpLAogICJ6MjNzYl92c19zYiIgPSBjKCJpbmZzYnoyMyIsICJ1bmluZnNibm9uZSIpLAogICJ6MjJzYl92c19zYiIgPSBjKCJpbmZzYnoyMiIsICJ1bmluZnNibm9uZSIpLAogICJ6MjNzYl92c191bmluZiIgPSBjKCJpbmZzYnoyMyIsICJ1bmluZm5vbmUiKSwKICAiejIyc2JfdnNfdW5pbmYiID0gYygiaW5mc2J6MjIiLCAidW5pbmZub25lIiksCiAgInNiX3ZzX3VuaW5mIiA9IGMoInVuaW5mc2Jub25lIiwgInVuaW5mbm9uZSIpLAogICJleHRyYV96MjMyMiIgPSBjKCJ6MjNkcnVnbm9kcnVnIiwgInoyMmRydWdub2RydWciKSwKICAiZXh0cmFfZHJ1Z25vZHJ1ZyIgPSBjKCJ6MjN6MjJkcnVnIiwgInoyM3oyMm5vZHJ1ZyIpKQp0bXJjMl9kcnVnX2tlZXBlcnMgPC0gbGlzdCgKICAiZHJ1ZyIgPSBjKCJhbnRpbW9ueSIsICJub25lIikpCnRtcmMyX3R5cGVfa2VlcGVycyA8LSBsaXN0KAogICJ0eXBlIiA9IGMoIlU5MzciLCAiTWFjcm9waGFnZXMiKSkKdG1yYzJfc3RyYWluX2tlZXBlcnMgPC0gbGlzdCgKICAic3RyYWluIiA9IGMoInoyMyIsICJ6MjIiKSkKdHlwZV96eW1vX2V4dHJhIDwtICJ6eW1vc192c190eXBlcyA9IChVOTM3ejIzIC0gVTkzN3oyMikgLSAoTWFjcm9waGFnZXN6MjMgLSBNYWNyb3BoYWdlc3oyMikiCnRtcmMyX3R5cGV6eW1vX2tlZXBlcnMgPC0gbGlzdCgKICAidTkzN19tYWNyIiA9IGMoIk1hY3JvcGhhZ2Vzbm9uZSIsICJVOTM3bm9uZSIpLAogICJ6eW1vX21hY3IiID0gYygiTWFjcm9waGFnZXN6MjMiLCAiTWFjcm9waGFnZXN6MjIiKSwKICAienltb191OTM3IiA9IGMoIlU5Mzd6MjMiLCAiVTkzN3oyMiIpLAogICJ6MjNfdHlwZXMiID0gYygiVTkzN3oyMyIsICJNYWNyb3BoYWdlc3oyMyIpLAogICJ6MjJfdHlwZXMiID0gYygiVTkzN3oyMiIsICJNYWNyb3BoYWdlc3oyMiIpLAogICJ6eW1vc190eXBlcyIgPSBjKCJ6eW1vc192c190eXBlcyIpKQp0bXJjMl90eXBlZHJ1Z19rZWVwZXJzIDwtIGxpc3QoCiAgInR5cGVfbm9kcnVnIiA9IGMoIlU5Mzdub25lIiwgIk1hY3JvcGhhZ2Vzbm9uZSIpLAogICJ0eXBlX2RydWciID0gYygiVTkzN2FudGltb255IiwgIk1hY3JvcGhhZ2VzYW50aW1vbnkiKSwKICAibWFjcl9kcnVncyIgPSBjKCJNYWNyb3BoYWdlc2FudGltb255IiwgIk1hY3JvcGhhZ2Vzbm9uZSIpLAogICJ1OTM3X2RydWdzIiA9IGMoIlU5MzdhbnRpbW9ueSIsICJVOTM3bm9uZSIpKQp1OTM3X2tlZXBlcnMgPC0gbGlzdCgKICAiejIzbm9zYl92c191bmluZiIgPSBjKCJpbmZ6MjMiLCAidW5pbmZub25lIiksCiAgInoyMm5vc2JfdnNfdW5pbmYiID0gYygiaW5mejIyIiwgInVuaW5mbm9uZSIpLAogICJ6MjNub3NiX3ZzX3oyMm5vc2IiID0gYygiaW5mejIzIiwgImluZnoyMiIpLAogICJ6MjNzYl92c196MjJzYiIgPSBjKCJpbmZzYnoyMyIsICJpbmZzYnoyMiIpLAogICJ6MjNzYl92c196MjNub3NiIiA9IGMoImluZnNiejIzIiwgImluZnoyMyIpLAogICJ6MjJzYl92c196MjJub3NiIiA9IGMoImluZnNiejIyIiwgImluZnoyMiIpLAogICJ6MjNzYl92c19zYiIgPSBjKCJpbmZzYnoyMyIsICJ1bmluZnNibm9uZSIpLAogICJ6MjJzYl92c19zYiIgPSBjKCJpbmZzYnoyMiIsICJ1bmluZnNibm9uZSIpLAogICJ6MjNzYl92c191bmluZiIgPSBjKCJpbmZzYnoyMyIsICJ1bmluZm5vbmUiKSwKICAiejIyc2JfdnNfdW5pbmYiID0gYygiaW5mc2J6MjIiLCAidW5pbmZub25lIiksCiAgInNiX3ZzX3VuaW5mIiA9IGMoInVuaW5mc2Jub25lIiwgInVuaW5mbm9uZSIpKQpoaWdoX2V4cHJlc3Npb24gPC0gMTI4CmhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4gPC0gImRlc2VxX2Jhc2VtZWFuIgoKY29tYmluZWRfdG9fdHN2IDwtIGZ1bmN0aW9uKGNvbWJpbmVkLCBjZWxsdHlwZSA9ICJhbGwiKSB7CiAga2VlcGVycyA8LSBjb21iaW5lZFtbImtlZXBlcnMiXV0KICBmb3IgKGsgaW4gc2VxX2xlbihsZW5ndGgoa2VlcGVycykpKSB7CiAgICBrbmFtZSA8LSBuYW1lcyhrZWVwZXJzKVtrXQogICAgbnVtZXJhdG9yIDwtIGtlZXBlcnNbW2tdXVsxXQogICAgZGVub21pbmF0b3IgPC0ga2VlcGVyc1tba11dWzJdCiAgICBmaWxlbmFtZSA8LSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3t2ZXJ9L3Rzdl90YWJsZXMvdG1yYzJfe2NlbGx0eXBlfV97a25hbWV9X257bnVtZXJhdG9yfV9ke2Rlbm9taW5hdG9yfS12e3Zlcn0udHN2IikKICAgIGtkYXRhIDwtIGNvbWJpbmVkW1siZGF0YSJdXVtba25hbWVdXQogICAgaWYgKGlzLm51bGwoa2RhdGFbWyJiYXNpY19udW0iXV0pKSB7CiAgICAgIG5leHQKICAgIH0KICAgIHdhbnRlZCA8LSBjKCJoZ25jc3ltYm9sIiwgImRlc2VxX2xvZ2ZjIiwgImRlc2VxX2FkanAiLCAiZGVzZXFfYmFzZW1lYW4iLCAiZGVzZXFfbnVtIiwgImRlc2VxX2RlbiIpCiAgICB3YW50ZWRfZGF0YSA8LSBrZGF0YVssIHdhbnRlZF0KICAgIGNvbG5hbWVzKHdhbnRlZF9kYXRhKSA8LSBjKCJoZ25jc3ltYm9sIiwgImRlc2VxX2xvZ2ZjIiwgImRlc2VxX2FkanAiLCAiZGVzZXFfbWVhbiIsICJkZXNlcV9udW1lcmF0b3IiLCAiZGVzZXFfZGVub21pbmF0b3IiKQogICAgcmVhZHI6OndyaXRlX3Rzdih4ID0gd2FudGVkX2RhdGEgJT4lIHRpYmJsZTo6cm93bmFtZXNfdG9fY29sdW1uKCksIGZpbGUgPSBmaWxlbmFtZSkKICB9Cn0KCndyaXRlX2FsbF9ncCA8LSBmdW5jdGlvbihhbGxfZ3ApIHsKICBmb3IgKGcgaW4gc2VxX2xlbihsZW5ndGgoYWxsX2dwKSkpIHsKICAgIG5hbWUgPC0gbmFtZXMoYWxsX2dwKVtnXQogICAgZGF0dW0gPC0gYWxsX2dwW1tuYW1lXV0KICAgIGZpbGVuYW1lIDwtIGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUve3Zlcn0vZ3Byb2ZpbGVyL3tuYW1lfV9ncHJvZmlsZXItdnt2ZXJ9Lnhsc3giKQogICAgd3JpdHRlbiA8LSBzbSh3cml0ZV9ncHJvZmlsZXJfZGF0YShkYXR1bSwgZXhjZWwgPSBmaWxlbmFtZSkpCiAgfQp9CmBgYAoKIyMjIFByaW1hcnkgcXVlcmllcwoKVGhlcmUgaXMgYSBzZXJpZXMgb2YgaW5pdGlhbCBxdWVzdGlvbnMgd2hpY2ggbWFrZSBzb21lIHNlbnNlCnRvIG1lLCBidXQgdGhlc2UgZG8gbm90IG5lY2Vzc2FyaWx5IG1hdGNoIHRoZSBzZXQgb2YgcXVlc3Rpb25zIHdoaWNoCmFyZSBtb3N0IHByZXNzaW5nLiAgSSBhbSBob3BpbmcgdG8gcHVsbCBib3RoIG9mIHRoZXNlIHNldHMgb2YKcXVlcmllcyBpbiBvbmUuCgpCZWZvcmUgZXh0cmFjdGluZyB0aGVzZSBncm91cHMgb2YgcXVlcmllcywgbGV0IHVzIGludm9rZSB0aGUKYWxsX3BhaXJ3aXNlKCkgZnVuY3Rpb24gYW5kIGdldCBhbGwgb2YgdGhlIGxpa2VseSBjb250cmFzdHMgYWxvbmcgd2l0aApvbmUgb3IgbW9yZSBleHRyYXMgdGhhdCBtaWdodCBwcm92ZSB1c2VmdWwgKHRoZSAnZXh0cmEnIGFyZ3VtZW50KS4KCiMjIyBDb21iaW5lZCBVOTM3IGFuZCBNYWNyb3BoYWdlczogQ29tcGFyZSBkcnVnIGVmZmVjdHMKCldoZW4gd2UgaGF2ZSB0aGUgdTkzNyBjZWxscyBpbiB0aGUgc2FtZSBkYXRhc2V0IGFzIHRoZSBtYWNyb3BoYWdlcywKdGhhdCBwcm92aWRlcyBhbiBpbnRlcmVzdGluZyBvcHBvcnR1bml0eSB0byBzZWUgaWYgd2UgY2FuIG9ic2VydmUKZHJ1Zy1kZXBlbmRhbnQgZWZmZWN0cyB3aGljaCBhcmUgc2hhcmVkIGFjcm9zcyBib3RoIGNlbGwgdHlwZXMuCgpgYGB7ciBib3RoX3R5cGVzX2RydWd9CmRydWdfZGUgPC0gYWxsX3BhaXJ3aXNlKGFsbF9odW1hbiwgZmlsdGVyID0gVFJVRSwgbW9kZWxfYmF0Y2ggPSAic3Zhc2VxIikKCmRydWdfdGFibGUgPC0gY29tYmluZV9kZV90YWJsZXMoCiAgZHJ1Z19kZSwga2VlcGVycyA9IHRtcmMyX2RydWdfa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUve3Zlcn0vZGVfdGFibGVzL3RtcmMyX21hY3JvcGhhZ2VfZHJ1Z19jb21wYXJpc29uLXZ7dmVyfS54bHN4IikpCmNvbWJpbmVkX3RvX3RzdihkcnVnX3RhYmxlLCBjZWxsdHlwZSA9ICJhbGwiKQoKZHJ1Z19zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICBkcnVnX3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS97dmVyfS9zaWdfdGFibGVzL3RtcmMyX21hY3JvcGhhZ2VfZHJ1Z19zaWctdnt2ZXJ9Lnhsc3giKSkKZHJ1Z19oaWdoc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgZHJ1Z190YWJsZSwgbWluX21lYW5fZXhwcnMgPSBoaWdoX2V4cHJlc3Npb24sIGV4cHJzX2NvbHVtbiA9IGhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3t2ZXJ9L3NpZ190YWJsZXMvdG1yYzJfbWFjcm9waGFnZV9kcnVnX2hpZ2hzaWctdnt2ZXJ9Lnhsc3giKSkKYGBgCgpgYGB7ciBncHJvZmlsZXJfYWxsX2RydWd9CmFsbF9kcnVnX2dwIDwtIGFsbF9ncHJvZmlsZXIoZHJ1Z19zaWcpCndyaXRlX2FsbF9ncChhbGxfZHJ1Z19ncCkKYGBgCgojIyMgQ29tYmluZWQgVTkzNyBhbmQgTWFjcm9waGFnZXM6IGNvbXBhcmUgY2VsbCB0eXBlcwoKVGhlcmUgYXJlIGEgY291cGxlIG9mIHdheXMgb25lIG1pZ2h0IHdhbnQgdG8gZGlyZWN0bHkgY29tcGFyZSB0aGUgdHdvCmNlbGwgdHlwZXMuCgoqIEdpdmVuIHRoYXQgdGhlIHZhcmlhbmNlIGJldHdlZW4gdGhlIHR3byBjZWxsdHlwZXMgaXMgc28gaHVnZSwganVzdApjb21wYXJlIGFsbCBzYW1wbGVzLgoqIE9uZSBtaWdodCB3YW50IHRvIGNvbXBhcmUgdGhlbSB3aXRoIHRoZSBpbnRlcmFjdGlvbiBlZmZlY3RzIG9mIGRydWcvenltb2RlbWUuCgpgYGB7ciBib3RoX3R5cGVzX2NvbXBhcmV9CnR5cGVfZGUgPC0gYWxsX3BhaXJ3aXNlKGFsbF9odW1hbl90eXBlcywgZmlsdGVyID0gVFJVRSwgbW9kZWxfYmF0Y2ggPSAic3Zhc2VxIikKCnR5cGVfdGFibGUgPC0gY29tYmluZV9kZV90YWJsZXMoCiAgdHlwZV9kZSwga2VlcGVycyA9IHRtcmMyX3R5cGVfa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUve3Zlcn0vZGVfdGFibGVzL3RtcmMyX21hY3JvcGhhZ2VfdHlwZV9jb21wYXJpc29uLXZ7dmVyfS54bHN4IikpCmNvbWJpbmVkX3RvX3Rzdih0eXBlX3RhYmxlLCBjZWxsdHlwZSA9ICJhbGwiKQoKdHlwZV9zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB0eXBlX3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS97dmVyfS9zaWdfdGFibGVzL3RtcmMyX21hY3JvcGhhZ2VfdHlwZV9zaWctdnt2ZXJ9Lnhsc3giKSkKdHlwZV9oaWdoc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgdHlwZV90YWJsZSwgbWluX21lYW5fZXhwcnMgPSBoaWdoX2V4cHJlc3Npb24sIGV4cHJzX2NvbHVtbiA9IGhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3t2ZXJ9L3NpZ190YWJsZXMvdG1yYzJfbWFjcm9waGFnZV90eXBlX2hpZ2hzaWctdnt2ZXJ9Lnhsc3giKSkKYGBgCgojIyMjIENvbWJpbmVkIGZhY3RvcnMgb2YgaW50ZXJlc3Q6IGNlbGx0eXBlK3p5bW9kZW1lCgpHaXZlbiB0aGUgYWJvdmUgZXhwbGljaXQgY29tcGFyaXNvbiBvZiBhbGwgc2FtcGxlcyBjb21wcmlzaW5nIHRoZSB0d28KY2VsbCB0eXBlcywgbm93IGxldCB1cyBsb29rIGF0IHRoZSBkcnVnIHRyZWF0bWVudCt6eW1vZGVtZSBzdGF0dXMgd2l0aAphbGwgc2FtcGxlcywgbWFjcm9waGFnZXMgYW5kIFU5MzcuCgpgYGB7ciBhbGxfc2FtcGxlc196eW1vX3R5cGV9CnR5cGVfenltb19kZSA8LSBhbGxfcGFpcndpc2UodHlwZV96eW1vLCBmaWx0ZXIgPSBUUlVFLCBtb2RlbF9iYXRjaCA9ICJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4dHJhX2NvbnRyYXN0cyA9IHR5cGVfenltb19leHRyYSkKCnR5cGVfenltb190YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICB0eXBlX3p5bW9fZGUsIGtlZXBlcnMgPSB0bXJjMl90eXBlenltb19rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS97dmVyfS9kZV90YWJsZXMvdG1yYzJfbWFjcm9waGFnZV90eXBlX3p5bW9fY29tcGFyaXNvbi12e3Zlcn0ueGxzeCIpKQpjb21iaW5lZF90b190c3YodHlwZV96eW1vX3RhYmxlLCBjZWxsdHlwZSA9ICJhbGwiKQoKdHlwZV96eW1vX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIHR5cGVfenltb190YWJsZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUve3Zlcn0vc2lnX3RhYmxlcy90bXJjMl9tYWNyb3BoYWdlX3R5cGVfenltb19zaWctdnt2ZXJ9Lnhsc3giKSkKdHlwZV96eW1vX2hpZ2hzaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB0eXBlX3p5bW9fdGFibGUsIG1pbl9tZWFuX2V4cHJzID0gaGlnaF9leHByZXNzaW9uLCBleHByc19jb2x1bW4gPSBoaWdoX2V4cHJlc3Npb25fY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS97dmVyfS9zaWdfdGFibGVzL3RtcmMyX21hY3JvcGhhZ2VfdHlwZV96eW1vX2hpZ2hzaWctdnt2ZXJ9Lnhsc3giKSkKYGBgCgojIyMjIENvbWJpbmVkIGZhY3RvcnMgb2YgaW50ZWVzdDogY2VsbHR5cGUrZHJ1ZwoKVGhlICd0eXBlX2RydWcnIGRhdGFzdHJ1Y3R1cmUgaXMgdGhlIHNhbWUgYXMgYWJvdmUsIGJ1dCB0aGUgY29uZGl0aW9uCmlzIGNyZWF0ZWQgZnJvbSB0aGUgY29uY2F0ZW5hdGlvbiBvZiB0aGUgY2VsbCB0eXBlIGFuZCBkcnVnIHRyZWF0bWVudC4KCmBgYHtyIGFsbF9zYW1wbGVzX3p5bW9fdHlwZV9zdmF9CnR5cGVfZHJ1Z19kZSA8LSBhbGxfcGFpcndpc2UodHlwZV9kcnVnLCBmaWx0ZXIgPSBUUlVFLCBtb2RlbF9iYXRjaCA9ICJzdmFzZXEiKQoKdHlwZV9kcnVnX3RhYmxlIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHR5cGVfZHJ1Z19kZSwga2VlcGVycyA9IHRtcmMyX3R5cGVkcnVnX2tlZXBlcnMsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3t2ZXJ9L2RlX3RhYmxlcy90bXJjMl9tYWNyb3BoYWdlX3R5cGVfZHJ1Z19jb21wYXJpc29uLXZ7dmVyfS54bHN4IikpCmNvbWJpbmVkX3RvX3Rzdih0eXBlX2RydWdfdGFibGUsIGNlbGx0eXBlID0gImFsbCIpCgp0eXBlX2RydWdfc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgdHlwZV9kcnVnX3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS97dmVyfS9zaWdfdGFibGVzL3RtcmMyX21hY3JvcGhhZ2VfdHlwZV9kcnVnX3NpZy12e3Zlcn0ueGxzeCIpKQp0eXBlX2RydWdfaGlnaHNpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIHR5cGVfZHJ1Z190YWJsZSwgbWluX21lYW5fZXhwcnMgPSBoaWdoX2V4cHJlc3Npb24sIGV4cHJzX2NvbHVtbiA9IGhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3t2ZXJ9L3NpZ190YWJsZXMvdG1yYzJfbWFjcm9waGFnZV90eXBlX2RydWdfaGlnaHNpZy12e3Zlcn0ueGxzeCIpKQpgYGAKCiMgSW5kaXZpZHVhbCBjZWxsIHR5cGVzCgpBdCB0aGlzIHBvaW50LCBJIHRoaW5rIGl0IGlzIGZhaXIgdG8gc2F5IHRoYXQgdGhlIHR3byBjZWxsIHR5cGVzIGFyZQpzdWZmaWNpZW50bHkgZGlmZmVyZW50IHRoYXQgdGhleSBkbyBub3QgcmVhbGx5IGJlbG9uZyB0b2dldGhlciBpbiBhCnNpbmdsZSBhbmFseXNpcy4KCiMjIGRydWcgb3Igc3RyYWluIGVmZmVjdHMsIHNpbmdsZSBjZWxsIHR5cGUKCk9uZSBvZiB0aGUgcXVlcmllcyBOYWppYiBhc2tlZCB3aGljaCBJIHRoaW5rIEkgbWlzaW50ZXJwcmV0ZWQgd2FzIHRvCmxvb2sgYXQgZHJ1ZyBhbmQvb3Igc3RyYWluIGVmZmVjdHMuICBNeSBpbnRlcnByZXRhdGlvbiBpcyBzb21ld2hlcmUKYmVsb3cgYW5kIHdhcyBub3Qgd2hhdCBoZSB3YXMgbG9va2luZyBmb3IuICBJbnN0ZWFkLCBoZSB3YXMgbG9va2luZyB0bwpzZWUgYWxsKG1hY3JvcGhhZ2UpIGRydWcvbm9kcnVnIGFuZCBhbGwobWFjcm9waGFnZSkgejIzL3oyMiBhbmQKY29tcGFyZSB0aGVtIHRvIGVhY2ggb3RoZXIuICBJdCBtYXkgYmUgdGhhdCB0aGlzIGlzIHN0aWxsIGEgd3JvbmcKaW50ZXJwcmV0YXRpb24sIGlmIHNvIHRoZSBtb3N0IGxpa2VseSBjb21wYXJpc29uIGlzIGVpdGhlcjoKCiogICh6MjNkcnVnL3oyMmRydWcpIC8gKHoyM25vZHJ1Zy96MjJub2RydWcpLCBvciBwZXJoYXBzCiogICh6MjNkcnVnL3oyM25vZHJ1ZykgLyAoejIyZHJ1Zy96MjJub2RydWcpLAoKSSBhbSBub3Qgc3VyZSB0aG9zZSBjb25mdXNlIG1lLCBhbmQgYXQgbGVhc3Qgb25lIG9mIHRoZW0gaXMgYmVsb3cKCiMjIyBNYWNyb3BoYWdlcwoKSW4gdGhlc2UgYmxvY2tzIHdlIHdpbGwgZXhwbGljaXRseSBxdWVyeSBvbmx5IG9uZSBmYWN0b3IgYXQgYSB0aW1lLApkcnVnIGFuZCBzdHJhaW4uICBUaGUgZXZlbnR1YWwgZ29hbCBpcyB0byBsb29rIGZvciBlZmZlY3RzIG9mCmRydWcgdHJlYXRtZW50IGFuZC9vciBzdHJhaW4gdHJlYXRtZW50IHdoaWNoIGFyZSBzaGFyZWQ/CgojIyMjIE1hY3JvcGhhZ2UgRHJ1ZyBvbmx5CgpUaHVzIHdlIHdpbGwgc3RhcnQgd2l0aCB0aGUgcHVyZSBkcnVnIHF1ZXJ5LiAgSW4gdGhpcyBibG9jayB3ZSB3aWxsCmxvb2sgb25seSBhdCB0aGUgZHJ1Zy9ub2RydWcgZWZmZWN0LgoKYGBge3IgbWFjcm9waGFnZV9kcnVnb25seV9kZX0KaHNfbWFjcl9kcnVnX2RlIDwtIGFsbF9wYWlyd2lzZShoc19tYWNyX2RydWdfZXhwdCwgZmlsdGVyID0gVFJVRSwgbW9kZWxfYmF0Y2ggPSAic3Zhc2VxIikKCmhzX21hY3JfZHJ1Z190YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBoc19tYWNyX2RydWdfZGUsIGtlZXBlcnMgPSB0bXJjMl9kcnVnX2tlZXBlcnMsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3RtcmMyX21hY3JvcGhhZ2Vfb25seWRydWdfdGFibGUtdnt2ZXJ9Lnhsc3giKSkKY29tYmluZWRfdG9fdHN2KGhzX21hY3JfZHJ1Z190YWJsZSwgY2VsbHR5cGUgPSAibWFjcm9waGFnZSIpCgpoc19tYWNyX2RydWdfc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgaHNfbWFjcl9kcnVnX3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS90bXJjMl9tYWNyb3BoYWdlb25seV9kcnVnX3NpZy12e3Zlcn0ueGxzeCIpKQpoc19tYWNyX2RydWdfaGlnaHNpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3JfZHJ1Z190YWJsZSwgbWluX21lYW5fZXhwcnMgPSBoaWdoX2V4cHJlc3Npb24sIGV4cHJzX2NvbHVtbiA9IGhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3RtcmMyX21hY3JvcGhhZ2Vvbmx5X2RydWdfaGlnaHNpZy12e3Zlcn0ueGxzeCIpKQpgYGAKCiMjIyMgTWFjcm9waGFnZSBTdHJhaW4gb25seQoKSW4gYSBzaW1pbGFyIGZhc2hpb24sIGxldCB1cyBsb29rIGZvciBlZmZlY3RzIHdoaWNoIGFyZSBvYnNlcnZlZCB3aGVuCndlIGNvbnNpZGVyIG9ubHkgdGhlIHN0cmFpbiB1c2VkIGR1cmluZyBpbmZlY3Rpb24uCgpgYGB7ciBtYWNyb3BoYWdlX3N0cmFpbm9ubHlfZGV9CmhzX21hY3Jfc3RyYWluX2RlIDwtIGFsbF9wYWlyd2lzZShoc19tYWNyX3N0cmFpbl9leHB0LCBmaWx0ZXIgPSBUUlVFLCBtb2RlbF9iYXRjaCA9ICJzdmFzZXEiKQoKaHNfbWFjcl9zdHJhaW5fdGFibGUgPC0gY29tYmluZV9kZV90YWJsZXMoCiAgaHNfbWFjcl9zdHJhaW5fZGUsIGtlZXBlcnMgPSB0bXJjMl9zdHJhaW5fa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvdG1yYzJfbWFjcm9waGFnZV9vbmx5c3RyYWluX3RhYmxlLXZ7dmVyfS54bHN4IikpCmNvbWJpbmVkX3RvX3Rzdihoc19tYWNyX3N0cmFpbl90YWJsZSwgY2VsbHR5cGUgPSAibWFjcm9waGFnZSIpCgpoc19tYWNyX3N0cmFpbl9zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICBoc19tYWNyX3N0cmFpbl90YWJsZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvdG1yYzJfbWFjcm9waGFnZW9ubHlfb25seXN0cmFpbl9zaWctdnt2ZXJ9Lnhsc3giKSkKaHNfbWFjcl9zdHJhaW5faGlnaHNpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3Jfc3RyYWluX3RhYmxlLCBtaW5fbWVhbl9leHBycyA9IGhpZ2hfZXhwcmVzc2lvbiwgZXhwcnNfY29sdW1uID0gaGlnaF9leHByZXNzaW9uX2NvbHVtbiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvdG1yYzJfbWFjcm9waGFnZW9ubHlfb25seXN0cmFpbl9oaWdoc2lnLXZ7dmVyfS54bHN4IikpCmBgYAoKIyMjIyBDb21wYXJlIERydWcgYW5kIFN0cmFpbiBFZmZlY3RzCgpOb3cgbGV0IHVzIGNvbnNpZGVyIHRoZSBhYm92ZSB0d28gY29tcGFyaXNvbnMgdG9nZXRoZXIuICBGaXJzdCwgSSB3aWxsCnBsb3QgdGhlIGxvZ0ZDIHZhbHVlcyBvZiB0aGVtIGFnYWluc3QgZWFjaCBvdGhlciAoZHJ1ZyBvbiB4LWF4aXMgYW5kCnN0cmFpbiBvbiB0aGUgeS1heGlzKS4gIFRoZW4gd2UgY2FuIGV4dHJhY3QgdGhlIHNpZ25pZmljYW50IGdlbmVzIGluIGEKZmV3IGNvbWJpbmVkIGNhdGVnb3JpZXMgb2YgaW50ZXJlc3QuICBJIGFzc3VtZSB0aGVzZSB3aWxsIGZvY3VzCmV4Y2x1c2l2ZWx5IG9uIHRoZSBjYXRlZ29yaWVzIHdoaWNoIGluY2x1ZGUgdGhlIGludHJvZHVjdGlvbiBvZiB0aGUKZHJ1Zy4KCmBgYHtyIGNvbXBhcmVfZHJ1Z19zdHJhaW5fZWZmZWN0c30KZHJ1Z19zdHJhaW5fY29tcF9kZiA8LSBtZXJnZShoc19tYWNyX2RydWdfdGFibGVbWyJkYXRhIl1dW1siZHJ1ZyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBoc19tYWNyX3N0cmFpbl90YWJsZVtbImRhdGEiXV1bWyJzdHJhaW4iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYnkgPSAicm93Lm5hbWVzIikKZHJ1Z19zdHJhaW5fY29tcF9wbG90IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIoCiAgZHJ1Z19zdHJhaW5fY29tcF9kZlssIGMoImRlc2VxX2xvZ2ZjLngiLCAiZGVzZXFfbG9nZmMueSIpXSkKIyMgQ29udHJhc3RzOiBhbnRpbW9ueS9ub25lLCB6MjMvejIyOyB4LWF4aXM6IGRydWcsIHktYXhpczogc3RyYWluCiMjIHRvcCBsZWZ0OiBoaWdoZXIgbm8gZHJ1ZywgejIzOyB0b3AgcmlnaHQ6IGhpZ2hlciBkcnVnIHoyMwojIyBib3R0b20gbGVmdDogaGlnaGVyIG5vIGRydWcsIHoyMjsgYm90dG9tIHJpZ2h0OiBoaWdoZXIgZHJ1ZyB6MjIKZHJ1Z19zdHJhaW5fY29tcF9wbG90JHNjYXR0ZXIKYGBgCgpBcyBJIG5vdGVkIGluIHRoZSBjb21tZW50cyBhYm92ZSwgc29tZSBxdWFkcmFudHMgb2YgdGhlIHNjYXR0ZXIgcGxvdAphcmUgbGlrZWx5IHRvIGJlIG9mIGdyZWF0ZXIgaW50ZXJlc3QgdG8gdXMgdGhhbiBvdGhlcnMgKHRoZSByaWdodApzaWRlKS4gIEJlY2F1c2UgSSBnZXQgY29uZnVzZWQgc29tZXRpbWVzLCB0aGUgZm9sbG93aW5nIGJsb2NrIHdpbGwKZXhwbGljaXRseSBuYW1lIHRoZSBjYXRlZ29yaWVzIG9mIGxpa2VseSBpbnRlcmVzdCwgdGhlbiBhc2sgd2hpY2gKZ2VuZXMgYXJlIHNoYXJlZCBhbW9uZyB0aGVtLCBhbmQgZmluYWxseSB1c2UgVXBTZXRSIHRvIGV4dHJhY3QgdGhlCnZhcmlvdXMgZ2VuZSBpbnRlcnNlY3Rpb24vdW5pb24gY2F0ZWdvcmllcy4KCmBgYHtyIGRydWdfc3RyYWluX3NjYXR0ZXJfc3ViZ3JvdXBzfQpoaWdoZXJfZHJ1ZyA8LSBoc19tYWNyX2RydWdfc2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbMV1dCmhpZ2hlcl9ub2RydWcgPC0gaHNfbWFjcl9kcnVnX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1sxXV0KaGlnaGVyX3oyMyA8LSBoc19tYWNyX3N0cmFpbl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbMV1dCmhpZ2hlcl96MjIgPC0gaHNfbWFjcl9zdHJhaW5fc2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbMV1dCnN1bShyb3duYW1lcyhoaWdoZXJfZHJ1ZykgJWluJSByb3duYW1lcyhoaWdoZXJfejIzKSkKc3VtKHJvd25hbWVzKGhpZ2hlcl9kcnVnKSAlaW4lIHJvd25hbWVzKGhpZ2hlcl96MjIpKQpzdW0ocm93bmFtZXMoaGlnaGVyX25vZHJ1ZykgJWluJSByb3duYW1lcyhoaWdoZXJfejIzKSkKc3VtKHJvd25hbWVzKGhpZ2hlcl9ub2RydWcpICVpbiUgcm93bmFtZXMoaGlnaGVyX3oyMikpCgpkcnVnX3oyM19sc3QgPC0gbGlzdCgiZHJ1ZyIgPSByb3duYW1lcyhoaWdoZXJfZHJ1ZyksCiAgICAgICAgICAgICAgICAgICAgICJ6MjMiID0gcm93bmFtZXMoaGlnaGVyX3oyMykpCmhpZ2hlcl9kcnVnX3oyMyA8LSB1cHNldChVcFNldFI6OmZyb21MaXN0KGRydWdfejIzX2xzdCksIHRleHQuc2NhbGUgPSAyKQpoaWdoZXJfZHJ1Z196MjMKCmRydWdfejIzX3NoYXJlZF9nZW5lcyA8LSBvdmVybGFwX2dyb3VwcyhkcnVnX3oyM19sc3QpCnNoYXJlZF9nZW5lc19kcnVnX3oyMyA8LSBvdmVybGFwX2dlbmVpZHMoZHJ1Z196MjNfc2hhcmVkX2dlbmVzLCAiZHJ1Zzp6MjMiKQojc2hhcmVkX2dlbmVzX2RydWdfejIzIDwtIGF0dHIoZHJ1Z196MjNfc2hhcmVkX2dlbmVzLCAiZWxlbWVudHMiKVtkcnVnX3oyM19zaGFyZWRfZ2VuZXNbWyJkcnVnOnoyMyJdXV0KCmRydWdfejIyX2xzdCA8LSBsaXN0KCJkcnVnIiA9IHJvd25hbWVzKGhpZ2hlcl9kcnVnKSwKICAgICAgICAgICAgICAgICAgICAgInoyMiIgPSByb3duYW1lcyhoaWdoZXJfejIyKSkKaGlnaGVyX2RydWdfejIyIDwtIHVwc2V0KFVwU2V0Ujo6ZnJvbUxpc3QoZHJ1Z196MjJfbHN0KSwgdGV4dC5zY2FsZSA9IDIpCmhpZ2hlcl9kcnVnX3oyMgoKZHJ1Z196MjJfc2hhcmVkX2dlbmVzIDwtIG92ZXJsYXBfZ3JvdXBzKGRydWdfejIyX2xzdCkKc2hhcmVkX2dlbmVzX2RydWdfejIyIDwtIG92ZXJsYXBfZ2VuZWlkcyhkcnVnX3oyMl9zaGFyZWRfZ2VuZXMsICJkcnVnOnoyMiIpCiNzaGFyZWRfZ2VuZXNfZHJ1Z196MjIgPC0gYXR0cihkcnVnX3oyMl9zaGFyZWRfZ2VuZXMsICJlbGVtZW50cyIpW2RydWdfejIyX3NoYXJlZF9nZW5lc1tbImRydWc6ejIyIl1dXQpgYGAKCiMjIyMgUGVyZm9ybSBnUHJvZmlsZXIgb24gZHJ1Zy9zdHJhaW4gZWZmZWN0IHNoYXJlZCBnZW5lcwoKTm93IHRoYXQgd2UgaGF2ZSBzb21lIHBvcHVsYXRpb25zIG9mIGdlbmVzIHdoaWNoIGFyZSBzaGFyZWQgYWNyb3NzIHRoZQpkcnVnL3N0cmFpbiBlZmZlY3RzLCBsZXQgdXMgcGFzcyB0aGVtIHRvIHNvbWUgR1NFQSBhbmFseXNlcyBhbmQgc2VlCndoYXQgcG9wcyBvdXQuCgpgYGB7ciBncF9kcnVnX3N0cmFpbn0Kd2FudGVkIDwtIGRydWdfejIzX3NoYXJlZF9nZW5lc1tbImRydWc6ejIzIl1dCnNoYXJlZF9nZW5lc19kcnVnX3oyMyA8LSBhdHRyKGRydWdfejIzX3NoYXJlZF9nZW5lcywgImVsZW1lbnRzIilbd2FudGVkXQpzaGFyZWRfZHJ1Z196MjNfZ3AgPC0gc2ltcGxlX2dwcm9maWxlcihzaGFyZWRfZ2VuZXNfZHJ1Z196MjMpCnNoYXJlZF9kcnVnX3oyM19ncFtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCnNoYXJlZF9kcnVnX3oyM19ncFtbInB2YWx1ZV9wbG90cyJdXVtbIkJQIl1dCnNoYXJlZF9kcnVnX3oyM19ncFtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KCndhbnRlZCA8LSBkcnVnX3oyMl9zaGFyZWRfZ2VuZXNbWyJkcnVnOnoyMiJdXQpzaGFyZWRfZ2VuZXNfZHJ1Z196MjIgPC0gYXR0cihkcnVnX3oyMl9zaGFyZWRfZ2VuZXMsICJlbGVtZW50cyIpW3dhbnRlZF0Kc2hhcmVkX2RydWdfejIyX2dwIDwtIHNpbXBsZV9ncHJvZmlsZXIoc2hhcmVkX2dlbmVzX2RydWdfejIyKQpzaGFyZWRfZHJ1Z196MjJfZ3BbWyJwdmFsdWVfcGxvdHMiXV1bWyJCUCJdXQpgYGAKCiMjIE91ciBtYWluIHF1ZXN0aW9uIG9mIGludGVyZXN0CgpUaGUgZGF0YSBzdHJ1Y3R1cmUgaHNfbWFjciBjb250YWlucyBvdXIgcHJpbWFyeSBtYWNyb3BoYWdlcywgd2hpY2gKYXJlLCBhcyBzaG93biBhYm92ZSwgdGhlIGRhdGEgd2UgY2FuIHJlYWxseSBzaW5rIG91ciB0ZWV0aCBpbnRvLgoKTm90ZSwgd2UgZXhwZWN0IHNvbWUgZXJyb3JzIHdoZW4gcnVubmluZyB0aGUgY29tYmluZV9kZV90YWJsZXMoKQpiZWNhdXNlIG5vdCBhbGwgbWV0aG9kcyBJIHVzZSBhcmUgY29tZm9ydGFibGUgdXNpbmcgdGhlIHJhdGlvIG9yCnJhdGlvcyBjb250cmFzdHMgd2UgYWRkZWQgaW4gdGhlICdleHRyYXMnIGFyZ3VtZW50LiAgQXMgYSByZXN1bHQsIHdoZW4Kd2UgY29tYmluZSB0aGVtIGludG8gdGhlIGxhcmdlciBvdXRwdXQgdGFibGVzLCB0aG9zZSBwZWN1bGlhcgpjb250cmFzdHMgZmFpbC4gIFRoaXMgZG9lcyBub3Qgc3RvcCBpdCBmcm9tIHdyaXRpbmcgdGhlIHJlc3Qgb2YgdGhlCnJlc3VsdHMsIGhvd2V2ZXIuCgpgYGB7ciBoc19kZX0KIyMgdGVzdCA9IGRlc2VxX3BhaXJ3aXNlKG5vcm1hbGl6ZV9leHB0KGhzX21hY3IsIGZpbHRlcj1UUlVFKSwgbW9kZWxfYmF0Y2ggPSAic3Zhc2VxIiwgZmlsdGVyID0gVFJVRSwgZXh0cmFfY29udHJhc3RzID0gdG1yYzJfaHVtYW5fZXh0cmEpCmhzX21hY3JfZGUgPC0gYWxsX3BhaXJ3aXNlKAogIGhzX21hY3IsIG1vZGVsX2JhdGNoID0gInN2YXNlcSIsIHBhcmFsbGVsID0gRkFMU0UsCiAgZmlsdGVyID0gVFJVRSwKICBleHRyYV9jb250cmFzdHMgPSB0bXJjMl9odW1hbl9leHRyYSkKdG1wX2tlZXBlcnMgPC0gdG1yYzJfaHVtYW5fa2VlcGVyc1sxM10KCmhzX21hY3JfdGFibGUgPC0gY29tYmluZV9kZV90YWJsZXMoCiAgaHNfbWFjcl9kZSwKICBrZWVwZXJzID0gdG1yYzJfaHVtYW5fa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvaHNfbWFjcl9kcnVnX3p5bW9fdGFibGVfdGVzdGluZ19tYWNyX29ubHktdnt2ZXJ9Lnhsc3giKSkKY29tYmluZWRfdG9fdHN2KGhzX21hY3JfdGFibGUsICJtYWNyb3BoYWdlIikKCmhzX21hY3Jfc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgaHNfbWFjcl90YWJsZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvaHNfbWFjcl9kcnVnX3p5bW9fc2lnLXZ7dmVyfS54bHN4IikpCmhzX21hY3JfaGlnaHNpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3JfdGFibGUsIG1pbl9tZWFuX2V4cHJzID0gaGlnaF9leHByZXNzaW9uLCBleHByc19jb2x1bW4gPSBoaWdoX2V4cHJlc3Npb25fY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9oc19tYWNyX2RydWdfenltb19oaWdoc2lnLXZ7dmVyfS54bHN4IikpCmBgYAoKIyMjIE91ciBtYWluIHF1ZXN0aW9ucyBpbiBVOTM3CgpMZXQgdXMgZG8gdGhlIHNhbWUgY29tcGFyaXNvbnMgaW4gdGhlIFU5Mzcgc2FtcGxlcywgdGhvdWdoIEkgd2lsbCBub3QKZG8gdGhlIGV4dHJhIGNvbnRyYXN0cywgcHJpbWFyaWx5IGJlY2F1c2UgSSB0aGluayB0aGUgZGF0YXNldCBpcyBsZXNzCmxpa2VseSB0byBzdXBwb3J0IHRoZW0uCgpgYGB7ciBoc191OTM3X2RlfQp1OTM3X2RlIDwtIGFsbF9wYWlyd2lzZSh1OTM3X2V4cHQsIG1vZGVsX2JhdGNoID0gInN2YXNlcSIsIGZpbHRlciA9IFRSVUUpCgp1OTM3X3RhYmxlIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHU5MzdfZGUsCiAga2VlcGVycyA9IHU5Mzdfa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvdTkzN19kcnVnX3p5bW9fdGFibGUtdnt2ZXJ9Lnhsc3giKSkKY29tYmluZWRfdG9fdHN2KHU5MzdfdGFibGUsIGNlbGx0eXBlID0gInU5MzciKQoKdTkzN19zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB1OTM3X3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS91OTM3X2RydWdfenltb19zaWctdnt2ZXJ9Lnhsc3giKSkKdTkzN19oaWdoc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgdTkzN190YWJsZSwgbWluX21lYW5fZXhwcnMgPSBoaWdoX2V4cHJlc3Npb24sIGV4cHJzX2NvbHVtbiA9IGhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3U5MzdfZHJ1Z196eW1vX2hpZ2hzaWctdnt2ZXJ9Lnhsc3giKSkKYGBgCgojIyMjIENvbXBhcmUgKG5vKVNiIHoyLjMvejIuMiB0cmVhdG1lbnRzIGFtb25nIG1hY3JvcGhhZ2VzCgpgYGB7ciBjb21wYXJlX2RydWdfejIzMjJ9CnVwc2V0X3Bsb3RzX2hzX21hY3IgPC0gdXBzZXRyX3NpZygKICBoc19tYWNyX3NpZywgYm90aCA9IFRSVUUsCiAgY29udHJhc3RzID0gYygiejIzc2JfdnNfejIyc2IiLCAiejIzbm9zYl92c196MjJub3NiIikpCnVwc2V0X3Bsb3RzX2hzX21hY3JbWyJib3RoIl1dCmdyb3VwcyA8LSB1cHNldF9wbG90c19oc19tYWNyW1siYm90aF9ncm91cHMiXV0Kc2hhcmVkX2dlbmVzIDwtIGF0dHIoZ3JvdXBzLCAiZWxlbWVudHMiKVtncm91cHNbWzJdXV0gJT4lCiAgZ3N1YihwYXR0ZXJuID0gIl5nZW5lOiIsIHJlcGxhY2VtZW50ID0gIiIpCmxlbmd0aChzaGFyZWRfZ2VuZXMpCgpzaGFyZWRfZ3AgPC0gc2ltcGxlX2dwcm9maWxlcihzaGFyZWRfZ2VuZXMpCnNoYXJlZF9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCnNoYXJlZF9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIkJQIl1dCnNoYXJlZF9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KCmRydWdfZ2VuZXMgPC0gYXR0cihncm91cHMsICJlbGVtZW50cyIpW2dyb3Vwc1tbInoyM3NiX3ZzX3oyMnNiIl1dXSAlPiUKICBnc3ViKHBhdHRlcm4gPSAiXmdlbmU6IiwgcmVwbGFjZW1lbnQgPSAiIikKZHJ1Z29ubHlfZ3AgPC0gc2ltcGxlX2dwcm9maWxlcihkcnVnX2dlbmVzKQpkcnVnb25seV9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIkJQIl1dCmBgYAoKSSB3YW50IHRvIHRyeSBzb21ldGhpbmcsIGRpcmVjdGx5IGluY2x1ZGUgdGhlIHU5MzcgZGF0YSBpbiB0aGlzLi4uCgpgYGB7ciBhZGRfdTkzN30KYm90aF9zaWcgPC0gaHNfbWFjcl9zaWcKbmFtZXMoYm90aF9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXSkgPC0gcGFzdGUwKCJtYWNyXyIsIG5hbWVzKGJvdGhfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV0pKQpuYW1lcyhib3RoX3NpZ1tbImRlc2VxIl1dW1siZG93bnMiXV0pIDwtIHBhc3RlMCgibWFjcl8iLCBuYW1lcyhib3RoX3NpZ1tbImRlc2VxIl1dW1siZG93bnMiXV0pKQp1OTM3X2Rlc2VxIDwtIHU5Mzdfc2lnW1siZGVzZXEiXV0KbmFtZXModTkzN19kZXNlcVtbInVwcyJdXSkgPC0gcGFzdGUwKCJ1OTM3XyIsIG5hbWVzKHU5MzdfZGVzZXFbWyJ1cHMiXV0pKQpuYW1lcyh1OTM3X2Rlc2VxW1siZG93bnMiXV0pIDwtIHBhc3RlMCgidTkzN18iLCBuYW1lcyh1OTM3X2Rlc2VxW1siZG93bnMiXV0pKQpib3RoX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dIDwtIGMoYm90aF9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXSwgdTkzN19kZXNlcVtbInVwcyJdXSkKYm90aF9zaWdbWyJkZXNlcSJdXVtbImRvd25zIl1dIDwtIGMoYm90aF9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXSwgdTkzN19kZXNlcVtbImRvd25zIl1dKQpzdW1tYXJ5KGJvdGhfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV0pCgp1cHNldF9wbG90c19ib3RoIDwtIHVwc2V0cl9zaWcoCiAgYm90aF9zaWcsIGJvdGggPSBUUlVFLAogIGNvbnRyYXN0cyA9IGMoIm1hY3JfejIzc2JfdnNfejIyc2IiLCAibWFjcl96MjNub3NiX3ZzX3oyMm5vc2IiLAogICAgICAgICAgICAgICAgInU5MzdfejIzc2JfdnNfejIyc2IiLCAidTkzN196MjNub3NiX3ZzX3oyMm5vc2IiKSkKdXBzZXRfcGxvdHNfYm90aCRib3RoCmBgYAoKIyMjIyBDb21wYXJlIERFIHJlc3VsdHMgZnJvbSBtYWNyb3BoYWdlcyBhbmQgVTkzNyBzYW1wbGVzCgpMb29raW5nIGEgYml0IG1vcmUgY2xvc2VseSBhdCB0aGVzZSwgSSB0aGluayB0aGUgdTkzNyBkYXRhIGlzIHRvbwpzcGFyc2UgdG8gZWZmZWN0aXZlbHkgY29tcGFyZS4KCmBgYHtyIGNvbXBhcmVfZGVfdTkzN19tYWNyb30KbWFjcl91OTM3X2NvbXBhcmlzb24gPC0gY29tcGFyZV9kZV9yZXN1bHRzKGhzX21hY3JfdGFibGUsIHU5MzdfdGFibGUpCm1hY3JfdTkzN19jb21wYXJpc29uJGxmY19oZWF0CgptYWNyX3U5MzdfdmVubnMgPC0gY29tcGFyZV9zaWduaWZpY2FudF9jb250cmFzdHMoaHNfbWFjcl9zaWcsIHNlY29uZF9zaWdfdGFibGVzID0gdTkzN19zaWcsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb250cmFzdHMgPSAiejIzc2JfdnNfejIzbm9zYiIpCm1hY3JfdTkzN192ZW5ucyR1cF9wbG90Cm1hY3JfdTkzN192ZW5ucyRkb3duX3Bsb3QKCm1hY3JfdTkzN192ZW5uc192MiA8LSBjb21wYXJlX3NpZ25pZmljYW50X2NvbnRyYXN0cyhoc19tYWNyX3NpZywgc2Vjb25kX3NpZ190YWJsZXMgPSB1OTM3X3NpZywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbnRyYXN0cyA9ICJ6MjJzYl92c196MjJub3NiIikKbWFjcl91OTM3X3Zlbm5zX3YyJHVwX3Bsb3QKbWFjcl91OTM3X3Zlbm5zX3YyJGRvd25fcGxvdAoKbWFjcl91OTM3X3Zlbm5zX3YzIDwtIGNvbXBhcmVfc2lnbmlmaWNhbnRfY29udHJhc3RzKGhzX21hY3Jfc2lnLCBzZWNvbmRfc2lnX3RhYmxlcyA9IHU5Mzdfc2lnLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29udHJhc3RzID0gInNiX3ZzX3VuaW5mIikKbWFjcl91OTM3X3Zlbm5zX3YzJHVwX3Bsb3QKbWFjcl91OTM3X3Zlbm5zX3YzJGRvd25fcGxvdApgYGAKCiMjIyBDb21wYXJlIG1hY3JvcGhhZ2UvdTkzNyB3aXRoIHJlc3BlY3QgdG8gejIuMy96Mi4yCgpgYGB7ciBtYWNyX3U5MzdfejIzejIyfQpjb21wYXJpc29uX2RmIDwtIG1lcmdlKGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIzc2JfdnNfejIyc2IiXV0sCiAgICAgICAgICAgICAgICAgICAgICAgdTkzN190YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c196MjJzYiJdXSwKICAgICAgICAgICAgICAgICAgICAgICBieSA9ICJyb3cubmFtZXMiKQptYWNydTkzN196MjN6MjJfcGxvdCA8LSBwbG90X2xpbmVhcl9zY2F0dGVyKGNvbXBhcmlzb25fZGZbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCm1hY3J1OTM3X3oyM3oyMl9wbG90JHNjYXR0ZXIKCmNvbXBhcmlzb25fZGYgPC0gbWVyZ2UoaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV0sCiAgICAgICAgICAgICAgICAgICAgICAgdTkzN190YWJsZVtbImRhdGEiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV0sCiAgICAgICAgICAgICAgICAgICAgICAgYnkgPSAicm93Lm5hbWVzIikKbWFjcnU5MzdfejIzejIyX3Bsb3QgPC0gcGxvdF9saW5lYXJfc2NhdHRlcihjb21wYXJpc29uX2RmWywgYygiZGVzZXFfbG9nZmMueCIsICJkZXNlcV9sb2dmYy55IildKQptYWNydTkzN196MjN6MjJfcGxvdCRzY2F0dGVyCmBgYAoKIyMjIyBBZGQgZG9ub3IgdG8gdGhlIGNvbnRyYXN0cywgbm8gc3ZhCgpgYGB7ciBub3Bvd2VyX25vc3ZhfQpub19wb3dlcl9mYWN0IDwtIHBhc3RlMChwRGF0YShoc19tYWNyKVtbImRvbm9yIl1dLCAiXyIsCiAgICAgICAgICAgICAgICAgICAgICAgIHBEYXRhKGhzX21hY3IpW1siY29uZGl0aW9uIl1dKQp0YWJsZShwRGF0YShoc19tYWNyKVtbImRvbm9yIl1dKQp0YWJsZShub19wb3dlcl9mYWN0KQpoc19ub3Bvd2VyIDwtIHNldF9leHB0X2NvbmRpdGlvbnMoaHNfbWFjciwgZmFjdCA9IG5vX3Bvd2VyX2ZhY3QpCmhzX25vcG93ZXIgPC0gc3Vic2V0X2V4cHQoaHNfbm9wb3dlciwgc3Vic2V0PSJtYWNyb3BoYWdlenltb2RlbWUhPSdub25lJyIpCmhzX25vcG93ZXJfbm9zdmFfZGUgPC0gYWxsX3BhaXJ3aXNlKGhzX25vcG93ZXIsIG1vZGVsX2JhdGNoID0gRkFMU0UsIGZpbHRlciA9IFRSVUUpCm5vcG93ZXJfa2VlcGVycyA8LSBsaXN0KAogICJkMDFfenltbyIgPSBjKCJkMDFpbmZ6MjMiLCAiZDAxaW5mejIyIiksCiAgImQwMV9zYnp5bW8iID0gYygiZDAxaW5mc2J6MjMiLCAiZDAxaW5mc2J6MjIiKSwKICAiZDAyX3p5bW8iID0gYygiZDAyaW5mejIzIiwgImQwMmluZnoyMiIpLAogICJkMDJfc2J6eW1vIiA9IGMoImQwMmluZnNiejIzIiwgImQwMmluZnNiejIyIiksCiAgImQwOV96eW1vIiA9IGMoImQwOWluZnoyMyIsICJkMDlpbmZ6MjIiKSwKICAiZDA5X3NienltbyIgPSBjKCJkMDlpbmZzYnoyMyIsICJkMDlpbmZzYnoyMiIpLAogICJkODFfenltbyIgPSBjKCJkODFpbmZ6MjMiLCAiZDgxaW5mejIyIiksCiAgImQ4MV9zYnp5bW8iID0gYygiZDgxaW5mc2J6MjMiLCAiZDgxaW5mc2J6MjIiKSkKaHNfbm9wb3dlcl9ub3N2YV90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBoc19ub3Bvd2VyX25vc3ZhX2RlLCBrZWVwZXJzID0gbm9wb3dlcl9rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9oc19ub3Bvd2VyX3RhYmxlLXZ7dmVyfS54bHN4IikpCiMjICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4dHJhX2NvbnRyYXN0cyA9IGV4dHJhKQpoc19ub3Bvd2VyX25vc3ZhX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX25vcG93ZXJfbm9zdmFfdGFibGUsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2hzX25vcG93ZXJfbm9zdmFfc2lnLXZ7dmVyfS54bHN4IikpCgpkMDFkMDJfenltb19ub3N2YV9jb21wIDwtIG1lcmdlKGhzX25vcG93ZXJfbm9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDAxX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaHNfbm9wb3dlcl9ub3N2YV90YWJsZVtbImRhdGEiXV1bWyJkMDJfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBieT0icm93Lm5hbWVzIikKZDAxMDJfenltb19ub3N2YV9wbG90IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIoZDAxZDAyX3p5bW9fbm9zdmFfY29tcFssIGMoImRlc2VxX2xvZ2ZjLngiLCAiZGVzZXFfbG9nZmMueSIpXSkKZDAxMDJfenltb19ub3N2YV9wbG90JHNjYXR0ZXIKZDAxMDJfenltb19ub3N2YV9wbG90JGNvcnJlbGF0aW9uCmQwMTAyX3p5bW9fbm9zdmFfcGxvdCRsbV9yc3EKCmQwOWQ4MV96eW1vX25vc3ZhX2NvbXAgPC0gbWVyZ2UoaHNfbm9wb3dlcl9ub3N2YV90YWJsZVtbImRhdGEiXV1bWyJkMDlfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBoc19ub3Bvd2VyX25vc3ZhX3RhYmxlW1siZGF0YSJdXVtbImQ4MV96eW1vIl1dLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJ5PSJyb3cubmFtZXMiKQpkMDk4MV96eW1vX25vc3ZhX3Bsb3QgPC0gcGxvdF9saW5lYXJfc2NhdHRlcihkMDlkODFfenltb19ub3N2YV9jb21wWywgYygiZGVzZXFfbG9nZmMueCIsICJkZXNlcV9sb2dmYy55IildKQpkMDk4MV96eW1vX25vc3ZhX3Bsb3Qkc2NhdHRlcgpkMDk4MV96eW1vX25vc3ZhX3Bsb3QkY29ycmVsYXRpb24KZDA5ODFfenltb19ub3N2YV9wbG90JGxtX3JzcQoKZDAxZDgxX3p5bW9fbm9zdmFfY29tcCA8LSBtZXJnZShoc19ub3Bvd2VyX25vc3ZhX3RhYmxlW1siZGF0YSJdXVtbImQwMV96eW1vIl1dLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGhzX25vcG93ZXJfbm9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDgxX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYnk9InJvdy5uYW1lcyIpCmQwMTgxX3p5bW9fbm9zdmFfcGxvdCA8LSBwbG90X2xpbmVhcl9zY2F0dGVyKGQwMWQ4MV96eW1vX25vc3ZhX2NvbXBbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCmQwMTgxX3p5bW9fbm9zdmFfcGxvdCRzY2F0dGVyCmQwMTgxX3p5bW9fbm9zdmFfcGxvdCRjb3JyZWxhdGlvbgpkMDE4MV96eW1vX25vc3ZhX3Bsb3QkbG1fcnNxCgp1cHNldF9wbG90c19ub3N2YSA8LSB1cHNldHJfc2lnKGhzX25vcG93ZXJfbm9zdmFfc2lnLCBib3RoPVRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29udHJhc3RzPWMoImQwMV96eW1vIiwgImQwMl96eW1vIiwgImQwOV96eW1vIiwgImQ4MV96eW1vIikpCnVwc2V0X3Bsb3RzX25vc3ZhJHVwCnVwc2V0X3Bsb3RzX25vc3ZhJGRvd24KdXBzZXRfcGxvdHNfbm9zdmEkYm90aAojIyBUaGUgN3RoIGVsZW1lbnQgaW4gdGhlIGJvdGggZ3JvdXBzIGxpc3QgaXMgdGhlIHNldCBzaGFyZWQgYW1vbmcgYWxsIGRvbm9ycy4KIyMgSSBkb24ndCBmZWVsIGxpa2Ugd3JpdGluZyBvdXQgeDp5Ono6YQpncm91cHMgPC0gdXBzZXRfcGxvdHNfbm9zdmFbWyJib3RoX2dyb3VwcyJdXQpzaGFyZWRfZ2VuZXMgPC0gYXR0cihncm91cHMsICJlbGVtZW50cyIpW2dyb3Vwc1tbN11dXSAlPiUKICBnc3ViKHBhdHRlcm4gPSAiXmdlbmU6IiwgcmVwbGFjZW1lbnQgPSAiIikKc2hhcmVkX2dwIDwtIHNpbXBsZV9ncHJvZmlsZXIoc2hhcmVkX2dlbmVzKQpzaGFyZWRfZ3AkcHZhbHVlX3Bsb3RzJE1GCnNoYXJlZF9ncCRwdmFsdWVfcGxvdHMkQlAKc2hhcmVkX2dwJHB2YWx1ZV9wbG90cyRSRUFDCnNoYXJlZF9ncCRwdmFsdWVfcGxvdHMkV1AKYGBgCgojIyMjIEFkZCBkb25vciB0byB0aGUgY29udHJhc3RzLCBzdmEKCmBgYHtyIGRvbm9yX2RydWdfenltb19ldGN9CmhzX25vcG93ZXJfc3ZhX2RlIDwtIGFsbF9wYWlyd2lzZShoc19ub3Bvd2VyLCBtb2RlbF9iYXRjaCA9ICJzdmFzZXEiLCBmaWx0ZXIgPSBUUlVFKQpub3Bvd2VyX2tlZXBlcnMgPC0gbGlzdCgKICAiZDAxX3p5bW8iID0gYygiZDAxaW5mejIzIiwgImQwMWluZnoyMiIpLAogICJkMDFfc2J6eW1vIiA9IGMoImQwMWluZnNiejIzIiwgImQwMWluZnNiejIyIiksCiAgImQwMl96eW1vIiA9IGMoImQwMmluZnoyMyIsICJkMDJpbmZ6MjIiKSwKICAiZDAyX3NienltbyIgPSBjKCJkMDJpbmZzYnoyMyIsICJkMDJpbmZzYnoyMiIpLAogICJkMDlfenltbyIgPSBjKCJkMDlpbmZ6MjMiLCAiZDA5aW5mejIyIiksCiAgImQwOV9zYnp5bW8iID0gYygiZDA5aW5mc2J6MjMiLCAiZDA5aW5mc2J6MjIiKSwKICAiZDgxX3p5bW8iID0gYygiZDgxaW5mejIzIiwgImQ4MWluZnoyMiIpLAogICJkODFfc2J6eW1vIiA9IGMoImQ4MWluZnNiejIzIiwgImQ4MWluZnNiejIyIikpCmhzX25vcG93ZXJfc3ZhX3RhYmxlIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIGhzX25vcG93ZXJfc3ZhX2RlLCBrZWVwZXJzID0gbm9wb3dlcl9rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9oc19ub3Bvd2VyX3RhYmxlLXZ7dmVyfS54bHN4IikpCiMjICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4dHJhX2NvbnRyYXN0cyA9IGV4dHJhKQpoc19ub3Bvd2VyX3N2YV9zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICBoc19ub3Bvd2VyX3N2YV90YWJsZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvaHNfbm9wb3dlcl9zdmFfc2lnLXZ7dmVyfS54bHN4IikpCgpkMDFkMDJfenltb19zdmFfY29tcCA8LSBtZXJnZShoc19ub3Bvd2VyX3N2YV90YWJsZVtbImRhdGEiXV1bWyJkMDFfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaHNfbm9wb3dlcl9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDAyX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJ5PSJyb3cubmFtZXMiKQpkMDEwMl96eW1vX3N2YV9wbG90IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIoZDAxZDAyX3p5bW9fc3ZhX2NvbXBbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCmQwMTAyX3p5bW9fc3ZhX3Bsb3Qkc2NhdHRlcgpkMDEwMl96eW1vX3N2YV9wbG90JGNvcnJlbGF0aW9uCmQwMTAyX3p5bW9fc3ZhX3Bsb3QkbG1fcnNxCgpkMDlkODFfenltb19zdmFfY29tcCA8LSBtZXJnZShoc19ub3Bvd2VyX3N2YV90YWJsZVtbImRhdGEiXV1bWyJkMDlfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaHNfbm9wb3dlcl9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDgxX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJ5PSJyb3cubmFtZXMiKQpkMDk4MV96eW1vX3N2YV9wbG90IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIoZDA5ZDgxX3p5bW9fc3ZhX2NvbXBbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCmQwOTgxX3p5bW9fc3ZhX3Bsb3Qkc2NhdHRlcgpkMDk4MV96eW1vX3N2YV9wbG90JGNvcnJlbGF0aW9uCmQwOTgxX3p5bW9fc3ZhX3Bsb3QkbG1fcnNxCgpkMDFkODFfenltb19zdmFfY29tcCA8LSBtZXJnZShoc19ub3Bvd2VyX3N2YV90YWJsZVtbImRhdGEiXV1bWyJkMDFfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaHNfbm9wb3dlcl9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDgxX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJ5PSJyb3cubmFtZXMiKQpkMDE4MV96eW1vX3N2YV9wbG90IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIoZDAxZDgxX3p5bW9fc3ZhX2NvbXBbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCmQwMTgxX3p5bW9fc3ZhX3Bsb3Qkc2NhdHRlcgpkMDE4MV96eW1vX3N2YV9wbG90JGNvcnJlbGF0aW9uCmQwMTgxX3p5bW9fc3ZhX3Bsb3QkbG1fcnNxCgp1cHNldF9wbG90c19zdmEgPC0gdXBzZXRyX3NpZyhoc19ub3Bvd2VyX3N2YV9zaWcsIGJvdGg9VFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29udHJhc3RzPWMoImQwMV96eW1vIiwgImQwMl96eW1vIiwgImQwOV96eW1vIiwgImQ4MV96eW1vIikpCnVwc2V0X3Bsb3RzX3N2YSR1cAp1cHNldF9wbG90c19zdmEkZG93bgp1cHNldF9wbG90c19zdmEkYm90aAojIyBUaGUgN3RoIGVsZW1lbnQgaW4gdGhlIGJvdGggZ3JvdXBzIGxpc3QgaXMgdGhlIHNldCBzaGFyZWQgYW1vbmcgYWxsIGRvbm9ycy4KIyMgSSBkb24ndCBmZWVsIGxpa2Ugd3JpdGluZyBvdXQgeDp5Ono6YQpncm91cHMgPC0gdXBzZXRfcGxvdHNfc3ZhW1siYm90aF9ncm91cHMiXV0Kc2hhcmVkX2dlbmVzIDwtIGF0dHIoZ3JvdXBzLCAiZWxlbWVudHMiKVtncm91cHNbWzddXV0gJT4lCiAgZ3N1YihwYXR0ZXJuID0gIl5nZW5lOiIsIHJlcGxhY2VtZW50ID0gIiIpCnNoYXJlZF9ncCA8LSBzaW1wbGVfZ3Byb2ZpbGVyKHNoYXJlZF9nZW5lcykKc2hhcmVkX2dwJHB2YWx1ZV9wbG90cyRNRgpzaGFyZWRfZ3AkcHZhbHVlX3Bsb3RzJEJQCnNoYXJlZF9ncCRwdmFsdWVfcGxvdHMkUkVBQwpzaGFyZWRfZ3AkcHZhbHVlX3Bsb3RzJFdQCmBgYAoKIyMjIERvbm9yIGNvbXBhcmlzb24KCmBgYHtyIGRvbm9yX2RlfQpoc19kb25vcnMgPC0gc2V0X2V4cHRfY29uZGl0aW9ucyhoc19tYWNyLCBmYWN0ID0gImRvbm9yIikKZG9ub3JfZGUgPC0gYWxsX3BhaXJ3aXNlKGhzX2Rvbm9ycywgbW9kZWxfYmF0Y2g9InN2YXNlcSIsIGZpbHRlcj1UUlVFKQpkb25vcl90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBkb25vcl9kZSwKICBleGNlbD1nbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2Rvbm9yX3RhYmxlcy12e3Zlcn0ueGxzeCIpKQpkb25vcl9zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICBkb25vcl90YWJsZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvZG9ub3Jfc2lnLXZ7dmVyfS54bHN4IikpCmBgYAoKIyMjIyBQcmltYXJ5IHF1ZXJ5IGNvbnRyYXN0cwoKVGhlIGZpbmFsIGNvbnRyYXN0IGluIHRoaXMgbGlzdCBpcyBpbnRlcmVzdGluZyBiZWNhdXNlIGl0IGRlcGVuZHMgb24KdGhlIGV4dHJhIGNvbnRyYXN0cyBhcHBsaWVkIHRvIHRoZSBhbGxfcGFpcndpc2UoKSBhYm92ZS4gIEluIG15IHdheSBvZgp0aGlua2luZywgdGhlIHByaW1hcnkgY29tcGFyaXNvbnMgdG8gY29uc2lkZXIgYXJlIGVpdGhlciBjcm9zcy1kcnVnIG9yCmNyb3NzLXN0cmFpbiwgYnV0IG5vdCBib3RoLiAgSG93ZXZlciBJIHRoaW5rIGluIGF0IGxlYXN0IGEgZmV3Cmluc3RhbmNlcyBPbGdhIGlzIGludGVyZXN0ZWQgaW4gc3RyYWluK2RydWcgLyB1bmluZmVjdGVkK25vZHJ1Zy4KCiMjIyMgV3JpdGUgY29udHJhc3QgcmVzdWx0cwoKTm93IGxldCB1cyB3cml0ZSBvdXQgdGhlIHhsc3ggZmlsZSBjb250YWluaW5nIHRoZSBhYm92ZSBjb250cmFzdHMuClRoZSBmaWxlIHdpdGggdGhlIHN1ZmZpeCBfdGFibGUtdmVyc2lvbiB3aWxsIHRoZXJlZm9yZSBjb250YWluIGFsbApnZW5lcyBhbmQgdGhlIGZpbGUgd2l0aCB0aGUgc3VmZml4IF9zaWctdmVyc2lvbiB3aWxsIGNvbnRhaW4gb25seQp0aG9zZSBkZWVtZWQgc2lnbmlmaWNhbnQgdmlhIG91ciBkZWZhdWx0IGNyaXRlcmlhIG9mIERFU2VxMiB8bG9nRkN8ID49IDEuMAphbmQgYWRqdXN0ZWQgcC12YWx1ZSA8PSAwLjA1LgoKIyBPdmVyIHJlcHJlc2VudGF0aW9uIHNlYXJjaGVzCgpJIGRlY2lkZWQgdG8gbWFrZSBvbmUgaW5pdGlhbGx5IHNtYWxsLCBidXQgSSB0aGluayBxdWlja2x5IGJpZyBjaGFuZ2UKdG8gdGhlIG9yZ2FuaXphdGlvbiBvZiB0aGlzIGRvY3VtZW50OiAgSSBhbSBtb3ZpbmcgdGhlIEdTRUEgc2VhcmNoZXMKdXAgdG8gaW1tZWRpYXRlbHkgYWZ0ZXIgdGhlIERFLiAgSSB3aWxsIHRoZW4gbW92ZSB0aGUgcGxvdHMgb2YgdGhlCmdwcm9maWxlciByZXN1bHRzIHRvIGltbWVkaWF0ZWx5IGFmdGVyIHRoZSB2YXJpb3VzIHZvbGNhbm8gcGxvdHMgc28KdGhhdCBpdCBpcyBlYXNpZXIgdG8gaW50ZXJwcmV0IHRoZW0uCgpgYGB7ciBvdmVyX3JlcHJlc2VudF9kYXRhfQphbGxfZ3AgPC0gYWxsX2dwcm9maWxlcihoc19tYWNyX3NpZykKZm9yIChnIGluIHNlcV9sZW4obGVuZ3RoKGFsbF9ncCkpKSB7CiAgbmFtZSA8LSBuYW1lcyhhbGxfZ3ApW2ddCiAgZGF0dW0gPC0gYWxsX2dwW1tuYW1lXV0KICBmaWxlbmFtZSA8LSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2dwcm9maWxlci97bmFtZX1fZ3Byb2ZpbGVyLXZ7dmVyfS54bHN4IikKICB3cml0dGVuIDwtIHNtKHdyaXRlX2dwcm9maWxlcl9kYXRhKGRhdHVtLCBleGNlbCA9IGZpbGVuYW1lKSkKfQpgYGAKCiMgUGxvdCBjb250cmFzdHMgb2YgaW50ZXJlc3QKCk9uZSBzdWdnZXN0aW9uIEkgcmVjZWl2ZWQgcmVjZW50bHkgd2FzIHRvIHNldCB0aGUgYXhlcyBmb3IgdGhlc2UKdm9sY2FubyBwbG90cyB0byBiZSBzdGF0aWMgcmF0aGVyIHRoYW4gbGV0IGdncGxvdCBjaG9vc2UgaXRzIG93bi4gIEkKYW0gYXNzdW1pbmcgdGhpcyBpcyBvbmx5IHJlbGV2YW50IGZvciBwYWlycyBvZiBjb250cmFzdHMsIGJ1dCB0aGF0Cm1pZ2h0IG5vdCBiZSB0cnVlLgoKIyMgSW5kaXZpZHVhbCB6eW1vZGVtZXMgdnMuIHVuaW5mZWN0ZWQKCiMjIyBJbmZlY3RlZCB3aXRoIHoyLjMgbm8gQW50aW1vbmlhbCB2cy4gVW5pbmZlY3RlZAoKYGBge3Igdm9sY2Fub196MjN1bmluZl9ub3NifQpwbG90X2NvbG9ycyA8LSBnZXRfZXhwdF9jb2xvcnMoaHNfbWFjcl90YWJsZVtbImlucHV0Il1dW1siaW5wdXQiXV0pCnhfbGltaXRzIDwtIGMoLTIwLCAxMCkKCiMjIFRoZSBvcmlnaW5hbCBwbG90IGZyb20gbXkgeGxzeCBmaWxlCmhzX21hY3JfdGFibGUkcGxvdHMkejIzbm9zYl92c191bmluZiRkZXNlcV92b2xfcGxvdHMKCnoyM25vc2JfdnNfdW5pbmZfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGlucHV0ID0gaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNub3NiX3ZzX3VuaW5mIl1dLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwgaW52ZXJ0ID0gVFJVRSwKICBjb2xvcl9oaWdoID0gcGxvdF9jb2xvcnNbWyJ1bmluZm5vbmUiXV0sIGNvbG9yX2xvdyA9IHBsb3RfY29sb3JzW1siaW5mejIzIl1dKQp6MjNub3NiX3ZzX3VuaW5mX3ZvbGNhbm8kcGxvdCArCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IHhfbGltaXRzKQpwbG90bHk6OmdncGxvdGx5KHoyM25vc2JfdnNfdW5pbmZfdm9sY2FubyRwbG90KQoKejIzbm9zYl92c191bmluZl92b2xjYW5vX25vbCA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGlucHV0ID0gaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNub3NiX3ZzX3VuaW5mIl1dLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gTlVMTCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiLCBpbnZlcnQgPSBUUlVFLAogIGNvbG9yX2hpZ2ggPSBwbG90X2NvbG9yc1tbInVuaW5mbm9uZSJdXSwgY29sb3JfbG93ID0gcGxvdF9jb2xvcnNbWyJpbmZ6MjMiXV0pCnoyM25vc2JfdnNfdW5pbmZfdm9sY2Fub19ub2wkcGxvdCArCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IHhfbGltaXRzKQoKYWxsX2dwW1siejIzbm9zYl92c191bmluZl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3VuaW5mX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siS0VHRyJdXQojIyBLRUdHLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzbm9zYl92c191bmluZl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzbm9zYl92c191bmluZl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlRGIl1dCiMjIFRGLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzbm9zYl92c191bmluZl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIldQIl1dCiMjIFdpa2lQYXRod2F5cywgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM25vc2JfdnNfdW5pbmZfdXAiXV1bWyJpbnRlcmFjdGl2ZV9wbG90cyJdXVtbIldQIl1dCgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3VuaW5mX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dCiMjIFJlYWN0b21lLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3VuaW5mX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIzbm9zYl92c191bmluZl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmBgYAoKIyMjIEluZmVjdGVkIHdpdGggejIuMiBubyBBbnRpbW9uaWFsIHZzLiBVbmluZmVjdGVkCgpgYGB7ciB2b2xjYW5vX3oyMnVuaW5mX25vc2J9CiMjIFRoZSBvcmlnaW5hbCBwbG90CmhzX21hY3JfdGFibGUkcGxvdHMkejIybm9zYl92c191bmluZiRkZXNlcV92b2xfcGxvdHMKCnoyMm5vc2JfdnNfdW5pbmZfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIybm9zYl92c191bmluZiJdXSwgInoyMm5vc2JfdnNfdW5pbmYiLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwgaW52ZXJ0ID0gVFJVRSwKICBjb2xvcl9oaWdoID0gcGxvdF9jb2xvcnNbWyJ1bmluZm5vbmUiXV0sIGNvbG9yX2xvdyA9IHBsb3RfY29sb3JzW1siaW5mejIyIl1dKQp6MjJub3NiX3ZzX3VuaW5mX3ZvbGNhbm8kcGxvdCArCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IHhfbGltaXRzKQpwbG90bHk6OmdncGxvdGx5KHoyMm5vc2JfdnNfdW5pbmZfdm9sY2FubyRwbG90KQoKejIybm9zYl92c191bmluZl92b2xjYW5vX25vbCA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIybm9zYl92c191bmluZiJdXSwgInoyMm5vc2JfdnNfdW5pbmYiLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gTlVMTCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiLCBpbnZlcnQgPSBUUlVFLAogIGNvbG9yX2hpZ2ggPSBwbG90X2NvbG9yc1tbInVuaW5mbm9uZSJdXSwgY29sb3JfbG93ID0gcGxvdF9jb2xvcnNbWyJpbmZ6MjIiXV0pCnoyMm5vc2JfdnNfdW5pbmZfdm9sY2Fub19ub2wkcGxvdCArCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IHhfbGltaXRzKQoKYWxsX2dwW1siejIybm9zYl92c191bmluZl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4yIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjJub3NiX3ZzX3VuaW5mX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siTUYiXV0KIyMgTUYsIHp5bW9kZW1lMi4yIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjJub3NiX3ZzX3VuaW5mX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4yIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjJub3NiX3ZzX3VuaW5mX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siV1AiXV0KIyMgV2lraVBhdGh3YXlzLCB6eW1vZGVtZTIuMiB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KCmFsbF9ncFtbInoyMm5vc2JfdnNfdW5pbmZfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4yIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmFsbF9ncFtbInoyMm5vc2JfdnNfdW5pbmZfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMiB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgphbGxfZ3BbWyJ6MjJub3NiX3ZzX3VuaW5mX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJURiJdXQojIyBURiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYGBgCgojIyMgSW5mZWN0ZWQgd2l0aCB6Mi4zIHRyZWF0ZWQgdnMuIFVuaW5mZWN0ZWQgdHJlYXRlZAoKYGBge3Igdm9sY2Fub196MjN1bmluZl9zYn0KIyMgVGhlIG9yaWdpbmFsIHBsb3QKaHNfbWFjcl90YWJsZSRwbG90cyR6MjNzYl92c19zYiRkZXNlcV92b2xfcGxvdHMKCnoyM3NiX3ZzX3VuaW5mc2Jfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIzc2JfdnNfc2IiXV0sICJ6MjNzYl92c19zYiIsCiAgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgbGFiZWwgPSAxMCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiLCBpbnZlcnQgPSBUUlVFLAogIGNvbG9yX2hpZ2ggPSBwbG90X2NvbG9yc1tbImluZnNiejIzIl1dLCBjb2xvcl9sb3cgPSBwbG90X2NvbG9yc1tbInVuaW5mc2Jub25lIl1dKQp6MjNzYl92c191bmluZnNiX3ZvbGNhbm8kcGxvdCArCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IHhfbGltaXRzKQpwbG90bHk6OmdncGxvdGx5KHoyM3NiX3ZzX3VuaW5mc2Jfdm9sY2FubyRwbG90KQoKejIzc2JfdnNfdW5pbmZzYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c19zYiJdXSwgInoyM3NiX3ZzX3NiIiwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBsYWJlbCA9IE5VTEwsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwgaW52ZXJ0ID0gVFJVRSwKICBjb2xvcl9oaWdoID0gcGxvdF9jb2xvcnNbWyJpbmZzYnoyMyJdXSwgY29sb3JfbG93ID0gcGxvdF9jb2xvcnNbWyJ1bmluZnNibm9uZSJdXSkKejIzc2JfdnNfdW5pbmZzYl92b2xjYW5vJHBsb3QgKwogIHNjYWxlX3hfY29udGludW91cyhsaW1pdHMgPSB4X2xpbWl0cykKYGBgCgojIyMgSW5mZWN0ZWQgd2l0aCB6Mi4zIHVudHJlYXRlZCB2cy4gejIuMiB1bnRyZWF0ZWQKCmBgYHtyIHZvbGNhbm9fejIzbm9zYl96MjJub3NifQojIyBUaGUgb3JpZ2luYWwgcGxvdApoc19tYWNyX3RhYmxlJHBsb3RzJHoyM25vc2JfdnNfejIybm9zYiRkZXNlcV92b2xfcGxvdHMKCnoyM25vc2JfdnNfejIybm9zYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV0sICJ6MjNub3NiX3ZzX3oyMm5vc2IiLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwgaW52ZXJ0ID0gVFJVRSwKICBjb2xvcl9oaWdoID0gcGxvdF9jb2xvcnNbWyJpbmZ6MjMiXV0sIGNvbG9yX2xvdyA9IHBsb3RfY29sb3JzW1siaW5mejIyIl1dKQp6MjNub3NiX3ZzX3oyMm5vc2Jfdm9sY2FubyRwbG90ICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGltaXRzID0geF9saW1pdHMpCmBgYAoKIyMjIEluZmVjdGVkIHdpdGggejIuMyB0cmVhdGVkIHZzLiB6Mi4yIHRyZWF0ZWQKCmBgYHtyIHZvbGNhbm9fejIzc2JfejIyc2J9CiMjIFRoZSBvcmlnaW5hbCBwbG90CmhzX21hY3JfdGFibGUkcGxvdHMkejIzc2JfdnNfejIyc2IkZGVzZXFfdm9sX3Bsb3RzCgp6MjNzYl92c196MjJzYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c196MjJzYiJdXSwgInoyM3NiX3ZzX3oyMnNiIiwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIsIGludmVydCA9IEZBTFNFLAogIGNvbG9yX2hpZ2ggPSBwbG90X2NvbG9yc1tbImluZnNiejIzIl1dLCBjb2xvcl9sb3cgPSBwbG90X2NvbG9yc1tbImluZnNiejIyIl1dKQp6MjNzYl92c196MjJzYl92b2xjYW5vJHBsb3QgKwogIHNjYWxlX3hfY29udGludW91cyhsaW1pdHMgPSB4X2xpbWl0cykKYGBgCgojIyMgSW5mZWN0ZWQgd2l0aCB6Mi4zIFNCIHRyZWF0ZWQgdnMuIHoyLjMgdW50cmVhdGVkCgpgYGB7ciB2b2xjYW5vX3oyM3NiX3oyM25vc2J9CiMjIFRoZSBvcmlnaW5hbCBwbG90CmhzX21hY3JfdGFibGUkcGxvdHMkejIzc2JfdnNfejIzbm9zYiRkZXNlcV92b2xfcGxvdHMKCnoyM3NiX3ZzX3oyM25vc2Jfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIzc2JfdnNfejIzbm9zYiJdXSwgInoyM3NiX3ZzX3oyM25vc2IiLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwgaW52ZXJ0ID0gVFJVRSwKICBjb2xvcl9sb3cgPSBwbG90X2NvbG9yc1tbImluZnNiejIzIl1dLCBjb2xvcl9oaWdoID0gcGxvdF9jb2xvcnNbWyJpbmZ6MjMiXV0pCnoyM3NiX3ZzX3oyM25vc2Jfdm9sY2FubyRwbG90ICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGltaXRzID0geF9saW1pdHMpCmBgYAoKIyMjIEluZmVjdGVkIHdpdGggejIuMyBTQiB0cmVhdGVkIHZzLiB6Mi4zIHVudHJlYXRlZAoKYGBge3Igdm9sY2Fub196MjJzYl96MjJub3NifQojIyBUaGUgb3JpZ2luYWwgcGxvdApoc19tYWNyX3RhYmxlJHBsb3RzJHoyMnNiX3ZzX3oyMm5vc2IkZGVzZXFfdm9sX3Bsb3RzCgp6MjJzYl92c196MjJub3NiX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICBoc19tYWNyX3RhYmxlW1siZGF0YSJdXVtbInoyMnNiX3ZzX3oyMm5vc2IiXV0sICJ6MjJzYl92c196MjJub3NiIiwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIsIGludmVydCA9IFRSVUUsCiAgY29sb3JfbG93ID0gcGxvdF9jb2xvcnNbWyJpbmZzYnoyMiJdXSwgY29sb3JfaGlnaCA9IHBsb3RfY29sb3JzW1siaW5mejIyIl1dKQp6MjJzYl92c196MjJub3NiX3ZvbGNhbm8kcGxvdCArCiAgc2NhbGVfeF9jb250aW51b3VzKGxpbWl0cyA9IHhfbGltaXRzKQpgYGAKCiMjIyBJbmZlY3RlZCB3aXRoIHoyLjMgU0IgdHJlYXRlZCB2cy4gdW5pbmZlY3RlZCB0cmVhdGVkCgpgYGB7ciB2b2xjYW5vX3oyM3NiX3VuaW5mbm9zYn0KIyMgVGhlIG9yaWdpbmFsIHBsb3QKaHNfbWFjcl90YWJsZSRwbG90cyR6MjNzYl92c19zYiRkZXNlcV92b2xfcGxvdHMKCnoyM3NiX3ZzX3NiX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICBoc19tYWNyX3RhYmxlW1siZGF0YSJdXVtbInoyM3NiX3ZzX3NiIl1dLCAiejIzc2JfdnNfc2IiLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwgaW52ZXJ0ID0gVFJVRSwKICBjb2xvcl9sb3cgPSBwbG90X2NvbG9yc1tbImluZnNiejIzIl1dLCBjb2xvcl9oaWdoID0gcGxvdF9jb2xvcnNbWyJ1bmluZnNibm9uZSJdXSkKejIzc2JfdnNfc2Jfdm9sY2FubyRwbG90ICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGltaXRzID0geF9saW1pdHMpCmBgYAoKIyMjIEluZmVjdGVkIHdpdGggejIuMiBTQiB0cmVhdGVkIHZzLiB1bmluZmVjdGVkIHRyZWF0ZWQKCmBgYHtyIHZvbGNhbm9fejIyc2JfdW5pbmZub3NifQojIyBUaGUgb3JpZ2luYWwgcGxvdApoc19tYWNyX3RhYmxlJHBsb3RzJHoyMnNiX3ZzX3NiJGRlc2VxX3ZvbF9wbG90cwoKejIyc2JfdnNfc2Jfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIyc2JfdnNfc2IiXV0sICJ6MjJzYl92c19zYiIsCiAgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgbGFiZWwgPSAxMCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiLCBpbnZlcnQgPSBUUlVFLAogIGNvbG9yX2xvdyA9IHBsb3RfY29sb3JzW1siaW5mc2J6MjIiXV0sIGNvbG9yX2hpZ2ggPSBwbG90X2NvbG9yc1tbInVuaW5mc2Jub25lIl1dKQp6MjJzYl92c19zYl92b2xjYW5vJHBsb3QgKwogIHNjYWxlX3hfY29udGludW91cyhsaW1pdHMgPSB4X2xpbWl0cykKYGBgCgoKCgoKQ2hlY2sgdGhhdCBteSBwZXJjZXB0aW9uIG9mIHRoZSBudW1iZXIgb2Ygc2lnbmlmaWNhbnQgdXAvZG93biBnZW5lcwptYXRjaGVzIHdoYXQgdGhlIHRhYmxlL3Zlbm4gc2F5cy4KCmBgYHtyIGNoZWNrX3NpZ192ZW5uMDF9CnNoYXJlZCA8LSBWZW5uZXJhYmxlOjpWZW5uKGxpc3QoImRydWciID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyM3NiX3ZzX3VuaW5mIl1dKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAibm9kcnVnIiA9IHJvd25hbWVzKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV1bWyJ6MjNub3NiX3ZzX3VuaW5mIl1dKSkpCnBwKGZpbGU9ImltYWdlcy96MjNfdnNfdW5pbmZfdmVubl91cC5wbmciKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKZGV2Lm9mZigpClZlbm5lcmFibGU6OnBsb3Qoc2hhcmVkKQojIyBJIHNlZSA5MTAgejIzc2IvdW5pbmYgYW5kIDY3MCBubyB6MjNub3NiL3VuaW5mIGdlbmVzIGluIHRoZSB2ZW5uIGRpYWdyYW0uCmxlbmd0aChzaGFyZWRASW50ZXJzZWN0aW9uU2V0c1tbIjEwIl1dKSArIGxlbmd0aChzaGFyZWRASW50ZXJzZWN0aW9uU2V0c1tbIjExIl1dKQpkaW0oaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyM3NiX3ZzX3VuaW5mIl1dKQoKc2hhcmVkIDwtIFZlbm5lcmFibGU6OlZlbm4obGlzdCgiZHJ1ZyIgPSByb3duYW1lcyhoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1siejIyc2JfdnNfdW5pbmYiXV0pLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJub2RydWciID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyMm5vc2JfdnNfdW5pbmYiXV0pKSkKcHAoZmlsZT0iaW1hZ2VzL3oyMl92c191bmluZl92ZW5uX3VwLnBuZyIpClZlbm5lcmFibGU6OnBsb3Qoc2hhcmVkKQpkZXYub2ZmKCkKVmVubmVyYWJsZTo6cGxvdChzaGFyZWQpCgpsZW5ndGgoc2hhcmVkQEludGVyc2VjdGlvblNldHNbWyIxMCJdXSkgKyBsZW5ndGgoc2hhcmVkQEludGVyc2VjdGlvblNldHNbWyIxMSJdXSkKZGltKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV1bWyJ6MjJzYl92c191bmluZiJdXSkKYGBgCgoqTm90ZSB0byBzZWxmKjogVGhlcmUgaXMgYW4gZXJyb3IgaW4gbXkgdm9sY2FubyBwbG90IGNvZGUgd2hpY2ggdGFrZXMKZWZmZWN0IHdoZW4gdGhlIG51bWVyYXRvciBhbmQgZGVub21pbmF0b3Igb2YgdGhlIGFsbF9wYWlyd2lzZQpjb250cmFzdHMgYXJlIGRpZmZlcmVudCB0aGFuIHRob3NlIGluIGNvbWJpbmVfZGVfdGFibGVzLiAgSXQgaXMKcHV0dGluZyB0aGUgdXBzL2Rvd25zIG9uIHRoZSBjb3JyZWN0IHNpZGVzIG9mIHRoZSBwbG90LCBidXQgY2FsbGluZwp0aGUgZG93biBnZW5lcyAndXAnIGFuZCB2aWNlLXZlcnNhLiAgVGhlIHJlYXNvbiBmb3IgdGhpcyBpcyB0aGF0IEkgZGlkCmEgY2hlY2sgZm9yIHRoaXMgaGFwcGVuaW5nLCBidXQgdXNlZCB0aGUgd3JvbmcgYXJndW1lbnQgdG8gaGFuZGxlIGl0LgoKQSBsaWtlbHkgYml0IG9mIHRleHQgZm9yIHRoZXNlIHZvbGNhbm8gcGxvdHM6CgpUaGUgc2V0IG9mIGdlbmVzIGRpZmZlcmVudGlhbGx5IGV4cHJlc3NlZCBiZXR3ZWVuIHRoZSB6eW1vZGVtZSAyLjMKYW5kIHVuaW5mZWN0ZWQgc2FtcGxlcyB3aXRob3V0IGRydWdlIHRyZWF0bWVudCB3YXMgcXVhbnRpZmllZCB3aXRoCkRFU2VxMiBhbmQgaW5jbHVkZWQgc3Vycm9nYXRlIGVzdGltYXRlcyBmcm9tIFNWQS4gIEdpdmVuIHRoZSBjcml0ZXJpYQpvZiBzaWduaWZpY2FuY2Ugb2YgYSBhYnMobG9nRkMpID49IDEuMCBhbmQgZmFsc2UgZGlzY292ZXJ5IHJhdGUKYWRqdXN0ZWQgcC12YWx1ZSA8PSAwLjA1LCA2NzAgZ2VuZXMgd2VyZSBvYnNlcnZlZCBhcyBzaWduaWZpY2FudGx5CmluY3JlYXNlZCBiZXR3ZWVuIHRoZSBpbmZlY3RlZCBhbmQgdW5pbmZlY3RlZCBzYW1wbGVzIGFuZCAzODYgd2VyZQpvYnNlcnZlZCBhcyBkZWNyZWFzZWQuIFRoZSBtb3N0IGluY3JlYXNlZCBnZW5lcyBmcm9tIHRoZSB1bmluZmVjdGVkCnNhbXBsZXMgaW5jbHVkZSBzb21lIHdoaWNoIGFyZSBwb3RlbnRpYWxseSBpbmRpY2F0aXZlIG9mIGEgc3Ryb25nCmlubmF0ZSBpbW11bmUgcmVzcG9uc2UgYW5kIHRoZSBpbmZsYW1tYXRvcnkgcmVzcG9uc2UuCgpJbiBjb250cmFzdCwgd2hlbiB0aGUgc2V0IG9mIGdlbmVzIGRpZmZlcmVudGlhbGx5IGV4cHJlc3NlZCBiZXR3ZWVuCnRoZSB6eW1vZGVtZSAyLjIgYW5kIHVuaW5mZWN0ZWQgc2FtcGxlcyB3YXMgdmlzdWFsaXplZCwgb25seSA3IGdlbmVzCndlcmUgb2JzZXJ2ZWQgYXMgZGVjcmVhc2VkIGFuZCA0MzUgaW5jcmVhc2VkLiAgVGhlIGluZmxhbW1hdG9yeQpyZXNwb25zZSB3YXMgc2lnbmlmaWNhbnRseSBsZXNzIGFwcGFyZW50IGluIHRoaXMgc2V0LCBidXQgaW5zdGVhZAppbmNsdWRlZCBnZW5lcyByZWxhdGVkIHRvIHRyYW5zcG9ydGVyIGFjdGl2aXR5IGFuZCBveGlkb3JlZHVjdGFzZXMuCgojIyBEaXJlY3Qgenltb2RlbWUgY29tcGFyaXNvbnMKCkFuIG9ydGhvZ29uYWwgY29tcGFyaXNvbiB0byB0aGF0IHBlcmZvcm1lZCBhYm92ZSBpcyB0byBkaXJlY3RseQpjb21wYXJlIHRoZSB6eW1vZGVtZSAyLjMgYW5kIDIuMiBzYW1wbGVzIHdpdGggYW5kIHdpdGhvdXQgYW50aW1vbmlhbAp0cmVhdG1lbnQuCgpgYGB7ciB6MjJ6MjNfY29tcGFyaXNvbl9wbG90c30KejIzbm9zYl92c196MjJub3NiX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2RlKAogIHRhYmxlID0gaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV0sCiAgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgc2hhcGVzX2J5X3N0YXRlID0gRkFMU0UsIGNvbG9yX2J5ID0gImZjIiwgIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIikKcGxvdGx5OjpnZ3Bsb3RseSh6MjNub3NiX3ZzX3oyMm5vc2Jfdm9sY2FubyRwbG90KQoKejIzc2JfdnNfejIyc2Jfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fZGUoCiAgdGFibGUgPSBoc19tYWNyX3RhYmxlW1siZGF0YSJdXVtbInoyM3NiX3ZzX3oyMnNiIl1dLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIHNoYXBlc19ieV9zdGF0ZSA9IEZBTFNFLCBjb2xvcl9ieSA9ICJmYyIsICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIpCnBsb3RseTo6Z2dwbG90bHkoejIzc2JfdnNfejIyc2Jfdm9sY2FubyRwbG90KQpgYGAKCmBgYHtyIHoyM25vc2JfdnNfejIybm9zYl9wbG90c30KejIzbm9zYl92c196MjJub3NiX3ZvbGNhbm8kcGxvdCArCiAgeGxpbSgtMTAsIDEwKSArCiAgeWxpbSgwLCA2MCkKCnBwKGZpbGU9ImltYWdlcy96MjNub3NiX3ZzX3oyMm5vc2JfcmVhY3RvbWVfdXAucG5nIiwgaW1hZ2U9YWxsX2dwW1siejIzbm9zYl92c196MjJub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXSwgaGVpZ2h0PTEyLCB3aWR0aD05KQojIyBSZWFjdG9tZSwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM25vc2JfdnNfejIybm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIktFR0ciXV0KIyMgS0VHRywgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM25vc2JfdnNfejIybm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzbm9zYl92c196MjJub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJXUCJdXQojIyBXaWtpUGF0aHdheXMsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3oyMm5vc2JfdXAiXV1bWyJpbnRlcmFjdGl2ZV9wbG90cyJdXVtbIldQIl1dCgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3oyMm5vc2JfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmFsbF9ncFtbInoyM25vc2JfdnNfejIybm9zYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siTUYiXV0KIyMgTUYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmFsbF9ncFtbInoyM25vc2JfdnNfejIybm9zYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmBgYAoKYGBge3IgejIzX3ZzX3oyMnNiX3Bsb3RzfQp6MjNzYl92c196MjJzYl92b2xjYW5vJHBsb3QgKwogIHhsaW0oLTEwLCAxMCkgKwogIHlsaW0oMCwgNjApCgpwcChmaWxlPSJpbWFnZXMvejIzc2JfdnNfejIyc2JfcmVhY3RvbWVfdXAucG5nIiwgaW1hZ2U9YWxsX2dwW1siejIzc2JfdnNfejIyc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dLCBoZWlnaHQ9MTIsIHdpZHRoPTkpCiMjIFJlYWN0b21lLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIyc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJLRUdHIl1dCiMjIEtFR0csIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNzYl92c196MjJzYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIyc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJURiJdXQojIyBURiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM3NiX3ZzX3oyMnNiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siV1AiXV0KIyMgV2lraVBhdGh3YXlzLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIyc2JfdXAiXV1bWyJpbnRlcmFjdGl2ZV9wbG90cyJdXVtbIldQIl1dCgphbGxfZ3BbWyJ6MjNzYl92c196MjJzYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQojIyBSZWFjdG9tZSwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIzc2JfdnNfejIyc2JfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgphbGxfZ3BbWyJ6MjNzYl92c196MjJzYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmBgYAoKCmBgYHtyIHoyM3NiX3ZzX3oyMnNiX3Zlbm59CnNoYXJlZCA8LSBWZW5uZXJhYmxlOjpWZW5uKGxpc3QoImRydWciID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyM3NiX3ZzX3oyMnNiIl1dKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAibm9kcnVnIiA9IHJvd25hbWVzKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV0pKSkKcHAoZmlsZT0iaW1hZ2VzL2RydWdfbm9kcnVnX3Zlbm5fdXAucG5nIikKVmVubmVyYWJsZTo6cGxvdChzaGFyZWQpCmRldi5vZmYoKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKCnNoYXJlZCA8LSBWZW5uZXJhYmxlOjpWZW5uKGxpc3QoImRydWciID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbImRvd25zIl1dW1siejIzc2JfdnNfejIyc2IiXV0pLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJub2RydWciID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbImRvd25zIl1dW1siejIzbm9zYl92c196MjJub3NiIl1dKSkpCnBwKGZpbGU9ImltYWdlcy9kcnVnX25vZHJ1Z192ZW5uX2Rvd24ucG5nIikKVmVubmVyYWJsZTo6cGxvdChzaGFyZWQpCmRldi5vZmYoKQpgYGAKCkEgc2xpZ2h0bHkgZGlmZmVyZW50IHdheSBvZiBsb29raW5nIGF0IHRoZSBkaWZmZXJlbmNlcyBiZXR3ZWVuIHRoZSB0d28Kenltb2RlbWUgaW5mZWN0aW9ucyBpcyB0byBkaXJlY3RseSBjb21wYXJlIHRoZSBpbmZlY3RlZCBzYW1wbGVzIHdpdGgKYW5kIHdpdGhvdXQgZHJ1Zy4gIFRodXMsIHdoZW4gYSB2b2xjYW5vIHBsb3Qgc2hvd2luZyB0aGUgY29tcGFyaXNvbiBvZgp0aGUgenltb2RlbWUgMi4zIHZzLiAyLjIgc2FtcGxlcyB3YXMgcGxvdHRlZCwgNDg0IGdlbmVzIHdlcmUgb2JzZXJ2ZWQKYXMgaW5jcmVhc2VkIGFuZCA0MjIgZGVjcmVhc2VkOyB0aGVzZSBncm91cHMgaW5jbHVkZSBtYW55IG9mIHRoZSBzYW1lCmluZmxhbW1hdG9yeSAodXApIGFuZCBtZW1icmFuZSAoZG93bikgZ2VuZXMuCgpTaW1pbGFyIHBhdHRlcm5zIHdlcmUgb2JzZXJ2ZWQgd2hlbiB0aGUgYW50aW1vbmlhbCB3YXMgaW5jbHVkZWQuClRodXMsIHdoZW4gYSBWZW5uIGRpYWdyYW0gb2YgdGhlIHR3byBzZXRzIG9mIGluY3JlYXNlZCBnZW5lcyB3YXMKcGxvdHRlZCwgYSBzaWduaWZpY2FudCBudW1iZXIgb2YgdGhlIGdlbmVzIHdhcyBvYnNlcnZlZCBhcyBpbmNyZWFzZWQKKDMxMykgYW5kIGRlY3JlYXNlZCAoMjQ0KSBpbiBib3RoIHRoZSB1bnRyZWF0ZWQgYW5kIGFudGltb25pYWwgdHJlYXRlZApzYW1wbGVzLgoKIyMgRHJ1ZyBlZmZlY3RzIG9uIGVhY2ggenltb2RlbWUgaW5mZWN0aW9uCgpBbm90aGVyIGxpa2VseSBxdWVzdGlvbiBpcyB0byBkaXJlY3RseSBjb21wYXJlIHRoZSB0cmVhdGVkIHZzCnVudHJlYXRlZCBzYW1wbGVzIGZvciBlYWNoIHp5bW9kZW1lIGluZmVjdGlvbiBpbiBvcmRlciB0byB2aXN1YWxpemUKdGhlIGVmZmVjdHMgb2YgYW50aW1vbmlhbC4KCmBgYHtyIHoyM2RydWdfejIzbm9kcnVnX3oyMmRydWdfejIybm9kcnVnX3Bsb3RzfQp6MjNzYl92c196MjNub3NiX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2RlKAogIHRhYmxlID0gaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c196MjNub3NiIl1dLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIHNoYXBlc19ieV9zdGF0ZSA9IEZBTFNFLCBjb2xvcl9ieSA9ICJmYyIsICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIpCnBsb3RseTo6Z2dwbG90bHkoejIzc2JfdnNfejIzbm9zYl92b2xjYW5vJHBsb3QpCnoyMnNiX3ZzX3oyMm5vc2Jfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fZGUoCiAgdGFibGUgPSBoc19tYWNyX3RhYmxlW1siZGF0YSJdXVtbInoyMnNiX3ZzX3oyMm5vc2IiXV0sCiAgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgc2hhcGVzX2J5X3N0YXRlID0gRkFMU0UsIGNvbG9yX2J5ID0gImZjIiwgIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIikKcGxvdGx5OjpnZ3Bsb3RseSh6MjJzYl92c196MjJub3NiX3ZvbGNhbm8kcGxvdCkKYGBgCgpgYGB7ciB6MjNzYl92c196MjNub3NiX3Bsb3RzfQp6MjNzYl92c196MjNub3NiX3ZvbGNhbm8kcGxvdCArCiAgeGxpbSgtOCwgOCkgKwogIHlsaW0oMCwgMjEwKQoKcHAoZmlsZT0iaW1hZ2VzL3oyM3NiX3ZzX3oyM25vc2JfcmVhY3RvbWVfdXAucG5nIiwKICAgaW1hZ2U9YWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0sIGhlaWdodD0xMiwgd2lkdGg9OSkKIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNzYl92c196MjNub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siS0VHRyJdXQojIyBLRUdHLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlRGIl1dCiMjIFRGLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIldQIl1dCiMjIFdpa2lQYXRod2F5cywgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM3NiX3ZzX3oyM25vc2JfdXAiXV1bWyJpbnRlcmFjdGl2ZV9wbG90cyJdXVtbIldQIl1dCgphbGxfZ3BbWyJ6MjNzYl92c196MjNub3NiX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dCiMjIFJlYWN0b21lLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgphbGxfZ3BbWyJ6MjNzYl92c196MjNub3NiX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmBgYAoKYGBge3IgejIyc2JfdnNfejIybm9zYl9wbG90c30KejIyc2JfdnNfejIybm9zYl92b2xjYW5vJHBsb3QgKwogIHhsaW0oLTgsIDgpICsKICB5bGltKDAsIDIxMCkKCnBwKGZpbGU9ImltYWdlcy96MjJzYl92c196MjJub3NiX3JlYWN0b21lX3VwLnBuZyIsCiAgIGltYWdlPWFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dLCBoZWlnaHQ9MTIsIHdpZHRoPTkpCiMjIFJlYWN0b21lLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIyc2JfdnNfejIybm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIktFR0ciXV0KIyMgS0VHRywgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJURiJdXQojIyBURiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJXUCJdXQojIyBXaWtpUGF0aHdheXMsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjJzYl92c196MjJub3NiX3VwIl1dW1siaW50ZXJhY3RpdmVfcGxvdHMiXV1bWyJXUCJdXQoKYWxsX2dwW1siejIyc2JfdnNfejIybm9zYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQojIyBSZWFjdG9tZSwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIyc2JfdnNfejIybm9zYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siTUYiXV0KIyMgTUYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlRGIl1dCiMjIFRGLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgpgYGAKCmBgYHtyIHoyMnNiX3ZzX3oyMm5vc2JfdmVubnN9CnNoYXJlZCA8LSBWZW5uZXJhYmxlOjpWZW5uKGxpc3QoInoyMyIgPSByb3duYW1lcyhoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1siejIzc2JfdnNfejIzbm9zYiJdXSksCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgInoyMiIgPSByb3duYW1lcyhoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1siejIyc2JfdnNfejIybm9zYiJdXSkpKQpwcChmaWxlPSJpbWFnZXMvejIzX3oyMl9kcnVnX3Zlbm5fdXAucG5nIikKVmVubmVyYWJsZTo6cGxvdChzaGFyZWQpCmRldi5vZmYoKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKCnNoYXJlZCA8LSBWZW5uZXJhYmxlOjpWZW5uKGxpc3QoInoyMyIgPSByb3duYW1lcyhoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1siZG93bnMiXV1bWyJ6MjNzYl92c196MjNub3NiIl1dKSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiejIyIiA9IHJvd25hbWVzKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbInoyMnNiX3ZzX3oyMm5vc2IiXV0pKSkKcHAoZmlsZT0iaW1hZ2VzL3oyM196MjJfZHJ1Z192ZW5uX2Rvd24ucG5nIikKVmVubmVyYWJsZTo6cGxvdChzaGFyZWQpCmRldi5vZmYoKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKYGBgCgpOb3RlOiBJIGFtIHNldHRpZyB0aGUgeCBhbmQgeS1heGlzIGJvdW5kYXJpZXMgYnkgYWxsb3dpbmcgdGhlIHBsb3R0ZXIKdG8gcGljayBpdHMgb3duIGF4aXMgdGhlIGZpcnN0IHRpbWUsIHdyaXRpbmcgZG93biB0aGUgcmFuZ2VzIEkKb2JzZXJ2ZSwgYW5kIHRoZW4gc2V0dGluZyB0aGVtIHRvIHRoZSBsYXJnZXN0IG9mIHRoZSBwYWlyLiAgSXQgaXMKdGhlcmVmb3JlIHBvc3NpYmxlIHRoYXQgSSBtaXNzZWQgb25lIG9yIG1vcmUgZ2VuZXMgd2hpY2ggbGllcyBvdXRzaWRlCnRoYXQgcmFuZ2UuCgpUaGUgcHJldmlvdXMgcGxvdHRlZCBjb250cmFzdHMgc291Z2h0IHRvIHNob3cgY2hhbmdlcyBiZXR3ZWVuIHRoZSB0d28Kc3RyYWlucyB6Mi4zIGFuZCB6Mi4yLiAgQ29udmVyc2VseSwgdGhlIHByZXZpb3VzIHZvbGNhbm8gcGxvdHMgc2VlayB0bwpkaXJlY3RseSBjb21wYXJlIGVhY2ggc3RyYWluIGJlZm9yZS9hZnRlciBkcnVnIHRyZWF0bWVudC4KCiMjIExSVCBvZiB0aGUgSHVtYW4gTWFjcm9waGFnZQoKYGBge3IgbHJ0X3RtcmMyX21hY3J9CnRtcmMyX2xydF9zdHJhaW5fZHJ1ZyA8LSBkZXNlcV9scnQoaHNfbWFjciwgaW50ZXJhY3Rvcl9jb2x1bW4gPSAiZHJ1ZyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaW50ZXJlc3RfY29sdW1uID0gIm1hY3JvcGhhZ2V6eW1vZGVtZSIsIGZhY3RvcnMgPSBjKCJkcnVnIiwgIm1hY3JvcGhhZ2V6eW1vZGVtZSIpKQp0bXJjMl9scnRfc3RyYWluX2RydWckY2x1c3Rlcl9kYXRhJHBsb3QKYGBgCgojIyBQYXJhc2l0ZQoKYGBge3IgbHBfZGV9CmxwX21hY3JvcGhhZ2VfZGUgPC0gYWxsX3BhaXJ3aXNlKGxwX21hY3JvcGhhZ2Vfbm9zYiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZWxfYmF0Y2g9InN2YXNlcSIsIGZpbHRlcj1UUlVFKQp0bXJjMl9wYXJhc2l0ZV9rZWVwZXJzIDwtIGxpc3QoCiAgInoyM192c196MjIiID0gYygiejIzIiwgInoyMiIpKQpscF9tYWNyb3BoYWdlX3RhYmxlIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIGxwX21hY3JvcGhhZ2VfZGUsIGtlZXBlcnMgPSB0bXJjMl9wYXJhc2l0ZV9rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9tYWNyb3BoYWdlX3BhcmFzaXRlX2luZmVjdGlvbl9kZS12e3Zlcn0ueGxzeCIpKQpscF9tYWNyb3BoYWdlX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGxwX21hY3JvcGhhZ2VfdGFibGUsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL21hY3JvcGhhZ2VfcGFyYXNpdGVfc2lnLXZ7dmVyfS54bHN4IikpCgpscF9tYWNyb3BoYWdlX3RhYmxlW1sicGxvdHMiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV1bWyJkZXNlcV92b2xfcGxvdHMiXV1bWyJwbG90Il1dCgp1cF9nZW5lcyA8LSBscF9tYWNyb3BoYWdlX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1sxXV0KZGltKHVwX2dlbmVzKQpkb3duX2dlbmVzIDwtIGxwX21hY3JvcGhhZ2Vfc2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbMV1dCmRpbShkb3duX2dlbmVzKQpgYGAKCmBgYHtyIHBhcmFzaXRlX3ZvbGNhbm99CmxwX3oyM3NiX3ZzX3oyMnNiX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2RlKAogIHRhYmxlID0gbHBfbWFjcm9waGFnZV90YWJsZVtbImRhdGEiXV1bWyJ6MjNfdnNfejIyIl1dLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIHNoYXBlc19ieV9zdGF0ZSA9IEZBTFNFLCBjb2xvcl9ieSA9ICJmYyIsICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIpCnBsb3RseTo6Z2dwbG90bHkobHBfejIzc2JfdnNfejIyc2Jfdm9sY2FubyRwbG90KQpscF96MjNzYl92c196MjJzYl92b2xjYW5vJHBsb3QKYGBgCgpgYGB7ciBnb3NlcV9scH0KdXBfZ29zZXEgPC0gc2ltcGxlX2dvc2VxKHVwX2dlbmVzLCBnb19kYiA9IGxwX2dvLCBsZW5ndGhfZGIgPSBscF9sZW5ndGhzKQojIyBWaWV3IGNhdGVnb3JpZXMgb3ZlciByZXByZXNlbnRlZCBpbiB0aGUgMi4zIHNhbXBsZXMKdXBfZ29zZXEkcHZhbHVlX3Bsb3RzJGJwcF9wbG90X292ZXIKZG93bl9nb3NlcSA8LSBzaW1wbGVfZ29zZXEoZG93bl9nZW5lcywgZ29fZGIgPSBscF9nbywgbGVuZ3RoX2RiID0gbHBfbGVuZ3RocykKIyMgVmlldyBjYXRlZ29yaWVzIG92ZXIgcmVwcmVzZW50ZWQgaW4gdGhlIDIuMiBzYW1wbGVzCmRvd25fZ29zZXEkcHZhbHVlX3Bsb3RzJGJwcF9wbG90X292ZXIKCndyaXR0ZW5fZ29zZXEgPC0gd3JpdGVfZ29zZXFfZGF0YSh1cF9nb3NlcSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4Y2VsID0gZ2x1ZSgibHBfbWFjcm9waGFnZV9pbmNyZWFzZWRfejIuM19nb3NlcS12e3Zlcn0ueGxzeCIpKQp3cml0dGVuX2dvc2VxIDwtIHdyaXRlX2dvc2VxX2RhdGEoZG93bl9nb3NlcSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4Y2VsID0gZ2x1ZSgibHBfbWFjcm9waGFnZV9pbmNyZWFzZWRfejIuMl9nb3NlcS12e3Zlcn0ueGxzeCIpKQpgYGAKCiMgR1NWQQoKYGBge3IgZ3N2YX0KaHNfaW5mZWN0ZWQgPC0gc3Vic2V0X2V4cHQoaHNfbWFjcm9waGFnZSwgc3Vic2V0PSJtYWNyb3BoYWdldHJlYXRtZW50IT0ndW5pbmYnIikgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJtYWNyb3BoYWdldHJlYXRtZW50IT0ndW5pbmZfc2InIikKaHNfZ3N2YV9jMiA8LSBzaW1wbGVfZ3N2YShoc19pbmZlY3RlZCkKaHNfZ3N2YV9jMl9tZXRhIDwtIGdldF9tc2lnZGJfbWV0YWRhdGEoaHNfZ3N2YV9jMiwgbXNpZ194bWw9InJlZmVyZW5jZS9tc2lnZGJfdjcuMi54bWwiKQpoc19nc3ZhX2MyX3NpZyA8LSBnZXRfc2lnX2dzdmFfY2F0ZWdvcmllcyhoc19nc3ZhX2MyX21ldGEsIGV4Y2VsID0gImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvaHNfbWFjcm9waGFnZV9nc3ZhX2MyX3NpZy54bHN4IikKaHNfZ3N2YV9jMl9zaWckcmF3X3Bsb3QKCmhzX2dzdmFfYzcgPC0gc2ltcGxlX2dzdmEoaHNfaW5mZWN0ZWQsIHNpZ25hdHVyZV9jYXRlZ29yeSA9ICJjNyIpCmhzX2dzdmFfYzdfbWV0YSA8LSBnZXRfbXNpZ2RiX21ldGFkYXRhKGhzX2dzdmFfYzcsIG1zaWdfeG1sPSJyZWZlcmVuY2UvbXNpZ2RiX3Y3LjIueG1sIikKaHNfZ3N2YV9jN19zaWcgPC0gZ2V0X3NpZ19nc3ZhX2NhdGVnb3JpZXMoaHNfZ3N2YV9jNywgZXhjZWwgPSAiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9oc19tYWNyb3BoYWdlX2dzdmFfYzdfc2lnLnhsc3giKQpoc19nc3ZhX2M3X3NpZyRyYXdfcGxvdApgYGAKCiMgVHJ5IG91dCBhIG5ldyB0b29sCgpUd28gcmVhc29uczogTmFqaWIgbG92ZXMgaGltIHNvbWUgUENBLCB0aGlzIHVzZXMgd2lraXBhdGh3YXlzLCB3aGljaCBpcyBzb21ldGhpbmcgSSB0aGluayBpcyBuZWF0LgoKT2ssIEkgc3BlbnQgc29tZSB0aW1lIGxvb2tpbmcgdGhyb3VnaCB0aGUgY29kZSBhbmQgSSBoYXZlIHNvbWUKcHJvYmxlbXMgd2l0aCBzb21lIG9mIHRoZSBkZXNpZ24gZGVjaXNpb25zLgoKTW9zdCBpbXBvcnRhbnRseSwgaXQgcmVxdWlyZXMgYSBkYXRhLmZyYW1lKCkgd2hpY2ggaGFzIHRoZSBmb2xsb3dpbmcgZm9ybWF0OgoKMS4gIE5vIHJvd25hbWVzLCBpbnN0ZWFkIGNvbHVtbiAjMSBpcyB0aGUgc2FtcGxlIElELgoyLiAgQ29sdW1ucyAyLW0gYXJlIHRoZSBjYXRlZ29yaWNhbC9zdXJ2aXZhbC9ldGMgbWV0cmljcy4KMy4gIENvbHVtbnMgbS1uIGFyZSAxIGdlbmUtcGVyLWNvbHVtbiB3aXRoIGxvZzIgdmFsdWVzLgoKQnV0IHdoZW4gSSB0aGluayBhYm91dCBpdCBJIHRoaW5rIEkgZ2V0IHRoZSBpZGVhLCB0aGV5IHdhbnQgdG8gYmUgYWJsZSB0byBkbyBtb2RlbGxpbmcgc3R1ZmYKbW9yZSBlYXNpbHkgd2l0aCByZXNwb25zZSBmYWN0b3JzLgoKYGBge3IgcGF0aHdheVBDQX0KbGlicmFyeShwYXRod2F5UENBKQpsaWJyYXJ5KHJXaWtpUGF0aHdheXMpCgpkb3dubG9hZGVkIDwtIGRvd25sb2FkUGF0aHdheUFyY2hpdmUob3JnYW5pc20gPSAiSG9tbyBzYXBpZW5zIiwgZm9ybWF0ID0gImdtdCIpCmRhdGFfcGF0aCA8LSBzeXN0ZW0uZmlsZSgiZXh0ZGF0YSIsIHBhY2thZ2UgPSAicGF0aHdheVBDQSIpCndpa2lwYXRod2F5cyA8LSByZWFkX2dtdChwYXN0ZTAoZGF0YV9wYXRoLCAiL3dpa2lwYXRod2F5c19odW1hbl9zeW1ib2wuZ210IiksCiAgICAgICAgICAgICAgICAgICAgICAgICBkZXNjcmlwdGlvbiA9IFRSVUUpCgpleHB0IDwtIHN1YnNldF9leHB0KGhzX21hY3JvcGhhZ2UsIHN1YnNldCA9ICJtYWNyb3BoYWdldHJlYXRtZW50IT0ndW5pbmYnIikgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0ID0gIm1hY3JvcGhhZ2V0cmVhdG1lbnQhPSd1bmluZl9zYiciKQpleHB0IDwtIHNldF9leHB0X2NvbmRpdGlvbnMoZXhwdCwgZmFjdCA9ICJtYWNyb3BoYWdlenltb2RlbWUiKQoKc3ltYm9sX3ZlY3RvciA8LSBmRGF0YShleHB0KVtbc3ltYm9sX2NvbHVtbl1dCm5hbWVzKHN5bWJvbF92ZWN0b3IpIDwtIHJvd25hbWVzKGZEYXRhKGV4cHQpKQpzeW1ib2xfZGYgPC0gYXMuZGF0YS5mcmFtZShzeW1ib2xfdmVjdG9yKQoKYXNzYXlfZGYgPC0gbWVyZ2Uoc3ltYm9sX2RmLCBhcy5kYXRhLmZyYW1lKGV4cHJzKGV4cHQpKSwgYnkgPSAicm93Lm5hbWVzIikKYXNzYXlfZGZbWyJSb3cubmFtZXMiXV0gPC0gTlVMTApyb3duYW1lcyhhc3NheV9kZikgPC0gbWFrZS5uYW1lcyhhc3NheV9kZltbInN5bWJvbF92ZWN0b3IiXV0sIHVuaXF1ZSA9IFRSVUUpCmFzc2F5X2RmW1sic3ltYm9sX3ZlY3RvciJdXSA8LSBOVUxMCmFzc2F5X2RmIDwtIGFzLmRhdGEuZnJhbWUodChhc3NheV9kZikpCmFzc2F5X2RmW1siU2FtcGxlSUQiXV0gPC0gcm93bmFtZXMoYXNzYXlfZGYpCmFzc2F5X2RmIDwtIGRwbHlyOjpzZWxlY3QoYXNzYXlfZGYsICJTYW1wbGVJRCIsIGV2ZXJ5dGhpbmcoKSkKCmZhY3Rvcl9kZiA8LSBhcy5kYXRhLmZyYW1lKHBEYXRhKGV4cHQpKQpmYWN0b3JfZGZbWyJTYW1wbGVJRCJdXSA8LSByb3duYW1lcyhmYWN0b3JfZGYpCmZhY3Rvcl9kZiA8LSBkcGx5cjo6c2VsZWN0KGZhY3Rvcl9kZiwgIlNhbXBsZUlEIiwgZXZlcnl0aGluZygpKQpmYWN0b3JfZGYgPC0gZmFjdG9yX2RmWywgYygiU2FtcGxlSUQiLCBmYWN0b3JzKV0KCnR0IDwtIENyZWF0ZU9taWNzKAogIGFzc2F5RGF0YV9kZiA9IGFzc2F5X2RmLAogIHBhdGh3YXlDb2xsZWN0aW9uX2xzID0gd2lraXBhdGh3YXlzLAogIHJlc3BvbnNlID0gZmFjdG9yX2RmLAogIHJlc3BUeXBlID0gImNhdGVnb3JpY2FsIiwKICBtaW5QYXRoU2l6ZT01KQoKc3VwZXIgPC0gQUVTUENBX3BWYWxzKAogIG9iamVjdCA9IHR0LAogIG51bVBDcyA9IDIsCiAgcGFyYWxsZWwgPSBGQUxTRSwKICBudW1Db3JlcyA9IDgsCiAgbnVtUmVwcyA9IDIsCiAgYWRqdXN0bWVudCA9ICJCSCIpCmBgYAoKYGBge3Igc2F2ZW1lfQojIyBTdG9wcGluZyB0aGlzIGJlY2F1c2UgaXQgdGFrZXMgZm9yZXZlcgojI2lmICghaXNUUlVFKGdldDAoInNraXBfbG9hZCIpKSkgewojIyAgcGFuZGVyOjpwYW5kZXIoc2Vzc2lvbkluZm8oKSkKIyMgIG1lc3NhZ2UoIlRoaXMgaXMgaHBnbHRvb2xzIGNvbW1pdDogIiwgZ2V0X2dpdF9jb21taXQoKSkKIyMgIG1lc3NhZ2UoIlNhdmluZyB0byAiLCBzYXZlZmlsZSkKIyMgIHRtcCA8LSBzbShzYXZlbWUoZmlsZW5hbWUgPSBzYXZlZmlsZSkpCiMjfQpgYGAKCmBgYHtyIGxvYWRtZV9hZnRlciwgZXZhbCA9IEZBTFNFfQp0bXAgPC0gbG9hZG1lKGZpbGVuYW1lID0gc2F2ZWZpbGUpCmBgYAo=

TMRC2 202304: Macrophage Differential Expression.

atb abelew@gmail.com

2023-05-02