1 Changelog

  • 202401-202405: Cleanups, formatting, ensuring that everything works in the container.
  • 202310: Cleaning up to make everything pass within a containerized environment.
  • 202310: Received a set of colors and contrasts of interest for a barplot of significance.
  • 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 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_pData(hs_macrophage, columns = "drug") %>%
  set_conditions(fact = "drug", colors = color_choices[["drug"]]) %>%
  set_batches(fact = "typeofcells")
## Error in set_batches(., fact = "typeofcells"): could not find function "set_batches"
## The following 3 lines were copy/pasted to datastructures and should be removed soon.
no_strain_idx <- colData(all_human)[["strainid"]] == "none"
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': object 'all_human' not found
##pData(all_human)[["strainid"]] <- paste0("s", pData(all_human)[["strainid"]],
##                                         "_", pData(all_human)[["macrophagezymodeme"]])
colData(all_human)[no_strain_idx, "strainid"] <- "none"
## Error: object 'all_human' not found
table(colData(all_human)[["strainid"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': object 'all_human' not found
all_human_types <- set_conditions(all_human, fact = "typeofcells") %>%
  set_batches(fact = "drug")
## Error in set_batches(., fact = "drug"): could not find function "set_batches"
type_zymo_fact <- paste0(colData(all_human_types)[["condition"]], "_",
                         colData(all_human_types)[["macrophagezymodeme"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': object 'all_human_types' not found
type_zymo <- set_conditions(all_human_types, fact = type_zymo_fact)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'se' in selecting a method for function 'set_conditions': object 'all_human_types' not found
type_drug_fact <- paste0(colData(all_human_types)[["condition"]], "_",
                         colData(all_human_types)[["drug"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': object 'all_human_types' not found
type_drug <- set_conditions(all_human_types, fact = type_drug_fact)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'se' in selecting a method for function 'set_conditions': object 'all_human_types' not found
strain_fact <- colData(all_human_types)[["strainid"]]
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': object 'all_human_types' not found
table(strain_fact)
## Error: object 'strain_fact' not found
new_conditions <- paste0(colData(hs_macrophage)[["macrophagetreatment"]], "_",
                         colData(hs_macrophage)[["macrophagezymodeme"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': object 'hs_macrophage' not found
## 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_conditions(hs_macrophage, fact = new_conditions) %>%
  sanitize_expt_pData(column = "drug") %>%
  subset_expt(subset = "typeofcells!='U937'") %>%
  set_se_colors(color_choices[["treatment_zymo"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': error in evaluating the argument 'expt' in selecting a method for function 'subset_expt': error in evaluating the argument 'object' in selecting a method for function 'pData': error in evaluating the argument 'se' in selecting a method for function 'set_conditions': object 'hs_macrophage' not found

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_conditions(hs_macr, fact = "drug", colors = color_choices[["drug"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'se' in selecting a method for function 'set_conditions': object 'hs_macr' not found
hs_macr_strain_expt <- set_conditions(hs_macr, fact = "macrophagezymodeme",
                                      colors = color_choices[["zymo"]]) %>%
  subset_se(subset = "macrophagezymodeme != 'none'")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'se' in selecting a method for function 'set_conditions': object 'hs_macr' not found
table(colData(hs_macr)[["strainid"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': object 'hs_macr' not found

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(colData(hs_u937)[["macrophagetreatment"]], "_",
                         colData(hs_u937)[["macrophagezymodeme"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'colData': object 'hs_u937' not found
u937_expt <- set_conditions(hs_u937, fact = new_conditions,
                            colors = color_choices[["treatment_zymo"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'se' in selecting a method for function 'set_conditions': object 'hs_u937' not found

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: Antimonal treated or not.
  • strains used: Uninfected, z2.3, and z2.2.
  • cellltypes: U937 or macrophage.
  • donors: The person from whom the macrophages were taken.

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.

## Each of the following lists has the name of the contrast as the key
## followed by a two element vector comprised of the numerator and
## denominator as the value.  In the case of this first contrast, that
## is comprised of a string which manually defines a series of more
## complex contrasts than the usual/simple pairwise.
tmrc2_human_extra <- "z23drugnodrug_vs_z22drugnodrug = (conditioninf_sb_z23 - conditioninf_z23) - (conditioninf_sb_z22 - conditioninf_z22), z23z22drug_vs_z23z22nodrug = (conditioninf_sb_z23 - conditioninf_sb_z22) - (conditioninf_z23 - conditioninf_z22)"
tmrc2_human_keepers <- list(
  "z23nosb_vs_uninf" = c("inf_z23", "uninf_none"),
  "z22nosb_vs_uninf" = c("inf_z22", "uninf_none"),
  "z23nosb_vs_z22nosb" = c("inf_z23", "inf_z22"),
  "z23sb_vs_z22sb" = c("inf_sb_z23", "inf_sb_z22"),
  "z23sb_vs_z23nosb" = c("inf_sb_z23", "inf_z23"),
  "z22sb_vs_z22nosb" = c("inf_sb_z22", "inf_z22"),
  "z23sb_vs_sb" = c("inf_sb_z23", "uninf_sb_none"),
  "z22sb_vs_sb" = c("inf_sb_z22", "uninf_sb_none"),
  "z23sb_vs_uninf" = c("inf_sb_z23", "uninf_none"),
  "z22sb_vs_uninf" = c("inf_sb_z22", "uninf_none"),
  "sb_vs_uninf" = c("uninf_sb_none", "uninf_none"),
  "extra_z2322" = c("z23drugnodrug", "z22drugnodrug"),
  "extra_drugnodrug" = c("z23z22drug", "z23z22nodrug"))
single_tmrc2_keeper <- list(
  "z22sb_vs_sb" = c("inf_sb_z22", "uninf_sb_none"))
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 = (conditionU937_z23 - conditionU937_z22) - (conditionMacrophages_z23 - conditionMacrophages_z22)"
tmrc2_typezymo_keepers <- list(
  "u937_macr" = c("Macrophages_none", "U937_none"),
  "zymo_macr" = c("Macrophages_z23", "Macrophages_z22"),
  "zymo_u937" = c("U937_z23", "U937_z22"),
  "z23_types" = c("U937_z23", "Macrophages_z23"),
  "z22_types" = c("U937_z22", "Macrophages_z22"),
  "zymos_types" = c("zymos_vs_types"))
tmrc2_typedrug_keepers <- list(
  "type_nodrug" = c("U937_none", "Macrophages_none"),
  "type_drug" = c("U937_antimony", "Macrophages_antimony"),
  "macr_drugs" = c("Macrophages_antimony", "Macrophages_none"),
  "u937_drugs" = c("U937_antimony", "U937_none"))
u937_keepers <- list(
  "z23nosb_vs_uninf" = c("inf_z23", "uninf_none"),
  "z22nosb_vs_uninf" = c("inf_z22", "uninf_none"),
  "z23nosb_vs_z22nosb" = c("inf_z23", "inf_z22"),
  "z23sb_vs_z22sb" = c("inf_sb_z23", "inf_sb_z22"),
  "z23sb_vs_z23nosb" = c("inf_sb_z23", "inf_z23"),
  "z22sb_vs_z22nosb" = c("inf_sb_z22", "inf_z22"),
  "z23sb_vs_sb" = c("inf_sb_z23", "uninf_sb_none"),
  "z22sb_vs_sb" = c("inf_sb_z22", "uninf_sb_none"),
  "z23sb_vs_uninf" = c("inf_sb_z23", "uninf_none"),
  "z22sb_vs_uninf" = c("inf_sb_z22", "uninf_none"),
  "sb_vs_uninf" = c("uninf_sb_none", "uninf_none"))
## If some cases, when the set of significant genes was chosen, an
## additional filter was added to exclude genes with expression values
## less than 'high_expression' according to the
## 'high_expression_column' in the table.
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/tsv_tables/tmrc2_{celltype}_{kname}_n{numerator}_d{denominator}-v{ver}.xlsx")
    kdata <- combined[["data"]][[kname]]
    if (is.null(kdata[["basic_num"]])) {
      next
    }
    wanted <- c("hgnc_symbol", "deseq_logfc", "deseq_adjp",
                "deseq_basemean", "deseq_num", "deseq_den")
    wanted_data <- kdata[, wanted]
    colnames(wanted_data) <- c("hgnc_symbol", "deseq_logfc", "deseq_adjp",
                               "deseq_mean", "deseq_numerator", "deseq_denominator")
    write_xlsx(data = wanted_data, excel = filename)
  }
}

write_all_gp <- function(all_gp, suffix = NULL) {
  all_written <- list()
  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")
    if (!is.null(suffix)) {
      filename <- glue("analyses/macrophage_de/gprofiler/{name}_gprofiler{suffix}-v{ver}.xlsx")
    }
    written <- sm(write_gprofiler_data(datum, excel = filename))
    all_written[[g]] <- written
  }
  return(all_written)
}

2.4 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).

The structure of these blocks will all basically be identical:

  • Perform a set of pairwise contrasts of all the conditions against each other. Optionally use sva.
  • Given that result, dump it in its entirety to an xlsx file in the analyses/ directory.
  • Given those combined tables, extract from them the set deemed ‘significant’ by whatever criteria we want to try. (Usually |lfc| >= 1.0, adjusted p <= 0.05; but potentially also expression >= x and sometimes a set of less stringent values (|lfc| >= 0.6))
  • Given one or more gene sets deemed ‘significant’ pass them to gProfiler2 and see what pops out.

2.4.1 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.

Note to self: given the changes to hpgltools I may need to specify the statistical model string when I am using svaseq for some/many/all of these comparisons.

drug_de <- all_pairwise(all_human, filter = TRUE, model_svs = "svaseq", do_noiseq = FALSE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'all_human' not found
drug_de
## Error: object 'drug_de' not found
drug_table <- combine_de_tables(
  drug_de, keepers = tmrc2_drug_keepers,
  excel = glue("analyses/macrophage_de/de_tables/macrophage_drug_comparison-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'drug_de' not found
drug_table
## Error: object 'drug_table' not found
#combined_to_tsv(drug_table, celltype = "all")

drug_sig <- extract_significant_genes(
  drug_table,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_drug_sig-v{ver}.xlsx"))
## Error: object 'drug_table' not found
drug_sig
## Error: object 'drug_sig' not found
drug_highsig <- extract_significant_genes(
  drug_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_drug_highsig-v{ver}.xlsx"))
## Error: object 'drug_table' not found
drug_highsig
## Error: object 'drug_highsig' not found
drug_lesssig <- extract_significant_genes(
  drug_table, lfc = 0.6,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_drug_lesssig-v{ver}.xlsx"))
## Error: object 'drug_table' not found
drug_lesssig
## Error: object 'drug_lesssig' not found

2.4.1.1 gProfiler2 results of the significant drug genes

all_drug_gp <- all_gprofiler(drug_sig, enrich_id_column = "hgnc_symbol")
## Error: object 'drug_sig' not found
all_drug_gp
## Error: object 'all_drug_gp' not found
written <- write_all_gp(all_drug_gp)
## Error: object 'all_drug_gp' not found
all_drug_lesssig <- all_gprofiler(drug_lesssig, enrich_id_column = "hgnc_symbol")
## Error: object 'drug_lesssig' not found
written <- write_all_gp(all_drug_lesssig, suffix = "_lfc0.6_")
## Error: object 'all_drug_lesssig' not found

2.4.2 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_svs = "svaseq", do_noiseq = FALSE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'all_human_types' not found
type_de
## Error: object 'type_de' not found
type_table <- combine_de_tables(
  type_de, keepers = tmrc2_type_keepers,
  excel = glue("analyses/macrophage_de/de_tables/macrophage_type_comparison-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'type_de' not found
type_table
## Error: object 'type_table' not found
#combined_to_tsv(type_table, celltype = "all")

type_sig <- extract_significant_genes(
  type_table,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_type_sig-v{ver}.xlsx"))
## Error: object 'type_table' not found
type_sig
## Error: object 'type_sig' not found
type_highsig <- extract_significant_genes(
  type_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_type_highsig-v{ver}.xlsx"))
## Error: object 'type_table' not found
type_highsig
## Error: object 'type_highsig' not found
type_lesssig <- extract_significant_genes(
  type_table, lfc = 0.6,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_type_lesssig-v{ver}.xlsx"))
## Error: object 'type_table' not found
type_sig
## Error: object 'type_sig' not found

2.4.2.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_svs = "svaseq",
                             do_noiseq = FALSE,
                             extra_contrasts = type_zymo_extra)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'type_zymo' not found
type_zymo_de
## Error: object 'type_zymo_de' not found
type_zymo_table <- combine_de_tables(
  type_zymo_de, keepers = tmrc2_typezymo_keepers,
  excel = glue("analyses/macrophage_de/de_tables/macrophage_type_zymo_comparison-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'type_zymo_de' not found
#combined_to_tsv(type_zymo_table, celltype = "all")

type_zymo_sig <- extract_significant_genes(
  type_zymo_table,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_type_zymo_sig-v{ver}.xlsx"))
## Error: object 'type_zymo_table' not found
type_zymo_sig
## Error: object 'type_zymo_sig' 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/sig_tables/macrophage_type_zymo_highsig-v{ver}.xlsx"))
## Error: object 'type_zymo_table' not found
type_zymo_lesssig <- extract_significant_genes(
  type_zymo_table, lfc = 0.6,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_type_zymo_lesssig-v{ver}.xlsx"))
## Error: object 'type_zymo_table' not found
type_zymo_lesssig
## Error: object 'type_zymo_lesssig' not found

2.4.2.2 Combined factors of interest: 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_svs = "svaseq",
                             model_fstring = "~ 0 + condition")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'type_drug' not found
type_drug_de
## Error: object 'type_drug_de' not found
type_drug_table <- combine_de_tables(
  type_drug_de, keepers = tmrc2_typedrug_keepers,
  excel = glue("analyses/macrophage_de/de_tables/macrophage_type_drug_comparison-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'type_drug_de' not found
type_drug_table
## Error: object 'type_drug_table' not found
#combined_to_tsv(type_drug_table, celltype = "all")

type_drug_sig <- extract_significant_genes(
  type_drug_table,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_type_drug_sig-v{ver}.xlsx"))
## Error: object 'type_drug_table' not found
type_drug_sig
## Error: object 'type_drug_sig' 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/sig_tables/macrophage_type_drug_highsig-v{ver}.xlsx"))
## Error: object 'type_drug_table' not found
type_drug_highsig
## Error: object 'type_drug_highsig' not found
type_drug_lesssig <- extract_significant_genes(
  type_drug_table, lfc = 0.6,
  excel = glue("analyses/macrophage_de/sig_tables/macrophage_type_drug_lesssig-v{ver}.xlsx"))
## Error: object 'type_drug_table' not found
type_drug_lesssig
## Error: object 'type_drug_lesssig' 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.2 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.2.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_svs = "svaseq",
                                model_fstring = "~ 0 + condition")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr_drug_expt' not found
hs_macr_drug_de
## Error: object 'hs_macr_drug_de' not found
hs_macr_drug_table <- combine_de_tables(
  hs_macr_drug_de, keepers = tmrc2_drug_keepers,
  excel = glue("analyses/macrophage_de/de_tables/macrophage_onlydrug_table-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'hs_macr_drug_de' not found
hs_macr_drug_table
## Error: object 'hs_macr_drug_table' not found
#combined_to_tsv(hs_macr_drug_table, celltype = "macrophage")

hs_macr_drug_sig <- extract_significant_genes(
  hs_macr_drug_table,
  excel = glue("analyses/macrophage_de/sig_tables/macrophageonly_drug_sig-v{ver}.xlsx"))
## Error: object 'hs_macr_drug_table' not found
hs_macr_drug_sig
## Error: object 'hs_macr_drug_sig' 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/sig_tables/macrophageonly_drug_highsig-v{ver}.xlsx"))
## Error: object 'hs_macr_drug_table' not found
hs_macr_drug_highsig
## Error: object 'hs_macr_drug_highsig' not found
## Creating the following to see how it affects gProfiler.
hs_macr_drug_lesssig <- extract_significant_genes(
  hs_macr_drug_table, lfc = 0.6,
  excel = glue("analyses/macrophage_de/sig_tables/macrophageonly_drug_sig_lfc0.6-v{ver}.xlsx"))
## Error: object 'hs_macr_drug_table' not found

3.2.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_svs = "svaseq",
                                  model_fstring = "~ 0 + condition")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr_strain_expt' not found
hs_macr_strain_de
## Error: object 'hs_macr_strain_de' not found
hs_macr_strain_table <- combine_de_tables(
  hs_macr_strain_de, keepers = tmrc2_strain_keepers,
  excel = glue("analyses/macrophage_de/de_tables/macrophage_onlystrain_table-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'hs_macr_strain_de' not found
hs_macr_strain_table
## Error: object 'hs_macr_strain_table' not found
combined_to_tsv(hs_macr_strain_table, celltype = "macrophage")
## Error: object 'hs_macr_strain_table' not found
hs_macr_strain_sig <- extract_significant_genes(
  hs_macr_strain_table,
  excel = glue("analyses/macrophage_de/sig_tables/macrophageonly_onlystrain_sig-v{ver}.xlsx"))
## Error: object 'hs_macr_strain_table' not found
hs_macr_strain_sig
## Error: object 'hs_macr_strain_sig' 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/sig_tables/macrophageonly_onlystrain_highsig-v{ver}.xlsx"))
## Error: object 'hs_macr_strain_table' not found
hs_macr_strain_highsig
## Error: object 'hs_macr_strain_highsig' not found
hs_macr_strain_lesssig <- extract_significant_genes(
  hs_macr_strain_table, lfc = 0.6,
  excel = glue("analyses/macrophage_de/sig_tables/macrophageonly_onlystrain_lesssig-v{ver}.xlsx"))
## Error: object 'hs_macr_strain_table' not found
hs_macr_strain_lesssig
## Error: object 'hs_macr_strain_lesssig' not found

3.2.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: 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 h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': 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: 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: object 'hs_macr_drug_sig' not found
higher_nodrug <- hs_macr_drug_sig[["deseq"]][["ups"]][[1]]
## Error: object 'hs_macr_drug_sig' not found
higher_z23 <- hs_macr_strain_sig[["deseq"]][["ups"]][[1]]
## Error: object 'hs_macr_strain_sig' not found
higher_z22 <- hs_macr_strain_sig[["deseq"]][["downs"]][[1]]
## Error: object 'hs_macr_strain_sig' not found
sum(rownames(higher_drug) %in% rownames(higher_z23))
## Error: object 'higher_drug' not found
sum(rownames(higher_drug) %in% rownames(higher_z22))
## Error: object 'higher_drug' not found
sum(rownames(higher_nodrug) %in% rownames(higher_z23))
## Error: object 'higher_nodrug' not found
sum(rownames(higher_nodrug) %in% rownames(higher_z22))
## Error: object 'higher_nodrug' not found
drug_z23_lst <- list("drug" = rownames(higher_drug),
                     "z23" = rownames(higher_z23))
## Error: object 'higher_drug' not found
upset_input <- UpSetR::fromList(drug_z23_lst)
## Error: object 'drug_z23_lst' not found
higher_drug_z23 <- upset(upset_input, text.scale = 2)
## Error: object 'upset_input' not found
higher_drug_z23
## Error: object 'higher_drug_z23' not found
drug_z23_shared_genes <- overlap_groups(drug_z23_lst)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'drug_z23_lst' not found
shared_genes_drug_z23 <- overlap_geneids(drug_z23_shared_genes, "drug:z23")
## Error: object 'drug_z23_shared_genes' not found
shared_genes_drug_z23 <- attr(drug_z23_shared_genes, "elements")[drug_z23_shared_genes[["drug:z23"]]]
## Error: object 'drug_z23_shared_genes' not found
drug_z22_lst <- list("drug" = rownames(higher_drug),
                     "z22" = rownames(higher_z22))
## Error: object 'higher_drug' not found
higher_drug_z22 <- upset(UpSetR::fromList(drug_z22_lst), text.scale = 2)
## Error: object 'drug_z22_lst' not found
higher_drug_z22
## Error: object 'higher_drug_z22' not found
drug_z22_shared_genes <- overlap_groups(drug_z22_lst)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'drug_z22_lst' not found
shared_genes_drug_z22 <- overlap_geneids(drug_z22_shared_genes, "drug:z22")
## Error: object 'drug_z22_shared_genes' not found
shared_genes_drug_z22 <- attr(drug_z22_shared_genes, "elements")[drug_z22_shared_genes[["drug:z22"]]]
## Error: object 'drug_z22_shared_genes' not found

3.2.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: object 'drug_z23_shared_genes' not found
shared_genes_drug_z23 <- attr(drug_z23_shared_genes, "elements")[wanted]
## Error: object 'drug_z23_shared_genes' not found
shared_drug_z23_gp <- simple_gprofiler(shared_genes_drug_z23)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'shared_genes_drug_z23' not found
shared_drug_z23_gp[["pvalue_plots"]][["MF"]]
## Error: object 'shared_drug_z23_gp' not found
shared_drug_z23_gp[["pvalue_plots"]][["BP"]]
## Error: object 'shared_drug_z23_gp' not found
shared_drug_z23_gp[["pvalue_plots"]][["REAC"]]
## Error: object 'shared_drug_z23_gp' not found
wanted <- drug_z22_shared_genes[["drug:z22"]]
## Error: object 'drug_z22_shared_genes' not found
shared_genes_drug_z22 <- attr(drug_z22_shared_genes, "elements")[wanted]
## Error: object 'drug_z22_shared_genes' not found
shared_drug_z22_gp <- simple_gprofiler(shared_genes_drug_z22)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'shared_genes_drug_z22' not found
shared_drug_z22_gp[["pvalue_plots"]][["BP"]]
## Error: object 'shared_drug_z22_gp' not found

4 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_svs = "svaseq", filter = TRUE,
#                      extra_contrasts = tmrc2_human_extra)

hs_macr_de_noextra <- all_pairwise(hs_macr, model_svs = "svaseq", model_fstring = "~ 0 + condition", filter = TRUE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr' not found
hs_macr_de <- all_pairwise(hs_macr, model_svs = "svaseq", model_fstring = "~ 0 + condition",
                           filter = TRUE, extra_contrasts = tmrc2_human_extra)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr' not found
hs_macr_de
## Error: object 'hs_macr_de' not found
hs_single_table <- combine_de_tables(
  hs_macr_de, keepers = single_tmrc2_keeper,
  excel = glue("analyses/macrophage_de/de_tables/hs_macr_drug_zymo_z22sb_sb-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'hs_macr_de' not found
hs_single_table
## Error: object 'hs_single_table' not found
hs_macr_table <- combine_de_tables(
  hs_macr_de, keepers = tmrc2_human_keepers,
  excel = glue("analyses/macrophage_de/de_tables/hs_macr_drug_zymo_table_macr_only-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'hs_macr_de' not found
hs_macr_table
## Error: object 'hs_macr_table' not found
#combined_to_tsv(hs_macr_table, "macrophage")

hs_macr_sig <- extract_significant_genes(
  hs_macr_table,
  excel = glue("analyses/macrophage_de/sig_tables/hs_macr_drug_zymo_sig-v{ver}.xlsx"))
## Error: object 'hs_macr_table' not found
hs_macr_sig
## Error: object 'hs_macr_sig' not found
hs_macr_highsig <- extract_significant_genes(
  hs_macr_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/sig_tables/hs_macr_drug_zymo_highsig-v{ver}.xlsx"))
## Error: object 'hs_macr_table' not found
hs_macr_highsig
## Error: object 'hs_macr_highsig' not found
hs_macr_lesssig <- extract_significant_genes(
  hs_macr_table, lfc = 0.6,
  excel = glue("analyses/macrophage_de/sig_tables/hs_macr_drug_zymo_sig_lfc0.6-v{ver}.xlsx"))
## Error: object 'hs_macr_table' not found
hs_macr_lesssig
## Error: object 'hs_macr_lesssig' not found

4.1 gene group upset

4.1.1 2.3 vs 2.2 up and down vs. uninfected

This is my version of the Venn diagram which includes the text:

“Differentially expressed genes in macrophages infected with subpopulations 2.2 or 2.3. Volcano plots contrast of: A. Venn diagram for upregulated and downregulated genes by infection with 2.3 and 2.2 strains. B. infected cells with 2.3 strains and uninfected cells; C. infected cells with 2.2 strains and uninfected cells; D. infected cells with 2.3 strains and infected cells with 2.2 strains”

The following upset plot is currently Figure 2E.

nodrug_upset <- upsetr_combined_de(hs_macr_table,
                                   desired_contrasts = c("z22nosb_vs_uninf", "z23nosb_vs_uninf"))
## Error: object 'hs_macr_table' not found
pp(file = "images/nodrug_upset.svg")
nodrug_upset[["plot"]]
## Error: object 'nodrug_upset' not found
dev.off()
## png 
##   2
nodrug_upset
## Error: object 'nodrug_upset' not found

4.1.1.1 A point of interest while Olga visits Umd

Najib and Olga asked about pulling the 9 gene IDs which are in the peculiar situation of increased expression in z2.2/uninf and decreased in z2.3/uninf. In the previous upset plot, these are visible in the 6th bar. I can access these via the attr() function, which I should admit I can never remember how to use, so I am going to use the code under the ‘Compare(no)Sb z2.3/z2.2 treatment’ heading to remember how to extract these genes.

all_groups <- nodrug_upset[["groups"]]
## Error: object 'nodrug_upset' not found
wanted_group <- "z23nosb_vs_uninf_down:z22nosb_vs_uninf_up"
gene_idx <- all_groups[[wanted_group]]
## Error: object 'all_groups' not found
wanted_genes <- attr(all_groups, "elements")[gene_idx]
## Error: object 'all_groups' not found
wanted_genes
## Error: object 'wanted_genes' not found
gene_symbol_idx <- rownames(fData(hs_macr)) %in% as.character(wanted_genes)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'fData': object 'hs_macr' not found
fData(hs_macr)[gene_symbol_idx, "hgnc_symbol"]
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'fData': object 'hs_macr' not found
  • ABCB5: ATB Binding Cassette Subfamily B Member #5, wide range of functions in this diverse paralogous family. Associated with skin diseases (melanoma and Epidermolysis Bullosa; participate in ATP-dependent transmembrane transport).
  • RFX4: Regulatory Factor X #4: transcription factor.
  • CA14: Carbonic anhydrase #14: Zync metalloenzyme catalyzes reversible hydration of CO2. This gene looks pretty neat, but not really relevant to anything we are likely to care about.
  • EGR1: Early Growth Response Protein #1: Another Tx factor (zinc-finger) – important for cell survival/proliferation/cell death. Presumably important for healing?
  • MCF2L: MCF.2 Cell Line Derived Transforming Sequence Like? guanine nucleotide exchange factor interacting with GTP-bound Rac1. Apparently associated with ostroarthritis; potentially relevant to regulation of RHOA and CDC42 signalling.
  • DNASE1L3: Deoxyribonuclease I family member: not inhibited by actin, breaks down DNA during apoptosis. Important during necrosis.
  • FOS: Proto-Oncogene, AP-1 Transcription Factor: leucine zipper dimerizes with JUN family proteins, forming tx factor complex AP-1. Important for cell proliferation, differentiation, and transformation.
  • IFITM10: Interferon-Induced Transmembrane Protein #10
  • PKD1L3: Polycystin 1 Like #3, Transient Receptor Potential Channel Interacting: 11 transmembrane domain protein which might help create cation channels.

As some comparison points, the Venn in the current figure has:

  • 387 up z2.3
  • 259 up z2.2
  • 83 shared up z2.3 and z2.2
  • 247 down z2.3
  • 3 down z2.2
  • 3 shared down z2.3 and z2.2

4.1.2 2.2 and 2.3 with SbV vs 2.2 and 2.3 without SbV

This is my version of the Venn with the text:

“Differentially expressed genes in macrophages infected with subpopulations 2.2 or 2.3, in presence of SbV. Volcano plots contrast of: A. infected cells with 2.3 strains + SbV and infected cells with 2.3 strains; B. infected cells with 2.2 strains + SbV and infected cells with 2.2 strains; C. infected cells with 2.3 strains + SbV and infected cells with 2.2 strains + SbV. D. Venn diagram for upregulated and downregulated genes by infection with 2.3+SbV and 2.2+SbV strains.”

A query from Olga (20240801): Please include in the upset in figure 3 the contrast of uninfected cells + SbV vs uninfected without SbV.

## I keep mis-interpreting this text, it is z2.3/z2.3SbV and z2.2/z2.2SbV
drugnodrug_upset <- upsetr_combined_de(hs_macr_table,
                                       desired_contrasts = c("z23sb_vs_z23nosb", "z22sb_vs_z22nosb"))
## Error: object 'hs_macr_table' not found
pp(file = "images/drugnodrug_upset.pdf")
drugnodrug_upset[["plot"]]
## Error: object 'drugnodrug_upset' not found
dev.off()
## png 
##   2
drugnodrug_upset
## Error: object 'drugnodrug_upset' not found
drugnodrug_uninf_contrasts <- c("z23sb_vs_z23nosb", "z22sb_vs_z22nosb", "sb_vs_uninf")
drugnodrug_upset_with_uninf <- upsetr_combined_de(hs_macr_table,
                                       desired_contrasts = drugnodrug_uninf_contrasts)
## Error: object 'hs_macr_table' not found
pp(file = "figures/drugnodrug_with_uninf_upset.svg")
drugnodrug_upset_with_uninf[["plot"]]
## Error: object 'drugnodrug_upset_with_uninf' not found
dev.off()
## png 
##   2
drugnodrug_upset_with_uninf
## Error: object 'drugnodrug_upset_with_uninf' not found

For some comparison points, the venn image has:

  • 222 up z2.3 SbV
  • 134 up z2.2 SbV
  • 182 down z2.3 SbV
  • 396 down z2.2 SbV
  • 605 shared down z2.2 and z2.3 SbV
  • 34 shared down z2.2 SbV and up z2.3 SbV
  • 363 shared up z2.2 SbV and z2.3 SbV

4.1.3 Compare z2.2SbV vs SbV and z2.3SbV and SbV

drug_upset <- upsetr_combined_de(hs_macr_table,
                                 desired_contrasts = c("z22sb_vs_sb", "z23sb_vs_sb"))
## Error: object 'hs_macr_table' not found
pp(file = "images/drug_upset.pdf")
drug_upset[["plot"]]
## Error: object 'drug_upset' not found
dev.off()
## png 
##   2
drug_upset
## Error: object 'drug_upset' not found

4.2 Significance barplot of interest

Olga kindly sent a set of particularly interesting contrasts and colors for a significance barplot, they include the following:

  • z2.3 vs. uninfected.
  • z2.2 vs. uninfected.
  • z2.3 vs z2.2
  • z2.3Sbv vs z2.3
  • z2.2Sbv vs z2.2
  • z2.3Sbv vs z2.2Sbv
  • Sbv vs uninfected.

The existing set of ‘keepers’ exvised to these is taken from the extant set of ‘tmrc2_human_keepers’ and is as follows:

barplot_keepers <- list(
  ## z2.3 vs uninfected
  "z23nosb_vs_uninf" = c("infz23", "uninfnone"),
  ## z2.2 vs uninfected
  "z22nosb_vs_uninf" = c("infz22", "uninfnone"),
  ## z2.3 vs z2.2
  "z23nosb_vs_z22nosb" = c("infz23", "infz22"),
  ## z2.3Sbv vs z2.3
  "z23sb_vs_z23nosb" = c("infsbz23", "infz23"),
  ## z2.2Sbv vs z2.2
  "z22sb_vs_z22nosb" = c("infsbz22", "infz22"),
  ## z2.3Sbv vs z2.2Sbv
  "z23sb_vs_z22sb" = c("infsbz23", "infsbz22"),
  ## Sbv vs uninfected.
  "sb_vs_uninf" = c("uninfsbnone", "uninfnone"))
barplot_combined <- combine_de_tables(
  hs_macr_de, keepers = barplot_keepers,
  excel = glue("analyses/macrophage_de/de_tables/hs_macr_drug_zymo_7contrasts-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'hs_macr_de' not found

Now let us use the colors suggested by Olga to make a barplot of these…

color_list <-  c( "#de8bf9", "#ad07e3","#410257", "#ffa0a0", "#f94040", "#a00000")
barplot_sig <- extract_significant_genes(
  barplot_combined, color_list = color_list, according_to = "deseq",
  excel = glue("analyses/macrophage_de/sig_tables/hs_macr_drug_zymo_7contrasts_sig-v{ver}.xlsx"))
## Error: object 'barplot_combined' not found
barplot_sig
## Error: object 'barplot_sig' not found

5 PROPER

In our last meeting there were some questions about the statistical power of different future experimental designs. One thing I can do is to use PROPER to estimate the power of an extant dataset and infer from that the likely power of other designs.

In order to use proper, one must feed it one or more DE tables.

power_estimate <- simple_proper(hs_single_table)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'exprs': object 'hs_single_table' not found
power_estimate[[1]][["power_plot"]]
## Error: object 'power_estimate' not found
power_estimate[[1]][["powertd_plot"]]
## Error: object 'power_estimate' not found
power_estimate[[1]][["powerfd_plot"]]
## Error: object 'power_estimate' not found

6 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_svs = "svaseq",
                        filter = TRUE, do_noiseq = FALSE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'u937_expt' not found
u937_de
## Error: object 'u937_de' not found
u937_table <- combine_de_tables(
  u937_de, keepers = u937_keepers,
  excel = glue("analyses/macrophage_de/de_tables/u937_drug_zymo_table-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'u937_de' not found
u937_table
## Error: object 'u937_table' not found
combined_to_tsv(u937_table, celltype = "u937")
## Error: object 'u937_table' not found
u937_sig <- extract_significant_genes(
  u937_table,
  excel = glue("analyses/macrophage_de/sig_tables/u937_drug_zymo_sig-v{ver}.xlsx"))
## Error: object 'u937_table' not found
u937_sig
## Error: object 'u937_sig' not found
u937_highsig <- extract_significant_genes(
  u937_table, min_mean_exprs = high_expression, exprs_column = high_expression_column,
  excel = glue("analyses/macrophage_de/sig_tables/u937_drug_zymo_highsig-v{ver}.xlsx"))
## Error: object 'u937_table' not found
u937_highsig
## Error: object 'u937_highsig' not found
u937_lesssig <- extract_significant_genes(
  u937_table, lfc = 0.6,
  excel = glue("analyses/macrophage_de/sig_tables/u937_drug_zymo_lesssig-v{ver}.xlsx"))
## Error: object 'u937_table' not found
u937_lesssig
## Error: object 'u937_lesssig' not found

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

In the following block, I will jump back to the macrophage samples and look for genes which are shared/unique when comparing z2.3/z2.2 for the drug treated samples and the untreated samples.

upset_plots_hs_macr <- upsetr_sig(
  hs_macr_sig, both = TRUE,
  contrasts = c("z23sb_vs_z22sb", "z23nosb_vs_z22nosb"))
## Error: object 'hs_macr_sig' not found
upset_plots_hs_macr[["both"]]
## Error: object 'upset_plots_hs_macr' not found
groups <- upset_plots_hs_macr[["both_groups"]]
## Error: object 'upset_plots_hs_macr' not found
shared_genes <- attr(groups, "elements")[groups[[2]]] %>%
  gsub(pattern = "^gene:", replacement = "")
## Error: object 'groups' not found
length(shared_genes)
## Error: object 'shared_genes' not found
shared_gp <- simple_gprofiler(shared_genes)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'shared_genes' not found
shared_gp[["pvalue_plots"]][["MF"]]
## Error: object 'shared_gp' not found
shared_gp[["pvalue_plots"]][["BP"]]
## Error: object 'shared_gp' not found
shared_gp[["pvalue_plots"]][["REAC"]]
## Error: object 'shared_gp' not found
drug_genes <- attr(groups, "elements")[groups[["z23sb_vs_z22sb"]]] %>%
  gsub(pattern = "^gene:", replacement = "")
## Error: object 'groups' not found
drugonly_gp <- simple_gprofiler(drug_genes)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'drug_genes' not found
drugonly_gp[["pvalue_plots"]][["BP"]]
## Error: object 'drugonly_gp' not found

I want to try something, directly include the u937 data in this. Thus, in the following block I will repeat but compare all samples and the U937 using the same logic.

both_sig <- hs_macr_sig
## Error: object 'hs_macr_sig' not found
names(both_sig[["deseq"]][["ups"]]) <- paste0("macr_", names(both_sig[["deseq"]][["ups"]]))
## Error: object 'both_sig' not found
names(both_sig[["deseq"]][["downs"]]) <- paste0("macr_", names(both_sig[["deseq"]][["downs"]]))
## Error: object 'both_sig' not found
u937_deseq <- u937_sig[["deseq"]]
## Error: object 'u937_sig' not found
names(u937_deseq[["ups"]]) <- paste0("u937_", names(u937_deseq[["ups"]]))
## Error: object 'u937_deseq' not found
names(u937_deseq[["downs"]]) <- paste0("u937_", names(u937_deseq[["downs"]]))
## Error: object 'u937_deseq' not found
both_sig[["deseq"]][["ups"]] <- c(both_sig[["deseq"]][["ups"]], u937_deseq[["ups"]])
## Error: object 'both_sig' not found
both_sig[["deseq"]][["downs"]] <- c(both_sig[["deseq"]][["ups"]], u937_deseq[["downs"]])
## Error: object 'both_sig' not found
summary(both_sig[["deseq"]][["ups"]])
## Error: object 'both_sig' not found
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"))
## Error: object 'both_sig' not found
upset_plots_both[["both"]]
## Error: object 'upset_plots_both' not found

7.1 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 'hs_macr_table' not found
macr_u937_comparison[["lfc_heat"]]
## Error: 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 'hs_macr_sig' not found
macr_u937_venns[["up_plot"]]
## Error: object 'macr_u937_venns' not found
macr_u937_venns[["down_plot"]]
## Error: 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: object 'hs_macr_sig' not found
macr_u937_venns_v2[["up_plot"]]
## Error: object 'macr_u937_venns_v2' not found
macr_u937_venns_v2[["down_plot"]]
## Error: 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: object 'hs_macr_sig' not found
macr_u937_venns_v3[["up_plot"]]
## Error: object 'macr_u937_venns_v3' not found
macr_u937_venns_v3[["down_plot"]]
## Error: object 'macr_u937_venns_v3' not found

7.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: object 'hs_macr_table' not found
macru937_z23z22_plot <- plot_linear_scatter(comparison_df[, c("deseq_logfc.x", "deseq_logfc.y")])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'comparison_df' not found
macru937_z23z22_plot[["scatter"]]
## Error: 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: object 'hs_macr_table' not found
macru937_z23z22_plot <- plot_linear_scatter(comparison_df[, c("deseq_logfc.x", "deseq_logfc.y")])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'comparison_df' not found
macru937_z23z22_plot[["scatter"]]
## Error: object 'macru937_z23z22_plot' not found

8 Add donor to the contrasts, no sva

In the following block, I will change the sample condition to include the donor.

no_power_fact <- paste0(pData(hs_macr)[["donor"]], "_",
                        pData(hs_macr)[["condition"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr' not found
table(pData(hs_macr)[["donor"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr' not found
table(no_power_fact)
## Error: object 'no_power_fact' not found
hs_nopower <- set_expt_conditions(hs_macr, fact = no_power_fact)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr' not found
hs_nopower <- subset_expt(hs_nopower, subset = "macrophagezymodeme!='none'")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'expt' in selecting a method for function 'subset_expt': object 'hs_nopower' not found
hs_nopower_nosva_de <- all_pairwise(hs_nopower, model_svs = FALSE, filter = TRUE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_nopower' not found
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/de_tables/hs_nopower_table-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'hs_nopower_nosva_de' not found
## extra_contrasts = extra)
hs_nopower_nosva_sig <- extract_significant_genes(
  hs_nopower_nosva_table,
  excel = glue("analyses/macrophage_de/sig_tables/hs_nopower_nosva_sig-v{ver}.xlsx"))
## Error: 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: 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 h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'd01d02_zymo_nosva_comp' not found
d0102_zymo_nosva_plot[["scatter"]]
## Error: object 'd0102_zymo_nosva_plot' not found
d0102_zymo_nosva_plot[["correlation"]]
## Error: object 'd0102_zymo_nosva_plot' not found
d0102_zymo_nosva_plot[["lm_rsq"]]
## Error: 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: 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 h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'd09d81_zymo_nosva_comp' not found
d0981_zymo_nosva_plot[["scatter"]]
## Error: object 'd0981_zymo_nosva_plot' not found
d0981_zymo_nosva_plot[["correlation"]]
## Error: object 'd0981_zymo_nosva_plot' not found
d0981_zymo_nosva_plot[["lm_rsq"]]
## Error: 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: 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 h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'd01d81_zymo_nosva_comp' not found
d0181_zymo_nosva_plot[["scatter"]]
## Error: object 'd0181_zymo_nosva_plot' not found
d0181_zymo_nosva_plot[["correlation"]]
## Error: object 'd0181_zymo_nosva_plot' not found
d0181_zymo_nosva_plot[["lm_rsq"]]
## Error: 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: object 'hs_nopower_nosva_sig' not found
upset_plots_nosva[["up"]]
## Error: object 'upset_plots_nosva' not found
upset_plots_nosva[["down"]]
## Error: object 'upset_plots_nosva' not found
upset_plots_nosva[["both"]]
## Error: 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: object 'upset_plots_nosva' not found
shared_genes <- attr(groups, "elements")[groups[[7]]] %>%
  gsub(pattern = "^gene:", replacement = "")
## Error: object 'groups' not found
shared_gp <- simple_gprofiler(shared_genes)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'shared_genes' not found
shared_gp[["pvalue_plots"]][["MF"]]
## Error: object 'shared_gp' not found
shared_gp[["pvalue_plots"]][["BP"]]
## Error: object 'shared_gp' not found
shared_gp[["pvalue_plots"]][["REAC"]]
## Error: object 'shared_gp' not found
shared_gp[["pvalue_plots"]][["WP"]]
## Error: object 'shared_gp' not found

9 Add donor to the contrasts, sva

Same deal as the last block, but this time add SVA into the mix!

hs_nopower_sva_de <- all_pairwise(hs_nopower, model_svs = "svaseq", filter = TRUE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_nopower' not found
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/de_tables/hs_nopower_table-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'hs_nopower_sva_de' not found
## extra_contrasts = extra)
hs_nopower_sva_sig <- extract_significant_genes(
  hs_nopower_sva_table,
  excel = glue("analyses/macrophage_de/sig_tables/hs_nopower_sva_sig-v{ver}.xlsx"))
## Error: 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: 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 h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'd01d02_zymo_sva_comp' not found
d0102_zymo_sva_plot[["scatter"]]
## Error: object 'd0102_zymo_sva_plot' not found
d0102_zymo_sva_plot[["correlation"]]
## Error: object 'd0102_zymo_sva_plot' not found
d0102_zymo_sva_plot[["lm_rsq"]]
## Error: 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: 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 h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'd09d81_zymo_sva_comp' not found
d0981_zymo_sva_plot[["scatter"]]
## Error: object 'd0981_zymo_sva_plot' not found
d0981_zymo_sva_plot[["correlation"]]
## Error: object 'd0981_zymo_sva_plot' not found
d0981_zymo_sva_plot[["lm_rsq"]]
## Error: 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: 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 h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'd01d81_zymo_sva_comp' not found
d0181_zymo_sva_plot[["scatter"]]
## Error: object 'd0181_zymo_sva_plot' not found
d0181_zymo_sva_plot[["correlation"]]
## Error: object 'd0181_zymo_sva_plot' not found
d0181_zymo_sva_plot[["lm_rsq"]]
## Error: 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: object 'hs_nopower_sva_sig' not found
upset_plots_sva[["up"]]
## Error: object 'upset_plots_sva' not found
upset_plots_sva[["down"]]
## Error: object 'upset_plots_sva' not found
upset_plots_sva[["both"]]
## Error: 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: object 'upset_plots_sva' not found
shared_genes <- attr(groups, "elements")[groups[[7]]] %>%
  gsub(pattern = "^gene:", replacement = "")
## Error: object 'groups' not found
shared_gp <- simple_gprofiler(shared_genes)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'shared_genes' not found
shared_gp[["pvalue_plots"]][["MF"]]
## Error: object 'shared_gp' not found
shared_gp[["pvalue_plots"]][["BP"]]
## Error: object 'shared_gp' not found
shared_gp[["pvalue_plots"]][["REAC"]]
## Error: object 'shared_gp' not found
shared_gp[["pvalue_plots"]][["WP"]]
## Error: object 'shared_gp' not found

10 Donor comparison

Now compare the donors to each other directly.

hs_donors <- set_expt_conditions(hs_macr, fact = "donor")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr' not found
donor_de <- all_pairwise(hs_donors, model_svs = "svaseq", filter = TRUE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_donors' not found
donor_de
## Error: object 'donor_de' not found
donor_table <- combine_de_tables(
  donor_de,
  excel = glue("analyses/macrophage_de/de_tables/donor_tables-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'donor_de' not found
donor_table
## Error: object 'donor_table' not found
donor_sig <- extract_significant_genes(
  donor_table,
  excel = glue("analyses/macrophage_de/sig_tables/donor_sig-v{ver}.xlsx"))
## Error: object 'donor_table' not found
donor_sig
## Error: object 'donor_sig' not found

11 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.

11.1 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.

11.2 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.

I am reasonably certain this is the place to check that z23no drug / uninfected has the expected set of genes and that there is or is not a reactome result.

Reproducibility note: Given that this is entirely dependent on an online service, I must assume that the results will change over time; in addition their web servers undergo maintenance regularly, which may result in systematic failure of these analyses. I like gProfiler quite a lot for this type of stuff, but this is an important caveat.

Conversely, the clusterProfiler results later depend on a consistent orgdb annotation set (or reactome or whatever); those versions are fixed by the container installation.

all_gp <- all_gprofiler(hs_macr_sig, enrich_id_column = "hgncsymbol")
## Error: object 'hs_macr_sig' not found
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: object 'all_gp' not found

11.3 Explicit GSEA search vis clusterProfiler

all_cp <- all_cprofiler(hs_macr_sig, hs_macr_table)
## Error: object 'hs_macr_sig' not found

11.4 Specific desires in Reactome results

In previous analyses (I think by Dr. Colmenares), a specific Tryptophan biosynthesis pathway was observed. Partciularly in the 2.3/uninfected comparison. I think my gprofiler analysis is too stringent and therefore not observing this. Olga asked if I could look at that and see if there are trivial settings I can change to highlight this pathway. The two most likely things I can change are the stringencies of the DE analysis and/or gProfiler.

test_z23_uninf_up <- hs_macr_sig[["deseq"]][["ups"]][["z23nosb_vs_uninf"]]
## Error: object 'hs_macr_sig' not found
nrow(test_z23_uninf_up)
## Error: object 'test_z23_uninf_up' not found
test_z23_uninf_down <- hs_macr_sig[["deseq"]][["downs"]][["z23nosb_vs_uninf"]]
## Error: object 'hs_macr_sig' not found
nrow(test_z23_uninf_down)
## Error: object 'test_z23_uninf_down' not found
test_gp_up <- simple_gprofiler(test_z23_uninf_up, enrich_id_column = "hgncsymbol",
                               threshold = 1.0)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'test_z23_uninf_up' not found
test_gp_up
## Error: object 'test_gp_up' not found
written_up <- write_gprofiler_data(test_gp_up, excel = "excel/z23_uninf_gp_up_all.xlsx")
## Error: object 'test_gp_up' not found
test_gp_down <- simple_gprofiler(test_z23_uninf_down, enrich_id_column = "hgncsymbol",
                                 threshold = 1.0)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'test_z23_uninf_down' not found
test_gp_down
## Error: object 'test_gp_down' not found
written_down <- write_gprofiler_data(test_gp_down, excel = "excel/z23_uninf_gp_down_all.xlsx")
## Error: object 'test_gp_down' not found

11.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.

11.6 Individual zymodemes vs. uninfected

The following blocks will be a lot of repetition. In each case I am yanking out the volcano plot for a specific contrast and showing the original followed by a version with different colors/labelling.

11.6.1 Infected with z2.3 no Antimonial vs. Uninfected

plot_colors <- get_expt_colors(hs_macr_table[["input"]][["input"]])
## Error in get_expt_colors(hs_macr_table[["input"]][["input"]]): could not find function "get_expt_colors"
## The original plot from my xlsx file
hs_macr_table[["plots"]][["z23nosb_vs_uninf"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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",
  color_low = plot_colors[["uninfnone"]], color_high = plot_colors[["infz23"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
labeled <- z23nosb_vs_uninf_volcano[["plot"]] +
  scale_x_continuous(limits = c(-6, 21), breaks = c(-6, -4, -2, 0, 2, 4, 6, 8, 10, 20)) +
  ggbreak::scale_x_break(c(10, 19), scales = 0.2, space = 0.02)
## Error: object 'z23nosb_vs_uninf_volcano' not found
pp(file = "figures/fig2a_labeled_with_break.svg")
labeled
## Error: object 'labeled' not found
dev.off()
## png 
##   2
labeled
## Error: object 'labeled' not found
plotly::ggplotly(z23nosb_vs_uninf_volcano[["plot"]])
## Error: object 'z23nosb_vs_uninf_volcano' not found

The following provides some of the over-representation plots from gProfiler2.

all_gp[["z23nosb_vs_uninf_up"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_uninf_up"]][["pvalue_plots"]][["KEGG"]]
## Error: object 'all_gp' not found
## 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"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_uninf_up"]][["pvalue_plots"]][["WP"]]
## Error: object 'all_gp' not found
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_uninf_up"]][["interactive_plots"]][["WP"]]
## Error: object 'all_gp' not found
message("Olga received a query about the following result, I think it is null.")
## Olga received a query about the following result, I think it is null.
all_gp[["z23nosb_vs_uninf_down"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
message("Is the previous plot null?")
## Is the previous plot null?
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23nosb_vs_uninf_down"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23nosb_vs_uninf_down"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

We have some other categorical enrichment plots available via enrichplot, let us try a few out for contrasts of interest and see if any of them prove helpful.

First, as a reminder, here are the contrasts which are available to examine, in each case there is an _up and _down enrichment object in the data. Thus in the following list I am going to arbitrarily print out some invocations which extract putatively interesting bits of data.

  • z23nosb_vs_uninf: all_gp[[“z23nosb_vs_uninf_up”]][[“BP_enrich”]]
  • z22nosb_vs_uninf.
  • z23nosb_vs_z22nosb.
  • z23sb_vs_z22sb.
  • z23sb_vs_z23nosb.
  • z22sb_vs_z22nosb.
  • z23sb_vs_sb.
  • z22sb_vs_sb.
  • z23sb_vs_uninf.
  • z22sb_vs_uninf.
  • sb_vs_uninf.
  • extra_z2322.
  • extra_drugnodrug.
z23nosb_uninf_up_go <- all_gp[["z23nosb_vs_uninf_up"]][["BP_enrich"]]
## Error: object 'all_gp' not found
z23nosb_uninf_up_go_pair <- pairwise_termsim(z23nosb_uninf_up_go)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'pairwise_termsim': object 'z23nosb_uninf_up_go' not found
dotplot(z23nosb_uninf_up_go)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'dotplot': object 'z23nosb_uninf_up_go' not found
emapplot(z23nosb_uninf_up_go_pair)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'emapplot': object 'z23nosb_uninf_up_go_pair' not found
##ssplot(z23nosb_uninf_up_go_pair)
treeplot(z23nosb_uninf_up_go_pair)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'treeplot': object 'z23nosb_uninf_up_go_pair' not found
upsetplot(z23nosb_uninf_up_go)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'upsetplot': object 'z23nosb_uninf_up_go' not found
cnetplot(z23nosb_uninf_up_go)
## Error: object 'z23nosb_uninf_up_go' not found

11.6.2 Repeat, but using a less strict set of ‘significant genes’

I am not entirely certain if the Reactome results Olga showed me included both up and down genes? I am going to assume for the moment that it was just up/down, but if that proves intractable I will go back to the manuscript and read more carefully (e.g. I just remembered where the picture came from!)

11.6.2.1 Add a little topgo

In the process of exploring the various parameters used with gProfiler2, I found myself thinking that it would be nice to have some topgo results to compare against. The following block is the result of that thought.

test_genes_up <- hs_macr_lesssig[["deseq"]][["ups"]][["z23nosb_vs_uninf"]]
## Error: object 'hs_macr_lesssig' not found
test_query_up <- simple_gprofiler(test_genes_up, threshold = 0.1)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'test_genes_up' not found
test_query_up[["pvalue_plots"]][["REAC"]]
## Error: object 'test_query_up' not found
pdf(file = "images/test_query_biological_process_z23_vs_uninf_up.pdf", height = 12, width = 9)
test_query_up[["pvalue_plots"]][["BP"]]
## Error: object 'test_query_up' not found
dev.off()
## png 
##   2
enrichplot::dotplot(test_query_up[["BP_enrich"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'dotplot': object 'test_query_up' not found
test_genes_down <- hs_macr_lesssig[["deseq"]][["downs"]][["z23nosb_vs_uninf"]]
## Error: object 'hs_macr_lesssig' not found
test_query_down <- simple_gprofiler(test_genes_down)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'test_genes_down' not found
test_query_down[["pvalue_plots"]][["REAC"]]
## Error: object 'test_query_down' not found
## I keep getting all sorts of annoying biomart errors.
hs_go <- try(load_biomart_go(archive = FALSE, overwrite = TRUE))
## Using mart: ENSEMBL_MART_ENSEMBL from host: useast.ensembl.org.
## Unable to perform useDataset, the given dataset is incorrect: hsapiens_gene_ensembl.
## Error in req_perform(request) : Failed to perform HTTP request.
## Caused by error in `curl::curl_fetch_memory()` at httr2/R/req-perform.R:201:5:
## ! Timeout was reached [useast.ensembl.org]:
## Operation timed out after 60002 milliseconds with 0 bytes received
if ("try-error" %in% class(hs_go)) {
  hs_go <- load_biomart_go(archive = TRUE, month = "04", year = "2020", overwrite = TRUE)
}
## Using mart: ENSEMBL_MART_ENSEMBL from host: apr2020.archive.ensembl.org.
## Successfully connected to the hsapiens_gene_ensembl database.
## Warning in gzfile(file, "rb"): cannot open compressed file
## '/home/trey/.cache/biomaRt/file396e4b65cfbd82', probable reason 'No such file
## or directory'
## Finished downloading ensembl go annotations, saving to hsapiens_go_annotations.rda.
## Saving ontologies to hsapiens_go_annotations.rda.
## Finished save().
test_topgo_up <- simple_topgo(test_genes_up, go_db = hs_go[["go"]], parallel = FALSE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'sig_genes' in selecting a method for function 'simple_topgo': object 'test_genes_up' not found
written_topgo <- write_topgo_data(
  test_topgo_up,
  excel = glue("analyses/macrophage_de/ontology_topgo/topgo_z23_uninf_less_strict.xlsx"))
## Error: object 'test_topgo_up' not found

11.6.3 Infected with z2.2 no Antimonial vs. Uninfected

Here is where things will get most repetitive. In each instance I am creating a couple of volcano plots followed by printing some of the gProfiler2 results (when I get the itch).

The following should be a slightly improved version of our extant figure 2B.

## The original plot
hs_macr_table[["plots"]][["z22nosb_vs_uninf"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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",
  color_low = plot_colors[["uninfnone"]], color_high = plot_colors[["infz22"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
labeled <- z22nosb_vs_uninf_volcano[["plot"]] +
  scale_x_continuous(limits = c(-2, 21), breaks = c(-2, 0, 2, 4, 6, 8, 10, 21, 22)) +
  ggbreak::scale_x_break(c(11, 20), scales = 0.2, space = 0.02)
## Error: object 'z22nosb_vs_uninf_volcano' not found
pp(file = "figures/fig2b_labeled_with_break.svg")
labeled
## Error: object 'labeled' not found
dev.off()
## png 
##   2
labeled
## Error: object 'labeled' not found
plotly::ggplotly(z22nosb_vs_uninf_volcano[["plot"]])
## Error: object 'z22nosb_vs_uninf_volcano' not found

Add some pvalue barplots from gProfiler for this contrast.

all_gp[["z22nosb_vs_uninf_up"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.2 without drug vs. uninfected without drug, up.
all_gp[["z22nosb_vs_uninf_up"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.2 without drug vs. uninfected without drug, up.
all_gp[["z22nosb_vs_uninf_up"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.2 without drug vs. uninfected without drug, up.
all_gp[["z22nosb_vs_uninf_up"]][["pvalue_plots"]][["WP"]]
## Error: object 'all_gp' not found
## WikiPathways, zymodeme2.2 without drug vs. uninfected without drug, up.

all_gp[["z22nosb_vs_uninf_down"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.2 without drug vs. uninfected without drug, down.
all_gp[["z22nosb_vs_uninf_down"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.2 without drug vs. uninfected without drug, down.
all_gp[["z22nosb_vs_uninf_down"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

11.6.4 Infected with z2.3 treated vs. Uninfected treated

I do not think this plot is used at this time.

## The original plot
hs_macr_table[["plots"]][["z23sb_vs_sb"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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",
  color_low = plot_colors[["infsbz23"]], color_high = plot_colors[["uninfsbnone"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
z23sb_vs_uninfsb_volcano[["plot"]]
## Error: object 'z23sb_vs_uninfsb_volcano' not found
plotly::ggplotly(z23sb_vs_uninfsb_volcano[["plot"]])
## Error: object 'z23sb_vs_uninfsb_volcano' not found

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

This is figure 2C at this time.

## The original plot
hs_macr_table[["plots"]][["z23nosb_vs_z22nosb"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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",
  color_low = plot_colors[["infz23"]], color_high = plot_colors[["infz22"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
labeled <- z23nosb_vs_z22nosb_volcano[["plot"]] +
  scale_x_continuous(breaks = c(-10, -8, -6, -4, -2, 0, 2, 4, 6))
## Error: object 'z23nosb_vs_z22nosb_volcano' not found
pp(file = "figures/fig2c_labeled.svg")
labeled
## Error: object 'labeled' not found
dev.off()
## png 
##   2
labeled
## Error: object 'labeled' not found

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

This is currently figure 3C.

FIXME: The axis label isn’t quite right for the ggbreak.

## The original plot
hs_macr_table[["plots"]][["z23sb_vs_z22sb"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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",
  color_high = plot_colors[["infsbz23"]], color_low = plot_colors[["infsbz22"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
labeled <- z23sb_vs_z22sb_volcano[["plot"]] +
  scale_x_continuous(breaks = c(-23, -6, -4, -2, 0, 2, 4, 6)) +
  ggbreak::scale_x_break(c(-5, -22.5), scales = 10, space = 0.02)
## Error: object 'z23sb_vs_z22sb_volcano' not found
pp(file = "figures/fig3c_labeled_breaks.svg")
labeled
## Error: object 'labeled' not found
dev.off()
## png 
##   2
labeled
## Error: object 'labeled' not found

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

I think this is currently figure 3A.

FIXME: The axis label for the ggbreak isn’t quite right.

## The original plot
hs_macr_table[["plots"]][["z23sb_vs_z23nosb"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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",
  color_high = plot_colors[["infsbz23"]], color_low = plot_colors[["infz23"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
labeled <- z23sb_vs_z23nosb_volcano[["plot"]] +
  scale_x_continuous(limits = c(-19, 6),
                     breaks = c(-20, -18, -16, -14, -12, -10, -6, -4, -2, 0, 2, 4, 6)) +
  ggbreak::scale_x_break(c(-17, -8), scales = 17, space = 0.02)
## Error: object 'z23sb_vs_z23nosb_volcano' not found
pp(file = "figures/fig3a_labeled_with_break.svg")
labeled
## Error: object 'labeled' not found
dev.off()
## png 
##   2
labeled
## Error: object 'labeled' not found

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

## The original plot
hs_macr_table[["plots"]][["z22sb_vs_z22nosb"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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",
  color_high = plot_colors[["infsbz22"]], color_low = plot_colors[["infz22"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
labeled <- z22sb_vs_z22nosb_volcano[["plot"]] +
  scale_x_continuous(breaks = c(-6, -4, -2, 0, 2, 4, 6))
## Error: object 'z22sb_vs_z22nosb_volcano' not found
pp(file = "figures/fig3b_labeled.svg")
labeled
## Error: object 'labeled' not found
dev.off()
## png 
##   2
labeled
## Error: object 'labeled' not found

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

x_limits <- c(-6, 6)
## The original plot
hs_macr_table[["plots"]][["z23sb_vs_sb"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
z23sb_vs_sb_volcano[["plot"]]
## Error: object 'z23sb_vs_sb_volcano' not found

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

## The original plot
hs_macr_table[["plots"]][["z22sb_vs_sb"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
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"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
z22sb_vs_sb_volcano[["plot"]]
## Error: object 'z22sb_vs_sb_volcano' not found

11.6.11 Uninfected+SbV vs. Uninfected-SbV

This is currently figure 3D.

FIXME: This needs the BOLA2B ggbreak.

## The original plot
hs_macr_table[["plots"]][["sb_vs_uninf"]][["deseq_vol_plots"]]
## Error: object 'hs_macr_table' not found
sb_vs_uninf_volcano <- plot_volcano_condition_de(
  hs_macr_table[["data"]][["sb_vs_uninf"]], "sb_vs_uninf",
  fc_col = "deseq_logfc", p_col = "deseq_adjp",
  label = 10, label_column = "hgncsymbol",
  color_high = plot_colors[["uninfsbnone"]], color_low = plot_colors[["uninfnone"]])
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': error in evaluating the argument 'x' in selecting a method for function 'colnames': object 'hs_macr_table' not found
labeled <- sb_vs_uninf_volcano[["plot"]] +
  scale_x_continuous(breaks = c(-23, -6, -4, -2, 0, 2, 4, 6)) +
  ggbreak::scale_x_break(c(-5, -22.5), scales = 10, space = 0.02)
## Error: object 'sb_vs_uninf_volcano' not found
pp(file = "figures/fig3d_labeled_breaks.svg")
labeled
## Error: object 'labeled' not found
dev.off()
## png 
##   2
labeled
## Error: object 'labeled' not found

11.7 Double-check that gene counts match my perceptions

Check that my perception of the number of significant up/down genes matches what the table/venn says. In the following block I am performing some venn/upset analyses to see if the numbers of genes match what we have in the current version of the manuscript (plus or minus a gene) and thus if my interpretation of the figure/legend text matches what I think it means.

shared <- Vennerable::Venn(list(
  "drug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23sb_vs_uninf"]]),
  "nodrug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23nosb_vs_uninf"]])))
## Error: object 'hs_macr_sig' not found
pp(file = "images/z23_vs_uninf_venn_up.png")
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
dev.off()
## png 
##   2
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
## I see 910 z23sb/uninf and 670 no z23nosb/uninf genes in the venn diagram.
length(shared@IntersectionSets[["10"]]) + length(shared@IntersectionSets[["11"]])
## Error: object 'shared' not found
dim(hs_macr_sig[["deseq"]][["ups"]][["z23sb_vs_uninf"]])
## Error: object 'hs_macr_sig' not found
shared <- Vennerable::Venn(list(
  "drug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z22sb_vs_uninf"]]),
  "nodrug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z22nosb_vs_uninf"]])))
## Error: object 'hs_macr_sig' not found
pp(file = "images/z22_vs_uninf_venn_up.png")
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
dev.off()
## png 
##   2
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
length(shared@IntersectionSets[["10"]]) + length(shared@IntersectionSets[["11"]])
## Error: object 'shared' not found
dim(hs_macr_sig[["deseq"]][["ups"]][["z22sb_vs_uninf"]])
## Error: object 'hs_macr_sig' not found

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.

11.8 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.

11.8.1 Z2.3 / z2.2 without drug

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")
## Error in plot_volcano_de(table = hs_macr_table[["data"]][["z23nosb_vs_z22nosb"]], : could not find function "plot_volcano_de"
plotly::ggplotly(z23nosb_vs_z22nosb_volcano[["plot"]])
## Error: object 'z23nosb_vs_z22nosb_volcano' not found
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")
## Error in plot_volcano_de(table = hs_macr_table[["data"]][["z23sb_vs_z22sb"]], : could not find function "plot_volcano_de"
plotly::ggplotly(z23sb_vs_z22sb_volcano[["plot"]])
## Error: object 'z23sb_vs_z22sb_volcano' not found
z23nosb_vs_z22nosb_volcano[["plot"]] +
  xlim(-10, 10) +
  ylim(0, 60)
## Error: object 'z23nosb_vs_z22nosb_volcano' not found
pp(file = "images/z23nosb_vs_z22nosb_reactome_up.svg",
   image = all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["REAC"]],
   height = 12, width = 9)
## Error: object 'all_gp' not found
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["KEGG"]]
## Error: object 'all_gp' not found
## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["pvalue_plots"]][["WP"]]
## Error: object 'all_gp' not found
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23nosb_vs_z22nosb_up"]][["interactive_plots"]][["WP"]]
## Error: object 'all_gp' not found
pp(file = "images/z23nosb_vs_z22nosb_reactome_down.svg",
   image = all_gp[["z23nosb_vs_z22nosb_down"]][["pvalue_plots"]][["REAC"]],
   height = 12, width = 9)
## Error: object 'all_gp' not found
all_gp[["z23nosb_vs_z22nosb_down"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23nosb_vs_z22nosb_down"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23nosb_vs_z22nosb_down"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

11.8.2 z2.3 / z2.2 with drug

z23sb_vs_z22sb_volcano[["plot"]] +
  xlim(-10, 10) +
  ylim(0, 60)
## Error: object 'z23sb_vs_z22sb_volcano' not found
pp(
  file = "images/z23sb_vs_z22sb_reactome_up.png",
  image = all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["REAC"]],
  height = 12, width = 9)
## Error: object 'all_gp' not found
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["KEGG"]]
## Error: object 'all_gp' not found
## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["pvalue_plots"]][["WP"]]
## Error: object 'all_gp' not found
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z22sb_up"]][["interactive_plots"]][["WP"]]
## Error: object 'all_gp' not found
all_gp[["z23sb_vs_z22sb_down"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23sb_vs_z22sb_down"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23sb_vs_z22sb_down"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

11.8.3 Venn to see shared/unique genes

Once again I wish to pull out the significant genes and see how my numbers match against the text.

shared <- Vennerable::Venn(list(
  "drug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23sb_vs_z22sb"]]),
  "nodrug" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23nosb_vs_z22nosb"]])))
## Error: object 'hs_macr_sig' not found
pp(file = "images/drug_nodrug_venn_up.png")
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
dev.off()
## png 
##   2
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
shared <- Vennerable::Venn(
  list("drug" = rownames(hs_macr_sig[["deseq"]][["downs"]][["z23sb_vs_z22sb"]]),
       "nodrug" = rownames(hs_macr_sig[["deseq"]][["downs"]][["z23nosb_vs_z22nosb"]])))
## Error: object 'hs_macr_sig' not found
pp(file = "images/drug_nodrug_venn_down.png")
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
dev.off()
## png 
##   2
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found

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.

11.9 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.

11.9.1 z2.3 with and without drug

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")
## Error in plot_volcano_de(table = hs_macr_table[["data"]][["z23sb_vs_z23nosb"]], : could not find function "plot_volcano_de"
plotly::ggplotly(z23sb_vs_z23nosb_volcano[["plot"]])
## Error: object 'z23sb_vs_z23nosb_volcano' not found
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")
## Error in plot_volcano_de(table = hs_macr_table[["data"]][["z22sb_vs_z22nosb"]], : could not find function "plot_volcano_de"
plotly::ggplotly(z22sb_vs_z22nosb_volcano[["plot"]])
## Error: object 'z22sb_vs_z22nosb_volcano' not found
z23sb_vs_z23nosb_volcano[["plot"]] +
  xlim(-8, 8) +
  ylim(0, 210)
## Error: object 'z23sb_vs_z23nosb_volcano' not found
pp(file = "images/z23sb_vs_z23nosb_reactome_up.png",
   image = all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["REAC"]],
   height = 12, width = 9)
## Error: object 'all_gp' not found
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["KEGG"]]
## Error: object 'all_gp' not found
## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["pvalue_plots"]][["WP"]]
## Error: object 'all_gp' not found
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z23sb_vs_z23nosb_up"]][["interactive_plots"]][["WP"]]
## Error: object 'all_gp' not found
all_gp[["z23sb_vs_z23nosb_down"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23sb_vs_z23nosb_down"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z23sb_vs_z23nosb_down"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

11.9.2 z2.2 with and without drug

z22sb_vs_z22nosb_volcano[["plot"]] +
  xlim(-8, 8) +
  ylim(0, 210)
## Error: object 'z22sb_vs_z22nosb_volcano' not found
pp(file = "images/z22sb_vs_z22nosb_reactome_up.png",
   image = all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["REAC"]],
   height = 12, width = 9)
## Error: object 'all_gp' not found
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["KEGG"]]
## Error: object 'all_gp' not found
## KEGG, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["pvalue_plots"]][["WP"]]
## Error: object 'all_gp' not found
## WikiPathways, zymodeme2.3 without drug vs. uninfected without drug, up.
all_gp[["z22sb_vs_z22nosb_up"]][["interactive_plots"]][["WP"]]
## Error: object 'all_gp' not found
all_gp[["z22sb_vs_z22nosb_down"]][["pvalue_plots"]][["REAC"]]
## Error: object 'all_gp' not found
## Reactome, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z22sb_vs_z22nosb_down"]][["pvalue_plots"]][["MF"]]
## Error: object 'all_gp' not found
## MF, zymodeme2.3 without drug vs. uninfected without drug, down.
all_gp[["z22sb_vs_z22nosb_down"]][["pvalue_plots"]][["TF"]]
## Error: object 'all_gp' not found
## TF, zymodeme2.3 without drug vs. uninfected without drug, down.

11.9.3 Shared and unique genes after/before drug

shared <- Vennerable::Venn(list(
  "z23" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z23sb_vs_z23nosb"]]),
  "z22" = rownames(hs_macr_sig[["deseq"]][["ups"]][["z22sb_vs_z22nosb"]])))
## Error: object 'hs_macr_sig' not found
pp(file = "images/z23_z22_drug_venn_up.png")
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
dev.off()
## png 
##   2
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
shared <- Vennerable::Venn(list(
  "z23" = rownames(hs_macr_sig[["deseq"]][["downs"]][["z23sb_vs_z23nosb"]]),
  "z22" = rownames(hs_macr_sig[["deseq"]][["downs"]][["z22sb_vs_z22nosb"]])))
## Error: object 'hs_macr_sig' not found
pp(file = "images/z23_z22_drug_venn_down.png")
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found
dev.off()
## png 
##   2
Vennerable::plot(shared)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'plot': object 'shared' not found

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.

12 LRT of the Human Macrophage

A slightly different tack to examine the data is to perform a likelihood ratio test in order to look for trends which are shared among genes when examining different conditions in the data.

tmrc2_lrt_strain_drug <- deseq_lrt(hs_macr, interactor_column = "drug",
                                   interest_column = "macrophagezymodeme",
                                   factors = c("drug", "macrophagezymodeme"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'hs_macr' not found
tmrc2_lrt_strain_drug[["cluster_data"]][["plot"]]
## Error: object 'tmrc2_lrt_strain_drug' not found

13 Parasite

Let us consider for a moment differences among the parasite transcriptomes for the samples which were not drug treated.

One thing I did in the initial implementation of this document was to repeat the variable ‘up_genes’ for each comparison; I think this time I will make a different variable for each comparison so I can play with them a little further.

comparison <- "z23_vs_z22"
lp_macrophage_de <- all_pairwise(lp_macrophage_nosb,
                                 model_svs = "svaseq", filter = TRUE)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'pData': object 'lp_macrophage_nosb' not found
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/de_tables/parasite_infection_de-v{ver}.xlsx"))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'table' in selecting a method for function '%in%': object 'lp_macrophage_de' not found
lp_macrophage_sig <- extract_significant_genes(
  lp_macrophage_table,
  excel = glue("analyses/macrophage_de/sig_tables/parasite_sig-v{ver}.xlsx"))
## Error: object 'lp_macrophage_table' not found
lp_macrophage_table[["plots"]][[comparison]][["deseq_vol_plots"]]
## Error: object 'lp_macrophage_table' not found
lp_macrophage_table[["plots"]][[comparison]][["deseq_ma_plots"]]
## Error: object 'lp_macrophage_table' not found
up_genes_z23z22 <- lp_macrophage_sig[["deseq"]][["ups"]][[comparison]]
## Error: object 'lp_macrophage_sig' not found
dim(up_genes_z23z22)
## Error: object 'up_genes_z23z22' not found
down_genes_z23z22 <- lp_macrophage_sig[["deseq"]][["downs"]][[comparison]]
## Error: object 'lp_macrophage_sig' not found
dim(down_genes_z23z22)
## Error: object 'down_genes_z23z22' 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 plot_volcano_de(table = lp_macrophage_table[["data"]][["z23_vs_z22"]], : could not find function "plot_volcano_de"
plotly::ggplotly(lp_z23sb_vs_z22sb_volcano[["plot"]])
## Error: object 'lp_z23sb_vs_z22sb_volcano' not found
lp_z23sb_vs_z22sb_volcano[["plot"]]
## Error: object 'lp_z23sb_vs_z22sb_volcano' not found

14 GSVA

Note: The following block assumes one is able to download a fresh copy of msigDB, which I am not sure is possible within the constraints of a container (I mean it is trivial to do, but I am not sure if it is ok due to licensing). However, Broad provides a data package of a msigdb release. As a result, the following block will be repeated using that.

hs_infected <- subset_expt(hs_macrophage, subset = "macrophagetreatment!='uninf'") %>%
  subset_expt(subset = "macrophagetreatment!='uninf_sb'")
hs_gsva_c2 <- simple_gsva(hs_infected)
hs_gsva_c2_meta <- get_msigdb_metadata(hs_gsva_c2, msig_xml = "reference/msigdb_v7.2.xml")
hs_gsva_c2_sig <- get_sig_gsva_categories(
  hs_gsva_c2_meta,
  excel = glue("analyses/macrophage_de/gsva/hs_macrophage_gsva_c2_sig.xlsx"))
hs_gsva_c2_sig[["raw_plot"]]

hs_gsva_c7 <- simple_gsva(hs_infected, signature_category = "c7")
hs_gsva_c7_meta <- get_msigdb_metadata(hs_gsva_c7, msig_xml = "reference/msigdb_v7.2.xml")
hs_gsva_c7_sig <- get_sig_gsva_categories(
  hs_gsva_c7,
  excel = glue("analyses/macrophage_de/gsva/hs_macrophage_gsva_c7_sig.xlsx"))
hs_gsva_c7_sig[["raw_plot"]]

14.1 Repeat using the GSVAdata package.

hs_infected <- subset_expt(hs_macrophage, subset = "macrophagetreatment!='uninf'") %>%
  subset_expt(subset = "macrophagetreatment!='uninf_sb'")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'expt' in selecting a method for function 'subset_expt': error in evaluating the argument 'expt' in selecting a method for function 'subset_expt': object 'hs_macrophage' not found
hs_gsva_c2 <- simple_gsva(hs_infected)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'eset' in selecting a method for function 'simple_gsva': object 'hs_infected' not found
##hs_gsva_c2_meta <- get_msigdb_metadata(hs_gsva_c2, msig_xml="reference/msigdb_v7.2.xml")
hs_gsva_c2_sig <- get_sig_gsva_categories(
  hs_gsva_c2,
  excel = glue("analyses/macrophage_de/gsva/hs_macrophage_gsva_c2_sig.xlsx"))
## Error: object 'hs_gsva_c2' not found
hs_gsva_c2_sig[["raw_plot"]]
## Error: object 'hs_gsva_c2_sig' not found
hs_gsva_c7 <- simple_gsva(hs_infected, signature_category = "c7")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'eset' in selecting a method for function 'simple_gsva': object 'hs_infected' not found
##hs_gsva_c7_meta <- get_msigdb_metadata(hs_gsva_c7, msig_xml="reference/msigdb_v7.2.xml")
hs_gsva_c7_sig <- get_sig_gsva_categories(
  hs_gsva_c7,
  excel = glue("analyses/macrophage_de/gsva/hs_macrophage_gsva_c7_sig.xlsx"))
## Error: object 'hs_gsva_c7' not found
hs_gsva_c7_sig[["raw_plot"]]
## Error: object 'hs_gsva_c7_sig' not found

15 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:

  1. No rownames, instead column #1 is the sample ID.
  2. Columns 2-m are the categorical/survival/etc metrics.
  3. 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)

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'")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'expt' in selecting a method for function 'subset_expt': error in evaluating the argument 'expt' in selecting a method for function 'subset_expt': object 'hs_macrophage' not found
expt <- set_expt_conditions(expt, fact = "macrophagezymodeme")
## Error: unable to find an inherited method for function 'pData' for signature 'object = "function"'
symbol_column <- "hgnc_symbol"
symbol_vector <- fData(expt)[[symbol_column]]
## Error: unable to find an inherited method for function 'fData' for signature 'object = "function"'
names(symbol_vector) <- rownames(fData(expt))
## Error: unable to find an inherited method for function 'fData' for signature 'object = "function"'
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: object 'symbol_df' not found
assay_df[["Row.names"]] <- NULL
## Error: object 'assay_df' not found
rownames(assay_df) <- make.names(assay_df[["symbol_vector"]], unique = TRUE)
## Error: object 'assay_df' not found
assay_df[["symbol_vector"]] <- NULL
## Error: 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': object 'assay_df' not found
assay_df[["SampleID"]] <- rownames(assay_df)
## Error: object 'assay_df' not found
assay_df <- dplyr::select(assay_df, "SampleID", everything())
## Error: object 'assay_df' not found
factor_df <- as.data.frame(pData(expt))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': unable to find an inherited method for function 'pData' for signature 'object = "function"'
factor_df[["SampleID"]] <- rownames(factor_df)
## Error: object 'factor_df' not found
factor_df <- dplyr::select(factor_df, "SampleID", everything())
## Error: object 'factor_df' not found
factor_df <- factor_df[, c("SampleID", factors)]
## Error: object 'factor_df' not found
tt <- CreateOmics(
  assayData_df = assay_df,
  pathwayCollection_ls = wikipathways,
  response = factor_df,
  respType = "categorical",
  minPathSize = 5)
## Error: object 'factor_df' not found
super <- AESPCA_pVals(
  object = tt,
  numPCs = 2,
  parallel = FALSE,
  numCores = 8,
  numReps = 2,
  adjustment = "BH")
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'AESPCA_pVals': object 'tt' not found

16 Evaluating a log2FC barplot

Figure 2E is now comprised of a plot which shows log2FC values with error bars for selected genes and seeks to show differences between 2.3/uninfected and 2.2/uninfected.

Here is the table Olga used to generate it:

I went looking in the xlsx files produced in 202405 and found that these are the log2FC values and standard errors produced by DESeq2.

It should be noted that in my most recent version of these analyses, these numbers did shift slightly. I am looking into that now.

  • Data witout drug

** 2.3 vs Uninfected MØ 2.2 vs Uninfected MØ

16.1 | Gene | Mean | SEM | n | Mean | SEM |n |

|IFI27 | 7.224 | 0.5662 |6 | 2.702 | 0.5669 | 6| |RSAD2 | 6.29 | 0.7312 |6 | 1.623 | 0.7303 | 6| |CCL8 | 6.225 | 0.928 |6 | -0.314| 0.941 | 6| |IFI44L| 5.895 | 0.612 |6 | 2.06 | 0.611 | 6| |OASL | 4.726 | 0.4974 |6 | 1.392 | 0.4973 | 6| |USP18 | 3.644 | 0.483 |6 | 0.999 | 0.4826 | 6| |IDO1 | 7.145 | 1.107 |6 | 1.257 | 1.141 | 6| |IDO2 | 3.935 | 1.3 |6 | 2.557 | 1.341 | 6| |KYNU | 1.07 | 0.2186 |6 | 0.0207| 0.2184 | 6| |AHR | 0.9382 | 0.2236 |6 | 0.5032| 0.2239 | 6| |IL4I1 | 2.593 | 0.4623 |6 | 0.039 | 0.4618 | 6| |SOD2 | 2.76 | 0.349 |6 | 0.4241| 0.3528 | 6| |NOTCH1| 0.7572| 0.275 |6 | 1.495 | 0.2744 | 6| |DLL1 | 0.8268| 0.5285 |6 | 3.455 | 0.5228 | 6| |DLL4 | 1.116 | 0.737 |6 | 4.243 | 0.71 | 6| |HES1 | -0.0183| 0.8599 |6 | 6.536 | 0.7973 | 6| |HEY1 | 0.5533| 0.5789 |6 | 4.181 | 0.6273 | 6|

Ok, I think I found a problem: The NOTCH1 value is actually the adjusted p-value.

  • Transporters without drug

** 2.3 vs Uninfected MØ 2.2 vs Uninfected MØ

16.2 | Gene | Mean | SEM | n| Mean | SEM | n|

|ABCB1 | -2.354 | 0.442 | 6| -0.406| 0.431| 6| |ABCG4 | -3.715 | 0.648 | 6| -0.653| 0.630| 6| |ABCB5 | -1.192 | 0.380 | 6| 1.351 | 0.363| 6| |ABCA9 | 1.880 | 0.648 | 6| 3.444 | 0.637| 6| |ABCC2 | 0.454 | 0.321 | 6| 1.818 | 0.314| 6| |AQP2 | -1.191 | 0.529 | 6| 0.745 | 0.514| 6| |AQP3 | -0.940 | 0.402 | 6| 0.431 | 0.395| 6|

  • Transporters with drug

** 2.3 vs Uninfected MØ 2.2 vs Uninfected MØ

16.3 |Gene | Mean | SEM | n| Mean | SEM | n |

|ABCB1 | -0.697| 0.349 | 6| -1.255| 0.337 | 6| |ABCG4 | 1.231 | 0.503 | 6| 0.547 | 0.484 | 6| |AQP2 | 0.816 | 0.399 | 6| 0.043 | 0.387 | 6| |AQP3 | -1.286| 0.320 | 6| -1.613| 0.309 | 6| |AQP8 | 0.634 | 0.370 | 6| 0.943 | 0.365 | 6|

Let us now see if I can recapitulate the plot…

nodrug_contrasts <- c("z23nosb_vs_uninf", "z22nosb_vs_uninf")
genes_no_drug <- c("IFI27", "RSAD2", "CCL8", "IFI44L", "OASL", "USP18", "IDO1", "IDO2", "KYNU", "AHR", "IL4I1", "SOD2", "NOTCH1", "DLL1", "DLL4", "HES1", "HEY1")
transporters_no_drug <- c("ABCB1", "ABCG4", "ABCB5", "ABCA9", "ABCC2", "AQP2", "AQP3")
drug_contrasts <- c("z23sb_vs_sb", "z22sb_vs_sb")
transporters_drug <- c("ABCB1", "ABCG4", "AQP2", "AQP3", "AQP8")

These values came out of the data structure called ‘hs_macr_table’

z23nosb_uninf_values <- hs_macr_table[["data"]][["z23nosb_vs_uninf"]]
## Error: object 'hs_macr_table' not found
gene_idx <- z23nosb_uninf_values[["hgnc_symbol"]] %in% genes_no_drug
## Error: object 'z23nosb_uninf_values' not found
nodrug_rows <-  z23nosb_uninf_values[gene_idx, ]
## Error: object 'z23nosb_uninf_values' not found
rownames(nodrug_rows) <- nodrug_rows[["hgnc_symbol"]]
## Error: object 'nodrug_rows' not found
z23_nodrug_values <- nodrug_rows[, c("deseq_logfc", "deseq_lfcse")]
## Error: object 'nodrug_rows' not found
z23_nodrug_values
## Error: object 'z23_nodrug_values' not found
z22nosb_uninf_values <- hs_macr_table[["data"]][["z22nosb_vs_uninf"]]
## Error: object 'hs_macr_table' not found
gene_idx <- z22nosb_uninf_values[["hgnc_symbol"]] %in% genes_no_drug
## Error: object 'z22nosb_uninf_values' not found
nodrug_rows <-  z22nosb_uninf_values[gene_idx, ]
## Error: object 'z22nosb_uninf_values' not found
rownames(nodrug_rows) <- nodrug_rows[["hgnc_symbol"]]
## Error: object 'nodrug_rows' not found
z22_nodrug_values <- nodrug_rows[, c("deseq_logfc", "deseq_lfcse")]
## Error: object 'nodrug_rows' not found
z22_nodrug_values
## Error: object 'z22_nodrug_values' not found
z23_nodrug_values[["state"]] <- "z23_vs_uninfected"
## Error: object 'z23_nodrug_values' not found
z22_nodrug_values[["state"]] <- "z22_vs_uninfected"
## Error: object 'z22_nodrug_values' not found
plot_df <- rbind.data.frame(as.data.frame(z23_nodrug_values), as.data.frame(z22_nodrug_values))
## Error in h(simpleError(msg, call)): error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': object 'z23_nodrug_values' not found
plot_df[["gene"]] <- rownames(plot_df)
## Error: object 'plot_df' not found
## I just realized that this is actually just a comparison of z23/z22
## we should just take the adjusted p-values from that contrast for this.
z23_z22_comparison <- hs_macr_table[["data"]][["z23nosb_vs_z22nosb"]]
## Error: object 'hs_macr_table' not found
nodrug_rows <- z23_z22_comparison[gene_idx, ]
## Error: object 'z23_z22_comparison' not found
nodrug_pvalues <- nodrug_rows[, c("deseq_p", "deseq_adjp")]
## Error: object 'nodrug_rows' not found
rownames(nodrug_pvalues) <- nodrug_rows[["hgnc_symbol"]]
## Error: object 'nodrug_rows' not found
nodrug_pvalues
## Error: object 'nodrug_pvalues' not found
ggplot(plot_df, aes(x = gene, y = deseq_logfc, fill = state)) +
  geom_bar(position = position_dodge(), stat = "identity") +
  geom_errorbar(aes(ymin = deseq_logfc - deseq_lfcse,
                    ymax = deseq_logfc + deseq_lfcse),
                width = 0.2, position = position_dodge(0.9)) +
  scale_fill_manual(values = c("#1B9E77", "#7570B3")) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5))
## Error: object 'plot_df' not found
comparison <- c("z23_vs_uninfected", "z22_vs_uninfected")
comparisons <- rep(list(comparison), nrow(plot_df) / 2)
## Error: object 'plot_df' not found
ggplot(plot_df, aes(x = gene, y = deseq_logfc, fill = state, add = deseq_lfcse, facet.by = "state")) +
  geom_bar(position = position_dodge(), stat = "identity") +
  geom_errorbar(aes(ymin = deseq_logfc - deseq_lfcse,
                    ymax = deseq_logfc + deseq_lfcse),
                width = 0.2, position = position_dodge(0.9)) +
  stat_compare_means() +
  stat_compare_means(comparisons = comparisons, label.y = rownames(z23_nodrug_values)) +
  scale_fill_manual(values = c("#1B9E77", "#7570B3")) +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5))
## Error: object 'plot_df' not found

Excellent, the values now match up. Now I ust need to figure out why the stupid hgnc IDs got lost… I can see them in the hs_annot data structure, so I must have messed up when I regenered the input to the de. Ok, I got to the same starting point now with identical values. As soon as I did that, I looked at the resulting plot and realized that we are actually just comparing z23 / z22.

Here is why: the plot as it stands is a comparison of the log2FC values of the following two contrasts: z23/uninfected and z22/uninfected; stated differently, this is (z23/uninf)/(z22/uninf) which of course cancels out to just z23/z22.

Therefore it is much more parsimonious to just use the values from z23/z22. I swear I have gone through this exact exercise on so so many occasions in the past it is terrible.

wanted_genes <- c("IFI27", "RSAD2", "CCL8", "IFI44L", "OASL",
                  "USP18", "IDO1", "IDO2", "KYNU", "AHR", "IL4I1",
                  "SOD2", "NOTCH1", "DLL1", "DLL4", "HES1", "HEY1")
ggsignif_plot <- ggsignif_paired_genes(
  hs_macr, conditions = c("inf_z23", "inf_z22"), genes = wanted_genes)
## Error in h(simpleError(msg, call)): error in evaluating the argument 'object' in selecting a method for function 'normalize': object 'hs_macr' not found
ggsignif_plot
## Error: object 'ggsignif_plot' not found
pander::pander(sessionInfo())
## Warning: Your system is mis-configured: '/etc/localtime' is not a symlink
## Warning: It is strongly recommended to set envionment variable TZ to
## 'America/New_York' (or equivalent)

R version 4.5.0 (2025-04-11)

Platform: x86_64-pc-linux-gnu

locale: C

attached base packages: stats, graphics, grDevices, utils, datasets, methods and base

other attached packages: rWikiPathways(v.1.28.0), pathwayPCA(v.1.24.0), ggstatsplot(v.0.13.1), enrichplot(v.1.28.4), tidyr(v.1.3.1), tibble(v.3.3.0), UpSetR(v.1.4.0), hpgltools(v.1.2), Heatplus(v.3.16.0), glue(v.1.8.0), ggplot2(v.3.5.2) and ggbreak(v.0.1.6)

loaded via a namespace (and not attached): splines(v.4.5.0), later(v.1.4.3), bitops(v.1.0-9), ggplotify(v.0.1.2), filelock(v.1.0.3), R.oo(v.1.27.1), datawizard(v.1.2.0), graph(v.1.86.0), XML(v.3.99-0.19), lifecycle(v.1.0.4), httr2(v.1.2.1), edgeR(v.4.6.3), lattice(v.0.22-7), insight(v.1.4.0), backports(v.1.5.0), magrittr(v.2.0.3), openxlsx(v.4.2.8), limma(v.3.64.3), plotly(v.4.11.0), sass(v.0.4.10), rmarkdown(v.2.29), jquerylib(v.0.1.4), yaml(v.2.3.10), httpuv(v.1.6.16), ggtangle(v.0.0.7), zip(v.2.3.3), cowplot(v.1.2.0), DBI(v.1.2.3), RColorBrewer(v.1.1-3), abind(v.1.4-8), GenomicRanges(v.1.60.0), purrr(v.1.1.0), R.utils(v.2.13.0), RCurl(v.1.98-1.17), BiocGenerics(v.0.54.0), yulab.utils(v.0.2.1), rappdirs(v.0.3.3), GenomeInfoDbData(v.1.2.14), IRanges(v.2.42.0), S4Vectors(v.0.46.0), ggrepel(v.0.9.6), correlation(v.0.8.8), tidytree(v.0.4.6), Vennerable(v.3.1.0.9000), annotate(v.1.86.1), codetools(v.0.2-20), DelayedArray(v.0.34.1), xml2(v.1.4.0), DOSE(v.4.2.0), tidyselect(v.1.2.1), aplot(v.0.2.8), UCSC.utils(v.1.4.0), farver(v.2.1.2), effectsize(v.1.0.1), matrixStats(v.1.5.0), stats4(v.4.5.0), BiocFileCache(v.2.16.1), jsonlite(v.2.0.0), survival(v.3.8-3), iterators(v.1.0.14), foreach(v.1.5.2), tools(v.4.5.0), progress(v.1.2.3), treeio(v.1.32.0), Rcpp(v.1.1.0), gridExtra(v.2.3), SparseArray(v.1.8.1), xfun(v.0.53), DESeq2(v.1.48.1), qvalue(v.2.40.0), MatrixGenerics(v.1.20.0), GenomeInfoDb(v.1.44.2), dplyr(v.1.1.4), withr(v.3.0.2), BiocManager(v.1.30.26), fastmap(v.1.2.0), digest(v.0.6.37), R6(v.2.6.1), mime(v.0.13), gridGraphics(v.0.5-1), GO.db(v.3.21.0), dichromat(v.2.0-0.1), biomaRt(v.2.64.0), RSQLite(v.2.4.3), R.methodsS3(v.1.8.2), generics(v.0.1.4), data.table(v.1.17.8), prettyunits(v.1.2.0), httr(v.1.4.7), htmlwidgets(v.1.6.4), S4Arrays(v.1.8.1), parameters(v.0.28.0), pkgconfig(v.2.0.3), gtable(v.0.3.6), blob(v.1.2.4), statsExpressions(v.1.7.1), XVector(v.0.48.0), htmltools(v.0.5.8.1), fgsea(v.1.34.2), RBGL(v.1.84.0), GSEABase(v.1.70.0), scales(v.1.4.0), Biobase(v.2.68.0), png(v.0.1-8), ggfun(v.0.2.0), knitr(v.1.50), rjson(v.0.2.23), reshape2(v.1.4.4), nlme(v.3.1-168), curl(v.7.0.0), cachem(v.1.1.0), stringr(v.1.5.1), parallel(v.4.5.0), AnnotationDbi(v.1.70.0), pillar(v.1.11.0), grid(v.4.5.0), vctrs(v.0.6.5), promises(v.1.3.3), dbplyr(v.2.5.0), xtable(v.1.8-4), paletteer(v.1.6.0), evaluate(v.1.0.4), zeallot(v.0.2.0), cli(v.3.6.5), locfit(v.1.5-9.12), compiler(v.4.5.0), rlang(v.1.1.6), crayon(v.1.5.3), rstantools(v.2.4.0), rematch2(v.2.1.2), plyr(v.1.8.9), fs(v.1.6.6), pander(v.0.6.6), stringi(v.1.8.7), viridisLite(v.0.4.2), BiocParallel(v.1.42.1), Biostrings(v.2.76.0), lazyeval(v.0.2.2), bayestestR(v.0.16.1), GOSemSim(v.2.34.0), Matrix(v.1.7-3), lars(v.1.3), hms(v.1.1.3), patchwork(v.1.3.2), bit64(v.4.6.0-1), varhandle(v.2.0.6), KEGGREST(v.1.48.1), statmod(v.1.5.0), shiny(v.1.11.1), SummarizedExperiment(v.1.38.1), igraph(v.2.1.4), broom(v.1.0.9), memoise(v.2.0.1), RcppParallel(v.5.1.11-1), bslib(v.0.9.0), ggtree(v.3.17.1.001), fastmatch(v.1.1-6), bit(v.4.6.0) and ape(v.5.8-1)

message("This is hpgltools commit: ", get_git_commit())
## If you wish to reproduce this exact build of hpgltools, invoke the following:
## > git clone http://github.com/abelew/hpgltools.git
## > git reset 7e330419388a441dce04bfb7cce31bb7c8be3ef4
## This is hpgltools commit: Thu Aug 28 22:20:45 2025 -0400: 7e330419388a441dce04bfb7cce31bb7c8be3ef4
tmp <- saveme(filename = savefile)
## The savefile is: /lab/singularity/tmrc2_macrophage_deb/202508291011_outputs/savefiles/03differential_expression.rda.xz
## The file does not yet exist.
## The save string is: con <- pipe(paste0('pxz > /lab/singularity/tmrc2_macrophage_deb/202508291011_outputs/savefiles/03differential_expression.rda.xz'), 'wb'); save(list = ls(all.names = TRUE, envir = globalenv()),
##      envir = globalenv(), file = con, compress = FALSE); close(con)
## Error in save(list = ls(all.names = TRUE, envir = globalenv()), envir = globalenv(), : ignoring SIGPIPE signal
tmp <- loadme(filename = savefile)

devtools::load_all(‘~/hpgltools’)

LS0tCnRpdGxlOiAiVE1SQzIgYHIgU3lzLmdldGVudignVkVSU0lPTicpYDogTWFjcm9waGFnZSBEaWZmZXJlbnRpYWwgRXhwcmVzc2lvbi4iCmF1dGhvcjogImF0YiBhYmVsZXdAZ21haWwuY29tIgpkYXRlOiAiYHIgU3lzLkRhdGUoKWAiCm91dHB1dDoKICBodG1sX2RvY3VtZW50OgogICAgY29kZV9kb3dubG9hZDogdHJ1ZQogICAgY29kZV9mb2xkaW5nOiBzaG93CiAgICBmaWdfY2FwdGlvbjogdHJ1ZQogICAgZmlnX2hlaWdodDogNwogICAgZmlnX3dpZHRoOiA3CiAgICBoaWdobGlnaHQ6IHplbmJ1cm4KICAgIGtlZXBfbWQ6IGZhbHNlCiAgICBtb2RlOiBzZWxmY29udGFpbmVkCiAgICBudW1iZXJfc2VjdGlvbnM6IHRydWUKICAgIHNlbGZfY29udGFpbmVkOiB0cnVlCiAgICB0aGVtZTogcmVhZGFibGUKICAgIHRvYzogdHJ1ZQogICAgdG9jX2Zsb2F0OgogICAgICBjb2xsYXBzZWQ6IGZhbHNlCiAgICAgIHNtb290aF9zY3JvbGw6IGZhbHNlCi0tLQoKPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KYm9keSAubWFpbi1jb250YWluZXIgewogIG1heC13aWR0aDogMTYwMHB4Owp9CmJvZHksIHRkIHsKICBmb250LXNpemU6IDE2cHg7Cn0KY29kZS5yewogIGZvbnQtc2l6ZTogMTZweDsKfQpwcmUgewogIGZvbnQtc2l6ZTogMTZweAp9Cjwvc3R5bGU+CgpgYGB7ciBvcHRpb25zLCBpbmNsdWRlID0gRkFMU0V9CmxpYnJhcnkoZ2dicmVhaykKbGlicmFyeShnZ3Bsb3QyKQpsaWJyYXJ5KGdsdWUpCmxpYnJhcnkoSGVhdHBsdXMpCmxpYnJhcnkoaHBnbHRvb2xzKQpsaWJyYXJ5KFVwU2V0UikKbGlicmFyeSh0aWJibGUpCmxpYnJhcnkodGlkeXIpCmxpYnJhcnkoZW5yaWNocGxvdCkKbGlicmFyeShnZ3N0YXRzcGxvdCkKCmtuaXRyOjpvcHRzX2tuaXQkc2V0KHByb2dyZXNzID0gVFJVRSwgdmVyYm9zZSA9IFRSVUUsIHdpZHRoID0gOTAsIGVjaG8gPSBUUlVFKQprbml0cjo6b3B0c19jaHVuayRzZXQoCiAgZXJyb3IgPSBUUlVFLCBmaWcud2lkdGggPSA4LCBmaWcuaGVpZ2h0ID0gOCwgZmlnLnJldGluYSA9IDIsCiAgb3V0LndpZHRoID0gIjEwMCUiLCBkZXYgPSAicG5nIiwKICBkZXYuYXJncyA9IGxpc3QocG5nID0gbGlzdCh0eXBlID0gImNhaXJvLXBuZyIpKSkKb2xkX29wdGlvbnMgPC0gb3B0aW9ucyhkaWdpdHMgPSA0LCBzdHJpbmdzQXNGYWN0b3JzID0gRkFMU0UsIGtuaXRyLmR1cGxpY2F0ZS5sYWJlbCA9ICJhbGxvdyIpCmdncGxvdDI6OnRoZW1lX3NldChnZ3Bsb3QyOjp0aGVtZV9idyhiYXNlX3NpemUgPSAxMikpCnZlciA8LSBTeXMuZ2V0ZW52KCJWRVJTSU9OIikKcHJldmlvdXNfZmlsZSA8LSAiIgpydW5kYXRlIDwtIGZvcm1hdChTeXMuRGF0ZSgpLCBmb3JtYXQgPSAiJVklbSVkIikKCiMjIHRtcCA8LSB0cnkoc20obG9hZG1lKGZpbGVuYW1lID0gZ3N1YihwYXR0ZXJuID0gIlxcLlJtZCIsIHJlcGxhY2UgPSAiXFwucmRhXFwueHoiLCB4ID0gcHJldmlvdXNfZmlsZSkpKSkKcm1kX2ZpbGUgPC0gIjAzZGlmZmVyZW50aWFsX2V4cHJlc3Npb24uUm1kIgpsb2FkZWQgPC0gbG9hZChmaWxlID0gZ2x1ZSgicmRhL3RtcmMyX2RhdGFfc3RydWN0dXJlcy12e3Zlcn0ucmRhIikpCnNhdmVmaWxlIDwtIGdzdWIocGF0dGVybiA9ICJcXC5SbWQiLCByZXBsYWNlID0gIlxcLnJkYVxcLnh6IiwgeCA9IHJtZF9maWxlKQpjcmVhdGVkIDwtIGRpci5jcmVhdGUoImFuYWx5c2VzIikKYGBgCgojIENoYW5nZWxvZwoKKiAyMDI0MDEtMjAyNDA1OiBDbGVhbnVwcywgZm9ybWF0dGluZywgZW5zdXJpbmcgdGhhdCBldmVyeXRoaW5nIHdvcmtzIGluIHRoZSBjb250YWluZXIuCiogMjAyMzEwOiBDbGVhbmluZyB1cCB0byBtYWtlIGV2ZXJ5dGhpbmcgcGFzcyB3aXRoaW4gYSBjb250YWluZXJpemVkIGVudmlyb25tZW50LgoqIDIwMjMxMDogUmVjZWl2ZWQgYSBzZXQgb2YgY29sb3JzIGFuZCBjb250cmFzdHMgb2YgaW50ZXJlc3QgZm9yIGEgYmFycGxvdCBvZiBzaWduaWZpY2FuY2UuCiogMjAyMzA0MTA6IE1ha2luZyBzb21lIGNoYW5nZXMgdG8gaW1wcm92ZSB0aGUgZGlmZmVyZW50aWFsIGV4cHJlc3Npb24KICBwbG90cyBhcyB3ZWxsIGFzIHByZXBhcmUgZm9yIHNvbWUgZGlmZmVyZW50IHBhdGh3YXkvR1NFQS9HU1ZBCiAgYW5hbHlzZXMgb24gdGhlIGRhdGEuCgojIEludHJvZHVjdGlvbgoKSGF2aW5nIGVzdGFibGlzaGVkIHRoYXQgdGhlIFRNUkMyIG1hY3JvcGhhZ2UgZGF0YSBsb29rcyByb2J1c3QgYW5kCmlsbHVzdHJhdGl2ZSBvZiBhIGNvdXBsZSBvZiBpbnRlcmVzdGluZyBxdWVzdGlvbnMsIGxldCB1cyBwZXJmb3JtIGEKY291cGxlIG9mIGRpZmZlcmVudGlhbCBhbmFseXNlcyBvZiBpdC4KCkFsc28gbm90ZSB0aGF0IGFzIG9mIDIwMjIxMiwgd2UgcmVjZWl2ZWQgYSBuZXcgc2V0IG9mIHNhbXBsZXMgd2hpY2gKbm93IGluY2x1ZGUgc29tZSB3aGljaCBhcmUgYSBjb21wbGV0ZWx5IGRpZmZlcmVudCBjZWxsIHR5cGUsClU5MzcuICBBcyB0aGVpciBBVENDIHBhZ2Ugc3RhdGVzLCB0aGV5IGFyZSBtYWxpZ25hbnQgY2VsbHMgdGFrZW4gZnJvbQp0aGUgcGxldXJhbCBlZmZ1c2lvbiBvZiBhIDM3IHllYXIgb2xkIHdoaXRlIG1hbGUgd2l0aCBoaXN0aW9jeXRpYwpseW1waG9tYSBhbmQgd2hpY2ggZXhoaWJpdCB0aGUgbW9ycGhvbG9neSBvZiBtb25vY3l0ZXMuICBUaHVzLCB0aGlzCmRvY3VtZW50IG5vdyBpbmNsdWRlcyBzb21lIGNvbXBhcmlzb25zIG9mIHRoZSBjZWxsIHR5cGVzIGFzIHdlbGwgYXMKdGhlIHZhcmlvdXMgbWFjcm9waGFnZSBkb25vcnMgKGdpdmVuIHRoYXQgdGhlcmUgYXJlIG5vdyBtb3JlIGRvbm9ycwp0b28pLgoKIyMgSHVtYW4gZGF0YQoKSSBhbSBtb3ZpbmcgdGhlIGRhdGFzZXQgbWFuaXB1bGF0aW9ucyBoZXJlIHNvIHRoYXQgSSBjYW4gbG9vayBhdCB0aGVtCmFsbCB0b2dldGhlciBiZWZvcmUgcnVubmluZyB0aGUgdmFyaW91cyBERSBhbmFseXNlcy4KCiMjIENyZWF0ZSBzZXRzIGZvY3VzZWQgb24gZHJ1ZywgY2VsbHR5cGUsIHN0cmFpbiwgYW5kIGNvbWJpbmF0aW9ucwoKTGV0IHVzIHN0YXJ0IGJ5IHBsYXlpbmcgd2l0aCB0aGUgbWV0YWRhdGEgYSBsaXR0bGUgYW5kIGNyZWF0ZSBzZXRzCndpdGggdGhlIGNvbmRpdGlvbiBzZXQgdG86CgoqIERydWcgdHJlYXRtZW50CiogQ2VsbCB0eXBlIChtYWNyb3BoYWdlIG9yIFU5MzcpCiogRG9ub3IKKiBJbmZlY3Rpb24gU3RyYWluCiogU29tZSB1c2VmdWwgY29tYmluYXRpb25zIHRoZXJlb2YKCkluIGFkZGl0aW9uLCBrZWVwIG1lbnRhbCB0cmFjayBvZiB3aGljaCBkYXRhc2V0cyBhcmUgY29tcHJpc2VkIG9mIGFsbApzYW1wbGVzIHZzLiB0aG9zZSB3aGljaCBhcmUgb25seSBtYWNyb3BoYWdlIHZzLiB0aG9zZSB3aGljaCBhcmUgb25seQpVOTM3LiAgKFRodXMsIHRoZSB1c2FnZSBvZiBhbGxfaHVtYW4gdnMuIGhzX21hY3IgdnMuIHU5MzcgYXMgcHJlZml4ZXMKZm9yIHRoZSBkYXRhIHN0cnVjdHVyZXMuKQoKSWRlYWxseSwgdGhlc2UgcmVjcmVhdGlvbnMgb2YgdGhlIGRhdGEgc2hvdWxkIHBlcmhhcHMgYmUgaW4gdGhlCmRhdGFzdHJ1Y3R1cmVzIHdvcmtzaGVldC4KCmBgYHtyfQphbGxfaHVtYW4gPC0gc2FuaXRpemVfZXhwdF9wRGF0YShoc19tYWNyb3BoYWdlLCBjb2x1bW5zID0gImRydWciKSAlPiUKICBzZXRfY29uZGl0aW9ucyhmYWN0ID0gImRydWciLCBjb2xvcnMgPSBjb2xvcl9jaG9pY2VzW1siZHJ1ZyJdXSkgJT4lCiAgc2V0X2JhdGNoZXMoZmFjdCA9ICJ0eXBlb2ZjZWxscyIpCgojIyBUaGUgZm9sbG93aW5nIDMgbGluZXMgd2VyZSBjb3B5L3Bhc3RlZCB0byBkYXRhc3RydWN0dXJlcyBhbmQgc2hvdWxkIGJlIHJlbW92ZWQgc29vbi4Kbm9fc3RyYWluX2lkeCA8LSBjb2xEYXRhKGFsbF9odW1hbilbWyJzdHJhaW5pZCJdXSA9PSAibm9uZSIKIyNwRGF0YShhbGxfaHVtYW4pW1sic3RyYWluaWQiXV0gPC0gcGFzdGUwKCJzIiwgcERhdGEoYWxsX2h1bWFuKVtbInN0cmFpbmlkIl1dLAojIyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIl8iLCBwRGF0YShhbGxfaHVtYW4pW1sibWFjcm9waGFnZXp5bW9kZW1lIl1dKQpjb2xEYXRhKGFsbF9odW1hbilbbm9fc3RyYWluX2lkeCwgInN0cmFpbmlkIl0gPC0gIm5vbmUiCnRhYmxlKGNvbERhdGEoYWxsX2h1bWFuKVtbInN0cmFpbmlkIl1dKQoKYWxsX2h1bWFuX3R5cGVzIDwtIHNldF9jb25kaXRpb25zKGFsbF9odW1hbiwgZmFjdCA9ICJ0eXBlb2ZjZWxscyIpICU+JQogIHNldF9iYXRjaGVzKGZhY3QgPSAiZHJ1ZyIpCgp0eXBlX3p5bW9fZmFjdCA8LSBwYXN0ZTAoY29sRGF0YShhbGxfaHVtYW5fdHlwZXMpW1siY29uZGl0aW9uIl1dLCAiXyIsCiAgICAgICAgICAgICAgICAgICAgICAgICBjb2xEYXRhKGFsbF9odW1hbl90eXBlcylbWyJtYWNyb3BoYWdlenltb2RlbWUiXV0pCnR5cGVfenltbyA8LSBzZXRfY29uZGl0aW9ucyhhbGxfaHVtYW5fdHlwZXMsIGZhY3QgPSB0eXBlX3p5bW9fZmFjdCkKCnR5cGVfZHJ1Z19mYWN0IDwtIHBhc3RlMChjb2xEYXRhKGFsbF9odW1hbl90eXBlcylbWyJjb25kaXRpb24iXV0sICJfIiwKICAgICAgICAgICAgICAgICAgICAgICAgIGNvbERhdGEoYWxsX2h1bWFuX3R5cGVzKVtbImRydWciXV0pCnR5cGVfZHJ1ZyA8LSBzZXRfY29uZGl0aW9ucyhhbGxfaHVtYW5fdHlwZXMsIGZhY3QgPSB0eXBlX2RydWdfZmFjdCkKCnN0cmFpbl9mYWN0IDwtIGNvbERhdGEoYWxsX2h1bWFuX3R5cGVzKVtbInN0cmFpbmlkIl1dCnRhYmxlKHN0cmFpbl9mYWN0KQoKbmV3X2NvbmRpdGlvbnMgPC0gcGFzdGUwKGNvbERhdGEoaHNfbWFjcm9waGFnZSlbWyJtYWNyb3BoYWdldHJlYXRtZW50Il1dLCAiXyIsCiAgICAgICAgICAgICAgICAgICAgICAgICBjb2xEYXRhKGhzX21hY3JvcGhhZ2UpW1sibWFjcm9waGFnZXp5bW9kZW1lIl1dKQojIyBOb3RlIHRoZSBzYW5pdGl6ZSgpIGNhbGwgaXMgcmVkdW5kYW50IHdpdGggdGhlIGFkZGl0aW9uIG9mIHNhbml0aXplKCkgaW4gdGhlCiMjIGRhdGFzdHJ1Y3R1cmVzIGZpbGUsIGJ1dCBJIGRvbid0IHdhbnQgdG8gd2FpdCB0byByZXJ1biB0aGF0Lgpoc19tYWNyIDwtIHNldF9jb25kaXRpb25zKGhzX21hY3JvcGhhZ2UsIGZhY3QgPSBuZXdfY29uZGl0aW9ucykgJT4lCiAgc2FuaXRpemVfZXhwdF9wRGF0YShjb2x1bW4gPSAiZHJ1ZyIpICU+JQogIHN1YnNldF9leHB0KHN1YnNldCA9ICJ0eXBlb2ZjZWxscyE9J1U5MzcnIikgJT4lCiAgc2V0X3NlX2NvbG9ycyhjb2xvcl9jaG9pY2VzW1sidHJlYXRtZW50X3p5bW8iXV0pCmBgYAoKIyMjIFNlcGFyYXRlIE1hY3JvcGhhZ2Ugc2FtcGxlcwoKT25jZSBhZ2Fpbiwgd2Ugc2hvdWxkIHJlY29uc2lkZXIgd2hlcmUgdGhlIGZvbGxvd2luZyBibG9jayBpcyBwbGFjZWQsCmJ1dCB0aGVzZSBkYXRhc3RydWN0dXJlcyBhcmUgbGlrZWx5IHRvIGJlIHVzZWQgaW4gbWFueSBvZiB0aGUKZm9sbG93aW5nIGFuYWx5c2VzLgoKYGBge3J9CmhzX21hY3JfZHJ1Z19leHB0IDwtIHNldF9jb25kaXRpb25zKGhzX21hY3IsIGZhY3QgPSAiZHJ1ZyIsIGNvbG9ycyA9IGNvbG9yX2Nob2ljZXNbWyJkcnVnIl1dKQoKaHNfbWFjcl9zdHJhaW5fZXhwdCA8LSBzZXRfY29uZGl0aW9ucyhoc19tYWNyLCBmYWN0ID0gIm1hY3JvcGhhZ2V6eW1vZGVtZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sb3JzID0gY29sb3JfY2hvaWNlc1tbInp5bW8iXV0pICU+JQogIHN1YnNldF9zZShzdWJzZXQgPSAibWFjcm9waGFnZXp5bW9kZW1lICE9ICdub25lJyIpCgp0YWJsZShjb2xEYXRhKGhzX21hY3IpW1sic3RyYWluaWQiXV0pCmBgYAoKIyMjIFJlZmFjdG9yIFU5Mzcgc2FtcGxlcwoKVGhlIFU5Mzcgc2FtcGxlcyB3ZXJlIHNlcGFyYXRlZCBpbiB0aGUgZGF0YXN0cnVjdHVyZXMgZmlsZSwgYnV0IHdlCndhbnQgdG8gdXNlIHRoZSBjb21iaW5hdGlvbiBvZiBkcnVnL3p5bW9kZW1lIHdpdGggdGhlbSBwcmV0dHkgbXVjaApleGNsdXNpdmVseS4KCmBgYHtyfQpuZXdfY29uZGl0aW9ucyA8LSBwYXN0ZTAoY29sRGF0YShoc191OTM3KVtbIm1hY3JvcGhhZ2V0cmVhdG1lbnQiXV0sICJfIiwKICAgICAgICAgICAgICAgICAgICAgICAgIGNvbERhdGEoaHNfdTkzNylbWyJtYWNyb3BoYWdlenltb2RlbWUiXV0pCnU5MzdfZXhwdCA8LSBzZXRfY29uZGl0aW9ucyhoc191OTM3LCBmYWN0ID0gbmV3X2NvbmRpdGlvbnMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xvcnMgPSBjb2xvcl9jaG9pY2VzW1sidHJlYXRtZW50X3p5bW8iXV0pCmBgYAoKIyMgQ29udHJhc3RzIHVzZWQgaW4gdGhpcyBkb2N1bWVudAoKR2l2ZW4gdGhlIHZhcmlvdXMgd2F5cyB3ZSBoYXZlIGNob3BwZWQgdXAgdGhpcyBkYXRhc2V0LCB0aGVyZSBhcmUgYQpmZXcgZ2VuZXJhbCB0eXBlcyBvZiBjb250cmFzdHMgd2Ugd2lsbCBwZXJmb3JtLCB3aGljaCB3aWxsIHRoZW4gYmUKY29tYmluZWQgaW50byBncmVhdGVyIGNvbXBsZXhpdHk6CgoqIGRydWcgdHJlYXRtZW50OiBBbnRpbW9uYWwgdHJlYXRlZCBvciBub3QuCiogc3RyYWlucyB1c2VkOiBVbmluZmVjdGVkLCB6Mi4zLCBhbmQgejIuMi4KKiBjZWxsbHR5cGVzOiBVOTM3IG9yIG1hY3JvcGhhZ2UuCiogZG9ub3JzOiBUaGUgcGVyc29uIGZyb20gd2hvbSB0aGUgbWFjcm9waGFnZXMgd2VyZSB0YWtlbi4KCkluIHRoZSBlbmQsIG91ciBhY3R1YWwgZ29hbCBpcyB0byBjb25zaWRlciB0aGUgdmFyaWFibGUgZWZmZWN0cyBvZgpkcnVnK3N0cmFpbiBhbmQgc2VlIGlmIHdlIGNhbiBkaXNjZXJuIHBhdHRlcm5zIHdoaWNoIGxlYWQgdG8gYmV0dGVyIG9yCndvcnNlIGRydWcgdHJlYXRtZW50IG91dGNvbWUuCgpUaGVyZSBpcyBhIHNldCBvZiBjb250cmFzdHMgaW4gd2hpY2ggd2UgYXJlIHByaW1hcmlseSBpbnRlcmVzdGVkIGluCnRoaXMgZGF0YSwgdGhlc2UgZm9sbG93LiAgSSBjcmVhdGVkIG9uZSByYXRpbyBvZiByYXRpb3MgY29udHJhc3Qgd2hpY2gKSSB0aGluayBoYXMgdGhlIHBvdGVudGlhbCB0byBhc2sgb3VyIGJpZ2dlc3QgcXVlc3Rpb24uCgpgYGB7cn0KIyMgRWFjaCBvZiB0aGUgZm9sbG93aW5nIGxpc3RzIGhhcyB0aGUgbmFtZSBvZiB0aGUgY29udHJhc3QgYXMgdGhlIGtleQojIyBmb2xsb3dlZCBieSBhIHR3byBlbGVtZW50IHZlY3RvciBjb21wcmlzZWQgb2YgdGhlIG51bWVyYXRvciBhbmQKIyMgZGVub21pbmF0b3IgYXMgdGhlIHZhbHVlLiAgSW4gdGhlIGNhc2Ugb2YgdGhpcyBmaXJzdCBjb250cmFzdCwgdGhhdAojIyBpcyBjb21wcmlzZWQgb2YgYSBzdHJpbmcgd2hpY2ggbWFudWFsbHkgZGVmaW5lcyBhIHNlcmllcyBvZiBtb3JlCiMjIGNvbXBsZXggY29udHJhc3RzIHRoYW4gdGhlIHVzdWFsL3NpbXBsZSBwYWlyd2lzZS4KdG1yYzJfaHVtYW5fZXh0cmEgPC0gInoyM2RydWdub2RydWdfdnNfejIyZHJ1Z25vZHJ1ZyA9IChjb25kaXRpb25pbmZfc2JfejIzIC0gY29uZGl0aW9uaW5mX3oyMykgLSAoY29uZGl0aW9uaW5mX3NiX3oyMiAtIGNvbmRpdGlvbmluZl96MjIpLCB6MjN6MjJkcnVnX3ZzX3oyM3oyMm5vZHJ1ZyA9IChjb25kaXRpb25pbmZfc2JfejIzIC0gY29uZGl0aW9uaW5mX3NiX3oyMikgLSAoY29uZGl0aW9uaW5mX3oyMyAtIGNvbmRpdGlvbmluZl96MjIpIgp0bXJjMl9odW1hbl9rZWVwZXJzIDwtIGxpc3QoCiAgInoyM25vc2JfdnNfdW5pbmYiID0gYygiaW5mX3oyMyIsICJ1bmluZl9ub25lIiksCiAgInoyMm5vc2JfdnNfdW5pbmYiID0gYygiaW5mX3oyMiIsICJ1bmluZl9ub25lIiksCiAgInoyM25vc2JfdnNfejIybm9zYiIgPSBjKCJpbmZfejIzIiwgImluZl96MjIiKSwKICAiejIzc2JfdnNfejIyc2IiID0gYygiaW5mX3NiX3oyMyIsICJpbmZfc2JfejIyIiksCiAgInoyM3NiX3ZzX3oyM25vc2IiID0gYygiaW5mX3NiX3oyMyIsICJpbmZfejIzIiksCiAgInoyMnNiX3ZzX3oyMm5vc2IiID0gYygiaW5mX3NiX3oyMiIsICJpbmZfejIyIiksCiAgInoyM3NiX3ZzX3NiIiA9IGMoImluZl9zYl96MjMiLCAidW5pbmZfc2Jfbm9uZSIpLAogICJ6MjJzYl92c19zYiIgPSBjKCJpbmZfc2JfejIyIiwgInVuaW5mX3NiX25vbmUiKSwKICAiejIzc2JfdnNfdW5pbmYiID0gYygiaW5mX3NiX3oyMyIsICJ1bmluZl9ub25lIiksCiAgInoyMnNiX3ZzX3VuaW5mIiA9IGMoImluZl9zYl96MjIiLCAidW5pbmZfbm9uZSIpLAogICJzYl92c191bmluZiIgPSBjKCJ1bmluZl9zYl9ub25lIiwgInVuaW5mX25vbmUiKSwKICAiZXh0cmFfejIzMjIiID0gYygiejIzZHJ1Z25vZHJ1ZyIsICJ6MjJkcnVnbm9kcnVnIiksCiAgImV4dHJhX2RydWdub2RydWciID0gYygiejIzejIyZHJ1ZyIsICJ6MjN6MjJub2RydWciKSkKc2luZ2xlX3RtcmMyX2tlZXBlciA8LSBsaXN0KAogICJ6MjJzYl92c19zYiIgPSBjKCJpbmZfc2JfejIyIiwgInVuaW5mX3NiX25vbmUiKSkKdG1yYzJfZHJ1Z19rZWVwZXJzIDwtIGxpc3QoCiAgImRydWciID0gYygiYW50aW1vbnkiLCAibm9uZSIpKQp0bXJjMl90eXBlX2tlZXBlcnMgPC0gbGlzdCgKICAidHlwZSIgPSBjKCJVOTM3IiwgIk1hY3JvcGhhZ2VzIikpCnRtcmMyX3N0cmFpbl9rZWVwZXJzIDwtIGxpc3QoCiAgInN0cmFpbiIgPSBjKCJ6MjMiLCAiejIyIikpCnR5cGVfenltb19leHRyYSA8LSAienltb3NfdnNfdHlwZXMgPSAoY29uZGl0aW9uVTkzN196MjMgLSBjb25kaXRpb25VOTM3X3oyMikgLSAoY29uZGl0aW9uTWFjcm9waGFnZXNfejIzIC0gY29uZGl0aW9uTWFjcm9waGFnZXNfejIyKSIKdG1yYzJfdHlwZXp5bW9fa2VlcGVycyA8LSBsaXN0KAogICJ1OTM3X21hY3IiID0gYygiTWFjcm9waGFnZXNfbm9uZSIsICJVOTM3X25vbmUiKSwKICAienltb19tYWNyIiA9IGMoIk1hY3JvcGhhZ2VzX3oyMyIsICJNYWNyb3BoYWdlc196MjIiKSwKICAienltb191OTM3IiA9IGMoIlU5MzdfejIzIiwgIlU5MzdfejIyIiksCiAgInoyM190eXBlcyIgPSBjKCJVOTM3X3oyMyIsICJNYWNyb3BoYWdlc196MjMiKSwKICAiejIyX3R5cGVzIiA9IGMoIlU5MzdfejIyIiwgIk1hY3JvcGhhZ2VzX3oyMiIpLAogICJ6eW1vc190eXBlcyIgPSBjKCJ6eW1vc192c190eXBlcyIpKQp0bXJjMl90eXBlZHJ1Z19rZWVwZXJzIDwtIGxpc3QoCiAgInR5cGVfbm9kcnVnIiA9IGMoIlU5Mzdfbm9uZSIsICJNYWNyb3BoYWdlc19ub25lIiksCiAgInR5cGVfZHJ1ZyIgPSBjKCJVOTM3X2FudGltb255IiwgIk1hY3JvcGhhZ2VzX2FudGltb255IiksCiAgIm1hY3JfZHJ1Z3MiID0gYygiTWFjcm9waGFnZXNfYW50aW1vbnkiLCAiTWFjcm9waGFnZXNfbm9uZSIpLAogICJ1OTM3X2RydWdzIiA9IGMoIlU5MzdfYW50aW1vbnkiLCAiVTkzN19ub25lIikpCnU5Mzdfa2VlcGVycyA8LSBsaXN0KAogICJ6MjNub3NiX3ZzX3VuaW5mIiA9IGMoImluZl96MjMiLCAidW5pbmZfbm9uZSIpLAogICJ6MjJub3NiX3ZzX3VuaW5mIiA9IGMoImluZl96MjIiLCAidW5pbmZfbm9uZSIpLAogICJ6MjNub3NiX3ZzX3oyMm5vc2IiID0gYygiaW5mX3oyMyIsICJpbmZfejIyIiksCiAgInoyM3NiX3ZzX3oyMnNiIiA9IGMoImluZl9zYl96MjMiLCAiaW5mX3NiX3oyMiIpLAogICJ6MjNzYl92c196MjNub3NiIiA9IGMoImluZl9zYl96MjMiLCAiaW5mX3oyMyIpLAogICJ6MjJzYl92c196MjJub3NiIiA9IGMoImluZl9zYl96MjIiLCAiaW5mX3oyMiIpLAogICJ6MjNzYl92c19zYiIgPSBjKCJpbmZfc2JfejIzIiwgInVuaW5mX3NiX25vbmUiKSwKICAiejIyc2JfdnNfc2IiID0gYygiaW5mX3NiX3oyMiIsICJ1bmluZl9zYl9ub25lIiksCiAgInoyM3NiX3ZzX3VuaW5mIiA9IGMoImluZl9zYl96MjMiLCAidW5pbmZfbm9uZSIpLAogICJ6MjJzYl92c191bmluZiIgPSBjKCJpbmZfc2JfejIyIiwgInVuaW5mX25vbmUiKSwKICAic2JfdnNfdW5pbmYiID0gYygidW5pbmZfc2Jfbm9uZSIsICJ1bmluZl9ub25lIikpCiMjIElmIHNvbWUgY2FzZXMsIHdoZW4gdGhlIHNldCBvZiBzaWduaWZpY2FudCBnZW5lcyB3YXMgY2hvc2VuLCBhbgojIyBhZGRpdGlvbmFsIGZpbHRlciB3YXMgYWRkZWQgdG8gZXhjbHVkZSBnZW5lcyB3aXRoIGV4cHJlc3Npb24gdmFsdWVzCiMjIGxlc3MgdGhhbiAnaGlnaF9leHByZXNzaW9uJyBhY2NvcmRpbmcgdG8gdGhlCiMjICdoaWdoX2V4cHJlc3Npb25fY29sdW1uJyBpbiB0aGUgdGFibGUuCmhpZ2hfZXhwcmVzc2lvbiA8LSAxMjgKaGlnaF9leHByZXNzaW9uX2NvbHVtbiA8LSAiZGVzZXFfYmFzZW1lYW4iCgpjb21iaW5lZF90b190c3YgPC0gZnVuY3Rpb24oY29tYmluZWQsIGNlbGx0eXBlID0gImFsbCIpIHsKICBrZWVwZXJzIDwtIGNvbWJpbmVkW1sia2VlcGVycyJdXQogIGZvciAoayBpbiBzZXFfbGVuKGxlbmd0aChrZWVwZXJzKSkpIHsKICAgIGtuYW1lIDwtIG5hbWVzKGtlZXBlcnMpW2tdCiAgICBudW1lcmF0b3IgPC0ga2VlcGVyc1tba11dWzFdCiAgICBkZW5vbWluYXRvciA8LSBrZWVwZXJzW1trXV1bMl0KICAgIGZpbGVuYW1lIDwtIGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvdHN2X3RhYmxlcy90bXJjMl97Y2VsbHR5cGV9X3trbmFtZX1fbntudW1lcmF0b3J9X2R7ZGVub21pbmF0b3J9LXZ7dmVyfS54bHN4IikKICAgIGtkYXRhIDwtIGNvbWJpbmVkW1siZGF0YSJdXVtba25hbWVdXQogICAgaWYgKGlzLm51bGwoa2RhdGFbWyJiYXNpY19udW0iXV0pKSB7CiAgICAgIG5leHQKICAgIH0KICAgIHdhbnRlZCA8LSBjKCJoZ25jX3N5bWJvbCIsICJkZXNlcV9sb2dmYyIsICJkZXNlcV9hZGpwIiwKICAgICAgICAgICAgICAgICJkZXNlcV9iYXNlbWVhbiIsICJkZXNlcV9udW0iLCAiZGVzZXFfZGVuIikKICAgIHdhbnRlZF9kYXRhIDwtIGtkYXRhWywgd2FudGVkXQogICAgY29sbmFtZXMod2FudGVkX2RhdGEpIDwtIGMoImhnbmNfc3ltYm9sIiwgImRlc2VxX2xvZ2ZjIiwgImRlc2VxX2FkanAiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgImRlc2VxX21lYW4iLCAiZGVzZXFfbnVtZXJhdG9yIiwgImRlc2VxX2Rlbm9taW5hdG9yIikKICAgIHdyaXRlX3hsc3goZGF0YSA9IHdhbnRlZF9kYXRhLCBleGNlbCA9IGZpbGVuYW1lKQogIH0KfQoKd3JpdGVfYWxsX2dwIDwtIGZ1bmN0aW9uKGFsbF9ncCwgc3VmZml4ID0gTlVMTCkgewogIGFsbF93cml0dGVuIDwtIGxpc3QoKQogIGZvciAoZyBpbiBzZXFfbGVuKGxlbmd0aChhbGxfZ3ApKSkgewogICAgbmFtZSA8LSBuYW1lcyhhbGxfZ3ApW2ddCiAgICBkYXR1bSA8LSBhbGxfZ3BbW25hbWVdXQogICAgZmlsZW5hbWUgPC0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9ncHJvZmlsZXIve25hbWV9X2dwcm9maWxlci12e3Zlcn0ueGxzeCIpCiAgICBpZiAoIWlzLm51bGwoc3VmZml4KSkgewogICAgICBmaWxlbmFtZSA8LSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2dwcm9maWxlci97bmFtZX1fZ3Byb2ZpbGVye3N1ZmZpeH0tdnt2ZXJ9Lnhsc3giKQogICAgfQogICAgd3JpdHRlbiA8LSBzbSh3cml0ZV9ncHJvZmlsZXJfZGF0YShkYXR1bSwgZXhjZWwgPSBmaWxlbmFtZSkpCiAgICBhbGxfd3JpdHRlbltbZ11dIDwtIHdyaXR0ZW4KICB9CiAgcmV0dXJuKGFsbF93cml0dGVuKQp9CmBgYAoKIyMgUHJpbWFyeSBxdWVyaWVzCgpUaGVyZSBpcyBhIHNlcmllcyBvZiBpbml0aWFsIHF1ZXN0aW9ucyB3aGljaCBtYWtlIHNvbWUgc2Vuc2UKdG8gbWUsIGJ1dCB0aGVzZSBkbyBub3QgbmVjZXNzYXJpbHkgbWF0Y2ggdGhlIHNldCBvZiBxdWVzdGlvbnMgd2hpY2gKYXJlIG1vc3QgcHJlc3NpbmcuICBJIGFtIGhvcGluZyB0byBwdWxsIGJvdGggb2YgdGhlc2Ugc2V0cyBvZgpxdWVyaWVzIGluIG9uZS4KCkJlZm9yZSBleHRyYWN0aW5nIHRoZXNlIGdyb3VwcyBvZiBxdWVyaWVzLCBsZXQgdXMgaW52b2tlIHRoZQphbGxfcGFpcndpc2UoKSBmdW5jdGlvbiBhbmQgZ2V0IGFsbCBvZiB0aGUgbGlrZWx5IGNvbnRyYXN0cyBhbG9uZyB3aXRoCm9uZSBvciBtb3JlIGV4dHJhcyB0aGF0IG1pZ2h0IHByb3ZlIHVzZWZ1bCAodGhlICdleHRyYScgYXJndW1lbnQpLgoKVGhlIHN0cnVjdHVyZSBvZiB0aGVzZSBibG9ja3Mgd2lsbCBhbGwgYmFzaWNhbGx5IGJlIGlkZW50aWNhbDoKCiogUGVyZm9ybSBhIHNldCBvZiBwYWlyd2lzZSBjb250cmFzdHMgb2YgYWxsIHRoZSBjb25kaXRpb25zIGFnYWluc3QKICBlYWNoIG90aGVyLiAgT3B0aW9uYWxseSB1c2Ugc3ZhLgoqIEdpdmVuIHRoYXQgcmVzdWx0LCBkdW1wIGl0IGluIGl0cyBlbnRpcmV0eSB0byBhbiB4bHN4IGZpbGUgaW4gdGhlCiAgYW5hbHlzZXMvIGRpcmVjdG9yeS4KKiBHaXZlbiB0aG9zZSBjb21iaW5lZCB0YWJsZXMsIGV4dHJhY3QgZnJvbSB0aGVtIHRoZSBzZXQgZGVlbWVkCiAgJ3NpZ25pZmljYW50JyBieSB3aGF0ZXZlciBjcml0ZXJpYSB3ZSB3YW50IHRvIHRyeS4gKFVzdWFsbHkgfGxmY3wgPj0KICAxLjAsIGFkanVzdGVkIHAgPD0gMC4wNTsgYnV0IHBvdGVudGlhbGx5IGFsc28gZXhwcmVzc2lvbiA+PSB4IGFuZAogIHNvbWV0aW1lcyBhIHNldCBvZiBsZXNzIHN0cmluZ2VudCB2YWx1ZXMgKHxsZmN8ID49IDAuNikpCiogR2l2ZW4gb25lIG9yIG1vcmUgZ2VuZSBzZXRzIGRlZW1lZCAnc2lnbmlmaWNhbnQnIHBhc3MgdGhlbSB0bwogIGdQcm9maWxlcjIgYW5kIHNlZSB3aGF0IHBvcHMgb3V0LgoKIyMjIENvbWJpbmVkIFU5MzcgYW5kIE1hY3JvcGhhZ2VzOiBDb21wYXJlIGRydWcgZWZmZWN0cwoKV2hlbiB3ZSBoYXZlIHRoZSB1OTM3IGNlbGxzIGluIHRoZSBzYW1lIGRhdGFzZXQgYXMgdGhlIG1hY3JvcGhhZ2VzLAp0aGF0IHByb3ZpZGVzIGFuIGludGVyZXN0aW5nIG9wcG9ydHVuaXR5IHRvIHNlZSBpZiB3ZSBjYW4gb2JzZXJ2ZQpkcnVnLWRlcGVuZGFudCBlZmZlY3RzIHdoaWNoIGFyZSBzaGFyZWQgYWNyb3NzIGJvdGggY2VsbCB0eXBlcy4KCk5vdGUgdG8gc2VsZjogZ2l2ZW4gdGhlIGNoYW5nZXMgdG8gaHBnbHRvb2xzIEkgbWF5IG5lZWQgdG8gc3BlY2lmeSB0aGUKc3RhdGlzdGljYWwgbW9kZWwgc3RyaW5nIHdoZW4gSSBhbSB1c2luZyBzdmFzZXEgZm9yIHNvbWUvbWFueS9hbGwgb2YKdGhlc2UgY29tcGFyaXNvbnMuCgpgYGB7cn0KZHJ1Z19kZSA8LSBhbGxfcGFpcndpc2UoYWxsX2h1bWFuLCBmaWx0ZXIgPSBUUlVFLCBtb2RlbF9zdnMgPSAic3Zhc2VxIiwgZG9fbm9pc2VxID0gRkFMU0UpCmRydWdfZGUKCmRydWdfdGFibGUgPC0gY29tYmluZV9kZV90YWJsZXMoCiAgZHJ1Z19kZSwga2VlcGVycyA9IHRtcmMyX2RydWdfa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvZGVfdGFibGVzL21hY3JvcGhhZ2VfZHJ1Z19jb21wYXJpc29uLXZ7dmVyfS54bHN4IikpCmRydWdfdGFibGUKI2NvbWJpbmVkX3RvX3RzdihkcnVnX3RhYmxlLCBjZWxsdHlwZSA9ICJhbGwiKQoKZHJ1Z19zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICBkcnVnX3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9zaWdfdGFibGVzL21hY3JvcGhhZ2VfZHJ1Z19zaWctdnt2ZXJ9Lnhsc3giKSkKZHJ1Z19zaWcKZHJ1Z19oaWdoc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgZHJ1Z190YWJsZSwgbWluX21lYW5fZXhwcnMgPSBoaWdoX2V4cHJlc3Npb24sIGV4cHJzX2NvbHVtbiA9IGhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvbWFjcm9waGFnZV9kcnVnX2hpZ2hzaWctdnt2ZXJ9Lnhsc3giKSkKZHJ1Z19oaWdoc2lnCmRydWdfbGVzc3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGRydWdfdGFibGUsIGxmYyA9IDAuNiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9tYWNyb3BoYWdlX2RydWdfbGVzc3NpZy12e3Zlcn0ueGxzeCIpKQpkcnVnX2xlc3NzaWcKYGBgCgojIyMjIGdQcm9maWxlcjIgcmVzdWx0cyBvZiB0aGUgc2lnbmlmaWNhbnQgZHJ1ZyBnZW5lcwoKYGBge3J9CmFsbF9kcnVnX2dwIDwtIGFsbF9ncHJvZmlsZXIoZHJ1Z19zaWcsIGVucmljaF9pZF9jb2x1bW4gPSAiaGduY19zeW1ib2wiKQphbGxfZHJ1Z19ncAp3cml0dGVuIDwtIHdyaXRlX2FsbF9ncChhbGxfZHJ1Z19ncCkKCmFsbF9kcnVnX2xlc3NzaWcgPC0gYWxsX2dwcm9maWxlcihkcnVnX2xlc3NzaWcsIGVucmljaF9pZF9jb2x1bW4gPSAiaGduY19zeW1ib2wiKQp3cml0dGVuIDwtIHdyaXRlX2FsbF9ncChhbGxfZHJ1Z19sZXNzc2lnLCBzdWZmaXggPSAiX2xmYzAuNl8iKQpgYGAKCiMjIyBDb21iaW5lZCBVOTM3IGFuZCBNYWNyb3BoYWdlczogY29tcGFyZSBjZWxsIHR5cGVzCgpUaGVyZSBhcmUgYSBjb3VwbGUgb2Ygd2F5cyBvbmUgbWlnaHQgd2FudCB0byBkaXJlY3RseSBjb21wYXJlIHRoZSB0d28KY2VsbCB0eXBlcy4KCiogR2l2ZW4gdGhhdCB0aGUgdmFyaWFuY2UgYmV0d2VlbiB0aGUgdHdvIGNlbGx0eXBlcyBpcyBzbyBodWdlLCBqdXN0CmNvbXBhcmUgYWxsIHNhbXBsZXMuCiogT25lIG1pZ2h0IHdhbnQgdG8gY29tcGFyZSB0aGVtIHdpdGggdGhlIGludGVyYWN0aW9uIGVmZmVjdHMgb2YgZHJ1Zy96eW1vZGVtZS4KCmBgYHtyfQp0eXBlX2RlIDwtIGFsbF9wYWlyd2lzZShhbGxfaHVtYW5fdHlwZXMsIGZpbHRlciA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX3N2cyA9ICJzdmFzZXEiLCBkb19ub2lzZXEgPSBGQUxTRSkKdHlwZV9kZQoKdHlwZV90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICB0eXBlX2RlLCBrZWVwZXJzID0gdG1yYzJfdHlwZV9rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9kZV90YWJsZXMvbWFjcm9waGFnZV90eXBlX2NvbXBhcmlzb24tdnt2ZXJ9Lnhsc3giKSkKdHlwZV90YWJsZQojY29tYmluZWRfdG9fdHN2KHR5cGVfdGFibGUsIGNlbGx0eXBlID0gImFsbCIpCgp0eXBlX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIHR5cGVfdGFibGUsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvbWFjcm9waGFnZV90eXBlX3NpZy12e3Zlcn0ueGxzeCIpKQp0eXBlX3NpZwp0eXBlX2hpZ2hzaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB0eXBlX3RhYmxlLCBtaW5fbWVhbl9leHBycyA9IGhpZ2hfZXhwcmVzc2lvbiwgZXhwcnNfY29sdW1uID0gaGlnaF9leHByZXNzaW9uX2NvbHVtbiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9tYWNyb3BoYWdlX3R5cGVfaGlnaHNpZy12e3Zlcn0ueGxzeCIpKQp0eXBlX2hpZ2hzaWcKCnR5cGVfbGVzc3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIHR5cGVfdGFibGUsIGxmYyA9IDAuNiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9tYWNyb3BoYWdlX3R5cGVfbGVzc3NpZy12e3Zlcn0ueGxzeCIpKQp0eXBlX3NpZwpgYGAKCiMjIyMgQ29tYmluZWQgZmFjdG9ycyBvZiBpbnRlcmVzdDogY2VsbHR5cGUrenltb2RlbWUKCkdpdmVuIHRoZSBhYm92ZSBleHBsaWNpdCBjb21wYXJpc29uIG9mIGFsbCBzYW1wbGVzIGNvbXByaXNpbmcgdGhlIHR3bwpjZWxsIHR5cGVzLCBub3cgbGV0IHVzIGxvb2sgYXQgdGhlIGRydWcgdHJlYXRtZW50K3p5bW9kZW1lIHN0YXR1cyB3aXRoCmFsbCBzYW1wbGVzLCBtYWNyb3BoYWdlcyBhbmQgVTkzNy4KCmBgYHtyfQp0eXBlX3p5bW9fZGUgPC0gYWxsX3BhaXJ3aXNlKHR5cGVfenltbywgZmlsdGVyID0gVFJVRSwgbW9kZWxfc3ZzID0gInN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZG9fbm9pc2VxID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZXh0cmFfY29udHJhc3RzID0gdHlwZV96eW1vX2V4dHJhKQp0eXBlX3p5bW9fZGUKCnR5cGVfenltb190YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICB0eXBlX3p5bW9fZGUsIGtlZXBlcnMgPSB0bXJjMl90eXBlenltb19rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9kZV90YWJsZXMvbWFjcm9waGFnZV90eXBlX3p5bW9fY29tcGFyaXNvbi12e3Zlcn0ueGxzeCIpKQojY29tYmluZWRfdG9fdHN2KHR5cGVfenltb190YWJsZSwgY2VsbHR5cGUgPSAiYWxsIikKCnR5cGVfenltb19zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB0eXBlX3p5bW9fdGFibGUsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvbWFjcm9waGFnZV90eXBlX3p5bW9fc2lnLXZ7dmVyfS54bHN4IikpCnR5cGVfenltb19zaWcKdHlwZV96eW1vX2hpZ2hzaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB0eXBlX3p5bW9fdGFibGUsIG1pbl9tZWFuX2V4cHJzID0gaGlnaF9leHByZXNzaW9uLCBleHByc19jb2x1bW4gPSBoaWdoX2V4cHJlc3Npb25fY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9zaWdfdGFibGVzL21hY3JvcGhhZ2VfdHlwZV96eW1vX2hpZ2hzaWctdnt2ZXJ9Lnhsc3giKSkKdHlwZV96eW1vX2xlc3NzaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB0eXBlX3p5bW9fdGFibGUsIGxmYyA9IDAuNiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9tYWNyb3BoYWdlX3R5cGVfenltb19sZXNzc2lnLXZ7dmVyfS54bHN4IikpCnR5cGVfenltb19sZXNzc2lnCmBgYAoKIyMjIyBDb21iaW5lZCBmYWN0b3JzIG9mIGludGVyZXN0OiBjZWxsdHlwZStkcnVnCgpUaGUgJ3R5cGVfZHJ1ZycgZGF0YXN0cnVjdHVyZSBpcyB0aGUgc2FtZSBhcyBhYm92ZSwgYnV0IHRoZSBjb25kaXRpb24KaXMgY3JlYXRlZCBmcm9tIHRoZSBjb25jYXRlbmF0aW9uIG9mIHRoZSBjZWxsIHR5cGUgYW5kIGRydWcgdHJlYXRtZW50LgoKYGBge3J9CnR5cGVfZHJ1Z19kZSA8LSBhbGxfcGFpcndpc2UodHlwZV9kcnVnLCBmaWx0ZXIgPSBUUlVFLCBtb2RlbF9zdnMgPSAic3Zhc2VxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtb2RlbF9mc3RyaW5nID0gIn4gMCArIGNvbmRpdGlvbiIpCnR5cGVfZHJ1Z19kZQp0eXBlX2RydWdfdGFibGUgPC0gY29tYmluZV9kZV90YWJsZXMoCiAgdHlwZV9kcnVnX2RlLCBrZWVwZXJzID0gdG1yYzJfdHlwZWRydWdfa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvZGVfdGFibGVzL21hY3JvcGhhZ2VfdHlwZV9kcnVnX2NvbXBhcmlzb24tdnt2ZXJ9Lnhsc3giKSkKdHlwZV9kcnVnX3RhYmxlCgojY29tYmluZWRfdG9fdHN2KHR5cGVfZHJ1Z190YWJsZSwgY2VsbHR5cGUgPSAiYWxsIikKCnR5cGVfZHJ1Z19zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB0eXBlX2RydWdfdGFibGUsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvbWFjcm9waGFnZV90eXBlX2RydWdfc2lnLXZ7dmVyfS54bHN4IikpCnR5cGVfZHJ1Z19zaWcKCnR5cGVfZHJ1Z19oaWdoc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgdHlwZV9kcnVnX3RhYmxlLCBtaW5fbWVhbl9leHBycyA9IGhpZ2hfZXhwcmVzc2lvbiwgZXhwcnNfY29sdW1uID0gaGlnaF9leHByZXNzaW9uX2NvbHVtbiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9tYWNyb3BoYWdlX3R5cGVfZHJ1Z19oaWdoc2lnLXZ7dmVyfS54bHN4IikpCnR5cGVfZHJ1Z19oaWdoc2lnCgp0eXBlX2RydWdfbGVzc3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIHR5cGVfZHJ1Z190YWJsZSwgbGZjID0gMC42LAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9zaWdfdGFibGVzL21hY3JvcGhhZ2VfdHlwZV9kcnVnX2xlc3NzaWctdnt2ZXJ9Lnhsc3giKSkKdHlwZV9kcnVnX2xlc3NzaWcKYGBgCgojIEluZGl2aWR1YWwgY2VsbCB0eXBlcwoKQXQgdGhpcyBwb2ludCwgSSB0aGluayBpdCBpcyBmYWlyIHRvIHNheSB0aGF0IHRoZSB0d28gY2VsbCB0eXBlcyBhcmUKc3VmZmljaWVudGx5IGRpZmZlcmVudCB0aGF0IHRoZXkgZG8gbm90IHJlYWxseSBiZWxvbmcgdG9nZXRoZXIgaW4gYQpzaW5nbGUgYW5hbHlzaXMuCgojIyBkcnVnIG9yIHN0cmFpbiBlZmZlY3RzLCBzaW5nbGUgY2VsbCB0eXBlCgpPbmUgb2YgdGhlIHF1ZXJpZXMgTmFqaWIgYXNrZWQgd2hpY2ggSSB0aGluayBJIG1pc2ludGVycHJldGVkIHdhcyB0bwpsb29rIGF0IGRydWcgYW5kL29yIHN0cmFpbiBlZmZlY3RzLiAgTXkgaW50ZXJwcmV0YXRpb24gaXMgc29tZXdoZXJlCmJlbG93IGFuZCB3YXMgbm90IHdoYXQgaGUgd2FzIGxvb2tpbmcgZm9yLiAgSW5zdGVhZCwgaGUgd2FzIGxvb2tpbmcgdG8Kc2VlIGFsbChtYWNyb3BoYWdlKSBkcnVnL25vZHJ1ZyBhbmQgYWxsKG1hY3JvcGhhZ2UpIHoyMy96MjIgYW5kCmNvbXBhcmUgdGhlbSB0byBlYWNoIG90aGVyLiAgSXQgbWF5IGJlIHRoYXQgdGhpcyBpcyBzdGlsbCBhIHdyb25nCmludGVycHJldGF0aW9uLCBpZiBzbyB0aGUgbW9zdCBsaWtlbHkgY29tcGFyaXNvbiBpcyBlaXRoZXI6CgoqICAoejIzZHJ1Zy96MjJkcnVnKSAvICh6MjNub2RydWcvejIybm9kcnVnKSwgb3IgcGVyaGFwcwoqICAoejIzZHJ1Zy96MjNub2RydWcpIC8gKHoyMmRydWcvejIybm9kcnVnKSwKCkkgYW0gbm90IHN1cmUgdGhvc2UgY29uZnVzZSBtZSwgYW5kIGF0IGxlYXN0IG9uZSBvZiB0aGVtIGlzIGJlbG93CgojIyBNYWNyb3BoYWdlcwoKSW4gdGhlc2UgYmxvY2tzIHdlIHdpbGwgZXhwbGljaXRseSBxdWVyeSBvbmx5IG9uZSBmYWN0b3IgYXQgYSB0aW1lLApkcnVnIGFuZCBzdHJhaW4uICBUaGUgZXZlbnR1YWwgZ29hbCBpcyB0byBsb29rIGZvciBlZmZlY3RzIG9mCmRydWcgdHJlYXRtZW50IGFuZC9vciBzdHJhaW4gdHJlYXRtZW50IHdoaWNoIGFyZSBzaGFyZWQ/CgojIyMgTWFjcm9waGFnZSBEcnVnIG9ubHkKClRodXMgd2Ugd2lsbCBzdGFydCB3aXRoIHRoZSBwdXJlIGRydWcgcXVlcnkuICBJbiB0aGlzIGJsb2NrIHdlIHdpbGwKbG9vayBvbmx5IGF0IHRoZSBkcnVnL25vZHJ1ZyBlZmZlY3QuCgpgYGB7cn0KaHNfbWFjcl9kcnVnX2RlIDwtIGFsbF9wYWlyd2lzZShoc19tYWNyX2RydWdfZXhwdCwgZmlsdGVyID0gVFJVRSwgbW9kZWxfc3ZzID0gInN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZWxfZnN0cmluZyA9ICJ+IDAgKyBjb25kaXRpb24iKQpoc19tYWNyX2RydWdfZGUKCmhzX21hY3JfZHJ1Z190YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBoc19tYWNyX2RydWdfZGUsIGtlZXBlcnMgPSB0bXJjMl9kcnVnX2tlZXBlcnMsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2RlX3RhYmxlcy9tYWNyb3BoYWdlX29ubHlkcnVnX3RhYmxlLXZ7dmVyfS54bHN4IikpCmhzX21hY3JfZHJ1Z190YWJsZQoKI2NvbWJpbmVkX3RvX3Rzdihoc19tYWNyX2RydWdfdGFibGUsIGNlbGx0eXBlID0gIm1hY3JvcGhhZ2UiKQoKaHNfbWFjcl9kcnVnX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3JfZHJ1Z190YWJsZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9tYWNyb3BoYWdlb25seV9kcnVnX3NpZy12e3Zlcn0ueGxzeCIpKQpoc19tYWNyX2RydWdfc2lnCgpoc19tYWNyX2RydWdfaGlnaHNpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3JfZHJ1Z190YWJsZSwgbWluX21lYW5fZXhwcnMgPSBoaWdoX2V4cHJlc3Npb24sIGV4cHJzX2NvbHVtbiA9IGhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvbWFjcm9waGFnZW9ubHlfZHJ1Z19oaWdoc2lnLXZ7dmVyfS54bHN4IikpCmhzX21hY3JfZHJ1Z19oaWdoc2lnCgojIyBDcmVhdGluZyB0aGUgZm9sbG93aW5nIHRvIHNlZSBob3cgaXQgYWZmZWN0cyBnUHJvZmlsZXIuCmhzX21hY3JfZHJ1Z19sZXNzc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgaHNfbWFjcl9kcnVnX3RhYmxlLCBsZmMgPSAwLjYsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvbWFjcm9waGFnZW9ubHlfZHJ1Z19zaWdfbGZjMC42LXZ7dmVyfS54bHN4IikpCmBgYAoKIyMjIE1hY3JvcGhhZ2UgU3RyYWluIG9ubHkKCkluIGEgc2ltaWxhciBmYXNoaW9uLCBsZXQgdXMgbG9vayBmb3IgZWZmZWN0cyB3aGljaCBhcmUgb2JzZXJ2ZWQgd2hlbgp3ZSBjb25zaWRlciBvbmx5IHRoZSBzdHJhaW4gdXNlZCBkdXJpbmcgaW5mZWN0aW9uLgoKYGBge3J9CmhzX21hY3Jfc3RyYWluX2RlIDwtIGFsbF9wYWlyd2lzZShoc19tYWNyX3N0cmFpbl9leHB0LCBmaWx0ZXIgPSBUUlVFLCBtb2RlbF9zdnMgPSAic3Zhc2VxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX2ZzdHJpbmcgPSAifiAwICsgY29uZGl0aW9uIikKaHNfbWFjcl9zdHJhaW5fZGUKCmhzX21hY3Jfc3RyYWluX3RhYmxlIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIGhzX21hY3Jfc3RyYWluX2RlLCBrZWVwZXJzID0gdG1yYzJfc3RyYWluX2tlZXBlcnMsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2RlX3RhYmxlcy9tYWNyb3BoYWdlX29ubHlzdHJhaW5fdGFibGUtdnt2ZXJ9Lnhsc3giKSkKaHNfbWFjcl9zdHJhaW5fdGFibGUKY29tYmluZWRfdG9fdHN2KGhzX21hY3Jfc3RyYWluX3RhYmxlLCBjZWxsdHlwZSA9ICJtYWNyb3BoYWdlIikKCmhzX21hY3Jfc3RyYWluX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3Jfc3RyYWluX3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9zaWdfdGFibGVzL21hY3JvcGhhZ2Vvbmx5X29ubHlzdHJhaW5fc2lnLXZ7dmVyfS54bHN4IikpCmhzX21hY3Jfc3RyYWluX3NpZwoKaHNfbWFjcl9zdHJhaW5faGlnaHNpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3Jfc3RyYWluX3RhYmxlLCBtaW5fbWVhbl9leHBycyA9IGhpZ2hfZXhwcmVzc2lvbiwgZXhwcnNfY29sdW1uID0gaGlnaF9leHByZXNzaW9uX2NvbHVtbiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9tYWNyb3BoYWdlb25seV9vbmx5c3RyYWluX2hpZ2hzaWctdnt2ZXJ9Lnhsc3giKSkKaHNfbWFjcl9zdHJhaW5faGlnaHNpZwoKaHNfbWFjcl9zdHJhaW5fbGVzc3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3Jfc3RyYWluX3RhYmxlLCBsZmMgPSAwLjYsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvbWFjcm9waGFnZW9ubHlfb25seXN0cmFpbl9sZXNzc2lnLXZ7dmVyfS54bHN4IikpCmhzX21hY3Jfc3RyYWluX2xlc3NzaWcKYGBgCgojIyMgQ29tcGFyZSBEcnVnIGFuZCBTdHJhaW4gRWZmZWN0cwoKTm93IGxldCB1cyBjb25zaWRlciB0aGUgYWJvdmUgdHdvIGNvbXBhcmlzb25zIHRvZ2V0aGVyLiAgRmlyc3QsIEkgd2lsbApwbG90IHRoZSBsb2dGQyB2YWx1ZXMgb2YgdGhlbSBhZ2FpbnN0IGVhY2ggb3RoZXIgKGRydWcgb24geC1heGlzIGFuZApzdHJhaW4gb24gdGhlIHktYXhpcykuICBUaGVuIHdlIGNhbiBleHRyYWN0IHRoZSBzaWduaWZpY2FudCBnZW5lcyBpbiBhCmZldyBjb21iaW5lZCBjYXRlZ29yaWVzIG9mIGludGVyZXN0LiAgSSBhc3N1bWUgdGhlc2Ugd2lsbCBmb2N1cwpleGNsdXNpdmVseSBvbiB0aGUgY2F0ZWdvcmllcyB3aGljaCBpbmNsdWRlIHRoZSBpbnRyb2R1Y3Rpb24gb2YgdGhlCmRydWcuCgpgYGB7cn0KZHJ1Z19zdHJhaW5fY29tcF9kZiA8LSBtZXJnZShoc19tYWNyX2RydWdfdGFibGVbWyJkYXRhIl1dW1siZHJ1ZyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBoc19tYWNyX3N0cmFpbl90YWJsZVtbImRhdGEiXV1bWyJzdHJhaW4iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYnkgPSAicm93Lm5hbWVzIikKZHJ1Z19zdHJhaW5fY29tcF9wbG90IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIoCiAgZHJ1Z19zdHJhaW5fY29tcF9kZlssIGMoImRlc2VxX2xvZ2ZjLngiLCAiZGVzZXFfbG9nZmMueSIpXSkKIyMgQ29udHJhc3RzOiBhbnRpbW9ueS9ub25lLCB6MjMvejIyOyB4LWF4aXM6IGRydWcsIHktYXhpczogc3RyYWluCiMjIHRvcCBsZWZ0OiBoaWdoZXIgbm8gZHJ1ZywgejIzOyB0b3AgcmlnaHQ6IGhpZ2hlciBkcnVnIHoyMwojIyBib3R0b20gbGVmdDogaGlnaGVyIG5vIGRydWcsIHoyMjsgYm90dG9tIHJpZ2h0OiBoaWdoZXIgZHJ1ZyB6MjIKZHJ1Z19zdHJhaW5fY29tcF9wbG90W1sic2NhdHRlciJdXQpgYGAKCkFzIEkgbm90ZWQgaW4gdGhlIGNvbW1lbnRzIGFib3ZlLCBzb21lIHF1YWRyYW50cyBvZiB0aGUgc2NhdHRlciBwbG90CmFyZSBsaWtlbHkgdG8gYmUgb2YgZ3JlYXRlciBpbnRlcmVzdCB0byB1cyB0aGFuIG90aGVycyAodGhlIHJpZ2h0CnNpZGUpLiAgQmVjYXVzZSBJIGdldCBjb25mdXNlZCBzb21ldGltZXMsIHRoZSBmb2xsb3dpbmcgYmxvY2sgd2lsbApleHBsaWNpdGx5IG5hbWUgdGhlIGNhdGVnb3JpZXMgb2YgbGlrZWx5IGludGVyZXN0LCB0aGVuIGFzayB3aGljaApnZW5lcyBhcmUgc2hhcmVkIGFtb25nIHRoZW0sIGFuZCBmaW5hbGx5IHVzZSBVcFNldFIgdG8gZXh0cmFjdCB0aGUKdmFyaW91cyBnZW5lIGludGVyc2VjdGlvbi91bmlvbiBjYXRlZ29yaWVzLgoKYGBge3J9CmhpZ2hlcl9kcnVnIDwtIGhzX21hY3JfZHJ1Z19zaWdbWyJkZXNlcSJdXVtbImRvd25zIl1dW1sxXV0KaGlnaGVyX25vZHJ1ZyA8LSBoc19tYWNyX2RydWdfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV1bWzFdXQpoaWdoZXJfejIzIDwtIGhzX21hY3Jfc3RyYWluX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1sxXV0KaGlnaGVyX3oyMiA8LSBoc19tYWNyX3N0cmFpbl9zaWdbWyJkZXNlcSJdXVtbImRvd25zIl1dW1sxXV0Kc3VtKHJvd25hbWVzKGhpZ2hlcl9kcnVnKSAlaW4lIHJvd25hbWVzKGhpZ2hlcl96MjMpKQpzdW0ocm93bmFtZXMoaGlnaGVyX2RydWcpICVpbiUgcm93bmFtZXMoaGlnaGVyX3oyMikpCnN1bShyb3duYW1lcyhoaWdoZXJfbm9kcnVnKSAlaW4lIHJvd25hbWVzKGhpZ2hlcl96MjMpKQpzdW0ocm93bmFtZXMoaGlnaGVyX25vZHJ1ZykgJWluJSByb3duYW1lcyhoaWdoZXJfejIyKSkKCmRydWdfejIzX2xzdCA8LSBsaXN0KCJkcnVnIiA9IHJvd25hbWVzKGhpZ2hlcl9kcnVnKSwKICAgICAgICAgICAgICAgICAgICAgInoyMyIgPSByb3duYW1lcyhoaWdoZXJfejIzKSkKdXBzZXRfaW5wdXQgPC0gVXBTZXRSOjpmcm9tTGlzdChkcnVnX3oyM19sc3QpCmhpZ2hlcl9kcnVnX3oyMyA8LSB1cHNldCh1cHNldF9pbnB1dCwgdGV4dC5zY2FsZSA9IDIpCmhpZ2hlcl9kcnVnX3oyMwoKZHJ1Z196MjNfc2hhcmVkX2dlbmVzIDwtIG92ZXJsYXBfZ3JvdXBzKGRydWdfejIzX2xzdCkKc2hhcmVkX2dlbmVzX2RydWdfejIzIDwtIG92ZXJsYXBfZ2VuZWlkcyhkcnVnX3oyM19zaGFyZWRfZ2VuZXMsICJkcnVnOnoyMyIpCnNoYXJlZF9nZW5lc19kcnVnX3oyMyA8LSBhdHRyKGRydWdfejIzX3NoYXJlZF9nZW5lcywgImVsZW1lbnRzIilbZHJ1Z196MjNfc2hhcmVkX2dlbmVzW1siZHJ1Zzp6MjMiXV1dCgpkcnVnX3oyMl9sc3QgPC0gbGlzdCgiZHJ1ZyIgPSByb3duYW1lcyhoaWdoZXJfZHJ1ZyksCiAgICAgICAgICAgICAgICAgICAgICJ6MjIiID0gcm93bmFtZXMoaGlnaGVyX3oyMikpCmhpZ2hlcl9kcnVnX3oyMiA8LSB1cHNldChVcFNldFI6OmZyb21MaXN0KGRydWdfejIyX2xzdCksIHRleHQuc2NhbGUgPSAyKQpoaWdoZXJfZHJ1Z196MjIKCmRydWdfejIyX3NoYXJlZF9nZW5lcyA8LSBvdmVybGFwX2dyb3VwcyhkcnVnX3oyMl9sc3QpCnNoYXJlZF9nZW5lc19kcnVnX3oyMiA8LSBvdmVybGFwX2dlbmVpZHMoZHJ1Z196MjJfc2hhcmVkX2dlbmVzLCAiZHJ1Zzp6MjIiKQpzaGFyZWRfZ2VuZXNfZHJ1Z196MjIgPC0gYXR0cihkcnVnX3oyMl9zaGFyZWRfZ2VuZXMsICJlbGVtZW50cyIpW2RydWdfejIyX3NoYXJlZF9nZW5lc1tbImRydWc6ejIyIl1dXQpgYGAKCiMjIyBQZXJmb3JtIGdQcm9maWxlciBvbiBkcnVnL3N0cmFpbiBlZmZlY3Qgc2hhcmVkIGdlbmVzCgpOb3cgdGhhdCB3ZSBoYXZlIHNvbWUgcG9wdWxhdGlvbnMgb2YgZ2VuZXMgd2hpY2ggYXJlIHNoYXJlZCBhY3Jvc3MgdGhlCmRydWcvc3RyYWluIGVmZmVjdHMsIGxldCB1cyBwYXNzIHRoZW0gdG8gc29tZSBHU0VBIGFuYWx5c2VzIGFuZCBzZWUKd2hhdCBwb3BzIG91dC4KCmBgYHtyfQp3YW50ZWQgPC0gZHJ1Z196MjNfc2hhcmVkX2dlbmVzW1siZHJ1Zzp6MjMiXV0Kc2hhcmVkX2dlbmVzX2RydWdfejIzIDwtIGF0dHIoZHJ1Z196MjNfc2hhcmVkX2dlbmVzLCAiZWxlbWVudHMiKVt3YW50ZWRdCnNoYXJlZF9kcnVnX3oyM19ncCA8LSBzaW1wbGVfZ3Byb2ZpbGVyKHNoYXJlZF9nZW5lc19kcnVnX3oyMykKc2hhcmVkX2RydWdfejIzX2dwW1sicHZhbHVlX3Bsb3RzIl1dW1siTUYiXV0Kc2hhcmVkX2RydWdfejIzX2dwW1sicHZhbHVlX3Bsb3RzIl1dW1siQlAiXV0Kc2hhcmVkX2RydWdfejIzX2dwW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQoKd2FudGVkIDwtIGRydWdfejIyX3NoYXJlZF9nZW5lc1tbImRydWc6ejIyIl1dCnNoYXJlZF9nZW5lc19kcnVnX3oyMiA8LSBhdHRyKGRydWdfejIyX3NoYXJlZF9nZW5lcywgImVsZW1lbnRzIilbd2FudGVkXQpzaGFyZWRfZHJ1Z196MjJfZ3AgPC0gc2ltcGxlX2dwcm9maWxlcihzaGFyZWRfZ2VuZXNfZHJ1Z196MjIpCnNoYXJlZF9kcnVnX3oyMl9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIkJQIl1dCmBgYAoKIyBPdXIgbWFpbiBxdWVzdGlvbiBvZiBpbnRlcmVzdAoKVGhlIGRhdGEgc3RydWN0dXJlIGhzX21hY3IgY29udGFpbnMgb3VyIHByaW1hcnkgbWFjcm9waGFnZXMsIHdoaWNoCmFyZSwgYXMgc2hvd24gYWJvdmUsIHRoZSBkYXRhIHdlIGNhbiByZWFsbHkgc2luayBvdXIgdGVldGggaW50by4KCk5vdGUsIHdlIGV4cGVjdCBzb21lIGVycm9ycyB3aGVuIHJ1bm5pbmcgdGhlIGNvbWJpbmVfZGVfdGFibGVzKCkKYmVjYXVzZSBub3QgYWxsIG1ldGhvZHMgSSB1c2UgYXJlIGNvbWZvcnRhYmxlIHVzaW5nIHRoZSByYXRpbyBvcgpyYXRpb3MgY29udHJhc3RzIHdlIGFkZGVkIGluIHRoZSAnZXh0cmFzJyBhcmd1bWVudC4gIEFzIGEgcmVzdWx0LCB3aGVuCndlIGNvbWJpbmUgdGhlbSBpbnRvIHRoZSBsYXJnZXIgb3V0cHV0IHRhYmxlcywgdGhvc2UgcGVjdWxpYXIKY29udHJhc3RzIGZhaWwuICBUaGlzIGRvZXMgbm90IHN0b3AgaXQgZnJvbSB3cml0aW5nIHRoZSByZXN0IG9mIHRoZQpyZXN1bHRzLCBob3dldmVyLgoKYGBge3J9CiN0ZXN0ID0gZGVzZXFfcGFpcndpc2Uobm9ybWFsaXplX2V4cHQoaHNfbWFjciwgZmlsdGVyPVRSVUUpLAojICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX3N2cyA9ICJzdmFzZXEiLCBmaWx0ZXIgPSBUUlVFLAojICAgICAgICAgICAgICAgICAgICAgIGV4dHJhX2NvbnRyYXN0cyA9IHRtcmMyX2h1bWFuX2V4dHJhKQoKaHNfbWFjcl9kZV9ub2V4dHJhIDwtIGFsbF9wYWlyd2lzZShoc19tYWNyLCBtb2RlbF9zdnMgPSAic3Zhc2VxIiwgbW9kZWxfZnN0cmluZyA9ICJ+IDAgKyBjb25kaXRpb24iLCBmaWx0ZXIgPSBUUlVFKQoKaHNfbWFjcl9kZSA8LSBhbGxfcGFpcndpc2UoaHNfbWFjciwgbW9kZWxfc3ZzID0gInN2YXNlcSIsIG1vZGVsX2ZzdHJpbmcgPSAifiAwICsgY29uZGl0aW9uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyID0gVFJVRSwgZXh0cmFfY29udHJhc3RzID0gdG1yYzJfaHVtYW5fZXh0cmEpCmhzX21hY3JfZGUKCmhzX3NpbmdsZV90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBoc19tYWNyX2RlLCBrZWVwZXJzID0gc2luZ2xlX3RtcmMyX2tlZXBlciwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvZGVfdGFibGVzL2hzX21hY3JfZHJ1Z196eW1vX3oyMnNiX3NiLXZ7dmVyfS54bHN4IikpCmhzX3NpbmdsZV90YWJsZQpoc19tYWNyX3RhYmxlIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIGhzX21hY3JfZGUsIGtlZXBlcnMgPSB0bXJjMl9odW1hbl9rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9kZV90YWJsZXMvaHNfbWFjcl9kcnVnX3p5bW9fdGFibGVfbWFjcl9vbmx5LXZ7dmVyfS54bHN4IikpCmhzX21hY3JfdGFibGUKI2NvbWJpbmVkX3RvX3Rzdihoc19tYWNyX3RhYmxlLCAibWFjcm9waGFnZSIpCgpoc19tYWNyX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3JfdGFibGUsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvaHNfbWFjcl9kcnVnX3p5bW9fc2lnLXZ7dmVyfS54bHN4IikpCmhzX21hY3Jfc2lnCmhzX21hY3JfaGlnaHNpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3JfdGFibGUsIG1pbl9tZWFuX2V4cHJzID0gaGlnaF9leHByZXNzaW9uLCBleHByc19jb2x1bW4gPSBoaWdoX2V4cHJlc3Npb25fY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9zaWdfdGFibGVzL2hzX21hY3JfZHJ1Z196eW1vX2hpZ2hzaWctdnt2ZXJ9Lnhsc3giKSkKaHNfbWFjcl9oaWdoc2lnCmhzX21hY3JfbGVzc3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX21hY3JfdGFibGUsIGxmYyA9IDAuNiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9oc19tYWNyX2RydWdfenltb19zaWdfbGZjMC42LXZ7dmVyfS54bHN4IikpCmhzX21hY3JfbGVzc3NpZwpgYGAKCiMjIGdlbmUgZ3JvdXAgdXBzZXQKCiMjIyAyLjMgdnMgMi4yIHVwIGFuZCBkb3duIHZzLiB1bmluZmVjdGVkCgpUaGlzIGlzIG15IHZlcnNpb24gb2YgdGhlIFZlbm4gZGlhZ3JhbSB3aGljaCBpbmNsdWRlcyB0aGUgdGV4dDoKCiJEaWZmZXJlbnRpYWxseSBleHByZXNzZWQgZ2VuZXMgaW4gbWFjcm9waGFnZXMgaW5mZWN0ZWQgd2l0aApzdWJwb3B1bGF0aW9ucyAyLjIgb3IgMi4zLiAgVm9sY2FubyBwbG90cyBjb250cmFzdCBvZjogQS4gVmVubiBkaWFncmFtCmZvciB1cHJlZ3VsYXRlZCBhbmQgZG93bnJlZ3VsYXRlZCBnZW5lcyBieSBpbmZlY3Rpb24gd2l0aCAyLjMgYW5kIDIuMgpzdHJhaW5zLiBCLiBpbmZlY3RlZCBjZWxscyB3aXRoIDIuMyBzdHJhaW5zIGFuZCB1bmluZmVjdGVkIGNlbGxzOwpDLiBpbmZlY3RlZCBjZWxscyB3aXRoIDIuMiBzdHJhaW5zIGFuZCB1bmluZmVjdGVkIGNlbGxzOyBELiBpbmZlY3RlZApjZWxscyB3aXRoIDIuMyBzdHJhaW5zIGFuZCBpbmZlY3RlZCBjZWxscyB3aXRoIDIuMiBzdHJhaW5zIgoKVGhlIGZvbGxvd2luZyB1cHNldCBwbG90IGlzIGN1cnJlbnRseSBGaWd1cmUgMkUuCgpgYGB7cn0Kbm9kcnVnX3Vwc2V0IDwtIHVwc2V0cl9jb21iaW5lZF9kZShoc19tYWNyX3RhYmxlLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRlc2lyZWRfY29udHJhc3RzID0gYygiejIybm9zYl92c191bmluZiIsICJ6MjNub3NiX3ZzX3VuaW5mIikpCnBwKGZpbGUgPSAiaW1hZ2VzL25vZHJ1Z191cHNldC5zdmciKQpub2RydWdfdXBzZXRbWyJwbG90Il1dCmRldi5vZmYoKQpub2RydWdfdXBzZXQKYGBgCgojIyMjIEEgcG9pbnQgb2YgaW50ZXJlc3Qgd2hpbGUgT2xnYSB2aXNpdHMgVW1kCgpOYWppYiBhbmQgT2xnYSBhc2tlZCBhYm91dCBwdWxsaW5nIHRoZSA5IGdlbmUgSURzIHdoaWNoIGFyZSBpbiB0aGUKcGVjdWxpYXIgc2l0dWF0aW9uIG9mIGluY3JlYXNlZCBleHByZXNzaW9uIGluIHoyLjIvdW5pbmYgYW5kIGRlY3JlYXNlZAppbiB6Mi4zL3VuaW5mLiAgSW4gdGhlIHByZXZpb3VzIHVwc2V0IHBsb3QsIHRoZXNlIGFyZSB2aXNpYmxlIGluIHRoZQo2dGggYmFyLiAgSSBjYW4gYWNjZXNzIHRoZXNlIHZpYSB0aGUgYXR0cigpIGZ1bmN0aW9uLCB3aGljaCBJIHNob3VsZAphZG1pdCBJIGNhbiBuZXZlciByZW1lbWJlciBob3cgdG8gdXNlLCBzbyBJIGFtIGdvaW5nIHRvIHVzZSB0aGUgY29kZQp1bmRlciB0aGUgJ0NvbXBhcmUobm8pU2IgejIuMy96Mi4yIHRyZWF0bWVudCcgaGVhZGluZyB0byByZW1lbWJlciBob3cKdG8gZXh0cmFjdCB0aGVzZSBnZW5lcy4KCmBgYHtyfQphbGxfZ3JvdXBzIDwtIG5vZHJ1Z191cHNldFtbImdyb3VwcyJdXQp3YW50ZWRfZ3JvdXAgPC0gInoyM25vc2JfdnNfdW5pbmZfZG93bjp6MjJub3NiX3ZzX3VuaW5mX3VwIgpnZW5lX2lkeCA8LSBhbGxfZ3JvdXBzW1t3YW50ZWRfZ3JvdXBdXQp3YW50ZWRfZ2VuZXMgPC0gYXR0cihhbGxfZ3JvdXBzLCAiZWxlbWVudHMiKVtnZW5lX2lkeF0Kd2FudGVkX2dlbmVzCmdlbmVfc3ltYm9sX2lkeCA8LSByb3duYW1lcyhmRGF0YShoc19tYWNyKSkgJWluJSBhcy5jaGFyYWN0ZXIod2FudGVkX2dlbmVzKQpmRGF0YShoc19tYWNyKVtnZW5lX3N5bWJvbF9pZHgsICJoZ25jX3N5bWJvbCJdCmBgYAoKKiBBQkNCNTogQVRCIEJpbmRpbmcgQ2Fzc2V0dGUgU3ViZmFtaWx5IEIgTWVtYmVyICM1LCB3aWRlIHJhbmdlIG9mCiAgZnVuY3Rpb25zIGluIHRoaXMgZGl2ZXJzZSBwYXJhbG9nb3VzIGZhbWlseS4gIEFzc29jaWF0ZWQgd2l0aCBza2luCiAgZGlzZWFzZXMgKG1lbGFub21hIGFuZCBFcGlkZXJtb2x5c2lzIEJ1bGxvc2E7IHBhcnRpY2lwYXRlIGluCiAgQVRQLWRlcGVuZGVudCB0cmFuc21lbWJyYW5lIHRyYW5zcG9ydCkuCiogUkZYNDogUmVndWxhdG9yeSBGYWN0b3IgWCAjNDogdHJhbnNjcmlwdGlvbiBmYWN0b3IuCiogQ0ExNDogQ2FyYm9uaWMgYW5oeWRyYXNlICMxNDogWnluYyBtZXRhbGxvZW56eW1lIGNhdGFseXplcwogIHJldmVyc2libGUgaHlkcmF0aW9uIG9mIENPMi4gIFRoaXMgZ2VuZSBsb29rcyBwcmV0dHkgbmVhdCwgYnV0IG5vdAogIHJlYWxseSByZWxldmFudCB0byBhbnl0aGluZyB3ZSBhcmUgbGlrZWx5IHRvIGNhcmUgYWJvdXQuCiogRUdSMTogRWFybHkgR3Jvd3RoIFJlc3BvbnNlIFByb3RlaW4gIzE6IEFub3RoZXIgVHggZmFjdG9yCiAgKHppbmMtZmluZ2VyKSAtLSBpbXBvcnRhbnQgZm9yIGNlbGwgc3Vydml2YWwvcHJvbGlmZXJhdGlvbi9jZWxsCiAgZGVhdGguICBQcmVzdW1hYmx5IGltcG9ydGFudCBmb3IgaGVhbGluZz8KKiBNQ0YyTDogTUNGLjIgQ2VsbCBMaW5lIERlcml2ZWQgVHJhbnNmb3JtaW5nIFNlcXVlbmNlIExpa2U/ICBndWFuaW5lCiAgbnVjbGVvdGlkZSBleGNoYW5nZSBmYWN0b3IgaW50ZXJhY3Rpbmcgd2l0aCBHVFAtYm91bmQgUmFjMS4KICBBcHBhcmVudGx5IGFzc29jaWF0ZWQgd2l0aCBvc3Ryb2FydGhyaXRpczsgcG90ZW50aWFsbHkgcmVsZXZhbnQgdG8KICByZWd1bGF0aW9uIG9mIFJIT0EgYW5kIENEQzQyIHNpZ25hbGxpbmcuCiogRE5BU0UxTDM6IERlb3h5cmlib251Y2xlYXNlIEkgZmFtaWx5IG1lbWJlcjogbm90IGluaGliaXRlZCBieSBhY3RpbiwKICBicmVha3MgZG93biBETkEgZHVyaW5nIGFwb3B0b3Npcy4gIEltcG9ydGFudCBkdXJpbmcgbmVjcm9zaXMuCiogRk9TOiBQcm90by1PbmNvZ2VuZSwgQVAtMSBUcmFuc2NyaXB0aW9uIEZhY3RvcjogbGV1Y2luZSB6aXBwZXIKICBkaW1lcml6ZXMgd2l0aCBKVU4gZmFtaWx5IHByb3RlaW5zLCBmb3JtaW5nIHR4IGZhY3RvciBjb21wbGV4IEFQLTEuCiAgSW1wb3J0YW50IGZvciBjZWxsIHByb2xpZmVyYXRpb24sIGRpZmZlcmVudGlhdGlvbiwgYW5kCiAgdHJhbnNmb3JtYXRpb24uCiogSUZJVE0xMDogSW50ZXJmZXJvbi1JbmR1Y2VkIFRyYW5zbWVtYnJhbmUgUHJvdGVpbiAjMTAKKiBQS0QxTDM6IFBvbHljeXN0aW4gMSBMaWtlICMzLCBUcmFuc2llbnQgUmVjZXB0b3IgUG90ZW50aWFsIENoYW5uZWwKICBJbnRlcmFjdGluZzogMTEgdHJhbnNtZW1icmFuZSBkb21haW4gcHJvdGVpbiB3aGljaCBtaWdodCBoZWxwIGNyZWF0ZQogIGNhdGlvbiBjaGFubmVscy4KCkFzIHNvbWUgY29tcGFyaXNvbiBwb2ludHMsIHRoZSBWZW5uIGluIHRoZSBjdXJyZW50IGZpZ3VyZSBoYXM6CgoqIDM4NyB1cCB6Mi4zCiogMjU5IHVwIHoyLjIKKiA4MyBzaGFyZWQgdXAgejIuMyBhbmQgejIuMgoqIDI0NyBkb3duIHoyLjMKKiAzIGRvd24gejIuMgoqIDMgc2hhcmVkIGRvd24gejIuMyBhbmQgejIuMgoKIyMjIDIuMiBhbmQgMi4zIHdpdGggU2JWIHZzIDIuMiBhbmQgMi4zIHdpdGhvdXQgU2JWCgpUaGlzIGlzIG15IHZlcnNpb24gb2YgdGhlIFZlbm4gd2l0aCB0aGUgdGV4dDoKCiJEaWZmZXJlbnRpYWxseSBleHByZXNzZWQgZ2VuZXMgaW4gbWFjcm9waGFnZXMgaW5mZWN0ZWQgd2l0aApzdWJwb3B1bGF0aW9ucyAyLjIgb3IgMi4zLCBpbiBwcmVzZW5jZSBvZiBTYlYuIFZvbGNhbm8gcGxvdHMgY29udHJhc3QKb2Y6IEEuIGluZmVjdGVkIGNlbGxzIHdpdGggMi4zIHN0cmFpbnMgKyBTYlYgYW5kIGluZmVjdGVkIGNlbGxzIHdpdGgKMi4zIHN0cmFpbnM7IEIuIGluZmVjdGVkIGNlbGxzIHdpdGggMi4yIHN0cmFpbnMgKyBTYlYgYW5kIGluZmVjdGVkCmNlbGxzIHdpdGggMi4yIHN0cmFpbnM7IEMuIGluZmVjdGVkIGNlbGxzIHdpdGggMi4zIHN0cmFpbnMgKyBTYlYgYW5kCmluZmVjdGVkIGNlbGxzIHdpdGggMi4yIHN0cmFpbnMgKyBTYlYuIEQuIFZlbm4gZGlhZ3JhbSBmb3IgdXByZWd1bGF0ZWQKYW5kIGRvd25yZWd1bGF0ZWQgZ2VuZXMgYnkgaW5mZWN0aW9uIHdpdGggMi4zK1NiViBhbmQgMi4yK1NiVgpzdHJhaW5zLiIKCkEgcXVlcnkgZnJvbSBPbGdhICgyMDI0MDgwMSk6IFBsZWFzZSBpbmNsdWRlIGluIHRoZSB1cHNldCBpbiBmaWd1cmUgMwp0aGUgY29udHJhc3Qgb2YgdW5pbmZlY3RlZCBjZWxscyArIFNiViB2cyB1bmluZmVjdGVkIHdpdGhvdXQgU2JWLgoKYGBge3J9CiMjIEkga2VlcCBtaXMtaW50ZXJwcmV0aW5nIHRoaXMgdGV4dCwgaXQgaXMgejIuMy96Mi4zU2JWIGFuZCB6Mi4yL3oyLjJTYlYKZHJ1Z25vZHJ1Z191cHNldCA8LSB1cHNldHJfY29tYmluZWRfZGUoaHNfbWFjcl90YWJsZSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZGVzaXJlZF9jb250cmFzdHMgPSBjKCJ6MjNzYl92c196MjNub3NiIiwgInoyMnNiX3ZzX3oyMm5vc2IiKSkKcHAoZmlsZSA9ICJpbWFnZXMvZHJ1Z25vZHJ1Z191cHNldC5wZGYiKQpkcnVnbm9kcnVnX3Vwc2V0W1sicGxvdCJdXQpkZXYub2ZmKCkKZHJ1Z25vZHJ1Z191cHNldAoKZHJ1Z25vZHJ1Z191bmluZl9jb250cmFzdHMgPC0gYygiejIzc2JfdnNfejIzbm9zYiIsICJ6MjJzYl92c196MjJub3NiIiwgInNiX3ZzX3VuaW5mIikKZHJ1Z25vZHJ1Z191cHNldF93aXRoX3VuaW5mIDwtIHVwc2V0cl9jb21iaW5lZF9kZShoc19tYWNyX3RhYmxlLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkZXNpcmVkX2NvbnRyYXN0cyA9IGRydWdub2RydWdfdW5pbmZfY29udHJhc3RzKQpwcChmaWxlID0gImZpZ3VyZXMvZHJ1Z25vZHJ1Z193aXRoX3VuaW5mX3Vwc2V0LnN2ZyIpCmRydWdub2RydWdfdXBzZXRfd2l0aF91bmluZltbInBsb3QiXV0KZGV2Lm9mZigpCmRydWdub2RydWdfdXBzZXRfd2l0aF91bmluZgpgYGAKCkZvciBzb21lIGNvbXBhcmlzb24gcG9pbnRzLCB0aGUgdmVubiBpbWFnZSBoYXM6CgoqIDIyMiB1cCB6Mi4zIFNiVgoqIDEzNCB1cCB6Mi4yIFNiVgoqIDE4MiBkb3duIHoyLjMgU2JWCiogMzk2IGRvd24gejIuMiBTYlYKKiA2MDUgc2hhcmVkIGRvd24gejIuMiBhbmQgejIuMyBTYlYKKiAzNCBzaGFyZWQgZG93biB6Mi4yIFNiViBhbmQgdXAgejIuMyBTYlYKKiAzNjMgc2hhcmVkIHVwIHoyLjIgU2JWIGFuZCB6Mi4zIFNiVgoKIyMjIENvbXBhcmUgejIuMlNiViB2cyBTYlYgYW5kIHoyLjNTYlYgYW5kIFNiVgoKYGBge3J9CmRydWdfdXBzZXQgPC0gdXBzZXRyX2NvbWJpbmVkX2RlKGhzX21hY3JfdGFibGUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRlc2lyZWRfY29udHJhc3RzID0gYygiejIyc2JfdnNfc2IiLCAiejIzc2JfdnNfc2IiKSkKcHAoZmlsZSA9ICJpbWFnZXMvZHJ1Z191cHNldC5wZGYiKQpkcnVnX3Vwc2V0W1sicGxvdCJdXQpkZXYub2ZmKCkKZHJ1Z191cHNldApgYGAKCiMjIFNpZ25pZmljYW5jZSBiYXJwbG90IG9mIGludGVyZXN0CgpPbGdhIGtpbmRseSBzZW50IGEgc2V0IG9mIHBhcnRpY3VsYXJseSBpbnRlcmVzdGluZyBjb250cmFzdHMgYW5kCmNvbG9ycyBmb3IgYSBzaWduaWZpY2FuY2UgYmFycGxvdCwgdGhleSBpbmNsdWRlIHRoZSBmb2xsb3dpbmc6CgoqIHoyLjMgdnMuIHVuaW5mZWN0ZWQuCiogejIuMiB2cy4gdW5pbmZlY3RlZC4KKiB6Mi4zIHZzIHoyLjIKKiB6Mi4zU2J2IHZzIHoyLjMKKiB6Mi4yU2J2IHZzIHoyLjIKKiB6Mi4zU2J2IHZzIHoyLjJTYnYKKiBTYnYgdnMgdW5pbmZlY3RlZC4KClRoZSBleGlzdGluZyBzZXQgb2YgJ2tlZXBlcnMnIGV4dmlzZWQgdG8gdGhlc2UgaXMgdGFrZW4gZnJvbSB0aGUKZXh0YW50IHNldCBvZiAndG1yYzJfaHVtYW5fa2VlcGVycycgYW5kIGlzIGFzIGZvbGxvd3M6CgoKYGBge3J9CmJhcnBsb3Rfa2VlcGVycyA8LSBsaXN0KAogICMjIHoyLjMgdnMgdW5pbmZlY3RlZAogICJ6MjNub3NiX3ZzX3VuaW5mIiA9IGMoImluZnoyMyIsICJ1bmluZm5vbmUiKSwKICAjIyB6Mi4yIHZzIHVuaW5mZWN0ZWQKICAiejIybm9zYl92c191bmluZiIgPSBjKCJpbmZ6MjIiLCAidW5pbmZub25lIiksCiAgIyMgejIuMyB2cyB6Mi4yCiAgInoyM25vc2JfdnNfejIybm9zYiIgPSBjKCJpbmZ6MjMiLCAiaW5mejIyIiksCiAgIyMgejIuM1NidiB2cyB6Mi4zCiAgInoyM3NiX3ZzX3oyM25vc2IiID0gYygiaW5mc2J6MjMiLCAiaW5mejIzIiksCiAgIyMgejIuMlNidiB2cyB6Mi4yCiAgInoyMnNiX3ZzX3oyMm5vc2IiID0gYygiaW5mc2J6MjIiLCAiaW5mejIyIiksCiAgIyMgejIuM1NidiB2cyB6Mi4yU2J2CiAgInoyM3NiX3ZzX3oyMnNiIiA9IGMoImluZnNiejIzIiwgImluZnNiejIyIiksCiAgIyMgU2J2IHZzIHVuaW5mZWN0ZWQuCiAgInNiX3ZzX3VuaW5mIiA9IGMoInVuaW5mc2Jub25lIiwgInVuaW5mbm9uZSIpKQpiYXJwbG90X2NvbWJpbmVkIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIGhzX21hY3JfZGUsIGtlZXBlcnMgPSBiYXJwbG90X2tlZXBlcnMsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2RlX3RhYmxlcy9oc19tYWNyX2RydWdfenltb183Y29udHJhc3RzLXZ7dmVyfS54bHN4IikpCmBgYAoKTm93IGxldCB1cyB1c2UgdGhlIGNvbG9ycyBzdWdnZXN0ZWQgYnkgT2xnYSB0byBtYWtlIGEgYmFycGxvdCBvZgp0aGVzZS4uLgoKYGBge3J9CmNvbG9yX2xpc3QgPC0gIGMoICIjZGU4YmY5IiwgIiNhZDA3ZTMiLCIjNDEwMjU3IiwgIiNmZmEwYTAiLCAiI2Y5NDA0MCIsICIjYTAwMDAwIikKYmFycGxvdF9zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICBiYXJwbG90X2NvbWJpbmVkLCBjb2xvcl9saXN0ID0gY29sb3JfbGlzdCwgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9oc19tYWNyX2RydWdfenltb183Y29udHJhc3RzX3NpZy12e3Zlcn0ueGxzeCIpKQpiYXJwbG90X3NpZwpgYGAKCiMgUFJPUEVSCgpJbiBvdXIgbGFzdCBtZWV0aW5nIHRoZXJlIHdlcmUgc29tZSBxdWVzdGlvbnMgYWJvdXQgdGhlIHN0YXRpc3RpY2FsCnBvd2VyIG9mIGRpZmZlcmVudCBmdXR1cmUgZXhwZXJpbWVudGFsIGRlc2lnbnMuICBPbmUgdGhpbmcgSSBjYW4gZG8gaXMKdG8gdXNlIFBST1BFUiB0byBlc3RpbWF0ZSB0aGUgcG93ZXIgb2YgYW4gZXh0YW50IGRhdGFzZXQgYW5kIGluZmVyCmZyb20gdGhhdCB0aGUgbGlrZWx5IHBvd2VyIG9mIG90aGVyIGRlc2lnbnMuCgpJbiBvcmRlciB0byB1c2UgcHJvcGVyLCBvbmUgbXVzdCBmZWVkIGl0IG9uZSBvciBtb3JlIERFIHRhYmxlcy4KCmBgYHtyfQpwb3dlcl9lc3RpbWF0ZSA8LSBzaW1wbGVfcHJvcGVyKGhzX3NpbmdsZV90YWJsZSkKCnBvd2VyX2VzdGltYXRlW1sxXV1bWyJwb3dlcl9wbG90Il1dCnBvd2VyX2VzdGltYXRlW1sxXV1bWyJwb3dlcnRkX3Bsb3QiXV0KcG93ZXJfZXN0aW1hdGVbWzFdXVtbInBvd2VyZmRfcGxvdCJdXQpgYGAKCiMgT3VyIG1haW4gcXVlc3Rpb25zIGluIFU5MzcKCkxldCB1cyBkbyB0aGUgc2FtZSBjb21wYXJpc29ucyBpbiB0aGUgVTkzNyBzYW1wbGVzLCB0aG91Z2ggSSB3aWxsIG5vdApkbyB0aGUgZXh0cmEgY29udHJhc3RzLCBwcmltYXJpbHkgYmVjYXVzZSBJIHRoaW5rIHRoZSBkYXRhc2V0IGlzIGxlc3MKbGlrZWx5IHRvIHN1cHBvcnQgdGhlbS4KCmBgYHtyfQp1OTM3X2RlIDwtIGFsbF9wYWlyd2lzZSh1OTM3X2V4cHQsIG1vZGVsX3N2cyA9ICJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICBmaWx0ZXIgPSBUUlVFLCBkb19ub2lzZXEgPSBGQUxTRSkKdTkzN19kZQp1OTM3X3RhYmxlIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHU5MzdfZGUsIGtlZXBlcnMgPSB1OTM3X2tlZXBlcnMsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2RlX3RhYmxlcy91OTM3X2RydWdfenltb190YWJsZS12e3Zlcn0ueGxzeCIpKQp1OTM3X3RhYmxlCmNvbWJpbmVkX3RvX3Rzdih1OTM3X3RhYmxlLCBjZWxsdHlwZSA9ICJ1OTM3IikKCnU5Mzdfc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgdTkzN190YWJsZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy91OTM3X2RydWdfenltb19zaWctdnt2ZXJ9Lnhsc3giKSkKdTkzN19zaWcKdTkzN19oaWdoc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgdTkzN190YWJsZSwgbWluX21lYW5fZXhwcnMgPSBoaWdoX2V4cHJlc3Npb24sIGV4cHJzX2NvbHVtbiA9IGhpZ2hfZXhwcmVzc2lvbl9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvdTkzN19kcnVnX3p5bW9faGlnaHNpZy12e3Zlcn0ueGxzeCIpKQp1OTM3X2hpZ2hzaWcKdTkzN19sZXNzc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgdTkzN190YWJsZSwgbGZjID0gMC42LAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9zaWdfdGFibGVzL3U5MzdfZHJ1Z196eW1vX2xlc3NzaWctdnt2ZXJ9Lnhsc3giKSkKdTkzN19sZXNzc2lnCmBgYAoKIyBDb21wYXJlIChubylTYiB6Mi4zL3oyLjIgdHJlYXRtZW50cyBhbW9uZyBtYWNyb3BoYWdlcwoKSW4gdGhlIGZvbGxvd2luZyBibG9jaywgSSB3aWxsIGp1bXAgYmFjayB0byB0aGUgbWFjcm9waGFnZSBzYW1wbGVzIGFuZApsb29rIGZvciBnZW5lcyB3aGljaCBhcmUgc2hhcmVkL3VuaXF1ZSB3aGVuIGNvbXBhcmluZyB6Mi4zL3oyLjIKZm9yIHRoZSBkcnVnIHRyZWF0ZWQgc2FtcGxlcyBhbmQgdGhlIHVudHJlYXRlZCBzYW1wbGVzLgoKYGBge3J9CnVwc2V0X3Bsb3RzX2hzX21hY3IgPC0gdXBzZXRyX3NpZygKICBoc19tYWNyX3NpZywgYm90aCA9IFRSVUUsCiAgY29udHJhc3RzID0gYygiejIzc2JfdnNfejIyc2IiLCAiejIzbm9zYl92c196MjJub3NiIikpCnVwc2V0X3Bsb3RzX2hzX21hY3JbWyJib3RoIl1dCmdyb3VwcyA8LSB1cHNldF9wbG90c19oc19tYWNyW1siYm90aF9ncm91cHMiXV0Kc2hhcmVkX2dlbmVzIDwtIGF0dHIoZ3JvdXBzLCAiZWxlbWVudHMiKVtncm91cHNbWzJdXV0gJT4lCiAgZ3N1YihwYXR0ZXJuID0gIl5nZW5lOiIsIHJlcGxhY2VtZW50ID0gIiIpCmxlbmd0aChzaGFyZWRfZ2VuZXMpCgpzaGFyZWRfZ3AgPC0gc2ltcGxlX2dwcm9maWxlcihzaGFyZWRfZ2VuZXMpCnNoYXJlZF9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCnNoYXJlZF9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIkJQIl1dCnNoYXJlZF9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KCmRydWdfZ2VuZXMgPC0gYXR0cihncm91cHMsICJlbGVtZW50cyIpW2dyb3Vwc1tbInoyM3NiX3ZzX3oyMnNiIl1dXSAlPiUKICBnc3ViKHBhdHRlcm4gPSAiXmdlbmU6IiwgcmVwbGFjZW1lbnQgPSAiIikKZHJ1Z29ubHlfZ3AgPC0gc2ltcGxlX2dwcm9maWxlcihkcnVnX2dlbmVzKQpkcnVnb25seV9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIkJQIl1dCmBgYAoKSSB3YW50IHRvIHRyeSBzb21ldGhpbmcsIGRpcmVjdGx5IGluY2x1ZGUgdGhlIHU5MzcgZGF0YSBpbiB0aGlzLgpUaHVzLCBpbiB0aGUgZm9sbG93aW5nIGJsb2NrIEkgd2lsbCByZXBlYXQgYnV0IGNvbXBhcmUgYWxsIHNhbXBsZXMgYW5kCnRoZSBVOTM3IHVzaW5nIHRoZSBzYW1lIGxvZ2ljLgoKYGBge3J9CmJvdGhfc2lnIDwtIGhzX21hY3Jfc2lnCm5hbWVzKGJvdGhfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV0pIDwtIHBhc3RlMCgibWFjcl8iLCBuYW1lcyhib3RoX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dKSkKbmFtZXMoYm90aF9zaWdbWyJkZXNlcSJdXVtbImRvd25zIl1dKSA8LSBwYXN0ZTAoIm1hY3JfIiwgbmFtZXMoYm90aF9zaWdbWyJkZXNlcSJdXVtbImRvd25zIl1dKSkKdTkzN19kZXNlcSA8LSB1OTM3X3NpZ1tbImRlc2VxIl1dCm5hbWVzKHU5MzdfZGVzZXFbWyJ1cHMiXV0pIDwtIHBhc3RlMCgidTkzN18iLCBuYW1lcyh1OTM3X2Rlc2VxW1sidXBzIl1dKSkKbmFtZXModTkzN19kZXNlcVtbImRvd25zIl1dKSA8LSBwYXN0ZTAoInU5MzdfIiwgbmFtZXModTkzN19kZXNlcVtbImRvd25zIl1dKSkKYm90aF9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXSA8LSBjKGJvdGhfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV0sIHU5MzdfZGVzZXFbWyJ1cHMiXV0pCmJvdGhfc2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXSA8LSBjKGJvdGhfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV0sIHU5MzdfZGVzZXFbWyJkb3ducyJdXSkKc3VtbWFyeShib3RoX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dKQoKdXBzZXRfcGxvdHNfYm90aCA8LSB1cHNldHJfc2lnKAogIGJvdGhfc2lnLCBib3RoID0gVFJVRSwKICBjb250cmFzdHMgPSBjKCJtYWNyX3oyM3NiX3ZzX3oyMnNiIiwgIm1hY3JfejIzbm9zYl92c196MjJub3NiIiwKICAgICAgICAgICAgICAgICJ1OTM3X3oyM3NiX3ZzX3oyMnNiIiwgInU5MzdfejIzbm9zYl92c196MjJub3NiIikpCnVwc2V0X3Bsb3RzX2JvdGhbWyJib3RoIl1dCmBgYAoKIyMgQ29tcGFyZSBERSByZXN1bHRzIGZyb20gbWFjcm9waGFnZXMgYW5kIFU5Mzcgc2FtcGxlcwoKTG9va2luZyBhIGJpdCBtb3JlIGNsb3NlbHkgYXQgdGhlc2UsIEkgdGhpbmsgdGhlIHU5MzcgZGF0YSBpcyB0b28Kc3BhcnNlIHRvIGVmZmVjdGl2ZWx5IGNvbXBhcmUuCgpgYGB7cn0KbWFjcl91OTM3X2NvbXBhcmlzb24gPC0gY29tcGFyZV9kZV9yZXN1bHRzKGhzX21hY3JfdGFibGUsIHU5MzdfdGFibGUpCm1hY3JfdTkzN19jb21wYXJpc29uW1sibGZjX2hlYXQiXV0KCm1hY3JfdTkzN192ZW5ucyA8LSBjb21wYXJlX3NpZ25pZmljYW50X2NvbnRyYXN0cyhoc19tYWNyX3NpZywgc2Vjb25kX3NpZ190YWJsZXMgPSB1OTM3X3NpZywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbnRyYXN0cyA9ICJ6MjNzYl92c196MjNub3NiIikKbWFjcl91OTM3X3Zlbm5zW1sidXBfcGxvdCJdXQptYWNyX3U5MzdfdmVubnNbWyJkb3duX3Bsb3QiXV0KCm1hY3JfdTkzN192ZW5uc192MiA8LSBjb21wYXJlX3NpZ25pZmljYW50X2NvbnRyYXN0cygKICBoc19tYWNyX3NpZywgc2Vjb25kX3NpZ190YWJsZXMgPSB1OTM3X3NpZywgY29udHJhc3RzID0gInoyMnNiX3ZzX3oyMm5vc2IiKQptYWNyX3U5MzdfdmVubnNfdjJbWyJ1cF9wbG90Il1dCm1hY3JfdTkzN192ZW5uc192MltbImRvd25fcGxvdCJdXQoKbWFjcl91OTM3X3Zlbm5zX3YzIDwtIGNvbXBhcmVfc2lnbmlmaWNhbnRfY29udHJhc3RzKAogIGhzX21hY3Jfc2lnLCBzZWNvbmRfc2lnX3RhYmxlcyA9IHU5Mzdfc2lnLCBjb250cmFzdHMgPSAic2JfdnNfdW5pbmYiKQptYWNyX3U5MzdfdmVubnNfdjNbWyJ1cF9wbG90Il1dCm1hY3JfdTkzN192ZW5uc192M1tbImRvd25fcGxvdCJdXQpgYGAKCiMjIENvbXBhcmUgbWFjcm9waGFnZS91OTM3IHdpdGggcmVzcGVjdCB0byB6Mi4zL3oyLjIKCmBgYHtyfQpjb21wYXJpc29uX2RmIDwtIG1lcmdlKGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIzc2JfdnNfejIyc2IiXV0sCiAgICAgICAgICAgICAgICAgICAgICAgdTkzN190YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c196MjJzYiJdXSwKICAgICAgICAgICAgICAgICAgICAgICBieSA9ICJyb3cubmFtZXMiKQptYWNydTkzN196MjN6MjJfcGxvdCA8LSBwbG90X2xpbmVhcl9zY2F0dGVyKGNvbXBhcmlzb25fZGZbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCm1hY3J1OTM3X3oyM3oyMl9wbG90W1sic2NhdHRlciJdXQoKY29tcGFyaXNvbl9kZiA8LSBtZXJnZShoc19tYWNyX3RhYmxlW1siZGF0YSJdXVtbInoyM25vc2JfdnNfejIybm9zYiJdXSwKICAgICAgICAgICAgICAgICAgICAgICB1OTM3X3RhYmxlW1siZGF0YSJdXVtbInoyM25vc2JfdnNfejIybm9zYiJdXSwKICAgICAgICAgICAgICAgICAgICAgICBieSA9ICJyb3cubmFtZXMiKQptYWNydTkzN196MjN6MjJfcGxvdCA8LSBwbG90X2xpbmVhcl9zY2F0dGVyKGNvbXBhcmlzb25fZGZbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCm1hY3J1OTM3X3oyM3oyMl9wbG90W1sic2NhdHRlciJdXQpgYGAKCiMgQWRkIGRvbm9yIHRvIHRoZSBjb250cmFzdHMsIG5vIHN2YQoKSW4gdGhlIGZvbGxvd2luZyBibG9jaywgSSB3aWxsIGNoYW5nZSB0aGUgc2FtcGxlIGNvbmRpdGlvbiB0byBpbmNsdWRlCnRoZSBkb25vci4KCmBgYHtyfQpub19wb3dlcl9mYWN0IDwtIHBhc3RlMChwRGF0YShoc19tYWNyKVtbImRvbm9yIl1dLCAiXyIsCiAgICAgICAgICAgICAgICAgICAgICAgIHBEYXRhKGhzX21hY3IpW1siY29uZGl0aW9uIl1dKQp0YWJsZShwRGF0YShoc19tYWNyKVtbImRvbm9yIl1dKQp0YWJsZShub19wb3dlcl9mYWN0KQpoc19ub3Bvd2VyIDwtIHNldF9leHB0X2NvbmRpdGlvbnMoaHNfbWFjciwgZmFjdCA9IG5vX3Bvd2VyX2ZhY3QpCmhzX25vcG93ZXIgPC0gc3Vic2V0X2V4cHQoaHNfbm9wb3dlciwgc3Vic2V0ID0gIm1hY3JvcGhhZ2V6eW1vZGVtZSE9J25vbmUnIikKaHNfbm9wb3dlcl9ub3N2YV9kZSA8LSBhbGxfcGFpcndpc2UoaHNfbm9wb3dlciwgbW9kZWxfc3ZzID0gRkFMU0UsIGZpbHRlciA9IFRSVUUpCm5vcG93ZXJfa2VlcGVycyA8LSBsaXN0KAogICJkMDFfenltbyIgPSBjKCJkMDFpbmZ6MjMiLCAiZDAxaW5mejIyIiksCiAgImQwMV9zYnp5bW8iID0gYygiZDAxaW5mc2J6MjMiLCAiZDAxaW5mc2J6MjIiKSwKICAiZDAyX3p5bW8iID0gYygiZDAyaW5mejIzIiwgImQwMmluZnoyMiIpLAogICJkMDJfc2J6eW1vIiA9IGMoImQwMmluZnNiejIzIiwgImQwMmluZnNiejIyIiksCiAgImQwOV96eW1vIiA9IGMoImQwOWluZnoyMyIsICJkMDlpbmZ6MjIiKSwKICAiZDA5X3NienltbyIgPSBjKCJkMDlpbmZzYnoyMyIsICJkMDlpbmZzYnoyMiIpLAogICJkODFfenltbyIgPSBjKCJkODFpbmZ6MjMiLCAiZDgxaW5mejIyIiksCiAgImQ4MV9zYnp5bW8iID0gYygiZDgxaW5mc2J6MjMiLCAiZDgxaW5mc2J6MjIiKSkKaHNfbm9wb3dlcl9ub3N2YV90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBoc19ub3Bvd2VyX25vc3ZhX2RlLCBrZWVwZXJzID0gbm9wb3dlcl9rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9kZV90YWJsZXMvaHNfbm9wb3dlcl90YWJsZS12e3Zlcn0ueGxzeCIpKQojIyBleHRyYV9jb250cmFzdHMgPSBleHRyYSkKaHNfbm9wb3dlcl9ub3N2YV9zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICBoc19ub3Bvd2VyX25vc3ZhX3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9zaWdfdGFibGVzL2hzX25vcG93ZXJfbm9zdmFfc2lnLXZ7dmVyfS54bHN4IikpCgpkMDFkMDJfenltb19ub3N2YV9jb21wIDwtIG1lcmdlKGhzX25vcG93ZXJfbm9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDAxX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaHNfbm9wb3dlcl9ub3N2YV90YWJsZVtbImRhdGEiXV1bWyJkMDJfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBieSA9ICJyb3cubmFtZXMiKQpkMDEwMl96eW1vX25vc3ZhX3Bsb3QgPC0gcGxvdF9saW5lYXJfc2NhdHRlcihkMDFkMDJfenltb19ub3N2YV9jb21wWywgYygiZGVzZXFfbG9nZmMueCIsICJkZXNlcV9sb2dmYy55IildKQpkMDEwMl96eW1vX25vc3ZhX3Bsb3RbWyJzY2F0dGVyIl1dCmQwMTAyX3p5bW9fbm9zdmFfcGxvdFtbImNvcnJlbGF0aW9uIl1dCmQwMTAyX3p5bW9fbm9zdmFfcGxvdFtbImxtX3JzcSJdXQoKZDA5ZDgxX3p5bW9fbm9zdmFfY29tcCA8LSBtZXJnZShoc19ub3Bvd2VyX25vc3ZhX3RhYmxlW1siZGF0YSJdXVtbImQwOV96eW1vIl1dLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGhzX25vcG93ZXJfbm9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDgxX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYnkgPSAicm93Lm5hbWVzIikKZDA5ODFfenltb19ub3N2YV9wbG90IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIoZDA5ZDgxX3p5bW9fbm9zdmFfY29tcFssIGMoImRlc2VxX2xvZ2ZjLngiLCAiZGVzZXFfbG9nZmMueSIpXSkKZDA5ODFfenltb19ub3N2YV9wbG90W1sic2NhdHRlciJdXQpkMDk4MV96eW1vX25vc3ZhX3Bsb3RbWyJjb3JyZWxhdGlvbiJdXQpkMDk4MV96eW1vX25vc3ZhX3Bsb3RbWyJsbV9yc3EiXV0KCmQwMWQ4MV96eW1vX25vc3ZhX2NvbXAgPC0gbWVyZ2UoaHNfbm9wb3dlcl9ub3N2YV90YWJsZVtbImRhdGEiXV1bWyJkMDFfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBoc19ub3Bvd2VyX25vc3ZhX3RhYmxlW1siZGF0YSJdXVtbImQ4MV96eW1vIl1dLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJ5ID0gInJvdy5uYW1lcyIpCmQwMTgxX3p5bW9fbm9zdmFfcGxvdCA8LSBwbG90X2xpbmVhcl9zY2F0dGVyKGQwMWQ4MV96eW1vX25vc3ZhX2NvbXBbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCmQwMTgxX3p5bW9fbm9zdmFfcGxvdFtbInNjYXR0ZXIiXV0KZDAxODFfenltb19ub3N2YV9wbG90W1siY29ycmVsYXRpb24iXV0KZDAxODFfenltb19ub3N2YV9wbG90W1sibG1fcnNxIl1dCgp1cHNldF9wbG90c19ub3N2YSA8LSB1cHNldHJfc2lnKGhzX25vcG93ZXJfbm9zdmFfc2lnLCBib3RoID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb250cmFzdHMgPSBjKCJkMDFfenltbyIsICJkMDJfenltbyIsICJkMDlfenltbyIsICJkODFfenltbyIpKQp1cHNldF9wbG90c19ub3N2YVtbInVwIl1dCnVwc2V0X3Bsb3RzX25vc3ZhW1siZG93biJdXQp1cHNldF9wbG90c19ub3N2YVtbImJvdGgiXV0KIyMgVGhlIDd0aCBlbGVtZW50IGluIHRoZSBib3RoIGdyb3VwcyBsaXN0IGlzIHRoZSBzZXQgc2hhcmVkIGFtb25nIGFsbCBkb25vcnMuCiMjIEkgZG9uJ3QgZmVlbCBsaWtlIHdyaXRpbmcgb3V0IHg6eTp6OmEKZ3JvdXBzIDwtIHVwc2V0X3Bsb3RzX25vc3ZhW1siYm90aF9ncm91cHMiXV0Kc2hhcmVkX2dlbmVzIDwtIGF0dHIoZ3JvdXBzLCAiZWxlbWVudHMiKVtncm91cHNbWzddXV0gJT4lCiAgZ3N1YihwYXR0ZXJuID0gIl5nZW5lOiIsIHJlcGxhY2VtZW50ID0gIiIpCnNoYXJlZF9ncCA8LSBzaW1wbGVfZ3Byb2ZpbGVyKHNoYXJlZF9nZW5lcykKc2hhcmVkX2dwW1sicHZhbHVlX3Bsb3RzIl1dW1siTUYiXV0Kc2hhcmVkX2dwW1sicHZhbHVlX3Bsb3RzIl1dW1siQlAiXV0Kc2hhcmVkX2dwW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQpzaGFyZWRfZ3BbWyJwdmFsdWVfcGxvdHMiXV1bWyJXUCJdXQpgYGAKCiMgQWRkIGRvbm9yIHRvIHRoZSBjb250cmFzdHMsIHN2YQoKU2FtZSBkZWFsIGFzIHRoZSBsYXN0IGJsb2NrLCBidXQgdGhpcyB0aW1lIGFkZCBTVkEgaW50byB0aGUgbWl4IQoKYGBge3J9CmhzX25vcG93ZXJfc3ZhX2RlIDwtIGFsbF9wYWlyd2lzZShoc19ub3Bvd2VyLCBtb2RlbF9zdnMgPSAic3Zhc2VxIiwgZmlsdGVyID0gVFJVRSkKbm9wb3dlcl9rZWVwZXJzIDwtIGxpc3QoCiAgImQwMV96eW1vIiA9IGMoImQwMWluZnoyMyIsICJkMDFpbmZ6MjIiKSwKICAiZDAxX3NienltbyIgPSBjKCJkMDFpbmZzYnoyMyIsICJkMDFpbmZzYnoyMiIpLAogICJkMDJfenltbyIgPSBjKCJkMDJpbmZ6MjMiLCAiZDAyaW5mejIyIiksCiAgImQwMl9zYnp5bW8iID0gYygiZDAyaW5mc2J6MjMiLCAiZDAyaW5mc2J6MjIiKSwKICAiZDA5X3p5bW8iID0gYygiZDA5aW5mejIzIiwgImQwOWluZnoyMiIpLAogICJkMDlfc2J6eW1vIiA9IGMoImQwOWluZnNiejIzIiwgImQwOWluZnNiejIyIiksCiAgImQ4MV96eW1vIiA9IGMoImQ4MWluZnoyMyIsICJkODFpbmZ6MjIiKSwKICAiZDgxX3NienltbyIgPSBjKCJkODFpbmZzYnoyMyIsICJkODFpbmZzYnoyMiIpKQpoc19ub3Bvd2VyX3N2YV90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBoc19ub3Bvd2VyX3N2YV9kZSwga2VlcGVycyA9IG5vcG93ZXJfa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvZGVfdGFibGVzL2hzX25vcG93ZXJfdGFibGUtdnt2ZXJ9Lnhsc3giKSkKIyMgZXh0cmFfY29udHJhc3RzID0gZXh0cmEpCmhzX25vcG93ZXJfc3ZhX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhzX25vcG93ZXJfc3ZhX3RhYmxlLAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9zaWdfdGFibGVzL2hzX25vcG93ZXJfc3ZhX3NpZy12e3Zlcn0ueGxzeCIpKQoKZDAxZDAyX3p5bW9fc3ZhX2NvbXAgPC0gbWVyZ2UoaHNfbm9wb3dlcl9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDAxX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGhzX25vcG93ZXJfc3ZhX3RhYmxlW1siZGF0YSJdXVtbImQwMl96eW1vIl1dLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBieSA9ICJyb3cubmFtZXMiKQpkMDEwMl96eW1vX3N2YV9wbG90IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIoZDAxZDAyX3p5bW9fc3ZhX2NvbXBbLCBjKCJkZXNlcV9sb2dmYy54IiwgImRlc2VxX2xvZ2ZjLnkiKV0pCmQwMTAyX3p5bW9fc3ZhX3Bsb3RbWyJzY2F0dGVyIl1dCmQwMTAyX3p5bW9fc3ZhX3Bsb3RbWyJjb3JyZWxhdGlvbiJdXQpkMDEwMl96eW1vX3N2YV9wbG90W1sibG1fcnNxIl1dCgpkMDlkODFfenltb19zdmFfY29tcCA8LSBtZXJnZShoc19ub3Bvd2VyX3N2YV90YWJsZVtbImRhdGEiXV1bWyJkMDlfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaHNfbm9wb3dlcl9zdmFfdGFibGVbWyJkYXRhIl1dW1siZDgxX3p5bW8iXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJ5ID0gInJvdy5uYW1lcyIpCmQwOTgxX3p5bW9fc3ZhX3Bsb3QgPC0gcGxvdF9saW5lYXJfc2NhdHRlcihkMDlkODFfenltb19zdmFfY29tcFssIGMoImRlc2VxX2xvZ2ZjLngiLCAiZGVzZXFfbG9nZmMueSIpXSkKZDA5ODFfenltb19zdmFfcGxvdFtbInNjYXR0ZXIiXV0KZDA5ODFfenltb19zdmFfcGxvdFtbImNvcnJlbGF0aW9uIl1dCmQwOTgxX3p5bW9fc3ZhX3Bsb3RbWyJsbV9yc3EiXV0KCmQwMWQ4MV96eW1vX3N2YV9jb21wIDwtIG1lcmdlKGhzX25vcG93ZXJfc3ZhX3RhYmxlW1siZGF0YSJdXVtbImQwMV96eW1vIl1dLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBoc19ub3Bvd2VyX3N2YV90YWJsZVtbImRhdGEiXV1bWyJkODFfenltbyJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYnkgPSAicm93Lm5hbWVzIikKZDAxODFfenltb19zdmFfcGxvdCA8LSBwbG90X2xpbmVhcl9zY2F0dGVyKGQwMWQ4MV96eW1vX3N2YV9jb21wWywgYygiZGVzZXFfbG9nZmMueCIsICJkZXNlcV9sb2dmYy55IildKQpkMDE4MV96eW1vX3N2YV9wbG90W1sic2NhdHRlciJdXQpkMDE4MV96eW1vX3N2YV9wbG90W1siY29ycmVsYXRpb24iXV0KZDAxODFfenltb19zdmFfcGxvdFtbImxtX3JzcSJdXQoKdXBzZXRfcGxvdHNfc3ZhIDwtIHVwc2V0cl9zaWcoaHNfbm9wb3dlcl9zdmFfc2lnLCBib3RoID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29udHJhc3RzID0gYygiZDAxX3p5bW8iLCAiZDAyX3p5bW8iLCAiZDA5X3p5bW8iLCAiZDgxX3p5bW8iKSkKdXBzZXRfcGxvdHNfc3ZhW1sidXAiXV0KdXBzZXRfcGxvdHNfc3ZhW1siZG93biJdXQp1cHNldF9wbG90c19zdmFbWyJib3RoIl1dCiMjIFRoZSA3dGggZWxlbWVudCBpbiB0aGUgYm90aCBncm91cHMgbGlzdCBpcyB0aGUgc2V0IHNoYXJlZCBhbW9uZyBhbGwgZG9ub3JzLgojIyBJIGRvbid0IGZlZWwgbGlrZSB3cml0aW5nIG91dCB4Onk6ejphCmdyb3VwcyA8LSB1cHNldF9wbG90c19zdmFbWyJib3RoX2dyb3VwcyJdXQpzaGFyZWRfZ2VuZXMgPC0gYXR0cihncm91cHMsICJlbGVtZW50cyIpW2dyb3Vwc1tbN11dXSAlPiUKICBnc3ViKHBhdHRlcm4gPSAiXmdlbmU6IiwgcmVwbGFjZW1lbnQgPSAiIikKc2hhcmVkX2dwIDwtIHNpbXBsZV9ncHJvZmlsZXIoc2hhcmVkX2dlbmVzKQpzaGFyZWRfZ3BbWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQpzaGFyZWRfZ3BbWyJwdmFsdWVfcGxvdHMiXV1bWyJCUCJdXQpzaGFyZWRfZ3BbWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dCnNoYXJlZF9ncFtbInB2YWx1ZV9wbG90cyJdXVtbIldQIl1dCmBgYAoKIyBEb25vciBjb21wYXJpc29uCgpOb3cgY29tcGFyZSB0aGUgZG9ub3JzIHRvIGVhY2ggb3RoZXIgZGlyZWN0bHkuCgpgYGB7cn0KaHNfZG9ub3JzIDwtIHNldF9leHB0X2NvbmRpdGlvbnMoaHNfbWFjciwgZmFjdCA9ICJkb25vciIpCmRvbm9yX2RlIDwtIGFsbF9wYWlyd2lzZShoc19kb25vcnMsIG1vZGVsX3N2cyA9ICJzdmFzZXEiLCBmaWx0ZXIgPSBUUlVFKQpkb25vcl9kZQpkb25vcl90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBkb25vcl9kZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvZGVfdGFibGVzL2Rvbm9yX3RhYmxlcy12e3Zlcn0ueGxzeCIpKQpkb25vcl90YWJsZQpkb25vcl9zaWcgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICBkb25vcl90YWJsZSwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvc2lnX3RhYmxlcy9kb25vcl9zaWctdnt2ZXJ9Lnhsc3giKSkKZG9ub3Jfc2lnCmBgYAoKIyBQcmltYXJ5IHF1ZXJ5IGNvbnRyYXN0cwoKVGhlIGZpbmFsIGNvbnRyYXN0IGluIHRoaXMgbGlzdCBpcyBpbnRlcmVzdGluZyBiZWNhdXNlIGl0IGRlcGVuZHMgb24KdGhlIGV4dHJhIGNvbnRyYXN0cyBhcHBsaWVkIHRvIHRoZSBhbGxfcGFpcndpc2UoKSBhYm92ZS4gIEluIG15IHdheSBvZgp0aGlua2luZywgdGhlIHByaW1hcnkgY29tcGFyaXNvbnMgdG8gY29uc2lkZXIgYXJlIGVpdGhlciBjcm9zcy1kcnVnIG9yCmNyb3NzLXN0cmFpbiwgYnV0IG5vdCBib3RoLiAgSG93ZXZlciBJIHRoaW5rIGluIGF0IGxlYXN0IGEgZmV3Cmluc3RhbmNlcyBPbGdhIGlzIGludGVyZXN0ZWQgaW4gc3RyYWluK2RydWcgLyB1bmluZmVjdGVkK25vZHJ1Zy4KCiMjIFdyaXRlIGNvbnRyYXN0IHJlc3VsdHMKCk5vdyBsZXQgdXMgd3JpdGUgb3V0IHRoZSB4bHN4IGZpbGUgY29udGFpbmluZyB0aGUgYWJvdmUgY29udHJhc3RzLgpUaGUgZmlsZSB3aXRoIHRoZSBzdWZmaXggX3RhYmxlLXZlcnNpb24gd2lsbCB0aGVyZWZvcmUgY29udGFpbiBhbGwKZ2VuZXMgYW5kIHRoZSBmaWxlIHdpdGggdGhlIHN1ZmZpeCBfc2lnLXZlcnNpb24gd2lsbCBjb250YWluIG9ubHkKdGhvc2UgZGVlbWVkIHNpZ25pZmljYW50IHZpYSBvdXIgZGVmYXVsdCBjcml0ZXJpYSBvZiBERVNlcTIgfGxvZ0ZDfCA+PSAxLjAKYW5kIGFkanVzdGVkIHAtdmFsdWUgPD0gMC4wNS4KCiMjIE92ZXIgcmVwcmVzZW50YXRpb24gc2VhcmNoZXMKCkkgZGVjaWRlZCB0byBtYWtlIG9uZSBpbml0aWFsbHkgc21hbGwsIGJ1dCBJIHRoaW5rIHF1aWNrbHkgYmlnIGNoYW5nZQp0byB0aGUgb3JnYW5pemF0aW9uIG9mIHRoaXMgZG9jdW1lbnQ6ICBJIGFtIG1vdmluZyB0aGUgR1NFQSBzZWFyY2hlcwp1cCB0byBpbW1lZGlhdGVseSBhZnRlciB0aGUgREUuICBJIHdpbGwgdGhlbiBtb3ZlIHRoZSBwbG90cyBvZiB0aGUKZ3Byb2ZpbGVyIHJlc3VsdHMgdG8gaW1tZWRpYXRlbHkgYWZ0ZXIgdGhlIHZhcmlvdXMgdm9sY2FubyBwbG90cyBzbwp0aGF0IGl0IGlzIGVhc2llciB0byBpbnRlcnByZXQgdGhlbS4KCkkgYW0gcmVhc29uYWJseSBjZXJ0YWluIHRoaXMgaXMgdGhlIHBsYWNlIHRvIGNoZWNrIHRoYXQgejIzbm8gZHJ1ZyAvCnVuaW5mZWN0ZWQgaGFzIHRoZSBleHBlY3RlZCBzZXQgb2YgZ2VuZXMgYW5kIHRoYXQgdGhlcmUgaXMgb3IgaXMgbm90IGEKcmVhY3RvbWUgcmVzdWx0LgoKUmVwcm9kdWNpYmlsaXR5IG5vdGU6IEdpdmVuIHRoYXQgdGhpcyBpcyBlbnRpcmVseSBkZXBlbmRlbnQgb24gYW4Kb25saW5lIHNlcnZpY2UsIEkgbXVzdCBhc3N1bWUgdGhhdCB0aGUgcmVzdWx0cyB3aWxsIGNoYW5nZSBvdmVyIHRpbWU7CmluIGFkZGl0aW9uIHRoZWlyIHdlYiBzZXJ2ZXJzIHVuZGVyZ28gbWFpbnRlbmFuY2UgcmVndWxhcmx5LCB3aGljaCBtYXkKcmVzdWx0IGluIHN5c3RlbWF0aWMgZmFpbHVyZSBvZiB0aGVzZSBhbmFseXNlcy4gIEkgbGlrZSBnUHJvZmlsZXIKcXVpdGUgYSBsb3QgZm9yIHRoaXMgdHlwZSBvZiBzdHVmZiwgYnV0IHRoaXMgaXMgYW4gaW1wb3J0YW50IGNhdmVhdC4KCkNvbnZlcnNlbHksIHRoZSBjbHVzdGVyUHJvZmlsZXIgcmVzdWx0cyBsYXRlciBkZXBlbmQgb24gYSBjb25zaXN0ZW50Cm9yZ2RiIGFubm90YXRpb24gc2V0IChvciByZWFjdG9tZSBvciB3aGF0ZXZlcik7IHRob3NlIHZlcnNpb25zIGFyZQpmaXhlZCBieSB0aGUgY29udGFpbmVyIGluc3RhbGxhdGlvbi4KCmBgYHtyfQphbGxfZ3AgPC0gYWxsX2dwcm9maWxlcihoc19tYWNyX3NpZywgZW5yaWNoX2lkX2NvbHVtbiA9ICJoZ25jc3ltYm9sIikKZm9yIChnIGluIHNlcV9sZW4obGVuZ3RoKGFsbF9ncCkpKSB7CiAgbmFtZSA8LSBuYW1lcyhhbGxfZ3ApW2ddCiAgZGF0dW0gPC0gYWxsX2dwW1tuYW1lXV0KICBmaWxlbmFtZSA8LSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2dwcm9maWxlci97bmFtZX1fZ3Byb2ZpbGVyLXZ7dmVyfS54bHN4IikKICB3cml0dGVuIDwtIHNtKHdyaXRlX2dwcm9maWxlcl9kYXRhKGRhdHVtLCBleGNlbCA9IGZpbGVuYW1lKSkKfQpgYGAKCiMjIEV4cGxpY2l0IEdTRUEgc2VhcmNoIHZpcyBjbHVzdGVyUHJvZmlsZXIKCmBgYHtyfQphbGxfY3AgPC0gYWxsX2Nwcm9maWxlcihoc19tYWNyX3NpZywgaHNfbWFjcl90YWJsZSkKYGBgCgojIyBTcGVjaWZpYyBkZXNpcmVzIGluIFJlYWN0b21lIHJlc3VsdHMKCkluIHByZXZpb3VzIGFuYWx5c2VzIChJIHRoaW5rIGJ5IERyLiBDb2xtZW5hcmVzKSwgYSBzcGVjaWZpYwpUcnlwdG9waGFuIGJpb3N5bnRoZXNpcyBwYXRod2F5IHdhcyBvYnNlcnZlZC4gIFBhcnRjaXVsYXJseSBpbiB0aGUKMi4zL3VuaW5mZWN0ZWQgY29tcGFyaXNvbi4gIEkgdGhpbmsgbXkgZ3Byb2ZpbGVyIGFuYWx5c2lzIGlzIHRvbwpzdHJpbmdlbnQgYW5kIHRoZXJlZm9yZSBub3Qgb2JzZXJ2aW5nIHRoaXMuICBPbGdhIGFza2VkIGlmIEkgY291bGQKbG9vayBhdCB0aGF0IGFuZCBzZWUgaWYgdGhlcmUgYXJlIHRyaXZpYWwgc2V0dGluZ3MgSSBjYW4gY2hhbmdlIHRvCmhpZ2hsaWdodCB0aGlzIHBhdGh3YXkuICBUaGUgdHdvIG1vc3QgbGlrZWx5IHRoaW5ncyBJIGNhbiBjaGFuZ2UgYXJlCnRoZSBzdHJpbmdlbmNpZXMgb2YgdGhlIERFIGFuYWx5c2lzIGFuZC9vciBnUHJvZmlsZXIuCgpgYGB7cn0KdGVzdF96MjNfdW5pbmZfdXAgPC0gaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyM25vc2JfdnNfdW5pbmYiXV0KbnJvdyh0ZXN0X3oyM191bmluZl91cCkKdGVzdF96MjNfdW5pbmZfZG93biA8LSBoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1siZG93bnMiXV1bWyJ6MjNub3NiX3ZzX3VuaW5mIl1dCm5yb3codGVzdF96MjNfdW5pbmZfZG93bikKCnRlc3RfZ3BfdXAgPC0gc2ltcGxlX2dwcm9maWxlcih0ZXN0X3oyM191bmluZl91cCwgZW5yaWNoX2lkX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRocmVzaG9sZCA9IDEuMCkKdGVzdF9ncF91cAp3cml0dGVuX3VwIDwtIHdyaXRlX2dwcm9maWxlcl9kYXRhKHRlc3RfZ3BfdXAsIGV4Y2VsID0gImV4Y2VsL3oyM191bmluZl9ncF91cF9hbGwueGxzeCIpCgp0ZXN0X2dwX2Rvd24gPC0gc2ltcGxlX2dwcm9maWxlcih0ZXN0X3oyM191bmluZl9kb3duLCBlbnJpY2hfaWRfY29sdW1uID0gImhnbmNzeW1ib2wiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0aHJlc2hvbGQgPSAxLjApCnRlc3RfZ3BfZG93bgp3cml0dGVuX2Rvd24gPC0gd3JpdGVfZ3Byb2ZpbGVyX2RhdGEodGVzdF9ncF9kb3duLCBleGNlbCA9ICJleGNlbC96MjNfdW5pbmZfZ3BfZG93bl9hbGwueGxzeCIpCmBgYAoKIyMgUGxvdCBjb250cmFzdHMgb2YgaW50ZXJlc3QKCk9uZSBzdWdnZXN0aW9uIEkgcmVjZWl2ZWQgcmVjZW50bHkgd2FzIHRvIHNldCB0aGUgYXhlcyBmb3IgdGhlc2UKdm9sY2FubyBwbG90cyB0byBiZSBzdGF0aWMgcmF0aGVyIHRoYW4gbGV0IGdncGxvdCBjaG9vc2UgaXRzIG93bi4gIEkKYW0gYXNzdW1pbmcgdGhpcyBpcyBvbmx5IHJlbGV2YW50IGZvciBwYWlycyBvZiBjb250cmFzdHMsIGJ1dCB0aGF0Cm1pZ2h0IG5vdCBiZSB0cnVlLgoKIyMgSW5kaXZpZHVhbCB6eW1vZGVtZXMgdnMuIHVuaW5mZWN0ZWQKClRoZSBmb2xsb3dpbmcgYmxvY2tzIHdpbGwgYmUgYSBsb3Qgb2YgcmVwZXRpdGlvbi4gIEluIGVhY2ggY2FzZSBJIGFtCnlhbmtpbmcgb3V0IHRoZSB2b2xjYW5vIHBsb3QgZm9yIGEgc3BlY2lmaWMgY29udHJhc3QgYW5kIHNob3dpbmcgdGhlCm9yaWdpbmFsIGZvbGxvd2VkIGJ5IGEgdmVyc2lvbiB3aXRoIGRpZmZlcmVudCBjb2xvcnMvbGFiZWxsaW5nLgoKIyMjIEluZmVjdGVkIHdpdGggejIuMyBubyBBbnRpbW9uaWFsIHZzLiBVbmluZmVjdGVkCgpgYGB7cn0KcGxvdF9jb2xvcnMgPC0gZ2V0X2V4cHRfY29sb3JzKGhzX21hY3JfdGFibGVbWyJpbnB1dCJdXVtbImlucHV0Il1dKQoKIyMgVGhlIG9yaWdpbmFsIHBsb3QgZnJvbSBteSB4bHN4IGZpbGUKaHNfbWFjcl90YWJsZVtbInBsb3RzIl1dW1siejIzbm9zYl92c191bmluZiJdXVtbImRlc2VxX3ZvbF9wbG90cyJdXQoKejIzbm9zYl92c191bmluZl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgaW5wdXQgPSBoc19tYWNyX3RhYmxlW1siZGF0YSJdXVtbInoyM25vc2JfdnNfdW5pbmYiXV0sCiAgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgbGFiZWwgPSAxMCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiLAogIGNvbG9yX2xvdyA9IHBsb3RfY29sb3JzW1sidW5pbmZub25lIl1dLCBjb2xvcl9oaWdoID0gcGxvdF9jb2xvcnNbWyJpbmZ6MjMiXV0pCgpsYWJlbGVkIDwtIHoyM25vc2JfdnNfdW5pbmZfdm9sY2Fub1tbInBsb3QiXV0gKwogIHNjYWxlX3hfY29udGludW91cyhsaW1pdHMgPSBjKC02LCAyMSksIGJyZWFrcyA9IGMoLTYsIC00LCAtMiwgMCwgMiwgNCwgNiwgOCwgMTAsIDIwKSkgKwogIGdnYnJlYWs6OnNjYWxlX3hfYnJlYWsoYygxMCwgMTkpLCBzY2FsZXMgPSAwLjIsIHNwYWNlID0gMC4wMikKcHAoZmlsZSA9ICJmaWd1cmVzL2ZpZzJhX2xhYmVsZWRfd2l0aF9icmVhay5zdmciKQpsYWJlbGVkCmRldi5vZmYoKQpsYWJlbGVkCgpwbG90bHk6OmdncGxvdGx5KHoyM25vc2JfdnNfdW5pbmZfdm9sY2Fub1tbInBsb3QiXV0pCmBgYAoKVGhlIGZvbGxvd2luZyBwcm92aWRlcyBzb21lIG9mIHRoZSBvdmVyLXJlcHJlc2VudGF0aW9uIHBsb3RzIGZyb20gZ1Byb2ZpbGVyMi4KCmBgYHtyfQphbGxfZ3BbWyJ6MjNub3NiX3ZzX3VuaW5mX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQojIyBSZWFjdG9tZSwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM25vc2JfdnNfdW5pbmZfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJLRUdHIl1dCiMjIEtFR0csIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgojI2FsbF9ncFtbInoyM25vc2JfdnNfdW5pbmZfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM25vc2JfdnNfdW5pbmZfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJURiJdXQojIyBURiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM25vc2JfdnNfdW5pbmZfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJXUCJdXQojIyBXaWtpUGF0aHdheXMsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3VuaW5mX3VwIl1dW1siaW50ZXJhY3RpdmVfcGxvdHMiXV1bWyJXUCJdXQoKbWVzc2FnZSgiT2xnYSByZWNlaXZlZCBhIHF1ZXJ5IGFib3V0IHRoZSBmb2xsb3dpbmcgcmVzdWx0LCBJIHRoaW5rIGl0IGlzIG51bGwuIikKYWxsX2dwW1siejIzbm9zYl92c191bmluZl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQptZXNzYWdlKCJJcyB0aGUgcHJldmlvdXMgcGxvdCBudWxsPyIpCiMjIFJlYWN0b21lLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3VuaW5mX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIzbm9zYl92c191bmluZl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmBgYAoKV2UgaGF2ZSBzb21lIG90aGVyIGNhdGVnb3JpY2FsIGVucmljaG1lbnQgcGxvdHMgYXZhaWxhYmxlIHZpYQplbnJpY2hwbG90LCBsZXQgdXMgdHJ5IGEgZmV3IG91dCBmb3IgY29udHJhc3RzIG9mIGludGVyZXN0IGFuZCBzZWUgaWYKYW55IG9mIHRoZW0gcHJvdmUgaGVscGZ1bC4KCkZpcnN0LCBhcyBhIHJlbWluZGVyLCBoZXJlIGFyZSB0aGUgY29udHJhc3RzIHdoaWNoIGFyZSBhdmFpbGFibGUgdG8KZXhhbWluZSwgaW4gZWFjaCBjYXNlIHRoZXJlIGlzIGFuIF91cCBhbmQgX2Rvd24gZW5yaWNobWVudCBvYmplY3QgaW4KdGhlIGRhdGEuICBUaHVzIGluIHRoZSBmb2xsb3dpbmcgbGlzdCBJIGFtIGdvaW5nIHRvIGFyYml0cmFyaWx5IHByaW50Cm91dCBzb21lIGludm9jYXRpb25zIHdoaWNoIGV4dHJhY3QgcHV0YXRpdmVseSBpbnRlcmVzdGluZyBiaXRzIG9mIGRhdGEuCgoqIHoyM25vc2JfdnNfdW5pbmY6IGFsbF9ncFtbInoyM25vc2JfdnNfdW5pbmZfdXAiXV1bWyJCUF9lbnJpY2giXV0KKiB6MjJub3NiX3ZzX3VuaW5mLgoqIHoyM25vc2JfdnNfejIybm9zYi4KKiB6MjNzYl92c196MjJzYi4KKiB6MjNzYl92c196MjNub3NiLgoqIHoyMnNiX3ZzX3oyMm5vc2IuCiogejIzc2JfdnNfc2IuCiogejIyc2JfdnNfc2IuCiogejIzc2JfdnNfdW5pbmYuCiogejIyc2JfdnNfdW5pbmYuCiogc2JfdnNfdW5pbmYuCiogZXh0cmFfejIzMjIuCiogZXh0cmFfZHJ1Z25vZHJ1Zy4KCmBgYHtyfQp6MjNub3NiX3VuaW5mX3VwX2dvIDwtIGFsbF9ncFtbInoyM25vc2JfdnNfdW5pbmZfdXAiXV1bWyJCUF9lbnJpY2giXV0KejIzbm9zYl91bmluZl91cF9nb19wYWlyIDwtIHBhaXJ3aXNlX3Rlcm1zaW0oejIzbm9zYl91bmluZl91cF9nbykKZG90cGxvdCh6MjNub3NiX3VuaW5mX3VwX2dvKQplbWFwcGxvdCh6MjNub3NiX3VuaW5mX3VwX2dvX3BhaXIpCiMjc3NwbG90KHoyM25vc2JfdW5pbmZfdXBfZ29fcGFpcikKdHJlZXBsb3QoejIzbm9zYl91bmluZl91cF9nb19wYWlyKQp1cHNldHBsb3QoejIzbm9zYl91bmluZl91cF9nbykKY25ldHBsb3QoejIzbm9zYl91bmluZl91cF9nbykKYGBgCgojIyMgUmVwZWF0LCBidXQgdXNpbmcgYSBsZXNzIHN0cmljdCBzZXQgb2YgJ3NpZ25pZmljYW50IGdlbmVzJwoKSSBhbSBub3QgZW50aXJlbHkgY2VydGFpbiBpZiB0aGUgUmVhY3RvbWUgcmVzdWx0cyBPbGdhIHNob3dlZCBtZQppbmNsdWRlZCBib3RoIHVwIGFuZCBkb3duIGdlbmVzPyAgSSBhbSBnb2luZyB0byBhc3N1bWUgZm9yIHRoZSBtb21lbnQKdGhhdCBpdCB3YXMganVzdCB1cC9kb3duLCBidXQgaWYgdGhhdCBwcm92ZXMgaW50cmFjdGFibGUgSSB3aWxsIGdvCmJhY2sgdG8gdGhlIG1hbnVzY3JpcHQgYW5kIHJlYWQgbW9yZSBjYXJlZnVsbHkgKGUuZy4gSSBqdXN0IHJlbWVtYmVyZWQKd2hlcmUgdGhlIHBpY3R1cmUgY2FtZSBmcm9tISkKCiMjIyMgQWRkIGEgbGl0dGxlIHRvcGdvCgpJbiB0aGUgcHJvY2VzcyBvZiBleHBsb3JpbmcgdGhlIHZhcmlvdXMgcGFyYW1ldGVycyB1c2VkIHdpdGgKZ1Byb2ZpbGVyMiwgSSBmb3VuZCBteXNlbGYgdGhpbmtpbmcgdGhhdCBpdCB3b3VsZCBiZSBuaWNlIHRvIGhhdmUgc29tZQp0b3BnbyByZXN1bHRzIHRvIGNvbXBhcmUgYWdhaW5zdC4gIFRoZSBmb2xsb3dpbmcgYmxvY2sgaXMgdGhlIHJlc3VsdApvZiB0aGF0IHRob3VnaHQuCgpgYGB7cn0KdGVzdF9nZW5lc191cCA8LSBoc19tYWNyX2xlc3NzaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyM25vc2JfdnNfdW5pbmYiXV0KdGVzdF9xdWVyeV91cCA8LSBzaW1wbGVfZ3Byb2ZpbGVyKHRlc3RfZ2VuZXNfdXAsIHRocmVzaG9sZCA9IDAuMSkKdGVzdF9xdWVyeV91cFtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KcGRmKGZpbGUgPSAiaW1hZ2VzL3Rlc3RfcXVlcnlfYmlvbG9naWNhbF9wcm9jZXNzX3oyM192c191bmluZl91cC5wZGYiLCBoZWlnaHQgPSAxMiwgd2lkdGggPSA5KQp0ZXN0X3F1ZXJ5X3VwW1sicHZhbHVlX3Bsb3RzIl1dW1siQlAiXV0KZGV2Lm9mZigpCmVucmljaHBsb3Q6OmRvdHBsb3QodGVzdF9xdWVyeV91cFtbIkJQX2VucmljaCJdXSkKdGVzdF9nZW5lc19kb3duIDwtIGhzX21hY3JfbGVzc3NpZ1tbImRlc2VxIl1dW1siZG93bnMiXV1bWyJ6MjNub3NiX3ZzX3VuaW5mIl1dCnRlc3RfcXVlcnlfZG93biA8LSBzaW1wbGVfZ3Byb2ZpbGVyKHRlc3RfZ2VuZXNfZG93bikKdGVzdF9xdWVyeV9kb3duW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQoKIyMgSSBrZWVwIGdldHRpbmcgYWxsIHNvcnRzIG9mIGFubm95aW5nIGJpb21hcnQgZXJyb3JzLgpoc19nbyA8LSB0cnkobG9hZF9iaW9tYXJ0X2dvKGFyY2hpdmUgPSBGQUxTRSwgb3ZlcndyaXRlID0gVFJVRSkpCmlmICgidHJ5LWVycm9yIiAlaW4lIGNsYXNzKGhzX2dvKSkgewogIGhzX2dvIDwtIGxvYWRfYmlvbWFydF9nbyhhcmNoaXZlID0gVFJVRSwgbW9udGggPSAiMDQiLCB5ZWFyID0gIjIwMjAiLCBvdmVyd3JpdGUgPSBUUlVFKQp9CnRlc3RfdG9wZ29fdXAgPC0gc2ltcGxlX3RvcGdvKHRlc3RfZ2VuZXNfdXAsIGdvX2RiID0gaHNfZ29bWyJnbyJdXSwgcGFyYWxsZWwgPSBGQUxTRSkKd3JpdHRlbl90b3BnbyA8LSB3cml0ZV90b3Bnb19kYXRhKAogIHRlc3RfdG9wZ29fdXAsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL29udG9sb2d5X3RvcGdvL3RvcGdvX3oyM191bmluZl9sZXNzX3N0cmljdC54bHN4IikpCmBgYAoKIyMjIEluZmVjdGVkIHdpdGggejIuMiBubyBBbnRpbW9uaWFsIHZzLiBVbmluZmVjdGVkCgpIZXJlIGlzIHdoZXJlIHRoaW5ncyB3aWxsIGdldCBtb3N0IHJlcGV0aXRpdmUuICBJbiBlYWNoIGluc3RhbmNlIEkgYW0KY3JlYXRpbmcgYSBjb3VwbGUgb2Ygdm9sY2FubyBwbG90cyBmb2xsb3dlZCBieSBwcmludGluZyBzb21lIG9mIHRoZQpnUHJvZmlsZXIyIHJlc3VsdHMgKHdoZW4gSSBnZXQgdGhlIGl0Y2gpLgoKVGhlIGZvbGxvd2luZyBzaG91bGQgYmUgYSBzbGlnaHRseSBpbXByb3ZlZCB2ZXJzaW9uIG9mIG91ciBleHRhbnQKZmlndXJlIDJCLgoKYGBge3J9CiMjIFRoZSBvcmlnaW5hbCBwbG90CmhzX21hY3JfdGFibGVbWyJwbG90cyJdXVtbInoyMm5vc2JfdnNfdW5pbmYiXV1bWyJkZXNlcV92b2xfcGxvdHMiXV0KCnoyMm5vc2JfdnNfdW5pbmZfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIybm9zYl92c191bmluZiJdXSwgInoyMm5vc2JfdnNfdW5pbmYiLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwKICBjb2xvcl9sb3cgPSBwbG90X2NvbG9yc1tbInVuaW5mbm9uZSJdXSwgY29sb3JfaGlnaCA9IHBsb3RfY29sb3JzW1siaW5mejIyIl1dKQoKbGFiZWxlZCA8LSB6MjJub3NiX3ZzX3VuaW5mX3ZvbGNhbm9bWyJwbG90Il1dICsKICBzY2FsZV94X2NvbnRpbnVvdXMobGltaXRzID0gYygtMiwgMjEpLCBicmVha3MgPSBjKC0yLCAwLCAyLCA0LCA2LCA4LCAxMCwgMjEsIDIyKSkgKwogIGdnYnJlYWs6OnNjYWxlX3hfYnJlYWsoYygxMSwgMjApLCBzY2FsZXMgPSAwLjIsIHNwYWNlID0gMC4wMikKcHAoZmlsZSA9ICJmaWd1cmVzL2ZpZzJiX2xhYmVsZWRfd2l0aF9icmVhay5zdmciKQpsYWJlbGVkCmRldi5vZmYoKQpsYWJlbGVkCgpwbG90bHk6OmdncGxvdGx5KHoyMm5vc2JfdnNfdW5pbmZfdm9sY2Fub1tbInBsb3QiXV0pCmBgYAoKQWRkIHNvbWUgcHZhbHVlIGJhcnBsb3RzIGZyb20gZ1Byb2ZpbGVyIGZvciB0aGlzIGNvbnRyYXN0LgoKYGBge3J9CmFsbF9ncFtbInoyMm5vc2JfdnNfdW5pbmZfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dCiMjIFJlYWN0b21lLCB6eW1vZGVtZTIuMiB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIybm9zYl92c191bmluZl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMiB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIybm9zYl92c191bmluZl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlRGIl1dCiMjIFRGLCB6eW1vZGVtZTIuMiB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIybm9zYl92c191bmluZl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIldQIl1dCiMjIFdpa2lQYXRod2F5cywgenltb2RlbWUyLjIgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCgphbGxfZ3BbWyJ6MjJub3NiX3ZzX3VuaW5mX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dCiMjIFJlYWN0b21lLCB6eW1vZGVtZTIuMiB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgphbGxfZ3BbWyJ6MjJub3NiX3ZzX3VuaW5mX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjIgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIybm9zYl92c191bmluZl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmBgYAoKIyMjIEluZmVjdGVkIHdpdGggejIuMyB0cmVhdGVkIHZzLiBVbmluZmVjdGVkIHRyZWF0ZWQKCkkgZG8gbm90IHRoaW5rIHRoaXMgcGxvdCBpcyB1c2VkIGF0IHRoaXMgdGltZS4KCmBgYHtyfQojIyBUaGUgb3JpZ2luYWwgcGxvdApoc19tYWNyX3RhYmxlW1sicGxvdHMiXV1bWyJ6MjNzYl92c19zYiJdXVtbImRlc2VxX3ZvbF9wbG90cyJdXQoKejIzc2JfdnNfdW5pbmZzYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c19zYiJdXSwgInoyM3NiX3ZzX3NiIiwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIsCiAgY29sb3JfbG93ID0gcGxvdF9jb2xvcnNbWyJpbmZzYnoyMyJdXSwgY29sb3JfaGlnaCA9IHBsb3RfY29sb3JzW1sidW5pbmZzYm5vbmUiXV0pCnoyM3NiX3ZzX3VuaW5mc2Jfdm9sY2Fub1tbInBsb3QiXV0KCnBsb3RseTo6Z2dwbG90bHkoejIzc2JfdnNfdW5pbmZzYl92b2xjYW5vW1sicGxvdCJdXSkKYGBgCgojIyMgSW5mZWN0ZWQgd2l0aCB6Mi4zIHVudHJlYXRlZCB2cy4gejIuMiB1bnRyZWF0ZWQKClRoaXMgaXMgZmlndXJlIDJDIGF0IHRoaXMgdGltZS4KCmBgYHtyfQojIyBUaGUgb3JpZ2luYWwgcGxvdApoc19tYWNyX3RhYmxlW1sicGxvdHMiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV1bWyJkZXNlcV92b2xfcGxvdHMiXV0KCnoyM25vc2JfdnNfejIybm9zYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV0sICJ6MjNub3NiX3ZzX3oyMm5vc2IiLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwKICBjb2xvcl9sb3cgPSBwbG90X2NvbG9yc1tbImluZnoyMyJdXSwgY29sb3JfaGlnaCA9IHBsb3RfY29sb3JzW1siaW5mejIyIl1dKQoKbGFiZWxlZCA8LSB6MjNub3NiX3ZzX3oyMm5vc2Jfdm9sY2Fub1tbInBsb3QiXV0gKwogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBjKC0xMCwgLTgsIC02LCAtNCwgLTIsIDAsIDIsIDQsIDYpKQoKcHAoZmlsZSA9ICJmaWd1cmVzL2ZpZzJjX2xhYmVsZWQuc3ZnIikKbGFiZWxlZApkZXYub2ZmKCkKbGFiZWxlZApgYGAKCiMjIyBJbmZlY3RlZCB3aXRoIHoyLjMgdHJlYXRlZCB2cy4gejIuMiB0cmVhdGVkCgpUaGlzIGlzIGN1cnJlbnRseSBmaWd1cmUgM0MuCgpGSVhNRTogVGhlIGF4aXMgbGFiZWwgaXNuJ3QgcXVpdGUgcmlnaHQgZm9yIHRoZSBnZ2JyZWFrLgoKYGBge3J9CiMjIFRoZSBvcmlnaW5hbCBwbG90CmhzX21hY3JfdGFibGVbWyJwbG90cyJdXVtbInoyM3NiX3ZzX3oyMnNiIl1dW1siZGVzZXFfdm9sX3Bsb3RzIl1dCgp6MjNzYl92c196MjJzYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c196MjJzYiJdXSwgInoyM3NiX3ZzX3oyMnNiIiwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIsCiAgY29sb3JfaGlnaCA9IHBsb3RfY29sb3JzW1siaW5mc2J6MjMiXV0sIGNvbG9yX2xvdyA9IHBsb3RfY29sb3JzW1siaW5mc2J6MjIiXV0pCgpsYWJlbGVkIDwtIHoyM3NiX3ZzX3oyMnNiX3ZvbGNhbm9bWyJwbG90Il1dICsKICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gYygtMjMsIC02LCAtNCwgLTIsIDAsIDIsIDQsIDYpKSArCiAgZ2dicmVhazo6c2NhbGVfeF9icmVhayhjKC01LCAtMjIuNSksIHNjYWxlcyA9IDEwLCBzcGFjZSA9IDAuMDIpCnBwKGZpbGUgPSAiZmlndXJlcy9maWczY19sYWJlbGVkX2JyZWFrcy5zdmciKQpsYWJlbGVkCmRldi5vZmYoKQpsYWJlbGVkCmBgYAoKIyMjIEluZmVjdGVkIHdpdGggejIuMyBTQiB0cmVhdGVkIHZzLiB6Mi4zIHVudHJlYXRlZAoKSSB0aGluayB0aGlzIGlzIGN1cnJlbnRseSBmaWd1cmUgM0EuCgpGSVhNRTogVGhlIGF4aXMgbGFiZWwgZm9yIHRoZSBnZ2JyZWFrIGlzbid0IHF1aXRlIHJpZ2h0LgoKYGBge3J9CiMjIFRoZSBvcmlnaW5hbCBwbG90CmhzX21hY3JfdGFibGVbWyJwbG90cyJdXVtbInoyM3NiX3ZzX3oyM25vc2IiXV1bWyJkZXNlcV92b2xfcGxvdHMiXV0KCnoyM3NiX3ZzX3oyM25vc2Jfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIzc2JfdnNfejIzbm9zYiJdXSwgInoyM3NiX3ZzX3oyM25vc2IiLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGxhYmVsID0gMTAsIGxhYmVsX2NvbHVtbiA9ICJoZ25jc3ltYm9sIiwKICBjb2xvcl9oaWdoID0gcGxvdF9jb2xvcnNbWyJpbmZzYnoyMyJdXSwgY29sb3JfbG93ID0gcGxvdF9jb2xvcnNbWyJpbmZ6MjMiXV0pCgpsYWJlbGVkIDwtIHoyM3NiX3ZzX3oyM25vc2Jfdm9sY2Fub1tbInBsb3QiXV0gKwogIHNjYWxlX3hfY29udGludW91cyhsaW1pdHMgPSBjKC0xOSwgNiksCiAgICAgICAgICAgICAgICAgICAgIGJyZWFrcyA9IGMoLTIwLCAtMTgsIC0xNiwgLTE0LCAtMTIsIC0xMCwgLTYsIC00LCAtMiwgMCwgMiwgNCwgNikpICsKICBnZ2JyZWFrOjpzY2FsZV94X2JyZWFrKGMoLTE3LCAtOCksIHNjYWxlcyA9IDE3LCBzcGFjZSA9IDAuMDIpCnBwKGZpbGUgPSAiZmlndXJlcy9maWczYV9sYWJlbGVkX3dpdGhfYnJlYWsuc3ZnIikKbGFiZWxlZApkZXYub2ZmKCkKbGFiZWxlZApgYGAKCiMjIyBJbmZlY3RlZCB3aXRoIHoyLjMgU0IgdHJlYXRlZCB2cy4gejIuMyB1bnRyZWF0ZWQKCmBgYHtyfQojIyBUaGUgb3JpZ2luYWwgcGxvdApoc19tYWNyX3RhYmxlW1sicGxvdHMiXV1bWyJ6MjJzYl92c196MjJub3NiIl1dW1siZGVzZXFfdm9sX3Bsb3RzIl1dCgp6MjJzYl92c196MjJub3NiX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICBoc19tYWNyX3RhYmxlW1siZGF0YSJdXVtbInoyMnNiX3ZzX3oyMm5vc2IiXV0sICJ6MjJzYl92c196MjJub3NiIiwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIsCiAgY29sb3JfaGlnaCA9IHBsb3RfY29sb3JzW1siaW5mc2J6MjIiXV0sIGNvbG9yX2xvdyA9IHBsb3RfY29sb3JzW1siaW5mejIyIl1dKQoKbGFiZWxlZCA8LSB6MjJzYl92c196MjJub3NiX3ZvbGNhbm9bWyJwbG90Il1dICsKICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gYygtNiwgLTQsIC0yLCAwLCAyLCA0LCA2KSkKCnBwKGZpbGUgPSAiZmlndXJlcy9maWczYl9sYWJlbGVkLnN2ZyIpCmxhYmVsZWQKZGV2Lm9mZigpCmxhYmVsZWQKYGBgCgojIyMgSW5mZWN0ZWQgd2l0aCB6Mi4zIFNCIHRyZWF0ZWQgdnMuIHVuaW5mZWN0ZWQgdHJlYXRlZAoKYGBge3J9CnhfbGltaXRzIDwtIGMoLTYsIDYpCiMjIFRoZSBvcmlnaW5hbCBwbG90CmhzX21hY3JfdGFibGVbWyJwbG90cyJdXVtbInoyM3NiX3ZzX3NiIl1dW1siZGVzZXFfdm9sX3Bsb3RzIl1dCgp6MjNzYl92c19zYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c19zYiJdXSwgInoyM3NiX3ZzX3NiIiwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIsIGludmVydCA9IFRSVUUsCiAgY29sb3JfbG93ID0gcGxvdF9jb2xvcnNbWyJpbmZzYnoyMyJdXSwgY29sb3JfaGlnaCA9IHBsb3RfY29sb3JzW1sidW5pbmZzYm5vbmUiXV0pCnoyM3NiX3ZzX3NiX3ZvbGNhbm9bWyJwbG90Il1dCmBgYAoKIyMjIEluZmVjdGVkIHdpdGggejIuMiBTQiB0cmVhdGVkIHZzLiB1bmluZmVjdGVkIHRyZWF0ZWQKCmBgYHtyfQojIyBUaGUgb3JpZ2luYWwgcGxvdApoc19tYWNyX3RhYmxlW1sicGxvdHMiXV1bWyJ6MjJzYl92c19zYiJdXVtbImRlc2VxX3ZvbF9wbG90cyJdXQoKejIyc2JfdnNfc2Jfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIyc2JfdnNfc2IiXV0sICJ6MjJzYl92c19zYiIsCiAgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgbGFiZWwgPSAxMCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiLCBpbnZlcnQgPSBUUlVFLAogIGNvbG9yX2xvdyA9IHBsb3RfY29sb3JzW1siaW5mc2J6MjIiXV0sIGNvbG9yX2hpZ2ggPSBwbG90X2NvbG9yc1tbInVuaW5mc2Jub25lIl1dKQp6MjJzYl92c19zYl92b2xjYW5vW1sicGxvdCJdXQpgYGAKCiMjIyBVbmluZmVjdGVkK1NiViB2cy4gVW5pbmZlY3RlZC1TYlYKClRoaXMgaXMgY3VycmVudGx5IGZpZ3VyZSAzRC4KCkZJWE1FOiBUaGlzIG5lZWRzIHRoZSBCT0xBMkIgZ2dicmVhay4KCmBgYHtyfQojIyBUaGUgb3JpZ2luYWwgcGxvdApoc19tYWNyX3RhYmxlW1sicGxvdHMiXV1bWyJzYl92c191bmluZiJdXVtbImRlc2VxX3ZvbF9wbG90cyJdXQoKc2JfdnNfdW5pbmZfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1sic2JfdnNfdW5pbmYiXV0sICJzYl92c191bmluZiIsCiAgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgbGFiZWwgPSAxMCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiLAogIGNvbG9yX2hpZ2ggPSBwbG90X2NvbG9yc1tbInVuaW5mc2Jub25lIl1dLCBjb2xvcl9sb3cgPSBwbG90X2NvbG9yc1tbInVuaW5mbm9uZSJdXSkKCmxhYmVsZWQgPC0gc2JfdnNfdW5pbmZfdm9sY2Fub1tbInBsb3QiXV0gKwogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBjKC0yMywgLTYsIC00LCAtMiwgMCwgMiwgNCwgNikpICsKICBnZ2JyZWFrOjpzY2FsZV94X2JyZWFrKGMoLTUsIC0yMi41KSwgc2NhbGVzID0gMTAsIHNwYWNlID0gMC4wMikKcHAoZmlsZSA9ICJmaWd1cmVzL2ZpZzNkX2xhYmVsZWRfYnJlYWtzLnN2ZyIpCmxhYmVsZWQKZGV2Lm9mZigpCmxhYmVsZWQKYGBgCgojIyBEb3VibGUtY2hlY2sgdGhhdCBnZW5lIGNvdW50cyBtYXRjaCBteSBwZXJjZXB0aW9ucwoKQ2hlY2sgdGhhdCBteSBwZXJjZXB0aW9uIG9mIHRoZSBudW1iZXIgb2Ygc2lnbmlmaWNhbnQgdXAvZG93biBnZW5lcwptYXRjaGVzIHdoYXQgdGhlIHRhYmxlL3Zlbm4gc2F5cy4gIEluIHRoZSBmb2xsb3dpbmcgYmxvY2sgSSBhbQpwZXJmb3JtaW5nIHNvbWUgdmVubi91cHNldCBhbmFseXNlcyB0byBzZWUgaWYgdGhlIG51bWJlcnMgb2YgZ2VuZXMKbWF0Y2ggd2hhdCB3ZSBoYXZlIGluIHRoZSBjdXJyZW50IHZlcnNpb24gb2YgdGhlIG1hbnVzY3JpcHQgKHBsdXMgb3IKbWludXMgYSBnZW5lKSBhbmQgdGh1cyBpZiBteSBpbnRlcnByZXRhdGlvbiBvZiB0aGUgZmlndXJlL2xlZ2VuZCB0ZXh0Cm1hdGNoZXMgd2hhdCBJIHRoaW5rIGl0IG1lYW5zLgoKYGBge3J9CnNoYXJlZCA8LSBWZW5uZXJhYmxlOjpWZW5uKGxpc3QoCiAgImRydWciID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyM3NiX3ZzX3VuaW5mIl1dKSwKICAibm9kcnVnIiA9IHJvd25hbWVzKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV1bWyJ6MjNub3NiX3ZzX3VuaW5mIl1dKSkpCnBwKGZpbGUgPSAiaW1hZ2VzL3oyM192c191bmluZl92ZW5uX3VwLnBuZyIpClZlbm5lcmFibGU6OnBsb3Qoc2hhcmVkKQpkZXYub2ZmKCkKVmVubmVyYWJsZTo6cGxvdChzaGFyZWQpCiMjIEkgc2VlIDkxMCB6MjNzYi91bmluZiBhbmQgNjcwIG5vIHoyM25vc2IvdW5pbmYgZ2VuZXMgaW4gdGhlIHZlbm4gZGlhZ3JhbS4KbGVuZ3RoKHNoYXJlZEBJbnRlcnNlY3Rpb25TZXRzW1siMTAiXV0pICsgbGVuZ3RoKHNoYXJlZEBJbnRlcnNlY3Rpb25TZXRzW1siMTEiXV0pCmRpbShoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1siejIzc2JfdnNfdW5pbmYiXV0pCgpzaGFyZWQgPC0gVmVubmVyYWJsZTo6VmVubihsaXN0KAogICJkcnVnIiA9IHJvd25hbWVzKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV1bWyJ6MjJzYl92c191bmluZiJdXSksCiAgIm5vZHJ1ZyIgPSByb3duYW1lcyhoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1siejIybm9zYl92c191bmluZiJdXSkpKQpwcChmaWxlID0gImltYWdlcy96MjJfdnNfdW5pbmZfdmVubl91cC5wbmciKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKZGV2Lm9mZigpClZlbm5lcmFibGU6OnBsb3Qoc2hhcmVkKQoKbGVuZ3RoKHNoYXJlZEBJbnRlcnNlY3Rpb25TZXRzW1siMTAiXV0pICsgbGVuZ3RoKHNoYXJlZEBJbnRlcnNlY3Rpb25TZXRzW1siMTEiXV0pCmRpbShoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1siejIyc2JfdnNfdW5pbmYiXV0pCmBgYAoKKk5vdGUgdG8gc2VsZio6IFRoZXJlIGlzIGFuIGVycm9yIGluIG15IHZvbGNhbm8gcGxvdCBjb2RlIHdoaWNoIHRha2VzCmVmZmVjdCB3aGVuIHRoZSBudW1lcmF0b3IgYW5kIGRlbm9taW5hdG9yIG9mIHRoZSBhbGxfcGFpcndpc2UKY29udHJhc3RzIGFyZSBkaWZmZXJlbnQgdGhhbiB0aG9zZSBpbiBjb21iaW5lX2RlX3RhYmxlcy4gIEl0IGlzCnB1dHRpbmcgdGhlIHVwcy9kb3ducyBvbiB0aGUgY29ycmVjdCBzaWRlcyBvZiB0aGUgcGxvdCwgYnV0IGNhbGxpbmcKdGhlIGRvd24gZ2VuZXMgJ3VwJyBhbmQgdmljZS12ZXJzYS4gIFRoZSByZWFzb24gZm9yIHRoaXMgaXMgdGhhdCBJIGRpZAphIGNoZWNrIGZvciB0aGlzIGhhcHBlbmluZywgYnV0IHVzZWQgdGhlIHdyb25nIGFyZ3VtZW50IHRvIGhhbmRsZSBpdC4KCkEgbGlrZWx5IGJpdCBvZiB0ZXh0IGZvciB0aGVzZSB2b2xjYW5vIHBsb3RzOgoKVGhlIHNldCBvZiBnZW5lcyBkaWZmZXJlbnRpYWxseSBleHByZXNzZWQgYmV0d2VlbiB0aGUgenltb2RlbWUgMi4zCmFuZCB1bmluZmVjdGVkIHNhbXBsZXMgd2l0aG91dCBkcnVnZSB0cmVhdG1lbnQgd2FzIHF1YW50aWZpZWQgd2l0aApERVNlcTIgYW5kIGluY2x1ZGVkIHN1cnJvZ2F0ZSBlc3RpbWF0ZXMgZnJvbSBTVkEuICBHaXZlbiB0aGUgY3JpdGVyaWEKb2Ygc2lnbmlmaWNhbmNlIG9mIGEgYWJzKGxvZ0ZDKSA+PSAxLjAgYW5kIGZhbHNlIGRpc2NvdmVyeSByYXRlCmFkanVzdGVkIHAtdmFsdWUgPD0gMC4wNSwgNjcwIGdlbmVzIHdlcmUgb2JzZXJ2ZWQgYXMgc2lnbmlmaWNhbnRseQppbmNyZWFzZWQgYmV0d2VlbiB0aGUgaW5mZWN0ZWQgYW5kIHVuaW5mZWN0ZWQgc2FtcGxlcyBhbmQgMzg2IHdlcmUKb2JzZXJ2ZWQgYXMgZGVjcmVhc2VkLiBUaGUgbW9zdCBpbmNyZWFzZWQgZ2VuZXMgZnJvbSB0aGUgdW5pbmZlY3RlZApzYW1wbGVzIGluY2x1ZGUgc29tZSB3aGljaCBhcmUgcG90ZW50aWFsbHkgaW5kaWNhdGl2ZSBvZiBhIHN0cm9uZwppbm5hdGUgaW1tdW5lIHJlc3BvbnNlIGFuZCB0aGUgaW5mbGFtbWF0b3J5IHJlc3BvbnNlLgoKSW4gY29udHJhc3QsIHdoZW4gdGhlIHNldCBvZiBnZW5lcyBkaWZmZXJlbnRpYWxseSBleHByZXNzZWQgYmV0d2Vlbgp0aGUgenltb2RlbWUgMi4yIGFuZCB1bmluZmVjdGVkIHNhbXBsZXMgd2FzIHZpc3VhbGl6ZWQsIG9ubHkgNyBnZW5lcwp3ZXJlIG9ic2VydmVkIGFzIGRlY3JlYXNlZCBhbmQgNDM1IGluY3JlYXNlZC4gIFRoZSBpbmZsYW1tYXRvcnkKcmVzcG9uc2Ugd2FzIHNpZ25pZmljYW50bHkgbGVzcyBhcHBhcmVudCBpbiB0aGlzIHNldCwgYnV0IGluc3RlYWQKaW5jbHVkZWQgZ2VuZXMgcmVsYXRlZCB0byB0cmFuc3BvcnRlciBhY3Rpdml0eSBhbmQgb3hpZG9yZWR1Y3Rhc2VzLgoKIyMgRGlyZWN0IHp5bW9kZW1lIGNvbXBhcmlzb25zCgpBbiBvcnRob2dvbmFsIGNvbXBhcmlzb24gdG8gdGhhdCBwZXJmb3JtZWQgYWJvdmUgaXMgdG8gZGlyZWN0bHkKY29tcGFyZSB0aGUgenltb2RlbWUgMi4zIGFuZCAyLjIgc2FtcGxlcyB3aXRoIGFuZCB3aXRob3V0IGFudGltb25pYWwKdHJlYXRtZW50LgoKIyMjIFoyLjMgLyB6Mi4yIHdpdGhvdXQgZHJ1ZwoKYGBge3J9CnoyM25vc2JfdnNfejIybm9zYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19kZSgKICB0YWJsZSA9IGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIzbm9zYl92c196MjJub3NiIl1dLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIHNoYXBlc19ieV9zdGF0ZSA9IEZBTFNFLCBjb2xvcl9ieSA9ICJmYyIsICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIpCnBsb3RseTo6Z2dwbG90bHkoejIzbm9zYl92c196MjJub3NiX3ZvbGNhbm9bWyJwbG90Il1dKQoKejIzc2JfdnNfejIyc2Jfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fZGUoCiAgdGFibGUgPSBoc19tYWNyX3RhYmxlW1siZGF0YSJdXVtbInoyM3NiX3ZzX3oyMnNiIl1dLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIHNoYXBlc19ieV9zdGF0ZSA9IEZBTFNFLCBjb2xvcl9ieSA9ICJmYyIsICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIpCnBsb3RseTo6Z2dwbG90bHkoejIzc2JfdnNfejIyc2Jfdm9sY2Fub1tbInBsb3QiXV0pCmBgYAoKYGBge3J9CnoyM25vc2JfdnNfejIybm9zYl92b2xjYW5vW1sicGxvdCJdXSArCiAgeGxpbSgtMTAsIDEwKSArCiAgeWxpbSgwLCA2MCkKCnBwKGZpbGUgPSAiaW1hZ2VzL3oyM25vc2JfdnNfejIybm9zYl9yZWFjdG9tZV91cC5zdmciLAogICBpbWFnZSA9IGFsbF9ncFtbInoyM25vc2JfdnNfejIybm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0sCiAgIGhlaWdodCA9IDEyLCB3aWR0aCA9IDkpCmFsbF9ncFtbInoyM25vc2JfdnNfejIybm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJLRUdHIl1dCiMjIEtFR0csIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNub3NiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM25vc2JfdnNfejIybm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlRGIl1dCiMjIFRGLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzbm9zYl92c196MjJub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siV1AiXV0KIyMgV2lraVBhdGh3YXlzLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzbm9zYl92c196MjJub3NiX3VwIl1dW1siaW50ZXJhY3RpdmVfcGxvdHMiXV1bWyJXUCJdXQoKcHAoZmlsZSA9ICJpbWFnZXMvejIzbm9zYl92c196MjJub3NiX3JlYWN0b21lX2Rvd24uc3ZnIiwKICAgaW1hZ2UgPSBhbGxfZ3BbWyJ6MjNub3NiX3ZzX3oyMm5vc2JfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0sCiAgIGhlaWdodCA9IDEyLCB3aWR0aCA9IDkpCmFsbF9ncFtbInoyM25vc2JfdnNfejIybm9zYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQojIyBSZWFjdG9tZSwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIzbm9zYl92c196MjJub3NiX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIzbm9zYl92c196MjJub3NiX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJURiJdXQojIyBURiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYGBgCgojIyMgejIuMyAvIHoyLjIgd2l0aCBkcnVnCgpgYGB7cn0KejIzc2JfdnNfejIyc2Jfdm9sY2Fub1tbInBsb3QiXV0gKwogIHhsaW0oLTEwLCAxMCkgKwogIHlsaW0oMCwgNjApCgpwcCgKICBmaWxlID0gImltYWdlcy96MjNzYl92c196MjJzYl9yZWFjdG9tZV91cC5wbmciLAogIGltYWdlID0gYWxsX2dwW1siejIzc2JfdnNfejIyc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dLAogIGhlaWdodCA9IDEyLCB3aWR0aCA9IDkpCmFsbF9ncFtbInoyM3NiX3ZzX3oyMnNiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQojIyBSZWFjdG9tZSwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM3NiX3ZzX3oyMnNiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siS0VHRyJdXQojIyBLRUdHLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIyc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM3NiX3ZzX3oyMnNiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNzYl92c196MjJzYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIldQIl1dCiMjIFdpa2lQYXRod2F5cywgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM3NiX3ZzX3oyMnNiX3VwIl1dW1siaW50ZXJhY3RpdmVfcGxvdHMiXV1bWyJXUCJdXQoKYWxsX2dwW1siejIzc2JfdnNfejIyc2JfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmFsbF9ncFtbInoyM3NiX3ZzX3oyMnNiX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIzc2JfdnNfejIyc2JfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlRGIl1dCiMjIFRGLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgpgYGAKCiMjIyBWZW5uIHRvIHNlZSBzaGFyZWQvdW5pcXVlIGdlbmVzCgpPbmNlIGFnYWluIEkgd2lzaCB0byBwdWxsIG91dCB0aGUgc2lnbmlmaWNhbnQgZ2VuZXMgYW5kIHNlZSBob3cgbXkKbnVtYmVycyBtYXRjaCBhZ2FpbnN0IHRoZSB0ZXh0LgoKYGBge3J9CnNoYXJlZCA8LSBWZW5uZXJhYmxlOjpWZW5uKGxpc3QoCiAgImRydWciID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyM3NiX3ZzX3oyMnNiIl1dKSwKICAibm9kcnVnIiA9IHJvd25hbWVzKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV0pKSkKcHAoZmlsZSA9ICJpbWFnZXMvZHJ1Z19ub2RydWdfdmVubl91cC5wbmciKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKZGV2Lm9mZigpClZlbm5lcmFibGU6OnBsb3Qoc2hhcmVkKQoKc2hhcmVkIDwtIFZlbm5lcmFibGU6OlZlbm4oCiAgbGlzdCgiZHJ1ZyIgPSByb3duYW1lcyhoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1siZG93bnMiXV1bWyJ6MjNzYl92c196MjJzYiJdXSksCiAgICAgICAibm9kcnVnIiA9IHJvd25hbWVzKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbInoyM25vc2JfdnNfejIybm9zYiJdXSkpKQpwcChmaWxlID0gImltYWdlcy9kcnVnX25vZHJ1Z192ZW5uX2Rvd24ucG5nIikKVmVubmVyYWJsZTo6cGxvdChzaGFyZWQpCmRldi5vZmYoKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKYGBgCgpBIHNsaWdodGx5IGRpZmZlcmVudCB3YXkgb2YgbG9va2luZyBhdCB0aGUgZGlmZmVyZW5jZXMgYmV0d2VlbiB0aGUgdHdvCnp5bW9kZW1lIGluZmVjdGlvbnMgaXMgdG8gZGlyZWN0bHkgY29tcGFyZSB0aGUgaW5mZWN0ZWQgc2FtcGxlcyB3aXRoCmFuZCB3aXRob3V0IGRydWcuICBUaHVzLCB3aGVuIGEgdm9sY2FubyBwbG90IHNob3dpbmcgdGhlIGNvbXBhcmlzb24gb2YKdGhlIHp5bW9kZW1lIDIuMyB2cy4gMi4yIHNhbXBsZXMgd2FzIHBsb3R0ZWQsIDQ4NCBnZW5lcyB3ZXJlIG9ic2VydmVkCmFzIGluY3JlYXNlZCBhbmQgNDIyIGRlY3JlYXNlZDsgdGhlc2UgZ3JvdXBzIGluY2x1ZGUgbWFueSBvZiB0aGUgc2FtZQppbmZsYW1tYXRvcnkgKHVwKSBhbmQgbWVtYnJhbmUgKGRvd24pIGdlbmVzLgoKU2ltaWxhciBwYXR0ZXJucyB3ZXJlIG9ic2VydmVkIHdoZW4gdGhlIGFudGltb25pYWwgd2FzIGluY2x1ZGVkLgpUaHVzLCB3aGVuIGEgVmVubiBkaWFncmFtIG9mIHRoZSB0d28gc2V0cyBvZiBpbmNyZWFzZWQgZ2VuZXMgd2FzCnBsb3R0ZWQsIGEgc2lnbmlmaWNhbnQgbnVtYmVyIG9mIHRoZSBnZW5lcyB3YXMgb2JzZXJ2ZWQgYXMgaW5jcmVhc2VkCigzMTMpIGFuZCBkZWNyZWFzZWQgKDI0NCkgaW4gYm90aCB0aGUgdW50cmVhdGVkIGFuZCBhbnRpbW9uaWFsIHRyZWF0ZWQKc2FtcGxlcy4KCiMjIERydWcgZWZmZWN0cyBvbiBlYWNoIHp5bW9kZW1lIGluZmVjdGlvbgoKQW5vdGhlciBsaWtlbHkgcXVlc3Rpb24gaXMgdG8gZGlyZWN0bHkgY29tcGFyZSB0aGUgdHJlYXRlZCB2cwp1bnRyZWF0ZWQgc2FtcGxlcyBmb3IgZWFjaCB6eW1vZGVtZSBpbmZlY3Rpb24gaW4gb3JkZXIgdG8gdmlzdWFsaXplCnRoZSBlZmZlY3RzIG9mIGFudGltb25pYWwuCgojIyMgejIuMyB3aXRoIGFuZCB3aXRob3V0IGRydWcKCmBgYHtyfQp6MjNzYl92c196MjNub3NiX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2RlKAogIHRhYmxlID0gaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNzYl92c196MjNub3NiIl1dLAogIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIHNoYXBlc19ieV9zdGF0ZSA9IEZBTFNFLCBjb2xvcl9ieSA9ICJmYyIsICBsYWJlbCA9IDEwLCBsYWJlbF9jb2x1bW4gPSAiaGduY3N5bWJvbCIpCnBsb3RseTo6Z2dwbG90bHkoejIzc2JfdnNfejIzbm9zYl92b2xjYW5vW1sicGxvdCJdXSkKejIyc2JfdnNfejIybm9zYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19kZSgKICB0YWJsZSA9IGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIyc2JfdnNfejIybm9zYiJdXSwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBzaGFwZXNfYnlfc3RhdGUgPSBGQUxTRSwgY29sb3JfYnkgPSAiZmMiLCAgbGFiZWwgPSAxMCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiKQpwbG90bHk6OmdncGxvdGx5KHoyMnNiX3ZzX3oyMm5vc2Jfdm9sY2Fub1tbInBsb3QiXV0pCmBgYAoKYGBge3J9CnoyM3NiX3ZzX3oyM25vc2Jfdm9sY2Fub1tbInBsb3QiXV0gKwogIHhsaW0oLTgsIDgpICsKICB5bGltKDAsIDIxMCkKCnBwKGZpbGUgPSAiaW1hZ2VzL3oyM3NiX3ZzX3oyM25vc2JfcmVhY3RvbWVfdXAucG5nIiwKICAgaW1hZ2UgPSBhbGxfZ3BbWyJ6MjNzYl92c196MjNub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXSwKICAgaGVpZ2h0ID0gMTIsIHdpZHRoID0gOSkKYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjNzYl92c196MjNub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siS0VHRyJdXQojIyBLRUdHLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlRGIl1dCiMjIFRGLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl91cCJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIldQIl1dCiMjIFdpa2lQYXRod2F5cywgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyM3NiX3ZzX3oyM25vc2JfdXAiXV1bWyJpbnRlcmFjdGl2ZV9wbG90cyJdXVtbIldQIl1dCgphbGxfZ3BbWyJ6MjNzYl92c196MjNub3NiX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dCiMjIFJlYWN0b21lLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgphbGxfZ3BbWyJ6MjNzYl92c196MjNub3NiX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJNRiJdXQojIyBNRiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYWxsX2dwW1siejIzc2JfdnNfejIzbm9zYl9kb3duIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmBgYAoKIyMjIHoyLjIgd2l0aCBhbmQgd2l0aG91dCBkcnVnCgpgYGB7cn0KejIyc2JfdnNfejIybm9zYl92b2xjYW5vW1sicGxvdCJdXSArCiAgeGxpbSgtOCwgOCkgKwogIHlsaW0oMCwgMjEwKQoKcHAoZmlsZSA9ICJpbWFnZXMvejIyc2JfdnNfejIybm9zYl9yZWFjdG9tZV91cC5wbmciLAogICBpbWFnZSA9IGFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJSRUFDIl1dLAogICBoZWlnaHQgPSAxMiwgd2lkdGggPSA5KQphbGxfZ3BbWyJ6MjJzYl92c196MjJub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siUkVBQyJdXQojIyBSZWFjdG9tZSwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgdXAuCmFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfdXAiXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJLRUdHIl1dCiMjIEtFR0csIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjJzYl92c196MjJub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siTUYiXV0KIyMgTUYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjJzYl92c196MjJub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siVEYiXV0KIyMgVEYsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIHVwLgphbGxfZ3BbWyJ6MjJzYl92c196MjJub3NiX3VwIl1dW1sicHZhbHVlX3Bsb3RzIl1dW1siV1AiXV0KIyMgV2lraVBhdGh3YXlzLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCB1cC4KYWxsX2dwW1siejIyc2JfdnNfejIybm9zYl91cCJdXVtbImludGVyYWN0aXZlX3Bsb3RzIl1dW1siV1AiXV0KCmFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIlJFQUMiXV0KIyMgUmVhY3RvbWUsIHp5bW9kZW1lMi4zIHdpdGhvdXQgZHJ1ZyB2cy4gdW5pbmZlY3RlZCB3aXRob3V0IGRydWcsIGRvd24uCmFsbF9ncFtbInoyMnNiX3ZzX3oyMm5vc2JfZG93biJdXVtbInB2YWx1ZV9wbG90cyJdXVtbIk1GIl1dCiMjIE1GLCB6eW1vZGVtZTIuMyB3aXRob3V0IGRydWcgdnMuIHVuaW5mZWN0ZWQgd2l0aG91dCBkcnVnLCBkb3duLgphbGxfZ3BbWyJ6MjJzYl92c196MjJub3NiX2Rvd24iXV1bWyJwdmFsdWVfcGxvdHMiXV1bWyJURiJdXQojIyBURiwgenltb2RlbWUyLjMgd2l0aG91dCBkcnVnIHZzLiB1bmluZmVjdGVkIHdpdGhvdXQgZHJ1ZywgZG93bi4KYGBgCgojIyMgU2hhcmVkIGFuZCB1bmlxdWUgZ2VuZXMgYWZ0ZXIvYmVmb3JlIGRydWcKCmBgYHtyfQpzaGFyZWQgPC0gVmVubmVyYWJsZTo6VmVubihsaXN0KAogICJ6MjMiID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyM3NiX3ZzX3oyM25vc2IiXV0pLAogICJ6MjIiID0gcm93bmFtZXMoaHNfbWFjcl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInoyMnNiX3ZzX3oyMm5vc2IiXV0pKSkKcHAoZmlsZSA9ICJpbWFnZXMvejIzX3oyMl9kcnVnX3Zlbm5fdXAucG5nIikKVmVubmVyYWJsZTo6cGxvdChzaGFyZWQpCmRldi5vZmYoKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKCnNoYXJlZCA8LSBWZW5uZXJhYmxlOjpWZW5uKGxpc3QoCiAgInoyMyIgPSByb3duYW1lcyhoc19tYWNyX3NpZ1tbImRlc2VxIl1dW1siZG93bnMiXV1bWyJ6MjNzYl92c196MjNub3NiIl1dKSwKICAiejIyIiA9IHJvd25hbWVzKGhzX21hY3Jfc2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbInoyMnNiX3ZzX3oyMm5vc2IiXV0pKSkKcHAoZmlsZSA9ICJpbWFnZXMvejIzX3oyMl9kcnVnX3Zlbm5fZG93bi5wbmciKQpWZW5uZXJhYmxlOjpwbG90KHNoYXJlZCkKZGV2Lm9mZigpClZlbm5lcmFibGU6OnBsb3Qoc2hhcmVkKQpgYGAKCk5vdGU6IEkgYW0gc2V0dGlnIHRoZSB4IGFuZCB5LWF4aXMgYm91bmRhcmllcyBieSBhbGxvd2luZyB0aGUgcGxvdHRlcgp0byBwaWNrIGl0cyBvd24gYXhpcyB0aGUgZmlyc3QgdGltZSwgd3JpdGluZyBkb3duIHRoZSByYW5nZXMgSQpvYnNlcnZlLCBhbmQgdGhlbiBzZXR0aW5nIHRoZW0gdG8gdGhlIGxhcmdlc3Qgb2YgdGhlIHBhaXIuICBJdCBpcwp0aGVyZWZvcmUgcG9zc2libGUgdGhhdCBJIG1pc3NlZCBvbmUgb3IgbW9yZSBnZW5lcyB3aGljaCBsaWVzIG91dHNpZGUKdGhhdCByYW5nZS4KClRoZSBwcmV2aW91cyBwbG90dGVkIGNvbnRyYXN0cyBzb3VnaHQgdG8gc2hvdyBjaGFuZ2VzIGJldHdlZW4gdGhlIHR3bwpzdHJhaW5zIHoyLjMgYW5kIHoyLjIuICBDb252ZXJzZWx5LCB0aGUgcHJldmlvdXMgdm9sY2FubyBwbG90cyBzZWVrIHRvCmRpcmVjdGx5IGNvbXBhcmUgZWFjaCBzdHJhaW4gYmVmb3JlL2FmdGVyIGRydWcgdHJlYXRtZW50LgoKIyBMUlQgb2YgdGhlIEh1bWFuIE1hY3JvcGhhZ2UKCkEgc2xpZ2h0bHkgZGlmZmVyZW50IHRhY2sgdG8gZXhhbWluZSB0aGUgZGF0YSBpcyB0byBwZXJmb3JtIGEKbGlrZWxpaG9vZCByYXRpbyB0ZXN0IGluIG9yZGVyIHRvIGxvb2sgZm9yIHRyZW5kcyB3aGljaCBhcmUgc2hhcmVkCmFtb25nIGdlbmVzIHdoZW4gZXhhbWluaW5nIGRpZmZlcmVudCBjb25kaXRpb25zIGluIHRoZSBkYXRhLgoKYGBge3J9CnRtcmMyX2xydF9zdHJhaW5fZHJ1ZyA8LSBkZXNlcV9scnQoaHNfbWFjciwgaW50ZXJhY3Rvcl9jb2x1bW4gPSAiZHJ1ZyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaW50ZXJlc3RfY29sdW1uID0gIm1hY3JvcGhhZ2V6eW1vZGVtZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmFjdG9ycyA9IGMoImRydWciLCAibWFjcm9waGFnZXp5bW9kZW1lIikpCnRtcmMyX2xydF9zdHJhaW5fZHJ1Z1tbImNsdXN0ZXJfZGF0YSJdXVtbInBsb3QiXV0KYGBgCgojIFBhcmFzaXRlCgpMZXQgdXMgY29uc2lkZXIgZm9yIGEgbW9tZW50IGRpZmZlcmVuY2VzIGFtb25nIHRoZSBwYXJhc2l0ZQp0cmFuc2NyaXB0b21lcyBmb3IgdGhlIHNhbXBsZXMgd2hpY2ggd2VyZSBub3QgZHJ1ZyB0cmVhdGVkLgoKT25lIHRoaW5nIEkgZGlkIGluIHRoZSBpbml0aWFsIGltcGxlbWVudGF0aW9uIG9mIHRoaXMgZG9jdW1lbnQgd2FzIHRvCnJlcGVhdCB0aGUgdmFyaWFibGUgJ3VwX2dlbmVzJyBmb3IgZWFjaCBjb21wYXJpc29uOyBJIHRoaW5rIHRoaXMgdGltZQpJIHdpbGwgbWFrZSBhIGRpZmZlcmVudCB2YXJpYWJsZSBmb3IgZWFjaCBjb21wYXJpc29uIHNvIEkgY2FuIHBsYXkKd2l0aCB0aGVtIGEgbGl0dGxlIGZ1cnRoZXIuCgpgYGB7cn0KY29tcGFyaXNvbiA8LSAiejIzX3ZzX3oyMiIKbHBfbWFjcm9waGFnZV9kZSA8LSBhbGxfcGFpcndpc2UobHBfbWFjcm9waGFnZV9ub3NiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtb2RlbF9zdnMgPSAic3Zhc2VxIiwgZmlsdGVyID0gVFJVRSkKdG1yYzJfcGFyYXNpdGVfa2VlcGVycyA8LSBsaXN0KAogICJ6MjNfdnNfejIyIiA9IGMoInoyMyIsICJ6MjIiKSkKbHBfbWFjcm9waGFnZV90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBscF9tYWNyb3BoYWdlX2RlLCBrZWVwZXJzID0gdG1yYzJfcGFyYXNpdGVfa2VlcGVycywKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvZGVfdGFibGVzL3BhcmFzaXRlX2luZmVjdGlvbl9kZS12e3Zlcn0ueGxzeCIpKQpscF9tYWNyb3BoYWdlX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGxwX21hY3JvcGhhZ2VfdGFibGUsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL3NpZ190YWJsZXMvcGFyYXNpdGVfc2lnLXZ7dmVyfS54bHN4IikpCgpscF9tYWNyb3BoYWdlX3RhYmxlW1sicGxvdHMiXV1bW2NvbXBhcmlzb25dXVtbImRlc2VxX3ZvbF9wbG90cyJdXQpscF9tYWNyb3BoYWdlX3RhYmxlW1sicGxvdHMiXV1bW2NvbXBhcmlzb25dXVtbImRlc2VxX21hX3Bsb3RzIl1dCgp1cF9nZW5lc196MjN6MjIgPC0gbHBfbWFjcm9waGFnZV9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbY29tcGFyaXNvbl1dCmRpbSh1cF9nZW5lc196MjN6MjIpCmRvd25fZ2VuZXNfejIzejIyIDwtIGxwX21hY3JvcGhhZ2Vfc2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbY29tcGFyaXNvbl1dCmRpbShkb3duX2dlbmVzX3oyM3oyMikKYGBgCgpgYGB7ciBwYXJhc2l0ZV92b2xjYW5vfQpscF96MjNzYl92c196MjJzYl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19kZSgKICB0YWJsZSA9IGxwX21hY3JvcGhhZ2VfdGFibGVbWyJkYXRhIl1dW1siejIzX3ZzX3oyMiJdXSwKICBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBzaGFwZXNfYnlfc3RhdGUgPSBGQUxTRSwgY29sb3JfYnkgPSAiZmMiLCAgbGFiZWwgPSAxMCwgbGFiZWxfY29sdW1uID0gImhnbmNzeW1ib2wiKQpwbG90bHk6OmdncGxvdGx5KGxwX3oyM3NiX3ZzX3oyMnNiX3ZvbGNhbm9bWyJwbG90Il1dKQpscF96MjNzYl92c196MjJzYl92b2xjYW5vW1sicGxvdCJdXQpgYGAKCiMjIE9udG9sb2d5IHNlYXJjaAoKQW4gaW1wb3J0YW50IG5vdGUsIEkgcmVjZW50bHkgYWRkZWQgYSBtaW5pbXVtIGNyb3NzcmVmZXJlbmNlIGFyZ3VtZW50CihkZWZhdWx0aW5nIHRvIDQwIGdlbmVzKSwgd2hpY2ggY2F1c2VzIGxvdHMgb2YgY29tcGFyaXNvbnMgdG8gZmFpbCBmb3IKcG9vcmx5IGFubm90YXRlZCBnZW5vbWVzIChsaWtlIHBhbmFtZW5zaXMuKSAgVGh1cywgSSBhbSByZWxheGluZyB0aGF0CmNvbnN0cmFpbnQgZm9yIHRoZXNlIHNlYXJjaGVzLgoKYGBge3J9CmxwX2xlbmd0aHMgPC0gYWxsX2xwX2Fubm90WywgYygiZ2lkIiwgImFubm90X2Nkc19sZW5ndGgiKV0KY29sbmFtZXMobHBfbGVuZ3RocykgIDwtIGMoIklEIiwgImxlbmd0aCIpCgp1cF9nb3NlcSA8LSBzaW1wbGVfZ29zZXEodXBfZ2VuZXNfejIzejIyLCBnb19kYiA9IGxwX2dvLAogICAgICAgICAgICAgICAgICAgICAgICAgbGVuZ3RoX2RiID0gbHBfbGVuZ3RocywgbWluX3hyZWYgPSAxNSkKIyMgVmlldyBjYXRlZ29yaWVzIG92ZXIgcmVwcmVzZW50ZWQgaW4gdGhlIDIuMyBzYW1wbGVzCnVwX2dvc2VxW1sicHZhbHVlX3Bsb3RzIl1dW1siYnBwX3Bsb3Rfb3ZlciJdXQpkb3duX2dvc2VxIDwtIHNpbXBsZV9nb3NlcShkb3duX2dlbmVzX3oyM3oyMiwgZ29fZGIgPSBscF9nbywKICAgICAgICAgICAgICAgICAgICAgICAgICAgbGVuZ3RoX2RiID0gbHBfbGVuZ3RocywgbWluX3hyZWYgPSAxNSkKIyMgVmlldyBjYXRlZ29yaWVzIG92ZXIgcmVwcmVzZW50ZWQgaW4gdGhlIDIuMiBzYW1wbGVzCmRvd25fZ29zZXFbWyJwdmFsdWVfcGxvdHMiXV1bWyJicHBfcGxvdF9vdmVyIl1dCgpjcmVhdGVkIDwtIGRpci5jcmVhdGUoZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9nb3NlcV9wYXJhc2l0ZSIpKQp3cml0dGVuX2dvc2VxIDwtIHdyaXRlX2dvc2VxX2RhdGEoCiAgdXBfZ29zZXEsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2dvc2VxX3BhcmFzaXRlL2xwX21hY3JvcGhhZ2VfaW5jcmVhc2VkX3oyLjNfZ29zZXEtdnt2ZXJ9Lnhsc3giKSkKd3JpdHRlbl9nb3NlcSA8LSB3cml0ZV9nb3NlcV9kYXRhKAogIGRvd25fZ29zZXEsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2dvc2VxX3BhcmFzaXRlL2xwX21hY3JvcGhhZ2VfaW5jcmVhc2VkX3oyLjJfZ29zZXEtdnt2ZXJ9Lnhsc3giKSkKYGBgCgojIEdTVkEKCk5vdGU6IFRoZSBmb2xsb3dpbmcgYmxvY2sgYXNzdW1lcyBvbmUgaXMgYWJsZSB0byBkb3dubG9hZCBhIGZyZXNoIGNvcHkKb2YgbXNpZ0RCLCB3aGljaCBJIGFtIG5vdCBzdXJlIGlzIHBvc3NpYmxlIHdpdGhpbiB0aGUgY29uc3RyYWludHMgb2YgYQpjb250YWluZXIgKEkgbWVhbiBpdCBpcyB0cml2aWFsIHRvIGRvLCBidXQgSSBhbSBub3Qgc3VyZSBpZiBpdCBpcyBvawpkdWUgdG8gbGljZW5zaW5nKS4gIEhvd2V2ZXIsIEJyb2FkIHByb3ZpZGVzIGEgZGF0YSBwYWNrYWdlIG9mIGEgbXNpZ2RiCnJlbGVhc2UuICBBcyBhIHJlc3VsdCwgdGhlIGZvbGxvd2luZyBibG9jayB3aWxsIGJlIHJlcGVhdGVkIHVzaW5nIHRoYXQuCgpgYGB7ciwgZXZhbD1GQUxTRX0KaHNfaW5mZWN0ZWQgPC0gc3Vic2V0X2V4cHQoaHNfbWFjcm9waGFnZSwgc3Vic2V0ID0gIm1hY3JvcGhhZ2V0cmVhdG1lbnQhPSd1bmluZiciKSAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQgPSAibWFjcm9waGFnZXRyZWF0bWVudCE9J3VuaW5mX3NiJyIpCmhzX2dzdmFfYzIgPC0gc2ltcGxlX2dzdmEoaHNfaW5mZWN0ZWQpCmhzX2dzdmFfYzJfbWV0YSA8LSBnZXRfbXNpZ2RiX21ldGFkYXRhKGhzX2dzdmFfYzIsIG1zaWdfeG1sID0gInJlZmVyZW5jZS9tc2lnZGJfdjcuMi54bWwiKQpoc19nc3ZhX2MyX3NpZyA8LSBnZXRfc2lnX2dzdmFfY2F0ZWdvcmllcygKICBoc19nc3ZhX2MyX21ldGEsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2dzdmEvaHNfbWFjcm9waGFnZV9nc3ZhX2MyX3NpZy54bHN4IikpCmhzX2dzdmFfYzJfc2lnW1sicmF3X3Bsb3QiXV0KCmhzX2dzdmFfYzcgPC0gc2ltcGxlX2dzdmEoaHNfaW5mZWN0ZWQsIHNpZ25hdHVyZV9jYXRlZ29yeSA9ICJjNyIpCmhzX2dzdmFfYzdfbWV0YSA8LSBnZXRfbXNpZ2RiX21ldGFkYXRhKGhzX2dzdmFfYzcsIG1zaWdfeG1sID0gInJlZmVyZW5jZS9tc2lnZGJfdjcuMi54bWwiKQpoc19nc3ZhX2M3X3NpZyA8LSBnZXRfc2lnX2dzdmFfY2F0ZWdvcmllcygKICBoc19nc3ZhX2M3LAogIGV4Y2VsID0gZ2x1ZSgiYW5hbHlzZXMvbWFjcm9waGFnZV9kZS9nc3ZhL2hzX21hY3JvcGhhZ2VfZ3N2YV9jN19zaWcueGxzeCIpKQpoc19nc3ZhX2M3X3NpZ1tbInJhd19wbG90Il1dCmBgYAoKIyMgUmVwZWF0IHVzaW5nIHRoZSBHU1ZBZGF0YSBwYWNrYWdlLgoKYGBge3J9CmhzX2luZmVjdGVkIDwtIHN1YnNldF9leHB0KGhzX21hY3JvcGhhZ2UsIHN1YnNldCA9ICJtYWNyb3BoYWdldHJlYXRtZW50IT0ndW5pbmYnIikgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0ID0gIm1hY3JvcGhhZ2V0cmVhdG1lbnQhPSd1bmluZl9zYiciKQpoc19nc3ZhX2MyIDwtIHNpbXBsZV9nc3ZhKGhzX2luZmVjdGVkKQojI2hzX2dzdmFfYzJfbWV0YSA8LSBnZXRfbXNpZ2RiX21ldGFkYXRhKGhzX2dzdmFfYzIsIG1zaWdfeG1sPSJyZWZlcmVuY2UvbXNpZ2RiX3Y3LjIueG1sIikKaHNfZ3N2YV9jMl9zaWcgPC0gZ2V0X3NpZ19nc3ZhX2NhdGVnb3JpZXMoCiAgaHNfZ3N2YV9jMiwKICBleGNlbCA9IGdsdWUoImFuYWx5c2VzL21hY3JvcGhhZ2VfZGUvZ3N2YS9oc19tYWNyb3BoYWdlX2dzdmFfYzJfc2lnLnhsc3giKSkKaHNfZ3N2YV9jMl9zaWdbWyJyYXdfcGxvdCJdXQoKaHNfZ3N2YV9jNyA8LSBzaW1wbGVfZ3N2YShoc19pbmZlY3RlZCwgc2lnbmF0dXJlX2NhdGVnb3J5ID0gImM3IikKIyNoc19nc3ZhX2M3X21ldGEgPC0gZ2V0X21zaWdkYl9tZXRhZGF0YShoc19nc3ZhX2M3LCBtc2lnX3htbD0icmVmZXJlbmNlL21zaWdkYl92Ny4yLnhtbCIpCmhzX2dzdmFfYzdfc2lnIDwtIGdldF9zaWdfZ3N2YV9jYXRlZ29yaWVzKAogIGhzX2dzdmFfYzcsCiAgZXhjZWwgPSBnbHVlKCJhbmFseXNlcy9tYWNyb3BoYWdlX2RlL2dzdmEvaHNfbWFjcm9waGFnZV9nc3ZhX2M3X3NpZy54bHN4IikpCmhzX2dzdmFfYzdfc2lnW1sicmF3X3Bsb3QiXV0KYGBgCgojIFRyeSBvdXQgYSBuZXcgdG9vbAoKVHdvIHJlYXNvbnM6IE5hamliIGxvdmVzIGhpbSBzb21lIFBDQSwgdGhpcyB1c2VzIHdpa2lwYXRod2F5cywgd2hpY2ggaXMgc29tZXRoaW5nIEkgdGhpbmsgaXMgbmVhdC4KCk9rLCBJIHNwZW50IHNvbWUgdGltZSBsb29raW5nIHRocm91Z2ggdGhlIGNvZGUgYW5kIEkgaGF2ZSBzb21lCnByb2JsZW1zIHdpdGggc29tZSBvZiB0aGUgZGVzaWduIGRlY2lzaW9ucy4KCk1vc3QgaW1wb3J0YW50bHksIGl0IHJlcXVpcmVzIGEgZGF0YS5mcmFtZSgpIHdoaWNoIGhhcyB0aGUgZm9sbG93aW5nIGZvcm1hdDoKCjEuICBObyByb3duYW1lcywgaW5zdGVhZCBjb2x1bW4gIzEgaXMgdGhlIHNhbXBsZSBJRC4KMi4gIENvbHVtbnMgMi1tIGFyZSB0aGUgY2F0ZWdvcmljYWwvc3Vydml2YWwvZXRjIG1ldHJpY3MuCjMuICBDb2x1bW5zIG0tbiBhcmUgMSBnZW5lLXBlci1jb2x1bW4gd2l0aCBsb2cyIHZhbHVlcy4KCkJ1dCB3aGVuIEkgdGhpbmsgYWJvdXQgaXQgSSB0aGluayBJIGdldCB0aGUgaWRlYSwgdGhleSB3YW50IHRvIGJlIGFibGUgdG8gZG8gbW9kZWxsaW5nIHN0dWZmCm1vcmUgZWFzaWx5IHdpdGggcmVzcG9uc2UgZmFjdG9ycy4KCmBgYHtyfQpsaWJyYXJ5KHBhdGh3YXlQQ0EpCmxpYnJhcnkocldpa2lQYXRod2F5cykKCmRvd25sb2FkZWQgPC0gZG93bmxvYWRQYXRod2F5QXJjaGl2ZShvcmdhbmlzbSA9ICJIb21vIHNhcGllbnMiLCBmb3JtYXQgPSAiZ210IikKZGF0YV9wYXRoIDwtIHN5c3RlbS5maWxlKCJleHRkYXRhIiwgcGFja2FnZSA9ICJwYXRod2F5UENBIikKd2lraXBhdGh3YXlzIDwtIHJlYWRfZ210KHBhc3RlMChkYXRhX3BhdGgsICIvd2lraXBhdGh3YXlzX2h1bWFuX3N5bWJvbC5nbXQiKSwKICAgICAgICAgICAgICAgICAgICAgICAgIGRlc2NyaXB0aW9uID0gVFJVRSkKCmV4cHQgPC0gc3Vic2V0X2V4cHQoaHNfbWFjcm9waGFnZSwgc3Vic2V0ID0gIm1hY3JvcGhhZ2V0cmVhdG1lbnQhPSd1bmluZiciKSAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQgPSAibWFjcm9waGFnZXRyZWF0bWVudCE9J3VuaW5mX3NiJyIpCmV4cHQgPC0gc2V0X2V4cHRfY29uZGl0aW9ucyhleHB0LCBmYWN0ID0gIm1hY3JvcGhhZ2V6eW1vZGVtZSIpCnN5bWJvbF9jb2x1bW4gPC0gImhnbmNfc3ltYm9sIgpzeW1ib2xfdmVjdG9yIDwtIGZEYXRhKGV4cHQpW1tzeW1ib2xfY29sdW1uXV0KbmFtZXMoc3ltYm9sX3ZlY3RvcikgPC0gcm93bmFtZXMoZkRhdGEoZXhwdCkpCnN5bWJvbF9kZiA8LSBhcy5kYXRhLmZyYW1lKHN5bWJvbF92ZWN0b3IpCgphc3NheV9kZiA8LSBtZXJnZShzeW1ib2xfZGYsIGFzLmRhdGEuZnJhbWUoZXhwcnMoZXhwdCkpLCBieSA9ICJyb3cubmFtZXMiKQphc3NheV9kZltbIlJvdy5uYW1lcyJdXSA8LSBOVUxMCnJvd25hbWVzKGFzc2F5X2RmKSA8LSBtYWtlLm5hbWVzKGFzc2F5X2RmW1sic3ltYm9sX3ZlY3RvciJdXSwgdW5pcXVlID0gVFJVRSkKYXNzYXlfZGZbWyJzeW1ib2xfdmVjdG9yIl1dIDwtIE5VTEwKYXNzYXlfZGYgPC0gYXMuZGF0YS5mcmFtZSh0KGFzc2F5X2RmKSkKYXNzYXlfZGZbWyJTYW1wbGVJRCJdXSA8LSByb3duYW1lcyhhc3NheV9kZikKYXNzYXlfZGYgPC0gZHBseXI6OnNlbGVjdChhc3NheV9kZiwgIlNhbXBsZUlEIiwgZXZlcnl0aGluZygpKQoKZmFjdG9yX2RmIDwtIGFzLmRhdGEuZnJhbWUocERhdGEoZXhwdCkpCmZhY3Rvcl9kZltbIlNhbXBsZUlEIl1dIDwtIHJvd25hbWVzKGZhY3Rvcl9kZikKZmFjdG9yX2RmIDwtIGRwbHlyOjpzZWxlY3QoZmFjdG9yX2RmLCAiU2FtcGxlSUQiLCBldmVyeXRoaW5nKCkpCmZhY3Rvcl9kZiA8LSBmYWN0b3JfZGZbLCBjKCJTYW1wbGVJRCIsIGZhY3RvcnMpXQoKdHQgPC0gQ3JlYXRlT21pY3MoCiAgYXNzYXlEYXRhX2RmID0gYXNzYXlfZGYsCiAgcGF0aHdheUNvbGxlY3Rpb25fbHMgPSB3aWtpcGF0aHdheXMsCiAgcmVzcG9uc2UgPSBmYWN0b3JfZGYsCiAgcmVzcFR5cGUgPSAiY2F0ZWdvcmljYWwiLAogIG1pblBhdGhTaXplID0gNSkKCnN1cGVyIDwtIEFFU1BDQV9wVmFscygKICBvYmplY3QgPSB0dCwKICBudW1QQ3MgPSAyLAogIHBhcmFsbGVsID0gRkFMU0UsCiAgbnVtQ29yZXMgPSA4LAogIG51bVJlcHMgPSAyLAogIGFkanVzdG1lbnQgPSAiQkgiKQpgYGAKCiMgRXZhbHVhdGluZyBhIGxvZzJGQyBiYXJwbG90CgpGaWd1cmUgMkUgaXMgbm93IGNvbXByaXNlZCBvZiBhIHBsb3Qgd2hpY2ggc2hvd3MgbG9nMkZDIHZhbHVlcyB3aXRoCmVycm9yIGJhcnMgZm9yIHNlbGVjdGVkIGdlbmVzIGFuZCBzZWVrcyB0byBzaG93IGRpZmZlcmVuY2VzIGJldHdlZW4KMi4zL3VuaW5mZWN0ZWQgYW5kIDIuMi91bmluZmVjdGVkLgoKSGVyZSBpcyB0aGUgdGFibGUgT2xnYSB1c2VkIHRvIGdlbmVyYXRlIGl0OgoKSSB3ZW50IGxvb2tpbmcgaW4gdGhlIHhsc3ggZmlsZXMgcHJvZHVjZWQgaW4gMjAyNDA1IGFuZCBmb3VuZCB0aGF0CnRoZXNlIGFyZSB0aGUgbG9nMkZDIHZhbHVlcyBhbmQgc3RhbmRhcmQgZXJyb3JzIHByb2R1Y2VkIGJ5IERFU2VxMi4KCkl0IHNob3VsZCBiZSBub3RlZCB0aGF0IGluIG15IG1vc3QgcmVjZW50IHZlcnNpb24gb2YgdGhlc2UgYW5hbHlzZXMsCnRoZXNlIG51bWJlcnMgZGlkIHNoaWZ0IHNsaWdodGx5LiAgSSBhbSBsb29raW5nIGludG8gdGhhdCBub3cuCgoqIERhdGEgd2l0b3V0IGRydWcKCioqIDIuMyB2cyBVbmluZmVjdGVkIE3DmCAgICAgICAgICAgIDIuMiB2cyBVbmluZmVjdGVkIE3DmAoKfCBHZW5lIHwgTWVhbiAgIHwgU0VNICAgICAgfCBuIHwgTWVhbiAgfCBTRU0gICAgIHxuIHwKLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQp8SUZJMjcgfCAgNy4yMjQgfCAgMC41NjYyICB8NiAgfCAyLjcwMiB8ICAwLjU2NjkgfCA2fAp8UlNBRDIgfCAgNi4yOSAgfCAgMC43MzEyICB8NiAgfCAxLjYyMyB8ICAwLjczMDMgfCA2fAp8Q0NMOCAgfCAgNi4yMjUgfCAgMC45MjggICB8NiAgfCAtMC4zMTR8ICAwLjk0MSAgfCA2fAp8SUZJNDRMfCAgNS44OTUgfCAgMC42MTIgICB8NiAgfCAyLjA2ICB8ICAwLjYxMSAgfCA2fAp8T0FTTCAgfCAgNC43MjYgfCAgMC40OTc0ICB8NiAgfCAxLjM5MiB8ICAwLjQ5NzMgfCA2fAp8VVNQMTggfCAgMy42NDQgfCAgMC40ODMgICB8NiAgfCAwLjk5OSB8ICAwLjQ4MjYgfCA2fAp8SURPMSAgfCAgNy4xNDUgfCAgMS4xMDcgICB8NiAgfCAxLjI1NyB8ICAxLjE0MSAgfCA2fAp8SURPMiAgfCAgMy45MzUgfCAgMS4zICAgICB8NiAgfCAyLjU1NyB8ICAxLjM0MSAgfCA2fAp8S1lOVSAgfCAgMS4wNyAgfCAgMC4yMTg2ICB8NiAgfCAwLjAyMDd8ICAwLjIxODQgfCA2fAp8QUhSICAgfCAwLjkzODIgfCAwLjIyMzYgICB8NiAgfCAwLjUwMzJ8ICAwLjIyMzkgfCA2fAp8SUw0STEgfCAgMi41OTMgfCAgMC40NjIzICB8NiAgfCAwLjAzOSB8ICAwLjQ2MTggfCA2fAp8U09EMiAgfCAgMi43NiAgfCAgMC4zNDkgICB8NiAgfCAwLjQyNDF8ICAwLjM1MjggfCA2fAp8Tk9UQ0gxfCAgMC43NTcyfCAgMC4yNzUgICB8NiAgfCAxLjQ5NSB8ICAwLjI3NDQgfCA2fAp8RExMMSAgfCAgMC44MjY4fCAgMC41Mjg1ICB8NiAgfCAzLjQ1NSB8ICAwLjUyMjggfCA2fAp8RExMNCAgfCAgMS4xMTYgfCAgMC43MzcgICB8NiAgfCA0LjI0MyB8ICAwLjcxICAgfCA2fAp8SEVTMSAgfCAtMC4wMTgzfCAwLjg1OTkgICB8NiAgfCA2LjUzNiB8ICAwLjc5NzMgfCA2fAp8SEVZMSAgfCAgMC41NTMzfCAwLjU3ODkgICB8NiAgfCA0LjE4MSB8ICAwLjYyNzMgfCA2fAoKT2ssIEkgdGhpbmsgSSBmb3VuZCBhIHByb2JsZW06IFRoZSBOT1RDSDEgdmFsdWUgaXMgYWN0dWFsbHkgdGhlCmFkanVzdGVkIHAtdmFsdWUuCgoqIFRyYW5zcG9ydGVycyB3aXRob3V0IGRydWcKCioqIDIuMyB2cyBVbmluZmVjdGVkIE3DmCAgICAgICAgICAgIDIuMiB2cyBVbmluZmVjdGVkIE3DmAoKfCBHZW5lIHwgTWVhbiAgICB8ICAgU0VNICB8IG58ICBNZWFuICAgfCBTRU0gICB8IG58Ci0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0KfEFCQ0IxIHwgIC0yLjM1NCB8IDAuNDQyICB8IDZ8ICAgLTAuNDA2fCAgMC40MzF8IDZ8CnxBQkNHNCB8ICAtMy43MTUgfCAwLjY0OCAgfCA2fCAgIC0wLjY1M3wgIDAuNjMwfCA2fAp8QUJDQjUgfCAgLTEuMTkyIHwgMC4zODAgIHwgNnwgICAxLjM1MSB8ICAwLjM2M3wgNnwKfEFCQ0E5IHwgIDEuODgwICB8IDAuNjQ4ICB8IDZ8ICAgMy40NDQgfCAgMC42Mzd8IDZ8CnxBQkNDMiB8ICAwLjQ1NCAgfCAwLjMyMSAgfCA2fCAgIDEuODE4IHwgIDAuMzE0fCA2fAp8QVFQMiAgfCAgLTEuMTkxIHwgMC41MjkgIHwgNnwgICAwLjc0NSB8ICAwLjUxNHwgNnwKfEFRUDMgIHwgIC0wLjk0MCB8IDAuNDAyICB8IDZ8ICAgMC40MzEgfCAgMC4zOTV8IDZ8CgoqIFRyYW5zcG9ydGVycyB3aXRoIGRydWcKCioqIDIuMyB2cyBVbmluZmVjdGVkIE3DmCAgICAgICAgICAgIDIuMiB2cyBVbmluZmVjdGVkIE3DmAoKfEdlbmUgIHwgTWVhbiAgIHwgICAgU0VNIHwgbnwgTWVhbiAgfCAgU0VNICAgfCBuIHwKLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tCnxBQkNCMSB8ICAtMC42OTd8ICAwLjM0OSB8IDZ8IC0xLjI1NXwgIDAuMzM3IHwgIDZ8CnxBQkNHNCB8ICAxLjIzMSB8ICAwLjUwMyB8IDZ8IDAuNTQ3IHwgIDAuNDg0IHwgIDZ8CnxBUVAyICB8ICAwLjgxNiB8ICAwLjM5OSB8IDZ8IDAuMDQzIHwgIDAuMzg3IHwgIDZ8CnxBUVAzICB8ICAtMS4yODZ8ICAwLjMyMCB8IDZ8IC0xLjYxM3wgIDAuMzA5IHwgIDZ8CnxBUVA4ICB8ICAwLjYzNCB8ICAwLjM3MCB8IDZ8IDAuOTQzIHwgIDAuMzY1IHwgIDZ8CgpMZXQgdXMgbm93IHNlZSBpZiBJIGNhbiByZWNhcGl0dWxhdGUgdGhlIHBsb3QuLi4KCmBgYHtyfQpub2RydWdfY29udHJhc3RzIDwtIGMoInoyM25vc2JfdnNfdW5pbmYiLCAiejIybm9zYl92c191bmluZiIpCmdlbmVzX25vX2RydWcgPC0gYygiSUZJMjciLCAiUlNBRDIiLCAiQ0NMOCIsICJJRkk0NEwiLCAiT0FTTCIsICJVU1AxOCIsICJJRE8xIiwgIklETzIiLCAiS1lOVSIsICJBSFIiLCAiSUw0STEiLCAiU09EMiIsICJOT1RDSDEiLCAiRExMMSIsICJETEw0IiwgIkhFUzEiLCAiSEVZMSIpCnRyYW5zcG9ydGVyc19ub19kcnVnIDwtIGMoIkFCQ0IxIiwgIkFCQ0c0IiwgIkFCQ0I1IiwgIkFCQ0E5IiwgIkFCQ0MyIiwgIkFRUDIiLCAiQVFQMyIpCmRydWdfY29udHJhc3RzIDwtIGMoInoyM3NiX3ZzX3NiIiwgInoyMnNiX3ZzX3NiIikKdHJhbnNwb3J0ZXJzX2RydWcgPC0gYygiQUJDQjEiLCAiQUJDRzQiLCAiQVFQMiIsICJBUVAzIiwgIkFRUDgiKQpgYGAKClRoZXNlIHZhbHVlcyBjYW1lIG91dCBvZiB0aGUgZGF0YSBzdHJ1Y3R1cmUgY2FsbGVkICdoc19tYWNyX3RhYmxlJwoKYGBge3J9CnoyM25vc2JfdW5pbmZfdmFsdWVzIDwtIGhzX21hY3JfdGFibGVbWyJkYXRhIl1dW1siejIzbm9zYl92c191bmluZiJdXQpnZW5lX2lkeCA8LSB6MjNub3NiX3VuaW5mX3ZhbHVlc1tbImhnbmNfc3ltYm9sIl1dICVpbiUgZ2VuZXNfbm9fZHJ1Zwpub2RydWdfcm93cyA8LSAgejIzbm9zYl91bmluZl92YWx1ZXNbZ2VuZV9pZHgsIF0Kcm93bmFtZXMobm9kcnVnX3Jvd3MpIDwtIG5vZHJ1Z19yb3dzW1siaGduY19zeW1ib2wiXV0KejIzX25vZHJ1Z192YWx1ZXMgPC0gbm9kcnVnX3Jvd3NbLCBjKCJkZXNlcV9sb2dmYyIsICJkZXNlcV9sZmNzZSIpXQp6MjNfbm9kcnVnX3ZhbHVlcwoKejIybm9zYl91bmluZl92YWx1ZXMgPC0gaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjJub3NiX3ZzX3VuaW5mIl1dCmdlbmVfaWR4IDwtIHoyMm5vc2JfdW5pbmZfdmFsdWVzW1siaGduY19zeW1ib2wiXV0gJWluJSBnZW5lc19ub19kcnVnCm5vZHJ1Z19yb3dzIDwtICB6MjJub3NiX3VuaW5mX3ZhbHVlc1tnZW5lX2lkeCwgXQpyb3duYW1lcyhub2RydWdfcm93cykgPC0gbm9kcnVnX3Jvd3NbWyJoZ25jX3N5bWJvbCJdXQp6MjJfbm9kcnVnX3ZhbHVlcyA8LSBub2RydWdfcm93c1ssIGMoImRlc2VxX2xvZ2ZjIiwgImRlc2VxX2xmY3NlIildCnoyMl9ub2RydWdfdmFsdWVzCgp6MjNfbm9kcnVnX3ZhbHVlc1tbInN0YXRlIl1dIDwtICJ6MjNfdnNfdW5pbmZlY3RlZCIKejIyX25vZHJ1Z192YWx1ZXNbWyJzdGF0ZSJdXSA8LSAiejIyX3ZzX3VuaW5mZWN0ZWQiCnBsb3RfZGYgPC0gcmJpbmQuZGF0YS5mcmFtZShhcy5kYXRhLmZyYW1lKHoyM19ub2RydWdfdmFsdWVzKSwgYXMuZGF0YS5mcmFtZSh6MjJfbm9kcnVnX3ZhbHVlcykpCnBsb3RfZGZbWyJnZW5lIl1dIDwtIHJvd25hbWVzKHBsb3RfZGYpCgojIyBJIGp1c3QgcmVhbGl6ZWQgdGhhdCB0aGlzIGlzIGFjdHVhbGx5IGp1c3QgYSBjb21wYXJpc29uIG9mIHoyMy96MjIKIyMgd2Ugc2hvdWxkIGp1c3QgdGFrZSB0aGUgYWRqdXN0ZWQgcC12YWx1ZXMgZnJvbSB0aGF0IGNvbnRyYXN0IGZvciB0aGlzLgp6MjNfejIyX2NvbXBhcmlzb24gPC0gaHNfbWFjcl90YWJsZVtbImRhdGEiXV1bWyJ6MjNub3NiX3ZzX3oyMm5vc2IiXV0Kbm9kcnVnX3Jvd3MgPC0gejIzX3oyMl9jb21wYXJpc29uW2dlbmVfaWR4LCBdCm5vZHJ1Z19wdmFsdWVzIDwtIG5vZHJ1Z19yb3dzWywgYygiZGVzZXFfcCIsICJkZXNlcV9hZGpwIildCnJvd25hbWVzKG5vZHJ1Z19wdmFsdWVzKSA8LSBub2RydWdfcm93c1tbImhnbmNfc3ltYm9sIl1dCm5vZHJ1Z19wdmFsdWVzCgpnZ3Bsb3QocGxvdF9kZiwgYWVzKHggPSBnZW5lLCB5ID0gZGVzZXFfbG9nZmMsIGZpbGwgPSBzdGF0ZSkpICsKICBnZW9tX2Jhcihwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKCksIHN0YXQgPSAiaWRlbnRpdHkiKSArCiAgZ2VvbV9lcnJvcmJhcihhZXMoeW1pbiA9IGRlc2VxX2xvZ2ZjIC0gZGVzZXFfbGZjc2UsCiAgICAgICAgICAgICAgICAgICAgeW1heCA9IGRlc2VxX2xvZ2ZjICsgZGVzZXFfbGZjc2UpLAogICAgICAgICAgICAgICAgd2lkdGggPSAwLjIsIHBvc2l0aW9uID0gcG9zaXRpb25fZG9kZ2UoMC45KSkgKwogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGMoIiMxQjlFNzciLCAiIzc1NzBCMyIpKSArCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCwgdmp1c3QgPSAwLjUpKQoKY29tcGFyaXNvbiA8LSBjKCJ6MjNfdnNfdW5pbmZlY3RlZCIsICJ6MjJfdnNfdW5pbmZlY3RlZCIpCmNvbXBhcmlzb25zIDwtIHJlcChsaXN0KGNvbXBhcmlzb24pLCBucm93KHBsb3RfZGYpIC8gMikKZ2dwbG90KHBsb3RfZGYsIGFlcyh4ID0gZ2VuZSwgeSA9IGRlc2VxX2xvZ2ZjLCBmaWxsID0gc3RhdGUsIGFkZCA9IGRlc2VxX2xmY3NlLCBmYWNldC5ieSA9ICJzdGF0ZSIpKSArCiAgZ2VvbV9iYXIocG9zaXRpb24gPSBwb3NpdGlvbl9kb2RnZSgpLCBzdGF0ID0gImlkZW50aXR5IikgKwogIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBkZXNlcV9sb2dmYyAtIGRlc2VxX2xmY3NlLAogICAgICAgICAgICAgICAgICAgIHltYXggPSBkZXNlcV9sb2dmYyArIGRlc2VxX2xmY3NlKSwKICAgICAgICAgICAgICAgIHdpZHRoID0gMC4yLCBwb3NpdGlvbiA9IHBvc2l0aW9uX2RvZGdlKDAuOSkpICsKICBzdGF0X2NvbXBhcmVfbWVhbnMoKSArCiAgc3RhdF9jb21wYXJlX21lYW5zKGNvbXBhcmlzb25zID0gY29tcGFyaXNvbnMsIGxhYmVsLnkgPSByb3duYW1lcyh6MjNfbm9kcnVnX3ZhbHVlcykpICsKICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKCIjMUI5RTc3IiwgIiM3NTcwQjMiKSkgKwogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gOTAsIHZqdXN0ID0gMC41KSkKCmBgYAoKRXhjZWxsZW50LCB0aGUgdmFsdWVzIG5vdyBtYXRjaCB1cC4gIE5vdyBJIHVzdCBuZWVkIHRvIGZpZ3VyZSBvdXQgd2h5CnRoZSBzdHVwaWQgaGduYyBJRHMgZ290IGxvc3QuLi4gIEkgY2FuIHNlZSB0aGVtIGluIHRoZSBoc19hbm5vdCBkYXRhCnN0cnVjdHVyZSwgc28gSSBtdXN0IGhhdmUgbWVzc2VkIHVwIHdoZW4gSSByZWdlbmVyZWQgdGhlIGlucHV0IHRvIHRoZQpkZS4gIE9rLCBJIGdvdCB0byB0aGUgc2FtZSBzdGFydGluZyBwb2ludCBub3cgd2l0aCBpZGVudGljYWwgdmFsdWVzLgpBcyBzb29uIGFzIEkgZGlkIHRoYXQsIEkgbG9va2VkIGF0IHRoZSByZXN1bHRpbmcgcGxvdCBhbmQgcmVhbGl6ZWQKdGhhdCB3ZSBhcmUgYWN0dWFsbHkganVzdCBjb21wYXJpbmcgejIzIC8gejIyLgoKSGVyZSBpcyB3aHk6IHRoZSBwbG90IGFzIGl0IHN0YW5kcyBpcyBhIGNvbXBhcmlzb24gb2YgdGhlIGxvZzJGQwp2YWx1ZXMgb2YgdGhlIGZvbGxvd2luZyB0d28gY29udHJhc3RzOiB6MjMvdW5pbmZlY3RlZCBhbmQKejIyL3VuaW5mZWN0ZWQ7IHN0YXRlZCBkaWZmZXJlbnRseSwgdGhpcyBpcyAoejIzL3VuaW5mKS8oejIyL3VuaW5mKQp3aGljaCBvZiBjb3Vyc2UgY2FuY2VscyBvdXQgdG8ganVzdCB6MjMvejIyLgoKVGhlcmVmb3JlIGl0IGlzIG11Y2ggbW9yZSBwYXJzaW1vbmlvdXMgdG8ganVzdCB1c2UgdGhlIHZhbHVlcyBmcm9tCnoyMy96MjIuICBJIHN3ZWFyIEkgaGF2ZSBnb25lIHRocm91Z2ggdGhpcyBleGFjdCBleGVyY2lzZSBvbiBzbyBzbwptYW55IG9jY2FzaW9ucyBpbiB0aGUgcGFzdCBpdCBpcyB0ZXJyaWJsZS4KCmBgYHtyfQp3YW50ZWRfZ2VuZXMgPC0gYygiSUZJMjciLCAiUlNBRDIiLCAiQ0NMOCIsICJJRkk0NEwiLCAiT0FTTCIsCiAgICAgICAgICAgICAgICAgICJVU1AxOCIsICJJRE8xIiwgIklETzIiLCAiS1lOVSIsICJBSFIiLCAiSUw0STEiLAogICAgICAgICAgICAgICAgICAiU09EMiIsICJOT1RDSDEiLCAiRExMMSIsICJETEw0IiwgIkhFUzEiLCAiSEVZMSIpCmdnc2lnbmlmX3Bsb3QgPC0gZ2dzaWduaWZfcGFpcmVkX2dlbmVzKAogIGhzX21hY3IsIGNvbmRpdGlvbnMgPSBjKCJpbmZfejIzIiwgImluZl96MjIiKSwgZ2VuZXMgPSB3YW50ZWRfZ2VuZXMpCmdnc2lnbmlmX3Bsb3QKYGBgCgpgYGB7cn0KcGFuZGVyOjpwYW5kZXIoc2Vzc2lvbkluZm8oKSkKbWVzc2FnZSgiVGhpcyBpcyBocGdsdG9vbHMgY29tbWl0OiAiLCBnZXRfZ2l0X2NvbW1pdCgpKQp0bXAgPC0gc2F2ZW1lKGZpbGVuYW1lID0gc2F2ZWZpbGUpCmBgYAoKYGBge3IgbG9hZG1lX2FmdGVyLCBldmFsPUZBTFNFfQp0bXAgPC0gbG9hZG1lKGZpbGVuYW1lID0gc2F2ZWZpbGUpCmBgYApkZXZ0b29sczo6bG9hZF9hbGwoJ34vaHBnbHRvb2xzJykK