RNA seq Analysis

Packages used

Case study

Data organization

Normalization of raw counts

Unsupervised cluster analysis

Principal Component Analysis (PCA)

Differential Expression Analysis

Extraction of the results of the Differential Expression tests

Analysis of results

Visualization of the results

Packages used

library(dplyr)
library(RColorBrewer)
library(pheatmap)
library(tidyverse)
library(edgeR)
library(DESeq2)
library(ashr)
library(RColorBrewer)

If we have doubts about the steps or the operation of the tools we can use the following function to help us

vignette("DESeq2")

## starting httpd help server ... done

In general, the analysis of differential expression for RNA-seq is divided into two steps (each one that in turn includes other steps):

QA: - Count of gene-associated reads - Normalization - Unsupervised cluster analysis

Differential Expression Analysis - Modeling of raw counts for each gene - Reduced log2 fold changes - Test the differential expression

Case study

In this case we are going to work with a dataset used by the article by Gerarduzzi et al., 2017 (DOI: 10.1172/jci.insight.90299). Basically, they want to know why mice overexpressing the Smoc2 gene are more likely to develop renal fibrosis. In this case, two sample groups are being tested: - 3 Mice without fibrosis and with overexpression of Smoc2 - 4 mice with fibrosis and with overexpression of Smoc2 Essentially, one wants to know if gene expression is differential between groups.

First we need the gene-associated read counts and the associated sample metadata

# We load the raw readings
smoc2_rawcounts <- read.csv("E:/02 Estudio/00 NOTAS IMPORTANTES/R - Notas/Datasets/fibrosis_smoc2_rawcounts_unordered.csv", row.names = 1)

# We can make dataframe with the metadata used
genotype<-rep("smoc2",7)
condition<-c("fibrosis", "fibrosis", "fibrosis", "fibrosis", "normal", "normal", "normal")
row_names<-c("smoc2_fibrosis1", "smoc2_fibrosis2","smoc2_fibrosis3","smoc2_fibrosis4" , "smoc2_normal1","smoc2_normal3","smoc2_normal4")
smoc2_metadata<-data.frame(genotype,condition,row.names = row_names)
smoc2_metadata

##                 genotype condition
## smoc2_fibrosis1    smoc2  fibrosis
## smoc2_fibrosis2    smoc2  fibrosis
## smoc2_fibrosis3    smoc2  fibrosis
## smoc2_fibrosis4    smoc2  fibrosis
## smoc2_normal1      smoc2    normal
## smoc2_normal3      smoc2    normal
## smoc2_normal4      smoc2    normal

Data organization

When comparing the names of the metadata and those of the readings, they are not in the same order. DESeq2 requires both to be in the same order in order to perform analyzes

# We check if the names are in the same order
all(rownames(smoc2_metadata)==colnames(smoc2_rawcounts))

## [1] FALSE

# We reorder the column names in the dataset guided by the metadata
reorder_idx <- match(rownames(smoc2_metadata), colnames(smoc2_rawcounts))

# We replace the names of the dataset columns with those already ordered
reordered_smoc2_rawcounts <- smoc2_rawcounts[ , reorder_idx]

# We create a DESeq2 object
dds_smoc2<-DESeqDataSetFromMatrix(countData = reordered_smoc2_rawcounts, colData = smoc2_metadata, design = ~ condition)
dds_smoc2

## class: DESeqDataSet 
## dim: 47729 7 
## metadata(1): version
## assays(1): counts
## rownames(47729): ENSMUSG00000102693 ENSMUSG00000064842 ...
##   ENSMUSG00000096730 ENSMUSG00000095742
## rowData names(0):
## colnames(7): smoc2_fibrosis1 smoc2_fibrosis2 ... smoc2_normal3
##   smoc2_normal4
## colData names(2): genotype condition

Normalization of raw counts

Normalization is the process of scaling the raw count values to account for “uninteresting” factors. In this way, expression levels are more comparable between and/or within samples. The main factors to consider are the depth of the library, the length of the genes and the composition of the RNA.

# We calculate the normalized counts and assign them to a variable
dds_smoc2 <- estimateSizeFactors(dds_smoc2)
# DESeq2 will use these size factors to normalize the raw counts. The raw counts for each sample are divided by the sample-specific size factor associated with the normalization

# We look at the size factors used for normalization
sizeFactors(dds_smoc2)

## smoc2_fibrosis1 smoc2_fibrosis2 smoc2_fibrosis3 smoc2_fibrosis4   smoc2_normal1 
##       1.4319832       1.1189642       1.2480024       1.0826799       0.7106482 
##   smoc2_normal3   smoc2_normal4 
##       0.7989734       0.8482426

# Once normalized, we can extract the counts
dds_smoc2_normalized <- counts(dds_smoc2, normalized=TRUE)

Unsupervised cluster analysis

With the counts normalized, we can now compare the counts between the different samples to see how different they are from each other. To do this, we use visualization methods for unsupervised clustering analysis, such as hierarchical clustering heat maps, or Principal Component Analysis. Through these analyzes we can obtain a general idea of our samples and identify atypical samples.

# For RNA-seq data, DESeq2 uses a variance stabilizer transform (VST). This is a logarithmic transformation that moderates the variance through the mean.
vsd_smoc2<-vst(dds_smoc2, blind = TRUE) # blind=TRUE expresses that the transformation should be blind to the sample information given in the design formula.

# We extract the vsd matrix from the vsd object
vsd_mat_smoc2 <- assay(vsd_smoc2)

# We make a correlation matrix
vsd_cor_smoc2 <- cor(vsd_mat_smoc2)
vsd_cor_smoc2

##                 smoc2_fibrosis1 smoc2_fibrosis2 smoc2_fibrosis3 smoc2_fibrosis4
## smoc2_fibrosis1       1.0000000       0.9958622       0.9949621       0.9948457
## smoc2_fibrosis2       0.9958622       1.0000000       0.9952111       0.9946819
## smoc2_fibrosis3       0.9949621       0.9952111       1.0000000       0.9951846
## smoc2_fibrosis4       0.9948457       0.9946819       0.9951846       1.0000000
## smoc2_normal1         0.9631782       0.9651063       0.9678895       0.9668704
## smoc2_normal3         0.9637385       0.9656578       0.9691965       0.9671808
## smoc2_normal4         0.9597660       0.9618977       0.9650676       0.9635529
##                 smoc2_normal1 smoc2_normal3 smoc2_normal4
## smoc2_fibrosis1     0.9631782     0.9637385     0.9597660
## smoc2_fibrosis2     0.9651063     0.9656578     0.9618977
## smoc2_fibrosis3     0.9678895     0.9691965     0.9650676
## smoc2_fibrosis4     0.9668704     0.9671808     0.9635529
## smoc2_normal1       1.0000000     0.9935479     0.9940744
## smoc2_normal3       0.9935479     1.0000000     0.9942610
## smoc2_normal4       0.9940744     0.9942610     1.0000000

# We generate a heat map using the results of the correlation
pheatmap(vsd_cor_smoc2, annotation = smoc2_metadata["condition"])

# The annotation argument selects the factors to be used as annotation bars, in this case we use the condition column of the metadata dataset

Principal Component Analysis (PCA)

PCA finds the principal components of a data set, with the first components being the ones that explain the greatest variance of the data.

# We created a PCA
plotPCA(vsd_smoc2, intgroup="condition") # Intgroup is the argument to specify which factor from the metadata to use to color the graph

Differential Expression Analysis

# Here we use the DESeq2 object created above to apply differential expression analysis
dds_smoc2 <- DESeq(dds_smoc2) # By default, this function performs the Wald test for pairwise comparisons to test for differences between two groups of samples for the condition of interest.

## using pre-existing size factors

## estimating dispersions

## gene-wise dispersion estimates

## mean-dispersion relationship

## final dispersion estimates

## fitting model and testing

Before looking at the results we need to see how well the data fit the model. To see the variation in the data, we will look at the variation in gene expression relative to the mean. The variance, being the square of the standard deviation, represents how far the expression of the individual samples is from the mean. For RNA-seq data, the variance is typically expected to increase with mean gene expression.

To see this variation we can calculate the mean and variance for each gene in the samples using the apply() function.

apply() syntax: apply(data, rows/columns, function to apply)

# We calculate the mean and variance for each gene (each row) - in this case only from the samples with fibrosis
mean_counts<- apply(reordered_smoc2_rawcounts[, 1:4], 1, mean)
variance_counts<- apply(reordered_smoc2_rawcounts[, 1:4], 1, var)

# Then we can create a data set with these variables to plot with ggplot2
df<-data.frame(mean_counts, variance_counts)

ggplot(df, aes(x=mean_counts, y=variance_counts))+
  geom_point()+
  scale_y_log10()+
  scale_x_log10()+
  xlab("Mean counts per gene")+
  ylab("Variance per gene")

## Warning: Transformation introduced infinite values in continuous y-axis

## Warning: Transformation introduced infinite values in continuous x-axis

We can also see the dispersion of the data. Dispersion is a measure of the variance for a given mean. The dispersion in this case is used to assess the variability in expression when modeling the counts. An increase in the variance causes greater dispersion, while an increase in the mean decreases the dispersion.

# We plot the dispersion
plotDispEsts(dds_smoc2)

When the dispersion does not decrease as the mean increases or remains very high, it could be due to outliers or contamination of the sample.

Extraction of the results of the Differential Expression tests

Now that we have explored the fit of the data to the model, we can extract the results of the Differential Expression tests.

We see the results for a probability that the differences are due to chance of 5% (value of alpha). You can add the contrast parameter to specify the base condition of the sample (which would be normal in this case) and the condition to compare (fibrosis), as well as the factor to compare (condition). It is advisable to do this since sometimes, by default, the base condition of the sample is not adequate to make the comparison more understandable. For example, in this case of using the function “results(dds_smoc2, alpha=0.05)” fibrosis would be the base condition, which is not ideal.

Syntax results(DESeq2 object, contrast= c(“factor to compare”, “condition to compare”, “sample base condition”), alpha=0.05)

smoc2_res<-results(dds_smoc2, contrast= c("condition", "fibrosis", "normal"), alpha=0.05)
smoc2_res

## log2 fold change (MLE): condition fibrosis vs normal 
## Wald test p-value: condition fibrosis vs normal 
## DataFrame with 47729 rows and 6 columns
##                      baseMean log2FoldChange     lfcSE      stat      pvalue
##                     <numeric>      <numeric> <numeric> <numeric>   <numeric>
## ENSMUSG00000102693   0.000000             NA        NA        NA          NA
## ENSMUSG00000064842   0.000000             NA        NA        NA          NA
## ENSMUSG00000051951  22.478090        4.49814  0.829291  5.424085 5.82520e-08
## ENSMUSG00000102851   0.000000             NA        NA        NA          NA
## ENSMUSG00000103377   0.201024       -1.59170  3.816946 -0.417009 6.76672e-01
## ...                       ...            ...       ...       ...         ...
## ENSMUSG00000094431   0.000000             NA        NA        NA          NA
## ENSMUSG00000094621   0.300363      -0.870367  3.816946 -0.228027 8.19625e-01
## ENSMUSG00000098647   0.000000             NA        NA        NA          NA
## ENSMUSG00000096730   0.000000             NA        NA        NA          NA
## ENSMUSG00000095742 682.741942       1.822385  0.222836  8.178128 2.88287e-16
##                           padj
##                      <numeric>
## ENSMUSG00000102693          NA
## ENSMUSG00000064842          NA
## ENSMUSG00000051951 2.54201e-07
## ENSMUSG00000102851          NA
## ENSMUSG00000103377          NA
## ...                        ...
## ENSMUSG00000094431          NA
## ENSMUSG00000094621          NA
## ENSMUSG00000098647          NA
## ENSMUSG00000096730          NA
## ENSMUSG00000095742 2.33876e-15

We can make an MA plot to better understand the results. This plot shows the mean of the normalized counts against the log2 fold change for all genes tested. In the graph all the genes colored in blue (in this case) present a significant differential expression

plotMA(smoc2_res, alpha=0.1)

To improve the estimated fold changes we can use the log2 fold contraction. For genes with little information available, this contraction uses information from all genes to generate lower, most likely fold change estimates.

smoc2_res<-lfcShrink(dds_smoc2, contrast = c("condition", "fibrosis", "normal"), type = "ashr", res = smoc2_res)

## using 'ashr' for LFC shrinkage. If used in published research, please cite:
##     Stephens, M. (2016) False discovery rates: a new deal. Biostatistics, 18:2.
##     https://doi.org/10.1093/biostatistics/kxw041

plotMA(smoc2_res)

Analysis of results

To get descriptions of the columns in the result table, we can use the mcols() function

mcols(smoc2_res)

## DataFrame with 5 rows and 2 columns
##                        type            description
##                 <character>            <character>
## baseMean       intermediate mean of normalized c..
## log2FoldChange      results log2 fold change (MM..
## lfcSE               results posterior SD: condit..
## pvalue              results Wald test p-value: c..
## padj                results   BH adjusted p-values

There is a 5% probability that differentially expressed genes are false positives, that is, for a sample of more than 47,000 genes there would be more than 2,000 false positives. Therefore, DESeq2 performs a multiple test correction using the Benjamini-Hochberg, or BH method to adjust the p-values for multiple tests and control for the number of false positives. To reduce the number of genes tested, DESeq2 filters out genes that were unlikely to be differentially expressed such as genes with zero counts, genes with low mean values across all samples, and genes with outliers. These genes are represented in the results tables by a NA in the adjusted p column.

head(smoc2_res, n=10)

## log2 fold change (MMSE): condition fibrosis vs normal 
## Wald test p-value: condition fibrosis vs normal 
## DataFrame with 10 rows and 5 columns
##                     baseMean log2FoldChange     lfcSE      pvalue        padj
##                    <numeric>      <numeric> <numeric>   <numeric>   <numeric>
## ENSMUSG00000102693  0.000000       0.000000  1.317260          NA          NA
## ENSMUSG00000064842  0.000000       0.000000  1.317260          NA          NA
## ENSMUSG00000051951 22.478090       3.830239  0.789376 5.82520e-08 2.54201e-07
## ENSMUSG00000102851  0.000000       0.000000  1.317260          NA          NA
## ENSMUSG00000103377  0.201024      -0.144713  1.160599 6.76672e-01          NA
## ENSMUSG00000104017  0.000000       0.000000  1.317260          NA          NA
## ENSMUSG00000103025  0.000000       0.000000  1.317260          NA          NA
## ENSMUSG00000089699  0.000000       0.000000  1.317260          NA          NA
## ENSMUSG00000103201  0.000000       0.000000  1.317260          NA          NA
## ENSMUSG00000103147  0.674871       0.170710  0.948267 6.82688e-01          NA

summary(smoc2_res)

## 
## out of 29556 with nonzero total read count
## adjusted p-value < 0.05
## LFC > 0 (up)       : 5776, 20%
## LFC < 0 (down)     : 5332, 18%
## outliers [1]       : 15, 0.051%
## low counts [2]     : 7207, 24%
## (mean count < 1)
## [1] see 'cooksCutoff' argument of ?results
## [2] see 'independentFiltering' argument of ?results

The results show more than 10,000 genes with differential expression (divided into high or low expressed).

The fold change is the difference of a subsequent measurement with respect to the original, for example, if the original measurement is 10 and the subsequent measurement is 20, the fold change is 2 (increased twice). The fold change it uses by default is 1, so log2 of the fold change is 0. The fold change can also be modified to rule out genes that are probably not differentially expressed but whose fold change is greater than one and appear as such, so they could be false positives. To do this we must run the results again.

smoc2_res<-results(dds_smoc2, contrast= c("condition", "fibrosis", "normal"), alpha=0.05, lfcThreshold = 0.32) # we will use a fold change of 1.25 (whose log2 is 0.32)
smoc2_res

## log2 fold change (MLE): condition fibrosis vs normal 
## Wald test p-value: condition fibrosis vs normal 
## DataFrame with 47729 rows and 6 columns
##                      baseMean log2FoldChange     lfcSE      stat      pvalue
##                     <numeric>      <numeric> <numeric> <numeric>   <numeric>
## ENSMUSG00000102693   0.000000             NA        NA        NA          NA
## ENSMUSG00000064842   0.000000             NA        NA        NA          NA
## ENSMUSG00000051951  22.478090        4.49814  0.829291  5.038213 4.69897e-07
## ENSMUSG00000102851   0.000000             NA        NA        NA          NA
## ENSMUSG00000103377   0.201024       -1.59170  3.816946 -0.333172 7.39005e-01
## ...                       ...            ...       ...       ...         ...
## ENSMUSG00000094431   0.000000             NA        NA        NA          NA
## ENSMUSG00000094621   0.300363      -0.870367  3.816946  -0.14419 8.85350e-01
## ENSMUSG00000098647   0.000000             NA        NA        NA          NA
## ENSMUSG00000096730   0.000000             NA        NA        NA          NA
## ENSMUSG00000095742 682.741942       1.822385  0.222836   6.74210 1.56117e-11
##                           padj
##                      <numeric>
## ENSMUSG00000102693          NA
## ENSMUSG00000064842          NA
## ENSMUSG00000051951 2.82952e-06
## ENSMUSG00000102851          NA
## ENSMUSG00000103377          NA
## ...                        ...
## ENSMUSG00000094431          NA
## ENSMUSG00000094621          NA
## ENSMUSG00000098647          NA
## ENSMUSG00000096730          NA
## ENSMUSG00000095742 1.38581e-10

smoc2_res<-lfcShrink(dds_smoc2, contrast = c("condition", "fibrosis", "normal"), type = "ashr", res = smoc2_res)

## using 'ashr' for LFC shrinkage. If used in published research, please cite:
##     Stephens, M. (2016) False discovery rates: a new deal. Biostatistics, 18:2.
##     https://doi.org/10.1093/biostatistics/kxw041

We compare the results and see that there are indeed fewer genes, indicating that around 4000 genes were discarded from the original result, since their fold change is less than 1.25.

summary(smoc2_res)

## 
## out of 29556 with nonzero total read count
## adjusted p-value < 0.05
## LFC > 0 (up)       : 3716, 13%
## LFC < 0 (down)     : 3322, 11%
## outliers [1]       : 15, 0.051%
## low counts [2]     : 7207, 24%
## (mean count < 1)
## [1] see 'cooksCutoff' argument of ?results
## [2] see 'independentFiltering' argument of ?results

# We convert the results into a dataframe and add the logical variable threshold whose value will be TRUE only in cases where the adjusted p is less than 0.05
smoc2_res_all <- data.frame(smoc2_res) %>% mutate(threshold=padj < 0.05)

Visualization of the results

Volcano Plot

To make a volcano graph we use the results stored in the smoc2_res_all dataframe. We plot the log2 of the fold change vs. the log10 of the adjusted p, and the differences between the samples with a significant differential expression with those not given by the color (threshold).

DESeq2::plotMA(smoc2_res)

ggplot(smoc2_res_all) + 
        geom_point(aes(x = log2FoldChange, y = -log10(padj), color = threshold)) + 
        xlab("log2 fold change") + 
        ylab("-log10 adjusted p-value") + 
        theme(legend.position = "none", 
              plot.title = element_text(size = rel(1.5), hjust = 0.5), 
              axis.title = element_text(size = rel(1.25)))

Heat Map

The heat map or heatmap is used to observe the differential expression of a gene. There are generally two criteria that are taken to make these graphs: logFc value (expression rate) that must be greater than 1 (although 2 is usually used) and p-value that must be less than 0.05 .

# First we make a subset of the results that contains only the significant cases taking an adjusted p less than 0.05.
smoc2_res_sig <- subset(smoc2_res_all, padj<0.05)

# We order according to the genes with the lowest p values.
smoc2_res_sig <- smoc2_res_sig %>%
  arrange(padj)

We created a subset of the normalized counts initially, but only including genes with significant expression. “smoc2_res_sig” is the dataframe that includes only the significant genes, therefore the subset created will only search for the normalized genes whose names match the significant ones, the rest will be excluded.

sig_norm_counts_smoc2 <- dds_smoc2_normalized[rownames(smoc2_res_sig),]

# We select a color palette
display.brewer.all()

heat_colors <- brewer.pal(n = 6, name = "YlOrRd")

We plot the heat map. Remember in annotation to use the select function to select both the metadata dataframe and the parameter to compare, in this case it is condition.

pheatmap(sig_norm_counts_smoc2, 
         color = heat_colors, 
         cluster_rows = T, 
         show_rownames = F,
         annotation = smoc2_metadata["condition"], 
         scale = "row")

A marked differentiation between fibrosis/normal conditions is observed. Differentially expressed genes, both up and down are inverted in each cluster. Basically, the genes that are overexpressed in the group with fibrosis are down-expressed in the group without the disease. And the same occurs for the overexpressed genes in the normal group. Therefore, it can be said that there is a significant difference in the levels of gene expression for the fibrosis disease in the tested organisms when compared with organisms that do not present the disease.

LS0tDQp0aXRsZTogIlJOQSBzZXEgQW5hbHlzaXMiDQplbWFpbDogYWxlamFuZHJvcmV4OTVAZ21haWwuY29tDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgdG9jOiBUUlVFDQogICAgdG9jX2Zsb2F0OiBUUlVFDQogICAgY29kZV9kb3dubG9hZDogVFJVRQ0KICAgIHRoZW1lOiB1bml0ZWQNCiAgY3NsOiBhcGEuY3NsDQotLS0NCg0KIyMgUGFja2FnZXMgdXNlZA0KDQpgYGB7ciBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShkcGx5cikNCmxpYnJhcnkoUkNvbG9yQnJld2VyKQ0KbGlicmFyeShwaGVhdG1hcCkNCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShlZGdlUikNCmxpYnJhcnkoREVTZXEyKQ0KbGlicmFyeShhc2hyKQ0KbGlicmFyeShSQ29sb3JCcmV3ZXIpDQpgYGANCg0KSWYgd2UgaGF2ZSBkb3VidHMgYWJvdXQgdGhlIHN0ZXBzIG9yIHRoZSBvcGVyYXRpb24gb2YgdGhlIHRvb2xzIHdlIGNhbiB1c2UgdGhlIGZvbGxvd2luZyBmdW5jdGlvbiB0byBoZWxwIHVzDQoNCmBgYHtyLCB3YXJuaW5nPUZBTFNFfQ0KdmlnbmV0dGUoIkRFU2VxMiIpDQpgYGANCg0KSW4gZ2VuZXJhbCwgdGhlIGFuYWx5c2lzIG9mIGRpZmZlcmVudGlhbCBleHByZXNzaW9uIGZvciBSTkEtc2VxIGlzIGRpdmlkZWQgaW50byB0d28gc3RlcHMgKGVhY2ggb25lIHRoYXQgaW4gdHVybiBpbmNsdWRlcyBvdGhlciBzdGVwcyk6DQoNClFBOg0KLSBDb3VudCBvZiBnZW5lLWFzc29jaWF0ZWQgcmVhZHMNCi0gTm9ybWFsaXphdGlvbg0KLSBVbnN1cGVydmlzZWQgY2x1c3RlciBhbmFseXNpcw0KDQpEaWZmZXJlbnRpYWwgRXhwcmVzc2lvbiBBbmFseXNpcw0KLSBNb2RlbGluZyBvZiByYXcgY291bnRzIGZvciBlYWNoIGdlbmUNCi0gUmVkdWNlZCBsb2cyIGZvbGQgY2hhbmdlcw0KLSBUZXN0IHRoZSBkaWZmZXJlbnRpYWwgZXhwcmVzc2lvbg0KDQojIyBDYXNlIHN0dWR5DQoNCkluIHRoaXMgY2FzZSB3ZSBhcmUgZ29pbmcgdG8gd29yayB3aXRoIGEgZGF0YXNldCB1c2VkIGJ5IHRoZSBhcnRpY2xlIGJ5IEdlcmFyZHV6emkgZXQgYWwuLCAyMDE3IChET0k6IDEwLjExNzIvamNpLmluc2lnaHQuOTAyOTkpLiBCYXNpY2FsbHksIHRoZXkgd2FudCB0byBrbm93IHdoeSBtaWNlIG92ZXJleHByZXNzaW5nIHRoZSBTbW9jMiBnZW5lIGFyZSBtb3JlIGxpa2VseSB0byBkZXZlbG9wIHJlbmFsIGZpYnJvc2lzLiBJbiB0aGlzIGNhc2UsIHR3byBzYW1wbGUgZ3JvdXBzIGFyZSBiZWluZyB0ZXN0ZWQ6DQotIDMgTWljZSB3aXRob3V0IGZpYnJvc2lzIGFuZCB3aXRoIG92ZXJleHByZXNzaW9uIG9mIFNtb2MyDQotIDQgbWljZSB3aXRoIGZpYnJvc2lzIGFuZCB3aXRoIG92ZXJleHByZXNzaW9uIG9mIFNtb2MyDQpFc3NlbnRpYWxseSwgb25lIHdhbnRzIHRvIGtub3cgaWYgZ2VuZSBleHByZXNzaW9uIGlzIGRpZmZlcmVudGlhbCBiZXR3ZWVuIGdyb3Vwcy4NCg0KRmlyc3Qgd2UgbmVlZCB0aGUgZ2VuZS1hc3NvY2lhdGVkIHJlYWQgY291bnRzIGFuZCB0aGUgYXNzb2NpYXRlZCBzYW1wbGUgbWV0YWRhdGENCg0KYGBge3IsIHdhcm5pbmc9RkFMU0V9DQojIFdlIGxvYWQgdGhlIHJhdyByZWFkaW5ncw0Kc21vYzJfcmF3Y291bnRzIDwtIHJlYWQuY3N2KCJFOi8wMiBFc3R1ZGlvLzAwIE5PVEFTIElNUE9SVEFOVEVTL1IgLSBOb3Rhcy9EYXRhc2V0cy9maWJyb3Npc19zbW9jMl9yYXdjb3VudHNfdW5vcmRlcmVkLmNzdiIsIHJvdy5uYW1lcyA9IDEpDQoNCiMgV2UgY2FuIG1ha2UgZGF0YWZyYW1lIHdpdGggdGhlIG1ldGFkYXRhIHVzZWQNCmdlbm90eXBlPC1yZXAoInNtb2MyIiw3KQ0KY29uZGl0aW9uPC1jKCJmaWJyb3NpcyIsICJmaWJyb3NpcyIsICJmaWJyb3NpcyIsICJmaWJyb3NpcyIsICJub3JtYWwiLCAibm9ybWFsIiwgIm5vcm1hbCIpDQpyb3dfbmFtZXM8LWMoInNtb2MyX2ZpYnJvc2lzMSIsICJzbW9jMl9maWJyb3NpczIiLCJzbW9jMl9maWJyb3NpczMiLCJzbW9jMl9maWJyb3NpczQiICwgInNtb2MyX25vcm1hbDEiLCJzbW9jMl9ub3JtYWwzIiwic21vYzJfbm9ybWFsNCIpDQpzbW9jMl9tZXRhZGF0YTwtZGF0YS5mcmFtZShnZW5vdHlwZSxjb25kaXRpb24scm93Lm5hbWVzID0gcm93X25hbWVzKQ0Kc21vYzJfbWV0YWRhdGENCmBgYA0KDQojIyBEYXRhIG9yZ2FuaXphdGlvbg0KDQpXaGVuIGNvbXBhcmluZyB0aGUgbmFtZXMgb2YgdGhlIG1ldGFkYXRhIGFuZCB0aG9zZSBvZiB0aGUgcmVhZGluZ3MsIHRoZXkgYXJlIG5vdCBpbiB0aGUgc2FtZSBvcmRlci4gREVTZXEyIHJlcXVpcmVzIGJvdGggdG8gYmUgaW4gdGhlIHNhbWUgb3JkZXIgaW4gb3JkZXIgdG8gcGVyZm9ybSBhbmFseXplcw0KDQpgYGB7ciwgd2FybmluZz1GQUxTRX0NCiMgV2UgY2hlY2sgaWYgdGhlIG5hbWVzIGFyZSBpbiB0aGUgc2FtZSBvcmRlcg0KYWxsKHJvd25hbWVzKHNtb2MyX21ldGFkYXRhKT09Y29sbmFtZXMoc21vYzJfcmF3Y291bnRzKSkNCg0KIyBXZSByZW9yZGVyIHRoZSBjb2x1bW4gbmFtZXMgaW4gdGhlIGRhdGFzZXQgZ3VpZGVkIGJ5IHRoZSBtZXRhZGF0YQ0KcmVvcmRlcl9pZHggPC0gbWF0Y2gocm93bmFtZXMoc21vYzJfbWV0YWRhdGEpLCBjb2xuYW1lcyhzbW9jMl9yYXdjb3VudHMpKQ0KDQojIFdlIHJlcGxhY2UgdGhlIG5hbWVzIG9mIHRoZSBkYXRhc2V0IGNvbHVtbnMgd2l0aCB0aG9zZSBhbHJlYWR5IG9yZGVyZWQNCnJlb3JkZXJlZF9zbW9jMl9yYXdjb3VudHMgPC0gc21vYzJfcmF3Y291bnRzWyAsIHJlb3JkZXJfaWR4XQ0KDQojIFdlIGNyZWF0ZSBhIERFU2VxMiBvYmplY3QNCmRkc19zbW9jMjwtREVTZXFEYXRhU2V0RnJvbU1hdHJpeChjb3VudERhdGEgPSByZW9yZGVyZWRfc21vYzJfcmF3Y291bnRzLCBjb2xEYXRhID0gc21vYzJfbWV0YWRhdGEsIGRlc2lnbiA9IH4gY29uZGl0aW9uKQ0KZGRzX3Ntb2MyDQpgYGANCg0KIyMgTm9ybWFsaXphdGlvbiBvZiByYXcgY291bnRzDQoNCk5vcm1hbGl6YXRpb24gaXMgdGhlIHByb2Nlc3Mgb2Ygc2NhbGluZyB0aGUgcmF3IGNvdW50IHZhbHVlcyB0byBhY2NvdW50IGZvciAidW5pbnRlcmVzdGluZyIgZmFjdG9ycy4gSW4gdGhpcyB3YXksIGV4cHJlc3Npb24gbGV2ZWxzIGFyZSBtb3JlIGNvbXBhcmFibGUgYmV0d2VlbiBhbmQvb3Igd2l0aGluIHNhbXBsZXMuIFRoZSBtYWluIGZhY3RvcnMgdG8gY29uc2lkZXIgYXJlIHRoZSBkZXB0aCBvZiB0aGUgbGlicmFyeSwgdGhlIGxlbmd0aCBvZiB0aGUgZ2VuZXMgYW5kIHRoZSBjb21wb3NpdGlvbiBvZiB0aGUgUk5BLg0KDQpgYGB7ciwgd2FybmluZz1GQUxTRX0NCiMgV2UgY2FsY3VsYXRlIHRoZSBub3JtYWxpemVkIGNvdW50cyBhbmQgYXNzaWduIHRoZW0gdG8gYSB2YXJpYWJsZQ0KZGRzX3Ntb2MyIDwtIGVzdGltYXRlU2l6ZUZhY3RvcnMoZGRzX3Ntb2MyKQ0KIyBERVNlcTIgd2lsbCB1c2UgdGhlc2Ugc2l6ZSBmYWN0b3JzIHRvIG5vcm1hbGl6ZSB0aGUgcmF3IGNvdW50cy4gVGhlIHJhdyBjb3VudHMgZm9yIGVhY2ggc2FtcGxlIGFyZSBkaXZpZGVkIGJ5IHRoZSBzYW1wbGUtc3BlY2lmaWMgc2l6ZSBmYWN0b3IgYXNzb2NpYXRlZCB3aXRoIHRoZSBub3JtYWxpemF0aW9uDQoNCiMgV2UgbG9vayBhdCB0aGUgc2l6ZSBmYWN0b3JzIHVzZWQgZm9yIG5vcm1hbGl6YXRpb24NCnNpemVGYWN0b3JzKGRkc19zbW9jMikNCg0KIyBPbmNlIG5vcm1hbGl6ZWQsIHdlIGNhbiBleHRyYWN0IHRoZSBjb3VudHMNCmRkc19zbW9jMl9ub3JtYWxpemVkIDwtIGNvdW50cyhkZHNfc21vYzIsIG5vcm1hbGl6ZWQ9VFJVRSkNCmBgYA0KDQojIyBVbnN1cGVydmlzZWQgY2x1c3RlciBhbmFseXNpcw0KDQpXaXRoIHRoZSBjb3VudHMgbm9ybWFsaXplZCwgd2UgY2FuIG5vdyBjb21wYXJlIHRoZSBjb3VudHMgYmV0d2VlbiB0aGUgZGlmZmVyZW50IHNhbXBsZXMgdG8gc2VlIGhvdyBkaWZmZXJlbnQgdGhleSBhcmUgZnJvbSBlYWNoIG90aGVyLiBUbyBkbyB0aGlzLCB3ZSB1c2UgdmlzdWFsaXphdGlvbiBtZXRob2RzIGZvciB1bnN1cGVydmlzZWQgY2x1c3RlcmluZyBhbmFseXNpcywgc3VjaCBhcyBoaWVyYXJjaGljYWwgY2x1c3RlcmluZyBoZWF0IG1hcHMsIG9yIFByaW5jaXBhbCBDb21wb25lbnQgQW5hbHlzaXMuIFRocm91Z2ggdGhlc2UgYW5hbHl6ZXMgd2UgY2FuIG9idGFpbiBhIGdlbmVyYWwgaWRlYSBvZiBvdXIgc2FtcGxlcyBhbmQgaWRlbnRpZnkgYXR5cGljYWwgc2FtcGxlcy4NCg0KYGBge3IsIHdhcm5pbmc9RkFMU0V9DQojIEZvciBSTkEtc2VxIGRhdGEsIERFU2VxMiB1c2VzIGEgdmFyaWFuY2Ugc3RhYmlsaXplciB0cmFuc2Zvcm0gKFZTVCkuIFRoaXMgaXMgYSBsb2dhcml0aG1pYyB0cmFuc2Zvcm1hdGlvbiB0aGF0IG1vZGVyYXRlcyB0aGUgdmFyaWFuY2UgdGhyb3VnaCB0aGUgbWVhbi4NCnZzZF9zbW9jMjwtdnN0KGRkc19zbW9jMiwgYmxpbmQgPSBUUlVFKSAjIGJsaW5kPVRSVUUgZXhwcmVzc2VzIHRoYXQgdGhlIHRyYW5zZm9ybWF0aW9uIHNob3VsZCBiZSBibGluZCB0byB0aGUgc2FtcGxlIGluZm9ybWF0aW9uIGdpdmVuIGluIHRoZSBkZXNpZ24gZm9ybXVsYS4NCg0KIyBXZSBleHRyYWN0IHRoZSB2c2QgbWF0cml4IGZyb20gdGhlIHZzZCBvYmplY3QNCnZzZF9tYXRfc21vYzIgPC0gYXNzYXkodnNkX3Ntb2MyKQ0KDQojIFdlIG1ha2UgYSBjb3JyZWxhdGlvbiBtYXRyaXgNCnZzZF9jb3Jfc21vYzIgPC0gY29yKHZzZF9tYXRfc21vYzIpDQp2c2RfY29yX3Ntb2MyDQoNCiMgV2UgZ2VuZXJhdGUgYSBoZWF0IG1hcCB1c2luZyB0aGUgcmVzdWx0cyBvZiB0aGUgY29ycmVsYXRpb24NCnBoZWF0bWFwKHZzZF9jb3Jfc21vYzIsIGFubm90YXRpb24gPSBzbW9jMl9tZXRhZGF0YVsiY29uZGl0aW9uIl0pDQoNCiMgVGhlIGFubm90YXRpb24gYXJndW1lbnQgc2VsZWN0cyB0aGUgZmFjdG9ycyB0byBiZSB1c2VkIGFzIGFubm90YXRpb24gYmFycywgaW4gdGhpcyBjYXNlIHdlIHVzZSB0aGUgY29uZGl0aW9uIGNvbHVtbiBvZiB0aGUgbWV0YWRhdGEgZGF0YXNldA0KDQpgYGANCg0KIyMgUHJpbmNpcGFsIENvbXBvbmVudCBBbmFseXNpcyAoUENBKQ0KDQpQQ0EgZmluZHMgdGhlIHByaW5jaXBhbCBjb21wb25lbnRzIG9mIGEgZGF0YSBzZXQsIHdpdGggdGhlIGZpcnN0IGNvbXBvbmVudHMgYmVpbmcgdGhlIG9uZXMgdGhhdCBleHBsYWluIHRoZSBncmVhdGVzdCB2YXJpYW5jZSBvZiB0aGUgZGF0YS4NCg0KYGBge3IsIHdhcm5pbmc9RkFMU0V9DQojIFdlIGNyZWF0ZWQgYSBQQ0ENCnBsb3RQQ0EodnNkX3Ntb2MyLCBpbnRncm91cD0iY29uZGl0aW9uIikgIyBJbnRncm91cCBpcyB0aGUgYXJndW1lbnQgdG8gc3BlY2lmeSB3aGljaCBmYWN0b3IgZnJvbSB0aGUgbWV0YWRhdGEgdG8gdXNlIHRvIGNvbG9yIHRoZSBncmFwaA0KDQpgYGANCg0KIyMgRGlmZmVyZW50aWFsIEV4cHJlc3Npb24gQW5hbHlzaXMNCg0KYGBge3IsIHdhcm5pbmc9RkFMU0V9DQojIEhlcmUgd2UgdXNlIHRoZSBERVNlcTIgb2JqZWN0IGNyZWF0ZWQgYWJvdmUgdG8gYXBwbHkgZGlmZmVyZW50aWFsIGV4cHJlc3Npb24gYW5hbHlzaXMNCmRkc19zbW9jMiA8LSBERVNlcShkZHNfc21vYzIpICMgQnkgZGVmYXVsdCwgdGhpcyBmdW5jdGlvbiBwZXJmb3JtcyB0aGUgV2FsZCB0ZXN0IGZvciBwYWlyd2lzZSBjb21wYXJpc29ucyB0byB0ZXN0IGZvciBkaWZmZXJlbmNlcyBiZXR3ZWVuIHR3byBncm91cHMgb2Ygc2FtcGxlcyBmb3IgdGhlIGNvbmRpdGlvbiBvZiBpbnRlcmVzdC4NCg0KYGBgDQoNCkJlZm9yZSBsb29raW5nIGF0IHRoZSByZXN1bHRzIHdlIG5lZWQgdG8gc2VlIGhvdyB3ZWxsIHRoZSBkYXRhIGZpdCB0aGUgbW9kZWwuIFRvIHNlZSB0aGUgdmFyaWF0aW9uIGluIHRoZSBkYXRhLCB3ZSB3aWxsIGxvb2sgYXQgdGhlIHZhcmlhdGlvbiBpbiBnZW5lIGV4cHJlc3Npb24gcmVsYXRpdmUgdG8gdGhlIG1lYW4uIFRoZSB2YXJpYW5jZSwgYmVpbmcgdGhlIHNxdWFyZSBvZiB0aGUgc3RhbmRhcmQgZGV2aWF0aW9uLCByZXByZXNlbnRzIGhvdyBmYXIgdGhlIGV4cHJlc3Npb24gb2YgdGhlIGluZGl2aWR1YWwgc2FtcGxlcyBpcyBmcm9tIHRoZSBtZWFuLg0KRm9yIFJOQS1zZXEgZGF0YSwgdGhlIHZhcmlhbmNlIGlzIHR5cGljYWxseSBleHBlY3RlZCB0byBpbmNyZWFzZSB3aXRoIG1lYW4gZ2VuZSBleHByZXNzaW9uLg0KDQpUbyBzZWUgdGhpcyB2YXJpYXRpb24gd2UgY2FuIGNhbGN1bGF0ZSB0aGUgbWVhbiBhbmQgdmFyaWFuY2UgZm9yIGVhY2ggZ2VuZSBpbiB0aGUgc2FtcGxlcyB1c2luZyB0aGUgYXBwbHkoKSBmdW5jdGlvbi4NCg0KYXBwbHkoKSBzeW50YXg6DQphcHBseShkYXRhLCByb3dzL2NvbHVtbnMsIGZ1bmN0aW9uIHRvIGFwcGx5KQ0KDQpgYGB7cn0NCiMgV2UgY2FsY3VsYXRlIHRoZSBtZWFuIGFuZCB2YXJpYW5jZSBmb3IgZWFjaCBnZW5lIChlYWNoIHJvdykgLSBpbiB0aGlzIGNhc2Ugb25seSBmcm9tIHRoZSBzYW1wbGVzIHdpdGggZmlicm9zaXMNCm1lYW5fY291bnRzPC0gYXBwbHkocmVvcmRlcmVkX3Ntb2MyX3Jhd2NvdW50c1ssIDE6NF0sIDEsIG1lYW4pDQp2YXJpYW5jZV9jb3VudHM8LSBhcHBseShyZW9yZGVyZWRfc21vYzJfcmF3Y291bnRzWywgMTo0XSwgMSwgdmFyKQ0KDQojIFRoZW4gd2UgY2FuIGNyZWF0ZSBhIGRhdGEgc2V0IHdpdGggdGhlc2UgdmFyaWFibGVzIHRvIHBsb3Qgd2l0aCBnZ3Bsb3QyDQpkZjwtZGF0YS5mcmFtZShtZWFuX2NvdW50cywgdmFyaWFuY2VfY291bnRzKQ0KDQpnZ3Bsb3QoZGYsIGFlcyh4PW1lYW5fY291bnRzLCB5PXZhcmlhbmNlX2NvdW50cykpKw0KICBnZW9tX3BvaW50KCkrDQogIHNjYWxlX3lfbG9nMTAoKSsNCiAgc2NhbGVfeF9sb2cxMCgpKw0KICB4bGFiKCJNZWFuIGNvdW50cyBwZXIgZ2VuZSIpKw0KICB5bGFiKCJWYXJpYW5jZSBwZXIgZ2VuZSIpDQoNCmBgYA0KDQpXZSBjYW4gYWxzbyBzZWUgdGhlIGRpc3BlcnNpb24gb2YgdGhlIGRhdGEuIERpc3BlcnNpb24gaXMgYSBtZWFzdXJlIG9mIHRoZSB2YXJpYW5jZSBmb3IgYSBnaXZlbiBtZWFuLiBUaGUgZGlzcGVyc2lvbiBpbiB0aGlzIGNhc2UgaXMgdXNlZCB0byBhc3Nlc3MgdGhlIHZhcmlhYmlsaXR5IGluIGV4cHJlc3Npb24gd2hlbiBtb2RlbGluZyB0aGUgY291bnRzLiBBbiBpbmNyZWFzZSBpbiB0aGUgdmFyaWFuY2UgY2F1c2VzIGdyZWF0ZXIgZGlzcGVyc2lvbiwgd2hpbGUgYW4gaW5jcmVhc2UgaW4gdGhlIG1lYW4gZGVjcmVhc2VzIHRoZSBkaXNwZXJzaW9uLg0KDQpgYGB7cn0NCiMgV2UgcGxvdCB0aGUgZGlzcGVyc2lvbg0KcGxvdERpc3BFc3RzKGRkc19zbW9jMikNCmBgYA0KDQpXaGVuIHRoZSBkaXNwZXJzaW9uIGRvZXMgbm90IGRlY3JlYXNlIGFzIHRoZSBtZWFuIGluY3JlYXNlcyBvciByZW1haW5zIHZlcnkgaGlnaCwgaXQgY291bGQgYmUgZHVlIHRvIG91dGxpZXJzIG9yIGNvbnRhbWluYXRpb24gb2YgdGhlIHNhbXBsZS4NCg0KIyMgRXh0cmFjdGlvbiBvZiB0aGUgcmVzdWx0cyBvZiB0aGUgRGlmZmVyZW50aWFsIEV4cHJlc3Npb24gdGVzdHMNCg0KTm93IHRoYXQgd2UgaGF2ZSBleHBsb3JlZCB0aGUgZml0IG9mIHRoZSBkYXRhIHRvIHRoZSBtb2RlbCwgd2UgY2FuIGV4dHJhY3QgdGhlIHJlc3VsdHMgb2YgdGhlIERpZmZlcmVudGlhbCBFeHByZXNzaW9uIHRlc3RzLg0KDQpXZSBzZWUgdGhlIHJlc3VsdHMgZm9yIGEgcHJvYmFiaWxpdHkgdGhhdCB0aGUgZGlmZmVyZW5jZXMgYXJlIGR1ZSB0byBjaGFuY2Ugb2YgNSUgKHZhbHVlIG9mIGFscGhhKS4gWW91IGNhbiBhZGQgdGhlIGNvbnRyYXN0IHBhcmFtZXRlciB0byBzcGVjaWZ5IHRoZSBiYXNlIGNvbmRpdGlvbiBvZiB0aGUgc2FtcGxlICh3aGljaCB3b3VsZCBiZSBub3JtYWwgaW4gdGhpcyBjYXNlKSBhbmQgdGhlIGNvbmRpdGlvbiB0byBjb21wYXJlIChmaWJyb3NpcyksIGFzIHdlbGwgYXMgdGhlIGZhY3RvciB0byBjb21wYXJlIChjb25kaXRpb24pLiBJdCBpcyBhZHZpc2FibGUgdG8gZG8gdGhpcyBzaW5jZSBzb21ldGltZXMsIGJ5IGRlZmF1bHQsIHRoZSBiYXNlIGNvbmRpdGlvbiBvZiB0aGUgc2FtcGxlIGlzIG5vdCBhZGVxdWF0ZSB0byBtYWtlIHRoZSBjb21wYXJpc29uIG1vcmUgdW5kZXJzdGFuZGFibGUuIEZvciBleGFtcGxlLCBpbiB0aGlzIGNhc2Ugb2YgdXNpbmcgdGhlIGZ1bmN0aW9uICJyZXN1bHRzKGRkc19zbW9jMiwgYWxwaGE9MC4wNSkiIGZpYnJvc2lzIHdvdWxkIGJlIHRoZSBiYXNlIGNvbmRpdGlvbiwgd2hpY2ggaXMgbm90IGlkZWFsLg0KDQpTeW50YXgNCnJlc3VsdHMoREVTZXEyIG9iamVjdCwgY29udHJhc3Q9IGMoImZhY3RvciB0byBjb21wYXJlIiwgImNvbmRpdGlvbiB0byBjb21wYXJlIiwgInNhbXBsZSBiYXNlIGNvbmRpdGlvbiIpLCBhbHBoYT0wLjA1KQ0KDQpgYGB7ciwgd2FybmluZz1GQUxTRX0NCnNtb2MyX3JlczwtcmVzdWx0cyhkZHNfc21vYzIsIGNvbnRyYXN0PSBjKCJjb25kaXRpb24iLCAiZmlicm9zaXMiLCAibm9ybWFsIiksIGFscGhhPTAuMDUpDQpzbW9jMl9yZXMNCmBgYA0KDQpXZSBjYW4gbWFrZSBhbiBNQSBwbG90IHRvIGJldHRlciB1bmRlcnN0YW5kIHRoZSByZXN1bHRzLiBUaGlzIHBsb3Qgc2hvd3MgdGhlIG1lYW4gb2YgdGhlIG5vcm1hbGl6ZWQgY291bnRzIGFnYWluc3QgdGhlIGxvZzIgZm9sZCBjaGFuZ2UgZm9yIGFsbCBnZW5lcyB0ZXN0ZWQuDQpJbiB0aGUgZ3JhcGggYWxsIHRoZSBnZW5lcyBjb2xvcmVkIGluIGJsdWUgKGluIHRoaXMgY2FzZSkgcHJlc2VudCBhIHNpZ25pZmljYW50IGRpZmZlcmVudGlhbCBleHByZXNzaW9uDQoNCmBgYHtyfQ0KcGxvdE1BKHNtb2MyX3JlcywgYWxwaGE9MC4xKQ0KYGBgDQoNClRvIGltcHJvdmUgdGhlIGVzdGltYXRlZCBmb2xkIGNoYW5nZXMgd2UgY2FuIHVzZSB0aGUgbG9nMiBmb2xkIGNvbnRyYWN0aW9uLiBGb3IgZ2VuZXMgd2l0aCBsaXR0bGUgaW5mb3JtYXRpb24gYXZhaWxhYmxlLCB0aGlzIGNvbnRyYWN0aW9uIHVzZXMgaW5mb3JtYXRpb24gZnJvbSBhbGwgZ2VuZXMgdG8gZ2VuZXJhdGUgbG93ZXIsIG1vc3QgbGlrZWx5IGZvbGQgY2hhbmdlIGVzdGltYXRlcy4NCg0KYGBge3J9DQpzbW9jMl9yZXM8LWxmY1NocmluayhkZHNfc21vYzIsIGNvbnRyYXN0ID0gYygiY29uZGl0aW9uIiwgImZpYnJvc2lzIiwgIm5vcm1hbCIpLCB0eXBlID0gImFzaHIiLCByZXMgPSBzbW9jMl9yZXMpDQpwbG90TUEoc21vYzJfcmVzKQ0KYGBgDQoNCg0KIyMgQW5hbHlzaXMgb2YgcmVzdWx0cw0KVG8gZ2V0IGRlc2NyaXB0aW9ucyBvZiB0aGUgY29sdW1ucyBpbiB0aGUgcmVzdWx0IHRhYmxlLCB3ZSBjYW4gdXNlIHRoZSBtY29scygpIGZ1bmN0aW9uDQoNCmBgYHtyLCB3YXJuaW5nPUZBTFNFfQ0KbWNvbHMoc21vYzJfcmVzKQ0KYGBgDQpUaGVyZSBpcyBhIDUlIHByb2JhYmlsaXR5IHRoYXQgZGlmZmVyZW50aWFsbHkgZXhwcmVzc2VkIGdlbmVzIGFyZSBmYWxzZSBwb3NpdGl2ZXMsIHRoYXQgaXMsIGZvciBhIHNhbXBsZSBvZiBtb3JlIHRoYW4gNDcsMDAwIGdlbmVzIHRoZXJlIHdvdWxkIGJlIG1vcmUgdGhhbiAyLDAwMCBmYWxzZSBwb3NpdGl2ZXMuIFRoZXJlZm9yZSwgREVTZXEyIHBlcmZvcm1zIGEgbXVsdGlwbGUgdGVzdCBjb3JyZWN0aW9uIHVzaW5nIHRoZSBCZW5qYW1pbmktSG9jaGJlcmcsIG9yIEJIIG1ldGhvZCB0byBhZGp1c3QgdGhlIHAtdmFsdWVzIGZvciBtdWx0aXBsZSB0ZXN0cyBhbmQgY29udHJvbCBmb3IgdGhlIG51bWJlciBvZiBmYWxzZSBwb3NpdGl2ZXMuIFRvIHJlZHVjZSB0aGUgbnVtYmVyIG9mIGdlbmVzIHRlc3RlZCwgREVTZXEyIGZpbHRlcnMgb3V0IGdlbmVzIHRoYXQgd2VyZSB1bmxpa2VseSB0byBiZSBkaWZmZXJlbnRpYWxseSBleHByZXNzZWQgc3VjaCBhcyBnZW5lcyB3aXRoIHplcm8gY291bnRzLCBnZW5lcyB3aXRoIGxvdyBtZWFuIHZhbHVlcyBhY3Jvc3MgYWxsIHNhbXBsZXMsIGFuZCBnZW5lcyB3aXRoIG91dGxpZXJzLiBUaGVzZSBnZW5lcyBhcmUgcmVwcmVzZW50ZWQgaW4gdGhlIHJlc3VsdHMgdGFibGVzIGJ5IGEgTkEgaW4gdGhlIGFkanVzdGVkIHAgY29sdW1uLg0KDQpgYGB7cn0NCmhlYWQoc21vYzJfcmVzLCBuPTEwKQ0KDQpzdW1tYXJ5KHNtb2MyX3JlcykNCmBgYA0KDQpUaGUgcmVzdWx0cyBzaG93IG1vcmUgdGhhbiAxMCwwMDAgZ2VuZXMgd2l0aCBkaWZmZXJlbnRpYWwgZXhwcmVzc2lvbiAoZGl2aWRlZCBpbnRvIGhpZ2ggb3IgbG93IGV4cHJlc3NlZCkuDQoNClRoZSBmb2xkIGNoYW5nZSBpcyB0aGUgZGlmZmVyZW5jZSBvZiBhIHN1YnNlcXVlbnQgbWVhc3VyZW1lbnQgd2l0aCByZXNwZWN0IHRvIHRoZSBvcmlnaW5hbCwgZm9yIGV4YW1wbGUsIGlmIHRoZSBvcmlnaW5hbCBtZWFzdXJlbWVudCBpcyAxMCBhbmQgdGhlIHN1YnNlcXVlbnQgbWVhc3VyZW1lbnQgaXMgMjAsIHRoZSBmb2xkIGNoYW5nZSBpcyAyIChpbmNyZWFzZWQgdHdpY2UpLiBUaGUgZm9sZCBjaGFuZ2UgaXQgdXNlcyBieSBkZWZhdWx0IGlzIDEsIHNvIGxvZzIgb2YgdGhlIGZvbGQgY2hhbmdlIGlzIDAuIFRoZSBmb2xkIGNoYW5nZSBjYW4gYWxzbyBiZSBtb2RpZmllZCB0byBydWxlIG91dCBnZW5lcyB0aGF0IGFyZSBwcm9iYWJseSBub3QgZGlmZmVyZW50aWFsbHkgZXhwcmVzc2VkIGJ1dCB3aG9zZSBmb2xkIGNoYW5nZSBpcyBncmVhdGVyIHRoYW4gb25lIGFuZCBhcHBlYXIgYXMgc3VjaCwgc28gdGhleSBjb3VsZCBiZSBmYWxzZSBwb3NpdGl2ZXMuIFRvIGRvIHRoaXMgd2UgbXVzdCBydW4gdGhlIHJlc3VsdHMgYWdhaW4uDQoNCmBgYHtyfQ0Kc21vYzJfcmVzPC1yZXN1bHRzKGRkc19zbW9jMiwgY29udHJhc3Q9IGMoImNvbmRpdGlvbiIsICJmaWJyb3NpcyIsICJub3JtYWwiKSwgYWxwaGE9MC4wNSwgbGZjVGhyZXNob2xkID0gMC4zMikgIyB3ZSB3aWxsIHVzZSBhIGZvbGQgY2hhbmdlIG9mIDEuMjUgKHdob3NlIGxvZzIgaXMgMC4zMikNCnNtb2MyX3Jlcw0KDQpzbW9jMl9yZXM8LWxmY1NocmluayhkZHNfc21vYzIsIGNvbnRyYXN0ID0gYygiY29uZGl0aW9uIiwgImZpYnJvc2lzIiwgIm5vcm1hbCIpLCB0eXBlID0gImFzaHIiLCByZXMgPSBzbW9jMl9yZXMpDQpgYGANCg0KV2UgY29tcGFyZSB0aGUgcmVzdWx0cyBhbmQgc2VlIHRoYXQgdGhlcmUgYXJlIGluZGVlZCBmZXdlciBnZW5lcywgaW5kaWNhdGluZyB0aGF0IGFyb3VuZCA0MDAwIGdlbmVzIHdlcmUgZGlzY2FyZGVkIGZyb20gdGhlIG9yaWdpbmFsIHJlc3VsdCwgc2luY2UgdGhlaXIgZm9sZCBjaGFuZ2UgaXMgbGVzcyB0aGFuIDEuMjUuDQoNCmBgYHtyfQ0Kc3VtbWFyeShzbW9jMl9yZXMpDQoNCiMgV2UgY29udmVydCB0aGUgcmVzdWx0cyBpbnRvIGEgZGF0YWZyYW1lIGFuZCBhZGQgdGhlIGxvZ2ljYWwgdmFyaWFibGUgdGhyZXNob2xkIHdob3NlIHZhbHVlIHdpbGwgYmUgVFJVRSBvbmx5IGluIGNhc2VzIHdoZXJlIHRoZSBhZGp1c3RlZCBwIGlzIGxlc3MgdGhhbiAwLjA1DQpzbW9jMl9yZXNfYWxsIDwtIGRhdGEuZnJhbWUoc21vYzJfcmVzKSAlPiUgbXV0YXRlKHRocmVzaG9sZD1wYWRqIDwgMC4wNSkNCmBgYA0KDQoNCg0KIyMgVmlzdWFsaXphdGlvbiBvZiB0aGUgcmVzdWx0cw0KDQojIyMjIFZvbGNhbm8gUGxvdA0KDQpUbyBtYWtlIGEgdm9sY2FubyBncmFwaCB3ZSB1c2UgdGhlIHJlc3VsdHMgc3RvcmVkIGluIHRoZSBzbW9jMl9yZXNfYWxsIGRhdGFmcmFtZS4gV2UgcGxvdCB0aGUgbG9nMiBvZiB0aGUgZm9sZCBjaGFuZ2UgdnMuIHRoZSBsb2cxMCBvZiB0aGUgYWRqdXN0ZWQgcCwgYW5kIHRoZSBkaWZmZXJlbmNlcyBiZXR3ZWVuIHRoZSBzYW1wbGVzIHdpdGggYSBzaWduaWZpY2FudCBkaWZmZXJlbnRpYWwgZXhwcmVzc2lvbiB3aXRoIHRob3NlIG5vdCBnaXZlbiBieSB0aGUgY29sb3IgKHRocmVzaG9sZCkuDQoNCmBgYHtyLCB3YXJuaW5nPUZBTFNFfQ0KREVTZXEyOjpwbG90TUEoc21vYzJfcmVzKQ0KDQpnZ3Bsb3Qoc21vYzJfcmVzX2FsbCkgKyANCiAgICAgICAgZ2VvbV9wb2ludChhZXMoeCA9IGxvZzJGb2xkQ2hhbmdlLCB5ID0gLWxvZzEwKHBhZGopLCBjb2xvciA9IHRocmVzaG9sZCkpICsgDQogICAgICAgIHhsYWIoImxvZzIgZm9sZCBjaGFuZ2UiKSArIA0KICAgICAgICB5bGFiKCItbG9nMTAgYWRqdXN0ZWQgcC12YWx1ZSIpICsgDQogICAgICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwgDQogICAgICAgICAgICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IHJlbCgxLjUpLCBoanVzdCA9IDAuNSksIA0KICAgICAgICAgICAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSByZWwoMS4yNSkpKQ0KYGBgDQoNCiMjIyMgSGVhdCBNYXANCg0KVGhlIGhlYXQgbWFwIG9yIGhlYXRtYXAgaXMgdXNlZCB0byBvYnNlcnZlIHRoZSBkaWZmZXJlbnRpYWwgZXhwcmVzc2lvbiBvZiBhIGdlbmUuIFRoZXJlIGFyZSBnZW5lcmFsbHkgdHdvIGNyaXRlcmlhIHRoYXQgYXJlIHRha2VuIHRvIG1ha2UgdGhlc2UgZ3JhcGhzOiBsb2dGYyB2YWx1ZSAoZXhwcmVzc2lvbiByYXRlKSB0aGF0IG11c3QgYmUgZ3JlYXRlciB0aGFuIDEgKGFsdGhvdWdoIDIgaXMgdXN1YWxseSB1c2VkKSBhbmQgcC12YWx1ZSB0aGF0IG11c3QgYmUgbGVzcyB0aGFuIDAuMDUgLg0KDQpgYGB7cn0NCg0KIyBGaXJzdCB3ZSBtYWtlIGEgc3Vic2V0IG9mIHRoZSByZXN1bHRzIHRoYXQgY29udGFpbnMgb25seSB0aGUgc2lnbmlmaWNhbnQgY2FzZXMgdGFraW5nIGFuIGFkanVzdGVkIHAgbGVzcyB0aGFuIDAuMDUuDQpzbW9jMl9yZXNfc2lnIDwtIHN1YnNldChzbW9jMl9yZXNfYWxsLCBwYWRqPDAuMDUpDQoNCiMgV2Ugb3JkZXIgYWNjb3JkaW5nIHRvIHRoZSBnZW5lcyB3aXRoIHRoZSBsb3dlc3QgcCB2YWx1ZXMuDQpzbW9jMl9yZXNfc2lnIDwtIHNtb2MyX3Jlc19zaWcgJT4lDQogIGFycmFuZ2UocGFkaikNCmBgYA0KDQpXZSBjcmVhdGVkIGEgc3Vic2V0IG9mIHRoZSBub3JtYWxpemVkIGNvdW50cyBpbml0aWFsbHksIGJ1dCBvbmx5IGluY2x1ZGluZyBnZW5lcyB3aXRoIHNpZ25pZmljYW50IGV4cHJlc3Npb24uICJzbW9jMl9yZXNfc2lnIiBpcyB0aGUgZGF0YWZyYW1lIHRoYXQgaW5jbHVkZXMgb25seSB0aGUgc2lnbmlmaWNhbnQgZ2VuZXMsIHRoZXJlZm9yZSB0aGUgc3Vic2V0IGNyZWF0ZWQgd2lsbCBvbmx5IHNlYXJjaCBmb3IgdGhlIG5vcm1hbGl6ZWQgZ2VuZXMgd2hvc2UgbmFtZXMgbWF0Y2ggdGhlIHNpZ25pZmljYW50IG9uZXMsIHRoZSByZXN0IHdpbGwgYmUgZXhjbHVkZWQuDQoNCmBgYHtyfQ0Kc2lnX25vcm1fY291bnRzX3Ntb2MyIDwtIGRkc19zbW9jMl9ub3JtYWxpemVkW3Jvd25hbWVzKHNtb2MyX3Jlc19zaWcpLF0NCg0KIyBXZSBzZWxlY3QgYSBjb2xvciBwYWxldHRlDQpkaXNwbGF5LmJyZXdlci5hbGwoKQ0KaGVhdF9jb2xvcnMgPC0gYnJld2VyLnBhbChuID0gNiwgbmFtZSA9ICJZbE9yUmQiKQ0KYGBgDQoNCldlIHBsb3QgdGhlIGhlYXQgbWFwLiBSZW1lbWJlciBpbiBhbm5vdGF0aW9uIHRvIHVzZSB0aGUgc2VsZWN0IGZ1bmN0aW9uIHRvIHNlbGVjdCBib3RoIHRoZSBtZXRhZGF0YSBkYXRhZnJhbWUgYW5kIHRoZSBwYXJhbWV0ZXIgdG8gY29tcGFyZSwgaW4gdGhpcyBjYXNlIGl0IGlzIGNvbmRpdGlvbi4NCg0KYGBge3J9DQpwaGVhdG1hcChzaWdfbm9ybV9jb3VudHNfc21vYzIsIA0KICAgICAgICAgY29sb3IgPSBoZWF0X2NvbG9ycywgDQogICAgICAgICBjbHVzdGVyX3Jvd3MgPSBULCANCiAgICAgICAgIHNob3dfcm93bmFtZXMgPSBGLA0KICAgICAgICAgYW5ub3RhdGlvbiA9IHNtb2MyX21ldGFkYXRhWyJjb25kaXRpb24iXSwgDQogICAgICAgICBzY2FsZSA9ICJyb3ciKQ0KYGBgDQoNCkEgbWFya2VkIGRpZmZlcmVudGlhdGlvbiBiZXR3ZWVuIGZpYnJvc2lzL25vcm1hbCBjb25kaXRpb25zIGlzIG9ic2VydmVkLiBEaWZmZXJlbnRpYWxseSBleHByZXNzZWQgZ2VuZXMsIGJvdGggdXAgYW5kIGRvd24gYXJlIGludmVydGVkIGluIGVhY2ggY2x1c3Rlci4gQmFzaWNhbGx5LCB0aGUgZ2VuZXMgdGhhdCBhcmUgb3ZlcmV4cHJlc3NlZCBpbiB0aGUgZ3JvdXAgd2l0aCBmaWJyb3NpcyBhcmUgZG93bi1leHByZXNzZWQgaW4gdGhlIGdyb3VwIHdpdGhvdXQgdGhlIGRpc2Vhc2UuIEFuZCB0aGUgc2FtZSBvY2N1cnMgZm9yIHRoZSBvdmVyZXhwcmVzc2VkIGdlbmVzIGluIHRoZSBub3JtYWwgZ3JvdXAuIFRoZXJlZm9yZSwgaXQgY2FuIGJlIHNhaWQgdGhhdCB0aGVyZSBpcyBhIHNpZ25pZmljYW50IGRpZmZlcmVuY2UgaW4gdGhlIGxldmVscyBvZiBnZW5lIGV4cHJlc3Npb24gZm9yIHRoZSBmaWJyb3NpcyBkaXNlYXNlIGluIHRoZSB0ZXN0ZWQgb3JnYW5pc21zIHdoZW4gY29tcGFyZWQgd2l0aCBvcmdhbmlzbXMgdGhhdCBkbyBub3QgcHJlc2VudCB0aGUgZGlzZWFzZS4=