• 1 Introduction
    • 1.1 Metadata Sources
  • 2 Annotation Collection
    • 2.1 Gene annotations
    • 2.2 Gene ontology data
  • 3 Dataset: Create the parent data structure of all samples
    • 3.1 Add the CRF patient metadata
    • 3.2 Sanity check, clinical outcome vs. CRF data
    • 3.3 Summarize: Collect sample numbers before filtering
    • 3.4 Define desired colors for the various subsets
  • 4 Define the starting data
    • 4.1 Set our initial coverage goal
    • 4.2 Figure XX: Non-zero genes before sample filtering
      • 4.2.1 Save CPM, all samples
    • 4.3 Subset: Filter out problematic samples
    • 4.4 Figure XX + 1: Non-zero genes after sample filtering
    • 4.5 Summarize: Tally samples after filtering
    • 4.6 Split the data by cure/fail for some counting
    • 5.1 Extract cell types
    • 5.2 Tumaco and Cali samples by visit
  • 5 Subset: Separate samples by cell type and visit
    • 5.0.1 Write valid samples
      • 5.1.1 Write cell type cpm
        • 5.2.1 Cali and Tumaco by visit, write cpm
  • 6 Tumaco and Cali data structures
    • 6.1 Subset: Eosinophils by clinic
    • 6.2 Subset: Monocytes by clinic
    • 6.3 Subset: Neutrophils by clinic
  • 7 Summarize: Tabulate sample numbers
  • 8 Dataset: Only Tumaco samples
    • 8.1 Summarize: Collect Tumaco sample numbers.
    • 8.2 Split the data by cure/fail for some counting
    • 8.3 Subset: Create Tumaco-specific versions of the various structures
      • 8.3.1 Tumaco biopsies
      • 8.3.2 Tumaco Eosinophils
      • 8.3.3 Tumaco subsets monocytes
      • 8.3.4 Tumaco subsets neutrophils
      • 8.3.5 Tumaco Visit 1 samples
      • 8.3.6 Tumaco Visit 2 samples
      • 8.3.7 Tumaco visit 3 samples
      • 8.3.8 Tumaco visit1 Eosinophils
      • 8.3.9 Tumaco visit 2 samples
      • 8.3.10 Tumaco visit 3 eosinophil
      • 8.3.11 Tumaco visit 1 monocytes
      • 8.3.12 Tumaco visit 2 monocytes
      • 8.3.13 Tumaco visit 3 monocytes
      • 8.3.14 Tumaco visit1 neutrophils
      • 8.3.15 Tumaco visit 2 neutrophils
      • 8.3.16 Tumaco visit 3 neutrophils
      • 8.3.17 Tumaco compare visits
      • 8.3.18 Visit cure/fail contrasts
  • 9 Persistence
  • 10 Save all data structures into one big pile
  • 11 Summarize: Tabulate sample numbers
  • 12 Dataset: Parasite reads

1 Introduction

We are splitting the creation of the various data structures and their analysis into separate documents.

1.1 Metadata Sources

Currently we use the sample metadata and the CRF data from the clinic.

## samplesheet <- "sample_sheets/tmrc3_samples_20220615.xlsx"
## Redundant sample sheet entries so we can test if something changed in June
samplesheet <- "sample_sheets/tmrc3_samples_20220728.xlsx"
crf_metadata <- "sample_sheets/20220509_EXP_ESPECIAL_TMRC3_V2.xlsx"

2 Annotation Collection

The primary annotation sources are:

  1. Ensembl’s biomart archive from 2020 for human annotations.
  2. The TriTrypDB release 36 for parasite annotations.

Both provide GO data. They also provide helpful links to other data sources. For the moment, we are focusing on the human annotations.

2.1 Gene annotations

These analyses have focused on gene-level abundances/differences. Thus, when htseq-count was invoked against the hisat2-based mappings, parameters were chosen to count genes rather than transcripts. In this context, a gene refers to the non-redundant union of the transcripts’ exons. Similarly, when salmon counts were used via tximport, a mapping of genes to transcripts was used to collapse the matrix to gene-level abundances. This decision may be revisited.

hs_annot <- load_biomart_annotations(year="2020", month="jan")
## The biomart annotations file already exists, loading from it.
hs_annot <- hs_annot[["annotation"]]
## The next two lines make a bridge between the gff file used by hisat2
## and the gene IDs.
hs_annot[["transcript"]] <- paste0(rownames(hs_annot), ".", hs_annot[["version"]])
rownames(hs_annot) <- make.names(hs_annot[["ensembl_gene_id"]], unique=TRUE)

## The tx_gene_map is used for tximport and salmon quantifications.
tx_gene_map <- hs_annot[, c("transcript", "ensembl_gene_id")]
summary(hs_annot)
##  ensembl_transcript_id ensembl_gene_id       version     transcript_version
##  Length:227784         Length:227784      Min.   : 1.0   Min.   : 1.00     
##  Class :character      Class :character   1st Qu.: 6.0   1st Qu.: 1.00     
##  Mode  :character      Mode  :character   Median :12.0   Median : 1.00     
##                                           Mean   :10.7   Mean   : 3.08     
##                                           3rd Qu.:15.0   3rd Qu.: 5.00     
##                                           Max.   :28.0   Max.   :17.00     
##                                                                            
##  hgnc_symbol        description        gene_biotype         cds_length    
##  Length:227784      Length:227784      Length:227784      Min.   :     3  
##  Class :character   Class :character   Class :character   1st Qu.:   357  
##  Mode  :character   Mode  :character   Mode  :character   Median :   694  
##                                                           Mean   :  1140  
##                                                           3rd Qu.:  1446  
##                                                           Max.   :107976  
##                                                           NA's   :127222  
##  chromosome_name       strand          start_position      end_position     
##  Length:227784      Length:227784      Min.   :5.77e+02   Min.   :6.47e+02  
##  Class :character   Class :character   1st Qu.:3.11e+07   1st Qu.:3.12e+07  
##  Mode  :character   Mode  :character   Median :6.04e+07   Median :6.06e+07  
##                                        Mean   :7.41e+07   Mean   :7.42e+07  
##                                        3rd Qu.:1.09e+08   3rd Qu.:1.09e+08  
##                                        Max.   :2.49e+08   Max.   :2.49e+08  
##                                                                             
##   transcript       
##  Length:227784     
##  Class :character  
##  Mode  :character  
##                    
##                    
##                    
##

2.2 Gene ontology data

The set of GO categories has not been limited to the 2020 data at the time of this writing. The GO categories is collected along with lengths for goseq. The other methods either have built-in databases of human data (gProfiler) or support orgDB data (org.Hs.eg.db) (clusterProfiler/topGO/gostats).

hs_go <- load_biomart_go()[["go"]]
## The biomart annotations file already exists, loading from it.
hs_length <- hs_annot[, c("ensembl_gene_id", "cds_length")]
colnames(hs_length) <- c("ID", "length")

3 Dataset: Create the parent data structure of all samples

Before we do any of the following subsets/analyses of the data, we need to collect it all in one place. Let’s do that here and name it ‘hs_expt’, it will comprise the full set of human data. When we cull some samples it will be renamed to ‘hs_valid’.

The variable ‘data_structures’ will contain the names of every variable I create in this document which I wish to save to disk.

Similarly, the character vector ‘sanitize_columns’ is the list of metadata columns over which I will iterate and sanitize the data, removing any spurious spaces, capitalization, etc.

data_structures <- c()
sanitize_columns <- c("visitnumber", "finaloutcome", "donor",
                      "typeofcells", "clinicalpresentation", "drug",
                      "condition", "batch")
hs_expt <- create_expt(samplesheet,
                       file_column="hg38100hisatfile",
                       savefile=glue::glue("rda/tmrc3_hs_expt_all_raw-v{ver}.rda"),
                       gene_info=hs_annot) %>%
  exclude_genes_expt(column="gene_biotype", method="keep",
                     pattern="protein_coding", meta_column="ncrna_lost") %>%
  sanitize_expt_metadata(columns=sanitize_columns) %>%
  set_expt_factors(columns=sanitize_columns, class="factor") %>%
  set_expt_conditions(fact="finaloutcome") %>%
  set_expt_batches(fact="visitnumber") %>%
  subset_expt(subset="typeofcells!='pbmcs'") %>%
  subset_expt(subset="typeofcells!='macrophages'") %>%
  subset_expt(subset="clinicalpresentation!='h'")
## Reading the sample metadata.
## Dropped 69 rows from the sample metadata because the sample ID is blank.
## The sample definitions comprises: 254 rows(samples) and 88 columns(metadata fields).
## Warning in create_expt(samplesheet, file_column = "hg38100hisatfile", savefile =
## glue::glue("rda/tmrc3_hs_expt_all_raw-v{ver}.rda"), : Some samples were removed
## when cross referencing the samples against the count data.
## Matched 21447 annotations and counts.
## Bringing together the count matrix and gene information.
## Some annotations were lost in merging, setting them to 'undefined'.
## The final expressionset has 21481 features and 246 samples.
## remove_genes_expt(), before removal, there were 21481 genes, now there are 19923.
## There are 8 samples which kept less than 90 percent counts.
## TMRC30015 TMRC30269 TMRC30017 TMRC30019 TMRC30044 TMRC30045 TMRC30154 TMRC30241 
##     79.19     89.18     85.66     89.69     80.29     73.28     83.16     89.37
## subset_expt(): There were 246, now there are 240 samples.
## subset_expt(): There were 240, now there are 212 samples.
## subset_expt(): There were 212, now there are 210 samples.
data_structures <- c(data_structures, "hs_expt")

## The following should make visit 1 the largest if one uses that column as a size factor when plotting.
meta <- pData(hs_expt) %>%
  mutate(visitnumber = fct_relevel(visitnumber, c("3", "2", "1")))
pData(hs_expt) <- meta
save(list = "hs_expt", file = glue::glue("rda/tmrc3_hs_expt_all_sanitized-v{ver}.rda"))

3.1 Add the CRF patient metadata

There are some parameters provided by the clinicians which may prove to be of interest. I therefore am adding the CRF metadata here. I will also run some simple checks to try to make sure that the clinician’s metadata agrees with the sample metadata.

hs_pd <- pData(hs_expt)
start <- rownames(hs_pd)
hs_crf <- openxlsx::read.xlsx(crf_metadata)
hs_crf[["join"]] <- tolower(hs_crf[["codigo_paciente"]])
hs_pd[["join"]] <- hs_pd[["tubelabelorigin"]]
test <- plyr::join(hs_pd, hs_crf, by="join")
test[["join"]] <- NULL
rownames(test) <- rownames(hs_pd)
na_idx <- is.na(test)
test[na_idx] <- "undefined"
pData(hs_expt) <- test

save(list = "hs_expt", file = glue::glue("rda/tmrc3_hs_expt_all_sanitized_crf-v{ver}.rda"))

3.2 Sanity check, clinical outcome vs. CRF data

Check to make sure the CRF agrees with the metadata.

two_columns <- pData(hs_expt)[, c("finaloutcome", "ef_lc_estado_final_estudio")]
undef_idx <- two_columns[[2]] == "undefined"
two_columns <- two_columns[!undef_idx, ]
two_columns[["rewritten"]] <- "undef"
cure_idx <- two_columns[[2]] == 0
two_columns[cure_idx, "rewritten"] <- "cure"
fail_idx <- two_columns[[2]] == 1
two_columns[fail_idx, "rewritten"] <- "failure"
lost_idx <- two_columns[[2]] == 2
two_columns[lost_idx, "rewritten"] <- "lost"
same_idx <- two_columns[["finaloutcome"]] == two_columns[["rewritten"]]
broken <- two_columns[!same_idx, ]
broken
## [1] finaloutcome               ef_lc_estado_final_estudio
## [3] rewritten                 
## <0 rows> (or 0-length row.names)

3.3 Summarize: Collect sample numbers before filtering

There are some metadata factors for which I think it will be nice to see the numbers before and after our filters. The following shows how many samples we have of the primary types before filtering.

dim(pData(hs_expt))
## [1] 210 148
table(pData(hs_expt)$drug)
## 
##    antimony miltefosine 
##         202           8
table(pData(hs_expt)$clinic)
## 
##   Cali Tumaco 
##     67    143
table(pData(hs_expt)$finaloutcome)
## 
##    cure failure    lost 
##     130      64      16
table(pData(hs_expt)$typeofcells)
## 
##      biopsy eosinophils   monocytes neutrophils 
##          21          45          73          71
table(pData(hs_expt)$visit)
## 
##   3   2   1 
##  54  56 100
summary(as.numeric(pData(hs_expt)$eb_lc_tiempo_evolucion))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    2.00    4.00    6.00    8.25   12.00   21.00
summary(as.numeric(pData(hs_expt)$eb_lc_tto_mcto_glucan_dosis))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    13.0    14.0    19.0    54.6    20.0   999.0
summary(as.numeric(pData(hs_expt)$v3_lc_ejey_lesion_mm_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     0.0     7.4    32.0   269.5   771.8   999.0
summary(as.numeric(pData(hs_expt)$v3_lc_lesion_area_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##       0     226     999    2412    3016   16965
summary(as.numeric(pData(hs_expt)$v3_lc_ejex_ulcera_mm_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     0.0     0.0     9.1   259.6   761.7   999.0
table(pData(hs_expt)$eb_lc_sexo)
## 
##   1   2 
## 173  37
table(pData(hs_expt)$eb_lc_etnia)
## 
##   1   2   3 
## 101  62  47
summary(as.numeric(pData(hs_expt)$edad))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    18.0    25.0    28.5    30.7    36.0    51.0
table(pData(hs_expt)$eb_lc_peso)
## 
##  53.9  55.9  57.9    58  58.1  58.3  58.6    59  59.6    62    63    67  69.4 
##     9     2     2     6     7    10    13    14     1     8     6     6    10 
##    72  74.7    75  75.6  76.5    77    78  79.2    82  83.3  83.4  86.4    87 
##     9     3     2     3     3    18    10    10     9     4    10     9     3 
##    89  93.3   100 100.8 
##     9     7     5     2
table(pData(hs_expt)$eb_lc_estatura)
## 
## 145 152 154 155 156 158 159 160 162 163 164 165 166 167 169 172 173 174 175 176 
##   6   1  10   9   6  17   2   6  10   9  15  12  19   3   2  10   9  32   2   1 
## 177 182 183 
##  10   9  10
table(pData(hs_expt)$ef_lc_estado_final_estudio)
## 
##   0   1   2 
## 130  64  16
table(pData(hs_expt)$finaloutcome)
## 
##    cure failure    lost 
##     130      64      16
unique(pData(hs_expt)$codigo_paciente)
##  [1] "SU1034" "SU1154" "SU1167" "SU1168" "SU1174" "SU1176" "SU1175" "SU2050"
##  [9] "SU2052" "SU2065" "SU1195" "SU1196" "SU1197" "SU2066" "SU1198" "SU2068"
## [17] "SU2071" "SU2072" "SU2073" "SU2159" "SU2162" "SU2161" "SU2164" "SU2167"
## [25] "SU2168" "SU2172" "SU2173" "SU2183" "SU2184" "SU2195" "SU2188" "SU2190"
## [33] "SU2194" "SU2201"
length(unique(pData(hs_expt)$codigo_paciente))
## [1] 34

Get the sex of the unique patients.

unique_people <- unique(pData(hs_expt)$codigo_paciente)
unique_people
##  [1] "SU1034" "SU1154" "SU1167" "SU1168" "SU1174" "SU1176" "SU1175" "SU2050"
##  [9] "SU2052" "SU2065" "SU1195" "SU1196" "SU1197" "SU2066" "SU1198" "SU2068"
## [17] "SU2071" "SU2072" "SU2073" "SU2159" "SU2162" "SU2161" "SU2164" "SU2167"
## [25] "SU2168" "SU2172" "SU2173" "SU2183" "SU2184" "SU2195" "SU2188" "SU2190"
## [33] "SU2194" "SU2201"
length(unique_people)
## [1] 34
df <- pData(hs_expt)
people <- df[["codigo_paciente"]]
first_indices <- order(people)[!duplicated(sort(people))]
table(df[first_indices, "eb_lc_sexo"])
## 
##  1  2 
## 27  7
table(df[first_indices, "finaloutcome"])
## 
##    cure failure    lost 
##      22      10       2

3.4 Define desired colors for the various subsets

There are lots of ways which we will categorize the data, here are some potential color choices for them.

color_choices <- list(
    "cf" = list(
        "cure" = "#998EC3",
        "failure" = "#F1A340"),
    "type_visit" = list(
        "monocytes_v1" = "#DD1C77",
        "monocytes_v2" = "#C994C7",
        "monocytes_v3" = "#E7E1EF",
        "eosinophils_v1" = "#31A354",
        "eosinophils_v2" = "#ADDD8E",
        "eosinophils_v3" = "#F7FCD9",
        "neutrophils_v1" = "#3182BD",
        "neutrophils_v2" = "#9ECAE1",
        "neutrophils_v3" = "#DEEBF7",
        "biopsy_v1" = "#D95F0E"),
    "type" = list(
        "monocytes" = "#DD1C77",
        "eosinophils" = "#31A354",
        "neutrophils" = "#3182BD",
        "biopsy" = "#D95F0E"),
    "visit" = list(
        ## Turns out we never decided on visit-specific colors...
        "v1" = "#DD0000",
        "v2" = "#00DD00",
        "v3" = "#0000DD"),
    "cf_type" <- list(
        cure_biopsy = "#D95F0E",
        failure_biopsy = "#FEC44F",
        cure_monocytes = "#DD1C77",
        failure_monocytes = "#C994C7",
        cure_eosinophils = "#31A354",
        failure_eosinophils = "#ADDD8E",
        cure_neutrophils = "#3182BD",
        failure_neutrophils = "#9ECAE1"))
data_structures <- c(data_structures, "color_choices")

4 Define the starting data

Given the starting point above, we will start extracting groups of samples of interest and giving them hopefully useful names.

4.1 Set our initial coverage goal

The first set of samples removed from the data are those with too many missing genes.

4.2 Figure XX: Non-zero genes before sample filtering

all_nz <- plot_nonzero(hs_expt)
## The following samples have less than 12949.95 genes.
##  [1] "TMRC30010" "TMRC30140" "TMRC30280" "TMRC30284" "TMRC30050" "TMRC30056"
##  [7] "TMRC30052" "TMRC30058" "TMRC30031" "TMRC30038" "TMRC30265"
## Scale for 'colour' is already present. Adding another scale for 'colour',
## which will replace the existing scale.
## Scale for 'fill' is already present. Adding another scale for 'fill', which
## will replace the existing scale.
all_nz$plot
## Warning: ggrepel: 195 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

4.2.1 Save CPM, all samples

xlsx_prefix <- "analyses"
cpm_data <- normalize_expt(hs_expt, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel=glue::glue("{xlsx_prefix}/3_cali_and_tumaco/CPM/all_samples.xlsx"))
## Deleting the file analyses/3_cali_and_tumaco/CPM/all_samples.xlsx before writing the tables.
rpkm_data <- normalize_expt(hs_expt, filter=TRUE, convert="rpkm",
                            column="cds_length", na_to_zero=TRUE)
## Removing 5149 low-count genes (14774 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/hs_expt_rpkm-v{ver}.csv"))

4.3 Subset: Filter out problematic samples

To my eyes, there are 3 or 4 samples which are likely candidates for removal. In addition, we will remove samples which were lost during the treatment and/or ones which were used in other experiments but included in the TMRC3 sample sheet (thus the ‘notapplicable’ or ‘null’).

NOTE: I changed the prefix of the data structures to reflect the clinic(s) from which they were acquired. This will likely be a problem until I carefully step through the file; but will make sure I do not accidently upload data with the Cali samples.

tc_valid <- subset_expt(hs_expt, nonzero=11000) %>%
  subset_expt(subset="finaloutcome!='lost'") %>%
  subset_expt(subset="drug=='antimony'") %>%
  set_expt_colors(color_choices[["cf"]])
## The samples (and read coverage) removed when filtering 11000 non-zero genes are:
## TMRC30010 TMRC30050 TMRC30052 
##     52429    807571   3086349
## subset_expt(): There were 210, now there are 207 samples.
## subset_expt(): There were 207, now there are 192 samples.
## subset_expt(): There were 192, now there are 184 samples.
save(list = "tc_valid", file = glue::glue("rda/tmrc3_tc_valid-v{ver}.rda"))
data_structures <- c(data_structures, "tc_valid")

4.4 Figure XX + 1: Non-zero genes after sample filtering

The following plot is essentially identical to the previous with two exceptions:

  1. The samples with too few genes (11,000 currently) are gone.
  2. The samples are colored by cure(purple)/fail(yellow)
nz_post <- plot_nonzero(tc_valid)
## The following samples have less than 12949.95 genes.
## [1] "TMRC30140" "TMRC30280" "TMRC30284" "TMRC30056" "TMRC30058" "TMRC30031"
## [7] "TMRC30265"
## Scale for 'colour' is already present. Adding another scale for 'colour',
## which will replace the existing scale.
## Scale for 'fill' is already present. Adding another scale for 'fill', which
## will replace the existing scale.
nz_post$plot
## Warning: ggrepel: 163 unlabeled data points (too many overlaps). Consider
## increasing max.overlaps

4.5 Summarize: Tally samples after filtering

We need to keep track of how many of each sample type is lost when we do our various filters. Thus I am repeating the same set of tallies. This will likely happen one more time, following the removal of samples which came from Cali.

table(pData(tc_valid)$drug)
## 
## antimony 
##      184
table(pData(tc_valid)$clinic)
## 
##   Cali Tumaco 
##     61    123
table(pData(tc_valid)$finaloutcome)
## 
##    cure failure 
##     122      62
table(pData(tc_valid)$typeofcells)
## 
##      biopsy eosinophils   monocytes neutrophils 
##          18          41          63          62
table(pData(tc_valid)$visit)
## 
##  3  2  1 
## 51 50 83
summary(as.numeric(pData(tc_valid)$eb_lc_tiempo_evolucion))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    2.00    4.00    6.00    8.19   12.00   21.00
summary(as.numeric(pData(tc_valid)$eb_lc_tto_mcto_glucan_dosis))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    13.0    14.8    19.0    17.5    20.0    20.0
summary(as.numeric(pData(tc_valid)$v3_lc_ejey_lesion_mm_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     0.0     7.2    32.0   303.4   999.0   999.0
summary(as.numeric(pData(tc_valid)$v3_lc_lesion_area_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##       0     226     999    2328    2448   16965
summary(as.numeric(pData(tc_valid)$v3_lc_ejex_ulcera_mm_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     0.0     0.0    12.5   295.9   999.0   999.0
table(pData(tc_valid)$eb_lc_sexo)
## 
##   1   2 
## 156  28
table(pData(tc_valid)$eb_lc_etnia)
## 
##  1  2  3 
## 91 46 47
summary(as.numeric(pData(tc_valid)$edad))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    18.0    25.0    28.5    30.7    36.0    51.0
table(pData(tc_valid)$eb_lc_peso)
## 
##  53.9  57.9    58  58.1  58.3  58.6    59  59.6    62    63    67  69.4    72 
##     9     2     6     7    10     3     8     1     6     6     6    10     9 
##    75  76.5    77    78  79.2    82  83.3  83.4  86.4    87    89  93.3   100 
##     2     3    18    10    10     9     4    10     9     3     9     7     5 
## 100.8 
##     2
table(pData(tc_valid)$eb_lc_estatura)
## 
## 152 154 155 156 158 159 160 163 164 165 166 167 169 172 173 174 176 177 182 183 
##   1  10   9   6  15   2   3   9  15  12  19   3   2  10   9  32   1   7   9  10
length(unique(pData(tc_valid)[["codigo_paciente"]]))
## [1] 29

4.6 Split the data by cure/fail for some counting

tc_cure <- subset_expt(tc_valid, subset="finaloutcome=='cure'")
## subset_expt(): There were 184, now there are 122 samples.
table(pData(tc_cure)$visitnumber)
## 
##  3  2  1 
## 32 33 57
tc_fail <- subset_expt(tc_valid, subset="finaloutcome=='failure'")
## subset_expt(): There were 184, now there are 62 samples.
table(pData(tc_fail)$visitnumber)
## 
##  3  2  1 
## 19 17 26

5 Subset: Separate samples by cell type and visit

all_types <- table(pData(tc_valid)[["typeofcells"]])
all_types
## 
##      biopsy eosinophils   monocytes neutrophils 
##          18          41          63          62
all_times <- table(pData(tc_valid)[["visitnumber"]])
all_times
## 
##  3  2  1 
## 51 50 83

5.0.1 Write valid samples

cpm_data <- normalize_expt(tc_valid, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel=glue::glue("{xlsx_prefix}/3_cali_and_tumaco/CPM/all_valid_samples.xlsx"))
## Deleting the file analyses/3_cali_and_tumaco/CPM/all_valid_samples.xlsx before writing the tables.
rpkm_data <- normalize_expt(tc_valid, filter=TRUE, convert="rpkm",
                            column="cds_length", na_to_zero=TRUE)
## Removing 5633 low-count genes (14290 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tc_all_valid_samples-v{ver}.csv"))

5.1 Extract cell types

## Note, I will save these data structures in a little bit when I decide how I want
## to set the conditions, batches, and colors.
tc_eosinophils <- subset_expt(tc_valid, subset="typeofcells=='eosinophils'")
## subset_expt(): There were 184, now there are 41 samples.
tc_monocytes <- subset_expt(tc_valid, subset="typeofcells=='monocytes'")
## subset_expt(): There were 184, now there are 63 samples.
tc_neutrophils <- subset_expt(tc_valid, subset="typeofcells=='neutrophils'")
## subset_expt(): There were 184, now there are 62 samples.

5.1.1 Write cell type cpm

cpm_data <- normalize_expt(tc_eosinophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel=glue::glue("{xlsx_prefix}/3_cali_and_tumaco/CPM/tc_eosinophils.xlsx"))
## Deleting the file analyses/3_cali_and_tumaco/CPM/tc_eosinophils.xlsx before writing the tables.
rpkm_data <- normalize_expt(tc_eosinophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 9059 low-count genes (10864 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tc_eosinophils-v{ver}.csv"))

cpm_data <- normalize_expt(tc_monocytes, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel=glue::glue("{xlsx_prefix}/3_cali_and_tumaco/CPM/tc_monocytes.xlsx"))
## Deleting the file analyses/3_cali_and_tumaco/CPM/tc_monocytes.xlsx before writing the tables.
rpkm_data <- normalize_expt(tc_monocytes, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 8819 low-count genes (11104 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tc_monocytes-v{ver}.csv"))

cpm_data <- normalize_expt(tc_neutrophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel=glue::glue("{xlsx_prefix}/3_cali_and_tumaco/CPM/tc_neutrophils.xlsx"))
## Deleting the file analyses/3_cali_and_tumaco/CPM/tc_neutrophils.xlsx before writing the tables.
rpkm_data <- normalize_expt(tc_neutrophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 10681 low-count genes (9242 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tc_neutrophils-v{ver}.csv"))

5.2 Tumaco and Cali samples by visit

## Currently, these are not used, but instead I pulled the samples from the hs_clinical
## which means the biopsies are not included.
tcv1_samples <- subset_expt(tc_valid, subset="visitnumber=='1'")
## subset_expt(): There were 184, now there are 83 samples.
save(list = "tcv1_samples", file = glue::glue("rda/tmrc3_tcv1_samples-v{ver}.rda"))
data_structures <- c(data_structures, "tcv1_samples")

tcv2_samples <- subset_expt(tc_valid, subset="visitnumber=='2'")
## subset_expt(): There were 184, now there are 50 samples.
save(list = "tcv2_samples", file = glue::glue("rda/tmrc3_tcv2_samples-v{ver}.rda"))
data_structures <- c(data_structures, "tcv2_samples")

tcv3_samples <- subset_expt(tc_valid, subset="visitnumber=='3'")
## subset_expt(): There were 184, now there are 51 samples.
save(list = "tcv3_samples", file = glue::glue("rda/tmrc3_tcv3_samples-v{ver}.rda"))
data_structures <- c(data_structures, "tcv3_samples")

5.2.1 Cali and Tumaco by visit, write cpm

cpm_data <- normalize_expt(tcv1_samples, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel=glue::glue("{xlsx_prefix}/3_cali_and_tumaco/CPM/tcv1_samples.xlsx"))
## Deleting the file analyses/3_cali_and_tumaco/CPM/tcv1_samples.xlsx before writing the tables.
rpkm_data <- normalize_expt(tcv1_samples, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 5772 low-count genes (14151 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tcv1_samples-v{ver}.csv"))

cpm_data <- normalize_expt(tcv2_samples, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel=glue::glue("{xlsx_prefix}/3_cali_and_tumaco/CPM/tcv2_samples.xlsx"))
## Deleting the file analyses/3_cali_and_tumaco/CPM/tcv2_samples.xlsx before writing the tables.
rpkm_data <- normalize_expt(tcv2_samples, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 8184 low-count genes (11739 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tcv2_samples-v{ver}.csv"))

cpm_data <- normalize_expt(tcv3_samples, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel=glue::glue("{xlsx_prefix}/3_cali_and_tumaco/CPM/tcv3_samples.xlsx"))
## Deleting the file analyses/3_cali_and_tumaco/CPM/tcv3_samples.xlsx before writing the tables.
rpkm_data <- normalize_expt(tcv3_samples, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 8259 low-count genes (11664 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tcv3_samples-v{ver}.csv"))

6 Tumaco and Cali data structures

All data structures which start with the prefix ‘tc’ are Tumaco and Cali. Those with ‘t’ are only Tumaco.

tc_clinical <- tc_valid %>%
  set_expt_conditions(fact="finaloutcome") %>%
  set_expt_batches(fact="typeofcells") %>%
  set_expt_colors(color_choices[["cf"]])
save(list = "tc_clinical", file = glue::glue("rda/tmrc3_tc_clinical-v{ver}.rda"))
data_structures <- c(data_structures, "tc_clinical")

tc_clinical_nobiop <- subset_expt(tc_clinical, subset="typeofcells!='biopsy'")
## subset_expt(): There were 184, now there are 166 samples.
save(list = "tc_clinical_nobiop", file = glue::glue("rda/tmrc3_tc_clinical_nobiop-v{ver}.rda"))
data_structures <- c(data_structures, "tc_clinical_nobiop")

tc_biopsies <- tc_valid %>%
  set_expt_conditions(fact="clinic") %>%
  set_expt_batches(fact="finaloutcome") %>%
  subset_expt(subset="typeofcells=='biopsy'")
## subset_expt(): There were 184, now there are 18 samples.
tc_cf <- paste0(pData(tc_biopsies)[["clinic"]], "_",
                pData(tc_biopsies)[["finaloutcome"]])
table(tc_cf)
## tc_cf
##      Cali_cure    Tumaco_cure Tumaco_failure 
##              4              9              5
tc_biopsies <- set_expt_conditions(tc_biopsies, fact=tc_cf) %>%
  set_expt_batches(fact="visitnumber")
save(list = "tc_biopsies", file = glue::glue("rda/tmrc3_tc_biopsies-v{ver}.rda"))
data_structures <- c(data_structures, "tc_biopsies")

6.1 Subset: Eosinophils by clinic

clinic_cf <- paste0(pData(tc_eosinophils)[["clinic"]], "_",
                    pData(tc_eosinophils)[["finaloutcome"]])
table(clinic_cf)
## clinic_cf
##      Cali_cure    Tumaco_cure Tumaco_failure 
##             15             17              9
tc_eosinophils <- set_expt_conditions(tc_eosinophils, fact=clinic_cf) %>%
  set_expt_batches(fact="visitnumber")
save(list = "tc_eosinophils", file = glue::glue("rda/tmrc3_tc_eosinophils-v{ver}.rda"))
data_structures <- c(data_structures, "tc_eosinophils")

tcv1_eosinophils <- subset_expt(tc_eosinophils, subset="visitnumber=='1'")
## subset_expt(): There were 41, now there are 14 samples.
save(list = "tcv1_eosinophils", file = glue::glue("rda/tmrc3_tcv1_eosinophils-v{ver}.rda"))
data_structures <- c(data_structures, "tcv1_eosinophils")
tcv2_eosinophils <- subset_expt(tc_eosinophils, subset="visitnumber=='2'")
## subset_expt(): There were 41, now there are 14 samples.
save(list = "tcv2_eosinophils", file = glue::glue("rda/tmrc3_tcv2_eosinophils-v{ver}.rda"))
data_structures <- c(data_structures, "tcv2_eosinophils")
tcv3_eosinophils <- subset_expt(tc_eosinophils, subset="visitnumber=='3'")
## subset_expt(): There were 41, now there are 13 samples.
save(list = "tcv3_eosinophils", file = glue::glue("rda/tmrc3_tcv3_eosinophils-v{ver}.rda"))
data_structures <- c(data_structures, "tcv3_eosinophils")

6.2 Subset: Monocytes by clinic

clinic_cf <- paste0(pData(tc_monocytes)[["clinic"]], "_",
                    pData(tc_monocytes)[["finaloutcome"]])
table(clinic_cf)
## clinic_cf
##      Cali_cure   Cali_failure    Tumaco_cure Tumaco_failure 
##             18              3             21             21
tc_monocytes <- set_expt_conditions(tc_monocytes, fact=clinic_cf) %>%
  set_expt_batches(fact="visitnumber")
save(list = "tc_monocytes", file = glue::glue("rda/tmrc3_tc_monocytes-v{ver}.rda"))
data_structures <- c(data_structures, "tc_monocytes")

tcv1_monocytes <- subset_expt(tc_monocytes, subset="visitnumber=='1'")
## subset_expt(): There were 63, now there are 26 samples.
save(list = "tcv1_monocytes", file = glue::glue("rda/tmrc3_tcv1_monocytes-v{ver}.rda"))
data_structures <- c(data_structures, "tcv1_monocytes")
tcv2_monocytes <- subset_expt(tc_monocytes, subset="visitnumber=='2'")
## subset_expt(): There were 63, now there are 18 samples.
save(list = "tcv2_monocytes", file = glue::glue("rda/tmrc3_tcv2_monocytes-v{ver}.rda"))
data_structures <- c(data_structures, "tcv2_monocytes")
tcv3_monocytes <- subset_expt(tc_monocytes, subset="visitnumber=='3'")
## subset_expt(): There were 63, now there are 19 samples.
save(list = "tcv3_monocytes", file = glue::glue("rda/tmrc3_tcv3_monocytes-v{ver}.rda"))
data_structures <- c(data_structures, "tcv3_monocytes")

6.3 Subset: Neutrophils by clinic

clinic_cf <- paste0(pData(tc_neutrophils)[["clinic"]], "_",
                    pData(tc_neutrophils)[["finaloutcome"]])
table(clinic_cf)
## clinic_cf
##      Cali_cure   Cali_failure    Tumaco_cure Tumaco_failure 
##             18              3             20             21
tc_neutrophils <- set_expt_conditions(tc_neutrophils, fact=clinic_cf) %>%
  set_expt_batches(fact="visitnumber")
save(list = "tc_neutrophils", file = glue::glue("rda/tmrc3_tc_neutrophils-v{ver}.rda"))
data_structures <- c(data_structures, "tc_neutrophils")

tcv1_neutrophils <- subset_expt(tc_neutrophils, subset="visitnumber=='1'")
## subset_expt(): There were 62, now there are 25 samples.
save(list = "tcv1_neutrophils", file = glue::glue("rda/tmrc3_tcv1_neutrophils-v{ver}.rda"))
data_structures <- c(data_structures, "tcv1_neutrophils")
tcv2_neutrophils <- subset_expt(tc_neutrophils, subset="visitnumber=='2'")
## subset_expt(): There were 62, now there are 18 samples.
save(list = "tcv2_neutrophils", file = glue::glue("rda/tmrc3_tcv2_neutrophils-v{ver}.rda"))
data_structures <- c(data_structures, "tcv2_neutrophils")
tcv3_neutrophils <- subset_expt(tc_neutrophils, subset="visitnumber=='3'")
## subset_expt(): There were 62, now there are 19 samples.
save(list = "tcv3_neutrophils", file = glue::glue("rda/tmrc3_tcv3_neutrophils-v{ver}.rda"))
data_structures <- c(data_structures, "tcv3_neutrophils")

7 Summarize: Tabulate sample numbers

Here is an outline of the samples in their current state:

  • By type: 184, Cure: 122, Fail: 62
    • Biopsy: 18, Cure: 13, Fail: 5
      • All biopsy samples are visit 1.
    • Eosinophils: 41, Cure: 32, Fail: 9
      • V1 Eosinophils: 14, Cure: 11, Fail: 3
      • V2 Eosinophils: 14, Cure: 11, Fail: 3
      • V3 Eosinophils: 13, Cure: 10, Fail: 3
    • Monocytes: 63, Cure: 39, Fail: 24
      • V1 Monocytes: 26, Cure: 17, Fail: 9
      • V2 Monocytes: 18, Cure: 11, Fail: 7
      • V3 Monocytes: 19, Cure: 11, Fail: 8
    • Neutrophils: 62, Cure: 38, Fail: 24
      • V1 Neutrophils: 25, Cure: 16, Fail: 9
      • V2 Neutrophils: 18, Cure: 11, Fail: 7
      • V3 Neutrophils: 19, Cure: 11, Fail: 8

8 Dataset: Only Tumaco samples

Our recent discussions have settled one big question regarding which samples to use: We will limit our analyses to only those samples from Tumaco.

The following block will therefore set that group as our default for future analyses.

t_clinical <- tc_clinical %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 184, now there are 123 samples.
save(list = "t_clinical", file = glue::glue("rda/tmrc3_t_clinical-v{ver}.rda"))
data_structures <- c(data_structures, "t_clinical")
cpm_data <- normalize_expt(t_clinical, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_clinical_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_clinical_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_clinical, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 5774 low-count genes (14149 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
                 file = glue::glue("data/rpkm/t_clinical-v{ver}.csv"))
cpm_data <- normalize_expt(t_clinical, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 5774 low-count genes (14149 remaining).
## Setting 17282 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_clinical_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_clinical_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_clinical, filter=TRUE, batch="svaseq") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 5774 low-count genes (14149 remaining).
## Setting 9132 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/t_clinical_sva-v{ver}.csv"))

t_clinical_nobiop <- subset_expt(t_clinical, subset="typeofcells!='biopsy'")
## subset_expt(): There were 123, now there are 109 samples.
save(list = "t_clinical_nobiop", file = glue::glue("rda/tmrc3_t_clinical_nobiop-v{ver}.rda"))
data_structures <- c(data_structures, "t_clinical_nobiop")
cpm_data <- normalize_expt(t_clinical_nobiop, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_clinical_nobiop_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_clinical_nobiop_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_clinical, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 5774 low-count genes (14149 remaining).
## Setting 9132 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/t_clinical_sva-v{ver}.csv"))

cpm_data <- normalize_expt(t_clinical_nobiop, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 8016 low-count genes (11907 remaining).
## Setting 9578 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_clinical_nobiop_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_clinical_nobiop_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_clinical_nobiop, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 8016 low-count genes (11907 remaining).
## Setting 1834 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/t_clinical_nobiop_sva-v{ver}.csv"))

8.1 Summarize: Collect Tumaco sample numbers.

At least in theory, everything which follows will be using the above ‘clinical’ data structure. Thus, let us count it up and get a sense of what we will work with.

table(pData(t_clinical)$drug)
## 
## antimony 
##      123
table(pData(t_clinical)$clinic)
## 
## Tumaco 
##    123
table(pData(t_clinical)$finaloutcome)
## 
##    cure failure 
##      67      56
table(pData(t_clinical)$typeofcells)
## 
##      biopsy eosinophils   monocytes neutrophils 
##          14          26          42          41
table(pData(t_clinical)$visit)
## 
##  3  2  1 
## 34 35 54
summary(as.numeric(pData(t_clinical)$eb_lc_tiempo_evolucion))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    2.00    4.00    4.00    7.03    8.00   21.00
summary(as.numeric(pData(t_clinical)$eb_lc_tto_mcto_glucan_dosis))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##      13      14      17      17      20      20
summary(as.numeric(pData(t_clinical)$v3_lc_ejey_lesion_mm_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##     3.0     7.2    31.3   389.6   999.0   999.0
summary(as.numeric(pData(t_clinical)$v3_lc_lesion_area_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##      46     222     999    1089     999    5055
summary(as.numeric(pData(t_clinical)$v3_lc_ejex_ulcera_mm_1))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##       0       0       0     383     999     999
table(pData(t_clinical)$eb_lc_sexo)
## 
##   1   2 
## 101  22
table(pData(t_clinical)$eb_lc_etnia)
## 
##  1  2  3 
## 76 19 28
summary(as.numeric(pData(t_clinical)$edad))
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    18.0    23.0    25.0    28.5    34.0    51.0
table(pData(t_clinical)$eb_lc_peso)
## 
##  53.9  57.9  58.1  58.3  58.6    59  59.6    62    63  69.4    77    78  79.2 
##     9     2     7    10     3     8     1     6     6    10     9    10    10 
##  83.3  83.4  86.4  93.3 100.8 
##     4    10     9     7     2
table(pData(t_clinical)$eb_lc_estatura)
## 
## 152 154 158 159 163 164 165 166 172 173 174 176 177 182 183 
##   1  10  15   2   9  15  12  10  10   4   8   1   7   9  10
length(unique(pData(t_clinical)[["codigo_paciente"]]))
## [1] 19
only_cure <- pData(t_clinical)[["finaloutcome"]] == "cure"
c_meta <- pData(t_clinical)[only_cure, ]
length(unique(c_meta[["codigo_paciente"]]))
## [1] 10
only_fail <- pData(t_clinical)[["finaloutcome"]] == "failure"
f_meta <- pData(t_clinical)[only_fail, ]
length(unique(f_meta[["codigo_paciente"]]))
## [1] 9

8.2 Split the data by cure/fail for some counting

t_cure <- subset_expt(t_clinical, subset="finaloutcome=='cure'")
## subset_expt(): There were 123, now there are 67 samples.
table(pData(t_cure)$visitnumber)
## 
##  3  2  1 
## 17 20 30
t_fail <- subset_expt(t_clinical, subset="finaloutcome=='failure'")
## subset_expt(): There were 123, now there are 56 samples.
table(pData(t_fail)$visitnumber)
## 
##  3  2  1 
## 17 15 24

8.3 Subset: Create Tumaco-specific versions of the various structures

I previously made a bunch of data subsets by visit, cell type, etc. So let us overwrite them all with versions which contain only the Tumaco samples.

There is no going back to the Cali samples after this block unless we regenerate the data from the original expressionsets.

8.3.1 Tumaco biopsies

t_biopsies <- tc_biopsies %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 18, now there are 14 samples.
save(list = "t_biopsies", file = glue::glue("rda/tmrc3_t_biopsies-v{ver}.rda"))
data_structures <- c(data_structures, "t_biopsies")
cpm_data <- normalize_expt(t_biopsies, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_biopsies_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_biopsies_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_biopsies, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 6417 low-count genes (13506 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/t_biopsies-v{ver}.csv"))

cpm_data <- normalize_expt(t_biopsies, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 6417 low-count genes (13506 remaining).
## Setting 145 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_biopsies_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_biopsies_cpm_sva.xlsx before writing the tables.

8.3.2 Tumaco Eosinophils

t_eosinophils <- tc_eosinophils %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 41, now there are 26 samples.
save(list = "t_eosinophils", file = glue::glue("rda/tmrc3_t_eosinophils-v{ver}.rda"))
data_structures <- c(data_structures, "t_eosinophils")
cpm_data <- normalize_expt(t_eosinophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_eosinophils_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_eosinophils_cpm.xlsx before writing the tables.
cpm_data <- normalize_expt(t_eosinophils, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 9393 low-count genes (10530 remaining).
## Setting 325 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_eosinophils_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_eosinophils_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_eosinophils, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 9393 low-count genes (10530 remaining).
## Setting 106 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/t_eosinophils_sva-v{ver}.csv"))

8.3.3 Tumaco subsets monocytes

t_monocytes <- tc_monocytes %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 63, now there are 42 samples.
save(list = "t_monocytes", file = glue::glue("rda/tmrc3_t_monocytes-v{ver}.rda"))
data_structures <- c(data_structures, "t_monocytes")
cpm_data <- normalize_expt(t_monocytes, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_monocytes_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_monocytes_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_monocytes, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 9064 low-count genes (10859 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/t_monocytes-v{ver}.csv"))
cpm_data <- normalize_expt(t_monocytes, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 9064 low-count genes (10859 remaining).
## Setting 730 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_monocytes_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_monocytes_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_monocytes, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 9064 low-count genes (10859 remaining).
## Setting 296 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/t_monocytes_sva-v{ver}.csv"))

8.3.4 Tumaco subsets neutrophils

t_neutrophils <- tc_neutrophils %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 62, now there are 41 samples.
save(list = "t_neutrophils", file = glue::glue("rda/tmrc3_t_neutrophils-v{ver}.rda"))
data_structures <- c(data_structures, "t_neutrophils")
cpm_data <- normalize_expt(t_neutrophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_neutrophils_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_neutrophils_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_neutrophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 10824 low-count genes (9099 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
                 file = glue::glue("data/rpkm/t_neutrophils-v{ver}.csv"))
cpm_data <- normalize_expt(t_neutrophils, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 10824 low-count genes (9099 remaining).
## Setting 750 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_neutrophils_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_neutrophils_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(t_neutrophils, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 10824 low-count genes (9099 remaining).
## Setting 162 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/t_neutrophils_sva-v{ver}.csv"))

8.3.5 Tumaco Visit 1 samples

tv1_samples <- tcv1_samples %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 83, now there are 54 samples.
save(list = "tv1_samples", file = glue::glue("rda/tmrc3_tv1_samples-v{ver}.rda"))
data_structures <- c(data_structures, "tv1_samples")
cpm_data <- normalize_expt(tv1_samples, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv1_samples_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv1_samples_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv1_samples, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 5907 low-count genes (14016 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv1_samples-v{ver}.csv"))
cpm_data <- normalize_expt(tv1_samples, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 5907 low-count genes (14016 remaining).
## Setting 7615 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv1_samples_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv1_samples_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv1_samples, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 5907 low-count genes (14016 remaining).
## Setting 2539 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv1_samples_sva-v{ver}.csv"))

8.3.6 Tumaco Visit 2 samples

tv2_samples <- tcv2_samples %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 50, now there are 35 samples.
save(list = "tv2_samples", file = glue::glue("rda/tmrc3_tv2_samples-v{ver}.rda"))
data_structures <- c(data_structures, "tv2_samples")
cpm_data <- normalize_expt(tv2_samples, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv2_samples_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv2_samples_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv2_samples, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 8364 low-count genes (11559 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv2_samples-v{ver}.csv"))
cpm_data <- normalize_expt(tv2_samples, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 8364 low-count genes (11559 remaining).
## Setting 2848 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv2_samples_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv2_samples_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv2_samples, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 8364 low-count genes (11559 remaining).
## Setting 410 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv2_samples_sva-v{ver}.csv"))

8.3.7 Tumaco visit 3 samples

tv3_samples <- tcv3_samples %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 51, now there are 34 samples.
save(list = "tv3_samples", file = glue::glue("rda/tmrc3_tv3_samples-v{ver}.rda"))
data_structures <- c(data_structures, "tv3_samples")
cpm_data <- normalize_expt(tv3_samples, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv3_samples_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv3_samples_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv3_samples, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 8474 low-count genes (11449 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv3_samples-v{ver}.csv"))
cpm_data <- normalize_expt(tv3_samples, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 8474 low-count genes (11449 remaining).
## Setting 1878 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv3_samples_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv3_samples_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv3_samples, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 8474 low-count genes (11449 remaining).
## Setting 248 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv3_samples_sva-v{ver}.csv"))

8.3.8 Tumaco visit1 Eosinophils

tv1_eosinophils <- tcv1_eosinophils %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 14, now there are 8 samples.
save(list = "tv1_eosinophils", file = glue::glue("rda/tmrc3_tv1_eosinophils-v{ver}.rda"))
data_structures <- c(data_structures, "tv1_eosinophils")
cpm_data <- normalize_expt(tv1_eosinophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv1_eosinophils_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv1_eosinophils_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv1_eosinophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 9946 low-count genes (9977 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv1_eosinophils-v{ver}.csv"))
cpm_data <- normalize_expt(tv1_eosinophils, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 9946 low-count genes (9977 remaining).
## Setting 57 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv1_eosinophils_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv1_eosinophils_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv1_eosinophils, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 9946 low-count genes (9977 remaining).
## Setting 20 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv1_eosinophils_sva-v{ver}.csv"))

8.3.9 Tumaco visit 2 samples

tv2_eosinophils <- tcv2_eosinophils %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 14, now there are 9 samples.
save(list = "tv2_eosinophils", file = glue::glue("rda/tmrc3_tv2_eosinophils-v{ver}.rda"))
data_structures <- c(data_structures, "tv2_eosinophils")
cpm_data <- normalize_expt(tv2_eosinophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv2_eosinophils_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv2_eosinophils_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv2_eosinophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 9808 low-count genes (10115 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv2_eosinophils-v{ver}.csv"))
cpm_data <- normalize_expt(tv2_eosinophils, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 9808 low-count genes (10115 remaining).
## Setting 90 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv2_eosinophils_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv2_eosinophils_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv2_eosinophils, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 9808 low-count genes (10115 remaining).
## Setting 39 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv2_eosinophils_sva-v{ver}.csv"))

8.3.10 Tumaco visit 3 eosinophil

tv3_eosinophils <- tcv3_eosinophils %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 13, now there are 9 samples.
save(list = "tv3_eosinophils", file = glue::glue("rda/tmrc3_tv3_eosinophils-v{ver}.rda"))
data_structures <- c(data_structures, "tv3_eosinophils")
cpm_data <- normalize_expt(tv3_eosinophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv3_eosinophils_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv3_eosinophils_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv3_eosinophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 9845 low-count genes (10078 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv3_eosinophils-v{ver}.csv"))
cpm_data <- normalize_expt(tv3_eosinophils, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 9845 low-count genes (10078 remaining).
## Setting 48 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv3_eosinophils_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv3_eosinophils_cpm_sva.xlsx before writing the tables.
## Note, the cbcb filter left behind a sufficient number of zeros that it confused cpm.
rpkm_data <- normalize_expt(tv3_eosinophils, filter="simple", batch="svaseq") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 3335 low-count genes (16588 remaining).
## Setting 5428 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv3_eosinophils_sva-v{ver}.csv"))

8.3.11 Tumaco visit 1 monocytes

tv1_monocytes <- tcv1_monocytes %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 26, now there are 16 samples.
save(list = "tv1_monocytes", file = glue::glue("rda/tmrc3_tv1_monocytes-v{ver}.rda"))
data_structures <- c(data_structures, "tv1_monocytes")
cpm_data <- normalize_expt(tv1_monocytes, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv1_monocytes_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv1_monocytes_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv1_monocytes, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 9444 low-count genes (10479 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv1_monocytes-v{ver}.csv"))
cpm_data <- normalize_expt(tv1_monocytes, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 9444 low-count genes (10479 remaining).
## Setting 187 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv1_monocytes_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv1_monocytes_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv1_monocytes, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 9444 low-count genes (10479 remaining).
## Setting 80 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv1_monocytes_sva-v{ver}.csv"))

8.3.12 Tumaco visit 2 monocytes

tv2_monocytes <- tcv2_monocytes %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 18, now there are 13 samples.
save(list = "tv2_monocytes", file = glue::glue("rda/tmrc3_tv2_monocytes-v{ver}.rda"))
data_structures <- c(data_structures, "tv2_monocytes")
cpm_data <- normalize_expt(tv2_monocytes, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv2_monocytes_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv2_monocytes_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv2_monocytes, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 9403 low-count genes (10520 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv2_monocytes-v{ver}.csv"))
cpm_data <- normalize_expt(tv2_monocytes, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 9403 low-count genes (10520 remaining).
## Setting 115 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv2_monocytes_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv2_monocytes_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv2_monocytes, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 9403 low-count genes (10520 remaining).
## Setting 39 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv2_monocytes_sva-v{ver}.csv"))

8.3.13 Tumaco visit 3 monocytes

tv3_monocytes <- tcv3_monocytes %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 19, now there are 13 samples.
save(list = "tv3_monocytes", file = glue::glue("rda/tmrc3_tv3_monocytes-v{ver}.rda"))
data_structures <- c(data_structures, "tv3_monocytes")
cpm_data <- normalize_expt(tv3_monocytes, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv3_monocytes_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv3_monocytes_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv3_monocytes, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 9549 low-count genes (10374 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv3_monocytes-v{ver}.csv"))
cpm_data <- normalize_expt(tv3_monocytes, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 9549 low-count genes (10374 remaining).
## Setting 55 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv3_monocytes_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv3_monocytes_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv3_monocytes, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 9549 low-count genes (10374 remaining).
## Setting 28 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv3_monocytes_sva-v{ver}.csv"))

8.3.14 Tumaco visit1 neutrophils

tv1_neutrophils <- tcv1_neutrophils %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 25, now there are 16 samples.
save(list = "tv1_neutrophils", file = glue::glue("rda/tmrc3_tv1_neutrophils-v{ver}.rda"))
data_structures <- c(data_structures, "tv1_neutrophils")
cpm_data <- normalize_expt(tv1_neutrophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv1_neutrophils_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv1_neutrophils_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv1_neutrophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 11208 low-count genes (8715 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv1_neutrophils-v{ver}.csv"))
cpm_data <- normalize_expt(tv1_neutrophils, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 11208 low-count genes (8715 remaining).
## Setting 145 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv1_neutrophils_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv1_neutrophils_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv1_neutrophils, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 11208 low-count genes (8715 remaining).
## Setting 41 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv1_neutrophils_sva-v{ver}.csv"))

8.3.15 Tumaco visit 2 neutrophils

tv2_neutrophils <- tcv2_neutrophils %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 18, now there are 13 samples.
save(list = "tv2_neutrophils", file = glue::glue("rda/tmrc3_tv2_neutrophils-v{ver}.rda"))
data_structures <- c(data_structures, "tv2_neutrophils")
cpm_data <- normalize_expt(tv2_neutrophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv2_neutrophils_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv2_neutrophils_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv2_neutrophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 11473 low-count genes (8450 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv2_neutrophils-v{ver}.csv"))
cpm_data <- normalize_expt(tv2_neutrophils, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 11473 low-count genes (8450 remaining).
## Setting 78 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv2_neutrophils_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv2_neutrophils_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv2_neutrophils, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 11473 low-count genes (8450 remaining).
## Setting 41 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv2_neutrophils_sva-v{ver}.csv"))

8.3.16 Tumaco visit 3 neutrophils

tv3_neutrophils <- tcv3_neutrophils %>%
  subset_expt(subset="clinic=='Tumaco'")
## subset_expt(): There were 19, now there are 12 samples.
save(list = "tv3_neutrophils", file = glue::glue("rda/tmrc3_tv3_neutrophils-v{ver}.rda"))
data_structures <- c(data_structures, "tv3_neutrophils")
cpm_data <- normalize_expt(tv3_neutrophils, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv3_neutrophils_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv3_neutrophils_cpm.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv3_neutrophils, filter=TRUE, convert="rpkm",
                            na_to_zero=TRUE, column="cds_length")
## Removing 11420 low-count genes (8503 remaining).
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv3_neutrophils-v{ver}.csv"))
cpm_data <- normalize_expt(tv3_neutrophils, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 11420 low-count genes (8503 remaining).
## Setting 83 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/tv3_neutrophils_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/tv3_neutrophils_cpm_sva.xlsx before writing the tables.
rpkm_data <- normalize_expt(tv3_neutrophils, filter=TRUE, batch="svaseq",
                            column="cds_length") %>%
  normalize_expt(convert="rpkm", column="cds_length", na_to_zero=TRUE)
## Removing 11420 low-count genes (8503 remaining).
## Setting 18 low elements to zero.
write.csv(x = as.data.frame(exprs(rpkm_data)),
          file = glue::glue("data/rpkm/tv3_neutrophils_sva-v{ver}.csv"))

8.3.17 Tumaco compare visits

Is this redundant?

t_visit <- set_expt_conditions(t_clinical, fact = "visitnumber") %>%
  set_expt_batches(fact = "finaloutcome") %>%
  subset_expt(subset="typeofcells!='biopsy'")
## subset_expt(): There were 123, now there are 109 samples.
save(list = "t_visit", file = glue::glue("rda/tmrc3_t_visit-v{ver}.rda"))
data_structures <- c(data_structures, "t_visit")
cpm_data <- normalize_expt(t_visit, convert="cpm")
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_visit_cpm.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_visit_cpm.xlsx before writing the tables.
cpm_data <- normalize_expt(t_visit, convert="cpm", filter=TRUE, batch="svaseq")
## Removing 8016 low-count genes (11907 remaining).
## Setting 9614 low elements to zero.
written <- write_xlsx(
    exprs(cpm_data),
    excel="analyses/4_tumaco/CPM/t_visit_cpm_sva.xlsx")
## Deleting the file analyses/4_tumaco/CPM/t_visit_cpm_sva.xlsx before writing the tables.

8.3.18 Visit cure/fail contrasts

visit_cf_expt_factor <- paste0("v", pData(t_clinical)[["visitnumber"]],
                               pData(t_clinical)[["finaloutcome"]])
t_visitcf <- set_expt_conditions(t_clinical, fact = visit_cf_expt_factor)
save(list = "t_visitcf", file = glue::glue("rda/tmrc3_t_visitcf-v{ver}.rda"))
data_structures <- c(data_structures, "t_visitcf")

t_visitcf_eosinophil <- subset_expt(t_visitcf, subset="typeofcells=='eosinophils'")
## subset_expt(): There were 123, now there are 26 samples.
save(list = "t_visitcf_eosinophil", file = glue::glue("rda/tmrc3_t_visitcf_eosinophil-v{ver}.rda"))
data_structures <- c(data_structures, "t_visitcf_eosinophil")

t_visitcf_monocyte <- subset_expt(t_visitcf, subset="typeofcells=='monocytes'")
## subset_expt(): There were 123, now there are 42 samples.
save(list = "t_visitcf_monocyte", file = glue::glue("rda/tmrc3_t_visitcf_monocyte-v{ver}.rda"))
data_structures <- c(data_structures, "t_visitcf_monocyte")

t_visitcf_neutrophil <- subset_expt(t_visitcf, subset="typeofcells=='neutrophils'")
## subset_expt(): There were 123, now there are 41 samples.
save(list = "t_visitcf_neutrophil", file = glue::glue("rda/tmrc3_t_visitcf_neutrophil-v{ver}.rda"))
data_structures <- c(data_structures, "t_visitcf_neutrophil")

9 Persistence

t_persistence <- subset_expt(t_clinical, subset = "persistence=='Y'|persistence=='N'") %>%
  subset_expt(subset = 'visitnumber==3') %>%
  set_expt_conditions(fact = 'persistence')
## subset_expt(): There were 123, now there are 97 samples.
## subset_expt(): There were 97, now there are 30 samples.
save(list = "t_persistence", file = glue::glue("rda/tmrc3_t_persistence-v{ver}.rda"))
data_structures <- c(data_structures, "t_persistence")

t_persistence_monocyte <- subset_expt(t_persistence, subset = "typeofcells=='monocytes'")
## subset_expt(): There were 30, now there are 12 samples.
save(list = "t_persistence_monocyte", file = glue::glue("rda/tmrc3_t_persistence_monocyte-v{ver}.rda"))
data_structures <- c(data_structures, "t_persistence_monocyte")

t_persistence_neutrophil <- subset_expt(t_persistence, subset = "typeofcells=='neutrophils'")
## subset_expt(): There were 30, now there are 10 samples.
save(list = "t_persistence_neutrophil", file = glue::glue("rda/tmrc3_t_persistence_neutrophil-v{ver}.rda"))
data_structures <- c(data_structures, "t_persistence_neutrophil")

t_persistence_eosinophil <- subset_expt(t_persistence, subset = "typeofcells=='eosinophils'")
## subset_expt(): There were 30, now there are 8 samples.
save(list = "t_persistence_eosinophil", file = glue::glue("rda/tmrc3_t_persistence_eosinophil-v{ver}.rda"))
data_structures <- c(data_structures, "t_persistence_eosinophil")

10 Save all data structures into one big pile

save(list = data_structures, file = glue::glue("rda/tmrc3_data_structures-v{ver}.rda"))

11 Summarize: Tabulate sample numbers

Here is an outline of the samples in their current state:

  • By type: 123, Cure: 67, Fail: 56
    • Biopsy: 18, Cure: 9, Fail: 5
      • All biopsy samples are visit 1.
    • Eosinophils: 41, Cure: 17, Fail: 9
      • V1 Eosinophils: 8, Cure: 5, Fail: 3
      • V2 Eosinophils: 9, Cure: 6, Fail: 3
      • V3 Eosinophils: 9, Cure: 6, Fail: 3
    • Monocytes: 63, Cure: 21, Fail: 21
      • V1 Monocytes: 16, Cure: 8, Fail: 8
      • V2 Monocytes: 13, Cure: 7, Fail: 6
      • V3 Monocytes: 13, Cure: 6, Fail: 7
    • Neutrophils: 62, Cure: 20, Fail: 21
      • V1 Neutrophils: 16, Cure: 8, Fail: 8
      • V2 Neutrophils: 13, Cure: 7, Fail: 6
      • V3 Neutrophils: 12, Cure: 5, Fail: 7
ncol(exprs(t_clinical))
## [1] 123
sum(pData(t_clinical)[["finaloutcome"]] == "cure")
## [1] 67
sum(pData(t_clinical)[["finaloutcome"]] == "failure")
## [1] 56
all_types[["biopsy"]]
## [1] 18
sum(pData(t_biopsies)[["finaloutcome"]] == "cure")
## [1] 9
sum(pData(t_biopsies)[["finaloutcome"]] == "failure")
## [1] 5
all_types[["eosinophils"]]
## [1] 41
sum(pData(t_eosinophils)[["finaloutcome"]] == "cure")
## [1] 17
sum(pData(t_eosinophils)[["finaloutcome"]] == "failure")
## [1] 9
nrow(pData(tv1_eosinophils))
## [1] 8
sum(pData(tv1_eosinophils)[["finaloutcome"]] == "cure")
## [1] 5
sum(pData(tv1_eosinophils)[["finaloutcome"]] == "failure")
## [1] 3
nrow(pData(tv2_eosinophils))
## [1] 9
sum(pData(tv2_eosinophils)[["finaloutcome"]] == "cure")
## [1] 6
sum(pData(tv2_eosinophils)[["finaloutcome"]] == "failure")
## [1] 3
nrow(pData(tv3_eosinophils))
## [1] 9
sum(pData(tv3_eosinophils)[["finaloutcome"]] == "cure")
## [1] 6
sum(pData(tv3_eosinophils)[["finaloutcome"]] == "failure")
## [1] 3
all_types[["monocytes"]]
## [1] 63
sum(pData(t_monocytes)[["finaloutcome"]] == "cure")
## [1] 21
sum(pData(t_monocytes)[["finaloutcome"]] == "failure")
## [1] 21
nrow(pData(tv1_monocytes))
## [1] 16
sum(pData(tv1_monocytes)[["finaloutcome"]] == "cure")
## [1] 8
sum(pData(tv1_monocytes)[["finaloutcome"]] == "failure")
## [1] 8
nrow(pData(tv2_monocytes))
## [1] 13
sum(pData(tv2_monocytes)[["finaloutcome"]] == "cure")
## [1] 7
sum(pData(tv2_monocytes)[["finaloutcome"]] == "failure")
## [1] 6
nrow(pData(tv3_monocytes))
## [1] 13
sum(pData(tv3_monocytes)[["finaloutcome"]] == "cure")
## [1] 6
sum(pData(tv3_monocytes)[["finaloutcome"]] == "failure")
## [1] 7
all_types[["neutrophils"]]
## [1] 62
sum(pData(t_neutrophils)[["finaloutcome"]] == "cure")
## [1] 20
sum(pData(t_neutrophils)[["finaloutcome"]] == "failure")
## [1] 21
nrow(pData(tv1_neutrophils))
## [1] 16
sum(pData(tv1_neutrophils)[["finaloutcome"]] == "cure")
## [1] 8
sum(pData(tv1_neutrophils)[["finaloutcome"]] == "failure")
## [1] 8
nrow(pData(tv2_monocytes))
## [1] 13
sum(pData(tv2_neutrophils)[["finaloutcome"]] == "cure")
## [1] 7
sum(pData(tv2_neutrophils)[["finaloutcome"]] == "failure")
## [1] 6
nrow(pData(tv3_neutrophils))
## [1] 12
sum(pData(tv3_neutrophils)[["finaloutcome"]] == "cure")
## [1] 5
sum(pData(tv3_neutrophils)[["finaloutcome"]] == "failure")
## [1] 7
if (!isTRUE(get0("skip_load"))) {
  pander::pander(sessionInfo())
  message(paste0("This is hpgltools commit: ", get_git_commit()))
  message(paste0("Saving to ", savefile))
  tmp <- sm(saveme(filename=savefile))
}

12 Dataset: Parasite reads

Make an expressionset of the parasite reads in the TMRC3 samples and distinguish between the faux and real reads. E.g: Are there samples which definitively contain parasites?

Later, I manually went through the mappings of samples with a significant number of parasite reads in IGV with some TMRC2 known zymodeme samples. In many cases it is possible to state definitively the classification of the parasite which infected an individual.

lp_expt <- sm(create_expt(
    samplesheet,
    file_column="lpanamensisv36hisatfile", gene_info = NULL)) %>%
  subset_expt(coverage=1000) %>%
  set_expt_conditions(fact="typeofcells")
## The samples removed (and read coverage) when filtering samples with less than 1000 reads are:
## TMRC30001 TMRC30002 TMRC30003 TMRC30004 TMRC30005 TMRC30006 TMRC30007 TMRC30008 
##        12         8         9        16        25        29         3        16 
## TMRC30009 TMRC30010 TMRC30011 TMRC30012 TMRC30013 TMRC30185 TMRC30186 TMRC30178 
##        16         0         5         9        13         0       852       420 
## TMRC30179 TMRC30221 TMRC30222 TMRC30223 TMRC30224 TMRC30269 TMRC30148 TMRC30150 
##       515         0         0         0         2        58       706       470 
## TMRC30140 TMRC30138 TMRC30151 TMRC30234 TMRC30235 TMRC30270 TMRC30225 TMRC30226 
##       153       156       480         0         0        21         0         0 
## TMRC30227 TMRC30228 TMRC30229 TMRC30230 TMRC30231 TMRC30232 TMRC30233 TMRC30018 
##         0         0         0         0         0         1         0       110 
## TMRC30209 TMRC30210 TMRC30211 TMRC30212 TMRC30213 TMRC30216 TMRC30214 TMRC30215 
##         0         0         0         0         0         0         0         1 
## TMRC30271 TMRC30273 TMRC30275 TMRC30272 TMRC30274 TMRC30276 TMRC30254 TMRC30277 
##         4         2         2         0         0         1       208         6 
## TMRC30239 TMRC30240 TMRC30278 TMRC30279 TMRC30280 TMRC30257 TMRC30281 TMRC30283 
##       209       314         0         0         3       427       548        18 
## TMRC30284 TMRC30282 TMRC30050 TMRC30285 TMRC30164 TMRC30119 TMRC30025 TMRC30032 
##         4         1       345         0       424       419       954        22 
## TMRC30028 TMRC30118 TMRC30014 TMRC30196 TMRC30030 TMRC30021 TMRC30023 TMRC30037 
##        93       747         4       687         3        88       120         9 
## TMRC30031 TMRC30165 TMRC30027 TMRC30194 TMRC30033 TMRC30038 TMRC30166 TMRC30036 
##         8       433       108       198        36       208       496        11 
## TMRC30024 TMRC30195 TMRC30034 TMRC30045 TMRC30040 TMRC30035 TMRC30041 TMRC30171 
##        49       458        21       334       896       153       264       370 
## TMRC30192 TMRC30139 TMRC30042 TMRC30158 TMRC30160 TMRC30189 TMRC30123 TMRC30181 
##       384       140       545       284       296       307       304       613 
## TMRC30043 TMRC30159 TMRC30129 TMRC30172 TMRC30174 TMRC30137 TMRC30161 TMRC30142 
##       571       405       353       383       644       389       300         4 
## TMRC30190 TMRC30145 TMRC30143 TMRC30197 TMRC30146 TMRC30182 TMRC30198 TMRC30266 
##       537         0         1       202         0       468       158       822 
## TMRC30201 TMRC30200 TMRC30203 TMRC30202 TMRC30205 TMRC30152 TMRC30155 TMRC30154 
##       149        96       104       145       169       495       508       398 
## TMRC30206 TMRC30207 TMRC30238 TMRC30217 TMRC30208 TMRC30219 TMRC30218 TMRC30260 
##       125         0       335         0         1         0         2       291 
## TMRC30220 TMRC30262 TMRC30261 TMRC30173 TMRC30264 TMRC30263 TMRC30144 TMRC30147 
##         0       905       500       898       309       431         0         1 
## TMRC30265 
##       596
## subset_expt(): There were 244, now there are 99 samples.
visit_fact <- pData(lp_expt)[["visitnumber"]]
batch_na <- is.na(visit_fact)
visit_fact[batch_na] <- "undefined"
lp_expt <- set_expt_batches(lp_expt, fact = visit_fact)
save(list = "lp_expt", file = glue::glue("rda/tmrc3_lp_expt_all_sanitized-v{ver}.rda"))
data_structures <- c(data_structures, "lp_expt")

The above block is similar in concept to the previous expressionset creation. It uses a different column and currently ignores the gene annotations. Given that many of the samples have essentially 0 reads, I set a cutoff of only 20 observed genes. Finally, I did a quick and dirty PCA plot of this peculiar data structure in the hopes of being able to ‘see’ the difference between what are assumed to be ‘real’ samples with a significant number of ‘real’ parasite reads vs. those samples which just have a couple of potentially spurious reads.

tmp <- loadme(filename=savefile)
LS0tCnRpdGxlOiAiTC4gcGFuYW1lbnNpcyAyMDIyMDk6IENyZWF0aW5nIFRNUkMzIERhdGEgU3RydWN0dXJlcyIKYXV0aG9yOiAiYXRiIGFiZWxld0BnbWFpbC5jb20iCmRhdGU6ICJgciBTeXMuRGF0ZSgpYCIKb3V0cHV0OgogaHRtbF9kb2N1bWVudDoKICBjb2RlX2Rvd25sb2FkOiB0cnVlCiAgY29kZV9mb2xkaW5nOiBzaG93CiAgZmlnX2NhcHRpb246IHRydWUKICBmaWdfaGVpZ2h0OiA3CiAgZmlnX3dpZHRoOiA3CiAgaGlnaGxpZ2h0OiBkZWZhdWx0CiAga2VlcF9tZDogZmFsc2UKICBtb2RlOiBzZWxmY29udGFpbmVkCiAgbnVtYmVyX3NlY3Rpb25zOiB0cnVlCiAgc2VsZl9jb250YWluZWQ6IHRydWUKICB0aGVtZTogcmVhZGFibGUKICB0b2M6IHRydWUKICB0b2NfZmxvYXQ6CiAgIGNvbGxhcHNlZDogZmFsc2UKICAgc21vb3RoX3Njcm9sbDogZmFsc2UKLS0tCgo8c3R5bGU+CiAgYm9keSAubWFpbi1jb250YWluZXIgewogICAgbWF4LXdpZHRoOiAxNjAwcHg7CiAgfQo8L3N0eWxlPgoKYGBge3Igb3B0aW9ucywgaW5jbHVkZT1GQUxTRX0KbGlicmFyeShocGdsdG9vbHMpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZm9yY2F0cykKdHQgPC0gc20oZGV2dG9vbHM6OmxvYWRfYWxsKCJ+L2hwZ2x0b29scyIpKQprbml0cjo6b3B0c19rbml0JHNldChwcm9ncmVzcz1UUlVFLAogICAgICAgICAgICAgICAgICAgICB2ZXJib3NlPVRSVUUsCiAgICAgICAgICAgICAgICAgICAgIHdpZHRoPTkwLAogICAgICAgICAgICAgICAgICAgICBlY2hvPVRSVUUpCmtuaXRyOjpvcHRzX2NodW5rJHNldChlcnJvcj1UUlVFLAogICAgICAgICAgICAgICAgICAgICAgZmlnLndpZHRoPTgsCiAgICAgICAgICAgICAgICAgICAgICBmaWcuaGVpZ2h0PTgsCiAgICAgICAgICAgICAgICAgICAgICBkcGk9OTYpCm9sZF9vcHRpb25zIDwtIG9wdGlvbnMoZGlnaXRzPTQsCiAgICAgICAgICAgICAgICAgICAgICAgc3RyaW5nc0FzRmFjdG9ycz1GQUxTRSwKICAgICAgICAgICAgICAgICAgICAgICBrbml0ci5kdXBsaWNhdGUubGFiZWw9ImFsbG93IikKZ2dwbG90Mjo6dGhlbWVfc2V0KGdncGxvdDI6OnRoZW1lX2J3KGJhc2Vfc2l6ZT0xMikpCnZlciA8LSAiMjAyMjA5IgpwcmV2aW91c19maWxlIDwtIHBhc3RlMCgiMDFfYW5ub3RhdGlvbl92IiwgdmVyLCAiLlJtZCIpCnJ1bmRhdGUgPC0gZm9ybWF0KFN5cy5EYXRlKCksIGZvcm1hdD0iJVklbSVkIikKCiMjdG1wIDwtIHRyeShzbShsb2FkbWUoZmlsZW5hbWU9Z3N1YihwYXR0ZXJuPSJcXC5SbWQiLCByZXBsYWNlPSJcXC5yZGFcXC54eiIsIHg9cHJldmlvdXNfZmlsZSkpKSkKcm1kX2ZpbGUgPC0gZ2x1ZTo6Z2x1ZSgidG1yYzNfZGF0YXNldHNfe3Zlcn0uUm1kIikKc2F2ZWZpbGUgPC0gZ3N1YihwYXR0ZXJuPSJcXC5SbWQiLCByZXBsYWNlPSJcXC5yZGFcXC54eiIsIHg9cm1kX2ZpbGUpCmBgYAoKIyBJbnRyb2R1Y3Rpb24KCldlIGFyZSBzcGxpdHRpbmcgdGhlIGNyZWF0aW9uIG9mIHRoZSB2YXJpb3VzIGRhdGEgc3RydWN0dXJlcyBhbmQgdGhlaXIKYW5hbHlzaXMgaW50byBzZXBhcmF0ZSBkb2N1bWVudHMuCgojIyBNZXRhZGF0YSBTb3VyY2VzCgpDdXJyZW50bHkgd2UgdXNlIHRoZSBzYW1wbGUgbWV0YWRhdGEgYW5kIHRoZSBDUkYgZGF0YSBmcm9tIHRoZSBjbGluaWMuCgpgYGB7ciBtZXRhZGF0YV9zb3VyY2VzfQojIyBzYW1wbGVzaGVldCA8LSAic2FtcGxlX3NoZWV0cy90bXJjM19zYW1wbGVzXzIwMjIwNjE1Lnhsc3giCiMjIFJlZHVuZGFudCBzYW1wbGUgc2hlZXQgZW50cmllcyBzbyB3ZSBjYW4gdGVzdCBpZiBzb21ldGhpbmcgY2hhbmdlZCBpbiBKdW5lCnNhbXBsZXNoZWV0IDwtICJzYW1wbGVfc2hlZXRzL3RtcmMzX3NhbXBsZXNfMjAyMjA3MjgueGxzeCIKY3JmX21ldGFkYXRhIDwtICJzYW1wbGVfc2hlZXRzLzIwMjIwNTA5X0VYUF9FU1BFQ0lBTF9UTVJDM19WMi54bHN4IgpgYGAKCiMgQW5ub3RhdGlvbiBDb2xsZWN0aW9uCgpUaGUgcHJpbWFyeSBhbm5vdGF0aW9uIHNvdXJjZXMgYXJlOgoKMS4gIEVuc2VtYmwncyBiaW9tYXJ0IGFyY2hpdmUgZnJvbSAyMDIwIGZvciBodW1hbiBhbm5vdGF0aW9ucy4KMi4gIFRoZSBUcmlUcnlwREIgcmVsZWFzZSAzNiBmb3IgcGFyYXNpdGUgYW5ub3RhdGlvbnMuCgpCb3RoIHByb3ZpZGUgR08gZGF0YS4gIFRoZXkgYWxzbyBwcm92aWRlIGhlbHBmdWwgbGlua3MgdG8gb3RoZXIgZGF0YQpzb3VyY2VzLiAgRm9yIHRoZSBtb21lbnQsIHdlIGFyZSBmb2N1c2luZyBvbiB0aGUgaHVtYW4gYW5ub3RhdGlvbnMuCgojIyBHZW5lIGFubm90YXRpb25zCgpUaGVzZSBhbmFseXNlcyBoYXZlIGZvY3VzZWQgb24gZ2VuZS1sZXZlbCBhYnVuZGFuY2VzL2RpZmZlcmVuY2VzLgpUaHVzLCB3aGVuIGh0c2VxLWNvdW50IHdhcyBpbnZva2VkIGFnYWluc3QgdGhlIGhpc2F0Mi1iYXNlZCBtYXBwaW5ncywKcGFyYW1ldGVycyB3ZXJlIGNob3NlbiB0byBjb3VudCBnZW5lcyByYXRoZXIgdGhhbiB0cmFuc2NyaXB0cy4gIEluIHRoaXMKY29udGV4dCwgYSBnZW5lIHJlZmVycyB0byB0aGUgbm9uLXJlZHVuZGFudCB1bmlvbiBvZiB0aGUgdHJhbnNjcmlwdHMnIGV4b25zLgpTaW1pbGFybHksIHdoZW4gc2FsbW9uIGNvdW50cyB3ZXJlIHVzZWQgdmlhIHR4aW1wb3J0LCBhIG1hcHBpbmcgb2YKZ2VuZXMgdG8gdHJhbnNjcmlwdHMgd2FzIHVzZWQgdG8gY29sbGFwc2UgdGhlIG1hdHJpeCB0byBnZW5lLWxldmVsCmFidW5kYW5jZXMuICBUaGlzIGRlY2lzaW9uIG1heSBiZSByZXZpc2l0ZWQuCgpgYGB7ciBjb2xsZWN0X2Fubm90YXRpb25zfQpoc19hbm5vdCA8LSBsb2FkX2Jpb21hcnRfYW5ub3RhdGlvbnMoeWVhcj0iMjAyMCIsIG1vbnRoPSJqYW4iKQpoc19hbm5vdCA8LSBoc19hbm5vdFtbImFubm90YXRpb24iXV0KIyMgVGhlIG5leHQgdHdvIGxpbmVzIG1ha2UgYSBicmlkZ2UgYmV0d2VlbiB0aGUgZ2ZmIGZpbGUgdXNlZCBieSBoaXNhdDIKIyMgYW5kIHRoZSBnZW5lIElEcy4KaHNfYW5ub3RbWyJ0cmFuc2NyaXB0Il1dIDwtIHBhc3RlMChyb3duYW1lcyhoc19hbm5vdCksICIuIiwgaHNfYW5ub3RbWyJ2ZXJzaW9uIl1dKQpyb3duYW1lcyhoc19hbm5vdCkgPC0gbWFrZS5uYW1lcyhoc19hbm5vdFtbImVuc2VtYmxfZ2VuZV9pZCJdXSwgdW5pcXVlPVRSVUUpCgojIyBUaGUgdHhfZ2VuZV9tYXAgaXMgdXNlZCBmb3IgdHhpbXBvcnQgYW5kIHNhbG1vbiBxdWFudGlmaWNhdGlvbnMuCnR4X2dlbmVfbWFwIDwtIGhzX2Fubm90WywgYygidHJhbnNjcmlwdCIsICJlbnNlbWJsX2dlbmVfaWQiKV0Kc3VtbWFyeShoc19hbm5vdCkKYGBgCgojIyBHZW5lIG9udG9sb2d5IGRhdGEKClRoZSBzZXQgb2YgR08gY2F0ZWdvcmllcyBoYXMgbm90IGJlZW4gbGltaXRlZCB0byB0aGUgMjAyMCBkYXRhIGF0IHRoZQp0aW1lIG9mIHRoaXMgd3JpdGluZy4gIFRoZSBHTyBjYXRlZ29yaWVzIGlzIGNvbGxlY3RlZCBhbG9uZyB3aXRoCmxlbmd0aHMgZm9yIGdvc2VxLiAgVGhlIG90aGVyIG1ldGhvZHMgZWl0aGVyIGhhdmUgYnVpbHQtaW4gZGF0YWJhc2VzCm9mIGh1bWFuIGRhdGEgKGdQcm9maWxlcikgb3Igc3VwcG9ydCBvcmdEQiBkYXRhIChvcmcuSHMuZWcuZGIpCihjbHVzdGVyUHJvZmlsZXIvdG9wR08vZ29zdGF0cykuCgpgYGB7ciBoc19nb30KaHNfZ28gPC0gbG9hZF9iaW9tYXJ0X2dvKClbWyJnbyJdXQpoc19sZW5ndGggPC0gaHNfYW5ub3RbLCBjKCJlbnNlbWJsX2dlbmVfaWQiLCAiY2RzX2xlbmd0aCIpXQpjb2xuYW1lcyhoc19sZW5ndGgpIDwtIGMoIklEIiwgImxlbmd0aCIpCmBgYAoKIyBEYXRhc2V0OiBDcmVhdGUgdGhlIHBhcmVudCBkYXRhIHN0cnVjdHVyZSBvZiBhbGwgc2FtcGxlcwoKQmVmb3JlIHdlIGRvIGFueSBvZiB0aGUgZm9sbG93aW5nIHN1YnNldHMvYW5hbHlzZXMgb2YgdGhlIGRhdGEsIHdlCm5lZWQgdG8gY29sbGVjdCBpdCBhbGwgaW4gb25lIHBsYWNlLiAgTGV0J3MgZG8gdGhhdCBoZXJlIGFuZCBuYW1lIGl0Cidoc19leHB0JywgaXQgd2lsbCBjb21wcmlzZSB0aGUgZnVsbCBzZXQgb2YgaHVtYW4gZGF0YS4gIFdoZW4gd2UgY3VsbApzb21lIHNhbXBsZXMgaXQgd2lsbCBiZSByZW5hbWVkIHRvICdoc192YWxpZCcuCgpUaGUgdmFyaWFibGUgJ2RhdGFfc3RydWN0dXJlcycgd2lsbCBjb250YWluIHRoZSBuYW1lcyBvZiBldmVyeQp2YXJpYWJsZSBJIGNyZWF0ZSBpbiB0aGlzIGRvY3VtZW50IHdoaWNoIEkgd2lzaCB0byBzYXZlIHRvIGRpc2suCgpTaW1pbGFybHksIHRoZSBjaGFyYWN0ZXIgdmVjdG9yICdzYW5pdGl6ZV9jb2x1bW5zJyBpcyB0aGUgbGlzdCBvZgptZXRhZGF0YSBjb2x1bW5zIG92ZXIgd2hpY2ggSSB3aWxsIGl0ZXJhdGUgYW5kIHNhbml0aXplIHRoZSBkYXRhLApyZW1vdmluZyBhbnkgc3B1cmlvdXMgc3BhY2VzLCBjYXBpdGFsaXphdGlvbiwgZXRjLgoKYGBge3IgYWxsX2RhdGF9CmRhdGFfc3RydWN0dXJlcyA8LSBjKCkKc2FuaXRpemVfY29sdW1ucyA8LSBjKCJ2aXNpdG51bWJlciIsICJmaW5hbG91dGNvbWUiLCAiZG9ub3IiLAogICAgICAgICAgICAgICAgICAgICAgInR5cGVvZmNlbGxzIiwgImNsaW5pY2FscHJlc2VudGF0aW9uIiwgImRydWciLAogICAgICAgICAgICAgICAgICAgICAgImNvbmRpdGlvbiIsICJiYXRjaCIpCmhzX2V4cHQgPC0gY3JlYXRlX2V4cHQoc2FtcGxlc2hlZXQsCiAgICAgICAgICAgICAgICAgICAgICAgZmlsZV9jb2x1bW49ImhnMzgxMDBoaXNhdGZpbGUiLAogICAgICAgICAgICAgICAgICAgICAgIHNhdmVmaWxlPWdsdWU6OmdsdWUoInJkYS90bXJjM19oc19leHB0X2FsbF9yYXctdnt2ZXJ9LnJkYSIpLAogICAgICAgICAgICAgICAgICAgICAgIGdlbmVfaW5mbz1oc19hbm5vdCkgJT4lCiAgZXhjbHVkZV9nZW5lc19leHB0KGNvbHVtbj0iZ2VuZV9iaW90eXBlIiwgbWV0aG9kPSJrZWVwIiwKICAgICAgICAgICAgICAgICAgICAgcGF0dGVybj0icHJvdGVpbl9jb2RpbmciLCBtZXRhX2NvbHVtbj0ibmNybmFfbG9zdCIpICU+JQogIHNhbml0aXplX2V4cHRfbWV0YWRhdGEoY29sdW1ucz1zYW5pdGl6ZV9jb2x1bW5zKSAlPiUKICBzZXRfZXhwdF9mYWN0b3JzKGNvbHVtbnM9c2FuaXRpemVfY29sdW1ucywgY2xhc3M9ImZhY3RvciIpICU+JQogIHNldF9leHB0X2NvbmRpdGlvbnMoZmFjdD0iZmluYWxvdXRjb21lIikgJT4lCiAgc2V0X2V4cHRfYmF0Y2hlcyhmYWN0PSJ2aXNpdG51bWJlciIpICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0idHlwZW9mY2VsbHMhPSdwYm1jcyciKSAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQ9InR5cGVvZmNlbGxzIT0nbWFjcm9waGFnZXMnIikgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJjbGluaWNhbHByZXNlbnRhdGlvbiE9J2gnIikKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAiaHNfZXhwdCIpCgojIyBUaGUgZm9sbG93aW5nIHNob3VsZCBtYWtlIHZpc2l0IDEgdGhlIGxhcmdlc3QgaWYgb25lIHVzZXMgdGhhdCBjb2x1bW4gYXMgYSBzaXplIGZhY3RvciB3aGVuIHBsb3R0aW5nLgptZXRhIDwtIHBEYXRhKGhzX2V4cHQpICU+JQogIG11dGF0ZSh2aXNpdG51bWJlciA9IGZjdF9yZWxldmVsKHZpc2l0bnVtYmVyLCBjKCIzIiwgIjIiLCAiMSIpKSkKcERhdGEoaHNfZXhwdCkgPC0gbWV0YQpzYXZlKGxpc3QgPSAiaHNfZXhwdCIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfaHNfZXhwdF9hbGxfc2FuaXRpemVkLXZ7dmVyfS5yZGEiKSkKYGBgCgojIyBBZGQgdGhlIENSRiBwYXRpZW50IG1ldGFkYXRhCgpUaGVyZSBhcmUgc29tZSBwYXJhbWV0ZXJzIHByb3ZpZGVkIGJ5IHRoZSBjbGluaWNpYW5zIHdoaWNoIG1heSBwcm92ZQp0byBiZSBvZiBpbnRlcmVzdC4gIEkgdGhlcmVmb3JlIGFtIGFkZGluZyB0aGUgQ1JGIG1ldGFkYXRhIGhlcmUuICBJCndpbGwgYWxzbyBydW4gc29tZSBzaW1wbGUgY2hlY2tzIHRvIHRyeSB0byBtYWtlIHN1cmUgdGhhdCB0aGUKY2xpbmljaWFuJ3MgbWV0YWRhdGEgYWdyZWVzIHdpdGggdGhlIHNhbXBsZSBtZXRhZGF0YS4KCmBgYHtyIG1lcmdlX2NyZn0KaHNfcGQgPC0gcERhdGEoaHNfZXhwdCkKc3RhcnQgPC0gcm93bmFtZXMoaHNfcGQpCmhzX2NyZiA8LSBvcGVueGxzeDo6cmVhZC54bHN4KGNyZl9tZXRhZGF0YSkKaHNfY3JmW1siam9pbiJdXSA8LSB0b2xvd2VyKGhzX2NyZltbImNvZGlnb19wYWNpZW50ZSJdXSkKaHNfcGRbWyJqb2luIl1dIDwtIGhzX3BkW1sidHViZWxhYmVsb3JpZ2luIl1dCnRlc3QgPC0gcGx5cjo6am9pbihoc19wZCwgaHNfY3JmLCBieT0iam9pbiIpCnRlc3RbWyJqb2luIl1dIDwtIE5VTEwKcm93bmFtZXModGVzdCkgPC0gcm93bmFtZXMoaHNfcGQpCm5hX2lkeCA8LSBpcy5uYSh0ZXN0KQp0ZXN0W25hX2lkeF0gPC0gInVuZGVmaW5lZCIKcERhdGEoaHNfZXhwdCkgPC0gdGVzdAoKc2F2ZShsaXN0ID0gImhzX2V4cHQiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX2hzX2V4cHRfYWxsX3Nhbml0aXplZF9jcmYtdnt2ZXJ9LnJkYSIpKQpgYGAKCiMjIFNhbml0eSBjaGVjaywgY2xpbmljYWwgb3V0Y29tZSB2cy4gQ1JGIGRhdGEKCkNoZWNrIHRvIG1ha2Ugc3VyZSB0aGUgQ1JGIGFncmVlcyB3aXRoIHRoZSBtZXRhZGF0YS4KCmBgYHtyIGNmX3Nhbml0eX0KdHdvX2NvbHVtbnMgPC0gcERhdGEoaHNfZXhwdClbLCBjKCJmaW5hbG91dGNvbWUiLCAiZWZfbGNfZXN0YWRvX2ZpbmFsX2VzdHVkaW8iKV0KdW5kZWZfaWR4IDwtIHR3b19jb2x1bW5zW1syXV0gPT0gInVuZGVmaW5lZCIKdHdvX2NvbHVtbnMgPC0gdHdvX2NvbHVtbnNbIXVuZGVmX2lkeCwgXQp0d29fY29sdW1uc1tbInJld3JpdHRlbiJdXSA8LSAidW5kZWYiCmN1cmVfaWR4IDwtIHR3b19jb2x1bW5zW1syXV0gPT0gMAp0d29fY29sdW1uc1tjdXJlX2lkeCwgInJld3JpdHRlbiJdIDwtICJjdXJlIgpmYWlsX2lkeCA8LSB0d29fY29sdW1uc1tbMl1dID09IDEKdHdvX2NvbHVtbnNbZmFpbF9pZHgsICJyZXdyaXR0ZW4iXSA8LSAiZmFpbHVyZSIKbG9zdF9pZHggPC0gdHdvX2NvbHVtbnNbWzJdXSA9PSAyCnR3b19jb2x1bW5zW2xvc3RfaWR4LCAicmV3cml0dGVuIl0gPC0gImxvc3QiCnNhbWVfaWR4IDwtIHR3b19jb2x1bW5zW1siZmluYWxvdXRjb21lIl1dID09IHR3b19jb2x1bW5zW1sicmV3cml0dGVuIl1dCmJyb2tlbiA8LSB0d29fY29sdW1uc1shc2FtZV9pZHgsIF0KYnJva2VuCmBgYAoKIyMgU3VtbWFyaXplOiBDb2xsZWN0IHNhbXBsZSBudW1iZXJzIGJlZm9yZSBmaWx0ZXJpbmcKClRoZXJlIGFyZSBzb21lIG1ldGFkYXRhIGZhY3RvcnMgZm9yIHdoaWNoIEkgdGhpbmsgaXQgd2lsbCBiZSBuaWNlIHRvCnNlZSB0aGUgbnVtYmVycyBiZWZvcmUgYW5kIGFmdGVyIG91ciBmaWx0ZXJzLiAgVGhlIGZvbGxvd2luZyBzaG93cyBob3cKbWFueSBzYW1wbGVzIHdlIGhhdmUgb2YgdGhlIHByaW1hcnkgdHlwZXMgYmVmb3JlIGZpbHRlcmluZy4KCmBgYHtyIHRhYmxlX3ZhbGlkX3ByZX0KZGltKHBEYXRhKGhzX2V4cHQpKQp0YWJsZShwRGF0YShoc19leHB0KSRkcnVnKQp0YWJsZShwRGF0YShoc19leHB0KSRjbGluaWMpCnRhYmxlKHBEYXRhKGhzX2V4cHQpJGZpbmFsb3V0Y29tZSkKdGFibGUocERhdGEoaHNfZXhwdCkkdHlwZW9mY2VsbHMpCnRhYmxlKHBEYXRhKGhzX2V4cHQpJHZpc2l0KQpzdW1tYXJ5KGFzLm51bWVyaWMocERhdGEoaHNfZXhwdCkkZWJfbGNfdGllbXBvX2V2b2x1Y2lvbikpCnN1bW1hcnkoYXMubnVtZXJpYyhwRGF0YShoc19leHB0KSRlYl9sY190dG9fbWN0b19nbHVjYW5fZG9zaXMpKQpzdW1tYXJ5KGFzLm51bWVyaWMocERhdGEoaHNfZXhwdCkkdjNfbGNfZWpleV9sZXNpb25fbW1fMSkpCnN1bW1hcnkoYXMubnVtZXJpYyhwRGF0YShoc19leHB0KSR2M19sY19sZXNpb25fYXJlYV8xKSkKc3VtbWFyeShhcy5udW1lcmljKHBEYXRhKGhzX2V4cHQpJHYzX2xjX2VqZXhfdWxjZXJhX21tXzEpKQp0YWJsZShwRGF0YShoc19leHB0KSRlYl9sY19zZXhvKQp0YWJsZShwRGF0YShoc19leHB0KSRlYl9sY19ldG5pYSkKc3VtbWFyeShhcy5udW1lcmljKHBEYXRhKGhzX2V4cHQpJGVkYWQpKQp0YWJsZShwRGF0YShoc19leHB0KSRlYl9sY19wZXNvKQp0YWJsZShwRGF0YShoc19leHB0KSRlYl9sY19lc3RhdHVyYSkKdGFibGUocERhdGEoaHNfZXhwdCkkZWZfbGNfZXN0YWRvX2ZpbmFsX2VzdHVkaW8pCnRhYmxlKHBEYXRhKGhzX2V4cHQpJGZpbmFsb3V0Y29tZSkKCnVuaXF1ZShwRGF0YShoc19leHB0KSRjb2RpZ29fcGFjaWVudGUpCmxlbmd0aCh1bmlxdWUocERhdGEoaHNfZXhwdCkkY29kaWdvX3BhY2llbnRlKSkKYGBgCgpHZXQgdGhlIHNleCBvZiB0aGUgdW5pcXVlIHBhdGllbnRzLgoKYGBge3IgdW5pcXVlX3NleH0KdW5pcXVlX3Blb3BsZSA8LSB1bmlxdWUocERhdGEoaHNfZXhwdCkkY29kaWdvX3BhY2llbnRlKQp1bmlxdWVfcGVvcGxlCmxlbmd0aCh1bmlxdWVfcGVvcGxlKQoKZGYgPC0gcERhdGEoaHNfZXhwdCkKcGVvcGxlIDwtIGRmW1siY29kaWdvX3BhY2llbnRlIl1dCmZpcnN0X2luZGljZXMgPC0gb3JkZXIocGVvcGxlKVshZHVwbGljYXRlZChzb3J0KHBlb3BsZSkpXQp0YWJsZShkZltmaXJzdF9pbmRpY2VzLCAiZWJfbGNfc2V4byJdKQp0YWJsZShkZltmaXJzdF9pbmRpY2VzLCAiZmluYWxvdXRjb21lIl0pCmBgYAoKIyMgRGVmaW5lIGRlc2lyZWQgY29sb3JzIGZvciB0aGUgdmFyaW91cyBzdWJzZXRzCgpUaGVyZSBhcmUgbG90cyBvZiB3YXlzIHdoaWNoIHdlIHdpbGwgY2F0ZWdvcml6ZSB0aGUgZGF0YSwgaGVyZSBhcmUKc29tZSBwb3RlbnRpYWwgY29sb3IgY2hvaWNlcyBmb3IgdGhlbS4KCmBgYHtyIGNvbG9yX2Nob2ljZXN9CmNvbG9yX2Nob2ljZXMgPC0gbGlzdCgKICAgICJjZiIgPSBsaXN0KAogICAgICAgICJjdXJlIiA9ICIjOTk4RUMzIiwKICAgICAgICAiZmFpbHVyZSIgPSAiI0YxQTM0MCIpLAogICAgInR5cGVfdmlzaXQiID0gbGlzdCgKICAgICAgICAibW9ub2N5dGVzX3YxIiA9ICIjREQxQzc3IiwKICAgICAgICAibW9ub2N5dGVzX3YyIiA9ICIjQzk5NEM3IiwKICAgICAgICAibW9ub2N5dGVzX3YzIiA9ICIjRTdFMUVGIiwKICAgICAgICAiZW9zaW5vcGhpbHNfdjEiID0gIiMzMUEzNTQiLAogICAgICAgICJlb3Npbm9waGlsc192MiIgPSAiI0FEREQ4RSIsCiAgICAgICAgImVvc2lub3BoaWxzX3YzIiA9ICIjRjdGQ0Q5IiwKICAgICAgICAibmV1dHJvcGhpbHNfdjEiID0gIiMzMTgyQkQiLAogICAgICAgICJuZXV0cm9waGlsc192MiIgPSAiIzlFQ0FFMSIsCiAgICAgICAgIm5ldXRyb3BoaWxzX3YzIiA9ICIjREVFQkY3IiwKICAgICAgICAiYmlvcHN5X3YxIiA9ICIjRDk1RjBFIiksCiAgICAidHlwZSIgPSBsaXN0KAogICAgICAgICJtb25vY3l0ZXMiID0gIiNERDFDNzciLAogICAgICAgICJlb3Npbm9waGlscyIgPSAiIzMxQTM1NCIsCiAgICAgICAgIm5ldXRyb3BoaWxzIiA9ICIjMzE4MkJEIiwKICAgICAgICAiYmlvcHN5IiA9ICIjRDk1RjBFIiksCiAgICAidmlzaXQiID0gbGlzdCgKICAgICAgICAjIyBUdXJucyBvdXQgd2UgbmV2ZXIgZGVjaWRlZCBvbiB2aXNpdC1zcGVjaWZpYyBjb2xvcnMuLi4KICAgICAgICAidjEiID0gIiNERDAwMDAiLAogICAgICAgICJ2MiIgPSAiIzAwREQwMCIsCiAgICAgICAgInYzIiA9ICIjMDAwMEREIiksCiAgICAiY2ZfdHlwZSIgPC0gbGlzdCgKICAgICAgICBjdXJlX2Jpb3BzeSA9ICIjRDk1RjBFIiwKICAgICAgICBmYWlsdXJlX2Jpb3BzeSA9ICIjRkVDNDRGIiwKICAgICAgICBjdXJlX21vbm9jeXRlcyA9ICIjREQxQzc3IiwKICAgICAgICBmYWlsdXJlX21vbm9jeXRlcyA9ICIjQzk5NEM3IiwKICAgICAgICBjdXJlX2Vvc2lub3BoaWxzID0gIiMzMUEzNTQiLAogICAgICAgIGZhaWx1cmVfZW9zaW5vcGhpbHMgPSAiI0FEREQ4RSIsCiAgICAgICAgY3VyZV9uZXV0cm9waGlscyA9ICIjMzE4MkJEIiwKICAgICAgICBmYWlsdXJlX25ldXRyb3BoaWxzID0gIiM5RUNBRTEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAiY29sb3JfY2hvaWNlcyIpCmBgYAoKIyBEZWZpbmUgdGhlIHN0YXJ0aW5nIGRhdGEKCkdpdmVuIHRoZSBzdGFydGluZyBwb2ludCBhYm92ZSwgd2Ugd2lsbCBzdGFydCBleHRyYWN0aW5nIGdyb3VwcyBvZgpzYW1wbGVzIG9mIGludGVyZXN0IGFuZCBnaXZpbmcgdGhlbSBob3BlZnVsbHkgdXNlZnVsIG5hbWVzLgoKIyMgU2V0IG91ciBpbml0aWFsIGNvdmVyYWdlIGdvYWwKClRoZSBmaXJzdCBzZXQgb2Ygc2FtcGxlcyByZW1vdmVkIGZyb20gdGhlIGRhdGEgYXJlIHRob3NlIHdpdGggdG9vIG1hbnkKbWlzc2luZyBnZW5lcy4KCiMjIEZpZ3VyZSBYWDogTm9uLXplcm8gZ2VuZXMgYmVmb3JlIHNhbXBsZSBmaWx0ZXJpbmcKCmBgYHtyIGhzX3ByZV9uen0KYWxsX256IDwtIHBsb3Rfbm9uemVybyhoc19leHB0KQphbGxfbnokcGxvdApgYGAKCiMjIyBTYXZlIENQTSwgYWxsIHNhbXBsZXMKCmBgYHtyIGNwbV9hbGx9Cnhsc3hfcHJlZml4IDwtICJhbmFseXNlcyIKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQoaHNfZXhwdCwgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9Z2x1ZTo6Z2x1ZSgie3hsc3hfcHJlZml4fS8zX2NhbGlfYW5kX3R1bWFjby9DUE0vYWxsX3NhbXBsZXMueGxzeCIpKQoKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KGhzX2V4cHQsIGZpbHRlcj1UUlVFLCBjb252ZXJ0PSJycGttIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbj0iY2RzX2xlbmd0aCIsIG5hX3RvX3plcm89VFJVRSkKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS9oc19leHB0X3Jwa20tdnt2ZXJ9LmNzdiIpKQpgYGAKCiMjIFN1YnNldDogRmlsdGVyIG91dCBwcm9ibGVtYXRpYyBzYW1wbGVzCgpUbyBteSBleWVzLCB0aGVyZSBhcmUgMyBvciA0IHNhbXBsZXMgd2hpY2ggYXJlIGxpa2VseSBjYW5kaWRhdGVzIGZvcgpyZW1vdmFsLiAgSW4gYWRkaXRpb24sIHdlIHdpbGwgcmVtb3ZlIHNhbXBsZXMgd2hpY2ggd2VyZSBsb3N0IGR1cmluZwp0aGUgdHJlYXRtZW50IGFuZC9vciBvbmVzIHdoaWNoIHdlcmUgdXNlZCBpbiBvdGhlciBleHBlcmltZW50cyBidXQKaW5jbHVkZWQgaW4gdGhlIFRNUkMzIHNhbXBsZSBzaGVldCAodGh1cyB0aGUgJ25vdGFwcGxpY2FibGUnIG9yCidudWxsJykuCgpOT1RFOiBJIGNoYW5nZWQgdGhlIHByZWZpeCBvZiB0aGUgZGF0YSBzdHJ1Y3R1cmVzIHRvIHJlZmxlY3QgdGhlCmNsaW5pYyhzKSBmcm9tIHdoaWNoIHRoZXkgd2VyZSBhY3F1aXJlZC4gVGhpcyB3aWxsIGxpa2VseSBiZSBhIHByb2JsZW0KdW50aWwgSSBjYXJlZnVsbHkgc3RlcCB0aHJvdWdoIHRoZSBmaWxlOyBidXQgd2lsbCBtYWtlIHN1cmUgSSBkbyBub3QKYWNjaWRlbnRseSB1cGxvYWQgZGF0YSB3aXRoIHRoZSBDYWxpIHNhbXBsZXMuCgpgYGB7ciB0Y192YWxpZH0KdGNfdmFsaWQgPC0gc3Vic2V0X2V4cHQoaHNfZXhwdCwgbm9uemVybz0xMTAwMCkgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJmaW5hbG91dGNvbWUhPSdsb3N0JyIpICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0iZHJ1Zz09J2FudGltb255JyIpICU+JQogIHNldF9leHB0X2NvbG9ycyhjb2xvcl9jaG9pY2VzW1siY2YiXV0pCnNhdmUobGlzdCA9ICJ0Y192YWxpZCIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdGNfdmFsaWQtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0Y192YWxpZCIpCmBgYAoKIyMgRmlndXJlIFhYICsgMTogTm9uLXplcm8gZ2VuZXMgYWZ0ZXIgc2FtcGxlIGZpbHRlcmluZwoKVGhlIGZvbGxvd2luZyBwbG90IGlzIGVzc2VudGlhbGx5IGlkZW50aWNhbCB0byB0aGUgcHJldmlvdXMgd2l0aCB0d28KZXhjZXB0aW9uczoKCjEuICBUaGUgc2FtcGxlcyB3aXRoIHRvbyBmZXcgZ2VuZXMgKDExLDAwMCBjdXJyZW50bHkpIGFyZSBnb25lLgoyLiAgVGhlIHNhbXBsZXMgYXJlIGNvbG9yZWQgYnkgY3VyZShwdXJwbGUpL2ZhaWwoeWVsbG93KQoKYGBge3IgbnpfcG9zdH0KbnpfcG9zdCA8LSBwbG90X25vbnplcm8odGNfdmFsaWQpCm56X3Bvc3QkcGxvdApgYGAKCiMjIFN1bW1hcml6ZTogVGFsbHkgc2FtcGxlcyBhZnRlciBmaWx0ZXJpbmcKCldlIG5lZWQgdG8ga2VlcCB0cmFjayBvZiBob3cgbWFueSBvZiBlYWNoIHNhbXBsZSB0eXBlIGlzIGxvc3Qgd2hlbiB3ZQpkbyBvdXIgdmFyaW91cyBmaWx0ZXJzLiAgVGh1cyBJIGFtIHJlcGVhdGluZyB0aGUgc2FtZSBzZXQgb2YgdGFsbGllcy4KVGhpcyB3aWxsIGxpa2VseSBoYXBwZW4gb25lIG1vcmUgdGltZSwgZm9sbG93aW5nIHRoZSByZW1vdmFsIG9mCnNhbXBsZXMgd2hpY2ggY2FtZSBmcm9tIENhbGkuCgpgYGB7ciB0YWJsZV92YWxpZH0KdGFibGUocERhdGEodGNfdmFsaWQpJGRydWcpCnRhYmxlKHBEYXRhKHRjX3ZhbGlkKSRjbGluaWMpCnRhYmxlKHBEYXRhKHRjX3ZhbGlkKSRmaW5hbG91dGNvbWUpCnRhYmxlKHBEYXRhKHRjX3ZhbGlkKSR0eXBlb2ZjZWxscykKdGFibGUocERhdGEodGNfdmFsaWQpJHZpc2l0KQpzdW1tYXJ5KGFzLm51bWVyaWMocERhdGEodGNfdmFsaWQpJGViX2xjX3RpZW1wb19ldm9sdWNpb24pKQpzdW1tYXJ5KGFzLm51bWVyaWMocERhdGEodGNfdmFsaWQpJGViX2xjX3R0b19tY3RvX2dsdWNhbl9kb3NpcykpCnN1bW1hcnkoYXMubnVtZXJpYyhwRGF0YSh0Y192YWxpZCkkdjNfbGNfZWpleV9sZXNpb25fbW1fMSkpCnN1bW1hcnkoYXMubnVtZXJpYyhwRGF0YSh0Y192YWxpZCkkdjNfbGNfbGVzaW9uX2FyZWFfMSkpCnN1bW1hcnkoYXMubnVtZXJpYyhwRGF0YSh0Y192YWxpZCkkdjNfbGNfZWpleF91bGNlcmFfbW1fMSkpCnRhYmxlKHBEYXRhKHRjX3ZhbGlkKSRlYl9sY19zZXhvKQp0YWJsZShwRGF0YSh0Y192YWxpZCkkZWJfbGNfZXRuaWEpCnN1bW1hcnkoYXMubnVtZXJpYyhwRGF0YSh0Y192YWxpZCkkZWRhZCkpCnRhYmxlKHBEYXRhKHRjX3ZhbGlkKSRlYl9sY19wZXNvKQp0YWJsZShwRGF0YSh0Y192YWxpZCkkZWJfbGNfZXN0YXR1cmEpCgpsZW5ndGgodW5pcXVlKHBEYXRhKHRjX3ZhbGlkKVtbImNvZGlnb19wYWNpZW50ZSJdXSkpCmBgYAoKIyMgU3BsaXQgdGhlIGRhdGEgYnkgY3VyZS9mYWlsIGZvciBzb21lIGNvdW50aW5nCgpgYGB7ciB0Y19jdXJlX2ZhaWx2MX0KdGNfY3VyZSA8LSBzdWJzZXRfZXhwdCh0Y192YWxpZCwgc3Vic2V0PSJmaW5hbG91dGNvbWU9PSdjdXJlJyIpCgp0YWJsZShwRGF0YSh0Y19jdXJlKSR2aXNpdG51bWJlcikKCnRjX2ZhaWwgPC0gc3Vic2V0X2V4cHQodGNfdmFsaWQsIHN1YnNldD0iZmluYWxvdXRjb21lPT0nZmFpbHVyZSciKQoKdGFibGUocERhdGEodGNfZmFpbCkkdmlzaXRudW1iZXIpCmBgYAoKIyBTdWJzZXQ6IFNlcGFyYXRlIHNhbXBsZXMgYnkgY2VsbCB0eXBlIGFuZCB2aXNpdAoKYGBge3IgaW5pdGlhbF9zdWJzZXRzfQphbGxfdHlwZXMgPC0gdGFibGUocERhdGEodGNfdmFsaWQpW1sidHlwZW9mY2VsbHMiXV0pCmFsbF90eXBlcwphbGxfdGltZXMgPC0gdGFibGUocERhdGEodGNfdmFsaWQpW1sidmlzaXRudW1iZXIiXV0pCmFsbF90aW1lcwpgYGAKCiMjIyBXcml0ZSB2YWxpZCBzYW1wbGVzCgpgYGB7ciBjcG1fdmFsaWR9CmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRjX3ZhbGlkLCBjb252ZXJ0PSJjcG0iKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD1nbHVlOjpnbHVlKCJ7eGxzeF9wcmVmaXh9LzNfY2FsaV9hbmRfdHVtYWNvL0NQTS9hbGxfdmFsaWRfc2FtcGxlcy54bHN4IikpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0Y192YWxpZCwgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uPSJjZHNfbGVuZ3RoIiwgbmFfdG9femVybz1UUlVFKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RjX2FsbF92YWxpZF9zYW1wbGVzLXZ7dmVyfS5jc3YiKSkKYGBgCgojIyBFeHRyYWN0IGNlbGwgdHlwZXMKCmBgYHtyIHN1YnNldF92YWxpZH0KIyMgTm90ZSwgSSB3aWxsIHNhdmUgdGhlc2UgZGF0YSBzdHJ1Y3R1cmVzIGluIGEgbGl0dGxlIGJpdCB3aGVuIEkgZGVjaWRlIGhvdyBJIHdhbnQKIyMgdG8gc2V0IHRoZSBjb25kaXRpb25zLCBiYXRjaGVzLCBhbmQgY29sb3JzLgp0Y19lb3Npbm9waGlscyA8LSBzdWJzZXRfZXhwdCh0Y192YWxpZCwgc3Vic2V0PSJ0eXBlb2ZjZWxscz09J2Vvc2lub3BoaWxzJyIpCnRjX21vbm9jeXRlcyA8LSBzdWJzZXRfZXhwdCh0Y192YWxpZCwgc3Vic2V0PSJ0eXBlb2ZjZWxscz09J21vbm9jeXRlcyciKQp0Y19uZXV0cm9waGlscyA8LSBzdWJzZXRfZXhwdCh0Y192YWxpZCwgc3Vic2V0PSJ0eXBlb2ZjZWxscz09J25ldXRyb3BoaWxzJyIpCmBgYAoKIyMjIFdyaXRlIGNlbGwgdHlwZSBjcG0KCmBgYHtyIHN1YnNldF92YWxpZF9jcG19CmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRjX2Vvc2lub3BoaWxzLCBjb252ZXJ0PSJjcG0iKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD1nbHVlOjpnbHVlKCJ7eGxzeF9wcmVmaXh9LzNfY2FsaV9hbmRfdHVtYWNvL0NQTS90Y19lb3Npbm9waGlscy54bHN4IikpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0Y19lb3Npbm9waGlscywgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfdG9femVybz1UUlVFLCBjb2x1bW49ImNkc19sZW5ndGgiKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RjX2Vvc2lub3BoaWxzLXZ7dmVyfS5jc3YiKSkKCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRjX21vbm9jeXRlcywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9Z2x1ZTo6Z2x1ZSgie3hsc3hfcHJlZml4fS8zX2NhbGlfYW5kX3R1bWFjby9DUE0vdGNfbW9ub2N5dGVzLnhsc3giKSkKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRjX21vbm9jeXRlcywgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfdG9femVybz1UUlVFLCBjb2x1bW49ImNkc19sZW5ndGgiKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RjX21vbm9jeXRlcy12e3Zlcn0uY3N2IikpCgpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0Y19uZXV0cm9waGlscywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9Z2x1ZTo6Z2x1ZSgie3hsc3hfcHJlZml4fS8zX2NhbGlfYW5kX3R1bWFjby9DUE0vdGNfbmV1dHJvcGhpbHMueGxzeCIpKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodGNfbmV1dHJvcGhpbHMsIGZpbHRlcj1UUlVFLCBjb252ZXJ0PSJycGttIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hX3RvX3plcm89VFJVRSwgY29sdW1uPSJjZHNfbGVuZ3RoIikKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90Y19uZXV0cm9waGlscy12e3Zlcn0uY3N2IikpCmBgYAoKIyMgVHVtYWNvIGFuZCBDYWxpIHNhbXBsZXMgYnkgdmlzaXQKCmBgYHtyIHZpc2l0X3NhbXBsZXNfdGN2eH0KIyMgQ3VycmVudGx5LCB0aGVzZSBhcmUgbm90IHVzZWQsIGJ1dCBpbnN0ZWFkIEkgcHVsbGVkIHRoZSBzYW1wbGVzIGZyb20gdGhlIGhzX2NsaW5pY2FsCiMjIHdoaWNoIG1lYW5zIHRoZSBiaW9wc2llcyBhcmUgbm90IGluY2x1ZGVkLgp0Y3YxX3NhbXBsZXMgPC0gc3Vic2V0X2V4cHQodGNfdmFsaWQsIHN1YnNldD0idmlzaXRudW1iZXI9PScxJyIpCnNhdmUobGlzdCA9ICJ0Y3YxX3NhbXBsZXMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjdjFfc2FtcGxlcy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjdjFfc2FtcGxlcyIpCgp0Y3YyX3NhbXBsZXMgPC0gc3Vic2V0X2V4cHQodGNfdmFsaWQsIHN1YnNldD0idmlzaXRudW1iZXI9PScyJyIpCnNhdmUobGlzdCA9ICJ0Y3YyX3NhbXBsZXMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjdjJfc2FtcGxlcy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjdjJfc2FtcGxlcyIpCgp0Y3YzX3NhbXBsZXMgPC0gc3Vic2V0X2V4cHQodGNfdmFsaWQsIHN1YnNldD0idmlzaXRudW1iZXI9PSczJyIpCnNhdmUobGlzdCA9ICJ0Y3YzX3NhbXBsZXMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjdjNfc2FtcGxlcy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjdjNfc2FtcGxlcyIpCmBgYAoKIyMjIENhbGkgYW5kIFR1bWFjbyBieSB2aXNpdCwgd3JpdGUgY3BtCgpgYGB7ciBjYWxpX3R1bWFjb192aXNpdF9jcG19CmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRjdjFfc2FtcGxlcywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9Z2x1ZTo6Z2x1ZSgie3hsc3hfcHJlZml4fS8zX2NhbGlfYW5kX3R1bWFjby9DUE0vdGN2MV9zYW1wbGVzLnhsc3giKSkKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRjdjFfc2FtcGxlcywgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfdG9femVybz1UUlVFLCBjb2x1bW49ImNkc19sZW5ndGgiKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RjdjFfc2FtcGxlcy12e3Zlcn0uY3N2IikpCgpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0Y3YyX3NhbXBsZXMsIGNvbnZlcnQ9ImNwbSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPWdsdWU6OmdsdWUoInt4bHN4X3ByZWZpeH0vM19jYWxpX2FuZF90dW1hY28vQ1BNL3RjdjJfc2FtcGxlcy54bHN4IikpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0Y3YyX3NhbXBsZXMsIGZpbHRlcj1UUlVFLCBjb252ZXJ0PSJycGttIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hX3RvX3plcm89VFJVRSwgY29sdW1uPSJjZHNfbGVuZ3RoIikKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90Y3YyX3NhbXBsZXMtdnt2ZXJ9LmNzdiIpKQoKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodGN2M19zYW1wbGVzLCBjb252ZXJ0PSJjcG0iKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD1nbHVlOjpnbHVlKCJ7eGxzeF9wcmVmaXh9LzNfY2FsaV9hbmRfdHVtYWNvL0NQTS90Y3YzX3NhbXBsZXMueGxzeCIpKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodGN2M19zYW1wbGVzLCBmaWx0ZXI9VFJVRSwgY29udmVydD0icnBrbSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYV90b196ZXJvPVRSVUUsIGNvbHVtbj0iY2RzX2xlbmd0aCIpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdGN2M19zYW1wbGVzLXZ7dmVyfS5jc3YiKSkKYGBgCgojIFR1bWFjbyBhbmQgQ2FsaSBkYXRhIHN0cnVjdHVyZXMKCkFsbCBkYXRhIHN0cnVjdHVyZXMgd2hpY2ggc3RhcnQgd2l0aCB0aGUgcHJlZml4ICd0YycgYXJlIFR1bWFjbyBhbmQKQ2FsaS4gIFRob3NlIHdpdGggJ3QnIGFyZSBvbmx5IFR1bWFjby4KCmBgYHtyIGNsaW5pY2FsX2hzfQp0Y19jbGluaWNhbCA8LSB0Y192YWxpZCAlPiUKICBzZXRfZXhwdF9jb25kaXRpb25zKGZhY3Q9ImZpbmFsb3V0Y29tZSIpICU+JQogIHNldF9leHB0X2JhdGNoZXMoZmFjdD0idHlwZW9mY2VsbHMiKSAlPiUKICBzZXRfZXhwdF9jb2xvcnMoY29sb3JfY2hvaWNlc1tbImNmIl1dKQpzYXZlKGxpc3QgPSAidGNfY2xpbmljYWwiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjX2NsaW5pY2FsLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidGNfY2xpbmljYWwiKQoKdGNfY2xpbmljYWxfbm9iaW9wIDwtIHN1YnNldF9leHB0KHRjX2NsaW5pY2FsLCBzdWJzZXQ9InR5cGVvZmNlbGxzIT0nYmlvcHN5JyIpCnNhdmUobGlzdCA9ICJ0Y19jbGluaWNhbF9ub2Jpb3AiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjX2NsaW5pY2FsX25vYmlvcC12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjX2NsaW5pY2FsX25vYmlvcCIpCgp0Y19iaW9wc2llcyA8LSB0Y192YWxpZCAlPiUKICBzZXRfZXhwdF9jb25kaXRpb25zKGZhY3Q9ImNsaW5pYyIpICU+JQogIHNldF9leHB0X2JhdGNoZXMoZmFjdD0iZmluYWxvdXRjb21lIikgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJ0eXBlb2ZjZWxscz09J2Jpb3BzeSciKQp0Y19jZiA8LSBwYXN0ZTAocERhdGEodGNfYmlvcHNpZXMpW1siY2xpbmljIl1dLCAiXyIsCiAgICAgICAgICAgICAgICBwRGF0YSh0Y19iaW9wc2llcylbWyJmaW5hbG91dGNvbWUiXV0pCnRhYmxlKHRjX2NmKQp0Y19iaW9wc2llcyA8LSBzZXRfZXhwdF9jb25kaXRpb25zKHRjX2Jpb3BzaWVzLCBmYWN0PXRjX2NmKSAlPiUKICBzZXRfZXhwdF9iYXRjaGVzKGZhY3Q9InZpc2l0bnVtYmVyIikKc2F2ZShsaXN0ID0gInRjX2Jpb3BzaWVzIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190Y19iaW9wc2llcy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjX2Jpb3BzaWVzIikKYGBgCgojIyBTdWJzZXQ6IEVvc2lub3BoaWxzIGJ5IGNsaW5pYwoKYGBge3IgY2xpbmljX2Vvc2lub3BoaWxfcGNhfQpjbGluaWNfY2YgPC0gcGFzdGUwKHBEYXRhKHRjX2Vvc2lub3BoaWxzKVtbImNsaW5pYyJdXSwgIl8iLAogICAgICAgICAgICAgICAgICAgIHBEYXRhKHRjX2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSkKdGFibGUoY2xpbmljX2NmKQp0Y19lb3Npbm9waGlscyA8LSBzZXRfZXhwdF9jb25kaXRpb25zKHRjX2Vvc2lub3BoaWxzLCBmYWN0PWNsaW5pY19jZikgJT4lCiAgc2V0X2V4cHRfYmF0Y2hlcyhmYWN0PSJ2aXNpdG51bWJlciIpCnNhdmUobGlzdCA9ICJ0Y19lb3Npbm9waGlscyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdGNfZW9zaW5vcGhpbHMtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0Y19lb3Npbm9waGlscyIpCgp0Y3YxX2Vvc2lub3BoaWxzIDwtIHN1YnNldF9leHB0KHRjX2Vvc2lub3BoaWxzLCBzdWJzZXQ9InZpc2l0bnVtYmVyPT0nMSciKQpzYXZlKGxpc3QgPSAidGN2MV9lb3Npbm9waGlscyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdGN2MV9lb3Npbm9waGlscy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjdjFfZW9zaW5vcGhpbHMiKQp0Y3YyX2Vvc2lub3BoaWxzIDwtIHN1YnNldF9leHB0KHRjX2Vvc2lub3BoaWxzLCBzdWJzZXQ9InZpc2l0bnVtYmVyPT0nMiciKQpzYXZlKGxpc3QgPSAidGN2Ml9lb3Npbm9waGlscyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdGN2Ml9lb3Npbm9waGlscy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjdjJfZW9zaW5vcGhpbHMiKQp0Y3YzX2Vvc2lub3BoaWxzIDwtIHN1YnNldF9leHB0KHRjX2Vvc2lub3BoaWxzLCBzdWJzZXQ9InZpc2l0bnVtYmVyPT0nMyciKQpzYXZlKGxpc3QgPSAidGN2M19lb3Npbm9waGlscyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdGN2M19lb3Npbm9waGlscy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjdjNfZW9zaW5vcGhpbHMiKQpgYGAKCiMjIFN1YnNldDogTW9ub2N5dGVzIGJ5IGNsaW5pYwoKYGBge3IgY2xpbmljX21vbm9jeXRlX3BjYX0KY2xpbmljX2NmIDwtIHBhc3RlMChwRGF0YSh0Y19tb25vY3l0ZXMpW1siY2xpbmljIl1dLCAiXyIsCiAgICAgICAgICAgICAgICAgICAgcERhdGEodGNfbW9ub2N5dGVzKVtbImZpbmFsb3V0Y29tZSJdXSkKdGFibGUoY2xpbmljX2NmKQp0Y19tb25vY3l0ZXMgPC0gc2V0X2V4cHRfY29uZGl0aW9ucyh0Y19tb25vY3l0ZXMsIGZhY3Q9Y2xpbmljX2NmKSAlPiUKICBzZXRfZXhwdF9iYXRjaGVzKGZhY3Q9InZpc2l0bnVtYmVyIikKc2F2ZShsaXN0ID0gInRjX21vbm9jeXRlcyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdGNfbW9ub2N5dGVzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidGNfbW9ub2N5dGVzIikKCnRjdjFfbW9ub2N5dGVzIDwtIHN1YnNldF9leHB0KHRjX21vbm9jeXRlcywgc3Vic2V0PSJ2aXNpdG51bWJlcj09JzEnIikKc2F2ZShsaXN0ID0gInRjdjFfbW9ub2N5dGVzIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190Y3YxX21vbm9jeXRlcy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRjdjFfbW9ub2N5dGVzIikKdGN2Ml9tb25vY3l0ZXMgPC0gc3Vic2V0X2V4cHQodGNfbW9ub2N5dGVzLCBzdWJzZXQ9InZpc2l0bnVtYmVyPT0nMiciKQpzYXZlKGxpc3QgPSAidGN2Ml9tb25vY3l0ZXMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjdjJfbW9ub2N5dGVzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidGN2Ml9tb25vY3l0ZXMiKQp0Y3YzX21vbm9jeXRlcyA8LSBzdWJzZXRfZXhwdCh0Y19tb25vY3l0ZXMsIHN1YnNldD0idmlzaXRudW1iZXI9PSczJyIpCnNhdmUobGlzdCA9ICJ0Y3YzX21vbm9jeXRlcyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdGN2M19tb25vY3l0ZXMtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0Y3YzX21vbm9jeXRlcyIpCmBgYAoKIyMgU3Vic2V0OiBOZXV0cm9waGlscyBieSBjbGluaWMKCmBgYHtyIGNsaW5pY19uZXV0cm9waGlsX3BjYX0KY2xpbmljX2NmIDwtIHBhc3RlMChwRGF0YSh0Y19uZXV0cm9waGlscylbWyJjbGluaWMiXV0sICJfIiwKICAgICAgICAgICAgICAgICAgICBwRGF0YSh0Y19uZXV0cm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0pCnRhYmxlKGNsaW5pY19jZikKdGNfbmV1dHJvcGhpbHMgPC0gc2V0X2V4cHRfY29uZGl0aW9ucyh0Y19uZXV0cm9waGlscywgZmFjdD1jbGluaWNfY2YpICU+JQogIHNldF9leHB0X2JhdGNoZXMoZmFjdD0idmlzaXRudW1iZXIiKQpzYXZlKGxpc3QgPSAidGNfbmV1dHJvcGhpbHMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjX25ldXRyb3BoaWxzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidGNfbmV1dHJvcGhpbHMiKQoKdGN2MV9uZXV0cm9waGlscyA8LSBzdWJzZXRfZXhwdCh0Y19uZXV0cm9waGlscywgc3Vic2V0PSJ2aXNpdG51bWJlcj09JzEnIikKc2F2ZShsaXN0ID0gInRjdjFfbmV1dHJvcGhpbHMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjdjFfbmV1dHJvcGhpbHMtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0Y3YxX25ldXRyb3BoaWxzIikKdGN2Ml9uZXV0cm9waGlscyA8LSBzdWJzZXRfZXhwdCh0Y19uZXV0cm9waGlscywgc3Vic2V0PSJ2aXNpdG51bWJlcj09JzInIikKc2F2ZShsaXN0ID0gInRjdjJfbmV1dHJvcGhpbHMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjdjJfbmV1dHJvcGhpbHMtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0Y3YyX25ldXRyb3BoaWxzIikKdGN2M19uZXV0cm9waGlscyA8LSBzdWJzZXRfZXhwdCh0Y19uZXV0cm9waGlscywgc3Vic2V0PSJ2aXNpdG51bWJlcj09JzMnIikKc2F2ZShsaXN0ID0gInRjdjNfbmV1dHJvcGhpbHMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RjdjNfbmV1dHJvcGhpbHMtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0Y3YzX25ldXRyb3BoaWxzIikKYGBgCgojIFN1bW1hcml6ZTogVGFidWxhdGUgc2FtcGxlIG51bWJlcnMKCkhlcmUgaXMgYW4gb3V0bGluZSBvZiB0aGUgc2FtcGxlcyBpbiB0aGVpciBjdXJyZW50IHN0YXRlOgoKKiBCeSB0eXBlOiBgciBuY29sKGV4cHJzKHRjX3ZhbGlkKSlgLCBDdXJlOiBgciBzdW0ocERhdGEodGNfdmFsaWQpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodGNfdmFsaWQpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAqICBCaW9wc3k6IGByIGFsbF90eXBlc1tbImJpb3BzeSJdXWAsIEN1cmU6IGByIHN1bShwRGF0YSh0Y19iaW9wc2llcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0Y19iaW9wc2llcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKWAKICAgICAgICAqIEFsbCBiaW9wc3kgc2FtcGxlcyBhcmUgdmlzaXQgMS4KICAgICogIEVvc2lub3BoaWxzOiBgciBhbGxfdHlwZXNbWyJlb3Npbm9waGlscyJdXWAsIEN1cmU6IGByIHN1bShwRGF0YSh0Y19lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0Y19lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKWAKICAgICAgICAqIFYxIEVvc2lub3BoaWxzOiBgciBucm93KHBEYXRhKHRjdjFfZW9zaW5vcGhpbHMpKWAsIEN1cmU6IGByIHN1bShwRGF0YSh0Y3YxX2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpYCwgRmFpbDogYHIgc3VtKHBEYXRhKHRjdjFfZW9zaW5vcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAgICAgKiBWMiBFb3Npbm9waGlsczogYHIgbnJvdyhwRGF0YSh0Y3YyX2Vvc2lub3BoaWxzKSlgLCBDdXJlOiBgciBzdW0ocERhdGEodGN2Ml9lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0Y3YyX2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpYAogICAgICAgICogVjMgRW9zaW5vcGhpbHM6IGByIG5yb3cocERhdGEodGN2M19lb3Npbm9waGlscykpYCwgQ3VyZTogYHIgc3VtKHBEYXRhKHRjdjNfZW9zaW5vcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodGN2M19lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKWAKICAgICogIE1vbm9jeXRlczogYHIgYWxsX3R5cGVzW1sibW9ub2N5dGVzIl1dYCwgQ3VyZTogYHIgc3VtKHBEYXRhKHRjX21vbm9jeXRlcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0Y19tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAgICAgKiBWMSBNb25vY3l0ZXM6IGByIG5yb3cocERhdGEodGN2MV9tb25vY3l0ZXMpKWAsIEN1cmU6IGByIHN1bShwRGF0YSh0Y3YxX21vbm9jeXRlcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0Y3YxX21vbm9jeXRlcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKWAKICAgICAgICAqIFYyIE1vbm9jeXRlczogYHIgbnJvdyhwRGF0YSh0Y3YyX21vbm9jeXRlcykpYCwgQ3VyZTogYHIgc3VtKHBEYXRhKHRjdjJfbW9ub2N5dGVzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpYCwgRmFpbDogYHIgc3VtKHBEYXRhKHRjdjJfbW9ub2N5dGVzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpYAogICAgICAgICogVjMgTW9ub2N5dGVzOiBgciBucm93KHBEYXRhKHRjdjNfbW9ub2N5dGVzKSlgLCBDdXJlOiBgciBzdW0ocERhdGEodGN2M19tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodGN2M19tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAqICBOZXV0cm9waGlsczogYHIgYWxsX3R5cGVzW1sibmV1dHJvcGhpbHMiXV1gLCBDdXJlOiBgciBzdW0ocERhdGEodGNfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodGNfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAgICAgKiBWMSBOZXV0cm9waGlsczogYHIgbnJvdyhwRGF0YSh0Y3YxX25ldXRyb3BoaWxzKSlgLCBDdXJlOiBgciBzdW0ocERhdGEodGN2MV9uZXV0cm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0Y3YxX25ldXRyb3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpYAogICAgICAgICogVjIgTmV1dHJvcGhpbHM6IGByIG5yb3cocERhdGEodGN2Ml9uZXV0cm9waGlscykpYCwgQ3VyZTogYHIgc3VtKHBEYXRhKHRjdjJfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodGN2Ml9uZXV0cm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKWAKICAgICAgICAqIFYzIE5ldXRyb3BoaWxzOiBgciBucm93KHBEYXRhKHRjdjNfbmV1dHJvcGhpbHMpKWAsIEN1cmU6IGByIHN1bShwRGF0YSh0Y3YzX25ldXRyb3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpYCwgRmFpbDogYHIgc3VtKHBEYXRhKHRjdjNfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCgojIERhdGFzZXQ6IE9ubHkgVHVtYWNvIHNhbXBsZXMKCk91ciByZWNlbnQgZGlzY3Vzc2lvbnMgaGF2ZSBzZXR0bGVkIG9uZSBiaWcgcXVlc3Rpb24gcmVnYXJkaW5nIHdoaWNoCnNhbXBsZXMgdG8gdXNlOiAgV2Ugd2lsbCBsaW1pdCBvdXIgYW5hbHlzZXMgdG8gb25seSB0aG9zZSBzYW1wbGVzIGZyb20KVHVtYWNvLgoKVGhlIGZvbGxvd2luZyBibG9jayB3aWxsIHRoZXJlZm9yZSBzZXQgdGhhdCBncm91cCBhcyBvdXIgZGVmYXVsdCBmb3IKZnV0dXJlIGFuYWx5c2VzLgoKYGBge3IgdHVtYWNvX29ubHl9CnRfY2xpbmljYWwgPC0gdGNfY2xpbmljYWwgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJjbGluaWM9PSdUdW1hY28nIikKc2F2ZShsaXN0ID0gInRfY2xpbmljYWwiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RfY2xpbmljYWwtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0X2NsaW5pY2FsIikKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodF9jbGluaWNhbCwgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90X2NsaW5pY2FsX2NwbS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRfY2xpbmljYWwsIGZpbHRlcj1UUlVFLCBjb252ZXJ0PSJycGttIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hX3RvX3plcm89VFJVRSwgY29sdW1uPSJjZHNfbGVuZ3RoIikKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdF9jbGluaWNhbC12e3Zlcn0uY3N2IikpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRfY2xpbmljYWwsIGNvbnZlcnQ9ImNwbSIsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90X2NsaW5pY2FsX2NwbV9zdmEueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X2NsaW5pY2FsLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIpICU+JQogIG5vcm1hbGl6ZV9leHB0KGNvbnZlcnQ9InJwa20iLCBjb2x1bW49ImNkc19sZW5ndGgiLCBuYV90b196ZXJvPVRSVUUpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdF9jbGluaWNhbF9zdmEtdnt2ZXJ9LmNzdiIpKQoKdF9jbGluaWNhbF9ub2Jpb3AgPC0gc3Vic2V0X2V4cHQodF9jbGluaWNhbCwgc3Vic2V0PSJ0eXBlb2ZjZWxscyE9J2Jpb3BzeSciKQpzYXZlKGxpc3QgPSAidF9jbGluaWNhbF9ub2Jpb3AiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RfY2xpbmljYWxfbm9iaW9wLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidF9jbGluaWNhbF9ub2Jpb3AiKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X2NsaW5pY2FsX25vYmlvcCwgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90X2NsaW5pY2FsX25vYmlvcF9jcG0ueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X2NsaW5pY2FsLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW49ImNkc19sZW5ndGgiKSAlPiUKICBub3JtYWxpemVfZXhwdChjb252ZXJ0PSJycGttIiwgY29sdW1uPSJjZHNfbGVuZ3RoIiwgbmFfdG9femVybz1UUlVFKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RfY2xpbmljYWxfc3ZhLXZ7dmVyfS5jc3YiKSkKCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRfY2xpbmljYWxfbm9iaW9wLCBjb252ZXJ0PSJjcG0iLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdF9jbGluaWNhbF9ub2Jpb3BfY3BtX3N2YS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRfY2xpbmljYWxfbm9iaW9wLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW49ImNkc19sZW5ndGgiKSAlPiUKICBub3JtYWxpemVfZXhwdChjb252ZXJ0PSJycGttIiwgY29sdW1uPSJjZHNfbGVuZ3RoIiwgbmFfdG9femVybz1UUlVFKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RfY2xpbmljYWxfbm9iaW9wX3N2YS12e3Zlcn0uY3N2IikpCmBgYAoKIyMgU3VtbWFyaXplOiBDb2xsZWN0IFR1bWFjbyBzYW1wbGUgbnVtYmVycy4KCkF0IGxlYXN0IGluIHRoZW9yeSwgZXZlcnl0aGluZyB3aGljaCBmb2xsb3dzIHdpbGwgYmUgdXNpbmcgdGhlIGFib3ZlCidjbGluaWNhbCcgZGF0YSBzdHJ1Y3R1cmUuICBUaHVzLCBsZXQgdXMgY291bnQgaXQgdXAgYW5kIGdldCBhIHNlbnNlCm9mIHdoYXQgd2Ugd2lsbCB3b3JrIHdpdGguCgpgYGB7ciBjb3VudF90dW1hY299CnRhYmxlKHBEYXRhKHRfY2xpbmljYWwpJGRydWcpCnRhYmxlKHBEYXRhKHRfY2xpbmljYWwpJGNsaW5pYykKdGFibGUocERhdGEodF9jbGluaWNhbCkkZmluYWxvdXRjb21lKQp0YWJsZShwRGF0YSh0X2NsaW5pY2FsKSR0eXBlb2ZjZWxscykKdGFibGUocERhdGEodF9jbGluaWNhbCkkdmlzaXQpCnN1bW1hcnkoYXMubnVtZXJpYyhwRGF0YSh0X2NsaW5pY2FsKSRlYl9sY190aWVtcG9fZXZvbHVjaW9uKSkKc3VtbWFyeShhcy5udW1lcmljKHBEYXRhKHRfY2xpbmljYWwpJGViX2xjX3R0b19tY3RvX2dsdWNhbl9kb3NpcykpCnN1bW1hcnkoYXMubnVtZXJpYyhwRGF0YSh0X2NsaW5pY2FsKSR2M19sY19lamV5X2xlc2lvbl9tbV8xKSkKc3VtbWFyeShhcy5udW1lcmljKHBEYXRhKHRfY2xpbmljYWwpJHYzX2xjX2xlc2lvbl9hcmVhXzEpKQpzdW1tYXJ5KGFzLm51bWVyaWMocERhdGEodF9jbGluaWNhbCkkdjNfbGNfZWpleF91bGNlcmFfbW1fMSkpCnRhYmxlKHBEYXRhKHRfY2xpbmljYWwpJGViX2xjX3NleG8pCnRhYmxlKHBEYXRhKHRfY2xpbmljYWwpJGViX2xjX2V0bmlhKQpzdW1tYXJ5KGFzLm51bWVyaWMocERhdGEodF9jbGluaWNhbCkkZWRhZCkpCnRhYmxlKHBEYXRhKHRfY2xpbmljYWwpJGViX2xjX3Blc28pCnRhYmxlKHBEYXRhKHRfY2xpbmljYWwpJGViX2xjX2VzdGF0dXJhKQoKbGVuZ3RoKHVuaXF1ZShwRGF0YSh0X2NsaW5pY2FsKVtbImNvZGlnb19wYWNpZW50ZSJdXSkpCm9ubHlfY3VyZSA8LSBwRGF0YSh0X2NsaW5pY2FsKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIKY19tZXRhIDwtIHBEYXRhKHRfY2xpbmljYWwpW29ubHlfY3VyZSwgXQpsZW5ndGgodW5pcXVlKGNfbWV0YVtbImNvZGlnb19wYWNpZW50ZSJdXSkpCm9ubHlfZmFpbCA8LSBwRGF0YSh0X2NsaW5pY2FsKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIKZl9tZXRhIDwtIHBEYXRhKHRfY2xpbmljYWwpW29ubHlfZmFpbCwgXQpsZW5ndGgodW5pcXVlKGZfbWV0YVtbImNvZGlnb19wYWNpZW50ZSJdXSkpCmBgYAoKIyMgU3BsaXQgdGhlIGRhdGEgYnkgY3VyZS9mYWlsIGZvciBzb21lIGNvdW50aW5nCgpgYGB7ciB0Y19jdXJlX2ZhaWx2Mn0KdF9jdXJlIDwtIHN1YnNldF9leHB0KHRfY2xpbmljYWwsIHN1YnNldD0iZmluYWxvdXRjb21lPT0nY3VyZSciKQp0YWJsZShwRGF0YSh0X2N1cmUpJHZpc2l0bnVtYmVyKQoKdF9mYWlsIDwtIHN1YnNldF9leHB0KHRfY2xpbmljYWwsIHN1YnNldD0iZmluYWxvdXRjb21lPT0nZmFpbHVyZSciKQp0YWJsZShwRGF0YSh0X2ZhaWwpJHZpc2l0bnVtYmVyKQpgYGAKCiMjIFN1YnNldDogQ3JlYXRlIFR1bWFjby1zcGVjaWZpYyB2ZXJzaW9ucyBvZiB0aGUgdmFyaW91cyBzdHJ1Y3R1cmVzCgpJIHByZXZpb3VzbHkgbWFkZSBhIGJ1bmNoIG9mIGRhdGEgc3Vic2V0cyBieSB2aXNpdCwgY2VsbCB0eXBlLCBldGMuClNvIGxldCB1cyBvdmVyd3JpdGUgdGhlbSBhbGwgd2l0aCB2ZXJzaW9ucyB3aGljaCBjb250YWluIG9ubHkgdGhlClR1bWFjbyBzYW1wbGVzLgoKVGhlcmUgaXMgbm8gZ29pbmcgYmFjayB0byB0aGUgQ2FsaSBzYW1wbGVzIGFmdGVyIHRoaXMgYmxvY2sgdW5sZXNzIHdlCnJlZ2VuZXJhdGUgdGhlIGRhdGEgZnJvbSB0aGUgb3JpZ2luYWwgZXhwcmVzc2lvbnNldHMuCgojIyMgVHVtYWNvIGJpb3BzaWVzCgpgYGB7ciB0dW1hY29fc3Vic2V0c30KdF9iaW9wc2llcyA8LSB0Y19iaW9wc2llcyAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQ9ImNsaW5pYz09J1R1bWFjbyciKQpzYXZlKGxpc3QgPSAidF9iaW9wc2llcyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdF9iaW9wc2llcy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRfYmlvcHNpZXMiKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X2Jpb3BzaWVzLCBjb252ZXJ0PSJjcG0iKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3RfYmlvcHNpZXNfY3BtLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodF9iaW9wc2llcywgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfdG9femVybz1UUlVFLCBjb2x1bW49ImNkc19sZW5ndGgiKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RfYmlvcHNpZXMtdnt2ZXJ9LmNzdiIpKQoKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodF9iaW9wc2llcywgY29udmVydD0iY3BtIiwgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3RfYmlvcHNpZXNfY3BtX3N2YS54bHN4IikKYGBgCgojIyMgVHVtYWNvIEVvc2lub3BoaWxzCgpgYGB7ciB0dW1hY29fc3Vic2V0X2Vvc2lub3BoaWxzfQp0X2Vvc2lub3BoaWxzIDwtIHRjX2Vvc2lub3BoaWxzICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0iY2xpbmljPT0nVHVtYWNvJyIpCnNhdmUobGlzdCA9ICJ0X2Vvc2lub3BoaWxzIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190X2Vvc2lub3BoaWxzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidF9lb3Npbm9waGlscyIpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRfZW9zaW5vcGhpbHMsIGNvbnZlcnQ9ImNwbSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdF9lb3Npbm9waGlsc19jcG0ueGxzeCIpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRfZW9zaW5vcGhpbHMsIGNvbnZlcnQ9ImNwbSIsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90X2Vvc2lub3BoaWxzX2NwbV9zdmEueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X2Vvc2lub3BoaWxzLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW49ImNkc19sZW5ndGgiKSAlPiUKICBub3JtYWxpemVfZXhwdChjb252ZXJ0PSJycGttIiwgY29sdW1uPSJjZHNfbGVuZ3RoIiwgbmFfdG9femVybz1UUlVFKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RfZW9zaW5vcGhpbHNfc3ZhLXZ7dmVyfS5jc3YiKSkKYGBgCgojIyMgVHVtYWNvIHN1YnNldHMgbW9ub2N5dGVzCgpgYGB7ciB0dW1hY29fc3Vic2V0c19tb25vY3l0ZXN9CnRfbW9ub2N5dGVzIDwtIHRjX21vbm9jeXRlcyAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQ9ImNsaW5pYz09J1R1bWFjbyciKQpzYXZlKGxpc3QgPSAidF9tb25vY3l0ZXMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RfbW9ub2N5dGVzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidF9tb25vY3l0ZXMiKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X21vbm9jeXRlcywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90X21vbm9jeXRlc19jcG0ueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X21vbm9jeXRlcywgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfdG9femVybz1UUlVFLCBjb2x1bW49ImNkc19sZW5ndGgiKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RfbW9ub2N5dGVzLXZ7dmVyfS5jc3YiKSkKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodF9tb25vY3l0ZXMsIGNvbnZlcnQ9ImNwbSIsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90X21vbm9jeXRlc19jcG1fc3ZhLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodF9tb25vY3l0ZXMsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbj0iY2RzX2xlbmd0aCIpICU+JQogIG5vcm1hbGl6ZV9leHB0KGNvbnZlcnQ9InJwa20iLCBjb2x1bW49ImNkc19sZW5ndGgiLCBuYV90b196ZXJvPVRSVUUpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdF9tb25vY3l0ZXNfc3ZhLXZ7dmVyfS5jc3YiKSkKYGBgCgojIyMgVHVtYWNvIHN1YnNldHMgbmV1dHJvcGhpbHMKCmBgYHtyIHR1bWFjb19zdWJzZXRzX25ldXRyb3BoaWxzfQp0X25ldXRyb3BoaWxzIDwtIHRjX25ldXRyb3BoaWxzICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0iY2xpbmljPT0nVHVtYWNvJyIpCnNhdmUobGlzdCA9ICJ0X25ldXRyb3BoaWxzIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190X25ldXRyb3BoaWxzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidF9uZXV0cm9waGlscyIpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHRfbmV1dHJvcGhpbHMsIGNvbnZlcnQ9ImNwbSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdF9uZXV0cm9waGlsc19jcG0ueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X25ldXRyb3BoaWxzLCBmaWx0ZXI9VFJVRSwgY29udmVydD0icnBrbSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYV90b196ZXJvPVRSVUUsIGNvbHVtbj0iY2RzX2xlbmd0aCIpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3RfbmV1dHJvcGhpbHMtdnt2ZXJ9LmNzdiIpKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0X25ldXRyb3BoaWxzLCBjb252ZXJ0PSJjcG0iLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdF9uZXV0cm9waGlsc19jcG1fc3ZhLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodF9uZXV0cm9waGlscywgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uPSJjZHNfbGVuZ3RoIikgJT4lCiAgbm9ybWFsaXplX2V4cHQoY29udmVydD0icnBrbSIsIGNvbHVtbj0iY2RzX2xlbmd0aCIsIG5hX3RvX3plcm89VFJVRSkKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90X25ldXRyb3BoaWxzX3N2YS12e3Zlcn0uY3N2IikpCmBgYAoKIyMjIFR1bWFjbyBWaXNpdCAxIHNhbXBsZXMKCmBgYHtyIHR1bWFjb192aXNpdDFfc2FtcGxlc30KdHYxX3NhbXBsZXMgPC0gdGN2MV9zYW1wbGVzICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0iY2xpbmljPT0nVHVtYWNvJyIpCnNhdmUobGlzdCA9ICJ0djFfc2FtcGxlcyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdHYxX3NhbXBsZXMtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0djFfc2FtcGxlcyIpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2MV9zYW1wbGVzLCBjb252ZXJ0PSJjcG0iKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3R2MV9zYW1wbGVzX2NwbS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2MV9zYW1wbGVzLCBmaWx0ZXI9VFJVRSwgY29udmVydD0icnBrbSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYV90b196ZXJvPVRSVUUsIGNvbHVtbj0iY2RzX2xlbmd0aCIpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYxX3NhbXBsZXMtdnt2ZXJ9LmNzdiIpKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djFfc2FtcGxlcywgY29udmVydD0iY3BtIiwgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3R2MV9zYW1wbGVzX2NwbV9zdmEueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djFfc2FtcGxlcywgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uPSJjZHNfbGVuZ3RoIikgJT4lCiAgbm9ybWFsaXplX2V4cHQoY29udmVydD0icnBrbSIsIGNvbHVtbj0iY2RzX2xlbmd0aCIsIG5hX3RvX3plcm89VFJVRSkKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90djFfc2FtcGxlc19zdmEtdnt2ZXJ9LmNzdiIpKQpgYGAKCiMjIyBUdW1hY28gVmlzaXQgMiBzYW1wbGVzCgpgYGB7ciB0dW1hY29fdmlzaXQyX3NhbXBsZXN9CnR2Ml9zYW1wbGVzIDwtIHRjdjJfc2FtcGxlcyAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQ9ImNsaW5pYz09J1R1bWFjbyciKQpzYXZlKGxpc3QgPSAidHYyX3NhbXBsZXMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3R2Ml9zYW1wbGVzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidHYyX3NhbXBsZXMiKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djJfc2FtcGxlcywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djJfc2FtcGxlc19jcG0ueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djJfc2FtcGxlcywgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfdG9femVybz1UUlVFLCBjb2x1bW49ImNkc19sZW5ndGgiKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3R2Ml9zYW1wbGVzLXZ7dmVyfS5jc3YiKSkKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYyX3NhbXBsZXMsIGNvbnZlcnQ9ImNwbSIsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djJfc2FtcGxlc19jcG1fc3ZhLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYyX3NhbXBsZXMsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbj0iY2RzX2xlbmd0aCIpICU+JQogIG5vcm1hbGl6ZV9leHB0KGNvbnZlcnQ9InJwa20iLCBjb2x1bW49ImNkc19sZW5ndGgiLCBuYV90b196ZXJvPVRSVUUpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYyX3NhbXBsZXNfc3ZhLXZ7dmVyfS5jc3YiKSkKYGBgCgojIyMgVHVtYWNvIHZpc2l0IDMgc2FtcGxlcwoKYGBge3IgdHVtYWNvX3Zpc2l0M19zYW1wbGVzfQp0djNfc2FtcGxlcyA8LSB0Y3YzX3NhbXBsZXMgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJjbGluaWM9PSdUdW1hY28nIikKc2F2ZShsaXN0ID0gInR2M19zYW1wbGVzIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190djNfc2FtcGxlcy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInR2M19zYW1wbGVzIikKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX3NhbXBsZXMsIGNvbnZlcnQ9ImNwbSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdHYzX3NhbXBsZXNfY3BtLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX3NhbXBsZXMsIGZpbHRlcj1UUlVFLCBjb252ZXJ0PSJycGttIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hX3RvX3plcm89VFJVRSwgY29sdW1uPSJjZHNfbGVuZ3RoIikKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90djNfc2FtcGxlcy12e3Zlcn0uY3N2IikpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2M19zYW1wbGVzLCBjb252ZXJ0PSJjcG0iLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdHYzX3NhbXBsZXNfY3BtX3N2YS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2M19zYW1wbGVzLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW49ImNkc19sZW5ndGgiKSAlPiUKICBub3JtYWxpemVfZXhwdChjb252ZXJ0PSJycGttIiwgY29sdW1uPSJjZHNfbGVuZ3RoIiwgbmFfdG9femVybz1UUlVFKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3R2M19zYW1wbGVzX3N2YS12e3Zlcn0uY3N2IikpCmBgYAoKIyMjIFR1bWFjbyB2aXNpdDEgRW9zaW5vcGhpbHMKCmBgYHtyIHR1bWFjb192aXNpdDFfZW9zaW5waGlsc30KdHYxX2Vvc2lub3BoaWxzIDwtIHRjdjFfZW9zaW5vcGhpbHMgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJjbGluaWM9PSdUdW1hY28nIikKc2F2ZShsaXN0ID0gInR2MV9lb3Npbm9waGlscyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdHYxX2Vvc2lub3BoaWxzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidHYxX2Vvc2lub3BoaWxzIikKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYxX2Vvc2lub3BoaWxzLCBjb252ZXJ0PSJjcG0iKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3R2MV9lb3Npbm9waGlsc19jcG0ueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djFfZW9zaW5vcGhpbHMsIGZpbHRlcj1UUlVFLCBjb252ZXJ0PSJycGttIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hX3RvX3plcm89VFJVRSwgY29sdW1uPSJjZHNfbGVuZ3RoIikKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90djFfZW9zaW5vcGhpbHMtdnt2ZXJ9LmNzdiIpKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djFfZW9zaW5vcGhpbHMsIGNvbnZlcnQ9ImNwbSIsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djFfZW9zaW5vcGhpbHNfY3BtX3N2YS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2MV9lb3Npbm9waGlscywgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uPSJjZHNfbGVuZ3RoIikgJT4lCiAgbm9ybWFsaXplX2V4cHQoY29udmVydD0icnBrbSIsIGNvbHVtbj0iY2RzX2xlbmd0aCIsIG5hX3RvX3plcm89VFJVRSkKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90djFfZW9zaW5vcGhpbHNfc3ZhLXZ7dmVyfS5jc3YiKSkKYGBgCgojIyMgVHVtYWNvIHZpc2l0IDIgc2FtcGxlcwoKYGBge3IgdHVtYWNvX3Zpc2l0Ml9lb3Npbm9waGlsX3NhbXBsZXN9CnR2Ml9lb3Npbm9waGlscyA8LSB0Y3YyX2Vvc2lub3BoaWxzICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0iY2xpbmljPT0nVHVtYWNvJyIpCnNhdmUobGlzdCA9ICJ0djJfZW9zaW5vcGhpbHMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3R2Ml9lb3Npbm9waGlscy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInR2Ml9lb3Npbm9waGlscyIpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2Ml9lb3Npbm9waGlscywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djJfZW9zaW5vcGhpbHNfY3BtLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYyX2Vvc2lub3BoaWxzLCBmaWx0ZXI9VFJVRSwgY29udmVydD0icnBrbSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYV90b196ZXJvPVRSVUUsIGNvbHVtbj0iY2RzX2xlbmd0aCIpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYyX2Vvc2lub3BoaWxzLXZ7dmVyfS5jc3YiKSkKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYyX2Vvc2lub3BoaWxzLCBjb252ZXJ0PSJjcG0iLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdHYyX2Vvc2lub3BoaWxzX2NwbV9zdmEueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djJfZW9zaW5vcGhpbHMsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbj0iY2RzX2xlbmd0aCIpICU+JQogIG5vcm1hbGl6ZV9leHB0KGNvbnZlcnQ9InJwa20iLCBjb2x1bW49ImNkc19sZW5ndGgiLCBuYV90b196ZXJvPVRSVUUpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYyX2Vvc2lub3BoaWxzX3N2YS12e3Zlcn0uY3N2IikpCmBgYAoKIyMjIFR1bWFjbyB2aXNpdCAzIGVvc2lub3BoaWwKCmBgYHtyIHR1bWFjb192aXNpdDNfZW9zaW5vcGhpbHN9CnR2M19lb3Npbm9waGlscyA8LSB0Y3YzX2Vvc2lub3BoaWxzICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0iY2xpbmljPT0nVHVtYWNvJyIpCnNhdmUobGlzdCA9ICJ0djNfZW9zaW5vcGhpbHMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3R2M19lb3Npbm9waGlscy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInR2M19lb3Npbm9waGlscyIpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2M19lb3Npbm9waGlscywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djNfZW9zaW5vcGhpbHNfY3BtLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX2Vvc2lub3BoaWxzLCBmaWx0ZXI9VFJVRSwgY29udmVydD0icnBrbSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYV90b196ZXJvPVRSVUUsIGNvbHVtbj0iY2RzX2xlbmd0aCIpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYzX2Vvc2lub3BoaWxzLXZ7dmVyfS5jc3YiKSkKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX2Vvc2lub3BoaWxzLCBjb252ZXJ0PSJjcG0iLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdHYzX2Vvc2lub3BoaWxzX2NwbV9zdmEueGxzeCIpCiMjIE5vdGUsIHRoZSBjYmNiIGZpbHRlciBsZWZ0IGJlaGluZCBhIHN1ZmZpY2llbnQgbnVtYmVyIG9mIHplcm9zIHRoYXQgaXQgY29uZnVzZWQgY3BtLgpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX2Vvc2lub3BoaWxzLCBmaWx0ZXI9InNpbXBsZSIsIGJhdGNoPSJzdmFzZXEiKSAlPiUKICBub3JtYWxpemVfZXhwdChjb252ZXJ0PSJycGttIiwgY29sdW1uPSJjZHNfbGVuZ3RoIiwgbmFfdG9femVybz1UUlVFKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3R2M19lb3Npbm9waGlsc19zdmEtdnt2ZXJ9LmNzdiIpKQpgYGAKCiMjIyBUdW1hY28gdmlzaXQgMSBtb25vY3l0ZXMKCmBgYHtyIHR1bWFjb192aXNpdDFfbW9ub2N5dGVzfQp0djFfbW9ub2N5dGVzIDwtIHRjdjFfbW9ub2N5dGVzICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0iY2xpbmljPT0nVHVtYWNvJyIpCnNhdmUobGlzdCA9ICJ0djFfbW9ub2N5dGVzIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190djFfbW9ub2N5dGVzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidHYxX21vbm9jeXRlcyIpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2MV9tb25vY3l0ZXMsIGNvbnZlcnQ9ImNwbSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdHYxX21vbm9jeXRlc19jcG0ueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djFfbW9ub2N5dGVzLCBmaWx0ZXI9VFJVRSwgY29udmVydD0icnBrbSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYV90b196ZXJvPVRSVUUsIGNvbHVtbj0iY2RzX2xlbmd0aCIpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYxX21vbm9jeXRlcy12e3Zlcn0uY3N2IikpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2MV9tb25vY3l0ZXMsIGNvbnZlcnQ9ImNwbSIsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djFfbW9ub2N5dGVzX2NwbV9zdmEueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djFfbW9ub2N5dGVzLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW49ImNkc19sZW5ndGgiKSAlPiUKICBub3JtYWxpemVfZXhwdChjb252ZXJ0PSJycGttIiwgY29sdW1uPSJjZHNfbGVuZ3RoIiwgbmFfdG9femVybz1UUlVFKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3R2MV9tb25vY3l0ZXNfc3ZhLXZ7dmVyfS5jc3YiKSkKYGBgCgojIyMgVHVtYWNvIHZpc2l0IDIgbW9ub2N5dGVzCgpgYGB7ciB0dW1hY29fdmlzaXQyX21vbm9jeXRlc30KdHYyX21vbm9jeXRlcyA8LSB0Y3YyX21vbm9jeXRlcyAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQ9ImNsaW5pYz09J1R1bWFjbyciKQpzYXZlKGxpc3QgPSAidHYyX21vbm9jeXRlcyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdHYyX21vbm9jeXRlcy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInR2Ml9tb25vY3l0ZXMiKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djJfbW9ub2N5dGVzLCBjb252ZXJ0PSJjcG0iKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3R2Ml9tb25vY3l0ZXNfY3BtLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYyX21vbm9jeXRlcywgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfdG9femVybz1UUlVFLCBjb2x1bW49ImNkc19sZW5ndGgiKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3R2Ml9tb25vY3l0ZXMtdnt2ZXJ9LmNzdiIpKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djJfbW9ub2N5dGVzLCBjb252ZXJ0PSJjcG0iLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdHYyX21vbm9jeXRlc19jcG1fc3ZhLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYyX21vbm9jeXRlcywgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uPSJjZHNfbGVuZ3RoIikgJT4lCiAgbm9ybWFsaXplX2V4cHQoY29udmVydD0icnBrbSIsIGNvbHVtbj0iY2RzX2xlbmd0aCIsIG5hX3RvX3plcm89VFJVRSkKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90djJfbW9ub2N5dGVzX3N2YS12e3Zlcn0uY3N2IikpCmBgYAoKIyMjIFR1bWFjbyB2aXNpdCAzIG1vbm9jeXRlcwoKYGBge3IgdHVtYWNvX3Zpc2l0M19tb25vY3l0ZXN9CnR2M19tb25vY3l0ZXMgPC0gdGN2M19tb25vY3l0ZXMgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJjbGluaWM9PSdUdW1hY28nIikKc2F2ZShsaXN0ID0gInR2M19tb25vY3l0ZXMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3R2M19tb25vY3l0ZXMtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0djNfbW9ub2N5dGVzIikKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX21vbm9jeXRlcywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djNfbW9ub2N5dGVzX2NwbS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2M19tb25vY3l0ZXMsIGZpbHRlcj1UUlVFLCBjb252ZXJ0PSJycGttIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hX3RvX3plcm89VFJVRSwgY29sdW1uPSJjZHNfbGVuZ3RoIikKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90djNfbW9ub2N5dGVzLXZ7dmVyfS5jc3YiKSkKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX21vbm9jeXRlcywgY29udmVydD0iY3BtIiwgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3R2M19tb25vY3l0ZXNfY3BtX3N2YS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2M19tb25vY3l0ZXMsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbj0iY2RzX2xlbmd0aCIpICU+JQogIG5vcm1hbGl6ZV9leHB0KGNvbnZlcnQ9InJwa20iLCBjb2x1bW49ImNkc19sZW5ndGgiLCBuYV90b196ZXJvPVRSVUUpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYzX21vbm9jeXRlc19zdmEtdnt2ZXJ9LmNzdiIpKQpgYGAKCiMjIyBUdW1hY28gdmlzaXQxIG5ldXRyb3BoaWxzCgpgYGB7ciB0dW1hY29fdmlzaXQxX25ldXRyb3BoaWxzfQp0djFfbmV1dHJvcGhpbHMgPC0gdGN2MV9uZXV0cm9waGlscyAlPiUKICBzdWJzZXRfZXhwdChzdWJzZXQ9ImNsaW5pYz09J1R1bWFjbyciKQpzYXZlKGxpc3QgPSAidHYxX25ldXRyb3BoaWxzIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190djFfbmV1dHJvcGhpbHMtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0djFfbmV1dHJvcGhpbHMiKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djFfbmV1dHJvcGhpbHMsIGNvbnZlcnQ9ImNwbSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdHYxX25ldXRyb3BoaWxzX2NwbS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2MV9uZXV0cm9waGlscywgZmlsdGVyPVRSVUUsIGNvbnZlcnQ9InJwa20iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgbmFfdG9femVybz1UUlVFLCBjb2x1bW49ImNkc19sZW5ndGgiKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3R2MV9uZXV0cm9waGlscy12e3Zlcn0uY3N2IikpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2MV9uZXV0cm9waGlscywgY29udmVydD0iY3BtIiwgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3R2MV9uZXV0cm9waGlsc19jcG1fc3ZhLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYxX25ldXRyb3BoaWxzLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2x1bW49ImNkc19sZW5ndGgiKSAlPiUKICBub3JtYWxpemVfZXhwdChjb252ZXJ0PSJycGttIiwgY29sdW1uPSJjZHNfbGVuZ3RoIiwgbmFfdG9femVybz1UUlVFKQp3cml0ZS5jc3YoeCA9IGFzLmRhdGEuZnJhbWUoZXhwcnMocnBrbV9kYXRhKSksCiAgICAgICAgICBmaWxlID0gZ2x1ZTo6Z2x1ZSgiZGF0YS9ycGttL3R2MV9uZXV0cm9waGlsc19zdmEtdnt2ZXJ9LmNzdiIpKQpgYGAKCiMjIyBUdW1hY28gdmlzaXQgMiBuZXV0cm9waGlscwoKYGBge3IgdHVtYWNvX3Zpc2l0Ml9uZXV0cm9waGlsc30KdHYyX25ldXRyb3BoaWxzIDwtIHRjdjJfbmV1dHJvcGhpbHMgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0PSJjbGluaWM9PSdUdW1hY28nIikKc2F2ZShsaXN0ID0gInR2Ml9uZXV0cm9waGlscyIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdHYyX25ldXRyb3BoaWxzLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidHYyX25ldXRyb3BoaWxzIikKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYyX25ldXRyb3BoaWxzLCBjb252ZXJ0PSJjcG0iKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3R2Ml9uZXV0cm9waGlsc19jcG0ueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djJfbmV1dHJvcGhpbHMsIGZpbHRlcj1UUlVFLCBjb252ZXJ0PSJycGttIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5hX3RvX3plcm89VFJVRSwgY29sdW1uPSJjZHNfbGVuZ3RoIikKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90djJfbmV1dHJvcGhpbHMtdnt2ZXJ9LmNzdiIpKQpjcG1fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djJfbmV1dHJvcGhpbHMsIGNvbnZlcnQ9ImNwbSIsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djJfbmV1dHJvcGhpbHNfY3BtX3N2YS54bHN4IikKcnBrbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2Ml9uZXV0cm9waGlscywgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sdW1uPSJjZHNfbGVuZ3RoIikgJT4lCiAgbm9ybWFsaXplX2V4cHQoY29udmVydD0icnBrbSIsIGNvbHVtbj0iY2RzX2xlbmd0aCIsIG5hX3RvX3plcm89VFJVRSkKd3JpdGUuY3N2KHggPSBhcy5kYXRhLmZyYW1lKGV4cHJzKHJwa21fZGF0YSkpLAogICAgICAgICAgZmlsZSA9IGdsdWU6OmdsdWUoImRhdGEvcnBrbS90djJfbmV1dHJvcGhpbHNfc3ZhLXZ7dmVyfS5jc3YiKSkKYGBgCgojIyMgVHVtYWNvIHZpc2l0IDMgbmV1dHJvcGhpbHMKCmBgYHtyIHR1bWFjb192aXNpdDNfbmV1dHJvcGhpbHN9CnR2M19uZXV0cm9waGlscyA8LSB0Y3YzX25ldXRyb3BoaWxzICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0iY2xpbmljPT0nVHVtYWNvJyIpCnNhdmUobGlzdCA9ICJ0djNfbmV1dHJvcGhpbHMiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3R2M19uZXV0cm9waGlscy12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInR2M19uZXV0cm9waGlscyIpCmNwbV9kYXRhIDwtIG5vcm1hbGl6ZV9leHB0KHR2M19uZXV0cm9waGlscywgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90djNfbmV1dHJvcGhpbHNfY3BtLnhsc3giKQpycGttX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX25ldXRyb3BoaWxzLCBmaWx0ZXI9VFJVRSwgY29udmVydD0icnBrbSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBuYV90b196ZXJvPVRSVUUsIGNvbHVtbj0iY2RzX2xlbmd0aCIpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYzX25ldXRyb3BoaWxzLXZ7dmVyfS5jc3YiKSkKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodHYzX25ldXRyb3BoaWxzLCBjb252ZXJ0PSJjcG0iLCBmaWx0ZXI9VFJVRSwgYmF0Y2g9InN2YXNlcSIpCndyaXR0ZW4gPC0gd3JpdGVfeGxzeCgKICAgIGV4cHJzKGNwbV9kYXRhKSwKICAgIGV4Y2VsPSJhbmFseXNlcy80X3R1bWFjby9DUE0vdHYzX25ldXRyb3BoaWxzX2NwbV9zdmEueGxzeCIpCnJwa21fZGF0YSA8LSBub3JtYWxpemVfZXhwdCh0djNfbmV1dHJvcGhpbHMsIGZpbHRlcj1UUlVFLCBiYXRjaD0ic3Zhc2VxIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbHVtbj0iY2RzX2xlbmd0aCIpICU+JQogIG5vcm1hbGl6ZV9leHB0KGNvbnZlcnQ9InJwa20iLCBjb2x1bW49ImNkc19sZW5ndGgiLCBuYV90b196ZXJvPVRSVUUpCndyaXRlLmNzdih4ID0gYXMuZGF0YS5mcmFtZShleHBycyhycGttX2RhdGEpKSwKICAgICAgICAgIGZpbGUgPSBnbHVlOjpnbHVlKCJkYXRhL3Jwa20vdHYzX25ldXRyb3BoaWxzX3N2YS12e3Zlcn0uY3N2IikpCmBgYAoKIyMjIFR1bWFjbyBjb21wYXJlIHZpc2l0cwoKSXMgdGhpcyByZWR1bmRhbnQ/CgpgYGB7ciBjb21wYXJlX2FsbF92aXNpdHN9CnRfdmlzaXQgPC0gc2V0X2V4cHRfY29uZGl0aW9ucyh0X2NsaW5pY2FsLCBmYWN0ID0gInZpc2l0bnVtYmVyIikgJT4lCiAgc2V0X2V4cHRfYmF0Y2hlcyhmYWN0ID0gImZpbmFsb3V0Y29tZSIpICU+JQogIHN1YnNldF9leHB0KHN1YnNldD0idHlwZW9mY2VsbHMhPSdiaW9wc3knIikKc2F2ZShsaXN0ID0gInRfdmlzaXQiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RfdmlzaXQtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0X3Zpc2l0IikKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodF92aXNpdCwgY29udmVydD0iY3BtIikKd3JpdHRlbiA8LSB3cml0ZV94bHN4KAogICAgZXhwcnMoY3BtX2RhdGEpLAogICAgZXhjZWw9ImFuYWx5c2VzLzRfdHVtYWNvL0NQTS90X3Zpc2l0X2NwbS54bHN4IikKY3BtX2RhdGEgPC0gbm9ybWFsaXplX2V4cHQodF92aXNpdCwgY29udmVydD0iY3BtIiwgZmlsdGVyPVRSVUUsIGJhdGNoPSJzdmFzZXEiKQp3cml0dGVuIDwtIHdyaXRlX3hsc3goCiAgICBleHBycyhjcG1fZGF0YSksCiAgICBleGNlbD0iYW5hbHlzZXMvNF90dW1hY28vQ1BNL3RfdmlzaXRfY3BtX3N2YS54bHN4IikKYGBgCgojIyMgVmlzaXQgY3VyZS9mYWlsIGNvbnRyYXN0cwoKYGBge3Igc2V0dXBfdmlzaXRfY2ZfZGF0YV9jb250cmFzdHN9CnZpc2l0X2NmX2V4cHRfZmFjdG9yIDwtIHBhc3RlMCgidiIsIHBEYXRhKHRfY2xpbmljYWwpW1sidmlzaXRudW1iZXIiXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBwRGF0YSh0X2NsaW5pY2FsKVtbImZpbmFsb3V0Y29tZSJdXSkKdF92aXNpdGNmIDwtIHNldF9leHB0X2NvbmRpdGlvbnModF9jbGluaWNhbCwgZmFjdCA9IHZpc2l0X2NmX2V4cHRfZmFjdG9yKQpzYXZlKGxpc3QgPSAidF92aXNpdGNmIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190X3Zpc2l0Y2Ytdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0X3Zpc2l0Y2YiKQoKdF92aXNpdGNmX2Vvc2lub3BoaWwgPC0gc3Vic2V0X2V4cHQodF92aXNpdGNmLCBzdWJzZXQ9InR5cGVvZmNlbGxzPT0nZW9zaW5vcGhpbHMnIikKc2F2ZShsaXN0ID0gInRfdmlzaXRjZl9lb3Npbm9waGlsIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190X3Zpc2l0Y2ZfZW9zaW5vcGhpbC12e3Zlcn0ucmRhIikpCmRhdGFfc3RydWN0dXJlcyA8LSBjKGRhdGFfc3RydWN0dXJlcywgInRfdmlzaXRjZl9lb3Npbm9waGlsIikKCnRfdmlzaXRjZl9tb25vY3l0ZSA8LSBzdWJzZXRfZXhwdCh0X3Zpc2l0Y2YsIHN1YnNldD0idHlwZW9mY2VsbHM9PSdtb25vY3l0ZXMnIikKc2F2ZShsaXN0ID0gInRfdmlzaXRjZl9tb25vY3l0ZSIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdF92aXNpdGNmX21vbm9jeXRlLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidF92aXNpdGNmX21vbm9jeXRlIikKCnRfdmlzaXRjZl9uZXV0cm9waGlsIDwtIHN1YnNldF9leHB0KHRfdmlzaXRjZiwgc3Vic2V0PSJ0eXBlb2ZjZWxscz09J25ldXRyb3BoaWxzJyIpCnNhdmUobGlzdCA9ICJ0X3Zpc2l0Y2ZfbmV1dHJvcGhpbCIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdF92aXNpdGNmX25ldXRyb3BoaWwtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0X3Zpc2l0Y2ZfbmV1dHJvcGhpbCIpCmBgYAoKIyBQZXJzaXN0ZW5jZQoKYGBge3IgcGVyc2lzdGVuY2VfZXhwdH0KdF9wZXJzaXN0ZW5jZSA8LSBzdWJzZXRfZXhwdCh0X2NsaW5pY2FsLCBzdWJzZXQgPSAicGVyc2lzdGVuY2U9PSdZJ3xwZXJzaXN0ZW5jZT09J04nIikgJT4lCiAgc3Vic2V0X2V4cHQoc3Vic2V0ID0gJ3Zpc2l0bnVtYmVyPT0zJykgJT4lCiAgc2V0X2V4cHRfY29uZGl0aW9ucyhmYWN0ID0gJ3BlcnNpc3RlbmNlJykKc2F2ZShsaXN0ID0gInRfcGVyc2lzdGVuY2UiLCBmaWxlID0gZ2x1ZTo6Z2x1ZSgicmRhL3RtcmMzX3RfcGVyc2lzdGVuY2Utdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0X3BlcnNpc3RlbmNlIikKCnRfcGVyc2lzdGVuY2VfbW9ub2N5dGUgPC0gc3Vic2V0X2V4cHQodF9wZXJzaXN0ZW5jZSwgc3Vic2V0ID0gInR5cGVvZmNlbGxzPT0nbW9ub2N5dGVzJyIpCnNhdmUobGlzdCA9ICJ0X3BlcnNpc3RlbmNlX21vbm9jeXRlIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190X3BlcnNpc3RlbmNlX21vbm9jeXRlLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidF9wZXJzaXN0ZW5jZV9tb25vY3l0ZSIpCgp0X3BlcnNpc3RlbmNlX25ldXRyb3BoaWwgPC0gc3Vic2V0X2V4cHQodF9wZXJzaXN0ZW5jZSwgc3Vic2V0ID0gInR5cGVvZmNlbGxzPT0nbmV1dHJvcGhpbHMnIikKc2F2ZShsaXN0ID0gInRfcGVyc2lzdGVuY2VfbmV1dHJvcGhpbCIsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfdF9wZXJzaXN0ZW5jZV9uZXV0cm9waGlsLXZ7dmVyfS5yZGEiKSkKZGF0YV9zdHJ1Y3R1cmVzIDwtIGMoZGF0YV9zdHJ1Y3R1cmVzLCAidF9wZXJzaXN0ZW5jZV9uZXV0cm9waGlsIikKCnRfcGVyc2lzdGVuY2VfZW9zaW5vcGhpbCA8LSBzdWJzZXRfZXhwdCh0X3BlcnNpc3RlbmNlLCBzdWJzZXQgPSAidHlwZW9mY2VsbHM9PSdlb3Npbm9waGlscyciKQpzYXZlKGxpc3QgPSAidF9wZXJzaXN0ZW5jZV9lb3Npbm9waGlsIiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM190X3BlcnNpc3RlbmNlX2Vvc2lub3BoaWwtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJ0X3BlcnNpc3RlbmNlX2Vvc2lub3BoaWwiKQpgYGAKCiMgU2F2ZSBhbGwgZGF0YSBzdHJ1Y3R1cmVzIGludG8gb25lIGJpZyBwaWxlCgpgYGB7ciBzYXZlX2FsbF9kYXRhfQpzYXZlKGxpc3QgPSBkYXRhX3N0cnVjdHVyZXMsIGZpbGUgPSBnbHVlOjpnbHVlKCJyZGEvdG1yYzNfZGF0YV9zdHJ1Y3R1cmVzLXZ7dmVyfS5yZGEiKSkKYGBgCgojIFN1bW1hcml6ZTogVGFidWxhdGUgc2FtcGxlIG51bWJlcnMKCkhlcmUgaXMgYW4gb3V0bGluZSBvZiB0aGUgc2FtcGxlcyBpbiB0aGVpciBjdXJyZW50IHN0YXRlOgoKKiBCeSB0eXBlOiBgciBuY29sKGV4cHJzKHRfY2xpbmljYWwpKWAsIEN1cmU6IGByIHN1bShwRGF0YSh0X2NsaW5pY2FsKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpYCwgRmFpbDogYHIgc3VtKHBEYXRhKHRfY2xpbmljYWwpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAqICBCaW9wc3k6IGByIGFsbF90eXBlc1tbImJpb3BzeSJdXWAsIEN1cmU6IGByIHN1bShwRGF0YSh0X2Jpb3BzaWVzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpYCwgRmFpbDogYHIgc3VtKHBEYXRhKHRfYmlvcHNpZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAgICAgKiBBbGwgYmlvcHN5IHNhbXBsZXMgYXJlIHZpc2l0IDEuCiAgICAqICBFb3Npbm9waGlsczogYHIgYWxsX3R5cGVzW1siZW9zaW5vcGhpbHMiXV1gLCBDdXJlOiBgciBzdW0ocERhdGEodF9lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0X2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpYAogICAgICAgICogVjEgRW9zaW5vcGhpbHM6IGByIG5yb3cocERhdGEodHYxX2Vvc2lub3BoaWxzKSlgLCBDdXJlOiBgciBzdW0ocERhdGEodHYxX2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpYCwgRmFpbDogYHIgc3VtKHBEYXRhKHR2MV9lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKWAKICAgICAgICAqIFYyIEVvc2lub3BoaWxzOiBgciBucm93KHBEYXRhKHR2Ml9lb3Npbm9waGlscykpYCwgQ3VyZTogYHIgc3VtKHBEYXRhKHR2Ml9lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0djJfZW9zaW5vcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAgICAgKiBWMyBFb3Npbm9waGlsczogYHIgbnJvdyhwRGF0YSh0djNfZW9zaW5vcGhpbHMpKWAsIEN1cmU6IGByIHN1bShwRGF0YSh0djNfZW9zaW5vcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodHYzX2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpYAogICAgKiAgTW9ub2N5dGVzOiBgciBhbGxfdHlwZXNbWyJtb25vY3l0ZXMiXV1gLCBDdXJlOiBgciBzdW0ocERhdGEodF9tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodF9tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAgICAgKiBWMSBNb25vY3l0ZXM6IGByIG5yb3cocERhdGEodHYxX21vbm9jeXRlcykpYCwgQ3VyZTogYHIgc3VtKHBEYXRhKHR2MV9tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodHYxX21vbm9jeXRlcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKWAKICAgICAgICAqIFYyIE1vbm9jeXRlczogYHIgbnJvdyhwRGF0YSh0djJfbW9ub2N5dGVzKSlgLCBDdXJlOiBgciBzdW0ocERhdGEodHYyX21vbm9jeXRlcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0djJfbW9ub2N5dGVzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpYAogICAgICAgICogVjMgTW9ub2N5dGVzOiBgciBucm93KHBEYXRhKHR2M19tb25vY3l0ZXMpKWAsIEN1cmU6IGByIHN1bShwRGF0YSh0djNfbW9ub2N5dGVzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpYCwgRmFpbDogYHIgc3VtKHBEYXRhKHR2M19tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAqICBOZXV0cm9waGlsczogYHIgYWxsX3R5cGVzW1sibmV1dHJvcGhpbHMiXV1gLCBDdXJlOiBgciBzdW0ocERhdGEodF9uZXV0cm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0X25ldXRyb3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpYAogICAgICAgICogVjEgTmV1dHJvcGhpbHM6IGByIG5yb3cocERhdGEodHYxX25ldXRyb3BoaWxzKSlgLCBDdXJlOiBgciBzdW0ocERhdGEodHYxX25ldXRyb3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpYCwgRmFpbDogYHIgc3VtKHBEYXRhKHR2MV9uZXV0cm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKWAKICAgICAgICAqIFYyIE5ldXRyb3BoaWxzOiBgciBucm93KHBEYXRhKHR2Ml9uZXV0cm9waGlscykpYCwgQ3VyZTogYHIgc3VtKHBEYXRhKHR2Ml9uZXV0cm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKWAsIEZhaWw6IGByIHN1bShwRGF0YSh0djJfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIilgCiAgICAgICAgKiBWMyBOZXV0cm9waGlsczogYHIgbnJvdyhwRGF0YSh0djNfbmV1dHJvcGhpbHMpKWAsIEN1cmU6IGByIHN1bShwRGF0YSh0djNfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIilgLCBGYWlsOiBgciBzdW0ocERhdGEodHYzX25ldXRyb3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpYAoKYGBge3IgdG1wX251bWJlcnN9Cm5jb2woZXhwcnModF9jbGluaWNhbCkpCnN1bShwRGF0YSh0X2NsaW5pY2FsKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpCnN1bShwRGF0YSh0X2NsaW5pY2FsKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpCgphbGxfdHlwZXNbWyJiaW9wc3kiXV0Kc3VtKHBEYXRhKHRfYmlvcHNpZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIikKc3VtKHBEYXRhKHRfYmlvcHNpZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIikKCmFsbF90eXBlc1tbImVvc2lub3BoaWxzIl1dCnN1bShwRGF0YSh0X2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpCnN1bShwRGF0YSh0X2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpCgpucm93KHBEYXRhKHR2MV9lb3Npbm9waGlscykpCnN1bShwRGF0YSh0djFfZW9zaW5vcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIikKc3VtKHBEYXRhKHR2MV9lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKQoKbnJvdyhwRGF0YSh0djJfZW9zaW5vcGhpbHMpKQpzdW0ocERhdGEodHYyX2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpCnN1bShwRGF0YSh0djJfZW9zaW5vcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIikKCm5yb3cocERhdGEodHYzX2Vvc2lub3BoaWxzKSkKc3VtKHBEYXRhKHR2M19lb3Npbm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKQpzdW0ocERhdGEodHYzX2Vvc2lub3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpCgphbGxfdHlwZXNbWyJtb25vY3l0ZXMiXV0Kc3VtKHBEYXRhKHRfbW9ub2N5dGVzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpCnN1bShwRGF0YSh0X21vbm9jeXRlcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKQoKbnJvdyhwRGF0YSh0djFfbW9ub2N5dGVzKSkKc3VtKHBEYXRhKHR2MV9tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIikKc3VtKHBEYXRhKHR2MV9tb25vY3l0ZXMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIikKCm5yb3cocERhdGEodHYyX21vbm9jeXRlcykpCnN1bShwRGF0YSh0djJfbW9ub2N5dGVzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpCnN1bShwRGF0YSh0djJfbW9ub2N5dGVzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpCgpucm93KHBEYXRhKHR2M19tb25vY3l0ZXMpKQpzdW0ocERhdGEodHYzX21vbm9jeXRlcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKQpzdW0ocERhdGEodHYzX21vbm9jeXRlcylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImZhaWx1cmUiKQoKYWxsX3R5cGVzW1sibmV1dHJvcGhpbHMiXV0Kc3VtKHBEYXRhKHRfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJjdXJlIikKc3VtKHBEYXRhKHRfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIikKCm5yb3cocERhdGEodHYxX25ldXRyb3BoaWxzKSkKc3VtKHBEYXRhKHR2MV9uZXV0cm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKQpzdW0ocERhdGEodHYxX25ldXRyb3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpCgpucm93KHBEYXRhKHR2Ml9tb25vY3l0ZXMpKQpzdW0ocERhdGEodHYyX25ldXRyb3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiY3VyZSIpCnN1bShwRGF0YSh0djJfbmV1dHJvcGhpbHMpW1siZmluYWxvdXRjb21lIl1dID09ICJmYWlsdXJlIikKCm5yb3cocERhdGEodHYzX25ldXRyb3BoaWxzKSkKc3VtKHBEYXRhKHR2M19uZXV0cm9waGlscylbWyJmaW5hbG91dGNvbWUiXV0gPT0gImN1cmUiKQpzdW0ocERhdGEodHYzX25ldXRyb3BoaWxzKVtbImZpbmFsb3V0Y29tZSJdXSA9PSAiZmFpbHVyZSIpCmBgYAoKYGBge3Igc2F2ZW1lLCBldmFsPUZBTFNFfQppZiAoIWlzVFJVRShnZXQwKCJza2lwX2xvYWQiKSkpIHsKICBwYW5kZXI6OnBhbmRlcihzZXNzaW9uSW5mbygpKQogIG1lc3NhZ2UocGFzdGUwKCJUaGlzIGlzIGhwZ2x0b29scyBjb21taXQ6ICIsIGdldF9naXRfY29tbWl0KCkpKQogIG1lc3NhZ2UocGFzdGUwKCJTYXZpbmcgdG8gIiwgc2F2ZWZpbGUpKQogIHRtcCA8LSBzbShzYXZlbWUoZmlsZW5hbWU9c2F2ZWZpbGUpKQp9CmBgYAoKIyBEYXRhc2V0OiBQYXJhc2l0ZSByZWFkcwoKTWFrZSBhbiBleHByZXNzaW9uc2V0IG9mIHRoZSBwYXJhc2l0ZSByZWFkcyBpbiB0aGUgVE1SQzMgc2FtcGxlcyBhbmQKZGlzdGluZ3Vpc2ggYmV0d2VlbiB0aGUgZmF1eCBhbmQgcmVhbCByZWFkcy4KRS5nOiBBcmUgdGhlcmUgc2FtcGxlcyB3aGljaCBkZWZpbml0aXZlbHkgY29udGFpbiBwYXJhc2l0ZXM/CgpMYXRlciwgSSBtYW51YWxseSB3ZW50IHRocm91Z2ggdGhlIG1hcHBpbmdzIG9mIHNhbXBsZXMgd2l0aCBhCnNpZ25pZmljYW50IG51bWJlciBvZiBwYXJhc2l0ZSByZWFkcyBpbiBJR1Ygd2l0aCBzb21lIFRNUkMyIGtub3duCnp5bW9kZW1lIHNhbXBsZXMuICBJbiBtYW55IGNhc2VzIGl0IGlzIHBvc3NpYmxlIHRvIHN0YXRlIGRlZmluaXRpdmVseQp0aGUgY2xhc3NpZmljYXRpb24gb2YgdGhlIHBhcmFzaXRlIHdoaWNoIGluZmVjdGVkIGFuIGluZGl2aWR1YWwuCgpgYGB7ciBwYXJhc2l0ZV9leHB0fQpscF9leHB0IDwtIHNtKGNyZWF0ZV9leHB0KAogICAgc2FtcGxlc2hlZXQsCiAgICBmaWxlX2NvbHVtbj0ibHBhbmFtZW5zaXN2MzZoaXNhdGZpbGUiLCBnZW5lX2luZm8gPSBOVUxMKSkgJT4lCiAgc3Vic2V0X2V4cHQoY292ZXJhZ2U9MTAwMCkgJT4lCiAgc2V0X2V4cHRfY29uZGl0aW9ucyhmYWN0PSJ0eXBlb2ZjZWxscyIpCnZpc2l0X2ZhY3QgPC0gcERhdGEobHBfZXhwdClbWyJ2aXNpdG51bWJlciJdXQpiYXRjaF9uYSA8LSBpcy5uYSh2aXNpdF9mYWN0KQp2aXNpdF9mYWN0W2JhdGNoX25hXSA8LSAidW5kZWZpbmVkIgpscF9leHB0IDwtIHNldF9leHB0X2JhdGNoZXMobHBfZXhwdCwgZmFjdCA9IHZpc2l0X2ZhY3QpCnNhdmUobGlzdCA9ICJscF9leHB0IiwgZmlsZSA9IGdsdWU6OmdsdWUoInJkYS90bXJjM19scF9leHB0X2FsbF9zYW5pdGl6ZWQtdnt2ZXJ9LnJkYSIpKQpkYXRhX3N0cnVjdHVyZXMgPC0gYyhkYXRhX3N0cnVjdHVyZXMsICJscF9leHB0IikKYGBgCgpUaGUgYWJvdmUgYmxvY2sgaXMgc2ltaWxhciBpbiBjb25jZXB0IHRvIHRoZSBwcmV2aW91cyBleHByZXNzaW9uc2V0CmNyZWF0aW9uLiAgSXQgdXNlcyBhIGRpZmZlcmVudCBjb2x1bW4gYW5kIGN1cnJlbnRseSBpZ25vcmVzIHRoZSBnZW5lCmFubm90YXRpb25zLiAgR2l2ZW4gdGhhdCBtYW55IG9mIHRoZSBzYW1wbGVzIGhhdmUgZXNzZW50aWFsbHkgMCByZWFkcywKSSBzZXQgYSBjdXRvZmYgb2Ygb25seSAyMCBvYnNlcnZlZCBnZW5lcy4gIEZpbmFsbHksIEkgZGlkIGEgcXVpY2sgYW5kCmRpcnR5IFBDQSBwbG90IG9mIHRoaXMgcGVjdWxpYXIgZGF0YSBzdHJ1Y3R1cmUgaW4gdGhlIGhvcGVzIG9mIGJlaW5nCmFibGUgdG8gJ3NlZScgdGhlIGRpZmZlcmVuY2UgYmV0d2VlbiB3aGF0IGFyZSBhc3N1bWVkIHRvIGJlICdyZWFsJwpzYW1wbGVzIHdpdGggYSBzaWduaWZpY2FudCBudW1iZXIgb2YgJ3JlYWwnIHBhcmFzaXRlIHJlYWRzIHZzLiB0aG9zZQpzYW1wbGVzIHdoaWNoIGp1c3QgaGF2ZSBhIGNvdXBsZSBvZiBwb3RlbnRpYWxseSBzcHVyaW91cyByZWFkcy4KCmBgYHtyIGxvYWRtZV9hZnRlciwgZXZhbD1GQUxTRX0KdG1wIDwtIGxvYWRtZShmaWxlbmFtZT1zYXZlZmlsZSkKYGBgCg==