1 Set some parameters which will be used later
## Adjusted p-value cutoff when working on the inclusion sets.
adjp_cutoff <- 0.1
default_fstring <- "~ 0 + condition"
## Allow 10 GO categories to be displayed when plotting.
go_categories <- 14
## Allow groups higher up in the tree for clusterProfiler results.
go_level <- 2
label_column <- "mgi_symbol" ## Set the column used to extract gene symbols rather than ENSG.....
## LogFC cutoff when working on the inclusion sets.
lfc_cutoff <- 0.1
## Increase the maximum allowed group size when working with clusterProfiler
## This should bring out some of the more general groups like 'cellbody'
max_groupsize <- 2000
## Speed up clusterProfiler by choosing the correct keytypes
orgdb_from <- "ENSEMBLTRANS"
## MA plot point outlines
outline <- FALSE
sample_sheet <- "sample_sheets/20240606_only_umd_sequenced_modified.xlsx"2 Introduction
This document is a copy of the iprgc_analyses_202408.Rmd document, with a few important differences:
- I will not be spending time to compare the various (de)duplication methods/results.
- This will create, visualize, and analyze transcript-level abundances rather than genes.
- I have not yet decided, but I might play with the wt filtering to try to make it clearer.
- I will likely remove some comments and text describing what is going on.
- All output directories get a suffix ’_tx’
With that in mind, the goal is to repeat our gene-level analyses, but using the transcript quantifications derived from featureCounts. This is in response to a review who suggested that some genes have potentially interesting and variable transcripts. That is a simple enough query to address, so let us see what we get!
3 A note about implementation
I would like to improve this document by comparing/contrasting the methodologies performed by other groups and those performed by me in it. I never fully appreciated the suite of computational methods applied by previous groups when examining TRAP data; I instead simply followed Theresa’s notebook without considering other possibilities.
I therefore spent a little time stepping through her thesis and pulling out the relevant papers in the hopes of learning these various methods. I should therefore be able soon to compare/contrast the various methods employed by other labs in addition to copying Theresa’s logic.
3.1 The following block cannot work in the container
The following block assumes the full tree of preprocessed data with the logs from the trimmer, mapping, umi deduplication, counting, etc. As a result it cannot work in the container which has only the various count tables.
As a result, I am including a copy of this sheet after running the following block in my working tree. I suppose for the moment you will have to trust that it worked. (for right now, when testing out this container, I am just sending the R working directory to my tree for this block, then moving it back.
I will need to manually edit one column though, the symlink column from Theresa has a series of paths which do not work in the container.
umi_spec <- make_rnaseq_spec(umi = TRUE)
iprgc_2022_meta <- gather_preprocessing_metadata("sample_sheets/20240606_only_umd_sequenced.xlsx",
spec = umi_spec, species = "mm39_112", verbose = TRUE,
basedir = "preprocessing/umd_sequenced")
colnames(iprgc_2022_meta[["new_meta"]])
head(iprgc_2022_meta[["new_meta"]])msigdb <- "reference/msigdb_v2024.1.Mm.db"
msig_data <- NULL
make_transparent <- function() {
ggplot2::theme(
panel.background = element_rect(fill = 'transparent'),
plot.background = element_rect(fill = 'transparent', color = NA),
panel.grid.major = element_blank(),
panel.grid.minor = element_blank(),
legend.background = element_rect(fill = 'transparent'),
legend.box.background = element_rect(fill = 'transparent'))
}4 Collect the count tables
I used salmon/featurecounts/etc with CDS/mRNA features on our compute cluster and used the above gather function to add a column to the metadata containing the filenames produced. The following reads that column and creates a tarball of the files. One thing I need to do: modify that to accept a vetor of columns so I can easily collect r1+r2 and stuff like that.
As the name suggests, these are mRNA counts following the deduplication marking and removal from the initial hisat alignments via umitools.
## all the input files are already xz compressed
mrna_counts <- tar_meta_column(sample_sheet, column = "umi_dedup_mrna_count", compress = NULL)I will figure out if I can leave mSigDB M2 in this image; if not, then any analyses depending on those gene sets will fail.
m2_gsc <- try(load_gmt_signatures(signatures = msigdb,
signature_category = "M2"), silent = TRUE)
## I do not think I have permission to load the msigdb in the container
## So, if this fails, just load it from GSVAData, oh wait no, GSVAdata is human.
if ("try-error" %in% class(m2_gsc)) {
warning("Unable to load the M2 MsigDB data.")
}5 Annotation data
I am pulling this from Theresa’s anxontrapR_pipeline.Rmd, primarily because it looks similar to the other documents, but was modified more recently. I will change it slightly, primarily because I grabbed a new mmusculus assembly and therefore I will pull the mmusculus annotations from a specific biomart (Smedley et al. (2009)) archive that should match it.
A note from the future: multiple ensembl archive servers have been taken offline since last I ran this. Let us see if Feb. 2023 still works.
5.1 An important note!
In the recent past, ensembl queries have become inconsistent, failing much more often than ever in the past. I do not think this is the fault of ensembl; but I think I need a fallback mechanism for collecting annotation information.
In the case of ensembl, it should be trivial (but less fun) to use a combination of the locally installed orgdb and txdb databases.
This does open a risk that the set of genes with annotations will be different depending on when the container is run due to differences between the orgdb/txdb instance and the Feb 2023 biomart. I am not sure there is much I can do about that except to bundle the set of annotations I downloaded in the container – since load_biomart_annotations() does save a rda copy of its download.
ok, I did both. If you, dear reader, wish to download your own annotations, and ensembl is having troubles, the following should work without a problem; in addition the rda annotations are in /data of the container and should get loaded.
tx_gene_map <- data.frame()
##mm_annot <- try(load_biomart_annotations(species = "mmusculus", year = "2023", month = "02", overwrite = TRUE))
mm_annot <- try(load_biomart_annotations(species = "mmusculus", archive = FALSE,
symbol_columns = label_column))## The biomart annotations file already exists, loading from it.mm_tx_annot <- mm_annot[["annotation"]]
## yeah, the ID tag in my gff file has transcript: as a prefix, so the featureCounts outputs
## includes it... I will fix that inpost.
rownames(mm_tx_annot) <- paste0("transcript:", mm_tx_annot[["ensembl_transcript_id"]])
#mm_orgdb <- load_orgdb_annotations(
# orgdb = "Mus.musculus", keytype = "ACCNUM",
# fields = c("TXNAME", "TXTYPE", "TXCHROM", "TXSTART", "TXEND", "TXID", "TXSTRAND", "MGID"))6 Hisat2 summarizedExperiments by transcript
6.1 Color choices and reused parameters
color_choices <- list(
"all" = list(
"p08_het_dlgn" = "#E7298A",
"p15_het_dlgn" = "#E7298A",
"p08_het_retina" = "#238B45",
"p15_het_retina" = "#238B45",
"p08_het_scn" = "#4292C6",
"p15_het_scn" = "#4292C6",
"p08_ko_dlgn" = "#C994C7",
"p15_ko_dlgn" = "#C994C7",
"p08_ko_retina" = "#74c476",
"p15_ko_retina" = "#74c476",
"p08_ko_scn" = "#9BCAE1",
"p15_ko_scn" = "#9BCAE1",
"p08_wt_dlgn" = "#980043",
"p15_wt_dlgn" = "#980043",
"p08_wt_retina" = "#004008",
"p15_wt_retina" = "#004008",
"p08_wt_scn" = "#08519C",
"p15_wt_scn" = "#08519C",
"p60_wt_dlgn" = "#333333",
"p60_wt_retina" = "#222222",
"p60_wt_scn" = "#111111"),
"geno_loc" = list(
"het_dlgn" = "#E7298A",
"het_retina" = "#238B45",
"het_scn" = "#4292C6",
"ko_dlgn" = "#C994C7",
"ko_retina" = "#74c476",
"ko_scn" = "#9BCAE1",
"wt_dlgn" = "#980043",
"wt_retina" = "#004008",
"wt_scn" = "#08519C"),
"location" = list(
"retina" = "#004008",
"dlgn" = "#980043",
"scn" = "#08519C"),
"genotype" = list(
"wt" = "#74c476",
"het" = "#238B45",
"ko" = "#006D2C"),
"time" = list(
"p08" = "#5E104B",
"p15" = "#4E9231"))
colors <- color_choices[["geno_loc"]]
time_colors <- list(
"p08_het_dlgn" = "#E7298A",
"p15_het_dlgn" = "#8a1852",
"p08_het_retina" = "#238B45",
"p15_het_retina" = "#155329",
"p08_het_scn" = "#4292C6",
"p15_het_scn" = "#275776",
"p08_ko_dlgn" = "#C994C7",
"p15_ko_dlgn" = "#785877",
"p08_ko_retina" = "#74C476",
"p15_ko_retina" = "#457546",
"p08_ko_scn" = "#9BCAE1",
"p15_ko_scn" = "#5d7987")6.2 The Transcript abundances
This perhaps deserves a little bit of explanation: the process for using UMIs goes as follows:
- Examine all the raw reads, extract the UMI IDs, and add them as comments to the fastq file (or rewrite the read ID)
- Align all reads against the genome.
- Take the resulting bam file and find reads at the same location with the same ID(s) and filter the alignment so that there remains only 1 representative from each ID.
- Count up the features of interest.
I therefore invoked featureCounts on the umi deduplicated bam alignments (found in column ‘umi_dedup_output_bam’ BP in my copy of the automagically generated sample sheet) using the requisite mm38 gff file with transcript as the feature type and ID as the tag.
Oh, that reminds me, I need to re-key the annotations to use that and I might need to check that the IDs do or do not have a prefix like ‘transcript:’ or whatever…
mm38_hisat_tx <- create_se(sample_sheet, gene_info = mm_tx_annot,
file_column = "umi_dedup_mrna_count") |>
set_conditions(fact = "geno_loc_atb") |>
set_batches(fact = "time_atb") |>
set_colors(color_choices[["geno_loc"]])## Reading the sample metadata.## Checking the state of the condition column.## Checking the state of the batch column.## Checking the condition factor.## The sample definitions comprises: 69 rows(samples) and 54 columns(metadata fields).## Warning in create_se(sample_sheet, gene_info = mm_tx_annot, file_column = "umi_dedup_mrna_count"): Some samples were removed when cross
## referencing the samples against the count data.## Matched 65810 annotations and counts.## Some annotations were lost in merging, setting them to 'undefined'.## The final summarized experiment has 65883 rows and 54 columns.## The numbers of samples by condition are:##
## het_dlgn het_retina het_scn ko_dlgn ko_retina ko_scn wt_dlgn wt_retina wt_scn
## 7 7 7 6 6 6 11 11 7## Setting colors with no pre-defined colors, using the Dark2 palette.## The number of samples by batch are:##
## p08 p15 p60
## 31 34 3## class: SummarizedExperiment
## dim: 65883 68
## metadata(7): notes title ... study researcher
## assays(1): ''
## rownames(65883): transcript:ENSMUST00000000001 transcript:ENSMUST00000000003 ... transcript:ENSMUST00020183811
## transcript:ENSMUST00020183812
## rowData names(12): ensembl_gene_id ensembl_transcript_id ... end_position mgi_symbol
## colnames(68): iprgc_62 iprgc_63 ... iprgc_129 iprgc_130
## colData names(55): rownames sampleid ... umi_dedup_mrna_count color## Now that we created the data structure with IDs that include the transcript: prefix,
## remove it...
new_ids <- gsub(x = rownames(assay(mm38_hisat_tx)), pattern = "^transcript:", replacement = "")
rownames(mm38_hisat_tx) <- new_ids
rownames(mm_tx_annot) <- gsub(x = rownames(mm_tx_annot), pattern = "^transcript:", replacement = "")
all_fact <- paste0(colData(mm38_hisat_tx)[["time_atb"]], "_",
colData(mm38_hisat_tx)[["geno_loc_atb"]])
colData(mm38_hisat_tx)[["time_geno_loc"]] <- all_fact
dim(assay(mm38_hisat_tx))## [1] 65883 68## iprgc_62 iprgc_63 iprgc_64 iprgc_65 iprgc_66 iprgc_67 iprgc_68 iprgc_69 iprgc_70 iprgc_71 iprgc_72 iprgc_73 iprgc_74
## ENSMUST00000000001 27 22 169 202 53 42 16 183 22 29 40 34 181
## ENSMUST00000000003 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000010 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000028 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000033 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000049 0 0 0 0 0 0 0 1 0 0 0 0 0
## iprgc_75 iprgc_76 iprgc_77 iprgc_78 iprgc_79 iprgc_80 iprgc_81 iprgc_82 iprgc_83 iprgc_84 iprgc_85 iprgc_86 iprgc_87
## ENSMUST00000000001 201 311 27 70 187 62 17 74 82 322 33 259 40
## ENSMUST00000000003 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000010 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000028 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000033 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000049 0 2 0 0 0 0 0 1 0 0 0 0 0
## iprgc_88 iprgc_89 iprgc_90 iprgc_91 iprgc_92 iprgc_93 iprgc_94 iprgc_95 iprgc_96 iprgc_97 iprgc_98 iprgc_99 iprgc_100
## ENSMUST00000000001 74 160 577 344 67 30 31 53 141 51 140 247 97
## ENSMUST00000000003 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000010 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000028 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000033 0 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000049 0 0 1 0 0 0 0 0 0 0 0 0 0
## iprgc_101 iprgc_102 iprgc_104 iprgc_105 iprgc_106 iprgc_107 iprgc_108 iprgc_109 iprgc_110 iprgc_111 iprgc_112 iprgc_113
## ENSMUST00000000001 199 78 68 159 140 57 175 529 79 107 149 76
## ENSMUST00000000003 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000010 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000028 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000033 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000049 0 0 0 0 0 0 0 0 0 0 0 0
## iprgc_114 iprgc_115 iprgc_116 iprgc_117 iprgc_118 iprgc_119 iprgc_120 iprgc_121 iprgc_122 iprgc_123 iprgc_124 iprgc_125
## ENSMUST00000000001 214 413 259 480 434 231 451 332 249 41 56 158
## ENSMUST00000000003 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000010 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000028 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000033 0 0 0 0 0 0 0 0 0 0 0 0
## ENSMUST00000000049 0 0 0 0 0 0 0 0 0 0 0 0
## iprgc_126 iprgc_127 iprgc_128 iprgc_129 iprgc_130
## ENSMUST00000000001 68 147 64 42 132
## ENSMUST00000000003 0 0 0 0 0
## ENSMUST00000000010 0 0 0 0 0
## ENSMUST00000000028 0 0 0 0 0
## ENSMUST00000000033 0 0 0 0 0
## ENSMUST00000000049 0 0 0 0 17 Non-zero Counts per Sample
A neat little change I just made: when null set the y-intercept to the mean percentage of units observed (transcripts in this case).
## The following samples have less than 42823.95 features.## [1] "iprgc_62" "iprgc_63" "iprgc_64" "iprgc_65" "iprgc_66" "iprgc_67" "iprgc_68" "iprgc_69" "iprgc_70" "iprgc_71" "iprgc_72"
## [12] "iprgc_73" "iprgc_74" "iprgc_75" "iprgc_76" "iprgc_77" "iprgc_78" "iprgc_79" "iprgc_80" "iprgc_81" "iprgc_82" "iprgc_83"
## [23] "iprgc_84" "iprgc_85" "iprgc_86" "iprgc_87" "iprgc_88" "iprgc_89" "iprgc_90" "iprgc_91" "iprgc_92" "iprgc_93" "iprgc_94"
## [34] "iprgc_95" "iprgc_96" "iprgc_97" "iprgc_98" "iprgc_99" "iprgc_100" "iprgc_101" "iprgc_102" "iprgc_104" "iprgc_105" "iprgc_106"
## [45] "iprgc_107" "iprgc_108" "iprgc_109" "iprgc_110" "iprgc_111" "iprgc_112" "iprgc_113" "iprgc_114" "iprgc_115" "iprgc_116" "iprgc_117"
## [56] "iprgc_118" "iprgc_119" "iprgc_120" "iprgc_121" "iprgc_122" "iprgc_123" "iprgc_124" "iprgc_125" "iprgc_126" "iprgc_127" "iprgc_128"
## [67] "iprgc_129" "iprgc_130"## 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.## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## ℹ The deprecated feature was likely used in the hpgltools package.
## Please report the issue to the authors.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was generated.
tx_libsize <- plot_libsize(mm38_hisat_tx)
pp(file = "01diagnostic_images_tx/quantsize_unfiltered.pdf", image = tx_libsize[["plot"]])
7.2 Replot the nonzero gene plots
## The following samples have less than 42823.95 features.## [1] "iprgc_62" "iprgc_63" "iprgc_64" "iprgc_65" "iprgc_66" "iprgc_67" "iprgc_68" "iprgc_69" "iprgc_70" "iprgc_71" "iprgc_72"
## [12] "iprgc_73" "iprgc_74" "iprgc_75" "iprgc_76" "iprgc_77" "iprgc_81" "iprgc_82" "iprgc_83" "iprgc_84" "iprgc_85" "iprgc_86"
## [23] "iprgc_87" "iprgc_88" "iprgc_89" "iprgc_90" "iprgc_91" "iprgc_92" "iprgc_93" "iprgc_94" "iprgc_95" "iprgc_96" "iprgc_97"
## [34] "iprgc_98" "iprgc_99" "iprgc_100" "iprgc_101" "iprgc_102" "iprgc_104" "iprgc_105" "iprgc_106" "iprgc_107" "iprgc_108" "iprgc_109"
## [45] "iprgc_110" "iprgc_111" "iprgc_112" "iprgc_113" "iprgc_114" "iprgc_115" "iprgc_116" "iprgc_117" "iprgc_118" "iprgc_119" "iprgc_120"
## [56] "iprgc_121" "iprgc_122" "iprgc_123" "iprgc_124" "iprgc_125" "iprgc_126" "iprgc_127" "iprgc_128" "iprgc_129" "iprgc_130"## 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.
## Not putting labels on the plot.
8 Quick PCA, then return to Theresa’s document
tx_norm <- normalize(mm38_hisat_tx, transform = "log2", convert = "cpm",
norm = "quant", filter = TRUE)## Removing 52535 low-count genes (13348 remaining).## transform_counts: Found 118930 values equal to 0, adding 1 to the matrix.tx_norm_pca <- plot_pca(tx_norm)
pp(file = "01diagnostic_images_tx/tx_norm_pca.pdf", image = tx_norm_pca[["plot"]])
tx_loc_geno <- set_conditions(mm38_hisat_tx, fact = "location_atb",
colors = color_choices[["location"]]) |>
set_batches(fact = "genotype_atb")## The numbers of samples by condition are:##
## dlgn retina scn
## 23 23 19## The number of samples by batch are:##
## het ko wt
## 21 18 268.1 The associated PCA
At different times, it appears to me that Theresa has preferred slightly different normalization methods, primarily a mix of TMM and quantile.
Thus I will use different suffix letters to denote various normalizations employed, and if they turn out the same I will pick one arbitrarily.
loc_geno_nq <- normalize(tx_loc_geno, transform = "log2", convert = "cpm",
filter = TRUE, norm = "quant")## Removing 52535 low-count genes (13348 remaining).## transform_counts: Found 118930 values equal to 0, adding 1 to the matrix.location_genotype_pca <- plot_pca(loc_geno_nq)
pp(file = "01diagnostic_images_tx/location_genotype_norm_pca.pdf", image = location_genotype_pca[["plot"]])
loc_geno_nt <- normalize(tx_loc_geno, transform = "log2", convert = "cpm",
filter = TRUE, norm = "tmm")## Removing 52535 low-count genes (13348 remaining).## transform_counts: Found 224721 values equal to 0, adding 1 to the matrix.location_genotype_tmm_pca <- plot_pca(loc_geno_nt)
pp(file = "01diagnostic_images_tx/location_genotype_tmm_pca.pdf", image = location_genotype_tmm_pca[["plot"]])
sample_sankey <- plot_meta_sankey(tx_loc_geno, color_choices = color_choices,
factors = c("genotype_atb", "location_atb", "time_atb"))## Warning: attributes are not identical across measure variables; they will be dropped## Warning: The `size` argument of `element_rect()` is deprecated as of ggplot2 3.4.0.
## ℹ Please use the `linewidth` argument instead.
## ℹ The deprecated feature was likely used in the ggsankey package.
## Please report the issue at <https://github.com/davidsjoberg/ggsankey/issues>.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was generated.
Re-purpose these expression plots to examine one Opn4 transcript. This will by some necessity be arbitrary.
It is at this moment that I realized (as I am almost certain I told myself when I started) using the hisat-derived tx counts is wrong because hisat->featureCounts has no good way to allocate multi-hits to multiple transcripts and will therefore discount them. If I want to do this in any sort of reliable way, I really need to re-extract the deduplicate reads from the umitools bam file and run salmon/kallisto. This is somewhat annoying because the various tools I have for extract bam reads really hate the way umitools formats the bam file and freak out. I can force it, but I think I will lose a potentially significant number of reads, let us go look…
(If you with to follow along, go back to the preprocessing document which I should have included in the singularity container) I will do one of the following:
- Use gatk or bamtools to create deduplicated fastq files and use them with salmon.
- Use salmon with the deduplicated bam files from hisat.
I am not sure right now which I want to do. I kind of like the idea of having deduplicated fastq files so that I can try some other stuff with them (kraken, for example)
## ggstatsplot has appeared and disappeared a few times from cran recently,
## I am not sure if it will work therefore, so figured I should disable this block
## for the moment.
## I did a search at ensembl for the various opn4 transcript IDs:
## ENSMUST00000022331, ENSMUST00000168444, ENSMUST00000226806
ids <- c("ENSMUST00000022331", "ENSMUST00000168444", "ENSMUST00000226806")
ids %in% rownames(loc_geno_nt)
ids <- c("ENSMUST00000022331", "ENSMUST00000168444")
opn4_exprs <- data.frame(combined = colData(loc_geno_nt)[["geno_loc_atb"]],
location = colData(loc_geno_nt)[["location_atb"]],
genotype = colData(loc_geno_nt)[["genotype_atb"]],
opn = assay(loc_geno_nt)[ids[1], ])
groupedstats::grouped_summary(opn4_exprs, location, opn)
opn4_location <- ggstatsplot::ggbetweenstats(data = opn4_exprs, x = location, y = opn)
pp(file = "images_tx/ggbetween_location.pdf")
opn4_location
plotted <- dev.off()
opn4_locationok, so I plotted the question a bit differently, but got the same answer.
Here is the text of Theresa’s notebook following this analysis:
“Ugh oh, looks like there is at least one retina KO sample that has some melanopsin expression in it. Turns out ipRGC_07 is a bad egg which is supposed to be a KO but has melanopsin expression. It’s friends which were pooled from the same mice are iprgc_06 and iprgc_08, so we need to exclude all these samples.”
I am also seeing some knockout expression with some caveats: I do not have the affected samples in my dataset (iprgc_07) and the levels I am seeing are quite low – I will look in IGV to double check, but I strongly suspect that these are some piddly reads near the UTRs.
Onward!
9 PCA plots
9.1 PCA of all genes by location
Theresa’s first pca was of log2 cpm values. I might add quantile/tmm to this?
tx_location <- set_conditions(mm38_hisat_tx, fact = "location_atb") |>
set_batches(fact = "genotype_atb") |>
set_colors(color_choices[["location"]])## The numbers of samples by condition are:##
## dlgn retina scn
## 23 23 19## Setting colors with no pre-defined colors, using the Dark2 palette.## The number of samples by batch are:##
## het ko wt
## 21 18 26tx_location_norm <- normalize(tx_location, filter = TRUE, norm = "quant",
transform = "log2", convert = "cpm")## Removing 52535 low-count genes (13348 remaining).## transform_counts: Found 118930 values equal to 0, adding 1 to the matrix.tx_location_pca <- plot_pca(tx_location_norm)
pp(file = "01diagnostic_images_tx/tx_location_norm_pca.pdf")
tx_location_pca## The result of performing a fast_svd dimension reduction.
## The x-axis is PC1 and the y-axis is PC2
## Colors are defined by dlgn, retina, scn
## Shapes are defined by het, ko, wt.## png
## 2## The result of performing a fast_svd dimension reduction.
## The x-axis is PC1 and the y-axis is PC2
## Colors are defined by dlgn, retina, scn
## Shapes are defined by het, ko, wt.
Once again we see that samples iprgc_66 and iprgc_130 are likely actually DLGN and not SCN. I am therefore going to add a column to the sample sheet noting this, and remove them from the expressionset.
I will thus replot the data after removing those two. If we want to see what it looks like with the re-attributed locations, we can do so.
Theresa has a nice change to the PCA plotter in which she sets the alpha channel as an additional visual queue for a metadata factor…
mm38_hisat_tx <- subset_se(mm38_hisat_tx, subset="sampleid!='iprgc_130'") |>
subset_se(subset="sampleid!='iprgc_66'")
tx_location <- set_conditions(mm38_hisat_tx, fact = "location_atb") |>
set_batches(fact = "genotype_atb") |>
set_colors(color_choices[["location"]])## The numbers of samples by condition are:##
## dlgn retina scn
## 23 23 17## Setting colors with no pre-defined colors, using the Dark2 palette.## The number of samples by batch are:##
## het ko wt
## 20 18 25tx_location_norm <- normalize(tx_location, filter = TRUE, norm = "quant",
transform = "log2", convert = "cpm")## Removing 52544 low-count genes (13339 remaining).## transform_counts: Found 112002 values equal to 0, adding 1 to the matrix.filtered_location_pca <- plot_pca(tx_location_norm)
pp(file = "02filtered_images_tx/filtered_location_pca.pdf")## Warning in pp(file = "02filtered_images_tx/filtered_location_pca.pdf"): The directory: 02filtered_images_tx does not exist, will attempt to
## create it.## The result of performing a fast_svd dimension reduction.
## The x-axis is PC1 and the y-axis is PC2
## Colors are defined by dlgn, retina, scn
## Shapes are defined by het, ko, wt.
removed_sankey <- plot_meta_sankey(tx_location, color_choices = color_choices,
factors = c("genotype_atb", "location_atb", "time_atb"))## Warning: attributes are not identical across measure variables; they will be dropped## NULL## A sankey plot describing the metadata of 63 samples,
## including 30 out of 0 nodes and traversing metadata factors:
## genotype_atb, location_atb, time_atb.
Here is Theresa’s text, recall once again that I do not have some of these older samples (iprgc_62):
PC1 vs PC2 identifies retina vs axon is still the main component of variation. We do see though that in the PC2 direction, we see with the new samples added, we don’t see separation based on axonal targets (dLGN vs SCN). In the PC1 vs PC3 plot, we see that it’s PC3 where we start to see variation correlated with axonal compartment. Let’s look at PC1 vs PC2 colored by batch (when they were processed/sequenced) to see if that is what is contributing so much variation in PC2.
Side note: ipRGC 62 seems like an odd ball. This seems to me like it should have been a dLGN P08 sample. Is there any possibility this got mislabeled early on? I went back and double checked to see if all my processing is correct and it indeed was labeled an SCN P15 from the time I got the samples, and it is indeed.
10 DE
I now switched to Theresa’s document ‘WORKING_axonTRAP…’ and will start pulling sections from it. I am reasonably certain I have reasonably similar sample distributions, so I presume I can invoke similar/identical calls for DESeq and friends.
10.1 p8 retinas
In the block immediately before the DE analyses, Theresa created a subset expressionset of only p08 retinas. Thus this initial DE I assume will be used to subtract for the SCN/DLGN analyses that follow. (I guess I could read ahead and find out, but no! I want to be a blank slate)
Theresa’s primary workflow makes heavy use of DESeq2 (Love et al. (2014)) and sva ((leekSVAPackageRemoving2012?)). In some(most?) of Theresa’s invocations of the all_pairwise() function, she excludes the other methods that it performs. In this workbook, I left those methods on, thus we can evaluate the relative performance DESeq2 vs. some (all? I may have disabled EBSeq/dream because they were taking too long) of the following:
- limma: (Ritchie et al. (2015)) (among other references) originally written for microarrays.
- EdgeR: (Robinson et al. (2010)), which shares many assumptions with DESeq2.
- EBSeq: (Leng et al. (2013)), because I have a soft spot for any Bayesian method.
- Noiseq: (Tarazona et al. (2011)), which seeks to directly model variance in an RNASeq dataset and use that to improve the sensitivity of the result, much like:
- Dream: ((hoffmanDreamPowerfulDifferential2020?)), written by the same authors (and uses very similar logic) as one of my favorite tools, variancePartition(Hoffman and Schadt (2016)).
mm38_p8_retina <- subset_se(mm38_hisat_tx, subset = "time_atb=='p08' & location_atb=='retina'")
mm_normal_p8_ret_de <- all_pairwise(mm38_p8_retina, model_svs = "svaseq",
model_fstring = "~ 0 + condition", filter = TRUE)## het_retina ko_retina wt_retina
## 3 3 5## Removing 56421 low-count genes (9462 remaining).## Basic step 0/3: Normalizing data.## Basic step 0/3: Converting data.## I think this is failing? SummarizedExperiment## Basic step 0/3: Transforming data.## Setting 5313 entries to zero.## This received a matrix of SVs.## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## conditions
## het_retina ko_retina wt_retina
## 3 3 5## conditions
## het_retina ko_retina wt_retina
## 3 3 5## conditions
## het_retina ko_retina wt_retina
## 3 3 5
## A pairwise differential expression with results from: basic, deseq, ebseq, edger, limma, noiseq.## This used a surrogate/batch estimate from: svaseq.## The primary analysis performed 3 comparisons.There seems to be a discrepency with previous iterations of this. Let us simplify to just doing deseq and find what is causing it. In my previous iteration, I got 3632 genes in the unique(c()) or het+ko.
deseq_only <- deseq_pairwise(mm38_p8_retina, model_svs = "svaseq",
model_fstring = default_fstring, filter = TRUE)## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.deseq_hetkeeper_tx <- deseq_only$all_tables$wt_retina_vs_het_retina |>
filter(logFC <= -0.25 & adj.P.Val <= 0.05)
deseq_kokeeper_tx <- deseq_only$all_tables$wt_retina_vs_ko_retina |>
filter(logFC <= -0.25 & adj.P.Val <= 0.05)
deseq_keepertx <- unique(c(rownames(deseq_hetkeeper_tx),
rownames(deseq_kokeeper_tx)))
length(deseq_keepertx)## [1] 1806deseq_pair_hetkeeper_tx <- mm_normal_p8_ret_de$deseq$all_tables$wt_retina_vs_het_retina |>
filter(logFC <= -0.25 & adj.P.Val <= 0.05)
deseq_pair_kokeeper_tx <- mm_normal_p8_ret_de$deseq$all_tables$wt_retina_vs_ko_retina |>
filter(logFC <= -0.25 & adj.P.Val <= 0.05)
deseq_pair_keepertx <- unique(c(rownames(deseq_pair_hetkeeper_tx),
rownames(deseq_pair_kokeeper_tx)))
length(deseq_pair_keepertx)## [1] 1806The following invocation performed by Theresa filters the wt/het comparison for only those genes which increased by at least 0.25 logFC with a significant adjusted p-value. I assume that this is to use the wt samples as a translational control for the ket/ko comparisons; I am therefore thinking that for my purposes, I will therefore separate the contrasts from all_pairwise do this in a stepwise fashion…
The block of code immediately following Theresa’s all_pairwise() invocation is a little confusing for me and warrants some explanation by me to me in the hopes that I do not misunderstand what is happening and the goals therein.
I think I can safely assume that the goal here is to pull out the IDs which increased in het with respect to wild type; even if by a small margin, as long as it is statistically significant vis a vis the adjusted p-value.
I am going to perform what I think is the same thing in a slightly different fashion so that I can share a copy of the results with whomever is interested. I will also repeat Theresa’s invocation and prove to myself that I understood and got the same answer.
wt_het_keeper <- list("het_vs_wt" = c("het_retina", "wt_retina"))
het_wt_table <- combine_de_tables(
mm_normal_p8_ret_de, keepers = wt_het_keeper, label_column = label_column,
excel = "03theresa_comparison_excel_tx/het_retina_control.xlsx")## Looking for subscript invalid names, end of extract_keepers.wanted_sig <- extract_significant_genes(
het_wt_table, lfc = 0.25, according_to = "deseq",
excel = "03theresa_comparison_excel_tx/het_retina_control-sig.xlsx")
wanted_het_increased <- wanted_sig[["deseq"]][["ups"]][["het_vs_wt"]]
increased_het_genes <- rownames(wanted_het_increased)Here are Theresa’s next lines:
mm_de_normal_p8_ret <- mm_normal_p8_ret_de
hetkeeper_tx <- mm_de_normal_p8_ret$deseq$all_tables$wt_retina_vs_het_retina |>
filter(logFC <= -0.25 & adj.P.Val <= 0.05)
kokeeper_tx <- mm_de_normal_p8_ret$deseq$all_tables$wt_retina_vs_ko_retina |>
filter(logFC <= -0.25 & adj.P.Val <= 0.05)
keepertx <- unique(c(rownames(hetkeeper_tx),
rownames(kokeeper_tx)))
## We know a priori that Opn4 is ENSMUSG00000021799
## I do not expect to see it in this set, it should be higher in wt
## retina vs ko retina by a significant margin.
## "ENSMUSG00000021799" %in% keepertx
## Oooohhh but it _is_ higher in het vs. wt, as we saw in
## the violin plot earlier.I think Rashmi made a compelling point which illustrates why we likely should expect the expression of Opn4 to significantly higher in the heterozygotes vs wild-type:
- Recall that the assay is using the immunopurification to extract the RNAs.
- The wt samples do not have the cre recombinase and therefore no HA and therefore everything we observe is due to non-specific binding.
- The set of genes observed due to non-specific binding is different than het/ko (presumably a larger number of relatively small values), therefore the divisor performed in the cpm is likely relativly large resulting in normalized values getting shifted down to some degree.
- On the other hand, the set of genes observed in het/ko are more likely to be only the specific binders and therefore smaller (I can test this) resulting in a smaller divisor and slight shifting up in the cpm values.
This makes me wonder if any normalization methods exist which do something like multiply the values by some value related to the proportion of observed genes; and/or if this is a good/bad/indifferent idea.
Also, just a note for me to remember: RPL22, not RPS22, for some reason I keep thinking the small subunit.
10.2 Prove I understood
hetkeeper_tx <- mm_normal_p8_ret_de$deseq$all_tables$wt_retina_vs_het_retina |>
filter(logFC <= -0.25 & adj.P.Val <= 0.05)
testthat::expect_true(nrow(hetkeeper_tx) == length(increased_het_genes))
taa_keepers <- sort(rownames(hetkeeper_tx))
atb_keepers <- sort(increased_het_genes)
testthat::expect_equal(taa_keepers, atb_keepers)Yay! I can read! Now let us repeat for the KO vs wt
wt_ko_keeper <- list("ko_vs_wt" = c("ko_retina", "wt_retina"))
ko_wt_table <- combine_de_tables(
mm_normal_p8_ret_de, keepers = wt_ko_keeper, label_column = label_column,
excel = "03theresa_comparison_excel_tx/ko_retina_control.xlsx")## Looking for subscript invalid names, end of extract_keepers.wanted_sig <- extract_significant_genes(
ko_wt_table, lfc = 0.25, according_to = "deseq",
excel = "03theresa_comparison_excel_tx/ko_retina_control-sig.xlsx")
wanted_ko_increased <- wanted_sig[["deseq"]][["ups"]][["ko_vs_wt"]]
increased_ko_genes <- rownames(wanted_ko_increased)The next thing performed in Theresa’s document is a unique(concatenation of these two gene groups), thus sucking up every gene which was significantly higher in either the knockout or heterzyous samples with respect to wild-type.
This was followed by a couple of merge operations of a little bit of the annotation data; I am not sure I understand the goal yet…
Here is her code. I copied the annotation ‘mgi_symbol’ column to ‘external_gene_name’ so that I need not change any of her code. I am assuming this is the appropriate column of interest, I do not know this for certain, but it seems quite likely.
While I am at it, here is the set_sig_limma() function from Theresa’s helpers.R
set_sig_limma <- function(limma_tbl, factors = NULL) {
if (is.null(factors)) {
#set significance for plotting colors
limma_tbl$Significance <- NA
limma_tbl[abs(limma_tbl$logFC) < 1 | limma_tbl$adj.P.Val > .05, "Significance"] <- "Not \nEnriched"
limma_tbl[limma_tbl$logFC >= 1 & limma_tbl$adj.P.Val <= .05, ][["Significance"]] <- "Disease \nUpregulated"
limma_tbl[limma_tbl$logFC <= -1 & limma_tbl$adj.P.Val <= .05, ][["Significance"]] <- "Disease \nDownregulated"
limma_tbl$Significance <- factor(limma_tbl$Significance, levels = c("Upregulated", "Downregulated", "Not \nEnriched"))
} else {
limma_tbl$Significance <- NA
limma_tbl[abs(limma_tbl$logFC) < 1 | limma_tbl$adj.P.Val > .05, "Significance"] <- "Not \nEnriched"
if(nrow(limma_tbl[limma_tbl$logFC >= 1 & limma_tbl$adj.P.Val <= .05, ]) != 0) {
limma_tbl[limma_tbl$logFC >= 1 & limma_tbl$adj.P.Val <= .05, ][["Significance"]] <- factors[1]
}
if (nrow(limma_tbl[limma_tbl$logFC <= -1 & limma_tbl$adj.P.Val <= .05, ]) != 0) {
limma_tbl[limma_tbl$logFC <= -1 & limma_tbl$adj.P.Val <= .05, ][["Significance"]] <- factors[2]
}
limma_tbl$Significance <- factor(limma_tbl$Significance, levels = c(factors, "Not \nEnriched"))
}
return(limma_tbl)
}10.2.1 Combining het/wt and ko/wt
mm_tx_annot[["external_gene_name"]] <- mm_tx_annot[["mgi_symbol"]]
keepertx <- unique(c(rownames(hetkeeper_tx), rownames(kokeeper_tx)))
length(keepertx)## [1] 1806annots_to_merge <- mm_tx_annot |>
select(ensembl_transcript_id, external_gene_name) |>
filter(ensembl_transcript_id %in%
rownames(mm_de_normal_p8_ret$deseq$all_tables$ko_retina_vs_het_retina)) |>
distinct()
mm_de_normal_p8_ret[["deseq"]][["all_tables"]][["ko_retina_vs_het_retina"]] <- merge(
mm_de_normal_p8_ret$deseq$all_tables$ko_retina_vs_het_retina, annots_to_merge,
by.x = "row.names", by.y = "row.names", all.x = TRUE)
df <- mm_de_normal_p8_ret$deseq$all_tables$ko_retina_vs_het_retina |>
dplyr::mutate(logFC = -logFC) |>
set_sig_limma(factors = c("Het Enriched", "KO Enriched"))My version of the above task makes use of the excludes option of combine_de_tabes. Given the set of unique gene IDs increased in the het/ko, I can ask to exlude anything not in that set. I could also have more parsimoniously directly excluded any gene ID increased in the wt samples. But, Theresa already provided the code to do the former, so it will be less typing/opportunity for silly mistakes to just do that.
both_increased_genes <- unique(c(increased_het_genes, increased_ko_genes))
## arbitrairly grab all genes from one of my data structures.
all_genes <- rownames(assay(mm38_hisat_tx))
exclude_idx <- all_genes %in% both_increased_genes
summary(exclude_idx)## Mode FALSE TRUE
## logical 64077 1806exclude_increased_genes <- all_genes[exclude_idx]
retina_keepers <- list(
"het_vs_wt" = c("het_retina", "wt_retina"),
"ko_vs_wt" = c("ko_retina", "wt_retina"),
"ko_vs_het" = c("ko_retina", "het_retina"))
## A reminder to myself: there is also a parameter 'wanted_genes'
## which does effectively the same thing as excludes in this context;
## excludes was originally written to allow flexible, keyword-based
## exclusion.
p8_retina_tables <- combine_de_tables(
mm_normal_p8_ret_de, keepers = retina_keepers,
wanted_genes = both_increased_genes, label_column = label_column,
excel = glue("03theresa_comparison_excel_tx/p8_retina_kept_tx_increased_in_wt_tables-v{ver}.xlsx"))## Looking for subscript invalid names, end of extract_keepers.p8_retina_sig <- extract_significant_genes(
p8_retina_tables, according_to = "deseq",
excel = glue("03theresa_comparison_excel_tx/p8_retina_kept_genes_increased_in_wt_sig-v{ver}.xlsx"))
opposite_p8_retina_tables <- combine_de_tables(
mm_normal_p8_ret_de, keepers = retina_keepers,
excludes = both_increased_genes, label_column = label_column,
excel = glue("03theresa_comparison_excel_tx/p8_retina_removed_genes_increased_in_wt_tables-v{ver}.xlsx"))## Looking for subscript invalid names, end of extract_keepers.11 Filtering out non-specific genes and examining the results
The following is a copy/paste from Theresa containing the remaining tasks she performed and will provide the template for implementation of the final tasks.
This picks up with the lines from her notebook immediately following the invocation of ‘set_sig_limma(factors = c(“Het Enriched” …’.
For all of the remaining blocks I will copy in her code, turn off its evaluation, run the blocks manually, compare them to her notebook output, then enable each block as I ensure I understand it.
I will likely therefore introduce some small formatting changes and add some additional GSEA/enrichment tasks once the non-specific filtering is complete.
df <- df |>
filter(Row.names %in% keepertx)
labels_ups <- df |>
filter(adj.P.Val <= 0.05 & abs(logFC) > 1) |>
arrange(logFC) |>
head(n = 9)
labels_downs <- df |>
filter(adj.P.Val <= 0.05 & abs(logFC) > 1) |>
arrange(-logFC) |>
head(n = 11)
labels <- rbind(labels_ups, labels_downs)
res_tbl <- df
DEplot <- ggplot(res_tbl, aes(x = logFC, y = -log10(adj.P.Val), label = external_gene_name)) +
geom_point(aes(colour = Significance), size = 4) +
geom_vline(xintercept = c(-1, 1)) +
geom_hline(yintercept = -log10(0.05)) +
theme_classic(base_size = 20) +
xlab("log2(FC)") +
ylab("-log10(p-value)") +
theme(legend.position = "right") +
scale_color_manual(values = c("#F8766D", "#00BFC4", "Grey")) +
geom_label_repel(
data = filter(df,
## c('s5_het_dlgn', 's5_het_ret', 's5_het_scn')),
external_gene_name %in% labels$external_gene_name),
## nudge_x = -0.5,
nudge_y = 3, max.overlaps = 15) +
xlim(c(-3, 6))
pp(file = "03theresa_comparison_images_tx/p08_retina_DE_1312024.pdf")
DEplot## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_point()`).## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_label_repel()`).## Warning: Removed 1 row containing missing values or values outside the scale range
## (`geom_point()`).
## Removed 1 row containing missing values or values outside the scale range
## (`geom_label_repel()`).
## Deleting the file excel_tx/retinahet_vs_retinako_WTfiltered.xlsx before writing the tables.## write_xlsx() wrote excel_tx/retinahet_vs_retinako_WTfiltered.xlsx.
## The cursor is on sheet first, row: 1809 column: 14.11.1 How many ups/downs
## [1] 15## [1] 4711.2 category enrichment/GSEA
regulated_genes <- res_tbl |>
filter(adj.P.Val <= 0.05) |>
arrange(logFC) |>
select(Row.names, logFC, adj.P.Val, external_gene_name, Significance) |>
filter(abs(logFC) >= 1)
## gsea_result_ko <- gost(query = ko_genes$external_gene_name,
## organism = "mmusculus",
## evcodes = TRUE,
## ordered_query = TRUE)
gsea_result_het <- gost(query = het_enriched$external_gene_name,
organism = "mmusculus",
evcodes = TRUE,
ordered_query = TRUE)
##gsea_result_alldysregulated <- gost(query = alldysregulated_genes$external_gene_name,
## organism = "mmusculus",
## evcodes = TRUE,
## ordered_query = TRUE)I have a function in my package which seeks to make gProfiler queries a bit more complete and easy. Let us see how similar the result is…
rownames(alldysregulated_genes) <- alldysregulated_genes[["Row.names"]]
alldysregulated_genes[["Row.names"]] <- NULL
het_gp <- simple_gprofiler(rownames(alldysregulated_genes),
species = "mmusculus",
excel = glue("excel_tx/het_gprofiler-v{ver}.xlsx"))
het_gp
enrichplot::dotplot(het_gp[["BP_enrich"]])
gp_pair <- enrichplot::pairwise_termsim(het_gp[["BP_enrich"]])
enrichplot::emapplot(gp_pair)
enrichplot::ssplot(gp_pair)
enrichplot::treeplot(gp_pair)
upsetplot(het_gp[["BP_enrich"]])
enrichplot::dotplot(het_gp[["REAC_enrich"]])
gp_pair <- enrichplot::pairwise_termsim(het_gp[["REAC_enrich"]])
enrichplot::emapplot(gp_pair)
enrichplot::ssplot(gp_pair)
enrichplot::treeplot(gp_pair)
upsetplot(het_gp[["REAC_enrich"]])I make a somewhat arbitrary distinction between the concepts of over-enrichment analyses and GSEA: the former (as performed by gprofiler) (Raudvere et al. (2019)) seeks to find groups of genes overrepresented in GO/reactome/etc. These groups of genes are taken exclusively from the top-n/bottom-n genes with respect to fold-change between conditions of interest; in this case most different than wt in the p08 retina ko or het samples.
With that in mind, I can invoke a similar function using the full table of DE results to get what I call the GSEA result using clusterProfiler (Yu (n.d.)). In the following block I will use the ‘all_cprofiler’ function on the data structures named ‘p8_retina_tables’ and ‘opposite_p8_retina_tables’ in order to get these GSEA results for each contrast performed (het/wt, ko/wt, het/ko). I will follow that up with ‘all_gprofiler’ which does the same, but uses gProfiler’s enrichment analyses (it will therefore include what we just looked at).
p08_retina_all_cp <- all_cprofiler(
p8_retina_sig, p8_retina_tables, orgdb = "org.Mm.eg.db", orgdb_from = orgdb_from,
excel = "03theresa_comparison_excel_tx/cprofiler_p08_retina.xlsx")## There are 238 genes deemed significant out of 721.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.32% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 5 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## no term enriched under specific pvalueCutoff...## Reading KEGG annotation online: "https://rest.kegg.jp/link/mmu/pathway"...## Reading KEGG annotation online: "https://rest.kegg.jp/list/pathway/mmu"...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.34% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Loading required package: org.Mm.eg.db## Loading required package: AnnotationDbi## Loading required package: stats4## Loading required package: BiocGenerics## Loading required package: generics##
## Attaching package: 'generics'## The following object is masked from 'package:dplyr':
##
## explain## The following objects are masked from 'package:base':
##
## as.difftime, as.factor, as.ordered, intersect, is.element, setdiff, setequal, union##
## Attaching package: 'BiocGenerics'## The following objects are masked from 'package:hpgltools':
##
## conditions, conditions<-, IQR, mad, sd, var## The following object is masked from 'package:dplyr':
##
## combine## The following objects are masked from 'package:stats':
##
## IQR, mad, sd, var, xtabs## The following objects are masked from 'package:base':
##
## anyDuplicated, aperm, append, as.data.frame, basename, cbind, colnames, dirname, do.call, duplicated, eval, evalq, Filter,
## Find, get, grep, grepl, is.unsorted, lapply, Map, mapply, match, mget, order, paste, pmax, pmax.int, pmin, pmin.int,
## Position, rank, rbind, Reduce, rownames, sapply, saveRDS, table, tapply, unique, unsplit, which.max, which.min## Loading required package: Biobase## Welcome to Bioconductor
##
## Vignettes contain introductory material; view with 'browseVignettes()'. To cite Bioconductor, see 'citation("Biobase")',
## and for packages 'citation("pkgname")'.##
## Attaching package: 'Biobase'## The following objects are masked from 'package:hpgltools':
##
## exprs<-, notes, pData<-, sampleNames<-## Loading required package: IRanges## Loading required package: S4Vectors##
## Attaching package: 'S4Vectors'## The following objects are masked from 'package:dplyr':
##
## first, rename## The following object is masked from 'package:utils':
##
## findMatches## The following objects are masked from 'package:base':
##
## expand.grid, I, unname##
## Attaching package: 'IRanges'## The following objects are masked from 'package:dplyr':
##
## collapse, desc, slice##
## Attaching package: 'AnnotationDbi'## The following object is masked from 'package:dplyr':
##
## select## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.32% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.32% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.32% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 1 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## leading edge analysis...## done...## Deleting the file 03theresa_comparison_excel_tx/cprofiler_p08_retina_het_vs_wt_up.xlsx before writing the tables.## There are 2 genes deemed significant out of 721.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.32% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 4 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 94215,20322,11522,70757,74147,435802## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.34% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 18597,11848,16971,56453,17423,53897## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.32% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.32% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 2297,399744,4300,10613,2629,400986## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.32% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 1 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## leading edge analysis...## done...## Deleting the file 03theresa_comparison_excel_tx/cprofiler_p08_retina_het_vs_wt_down.xlsx before writing the tables.## There are insufficient significant results to plot.## There are 266 genes deemed significant out of 721.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 6 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.9% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : For some of the pathways the P-values were likely overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 8 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (4.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 03theresa_comparison_excel_tx/cprofiler_p08_retina_ko_vs_wt_up.xlsx before writing the tables.## There are 7 genes deemed significant out of 721.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.82% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 03theresa_comparison_excel_tx/cprofiler_p08_retina_ko_vs_het_up.xlsx before writing the tables.## There are 27 genes deemed significant out of 721.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.82% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 03theresa_comparison_excel_tx/cprofiler_p08_retina_ko_vs_het_down.xlsx before writing the tables.
## Starting: het_vs_wt_up.## Starting: ko_vs_wt_up.## Starting: ko_vs_het_up.pp(file = "03theresa_comparison_images_tx/gsea_p08_retina_ko_vs_het_top_hit.pdf")
p08_topn_gsea[["GO_ko_vs_het_up"]][[1]]
dev.off()## png
## 2
pp(file = "03theresa_comparison_images_tx/gsea_p08_retina_het_vs_wt_top_hit.pdf")
p08_topn_gsea[["GO_het_vs_wt_up"]][[1]]## Error in `p08_topn_gsea[["GO_het_vs_wt_up"]][[1]]`:
## ! subscript out of bounds## png
## 2#gsea_ko <- gsea_result_ko[["result"]] |>
# select(term_name, p_value, term_size, intersection_size, recall, source, intersection) |>
# arrange(desc(recall)) |>
# head(n = 10)
# gsea_plots_ko <- ggplot(gsea_ko, aes(x = recall, y = reorder(term_name, recall), fill = p_value)) +
# geom_bar(stat = "identity")+
# scale_fill_continuous(low = "blue", high = "red") +
# theme_bw()+
# ylab("") +
# xlab("GSEA Score")
gsea_het <- gsea_result_het[["result"]] |>
dplyr::select(term_name, p_value, term_size, intersection_size, recall, source, intersection) |>
arrange(desc(recall)) |>
head(n = 10)
gsea_plots_het <- ggplot(gsea_het, aes(x = recall, y = reorder(term_name, recall), fill = p_value)) +
geom_bar(stat = "identity") +
scale_fill_continuous(low = "blue", high = "red") +
theme_bw() +
ylab("") +
xlab("Over Representation Score")
pp(file = "03theresa_comparison_images_tx/GSEA_p08_axontrap_retinahet_upregulated_vs_retinako.pdf")
gsea_plots_het
plotted <- dev.off()
gsea_plots_het
12 SCN Het vs KO
It is only now that I realized we are splitting the data by location for each set of comparisons. I think that, left to my own devices, I would prefer to keep the input data structure intact, perform the somewhat larger number of contrasts, and then split up the results. Ideally this will slightly improve the fidelity of the results returned by DESeq2 and friends. But, I will run the state of Theresa’s notebook with as few changes as possible first, then add this.
12.1 PCA
I am going to skip this PCA plot for a couple of reasons: I already did a superset of it, and the subset Theresa performed is not valid given the set of samples included in my sample sheet, and figuring out the actually corresponding subset will take me forever… In addition, I want to use my mm38_hisat_tx for everything…
scn_samples <- subset_se(mm38_hisat_tx,
subset = "location_atb == 'scn'") |>
set_batches(fact = "location_atb") |>
set_conditions(fact = "genotype_atb", colors = color_choices[["genotype"]])## The number of samples by batch are:##
## scn
## 17## The numbers of samples by condition are:##
## het ko wt
## 6 6 5scn_norm <- normalize(scn_samples, filter = TRUE, convert = "cpm",
transform = "log2", batch = "svaseq")## Removing 54027 low-count genes (11856 remaining).## transform_counts: Found 11723 values less than 0.## transform_counts: Found 11723 values equal to 0, adding 1 to the matrix.## The result of performing a fast_svd dimension reduction.
## The x-axis is PC1 and the y-axis is PC2
## Colors are defined by het, ko, wt
## Shapes are defined by scn.
13 Library sizes post-deduplication
Theresa’s next operation was to perform libsize/nonzero plots. I already did the pre/post deduplication nonzero, here is the analagous libsize.
v2 is pre-deduplication and v3 is post.
post_filter_nonzero <- plot_quantreads(mm38_hisat_tx, text = FALSE)
pp(file = "01diagnostic_images_tx/post_all_filteres_nonzero.pdf")
post_filter_nonzero[["plot"]]
plotted <- dev.off()
post_filter_nonzero## Library sizes of 63 samples,
## ranging from 333,226 to 2,996,801.
Theresa also produced a density/sample plot, that might prove quite useful for these due to their significantly larger variance across samples (due to deduplication).
pp(file = "01diagnostic_images_tx/sample_density.pdf")
mm38_density <- plot_density(loc_geno_nt)
mm38_density[["plot"]] +
theme(legend.position = "none")
plot_boxplot(loc_geno_nt)## Plot describing the gene distribution from a dataset.## png
## 2
## Plot describing the gene distribution from a dataset.## png
## 2## Plot describing the gene distribution from a dataset.
There is some difference across sample densities, but it is not too crazytown.
14 Diverging a little
At this point in the document I read ahead a bit and came to the conclusion that it repeats the above logic of taking the union of wt comparisons to remove genes from the appropriate het/ko or p15/p08 or location comparisons. This seems quite reasonable to me, but I would prefer to not separate all the data, so I will attempt to duplicate and slightly streamline this logic on the full dataset. Thus I am going to skip down to the end and attempt to implement this.
15 My version of the global analysis
I want to have an invocation of all_pairwise() which uses all samples, in the following block I will set that up using a set of ‘keepers’ which will be named by time, location, then 2 letters for the numerator/denominator: w for WT, h for het, d for delta; thus “p08_retina_hw” is comparing the het/wt for the p08 retina samples.
If they are of interest, I will have a separate set which follows the same convention with names like “p08_ko_sr” to compare p08 deltas with SCN as the numerator and retina as the denominator.
15.1 Set up the exclusion dataset
The most peculiar aspect of this analysis resides in the choices around choosing which genes to consider when comparing the genotypes/locations/times. The general idea is pretty clear: find the genes which are non-specifically being pulled down in the WT samples and either exclude or discount them. The various potential methods for performing this are confusing:
- Which set of comparisons of wt/ko wt/het do we use to
exclude/discount genes?
- Should it be a combination of all samples wt vs. x?
- Should it be only the ‘relevant’ comparison, e.g. if we are comparing p08_dlgn_het vs. p08_scn_het; do we remove genes observed in (p08_dlgn_het/wt && p08_scn_het/wt)
- Do we instead attempt to use this x/wt information to normalize the expression values in the other conditions and keep those genes?
Theresa’s current worksheet implements a version of 1b in which she separated the various input gene sets to define the exclusion genes. I am going to repeat this, but leave the starting data structure intact.
In this first iteration, I will do that by creating a simplified model of the data which combines the time/genotype/location and using sva. In my next iteration I will use a full statistical model containing each of those factors (and probably also using sva).
Note: my color choices are kind of garbage.
In addition, the exclusion dataset is the same as the analysis dataset, it is really only the contrasts which will be different.
tx_pairwise_input <- set_conditions(mm38_hisat_tx, fact = "time_geno_loc",
colors = color_choices[["all"]])## The numbers of samples by condition are:##
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Warning in set_colors(meta, colors = colors, color_column = color_column, : This list does not match the samples nor conditions.## This function is intended to set the colors of a dataset.## It was passed an object of type data.frame and does not know what to do.15.2 A heatmap of specific genes across all conditions
all_cond_gene_heatmap_start <- normalize(tx_pairwise_input, filter = "simple",
length_column = "cds_length",
convert = "rpkm", transform = "log2")## Removing 50190 low-count genes (15693 remaining).## About to perform a RPKM conversion where NA lengths are set to: 1000.## There appear to be 8 genes without a length.## Setting the elements with NA length to 1000.## transform_counts: Found 354582 values equal to 0, adding 1 to the matrix.## The factor p08_het_dlgn has 3 rows.## The factor p08_het_retina has 3 rows.## The factor p08_het_scn has 3 rows.## The factor p08_ko_dlgn has 3 rows.## The factor p08_ko_retina has 3 rows.## The factor p08_ko_scn has 3 rows.## The factor p08_wt_dlgn has 5 rows.## The factor p08_wt_retina has 5 rows.## The factor p08_wt_scn has 3 rows.## The factor p15_het_dlgn has 4 rows.## The factor p15_het_retina has 4 rows.## The factor p15_het_scn has 3 rows.## The factor p15_ko_dlgn has 3 rows.## The factor p15_ko_retina has 3 rows.## The factor p15_ko_scn has 3 rows.## The factor p15_wt_dlgn has 5 rows.## The factor p15_wt_retina has 5 rows.## The factor p15_wt_scn has 2 rows.all_cond_mtrx <- all_cond_gene_heatmap_input[["medians"]]
color_order <- colnames(all_cond_mtrx)
na_idx <- is.na(all_cond_mtrx)
all_cond_mtrx[na_idx] <- 0
variances <- matrixStats::rowVars(as.matrix(all_cond_mtrx))
variant_genes <- variances > 6.2
input_mtrx <- all_cond_mtrx[variant_genes, ]
cond_colors <- get_colors_by_condition(tx_pairwise_input, levels = color_order)
dim(input_mtrx)## [1] 146 18pp(file = "04inclusion_comparisons_tx/top_104_variant_rpkm_genes_heatmap.pdf")
gplots::heatmap.2(as.matrix(input_mtrx), scale = "none", trace = "none",
ColSideColors = cond_colors)
dev.off()## png
## 216 TODO: Change the above to subtract wt
Rashmi suggested we should do the above plot after subtracting the wt counts. This is a good idea, but it will have to wait until we finish the current set.
16.1 Set up the contrasts
In the following few blocks I will set up the various comparisons of interest. Starting with the set of genes to exclude because they were observed to bind non-specifically in the wt samples.
16.1.1 Inclusion contrasts
In each exclusion I will have the contrast first followed by the pair of contrasts which will be used to define the gene set to exclude.
- p15_het_dlgn/p08_het_dlgn: p15_wt_dlgn/p15_het_dlgn, p08_wt_dlgn/p08_het_dlgn; remove the genes increased in wt.
- p15_ko_scn/p08_ko_scn: p15_wt_scn/p15_ko_scn, p08_wt_scn/p15_ko_scn
- p15_het_retina/p08_het_retina: I think you get it, wt/het for both p15 retinas and p08 retinas…
Put slightly differently, for every term of interest I will create a contrast with the wt as numerator and the desired term as denominator, then pull out the genes increased in wt.
inclusions <- list(
## I like alphabetizing things, start with dlgn
"p15_het_dlgn" = c("p15_het_dlgn", "p15_wt_dlgn"),
"p08_het_dlgn" = c("p08_het_dlgn", "p08_wt_dlgn"),
"p15_ko_dlgn" = c("p15_ko_dlgn", "p15_wt_dlgn"),
"p08_ko_dlgn" = c("p08_ko_dlgn", "p08_wt_dlgn"),
## Then retinas
"p15_het_retina" = c("p15_het_retina", "p15_wt_retina"),
"p08_het_retina" = c("p08_het_retina", "p08_wt_retina"),
"p15_ko_retina" = c("p15_ko_retina", "p15_wt_retina"),
"p08_ko_retina" = c("p08_ko_retina", "p08_wt_retina"),
## Then scn
"p15_het_scn" = c("p15_het_scn", "p15_wt_scn"),
"p08_het_scn" = c("p08_het_scn", "p08_wt_scn"),
"p15_ko_scn" = c("p15_ko_scn", "p15_wt_scn"),
"p08_ko_scn" = c("p08_ko_scn", "p08_wt_scn"))16.1.2 Time contrasts
For each location/genotype of interest, let us compare p15/p08
time_keepers <- list(
## DLGN
"t_het_dlgn" = c("p15_het_dlgn", "p08_het_dlgn"),
"t_ko_dlgn" = c("p15_ko_dlgn", "p08_ko_dlgn"),
## Retina
"t_het_retina" = c("p15_het_retina", "p08_het_retina"),
"t_ko_retina" = c("p15_ko_retina", "p08_ko_retina"),
## SCN
"t_het_scn" = c("p15_het_scn", "p08_het_scn"),
"t_ko_scn" = c("p15_ko_scn", "p08_ko_scn"))16.1.3 Location contrasts
Compare locations and keep time/genotype consistent. I will use the location initials to define numerator/denominator.
location_keepers <- list(
## dlgn/retina
"dr_p08_het" = c("p08_het_dlgn", "p08_het_retina"),
"dr_p15_het" = c("p15_het_dlgn", "p15_het_retina"),
"dr_p08_ko" = c("p08_ko_dlgn", "p08_ko_retina"),
"dr_p15_ko" = c("p15_ko_dlgn", "p15_ko_retina"),
## scn/retina
"sr_p08_het" = c("p08_het_scn", "p08_het_retina"),
"sr_p15_het" = c("p15_het_scn", "p15_het_retina"),
"sr_p08_ko" = c("p08_ko_scn", "p08_ko_retina"),
"sr_p15_ko" = c("p15_ko_scn", "p15_ko_retina"),
## dlgn/scn
"ds_p08_het" = c("p08_het_dlgn", "p08_het_scn"),
"ds_p15_het" = c("p15_het_dlgn", "p15_het_scn"),
"ds_p08_ko" = c("p08_ko_dlgn", "p08_ko_scn"),
"ds_p15_ko" = c("p15_ko_dlgn", "p15_ko_scn"))16.1.4 Genotype contrasts
Compare ko/het while keeping time/location constant. Similarly, use the initials to denote numerator/denominator, which will always be kh.
genotype_keepers <- list(
## DLGN
"kh_p08_dlgn" = c("p08_ko_dlgn", "p08_het_dlgn"),
"kh_p15_dlgn" = c("p15_ko_dlgn", "p15_het_dlgn"),
## Retina
"kh_p08_retina" = c("p08_ko_retina", "p08_het_retina"),
"kh_p15_retina" = c("p15_ko_retina", "p15_het_retina"),
## SCN
"kh_p08_scn" = c("p08_ko_scn", "p08_het_scn"),
"kh_p15_scn" = c("p15_ko_scn", "p15_het_scn"))16.2 Perform the exclusion comparison
My all_pairwise() function now has a parameter which allows me to choose which contrasts to perform instead of literally doing every possible comparison. That is well suited for these operations:
In a container, the following appears to fail with:
“error code 1 from Lapack routine ‘dgesdd’”
Running it manually outside the container results in it working without error. I assume therefore that the problem lies in the compilation flags of LAPACK in the container.
Note: This problem was fixed by removing some parallelization.
inclusion_de <- all_pairwise(
tx_pairwise_input, filter = "simple", model_fstring = default_fstring,
keepers = inclusions, model_svs = "svaseq")## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 50190 low-count genes (15693 remaining).## Basic step 0/3: Normalizing data.## Basic step 0/3: Converting data.## I think this is failing? SummarizedExperiment## Basic step 0/3: Transforming data.## Setting 393901 entries to zero.## This received a matrix of SVs.## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2
## A pairwise differential expression with results from: basic, deseq, ebseq, edger, limma, noiseq.## This used a surrogate/batch estimate from: svaseq.## The primary analysis performed 12 comparisons.inclusion_tables <- combine_de_tables(
inclusion_de, keepers = inclusions, label_column = label_column,
excel = glue("04inclusion_comparisons_tx/inclusion_tables-v{ver}.xlsx"))## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_dlgn_vs_p15_wt_dlgn 316 428 384 497 436 586
## 2 p08_het_dlgn_vs_p08_wt_dlgn 40 116 73 144 149 134
## 3 p15_ko_dlgn_vs_p15_wt_dlgn 566 652 623 785 540 668
## 4 p08_ko_dlgn_vs_p08_wt_dlgn 179 271 171 337 244 495
## 5 p15_het_retina_vs_p15_wt_retina 89 28 143 56 56 23
## 6 p08_het_retina_vs_p08_wt_retina 275 113 325 197 182 57
## 7 p15_ko_retina_vs_p15_wt_retina 31 8 100 44 21 10
## 8 p08_ko_retina_vs_p08_wt_retina 288 88 337 156 183 50
## 9 p15_het_scn_vs_p15_wt_scn 3 4 47 25 43 172
## 10 p08_het_scn_vs_p08_wt_scn 2 1 43 34 37 23
## 11 p15_ko_scn_vs_p15_wt_scn 1 3 38 37 246 208
## 12 p08_ko_scn_vs_p08_wt_scn 1 2 62 29 75 70## Warning: `aes_string()` was deprecated in ggplot2 3.0.0.
## ℹ Please use tidy evaluation idioms with `aes()`.
## ℹ See also `vignette("ggplot2-in-packages")` for more information.
## ℹ The deprecated feature was likely used in the UpSetR package.
## Please report the issue at <https://github.com/hms-dbmi/UpSetR/issues>.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.## Warning: The `size` argument of `element_line()` is deprecated as of ggplot2 3.4.0.
## ℹ Please use the `linewidth` argument instead.
## ℹ The deprecated feature was likely used in the UpSetR package.
## Please report the issue at <https://github.com/hms-dbmi/UpSetR/issues>.
## This warning is displayed once per session.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.## Plot describing unique/shared genes in a differential expression table.
## 202603: I successfully recapitulated previous non-container result.
inclusion_sig <- extract_significant_genes(
inclusion_tables, lfc = lfc_cutoff, p = adjp_cutoff, according_to = "deseq",
excel = glue("04inclusion_comparisons_tx/inclusion_sig-v{ver}.xlsx"))
inclusion_sig## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 0.1 adj P cutoff: 0.1## deseq_up deseq_down
## p15_het_dlgn 1004 1041
## p08_het_dlgn 178 318
## p15_ko_dlgn 1341 1267
## p08_ko_dlgn 517 488
## p15_het_retina 213 100
## p08_het_retina 537 343
## p15_ko_retina 66 16
## p08_ko_retina 573 265
## p15_het_scn 6 6
## p08_het_scn 11 8
## p15_ko_scn 2 3
## p08_ko_scn 7 5
202505: A strange thing happened here in this iteration: the plot of the significant genes is the exact same as the previous iteration; but the table of numbers of genes looks different.
For example, the previous table showed: p15_het_dlgn with 2067 up and 2381 down. The plot shows exactly that; but the new table shows 607 up and 1229 down. Let us check the actual data structure and see what is up?
I think I get it: when we do the extract_significant_genes above, we explicitly set a non-standard p-value and logFC because we are explicitly attempting to use a very loose definition of the set of genes which are in greater abundance than their most similar wild-type. However, when I create the barplot of significant genes; those values are explicitly set to 0,1,2 logFCs and p-value 0.05. Therefore, what I need to do, in order to check consistency, is to repeat this call but with the default FC/p values and see what the numbers look like.
test_inclusion <- extract_significant_genes(
inclusion_tables, according_to = "deseq", excel = "excel_tx/default_inclusion_sig.xlsx")## Deleting the file excel_tx/default_inclusion_sig.xlsx before writing the tables.## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## p15_het_dlgn 316 428
## p08_het_dlgn 40 116
## p15_ko_dlgn 566 652
## p08_ko_dlgn 179 271
## p15_het_retina 89 28
## p08_het_retina 275 113
## p15_ko_retina 31 8
## p08_ko_retina 288 88
## p15_het_scn 3 4
## p08_het_scn 2 1
## p15_ko_scn 1 3
## p08_ko_scn 1 2
Yeah, I think this makes sense; what I need to do: change the significant bar plot so that it uses the lfc cutoff argument as the second of its 3 cutoffs. That should ensure that these numbers are consistent across analyses and parameters provided.
## [1] 1004 72test_all_up <- inclusion_tables$data$p15_het_dlgn[["deseq_logfc"]] > 0.1 &
inclusion_tables$data$p15_het_dlgn[["deseq_adjp"]] <= 0.1
summary(test_all_up)## Mode FALSE TRUE
## logical 14689 1004Ohh, I get it, when I was testing this out manually, I set the logFC to 1.0 instead of the very minimal 0.1 we have been using for this!
17 MA/Volcano plots of x vs wt
Rashmi asked to see the comparisons against wt; I will name each file xw to show that it is x vs wt. for whatever other parameters are being examined. It is likely that some colors will be wrong because this is my first time creating these plots and we are doing them manually.
17.1 p15_het_dlgn
allc <- color_choices[["all"]]
table_name <- "p15_het_dlgn"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p15_het_dlgn"
denom <- "p15_wt_dlgn"
hw_p15_dlgn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/hw_p15_dlgn_volcano.pdf", width = 9, height = 9)
hw_p15_dlgn_volcano[["plot"]]
plotted <- dev.off()
hw_p15_dlgn_volcano[["plot"]]
hw_p15_dlgn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/hw_p15_dlgn_ma.pdf", width = 9, height = 9)
hw_p15_dlgn_ma[["plot"]]
plotted <- dev.off()
hw_p15_dlgn_ma[["plot"]]
17.2 p08_het_dlgn
table_name <- "p08_het_dlgn"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p08_het_dlgn"
denom <- "p08_wt_dlgn"
hw_p08_dlgn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/hw_p08_dlgn_volcano.pdf", width = 9, height = 9)
hw_p08_dlgn_volcano[["plot"]]
plotted <- dev.off()
hw_p08_dlgn_volcano[["plot"]]
hw_p08_dlgn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/hw_p08_dlgn_ma.pdf", width = 9, height = 9)
hw_p08_dlgn_ma[["plot"]]
plotted <- dev.off()
hw_p08_dlgn_ma[["plot"]]
17.3 p15_ko_dlgn
table_name <- "p15_ko_dlgn"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p15_ko_dlgn"
denom <- "p15_wt_dlgn"
kw_p15_dlgn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/kw_p15_dlgn_volcano.pdf", width = 9, height = 9)
kw_p15_dlgn_volcano[["plot"]]
plotted <- dev.off()
kw_p15_dlgn_volcano[["plot"]]
kw_p15_dlgn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/kw_p15_dlgn_ma.pdf", width = 9, height = 9)
kw_p15_dlgn_ma[["plot"]]
plotted <- dev.off()
kw_p15_dlgn_ma[["plot"]]
HERE
17.4 p08_ko_dlgn
table_name <- "p08_ko_dlgn"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p08_ko_dlgn"
denom <- "p08_wt_dlgn"
kw_p08_dlgn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/kw_p08_dlgn_volcano.pdf", width = 9, height = 9)
kw_p08_dlgn_volcano[["plot"]]
plotted <- dev.off()
kw_p08_dlgn_volcano[["plot"]]
kw_p08_dlgn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/kw_p08_dlgn_ma.pdf", width = 9, height = 9)
kw_p08_dlgn_ma[["plot"]]
plotted <- dev.off()
kw_p08_dlgn_ma[["plot"]]
17.5 p15_het_retina
table_name <- "p15_het_retina"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p15_het_retina"
denom <- "p15_wt_retina"
hw_p15_retina_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/hw_p15_retina_volcano.pdf", width = 9, height = 9)
hw_p15_retina_volcano[["plot"]]
plotted <- dev.off()
hw_p15_retina_volcano[["plot"]]
hw_p15_retina_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/hw_p15_retina_ma.pdf", width = 9, height = 9)
hw_p15_retina_ma[["plot"]]
plotted <- dev.off()
hw_p15_retina_ma[["plot"]]
17.6 p08_het_retina
table_name <- "p08_het_retina"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p08_het_retina"
denom <- "p08_wt_retina"
hw_p08_retina_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/hw_p08_retina_volcano.pdf", width = 9, height = 9)
hw_p08_retina_volcano[["plot"]]
plotted <- dev.off()
hw_p08_retina_volcano[["plot"]]
hw_p08_retina_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/hw_p08_retina_ma.pdf", width = 9, height = 9)
hw_p08_retina_ma[["plot"]]
plotted <- dev.off()
hw_p08_retina_ma[["plot"]]
17.7 p15_ko_retina
table_name <- "p15_ko_retina"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p15_ko_retina"
denom <- "p15_wt_retina"
kw_p15_retina_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/kw_p15_retina_volcano.pdf", width = 9, height = 9)
kw_p15_retina_volcano[["plot"]]
plotted <- dev.off()
kw_p15_retina_volcano[["plot"]]
kw_p15_retina_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/kw_p15_retina_ma.pdf", width = 9, height = 9)
kw_p15_retina_ma[["plot"]]
plotted <- dev.off()
kw_p15_retina_ma[["plot"]]
17.8 p08_ko_retina
table_name <- "p08_ko_retina"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p08_ko_retina"
denom <- "p08_wt_retina"
kw_p08_retina_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/kw_p08_retina_volcano.pdf", width = 9, height = 9)
kw_p08_retina_volcano[["plot"]]
plotted <- dev.off()
kw_p08_retina_volcano[["plot"]]
kw_p08_retina_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/kw_p08_retina_ma.pdf", width = 9, height = 9)
kw_p08_retina_ma[["plot"]]
plotted <- dev.off()
kw_p08_retina_ma[["plot"]]
17.9 p15_het_scn
table_name <- "p15_het_scn"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p15_het_scn"
denom <- "p15_wt_scn"
hw_p15_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/hw_p15_scn_volcano.pdf", width = 9, height = 9)
hw_p15_scn_volcano[["plot"]]
plotted <- dev.off()
hw_p15_scn_volcano[["plot"]]
hw_p15_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/hw_p15_scn_ma.pdf", width = 9, height = 9)
hw_p15_scn_ma[["plot"]]
plotted <- dev.off()
hw_p15_scn_ma[["plot"]]
17.10 p08_het_scn
table_name <- "p08_het_scn"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p08_het_scn"
denom <- "p08_wt_scn"
hw_p08_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/hw_p08_scn_volcano.pdf", width = 9, height = 9)
hw_p08_scn_volcano[["plot"]]
plotted <- dev.off()
hw_p08_scn_volcano[["plot"]]
hw_p08_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/hw_p08_scn_ma.pdf", width = 9, height = 9)
hw_p08_scn_ma[["plot"]]
plotted <- dev.off()
hw_p08_scn_ma[["plot"]]
17.11 p15_ko_scn
table_name <- "p15_ko_scn"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p15_ko_scn"
denom <- "p15_wt_scn"
kw_p15_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/kw_p15_scn_volcano.pdf", width = 9, height = 9)
kw_p15_scn_volcano[["plot"]]
plotted <- dev.off()
kw_p15_scn_volcano[["plot"]]
kw_p15_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/kw_p15_scn_ma.pdf", width = 9, height = 9)
kw_p15_scn_ma[["plot"]]
plotted <- dev.off()
kw_p15_scn_ma[["plot"]]
17.12 p08_ko_scn
table_name <- "p08_ko_scn"
table <- inclusion_tables[["data"]][[table_name]]
num <- "p08_ko_scn"
denom <- "p08_wt_scn"
kw_p08_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = allc[[denom]], color_high = allc[[num]],
label_column = "mgi_symbol", label = 10, alpha = 1.0,
size = 4)
pp(file = "05inclusion_volcano_ma_tx/kw_p08_scn_volcano.pdf", width = 9, height = 9)
kw_p08_scn_volcano[["plot"]]
plotted <- dev.off()
kw_p08_scn_volcano[["plot"]]
kw_p08_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = allc[[denom]], color_high = allc[[num]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = 10)
pp(file = "05inclusion_volcano_ma_tx/kw_p08_scn_ma.pdf", width = 9, height = 9)
kw_p08_scn_ma[["plot"]]
plotted <- dev.off()
kw_p08_scn_ma[["plot"]]
See the shared/unique genes in these sets.
inclusion_upsets <- upsetr_sig(inclusion_sig)
inclusion_intersects <- write_upset_groups(
inclusion_upsets, excel = "04inclusion_comparison_tx/inclusion_gene_groups.xlsx")## Deleting the file 04inclusion_comparison_tx/inclusion_gene_groups.xlsx before writing the tables.17.12.1 Extract genes included for each set of contrasts
Now, using that function, pull out the gene IDs of genes we do not trust because they were too high in wt for every contrast we are likely to perform.
The following was a modified version of the inclusion function which is somewhat more restrictive.
extract_inclusions_strict <- function(inclusion_sig, inclusion_tables, inclusions, keepers,
all_genes, according_to = "deseq", which = "ups") {
retlist <- list()
table_names <- names(inclusion_sig[[according_to]][[which]])
for (c_num in seq_along(keepers)) {
contrast <- names(keepers)[c_num]
numerator_name <- keepers[[c_num]][1]
denominator_name <- keepers[[c_num]][2]
## In my new branch I cleaned up the sanitizer function for contrasts so this is not needed.
## The following two lines are no longer needed because of the cleanups I performed.
##numerator_name <- gsub(x = numerator_name, pattern = "(het|ko|wt)", replacement = "_\\1_")
##denominator_name <- gsub(x = denominator_name, pattern = "(het|ko|wt)", replacement = "_\\1_")
numerator_table <- inclusion_sig[[according_to]][[which]][[numerator_name]]
numerator_genes <- rownames(numerator_table)
denominator_table <- inclusion_sig[[according_to]][[which]][[denominator_name]]
denominator_genes <- rownames(denominator_table)
df_columns <- paste0("deseq_", c("logfc", "adjp", "den"))
included_num <- inclusion_tables[["data"]][[numerator_name]][, df_columns]
colnames(included_num) <- c("numerator_vs_wt_logfc", "numerator_vs_wt_adjp", "num_wt_mean_exprs")
included_den <- inclusion_tables[["data"]][[denominator_name]][, df_columns]
colnames(included_den) <- c("denominator_vs_wt_logfc", "denominator_vs_wt_adjp", "den_wt_mean_exprs")
## I think this is where things went wrong,
## compare this modified line to the original to prove it.
included_df <- merge(included_num, included_den, by = "row.names")
## Previously, I did not specify the merge action, all = FALSE by default.
## This then will result in a difference in the rows observed
## included_df <- merge(included_num, included_den, by = "row.names", all = FALSE)
rownames(included_df) <- included_df[["Row.names"]]
included_df[["Row.names"]] <- NULL
concatenated_genes <- c(numerator_genes, denominator_genes)
both_gene_idx <- duplicated(concatenated_genes)
genes_in_both <- concatenated_genes[both_gene_idx]
message("The set of unique genes higher in ", numerator_name,
" vs. wt is ", length(numerator_genes), ".")
message("The set of unique genes higher in ", denominator_name,
" vs. wt is ", length(denominator_genes), ".")
message("The intersection of them is ", length(genes_in_both), " genes.")
include_name <- paste0("inc_", contrast)
include_idx <- all_genes %in% genes_in_both
include_genes <- all_genes[include_idx]
df_name <- paste0("df_", contrast)
retlist[[df_name]] <- included_df
written_inclusion <- write_xlsx(
data = included_df,
excel = glue("07included_strict_genes_excel_tx/{include_name}-v{ver}.xlsx"))
retlist[[include_name]] <- include_genes
retlist[[contrast]] <- include_genes
}
return(retlist)
}This is the pre-202505 version of this function.
extract_inclusions <- function(inclusion_sig, inclusion_tables, inclusions, keepers, all_genes,
according_to = "deseq", which = "ups") {
retlist <- list()
table_names <- names(inclusion_sig[[according_to]][[which]])
for (c_num in seq_along(keepers)) {
contrast <- names(keepers)[c_num]
numerator_name <- keepers[[c_num]][1]
denominator_name <- keepers[[c_num]][2]
## In my new branch I cleaned up the sanitizer function for contrasts so this is not needed.
## The following two lines are no longer needed because of the cleanups I performed.
##numerator_name <- gsub(x = numerator_name, pattern = "(het|ko|wt)", replacement = "_\\1_")
##denominator_name <- gsub(x = denominator_name, pattern = "(het|ko|wt)", replacement = "_\\1_")
numerator_table <- inclusion_sig[[according_to]][[which]][[numerator_name]]
numerator_genes <- rownames(numerator_table)
denominator_table <- inclusion_sig[[according_to]][[which]][[denominator_name]]
denominator_genes <- rownames(denominator_table)
df_columns <- paste0("deseq_", c("logfc", "adjp", "den"))
included_num <- inclusion_tables[["data"]][[numerator_name]][, df_columns]
colnames(included_num) <- c("numerator_vs_wt_logfc", "numerator_vs_wt_adjp", "num_wt_mean_exprs")
included_den <- inclusion_tables[["data"]][[denominator_name]][, df_columns]
colnames(included_den) <- c("denominator_vs_wt_logfc", "denominator_vs_wt_adjp", "den_wt_mean_exprs")
included_df <- merge(included_num, included_den, by = "row.names")
rownames(included_df) <- included_df[["Row.names"]]
included_df[["Row.names"]] <- NULL
include_genes <- unique(c(numerator_genes, denominator_genes))
message("The set of unique genes higher in ", numerator_name,
" vs. wt is ", length(numerator_genes), ".")
message("The set of unique genes higher in ", denominator_name,
" vs. wt is ", length(denominator_genes), ".")
message("The unique union of them is ", length(include_genes), " genes.")
include_name <- paste0("inc_", contrast)
include_idx <- all_genes %in% include_genes
include_genes <- all_genes[include_idx]
df_name <- paste0("df_", contrast)
retlist[[df_name]] <- included_df
written_inclusion <- write_xlsx(data = included_df,
excel = glue("included_genes_tx/{include_name}-v{ver}.xlsx"))
retlist[[include_name]] <- include_genes
retlist[[contrast]] <- include_genes
}
return(retlist)
}18 ‘Normal’ Inclusion extraction
Here is the full set of gene IDs
In the following blocks I am including the union of genes observed higher than wt in either of the numerator or denominator for each contrast.
18.1 Time
time_inclusions <- extract_inclusions(inclusion_sig, inclusion_tables, inclusions,
time_keepers, all_genes)## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The unique union of them is 1045 genes.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The unique union of them is 1596 genes.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The unique union of them is 605 genes.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The unique union of them is 592 genes.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The unique union of them is 17 genes.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The unique union of them is 8 genes.18.2 Location
location_inclusions <- extract_inclusions(inclusion_sig, inclusion_tables, inclusions,
location_keepers, all_genes)## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The unique union of them is 693 genes.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The unique union of them is 1145 genes.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The unique union of them is 1015 genes.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The unique union of them is 1391 genes.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The unique union of them is 548 genes.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The unique union of them is 219 genes.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The unique union of them is 577 genes.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The unique union of them is 67 genes.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The unique union of them is 189 genes.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The unique union of them is 1010 genes.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The unique union of them is 520 genes.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The unique union of them is 1342 genes.18.3 Genotype
genotype_inclusions <- extract_inclusions(inclusion_sig, inclusion_tables, inclusions,
genotype_keepers, all_genes)## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The unique union of them is 589 genes.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The unique union of them is 1457 genes.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The unique union of them is 756 genes.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The unique union of them is 230 genes.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The unique union of them is 17 genes.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The unique union of them is 7 genes.19 The strict ‘inclusion’ set
19.1 Time
time_inclusions_strict <- extract_inclusions_strict(inclusion_sig, inclusion_tables, inclusions,
time_keepers, all_genes)## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The intersection of them is 137 genes.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The intersection of them is 262 genes.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The intersection of them is 145 genes.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The intersection of them is 47 genes.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The intersection of them is 0 genes.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The intersection of them is 1 genes.19.2 Location
location_inclusions_strict <- extract_inclusions_strict(inclusion_sig, inclusion_tables, inclusions,
location_keepers, all_genes)## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The intersection of them is 22 genes.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The intersection of them is 72 genes.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The intersection of them is 75 genes.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The intersection of them is 16 genes.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The intersection of them is 0 genes.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The intersection of them is 0 genes.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The intersection of them is 3 genes.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The intersection of them is 1 genes.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The intersection of them is 0 genes.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The intersection of them is 0 genes.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The intersection of them is 4 genes.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The intersection of them is 1 genes.19.3 Genotype
genotype_inclusions_strict <- extract_inclusions_strict(inclusion_sig, inclusion_tables, inclusions,
genotype_keepers, all_genes)## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The intersection of them is 106 genes.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The intersection of them is 888 genes.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The intersection of them is 354 genes.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The intersection of them is 49 genes.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The intersection of them is 1 genes.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The intersection of them is 1 genes.19.3.1 Check vs Theresa’s filter
Up above Theresa performed a 0.25 log2FC and 0.05 adjp filter which provided a set of 2,640 genes observed higher in the p08 het retinas vs. wt retinas. I should see that in this inclusion_sig data structure.
There is an important caveat though: in Theresa’s filter above, she did a DE of only the retina samples but I did all samples. I expected that this would result in basically the same result (I actually assumed I would get a few more genes), but instead it appears to have retrieved a significantly smaller number of genes (about 1/2, happily they pretty much all appear in the previous filter). As a result, I am going to try relaxing my constraints slightly to see if I can recapitulate her filter (which would match Theresa’s later filter, though I guess that in turn will lead to a smaller set of genes compared to her later, relaxed 0.1 filter).
comparison <- inclusion_sig[["deseq"]][["ups"]][["p08_het_retina"]]
comp <- list(
"taa" = taa_keepers,
"new" = rownames(comparison))
test_comparison <- Vennerable::Venn(comp)
Vennerable::plot(test_comparison)
I want to have a little function which, given a contrast of interest, will extract the gene sets which should be included/excluded given the above.
write_all_cp <- function(all_cp, prefix = "12", suffix = "") {
all_written <- list()
for (g in seq_len(length(all_cp))) {
name <- names(all_cp)[g]
datum <- all_cp[[name]]
filename <- glue("{prefix}enrichment_excel_tx/{name}_cprofiler{suffix}-v{ver}.xlsx")
written <- sm(write_cp_data(datum, excel = filename))
all_written[[g]] <- written
}
return(all_written)
}
write_all_gp <- function(all_gp, prefix = "13", suffix = "") {
all_written <- list()
for (g in seq_len(length(all_gp))) {
name <- names(all_gp)[g]
datum <- all_gp[[name]]
filename <- glue("{prefix}enrichment_excel_tx/{name}_gprofiler{suffix}-v{ver}.xlsx")
written <- sm(write_gprofiler_data(datum, excel = filename))
all_written[[g]] <- written
}
return(all_written)
}
write_all_en <- function(all_en, prefix = "14", suffix = "") {
all_written <- list()
for (e in seq_len(length(all_en))) {
name <- names(all_en)[e]
datum <- all_en[[name]]
filename <- glue("{prefix}enrichment_excel_tx/{name}_enricher{suffix}-v{ver}.xlsx")
written <- sm(write_enricher_data(datum, excel = filename))
all_written[[e]] <- written
}
return(all_written)
}19.3.2 Extract genes included for each set of contrasts
Now, using that function, pull out the gene IDs of genes we do not trust because they were too high in wt for every contrast we are likely to perform.
all_genes <- rownames(assay(tx_pairwise_input))
time_inclusions <- extract_inclusions(inclusion_sig, inclusion_tables, inclusions,
time_keepers, all_genes)## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The unique union of them is 1045 genes.## Deleting the file included_genes_tx/inc_t_het_dlgn-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The unique union of them is 1596 genes.## Deleting the file included_genes_tx/inc_t_ko_dlgn-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The unique union of them is 605 genes.## Deleting the file included_genes_tx/inc_t_het_retina-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The unique union of them is 592 genes.## Deleting the file included_genes_tx/inc_t_ko_retina-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The unique union of them is 17 genes.## Deleting the file included_genes_tx/inc_t_het_scn-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The unique union of them is 8 genes.## Deleting the file included_genes_tx/inc_t_ko_scn-v20260812.xlsx before writing the tables.location_inclusions <- extract_inclusions(inclusion_sig, inclusion_tables, inclusions,
location_keepers, all_genes)## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The unique union of them is 693 genes.## Deleting the file included_genes_tx/inc_dr_p08_het-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The unique union of them is 1145 genes.## Deleting the file included_genes_tx/inc_dr_p15_het-v20260812.xlsx before writing the tables.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The unique union of them is 1015 genes.## Deleting the file included_genes_tx/inc_dr_p08_ko-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The unique union of them is 1391 genes.## Deleting the file included_genes_tx/inc_dr_p15_ko-v20260812.xlsx before writing the tables.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The unique union of them is 548 genes.## Deleting the file included_genes_tx/inc_sr_p08_het-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The unique union of them is 219 genes.## Deleting the file included_genes_tx/inc_sr_p15_het-v20260812.xlsx before writing the tables.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The unique union of them is 577 genes.## Deleting the file included_genes_tx/inc_sr_p08_ko-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The unique union of them is 67 genes.## Deleting the file included_genes_tx/inc_sr_p15_ko-v20260812.xlsx before writing the tables.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The unique union of them is 189 genes.## Deleting the file included_genes_tx/inc_ds_p08_het-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The unique union of them is 1010 genes.## Deleting the file included_genes_tx/inc_ds_p15_het-v20260812.xlsx before writing the tables.## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The unique union of them is 520 genes.## Deleting the file included_genes_tx/inc_ds_p08_ko-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The unique union of them is 1342 genes.## Deleting the file included_genes_tx/inc_ds_p15_ko-v20260812.xlsx before writing the tables.genotype_inclusions <- extract_inclusions(inclusion_sig, inclusion_tables, inclusions,
genotype_keepers, all_genes)## The set of unique genes higher in p08_ko_dlgn vs. wt is 517.## The set of unique genes higher in p08_het_dlgn vs. wt is 178.## The unique union of them is 589 genes.## Deleting the file included_genes_tx/inc_kh_p08_dlgn-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_dlgn vs. wt is 1341.## The set of unique genes higher in p15_het_dlgn vs. wt is 1004.## The unique union of them is 1457 genes.## Deleting the file included_genes_tx/inc_kh_p15_dlgn-v20260812.xlsx before writing the tables.## The set of unique genes higher in p08_ko_retina vs. wt is 573.## The set of unique genes higher in p08_het_retina vs. wt is 537.## The unique union of them is 756 genes.## Deleting the file included_genes_tx/inc_kh_p08_retina-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_retina vs. wt is 66.## The set of unique genes higher in p15_het_retina vs. wt is 213.## The unique union of them is 230 genes.## Deleting the file included_genes_tx/inc_kh_p15_retina-v20260812.xlsx before writing the tables.## The set of unique genes higher in p08_ko_scn vs. wt is 7.## The set of unique genes higher in p08_het_scn vs. wt is 11.## The unique union of them is 17 genes.## Deleting the file included_genes_tx/inc_kh_p08_scn-v20260812.xlsx before writing the tables.## The set of unique genes higher in p15_ko_scn vs. wt is 2.## The set of unique genes higher in p15_het_scn vs. wt is 6.## The unique union of them is 7 genes.## Deleting the file included_genes_tx/inc_kh_p15_scn-v20260812.xlsx before writing the tables.19.4 Perform the DE analyses and exclude the target genes
19.4.1 Genotype
genotype_de <- all_pairwise(tx_pairwise_input, filter = TRUE, model_fstring = default_fstring,
keepers = genotype_keepers, model_svs = "svaseq")## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## Basic step 0/3: Normalizing data.## Basic step 0/3: Converting data.## I think this is failing? SummarizedExperiment## Basic step 0/3: Transforming data.## Setting 250859 entries to zero.## This received a matrix of SVs.## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2
## A pairwise differential expression with results from: basic, deseq, ebseq, edger, limma, noiseq.## This used a surrogate/batch estimate from: svaseq.## The primary analysis performed 6 comparisons.19.4.2 Location
location_de <- all_pairwise(tx_pairwise_input, filter = TRUE, model_fstring = default_fstring,
keepers = location_keepers, model_svs = "svaseq")## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## Basic step 0/3: Normalizing data.## Basic step 0/3: Converting data.## I think this is failing? SummarizedExperiment## Basic step 0/3: Transforming data.## Setting 250859 entries to zero.## This received a matrix of SVs.## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2
## A pairwise differential expression with results from: basic, deseq, ebseq, edger, limma, noiseq.## This used a surrogate/batch estimate from: svaseq.## The primary analysis performed 12 comparisons.19.4.3 Time
time_de <- all_pairwise(tx_pairwise_input, filter = TRUE, model_fstring = default_fstring,
keepers = time_keepers, model_svs = "svaseq")## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## Basic step 0/3: Normalizing data.## Basic step 0/3: Converting data.## I think this is failing? SummarizedExperiment## Basic step 0/3: Transforming data.## Setting 250859 entries to zero.## This received a matrix of SVs.## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2
## A pairwise differential expression with results from: basic, deseq, ebseq, edger, limma, noiseq.## This used a surrogate/batch estimate from: svaseq.## The primary analysis performed 6 comparisons.It is near here when the computer sometimes fails with no more tempfiles. In another window I am messing with tempfile() in R to try to understand where it is going off the rails…
19.5 Extract the relevant tables and include genes lower in wt
19.5.1 Genotype contrasts
I will start with the tables and no inclusions so I can check my work.
In this first block I will explain a little more thoroughly what is going on:
- Dump the full table of the contrasts I defined above comparing the 3 genotypes across time/location.
- Iterate over each of those contrasts and do the following:
- Extract the name of the contrast, ‘kh_p08_dlgn’ for example
- Yank out that specific entry from the keeper list and its name
- Yank out the corresponding set of genes to include from the inclusions data structure.
- Create a filename given the name in (a) above and the logFC cutoff chosen for the inclusions (I am assuming we may change this)
- Given (b), (c), and (d), extract the corresponding table from the differential expression analysis and include the appropriate genes.
genotype_tables_full <- combine_de_tables(
genotype_de, keepers = genotype_keepers, label_column = label_column,
fancy = TRUE,
excel = glue("08full_contrasts_excel_tx/genotype_full_tables-v{ver}.xlsx"))## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_dlgn_vs_p08_het_dlgn 27 11 57 45 35 46
## 2 p15_ko_dlgn_vs_p15_het_dlgn 35 1 69 16 35 11
## 3 p08_ko_retina_vs_p08_het_retina 9 2 30 30 3 2
## 4 p15_ko_retina_vs_p15_het_retina 3 6 30 41 1 4
## 5 p08_ko_scn_vs_p08_het_scn 5 19 43 88 32 20
## 6 p15_ko_scn_vs_p15_het_scn 4 18 29 57 9 6## Plot describing unique/shared genes in a differential expression table.
genotype_sig_full <- extract_significant_genes(
genotype_tables_full, according_to = "deseq",
excel = glue("08full_contrasts_excel_tx/genotype_full_sig-v{ver}.xlsx"))
genotype_sig_full## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p08_dlgn 27 11
## kh_p15_dlgn 35 1
## kh_p08_retina 9 2
## kh_p15_retina 3 6
## kh_p08_scn 5 19
## kh_p15_scn 4 18
19.5.2 Search Enrichment of these sets
In this run, we will search the full set of genes, next we will only do the inclusions.
genotype_full_gp <- all_gprofiler(genotype_sig_full, species = "mmusculus",
excel = "09full_contrasts_enrich_tx/genotype_full_gprofiler.xlsx")
genotype_full_cp <- all_cprofiler(genotype_sig_full, genotype_tables_full,
orgdb = "org.Mm.eg.db", go_level = go_level, organism = "mouse",
orgdb_from = orgdb_from, max_groupsize = max_groupsize,
excel = "09full_contrasts_enrich_tx/genotype_full_cprofiler.xlsx")## There are 7 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.68% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.68% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.68% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.68% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p08_dlgn_up.xlsx before writing the tables.## There are 2 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.68% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 18642,94284,19063,73458,26897,69080## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.68% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.68% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.68% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p08_dlgn_down.xlsx before writing the tables.## There are 17 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.24% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some pathways, in reality P-values are less than
## 1e-10. You can set the `eps` argument to zero for better estimation.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.04% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.24% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.24% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.24% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p15_dlgn_up.xlsx before writing the tables.## Error in sig_genes_namedf[[orgdb_to]] : subscript out of bounds## There are 3 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.81% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p08_retina_up.xlsx before writing the tables.## dimensionality reduction failed with provided drfun; falling back to stats::cmdscale.## Error in sig_genes_namedf[[orgdb_to]] : subscript out of bounds## There are 2 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.57% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p15_retina_up.xlsx before writing the tables.## dimensionality reduction failed with provided drfun; falling back to stats::cmdscale.## There are 2 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.57% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 83699,91860,57169,6300,1281,196968## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (8.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p15_retina_down.xlsx before writing the tables.## There are 1 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## No gene sets have size between 5 and 500 ...## --> return NULL...## No gene sets have size between 5 and 500 ...## --> return NULL...## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.21% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 13808,232449,75731,433182,68801,14635## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.48% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 319625,20980,12499,56690,212555,20511## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.21% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## No gene sets have size between 5 and 2000 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.21% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.21% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p08_scn_up.xlsx before writing the tables.## There are 2 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.21% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.48% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.21% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.21% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (9.21% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p08_scn_down.xlsx before writing the tables.## Error in sig_genes_namedf[[orgdb_to]] : subscript out of bounds## There are 7 genes deemed significant out of 4708.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.55% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.81% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.55% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.55% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (7.55% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file 09full_contrasts_enrich_tx/genotype_full_cprofiler_kh_p15_scn_down.xlsx before writing the tables.genotype_full_upset <- upsetr_sig(genotype_sig_full)
genotype_full_intersects <- write_upset_groups(genotype_full_upset,
excel = "09full_contrasts_intersections_tx/genotype_full_gene_groups.xlsx")## Deleting the file 09full_contrasts_intersections_tx/genotype_full_gene_groups.xlsx before writing the tables.Now separate the various genotype tables and perform the inclusions of the genes with relatively low wt values.
19.5.2.1 Extract filtered genes and pass to gprofiler2/clusterprofiler
genotype_tables <- list()
genotype_sig <- list()
genotype_gp <- list()
genotype_cp <- list()
genotype_en <- list()
for (k in seq_along(genotype_keepers)) {
name <- names(genotype_keepers)[k]
message("Examining ", name)
keeper <- genotype_keepers[name]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- genotype_inclusions[[include_df_name]]
includes <- genotype_inclusions[[include_name]]
summary(rownames(genotype_sig_full[["deseq"]][["ups"]][[name]]) %in% includes)
include_filename <- glue("10genotype_contrasts_excel_tx/{name}_including_wt_{lfc_cutoff}_decreased_table-v{ver}.xlsx")
include_sig_filename <- glue("10genotype_contrasts_excel_tx/{name}_including_wt_{lfc_cutoff}_decreased_sig-v{ver}.xlsx")
genotype_tables[[name]] <- combine_de_tables(
genotype_de, extra_annot = include_df,
keepers = keeper, label_column = label_column,
excel = include_filename, wanted_genes = includes)
print(genotype_tables[[name]])
genotype_sig[[name]] <- extract_significant_genes(
genotype_tables[[name]], according_to = "deseq",
excel = include_sig_filename)
print(genotype_sig[[name]])
num_rows <- nrow(genotype_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(genotype_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
if (num_rows >= 10) {
message("Performing gprofiler/clusterProfiler.")
genotype_gp[[name]] <- all_gprofiler(genotype_sig[[name]], species = "mmusculus")
genotype_cp[[name]] <- all_cprofiler(
genotype_sig[[name]], genotype_tables[[name]],
orgdb = "org.Mm.eg.db", orgdb_from = orgdb_from,
go_level = go_level, max_groupsize = max_groupsize, organism = "mouse")
#if (!is.null(get0("m2_gsc"))) {
# genotype_en[[name]] <- all_enricher(genotype_sig[[name]], gsc = m2_gsc,
# orgdb = "org.Mm.eg.db", from = "ENSEMBL", to = "SYMBOL")
#}
gp_written <- write_all_gp(genotype_gp[[name]], prefix = "11")
cp_written <- write_all_cp(genotype_cp[[name]], prefix = "11")
#en_written <- write_all_en(genotype_en[[name]])
} else {
warning("There are less than 10 genes up and down in the ", name, " comparison.")
message("There are less than 10 genes up and down in the ", name, " comparison.")
}
}## Examining kh_p08_dlgn## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_dlgn_vs_p08_het_dlgn 22 1 21 0 8 0## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p08_dlgn 22 1
## There are 23 significant up and down genes.## Performing gprofiler/clusterProfiler.## There are 5 genes deemed significant out of 291.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.37% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.38% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.37% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.37% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.37% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_kh_p08_dlgn_up.xlsx before writing the tables.## Error in sig_genes_namedf[[orgdb_to]] : subscript out of bounds## Examining kh_p15_dlgn## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_dlgn_vs_p15_het_dlgn 33 0 48 0 2 0## Only kh_p15_dlgn_up has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p15_dlgn 33 0
## There are 33 significant up and down genes.## Performing gprofiler/clusterProfiler.## There are 17 genes deemed significant out of 616.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.11% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.16% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.11% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 2 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.11% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some pathways, in reality P-values are less than
## 1e-10. You can set the `eps` argument to zero for better estimation.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.11% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 1 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## leading edge analysis...## done...## Deleting the file excel/all_cp_kh_p15_dlgn_up.xlsx before writing the tables.## Examining kh_p08_retina## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_retina_vs_p08_het_retina 5 1 6 1 2 1## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p08_retina 5 1
## There are 6 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p08_retina comparison.## There are less than 10 genes up and down in the kh_p08_retina comparison.## Examining kh_p15_retina## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_retina_vs_p15_het_retina 2 5 2 10 0 3## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p15_retina 2 5
## There are 7 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p15_retina comparison.## There are less than 10 genes up and down in the kh_p15_retina comparison.## Examining kh_p08_scn## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 17.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_scn_vs_p08_het_scn 0 4 1 4 0 1## Only kh_p08_scn_down has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p08_scn 0 4
## There are 4 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p08_scn comparison.## There are less than 10 genes up and down in the kh_p08_scn comparison.## Examining kh_p15_scn## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 7.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_scn_vs_p15_het_scn 0 4 0 3 0 0## Only kh_p15_scn_down has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p15_scn 0 4
## There are 4 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p15_scn comparison.## There are less than 10 genes up and down in the kh_p15_scn comparison.Plot the results separately.
for (k in seq_along(genotype_keepers)) {
name <- names(genotype_keepers)[k]
message("Examining ", name)
keeper <- genotype_keepers[name]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- genotype_inclusions[[include_df_name]]
includes <- genotype_inclusions[[include_name]]
summary(rownames(genotype_sig_full[["deseq"]][["ups"]][[name]]) %in% includes)
num_rows <- nrow(genotype_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(genotype_sig[[name]][["deseq"]][["downs"]][[name]])
nrow(genotype_sig[[name]][["deseq"]][["ups"]][[name]])
nrow(genotype_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
## #1 is up and #2 is down, avoiding typeos here.
num_objects <- length(genotype_cp[[name]])
if (num_objects == 0) {
warning("Something went wrong in all_cprofiler.")
} else {
upp <- which(grepl(x = names(genotype_cp[[name]]), pattern = "_up$"))
downp <- which(grepl(x = names(genotype_cp[[name]]), pattern = "_down$"))
if (length(upp) > 0) {
mf_sig <- genotype_cp[[name]][[upp]][["go_data"]][["MF_enrich"]]
cc_sig <- genotype_cp[[name]][[upp]][["go_data"]][["CC_enrich"]]
bp_sig <- genotype_cp[[name]][[upp]][["go_data"]][["BP_enrich"]]
mf_plots_up <- plot_enrichresult(mf_sig)
mf_tree_up_filename <- glue("12clusterProfiler_plots_tx/{name}_up_mf_sig_tree.pdf")
pp(file = mf_tree_up_filename)
try(print(mf_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_up_filename <- glue("12clusterProfiler_plots_tx/{name}_up_mf_sig_bar.pdf")
pp(file = mf_bar_up_filename)
try(print(mf_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_up <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_up_filename <- glue("12clusterProfiler_plots_tx/{name}_up_cc_sig_tree.pdf")
pp(file = cc_tree_up_filename)
try(print(cc_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_up_filename <- glue("12clusterProfiler_plots_tx/{name}_up_cc_sig_bar.pdf")
pp(file = cc_bar_up_filename)
try(print(cc_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_up_filename <- glue("12clusterProfiler_plots_tx/{name}_up_bp_sig_tree.pdf")
pp(file = bp_tree_up_filename)
try(print(bp_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_up_filename <- glue("12clusterProfiler_plots_tx/{name}_up_bp_sig_bar.pdf")
pp(file = bp_bar_up_filename)
try(print(bp_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
if (length(downp) > 0) {
mf_sig <- genotype_cp[[name]][[downp]][["go_data"]][["MF_enrich"]]
cc_sig <- genotype_cp[[name]][[downp]][["go_data"]][["CC_enrich"]]
bp_sig <- genotype_cp[[name]][[downp]][["go_data"]][["BP_enrich"]]
mf_plots_down <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_down_filename <- glue("12clusterProfiler_plots_tx/{name}_down_mf_sig_tree.pdf")
pp(file = mf_tree_down_filename)
try(print(mf_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_down_filename <- glue("12clusterProfiler_plots_tx/{name}_down_mf_sig_bar.pdf")
pp(file = mf_bar_down_filename)
try(print(mf_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_down <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_down_filename <- glue("12clusterProfiler_plots_tx/{name}_down_cc_sig_tree.pdf")
pp(file = cc_tree_down_filename)
try(print(cc_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_down_filename <- glue("12clusterProfiler_plots_tx/{name}_down_cc_sig_bar.pdf")
pp(file = cc_bar_down_filename)
try(print(cc_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_down_filename <- glue("12clusterProfiler_plots_tx/{name}_down_bp_sig_tree.pdf")
pp(file = bp_tree_down_filename)
try(print(bp_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, cateogories = go_categories)
bp_bar_down_filename <- glue("12clusterProfiler_plots_tx/{name}_down_bp_sig_bar.pdf")
pp(file = bp_bar_down_filename)
try(print(bp_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
}
}## Examining kh_p08_dlgn## There are 23 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in pp(file = mf_tree_up_filename): The directory: 12clusterProfiler_plots_tx does not exist, will attempt to create it.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining kh_p15_dlgn## There are 33 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining kh_p08_retina## There are 6 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining kh_p15_retina## There are 7 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining kh_p08_scn## There are 4 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining kh_p15_scn
## There are 4 significant up and down genes.## Warning: Something went wrong in all_cprofiler.A few specific plots of interest: Colenso asked to label a few genes for the knockout/het p08_retinas, p08_scn, and p08_dlgn: either the top-15 or all significant. I am pretty sure if I tell it 15 and there are not that many, it will just do the significant? Let us find out!
19.5.2.2 ko/het for p08 retinas
table_name <- "kh_p08_retina"
table_input <- genotype_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
interesting <- c("Opn4", "Gm9008", "Lrr1", "Cnbd1")
kh_p08_retina_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = colors[["het_retina"]], color_high = colors[["ko_retina"]],
label_column = "mgi_symbol", label = interesting, alpha = 1.0,
outline = outline, size = 4)## Warning in ggrepel::geom_text_repel(data = df_subset, nudge_x = nudge_x, : Ignoring unknown parameters: `outline`## Warning in pp(file = "13genotype_ma_volcano_tx/kh_p08_retina_volcano.pdf", : The directory: 13genotype_ma_volcano_tx does not exist, will
## attempt to create it.
kh_p08_retina_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_retina"]], color_high = colors[["het_retina"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", outline = outline,
label = interesting)
pp(file = "13genotype_ma_volcano_tx/kh_p08_retina_ma.pdf", width = 9, height = 9)
kh_p08_retina_ma[["plot"]]
plotted <- dev.off()
kh_p08_retina_ma[["plot"]]
19.5.2.3 ko/het p08 SCN
I am going to make an executive decision for this plot, 15 is too many and makes it crazy cluttered.
19.5.3 Repeat this with two sets of genes
table_name <- "kh_p08_scn"
table_input <- genotype_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
interesting_genes <- c("Fign", "Nrn1", "Dpysl2", "Actb", "Fgf9", "Otx2", "Sec23",
"Ncam1", "Map4", "Sec22b", "Nlgn3", "Marcks", "Cd47",
"Dpysl3", "Lin7c", "Cadm1", "Snx12", "Rhoa", "Inpp5f",
"Atg12", "Set", "Gsk3b", "Pdcd4", "Gabra2", "Tmco1", "Anapc16")
kh_p08_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq
_adjp",
label_column = "mgi_symbol", label = interesting_genes, size = 4, alpha = 1.0,
outline = outline, color_low = colors[["ko_scn"]], color_high = colors[["het_scn"]])## Error in `plot_volcano_condition_de()`:
## ! Column: deseq
## _adjp is not in the table.pp(file = "13genotype_ma_volcano_tx/kh_p08_scn_volcano.pdf", width = 9, height = 9)
kh_p08_scn_volcano[["plot"]]## Error:
## ! object 'kh_p08_scn_volcano' not found## Error:
## ! object 'kh_p08_scn_volcano' not found## why in the crap is it double-labelling!?
## My MA plotter isn't as smart as the volcano plotter, the genes are:
kh_p08_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_scn"]], color_high = colors[["het_scn"]],
outline = outline, p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes)
pp(file = "13genotype_ma_volcano_tx/kh_p08_scn_ma.pdf", width = 9, height = 9)
kh_p08_scn_ma[["plot"]]
plotted <- dev.off()
kh_p08_scn_ma[["plot"]]
19.5.3.1 Same plot but a different set of labeled genes
table_name <- "kh_p08_scn"
table_input <- genotype_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
interesting_genes <- c(
"Anapc16", "Gabra2", "Tmco1", "Sod2", "Fgf9", "Pdcd4", "Rhoa", "Gsk3b", "Foxp1",
"Ncam1", "Marcks", "Fign", "Dpysl3", "Inpp5f", "Cadm1", "Map4", "Ugcg", "Elovl4",
"Elavl1", "Cfl2", "Tnnt1", "Gnb1", "Impact", "Nrn1", "Nlgn3", "Actb", "Cd47",
"Sec22b", "Slc17a7", "Vglut1", "Actb", "B4galt5", "Foxp1", "Otx2", "Lin7c",
"Snx12", "Atg12", "Set")
kh_p08_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["ko_scn"]], color_high = colors[["het_scn"]],
outline = outline, label_column = "mgi_symbol", label = interesting_genes, size = 4, alpha = 1.0)## Warning in ggrepel::geom_text_repel(data = df_subset, nudge_x = nudge_x, : Ignoring unknown parameters: `outline`pp(file = "13genotype_ma_volcano_tx/kh_p08_scn_volcano_v2.pdf", width = 9, height = 9)
kh_p08_scn_volcano[["plot"]]
plotted <- dev.off()
kh_p08_scn_volcano[["plot"]]
## why in the crap is it double-labelling!?
## My MA plotter isn't as smart as the volcano plotter, the genes are:
kh_p08_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_scn"]], color_high = colors[["het_scn"]],
outline = outline, p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes)
pp(file = "13genotype_ma_volcano_tx/kh_p08_scn_ma_v2.pdf", width = 9, height = 9)
kh_p08_scn_ma[["plot"]]
plotted <- dev.off()
kh_p08_scn_ma[["plot"]]
19.5.3.2 ko/het p08 dLGN
table_name <- "kh_p08_dlgn"
table_input <- genotype_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
kh_p08_dlgn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["ko_dlgn"]], color_high = colors[["het_dlgn"]],
outline = outline, label_column = "mgi_symbol", label = 10, size = 4, alpha = 1.0)## Warning in ggrepel::geom_text_repel(data = df_subset, nudge_x = nudge_x, : Ignoring unknown parameters: `outline`pp(file = "13genotype_ma_volcano_tx/kh_p08_dlgn_volcano.pdf", width = 9, height = 9)
kh_p08_dlgn_volcano[["plot"]]
plotted <- dev.off()
kh_p08_dlgn_volcano[["plot"]]
## My MA plotter isn't as smart as the volcano plotter, the genes are:
kh_p08_dlgn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_dlgn"]], color_high = colors[["het_dlgn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = 10, outline = outline)
pp(file = "13genotype_ma_volcano_tx/kh_p08_dlgn_ma.pdf", width = 9, height = 9)
kh_p08_dlgn_ma[["plot"]]
plotted <- dev.off()
kh_p08_dlgn_ma[["plot"]]
19.5.3.3 ko/het for p15 retinas
When last I ran this manually, it did not double-label, hopefully that remains true in the container.
table_name <- "kh_p15_retina"
table_input <- genotype_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
interesting <- c("Opn4", "Gm9008", "Lrr1", "Cnbd1")
kh_p15_retina_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp", fill = "black",
color_low = colors[["ko_retina"]], color_high = colors[["het_retina"]],
label_column = "mgi_symbol", label = interesting, alpha = 1.0,
outline = outline, size = 4)## Warning in ggrepel::geom_text_repel(data = df_subset, nudge_x = nudge_x, : Ignoring unknown parameters: `outline`pp(file = "13genotype_ma_volcano_tx/kh_p15_retina_volcano.pdf", width = 9, height = 9)
kh_p15_retina_volcano[["plot"]]
plotted <- dev.off()
kh_p15_retina_volcano[["plot"]]
## why in the crap is it double-labelling!?
## My MA plotter isn't as smart as the volcano plotter, the genes are:
kh_p15_retina_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_retina"]], color_high = colors[["het_retina"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting, outline = outline)
pp(file = "13genotype_ma_volcano_tx/kh_p15_retina_ma.pdf", width = 9, height = 9)
kh_p15_retina_ma[["plot"]]
plotted <- dev.off()
kh_p15_retina_ma[["plot"]]
19.5.3.4 ko/het p15 SCN
19.5.4 Repeat this with two sets of genes
table_name <- "kh_p15_scn"
table_input <- genotype_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
interesting_genes <- c("Fign", "Nrn1", "Dpysl2", "Actb", "Fgf9", "Otx2", "Sec23",
"Ncam1", "Map4", "Sec22b", "Nlgn3", "Marcks", "Cd47",
"Dpysl3", "Lin7c", "Cadm1", "Snx12", "Rhoa", "Inpp5f",
"Atg12", "Set", "Gsk3b", "Pdcd4", "Gabra2", "Tmco1", "Anapc16")
kh_p15_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
label_column = "mgi_symbol", size = 4, alpha = 1.0,
outline = outline, color_low = colors[["ko_scn"]], color_high = colors[["het_scn"]])
pp(file = "13genotype_ma_volcano_tx/kh_p15_scn_volcano.pdf", width = 9, height = 9)
kh_p15_scn_volcano[["plot"]]
plotted <- dev.off()
kh_p15_scn_volcano[["plot"]]
kh_p15_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_scn"]], color_high = colors[["het_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "13genotype_ma_volcano_tx/kh_p15_scn_ma.pdf", width = 9, height = 9)
kh_p15_scn_ma[["plot"]]
plotted <- dev.off()
kh_p15_scn_ma[["plot"]]
Round 2 with a separate gene set.
table_name <- "kh_p15_scn"
table_input <- genotype_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
interesting_genes <- c(
"Anapc16", "Gabra2", "Tmco1", "Sod2", "Fgf9", "Pdcd4", "Rhoa", "Gsk3b", "Foxp1",
"Ncam1", "Marcks", "Fign", "Dpysl3", "Inpp5f", "Cadm1", "Map4", "Ugcg", "Elovl4",
"Elavl1", "Cfl2", "Tnnt1", "Gnb1", "Impact", "Nrn1", "Nlgn3", "Actb", "Cd47",
"Sec22b", "Slc17a7", "Vglut1", "Actb", "B4galt5", "Foxp1", "Otx2", "Lin7c",
"Snx12", "Atg12", "Set")
kh_p15_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["ko_scn"]], color_high = colors[["het_scn"]],
outline = outline, label_column = "mgi_symbol", label = interesting_genes, size = 4, alpha = 1.0)## Warning in ggrepel::geom_text_repel(data = df_subset, nudge_x = nudge_x, : Ignoring unknown parameters: `outline`pp(file = "13genotype_ma_volcano_tx/kh_p15_scn_volcano_v2.pdf", width = 9, height = 9)
kh_p15_scn_volcano[["plot"]]
plotted <- dev.off()
kh_p15_scn_volcano[["plot"]]
kh_p15_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_scn"]], color_high = colors[["het_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "13genotype_ma_volcano_tx/kh_p15_scn_ma_v2.pdf", width = 9, height = 9)
kh_p15_scn_ma[["plot"]]
plotted <- dev.off()
kh_p15_scn_ma[["plot"]]
19.5.4.1 ko/het p15 dLGN
table_name <- "kh_p15_dlgn"
table_input <- genotype_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
kh_p15_dlgn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["ko_dlgn"]], color_high = colors[["het_dlgn"]],
outline = outline, label_column = "mgi_symbol", label = 10, size = 4, alpha = 1.0)## Warning in ggrepel::geom_text_repel(data = df_subset, nudge_x = nudge_x, : Ignoring unknown parameters: `outline`pp(file = "13genotype_ma_volcano_tx/kh_p15_dlgn_volcano.pdf", width = 9, height = 9)
kh_p15_dlgn_volcano[["plot"]]
plotted <- dev.off()
kh_p15_dlgn_volcano[["plot"]]
## My MA plotter isn't as smart as the volcano plotter, the genes are:
kh_p15_dlgn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_dlgn"]], color_high = colors[["het_dlgn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = 10, outline = outline)
pp(file = "13genotype_ma_volcano_tx/kh_p15_dlgn_ma.pdf", width = 9, height = 9)
kh_p15_dlgn_ma[["plot"]]
plotted <- dev.off()
kh_p15_dlgn_ma[["plot"]]
A query from Rashmi:
“I was discussing with Dr. Speer about the dLGN data and we found mostly retinal genes in dLGN Het/KO or time point comparison. Please check if those are not retina samples.”
I checked the samples etc and everything looks ok to me; perhaps I can use the results to look at this question in another way:
I will therefore load the p08_het_dlgn/p08_ko_dlgn table and compare it to the p08_het_retina/p08_ko_retina table directly. I think that if these turn out to be identical, then the hypothesis suggested by this query is correct.
Note, in order to do this, I must use the full tables, not the post-inclusion tables because I cannot guarantee that they will have identical gene IDs.
retina_table <- genotype_tables_full[["data"]][["kh_p08_retina"]]
dlgn_table <- genotype_tables_full[["data"]][["kh_p08_dlgn"]]
retina_subset <- retina_table[, c("ensembl_gene_id", "deseq_logfc")]
colnames(retina_subset) <- c("ID", "retina_logfc")
dlgn_subset <- dlgn_table[, c("ensembl_gene_id", "deseq_logfc")]
colnames(dlgn_subset) <- c("ID", "dlgn_logfc")
merged <- merge(retina_subset, dlgn_subset, by = "ID")
rownames(merged) <- make.names(merged[["ID"]], unique = TRUE)
merged[["ID"]] <- NULL
plotted <- plot_linear_scatter(merged)## Warning in plot_linear_scatter(merged): Model type robust failed, falling back to a default lm.## Warning in pp(file = "images_tx/kh_p08_retina_vs_dlgn_deseq_logfc_values.png"): The directory: images_tx does not exist, will attempt to
## create it.## png
## 2
Rashmi asked if we could also do the p15 for this comparison:
retina_table <- genotype_tables_full[["data"]][["kh_p15_retina"]]
dlgn_table <- genotype_tables_full[["data"]][["kh_p15_dlgn"]]
retina_subset <- retina_table[, c("ensembl_gene_id", "deseq_logfc")]
colnames(retina_subset) <- c("ID", "retina_logfc")
dlgn_subset <- dlgn_table[, c("ensembl_gene_id", "deseq_logfc")]
colnames(dlgn_subset) <- c("ID", "dlgn_logfc")
merged <- merge(retina_subset, dlgn_subset, by = "ID")
rownames(merged) <- make.names(merged[["ID"]], unique = TRUE)
merged[["ID"]] <- NULL
plotted <- plot_linear_scatter(merged)## Warning in plot_linear_scatter(merged): Model type robust failed, falling back to a default lm.## png
## 2
19.5.4.2 Repeat with the strict filter
genotype_strict_tables <- list()
genotype_strict_sig <- list()
genotype_strict_gp <- list()
genotype_strict_cp <- list()
genotype_strict_en <- list()
for (k in seq_along(genotype_keepers)) {
name <- names(genotype_keepers)[k]
message("Examining ", name)
keeper <- genotype_keepers[name]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_strict_df <- genotype_inclusions_strict[[include_df_name]]
includes_strict <- genotype_inclusions_strict[[include_name]]
summary(rownames(genotype_sig_full[["deseq"]][["ups"]][[name]]) %in% includes_strict)
include_filename <- glue("14genotype_strict_contrasts_excel_tx/{name}_including_wt_{lfc_cutoff}_decreased_table-v{ver}.xlsx")
include_sig_filename <- glue("14genotype_strict_contrasts_excel_tx/{name}_including_wt_{lfc_cutoff}_decreased_sig-v{ver}.xlsx")
genotype_strict_tables[[name]] <- combine_de_tables(
genotype_de, extra_annot = include_strict_df,
keepers = keeper, label_column = label_column,
excel = include_filename, wanted_genes = includes_strict)
print(genotype_strict_tables[[name]])
genotype_strict_sig[[name]] <- extract_significant_genes(
genotype_strict_tables[[name]], according_to = "deseq",
excel = include_sig_filename)
print(genotype_strict_sig[[name]])
num_rows <- nrow(genotype_strict_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(genotype_strict_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
if (num_rows >= 10) {
message("Performing gprofiler/clusterProfiler.")
genotype_strict_gp[[name]] <- all_gprofiler(genotype_strict_sig[[name]], species = "mmusculus")
genotype_strict_cp[[name]] <- all_cprofiler(
genotype_strict_sig[[name]], genotype_strict_tables[[name]],
orgdb = "org.Mm.eg.db", go_level = go_level,
orgdb_from = orgdb_from, max_groupsize = max_groupsize, organism = "mouse")
#if (!is.null(get0("m2_gsc"))) {
# genotype_strict_en[[name]] <- all_enricher(genotype_strict_sig[[name]], gsc = m2_gsc,
# orgdb = "org.Mm.eg.db", from = "ENSEMBL", to = "SYMBOL")
#}
gp_written <- write_all_gp(genotype_strict_gp[[name]], prefix = "15", suffix = "strict")
cp_written <- write_all_cp(genotype_strict_cp[[name]], prefix = "15", suffix = "strict")
#en_written <- write_all_en(genotype_strict_en[[name]])
} else {
warning("There are less than 10 genes up and down in the ", name, " comparison.")
message("There are less than 10 genes up and down in the ", name, " comparison.")
}
}## Examining kh_p08_dlgn## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_dlgn_vs_p08_het_dlgn 1 0 1 0 1 0## Only kh_p08_dlgn_up has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p08_dlgn 1 0
## There are 1 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p08_dlgn comparison.## There are less than 10 genes up and down in the kh_p08_dlgn comparison.## Examining kh_p15_dlgn## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_dlgn_vs_p15_het_dlgn 0 0 0 0 0 0## Only has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p15_dlgn 0 0## There are 0 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p15_dlgn comparison.## There are less than 10 genes up and down in the kh_p15_dlgn comparison.## Examining kh_p08_retina## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_retina_vs_p08_het_retina 1 0 1 0 0 0## Only kh_p08_retina_up has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p08_retina 1 0
## There are 1 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p08_retina comparison.## There are less than 10 genes up and down in the kh_p08_retina comparison.## Examining kh_p15_retina## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 49.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_retina_vs_p15_het_retina 0 0 0 0 0 0## Only has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p15_retina 0 0## There are 0 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p15_retina comparison.## There are less than 10 genes up and down in the kh_p15_retina comparison.## Examining kh_p08_scn## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 1.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_scn_vs_p08_het_scn 0 0 0 0 0 0## Only has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p08_scn 0 0## There are 0 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p08_scn comparison.## There are less than 10 genes up and down in the kh_p08_scn comparison.## Examining kh_p15_scn## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 1.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_scn_vs_p15_het_scn 0 0 0 0 0 0## Only has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## kh_p15_scn 0 0## There are 0 significant up and down genes.## Warning: There are less than 10 genes up and down in the kh_p15_scn comparison.## There are less than 10 genes up and down in the kh_p15_scn comparison.20 Genotype Strict plots
for (k in seq_along(genotype_keepers)) {
name <- names(genotype_keepers)[k]
message("Examining ", name)
keeper <- genotype_keepers[name]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_strict_df <- genotype_inclusions_strict[[include_df_name]]
includes_strict <- genotype_inclusions_strict[[include_name]]
summary(rownames(genotype_sig_full[["deseq"]][["ups"]][[name]]) %in% includes_strict)
num_rows <- nrow(genotype_strict_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(genotype_strict_sig[[name]][["deseq"]][["downs"]][[name]])
nrow(genotype_strict_sig[[name]][["deseq"]][["ups"]][[name]])
nrow(genotype_strict_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
## #1 is up and #2 is down, avoiding typeos here.
num_objects <- length(genotype_strict_cp[[name]])
if (num_objects == 0) {
warning("Something went wrong in all_cprofiler.")
} else {
upp <- which(grepl(x = names(genotype_strict_cp[[name]]), pattern = "_up$"))
downp <- which(grepl(x = names(genotype_strict_cp[[name]]), pattern = "_down$"))
if (length(upp) > 0) {
mf_sig <- genotype_strict_cp[[name]][[upp]][["go_data"]][["MF_enrich"]]
cc_sig <- genotype_strict_cp[[name]][[upp]][["go_data"]][["CC_enrich"]]
bp_sig <- genotype_strict_cp[[name]][[upp]][["go_data"]][["BP_enrich"]]
mf_plots_up <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_up_filename <- glue("16clusterProfiler_plots_tx/{name}_up_mf_sig_tree.pdf")
pp(file = mf_tree_up_filename)
try(print(mf_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_up_filename <- glue("16clusterProfiler_plots_tx/{name}_up_mf_sig_bar.pdf")
pp(file = mf_bar_up_filename)
try(print(mf_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_up <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_up_filename <- glue("16clusterProfiler_plots_tx/{name}_up_cc_sig_tree.pdf")
pp(file = cc_tree_up_filename)
try(print(cc_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_up_filename <- glue("16clusterProfiler_plots_tx/{name}_up_cc_sig_bar.pdf")
pp(file = cc_bar_up_filename)
try(print(cc_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_up_filename <- glue("16clusterProfiler_plots_tx/{name}_up_bp_sig_tree.pdf")
pp(file = bp_tree_up_filename)
try(print(bp_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_up_filename <- glue("16clusterProfiler_plots_tx/{name}_up_bp_sig_bar.pdf")
pp(file = bp_bar_up_filename)
try(print(bp_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
if (length(downp) > 0) {
mf_sig <- genotype_strict_cp[[name]][[downp]][["go_data"]][["MF_enrich"]]
cc_sig <- genotype_strict_cp[[name]][[downp]][["go_data"]][["CC_enrich"]]
bp_sig <- genotype_strict_cp[[name]][[downp]][["go_data"]][["BP_enrich"]]
mf_plots_down <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_down_filename <- glue("16clusterProfiler_plots_tx/{name}_down_mf_sig_tree.pdf")
pp(file = mf_tree_down_filename)
try(print(mf_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_down_filename <- glue("16clusterProfiler_plots_tx/{name}_down_mf_sig_bar.pdf")
pp(file = mf_bar_down_filename)
try(print(mf_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_down <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_down_filename <- glue("16clusterProfiler_plots_tx/{name}_down_cc_sig_tree.pdf")
pp(file = cc_tree_down_filename)
try(print(cc_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_down_filename <- glue("16clusterProfiler_plots_tx/{name}_down_cc_sig_bar.pdf")
pp(file = cc_bar_down_filename)
try(print(cc_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_down_filename <- glue("16clusterProfiler_plots_tx/{name}_down_bp_sig_tree.pdf")
pp(file = bp_tree_down_filename)
try(print(bp_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, cateogories = go_categories)
bp_bar_down_filename <- glue("16clusterProfiler_plots_tx/{name}_down_bp_sig_bar.pdf")
pp(file = bp_bar_down_filename)
try(print(bp_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
}
}## Examining kh_p08_dlgn## There are 1 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining kh_p15_dlgn## There are 0 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining kh_p08_retina## There are 1 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining kh_p15_retina## There are 0 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining kh_p08_scn
## There are 0 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining kh_p15_scn
## There are 0 significant up and down genes.## Warning: Something went wrong in all_cprofiler.Given this stricter filter, I think no genes pass in the genome comparisons.
20.0.1 Location contrasts with genes removed/kept
We will now repeat the above tasks seeking location differences instead of genotype; essentially I copy/pasted the above with s/genotype/location/g.
location_tables_full <- combine_de_tables(
location_de, keepers = location_keepers, label_column = label_column,
excel = glue("17full_location_contrasts_tx/location_full_tables-v{ver}.xlsx"))## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_het_dlgn_vs_p08_het_retina 1138 1074 1324 1127 1027 976
## 2 p15_het_dlgn_vs_p15_het_retina 1001 1314 1149 1479 969 1110
## 3 p08_ko_dlgn_vs_p08_ko_retina 960 914 1087 996 824 994
## 4 p15_ko_dlgn_vs_p15_ko_retina 882 1107 1042 1187 787 888
## 5 p08_het_scn_vs_p08_het_retina 1410 1414 1685 1516 1312 1239
## 6 p15_het_scn_vs_p15_het_retina 1383 1460 1641 1643 1362 1371
## 7 p08_ko_scn_vs_p08_ko_retina 1181 1184 1391 1265 1117 1103
## 8 p15_ko_scn_vs_p15_ko_retina 939 1135 1156 1346 976 1018
## 9 p08_het_dlgn_vs_p08_het_scn 443 483 513 612 402 478
## 10 p15_het_dlgn_vs_p15_het_scn 1127 1422 1231 1619 1268 1421
## 11 p08_ko_dlgn_vs_p08_ko_scn 446 483 501 573 529 746
## 12 p15_ko_dlgn_vs_p15_ko_scn 1237 1303 1427 1448 1267 1329## Plot describing unique/shared genes in a differential expression table.
location_sig_full <- extract_significant_genes(
location_tables_full, according_to = "deseq",
excel = glue("17full_location_contrasts_tx/location_full_sig-v{ver}.xlsx"))
location_sig_full## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p08_het 1138 1074
## dr_p15_het 1001 1314
## dr_p08_ko 960 914
## dr_p15_ko 882 1107
## sr_p08_het 1410 1414
## sr_p15_het 1383 1460
## sr_p08_ko 1181 1184
## sr_p15_ko 939 1135
## ds_p08_het 443 483
## ds_p15_het 1127 1422
## ds_p08_ko 446 483
## ds_p15_ko 1237 1303
location_full_upset <- upsetr_sig(location_sig_full)
location_full_intersects <- write_upset_groups(
location_full_upset,
excel = "excel/17full_location_contrasts_tx/location_full_gene_groups.xlsx")location_tables <- list()
location_sig <- list()
location_gp <- list()
location_cp <- list()
for (k in seq_along(location_keepers)) {
name <- names(location_keepers)[k]
message("Examining ", name)
keeper <- location_keepers[name]
includes <- location_inclusions[[name]]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- location_inclusions[[include_df_name]]
includes <- location_inclusions[[include_name]]
summary(rownames(location_sig_full[["deseq"]][["ups"]][[name]]) %in% includes)
include_filename <- glue("18location_contrasts_tx/{name}_including_wt_{lfc_cutoff}_decreased_table-v{ver}.xlsx")
include_sig_filename <- glue("18location_contrasts_tx/{name}_including_wt_{lfc_cutoff}_decreased_sig-v{ver}.xlsx")
location_tables[[name]] <- combine_de_tables(
location_de, extra_annot = include_df,
keepers = keeper, label_column = label_column,
excel = include_filename, wanted_genes = includes)
print(location_tables[[name]])
location_sig[[name]] <- extract_significant_genes(
location_tables[[name]], according_to = "deseq",
excel = include_sig_filename)
print(location_sig[[name]])
num_rows <- nrow(location_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(location_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
if (num_rows > 10) {
location_gp[[name]] <- all_gprofiler(location_sig[[name]], species = "mmusculus")
location_cp[[name]] <- all_cprofiler(
location_sig[[name]], location_tables[[name]],
orgdb = "org.Mm.eg.db", go_level = go_level, orgdb_from = orgdb_from,
max_groupsize = max_groupsize, organism = "mouse")
cp_written <- write_all_cp(location_cp[[name]], prefix = "19")
gp_written <- write_all_gp(location_gp[[name]], prefix = "19")
}
}## Examining dr_p08_het## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_het_dlgn_vs_p08_het_retina 110 96 124 90 109 81## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p08_het 110 96
## There are 206 significant up and down genes.## There are 48 genes deemed significant out of 310.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_dr_p08_het_up.xlsx before writing the tables.## There are 44 genes deemed significant out of 310.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.27% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Examining dr_p15_het## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_dlgn_vs_p15_het_retina 253 55 276 55 216 53## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p15_het 253 55
## There are 308 significant up and down genes.## There are 91 genes deemed significant out of 495.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.22% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.22% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.22% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.22% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_dr_p15_het_up.xlsx before writing the tables.## There are 23 genes deemed significant out of 495.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.22% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.22% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.22% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.22% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Examining dr_p08_ko## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_dlgn_vs_p08_ko_retina 258 67 276 67 210 72## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p08_ko 258 67
## There are 325 significant up and down genes.## There are 122 genes deemed significant out of 440.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.6% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_dr_p08_ko_up.xlsx before writing the tables.## There are 28 genes deemed significant out of 440.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.6% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Examining dr_p15_ko## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_dlgn_vs_p15_ko_retina 334 96 359 100 281 93## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p15_ko 334 96
## There are 430 significant up and down genes.## There are 125 genes deemed significant out of 598.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.52% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : For some of the pathways the P-values were likely overestimated. For such pathways log2err is set to NA.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some pathways, in reality P-values are less than
## 1e-10. You can set the `eps` argument to zero for better estimation.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.52% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.52% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.52% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_dr_p15_ko_up.xlsx before writing the tables.## There are 38 genes deemed significant out of 598.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.52% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some pathways, in reality P-values are less than
## 1e-10. You can set the `eps` argument to zero for better estimation.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.59% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.52% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.52% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : For some pathways, in reality P-values are less than 1e-10. You can set the `eps` argument to zero for better estimation.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.52% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Examining sr_p08_het## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_het_scn_vs_p08_het_retina 80 111 90 105 85 100## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## sr_p08_het 80 111
## There are 191 significant up and down genes.## There are 31 genes deemed significant out of 224.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_sr_p08_het_up.xlsx before writing the tables.## There are 50 genes deemed significant out of 224.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.45% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Examining sr_p15_het## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_scn_vs_p15_het_retina 24 69 26 64 23 70## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## sr_p15_het 24 69
## There are 93 significant up and down genes.## There are 9 genes deemed significant out of 86.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Deleting the file excel/all_cp_sr_p15_het_up.xlsx before writing the tables.## There are 29 genes deemed significant out of 86.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Examining sr_p08_ko## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_scn_vs_p08_ko_retina 112 76 122 71 114 60## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## sr_p08_ko 112 76
## There are 188 significant up and down genes.## There are 51 genes deemed significant out of 219.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_sr_p08_ko_up.xlsx before writing the tables.## There are 32 genes deemed significant out of 219.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.46% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Examining sr_p15_ko## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_scn_vs_p15_ko_retina 11 20 10 20 11 16## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## sr_p15_ko 11 20
## There are 31 significant up and down genes.## There are 6 genes deemed significant out of 28.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Deleting the file excel/all_cp_sr_p15_ko_up.xlsx before writing the tables.## There are 6 genes deemed significant out of 28.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Examining ds_p08_het## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_het_dlgn_vs_p08_het_scn 39 6 39 7 32 7## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## ds_p08_het 39 6
## There are 45 significant up and down genes.## There are 23 genes deemed significant out of 103.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.91% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.94% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.91% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.91% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.91% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_ds_p08_het_up.xlsx before writing the tables.## There are 1 genes deemed significant out of 103.## There are 1 entries which match the search string: Mus musculus.## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.91% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : For some of the pathways the P-values were likely overestimated. For such pathways log2err is set to NA.## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 11677,268756,257633,230163,56752,72141## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.94% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 12865,74769,18477,67331,17717,16816## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.91% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## No gene sets have size between 5 and 2000 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.91% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (2.91% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Examining ds_p15_het## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_dlgn_vs_p15_het_scn 611 2 610 3 558 2## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## ds_p15_het 611 2
## There are 613 significant up and down genes.## There are 272 genes deemed significant out of 441.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 1 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.76% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.67% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_ds_p15_het_up.xlsx before writing the tables.## Error in sig_genes_namedf[[orgdb_to]] : subscript out of bounds## Examining ds_p08_ko## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_dlgn_vs_p08_ko_scn 115 3 112 3 87 6## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## ds_p08_ko 115 3
## There are 118 significant up and down genes.## There are 59 genes deemed significant out of 257.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 1 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_ds_p08_ko_up.xlsx before writing the tables.## There are 2 genes deemed significant out of 257.## There are 1 entries which match the search string: Mus musculus.## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 57874,235674,74205,75578,74559,71336## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 72900,59015,74325,67727,117147,100017## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## No gene sets have size between 5 and 2000 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.39% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Examining ds_p15_ko## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_dlgn_vs_p15_ko_scn 755 2 796 1 641 0## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## ds_p15_ko 755 2
## There are 757 significant up and down genes.## There are 321 genes deemed significant out of 577.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.03% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 6 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.14% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : All values in the stats vector are greater than zero and
## scoreType is "std", maybe you should switch to scoreType = "pos".## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.03% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.03% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (5.03% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_ds_p15_ko_up.xlsx before writing the tables.## Error in sig_genes_namedf[[orgdb_to]] : subscript out of boundsPrint out all the plots in a separate block.
for (k in seq_along(location_keepers)) {
name <- names(location_keepers)[k]
message("Examining ", name)
keeper <- location_keepers[name]
includes <- location_inclusions[[name]]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- location_inclusions[[include_df_name]]
includes <- location_inclusions[[include_name]]
summary(rownames(location_sig_full[["deseq"]][["ups"]][[name]]) %in% includes)
num_rows <- nrow(location_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(location_sig[[name]][["deseq"]][["downs"]][[name]])
nrow(location_sig[[name]][["deseq"]][["ups"]][[name]])
nrow(location_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
num_objects <- length(location_cp[[name]])
if (num_objects == 0) {
warning("Something went wrong in all_cprofiler.")
} else {
upp <- which(grepl(x = names(location_cp[[name]]), pattern = "_up$"))
downp <- which(grepl(x = names(location_cp[[name]]), pattern = "_down$"))
if (length(upp) > 0) {
mf_sig <- location_cp[[name]][[upp]][["go_data"]][["MF_enrich"]]
cc_sig <- location_cp[[name]][[upp]][["go_data"]][["CC_enrich"]]
bp_sig <- location_cp[[name]][[upp]][["go_data"]][["BP_enrich"]]
mf_plots_up <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_up_filename <- glue("19clusterProfiler_plots_tx/{name}_up_mf_sig_tree.pdf")
pp(file = mf_tree_up_filename)
try(print(mf_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_up_filename <- glue("19clusterProfiler_plots_tx/{name}_up_mf_sig_bar.pdf")
pp(file = mf_bar_up_filename)
try(print(mf_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_up <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_up_filename <- glue("19clusterProfiler_plots_tx/{name}_up_cc_sig_tree.pdf")
pp(file = cc_tree_up_filename)
try(print(cc_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_up_filename <- glue("19clusterProfiler_plots_tx/{name}_up_cc_sig_bar.pdf")
pp(file = cc_bar_up_filename)
try(print(cc_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_up_filename <- glue("19clusterProfiler_plots_tx/{name}_up_bp_sig_tree.pdf")
pp(file = bp_tree_up_filename)
try(print(bp_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_up_filename <- glue("19clusterProfiler_plots_tx/{name}_up_bp_sig_bar.pdf")
pp(file = bp_bar_up_filename)
try(print(bp_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
if (length(downp) > 0) {
mf_sig <- location_cp[[name]][[downp]][["go_data"]][["MF_enrich"]]
cc_sig <- location_cp[[name]][[downp]][["go_data"]][["CC_enrich"]]
bp_sig <- location_cp[[name]][[downp]][["go_data"]][["BP_enrich"]]
mf_plots_down <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_down_filename <- glue("19clusterProfiler_plots_tx/{name}_down_mf_sig_tree.pdf")
pp(file = mf_tree_down_filename)
try(print(mf_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_down_filename <- glue("19clusterProfiler_plots_tx/{name}_down_mf_sig_bar.pdf")
pp(file = mf_bar_down_filename)
try(print(mf_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_down <- plot_enrichresult(cc_sig, showCategory = 12)
cc_tree_down_filename <- glue("19clusterProfiler_plots_tx/{name}_down_cc_sig_tree.pdf")
pp(file = cc_tree_down_filename)
try(print(cc_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_down_filename <- glue("19clusterProfiler_plots_tx/{name}_down_cc_sig_bar.pdf")
pp(file = cc_bar_down_filename)
try(print(cc_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_down_filename <- glue("19clusterProfiler_plots_tx/{name}_down_bp_sig_tree.pdf")
pp(file = bp_tree_down_filename)
try(print(bp_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_down_filename <- glue("19clusterProfiler_plots_tx/{name}_down_bp_sig_bar.pdf")
pp(file = bp_bar_down_filename)
try(print(bp_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
}
}## Examining dr_p08_het## There are 206 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in pp(file = mf_tree_up_filename): The directory: 19clusterProfiler_plots_tx does not exist, will attempt to create it.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining dr_p15_het## There are 308 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining dr_p08_ko## There are 325 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in max(idx1, idx2): no non-missing arguments to max; returning -Inf## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in max(idx1, idx2): no non-missing arguments to max; returning -Inf## NULL## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining dr_p15_ko## There are 430 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining sr_p08_het## There are 191 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining sr_p15_het## There are 93 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining sr_p08_ko## There are 188 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining sr_p15_ko## There are 31 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining ds_p08_het## There are 45 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining ds_p15_het## There are 613 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining ds_p08_ko## There are 118 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining ds_p15_ko## There are 757 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?Colenso sent a specific query of interest, comparing SCN vs. Retinas at p08 in the heterozygotes including a set of genes of particular interest. Perhaps I can use some of these as markers to quality control my work in the future?
Here are the genes:
Opn4, Eomes, Trpc7, Oprm1, Nr4a3, Tbx20, Irx6, AW551984, Pcdh19, Adcyap1, Baiap3, Chl1, Grin3a, Igf1, Gria1, Grin2d, Grin3a, Chrna6, Chrna3, Htr5a, Htr2a, Htr7, Irx4, PlxnC1, Sema6d, Sema4f, Sema4a, Sema6b, Lrrc4b, Lrrc58, Lrrc3b, Wnt4, Wnt9b, Ctxn3, Tenm1, Gna14, Rgs4, Rgs6, Rgs5
table_input <- location_tables[["sr_p08_het"]]
table_name <- "sr_p08_het"
table <- table_input[["data"]][[table_name]]
interesting_genes <- c("Opn4", "Eomes", "Trpc7", "Oprm1", "Nr4a3", "Tbx20",
"Irx6", "AW551984", "Pcdh19", "Adcyap1r1", "Baiap3",
"Chl1", "Grin3a", "Igf1", "Gria1", "Grin2d", "Grin3a",
"Chrna6", "Chrna3", "Htr5a", "Htr2a", "Htr7", "Irx4",
"PlxnC1", "Sema6d", "Sema4f", "Sema4a", "Sema6b", "Lrrc4b",
"Lrrc58", "Lrrc3b", "Wnt4", "Wnt9b", "Ctxn3", "Tenm1", "Gna14",
"Rgs4", "Rgs6", "Rgs5", "Pou4f2", "Chrnb3", "Bcan")
sr_p08_het_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["het_retina"]], color_high = colors[["het_scn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4)
pp(file = "20location_ma_volcano_tx/sr_p08_het_volcano.pdf", width = 9, height = 9)## Warning in pp(file = "20location_ma_volcano_tx/sr_p08_het_volcano.pdf", : The directory: 20location_ma_volcano_tx does not exist, will
## attempt to create it.
sr_p08_het_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["het_retina"]], color_high = colors[["het_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "20location_ma_volcano_tx/sr_p08_het_ma.pdf", width = 9, height = 9)
sr_p08_het_ma[["plot"]]
plotted <- dev.off()
sr_p08_het_ma[["plot"]]
20.0.2 Also the ko
table_input <- location_tables[["sr_p08_ko"]]
table_name <- "sr_p08_ko"
table <- table_input[["data"]][[table_name]]
sr_p08_ko_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["ko_retina"]], color_high = colors[["ko_scn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4)
pp(file = "20location_ma_volcano_tx/sr_p08_ko_volcano.pdf", width = 9, height = 9)
sr_p08_ko_volcano[["plot"]]
plotted <- dev.off()
sr_p08_ko_volcano[["plot"]]
sr_p08_ko_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_retina"]], color_high = colors[["ko_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "20location_ma_volcano_tx/sr_p08_ko_ma.pdf", width = 9, height = 9)
sr_p08_ko_ma[["plot"]]
plotted <- dev.off()
sr_p08_ko_ma[["plot"]]
table_input <- location_tables[["sr_p15_het"]]
table_name <- "sr_p15_het"
table <- table_input[["data"]][[table_name]]
interesting_genes <- c("Opn4", "Eomes", "Trpc7", "Oprm1", "Nr4a3", "Tbx20",
"Irx6", "AW551984", "Pcdh19", "Adcyap1r1", "Baiap3",
"Chl1", "Grin3a", "Igf1", "Gria1", "Grin2d", "Grin3a",
"Chrna6", "Chrna3", "Htr5a", "Htr2a", "Htr7", "Irx4",
"PlxnC1", "Sema6d", "Sema4f", "Sema4a", "Sema6b", "Lrrc4b",
"Lrrc58", "Lrrc3b", "Wnt4", "Wnt9b", "Ctxn3", "Tenm1", "Gna14",
"Rgs4", "Rgs6", "Rgs5", "Pou4f2", "Chrnb3", "Bcan")
sr_p15_het_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["het_retina"]], color_high = colors[["het_scn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4)
pp(file = "20location_ma_volcano_tx/sr_p15_het_volcano.pdf", width = 9, height = 9)
sr_p15_het_volcano[["plot"]]
plotted <- dev.off()
sr_p15_het_volcano[["plot"]]
sr_p15_het_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["het_retina"]], color_high = colors[["het_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "20location_ma_volcano_tx/sr_p15_het_ma.pdf", width = 9, height = 9)
sr_p15_het_ma[["plot"]]
plotted <- dev.off()
sr_p15_het_ma[["plot"]]
20.0.3 Also the ko
table_input <- location_tables[["sr_p15_ko"]]
table_name <- "sr_p15_ko"
table <- table_input[["data"]][[table_name]]
sr_p15_ko_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["ko_retina"]], color_high = colors[["ko_scn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4, min.segment.length = 0, point.padding = 0.2)
pp(file = "20location_ma_volcano_tx/sr_p15_ko_volcano.pdf", width = 12, height = 12)
sr_p15_ko_volcano[["plot"]]
plotted <- dev.off()
sr_p15_ko_volcano[["plot"]]
sr_p15_ko_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_retina"]], color_high = colors[["ko_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "20location_ma_volcano_tx/sr_p15_ko_ma.pdf", width = 9, height = 9)
sr_p15_ko_ma[["plot"]]
plotted <- dev.off()
sr_p15_ko_ma[["plot"]]
20.0.3.1 Test a specific location query for duplicated IDs
Let us see if any Ensembl gene IDs and/or MGI IDs are shared in the worksheet location_sr_p08_ko_including_wt_0.1_decreased_sig up/down.
test_table_up <- location_sig[["sr_p08_ko"]][["deseq"]][["ups"]][[1]]
test_table_down <- location_sig[["sr_p08_ko"]][["deseq"]][["downs"]][[1]]
query <- list("up" = rownames(test_table_up),
"down" = rownames(test_table_down))
query_upset <- UpSetR::fromList(query)
UpSetR::upset(query_upset)## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?
query <- list("up" = test_table_up[["mgi_symbol"]],
"down" = test_table_down[["mgi_symbol"]])
query_upset <- UpSetR::fromList(query)
UpSetR::upset(query_upset)## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?
20.0.3.2 Repeat with the strict filter
location_strict_tables <- list()
location_strict_sig <- list()
location_strict_gp <- list()
location_strict_cp <- list()
for (k in seq_along(location_keepers)) {
name <- names(location_keepers)[k]
message("Examining ", name)
keeper <- location_keepers[name]
includes <- location_inclusions_strict[[name]]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- location_inclusions_strict[[include_df_name]]
includes <- location_inclusions_strict[[include_name]]
found_includes <- rownames(location_sig_full[["deseq"]][["ups"]][[name]]) %in% includes
summary(found_includes)
if (sum(found_includes) == 0) {
next
}
include_filename <- glue("21location_strict_contrasts_tx/{name}_including_wt_{lfc_cutoff}_decreased_table-v{ver}.xlsx")
include_sig_filename <- glue("21location_strict_contrasts_tx/{name}_including_wt_{lfc_cutoff}_decreased_sig-v{ver}.xlsx")
location_strict_tables[[name]] <- combine_de_tables(
location_de, extra_annot = include_df,
keepers = keeper, label_column = label_column,
excel = include_filename, wanted_genes = includes)
print(location_strict_tables[[name]])
location_strict_sig[[name]] <- extract_significant_genes(
location_strict_tables[[name]], according_to = "deseq",
excel = include_sig_filename)
print(location_strict_sig[[name]])
num_rows <- nrow(location_strict_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(location_strict_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
if (num_rows > 10) {
location_strict_gp[[name]] <- all_gprofiler(location_strict_sig[[name]], species = "mmusculus")
location_strict_cp[[name]] <- all_cprofiler(
location_strict_sig[[name]], location_strict_tables[[name]],
orgdb = "org.Mm.eg.db", go_level = go_level, orgdb_from = orgdb_from,
max_groupsize = max_groupsize, organism = "mouse")
cp_written <- write_all_cp(location_strict_cp[[name]], prefix = "22", suffix = "strict")
gp_written <- write_all_gp(location_strict_gp[[name]], prefix = "22", suffix = "strict")
}
}## Examining dr_p08_het## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 22.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_het_dlgn_vs_p08_het_retina 6 2 6 1 6 1## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p08_het 6 2
## There are 8 significant up and down genes.## Examining dr_p15_het## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_dlgn_vs_p15_het_retina 19 1 21 1 17 1## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p15_het 19 1
## There are 20 significant up and down genes.## There are 9 genes deemed significant out of 28.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## No gene sets have size between 5 and 2000 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Deleting the file excel/all_cp_dr_p15_het_up.xlsx before writing the tables.## There are 1 genes deemed significant out of 28.## There are 1 entries which match the search string: Mus musculus.## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 217698,170768,22236,66646,74419,72094## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Deleting the file excel/all_cp_dr_p15_het_down.xlsx before writing the tables.## Examining dr_p08_ko## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_dlgn_vs_p08_ko_retina 36 1 38 1 27 1## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p08_ko 36 1
## There are 37 significant up and down genes.## There are 17 genes deemed significant out of 34.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Deleting the file excel/all_cp_dr_p08_ko_up.xlsx before writing the tables.## There are 1 genes deemed significant out of 34.## There are 1 entries which match the search string: Mus musculus.## No gene sets have size between 5 and 500 ...## --> return NULL...## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 11522,18641,224530,230639,16591,171281## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 14079,11761,18719,19223,27377,100042295## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Deleting the file excel/all_cp_dr_p08_ko_down.xlsx before writing the tables.## Examining dr_p15_ko## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 16.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_dlgn_vs_p15_ko_retina 5 0 6 0 3 0## Only dr_p15_ko_up has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## dr_p15_ko 5 0
## There are 5 significant up and down genes.## Examining sr_p08_het## Examining sr_p15_het## Examining sr_p08_ko## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 3.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p08_ko_scn_vs_p08_ko_retina 2 0 2 0 2 0## Only sr_p08_ko_up has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## sr_p08_ko 2 0
## There are 2 significant up and down genes.## Examining sr_p15_ko## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 1.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_scn_vs_p15_ko_retina 1 0 1 0 1 0## Only sr_p15_ko_up has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## sr_p15_ko 1 0
## There are 1 significant up and down genes.## Examining ds_p08_het## Examining ds_p15_het## Examining ds_p08_ko## Examining ds_p15_koPrint out all the plots in a separate block.
for (k in seq_along(location_keepers)) {
name <- names(location_keepers)[k]
message("Examining ", name)
keeper <- location_keepers[name]
includes <- location_inclusions_strict[[name]]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- location_inclusions_strict[[include_df_name]]
includes <- location_inclusions_strict[[include_name]]
summary(rownames(location_sig_full[["deseq"]][["ups"]][[name]]) %in% includes)
num_rows <- nrow(location_strict_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(location_strict_sig[[name]][["deseq"]][["downs"]][[name]])
nrow(location_strict_sig[[name]][["deseq"]][["ups"]][[name]])
nrow(location_strict_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
num_objects <- length(location_strict_cp[[name]])
if (num_objects == 0) {
warning("Something went wrong in all_cprofiler.")
} else {
upp <- which(grepl(x = names(location_strict_cp[[name]]), pattern = "_up$"))
downp <- which(grepl(x = names(location_strict_cp[[name]]), pattern = "_down$"))
if (length(upp) > 0) {
mf_sig <- location_strict_cp[[name]][[upp]][["go_data"]][["MF_enrich"]]
cc_sig <- location_strict_cp[[name]][[upp]][["go_data"]][["CC_enrich"]]
bp_sig <- location_strict_cp[[name]][[upp]][["go_data"]][["BP_enrich"]]
mf_plots_up <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_up_filename <- glue("23clusterProfiler_plots_tx/{name}_up_mf_sig_tree.pdf")
pp(file = mf_tree_up_filename)
try(print(mf_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_up_filename <- glue("23clusterProfiler_plots_tx/{name}_up_mf_sig_bar.pdf")
pp(file = mf_bar_up_filename)
try(print(mf_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_up <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_up_filename <- glue("23clusterProfiler_plots_tx/{name}_up_cc_sig_tree.pdf")
pp(file = cc_tree_up_filename)
try(print(cc_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_up_filename <- glue("23clusterProfiler_plots_tx/{name}_up_cc_sig_bar.pdf")
pp(file = cc_bar_up_filename)
try(print(cc_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_up_filename <- glue("23clusterProfiler_plots_tx/{name}_up_bp_sig_tree.pdf")
pp(file = bp_tree_up_filename)
try(print(bp_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_up_filename <- glue("23clusterProfiler_plots_tx/{name}_up_bp_sig_bar.pdf")
pp(file = bp_bar_up_filename)
try(print(bp_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
if (length(downp) > 0) {
mf_sig <- location_strict_cp[[name]][[downp]][["go_data"]][["MF_enrich"]]
cc_sig <- location_strict_cp[[name]][[downp]][["go_data"]][["CC_enrich"]]
bp_sig <- location_strict_cp[[name]][[downp]][["go_data"]][["BP_enrich"]]
mf_plots_down <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_down_filename <- glue("23clusterProfiler_plots_tx/{name}_down_mf_sig_tree.pdf")
pp(file = mf_tree_down_filename)
try(print(mf_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_down_filename <- glue("23clusterProfiler_plots_tx/{name}_down_mf_sig_bar.pdf")
pp(file = mf_bar_down_filename)
try(print(mf_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_down <- plot_enrichresult(cc_sig, showCategory = 12)
cc_tree_down_filename <- glue("23clusterProfiler_plots_tx/{name}_down_cc_sig_tree.pdf")
pp(file = cc_tree_down_filename)
try(print(cc_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_down_filename <- glue("23clusterProfiler_plots_tx/{name}_down_cc_sig_bar.pdf")
pp(file = cc_bar_down_filename)
try(print(cc_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_down_filename <- glue("23clusterProfiler_plots_tx/{name}_down_bp_sig_tree.pdf")
pp(file = bp_tree_down_filename)
try(print(bp_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_down_filename <- glue("23clusterProfiler_plots_tx/{name}_down_bp_sig_bar.pdf")
pp(file = bp_bar_down_filename)
try(print(bp_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
}
}## Examining dr_p08_het## There are 8 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining dr_p15_het## There are 20 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in pp(file = mf_tree_up_filename): The directory: 23clusterProfiler_plots_tx does not exist, will attempt to create it.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining dr_p08_ko## There are 37 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining dr_p15_ko## There are 5 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining sr_p08_het## There are significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining sr_p15_het
## There are significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining sr_p08_ko## There are 2 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining sr_p15_ko## There are 1 significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining ds_p08_het## There are significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining ds_p15_het
## There are significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining ds_p08_ko
## There are significant up and down genes.## Warning: Something went wrong in all_cprofiler.## Examining ds_p15_ko
## There are significant up and down genes.## Warning: Something went wrong in all_cprofiler.Colenso sent a specific query of interest, comparing SCN vs. Retinas at p08 in the heterozygotes including a set of genes of particular interest. Perhaps I can use some of these as markers to quality control my work in the future?
Here are the genes:
Opn4, Eomes, Trpc7, Oprm1, Nr4a3, Tbx20, Irx6, AW551984, Pcdh19, Adcyap1, Baiap3, Chl1, Grin3a, Igf1, Gria1, Grin2d, Grin3a, Chrna6, Chrna3, Htr5a, Htr2a, Htr7, Irx4, PlxnC1, Sema6d, Sema4f, Sema4a, Sema6b, Lrrc4b, Lrrc58, Lrrc3b, Wnt4, Wnt9b, Ctxn3, Tenm1, Gna14, Rgs4, Rgs6, Rgs5
table_input <- location_strict_tables[["sr_p08_het"]]
table_name <- "sr_p08_het"
table <- table_input[["data"]][[table_name]]
interesting_genes <- c("Opn4", "Eomes", "Trpc7", "Oprm1", "Nr4a3", "Tbx20",
"Irx6", "AW551984", "Pcdh19", "Adcyap1r1", "Baiap3",
"Chl1", "Grin3a", "Igf1", "Gria1", "Grin2d", "Grin3a",
"Chrna6", "Chrna3", "Htr5a", "Htr2a", "Htr7", "Irx4",
"PlxnC1", "Sema6d", "Sema4f", "Sema4a", "Sema6b", "Lrrc4b",
"Lrrc58", "Lrrc3b", "Wnt4", "Wnt9b", "Ctxn3", "Tenm1", "Gna14",
"Rgs4", "Rgs6", "Rgs5", "Pou4f2", "Chrnb3", "Bcan")
sr_p08_het_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["het_retina"]], color_high = colors[["het_scn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4)## Error in `plot_volcano_condition_de()`:
## ! Column: deseq_logfc is not in the table.## Warning in pp(file = "24location_ma_volcano_strict_tx/sr_p08_het_volcano.pdf", : The directory: 24location_ma_volcano_strict_tx does not
## exist, will attempt to create it.
sr_p08_het_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["het_retina"]], color_high = colors[["het_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)## The column: mgi_symbol is not in the data, using rownames.## Warning in max(newdf[["avg"]]): no non-missing arguments to max; returning -Inf## Warning in plot_ma_condition_de(table, table_name, expr_col = "deseq_basemean", : NAs introduced by coercion## Error in `[[<-.data.frame`:
## ! replacement has 1 row, data has 0pp(file = "24location_ma_volcano_strict_tx/sr_p08_het_ma.pdf", width = 9, height = 9)
sr_p08_het_ma[["plot"]]
plotted <- dev.off()
sr_p08_het_ma[["plot"]]
20.0.4 Also the ko
table_input <- location_strict_tables[["sr_p08_ko"]]
table_name <- "sr_p08_ko"
table <- table_input[["data"]][[table_name]]
sr_p08_ko_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["ko_retina"]], color_high = colors[["ko_scn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4)
pp(file = "24location_ma_volcano_strict_tx/sr_p08_ko_volcano.pdf", width = 9, height = 9)
sr_p08_ko_volcano[["plot"]]
plotted <- dev.off()
sr_p08_ko_volcano[["plot"]]
sr_p08_ko_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_retina"]], color_high = colors[["ko_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "24location_ma_volcano_strict_tx/sr_p08_ko_ma.pdf", width = 9, height = 9)
sr_p08_ko_ma[["plot"]]
plotted <- dev.off()
sr_p08_ko_ma[["plot"]]
20.0.5 Also the ko
table_input <- location_tables[["sr_p15_ko"]]
table_name <- "sr_p15_ko"
table <- table_input[["data"]][[table_name]]
sr_p15_ko_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = colors[["ko_retina"]], color_high = colors[["ko_scn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4, min.segment.length = 0, point.padding = 0.2)
pp(file = "24location_ma_volcano_strict_tx/sr_p15_ko_volcano.pdf", width = 12, height = 12)
sr_p15_ko_volcano[["plot"]]
plotted <- dev.off()
sr_p15_ko_volcano[["plot"]]
sr_p15_ko_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = colors[["ko_retina"]], color_high = colors[["ko_scn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "24location_ma_volcano_strict_tx/sr_p15_ko_ma.pdf", width = 9, height = 9)
sr_p15_ko_ma[["plot"]]
plotted <- dev.off()
sr_p15_ko_ma[["plot"]]
20.0.6 And time
time_tables_full <- combine_de_tables(
time_de, keepers = time_keepers,
label_column = label_column,
excel = glue("25full_contrasts_time_tx/full_tables-v{ver}.xlsx"))## Looking for subscript invalid names, end of extract_keepers.time_sig_full <- extract_significant_genes(
time_tables_full, according_to = "deseq",
excel = glue("25full_contrasts_time_tx/full_sig-v{ver}.xlsx"))time_tables <- list()
time_sig <- list()
time_gp <- list()
time_cp <- list()
for (k in seq_along(time_keepers)) {
name <- names(time_keepers)[k]
message("Examining ", name)
keeper <- time_keepers[name]
includes <- time_inclusions[[name]]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- time_inclusions[[include_df_name]]
includes <- time_inclusions[[include_name]]
summary(rownames(time_sig_full[["deseq"]][["ups"]][[name]]) %in% includes)
include_filename <- glue("26time_contrasts_tx/{name}_including_wt_{lfc_cutoff}_decreased_table-v{ver}.xlsx")
include_sig_filename <- glue("26time_contrasts_tx/{name}_including_wt_{lfc_cutoff}_decreased_sig-v{ver}.xlsx")
time_tables[[name]] <- combine_de_tables(
time_de, extra_annot = include_df,
keepers = keeper, label_column = label_column,
excel = include_filename, wanted_genes = includes)
print(time_tables[[name]])
time_sig[[name]] <- extract_significant_genes(
time_tables[[name]], according_to = "deseq",
excel = include_sig_filename)
print(time_sig[[name]])
num_rows <- nrow(time_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(time_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
if (num_rows > 10) {
time_gp[[name]] <- all_gprofiler(time_sig[[name]], species = "mmusculus")
gp_written <- write_all_gp(time_gp[[name]])
time_cp[[name]] <- all_cprofiler(
time_sig[[name]], time_tables[[name]], orgdb = "org.Mm.eg.db", organism = "mouse",
orgdb_from = orgdb_from, go_level = go_level, max_groupsize = max_groupsize)
cp_written <- write_all_cp(time_cp[[name]], prefix = "27")
gp_written <- write_all_gp(time_gp[[name]], prefix = "27")
}
}## Examining t_het_dlgn## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_dlgn_vs_p08_het_dlgn 281 9 255 9 197 8## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_het_dlgn 281 9
## There are 290 significant up and down genes.## There are 113 genes deemed significant out of 461.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 4 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.3% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : For some of the pathways the P-values were likely overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_t_het_dlgn_up.xlsx before writing the tables.## There are 4 genes deemed significant out of 461.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 4 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.3% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.
## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : For some of the pathways the P-values were likely overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.25% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_t_het_dlgn_down.xlsx before writing the tables.## Examining t_ko_dlgn## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_dlgn_vs_p08_ko_dlgn 357 89 390 87 338 73## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_ko_dlgn 357 89
## There are 446 significant up and down genes.## There are 158 genes deemed significant out of 697.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 25 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.9% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_t_ko_dlgn_up.xlsx before writing the tables.## There are 49 genes deemed significant out of 697.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 23 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.9% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (1.87% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_t_ko_dlgn_down.xlsx before writing the tables.## Examining t_het_retina## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_retina_vs_p08_het_retina 30 103 30 116 24 102## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_het_retina 30 103
## There are 133 significant up and down genes.## There are 17 genes deemed significant out of 248.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## Deleting the file excel/all_cp_t_het_retina_up.xlsx before writing the tables.## There are 38 genes deemed significant out of 248.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## Deleting the file excel/all_cp_t_het_retina_down.xlsx before writing the tables.## Examining t_ko_retina## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_retina_vs_p08_ko_retina 12 136 11 143 9 134## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_ko_retina 12 136
## There are 148 significant up and down genes.## There are 6 genes deemed significant out of 227.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_t_ko_retina_up.xlsx before writing the tables.## There are 45 genes deemed significant out of 227.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (0.88% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_t_ko_retina_down.xlsx before writing the tables.## Examining t_het_scn## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 17.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_scn_vs_p08_het_scn 0 1 0 1 0 1## Only t_het_scn_down has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_het_scn 0 1
## There are 1 significant up and down genes.## Examining t_ko_scn## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 8.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_scn_vs_p08_ko_scn 0 0 0 0 0 0## Only has information, cannot create an UpSet.## Plot describing unique/shared genes in a differential expression table.## NULL## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_ko_scn 0 0## There are 0 significant up and down genes.Send the plots separately.
for (k in seq_along(time_keepers)) {
name <- names(time_keepers)[k]
message("Examining ", name)
keeper <- time_keepers[name]
includes <- time_inclusions[[name]]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- time_inclusions[[include_df_name]]
includes <- time_inclusions[[include_name]]
num_rows <- nrow(time_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(time_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
num_objects <- length(time_cp[[name]])
if (num_objects == 0) {
warning("Something failed in all_cprofiler.")
} else {
upp <- which(grepl(x = names(time_cp[[name]]), pattern = "_up$"))
downp <- which(grepl(x = names(time_cp[[name]]), pattern = "_down$"))
if (length(upp) > 0) {
mf_sig <- time_cp[[name]][[upp]][["go_data"]][["MF_enrich"]]
cc_sig <- time_cp[[name]][[upp]][["go_data"]][["CC_enrich"]]
bp_sig <- time_cp[[name]][[upp]][["go_data"]][["BP_enrich"]]
mf_plots_up <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_up_filename <- glue("28clusterProfiler_plots_tx/{name}_up_mf_sig_tree.pdf")
pp(file = mf_tree_up_filename)
try(print(mf_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_up_filename <- glue("28clusterProfiler_plots_tx/{name}_up_mf_sig_bar.pdf")
pp(file = mf_bar_up_filename)
try(print(mf_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_up <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_up_filename <- glue("28clusterProfiler_plots_tx/{name}_up_cc_sig_tree.pdf")
pp(file = cc_tree_up_filename)
try(print(cc_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_up_filename <- glue("28clusterProfiler_plots_tx/{name}_up_cc_sig_bar.pdf")
pp(file = cc_bar_up_filename)
try(print(cc_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_up_filename <- glue("28clusterProfiler_plots_tx/{name}_up_bp_sig_tree.pdf")
pp(file = bp_tree_up_filename)
try(print(bp_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_up_filename <- glue("28clusterProfiler_plots_tx/{name}_up_bp_sig_bar.pdf")
pp(file = bp_bar_up_filename)
try(print(bp_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
if (length(downp) > 0) {
mf_sig <- time_cp[[name]][[downp]][["go_data"]][["MF_enrich"]]
cc_sig <- time_cp[[name]][[downp]][["go_data"]][["CC_enrich"]]
bp_sig <- time_cp[[name]][[downp]][["go_data"]][["BP_enrich"]]
mf_plots_down <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_down_filename <- glue("28clusterProfiler_plots_tx/{name}_down_mf_sig_tree.pdf")
pp(file = mf_tree_down_filename)
try(print(mf_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_down_filename <- glue("28clusterProfiler_plots_tx/{name}_down_mf_sig_bar.pdf")
pp(file = mf_bar_down_filename)
try(print(mf_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_down <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_down_filename <- glue("28clusterProfiler_plots_tx/{name}_down_cc_sig_tree.pdf")
pp(file = cc_tree_down_filename)
try(print(cc_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_down_filename <- glue("28clusterProfiler_plots_tx/{name}_down_cc_sig_bar.pdf")
pp(file = cc_bar_down_filename)
try(print(cc_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_down_filename <- glue("28clusterProfiler_plots_tx/{name}_down_bp_sig_tree.pdf")
pp(file = bp_tree_down_filename)
try(print(bp_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_down_filename <- glue("28clusterProfiler_plots_tx/{name}_down_bp_sig_bar.pdf")
pp(file = bp_bar_down_filename)
try(print(bp_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
}
}## Examining t_het_dlgn## There are 290 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in pp(file = mf_tree_up_filename): The directory: 28clusterProfiler_plots_tx does not exist, will attempt to create it.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining t_ko_dlgn## There are 446 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining t_het_retina## There are 133 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining t_ko_retina## There are 148 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining t_het_scn## There are 1 significant up and down genes.## Warning: Something failed in all_cprofiler.## Examining t_ko_scn## There are 0 significant up and down genes.## Warning: Something failed in all_cprofiler.20.1 Volcano plots by time
20.1.1 t_het_dlgn
table_name <- "t_het_dlgn"
table_input <- time_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
t_het_dlgn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4, min.segment.length = 0, point.padding = 0.2)
pp(file = "29time_ma_volcano_tx/t_het_dlgn_volcano.pdf", width = 12, height = 12)## Warning in pp(file = "29time_ma_volcano_tx/t_het_dlgn_volcano.pdf", width = 12, : The directory: 29time_ma_volcano_tx does not exist, will
## attempt to create it.
t_het_dlgn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "29time_ma_volcano_tx/t_het_dlgn_ma.pdf", width = 9, height = 9)
t_het_dlgn_ma[["plot"]]
plotted <- dev.off()
t_het_dlgn_ma[["plot"]]
20.1.2 t_ko_dlgn
table_name <- "t_ko_dlgn"
table_input <- time_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
t_ko_dlgn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4, min.segment.length = 0, point.padding = 0.2)
pp(file = "29time_ma_volcano_tx/t_ko_dlgn_volcano.pdf", width = 12, height = 12)
t_ko_dlgn_volcano[["plot"]]
plotted <- dev.off()
t_ko_dlgn_volcano[["plot"]]
t_ko_dlgn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "29time_ma_volcano_tx/t_ko_dlgn_ma.pdf", width = 9, height = 9)
t_ko_dlgn_ma[["plot"]]
plotted <- dev.off()
t_ko_dlgn_ma[["plot"]]
20.1.3 t_het_retina
table_name <- "t_het_retina"
table_input <- time_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
t_het_retina_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = time_colors[["p08_het_retina"]], color_high = time_colors[["p15_het_retina"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4, min.segment.length = 0, point.padding = 0.2)
pp(file = "29time_ma_volcano_tx/t_het_retina_volcano.pdf", width = 12, height = 12)
t_het_retina_volcano[["plot"]]
plotted <- dev.off()
t_het_retina_volcano[["plot"]]
t_het_retina_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = time_colors[["p08_het_retina"]], color_high = time_colors[["p15_het_retina"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "29time_ma_volcano_tx/t_het_retina_ma.pdf", width = 9, height = 9)
t_het_retina_ma[["plot"]]
plotted <- dev.off()
t_het_retina_ma[["plot"]]
20.1.4 t_ko_retina
table_name <- "t_ko_retina"
table_input <- time_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
t_ko_retina_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4, min.segment.length = 0, point.padding = 0.2)
pp(file = "29time_ma_volcano_tx/t_ko_retina_volcano.pdf", width = 12, height = 12)
t_ko_retina_volcano[["plot"]]
plotted <- dev.off()
t_ko_retina_volcano[["plot"]]
t_ko_retina_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "29time_ma_volcano_tx/t_ko_retina_ma.pdf", width = 9, height = 9)
t_ko_retina_ma[["plot"]]
plotted <- dev.off()
t_ko_retina_ma[["plot"]]
20.2 t_het_scn
table_name <- "t_het_scn"
table_input <- time_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
t_het_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4, min.segment.length = 0, point.padding = 0.2)
pp(file = "29time_ma_volcano_tx/t_het_scn_volcano.pdf", width = 12, height = 12)
t_het_scn_volcano[["plot"]]
plotted <- dev.off()
t_het_scn_volcano[["plot"]]
t_het_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "29time_ma_volcano_tx/t_het_scn_ma.pdf", width = 9, height = 9)
t_het_scn_ma[["plot"]]
plotted <- dev.off()
t_het_scn_ma[["plot"]]
20.3 t_ko_scn
table_name <- "t_ko_scn"
table_input <- time_tables[[table_name]]
table <- table_input[["data"]][[table_name]]
t_ko_scn_volcano <- plot_volcano_condition_de(
table, table_name, fc_col = "deseq_logfc", p_col = "deseq_adjp",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
label_column = "mgi_symbol", label = interesting_genes, alpha = 1.0,
size = 4, min.segment.length = 0, point.padding = 0.2)
pp(file = "29time_ma_volcano_tx/t_ko_scn_volcano.pdf", width = 12, height = 12)
t_ko_scn_volcano[["plot"]]
plotted <- dev.off()
t_ko_scn_volcano[["plot"]]
t_ko_scn_ma <- plot_ma_condition_de(
table, table_name, expr_col = "deseq_basemean", fc_col = "deseq_logfc",
color_low = time_colors[["p08_het_dlgn"]], color_high = time_colors[["p15_het_dlgn"]],
p_col = "deseq_adjp", label_column = "mgi_symbol", label = interesting_genes, outline = outline)
pp(file = "29time_ma_volcano_tx/t_ko_scn_ma.pdf", width = 9, height = 9)
t_ko_scn_ma[["plot"]]
plotted <- dev.off()
t_ko_scn_ma[["plot"]]
20.3.0.1 Repeat with the strict filter
time_strict_tables <- list()
time_strict_sig <- list()
time_strict_gp <- list()
time_strict_cp <- list()
time_strict_en <- list()
for (k in seq_along(time_keepers)) {
name <- names(time_keepers)[k]
message("Examining ", name)
keeper <- time_keepers[name]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- time_inclusions_strict[[include_df_name]]
includes <- time_inclusions_strict[[include_name]]
found_includes <- rownames(time_sig_full[["deseq"]][["ups"]][[name]]) %in% includes
summary(found_includes)
if (sum(found_includes) == 0) {
next
}
include_filename <- glue("30time_strict_contrasts_excel_tx/{name}_including_wt_{lfc_cutoff}_decreased_table-v{ver}.xlsx")
include_sig_filename <- glue("30time_strict_contrasts_excel_tx/{name}_including_wt_{lfc_cutoff}_decreased_sig-v{ver}.xlsx")
time_strict_tables[[name]] <- combine_de_tables(
time_de, extra_annot = include_df,
keepers = keeper, label_column = label_column,
excel = include_filename, wanted_genes = includes)
print(time_strict_tables[[name]])
time_strict_sig[[name]] <- extract_significant_genes(
time_strict_tables[[name]], according_to = "deseq",
excel = include_sig_filename)
print(time_strict_sig[[name]])
num_rows <- nrow(time_strict_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(time_strict_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
if (num_rows >= 10) {
message("Performing gprofiler/clusterProfiler.")
time_strict_gp[[name]] <- all_gprofiler(time_strict_sig[[name]], species = "mmusculus")
time_strict_cp[[name]] <- all_cprofiler(
time_strict_sig[[name]], time_strict_tables[[name]],
orgdb = "org.Mm.eg.db", go_level = go_level, orgdb_from = orgdb_from,
max_groupsize = max_groupsize, organism = "mouse")
#if (!is.null(get0("m2_gsc"))) {
# time_strict_en[[name]] <- all_enricher(time_strict_sig[[name]], gsc = m2_gsc,
# orgdb = "org.Mm.eg.db", from = "ENSEMBL", to = "SYMBOL")
#}
gp_written <- write_all_gp(time_strict_gp[[name]], prefix = "31", suffix = "strict")
cp_written <- write_all_cp(time_strict_cp[[name]], prefix = "31", suffix = "strict")
#en_written <- write_all_en(time_strict_en[[name]])
} else {
warning("There are less than 10 genes up and down in the ", name, " comparison.")
message("There are less than 10 genes up and down in the ", name, " comparison.")
}
}## Examining t_het_dlgn## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_dlgn_vs_p08_het_dlgn 17 1 16 1 9 2## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_het_dlgn 17 1
## There are 18 significant up and down genes.## Performing gprofiler/clusterProfiler.## There are 15 genes deemed significant out of 78.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.85% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 2 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.9% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.85% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.85% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.85% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_t_het_dlgn_up.xlsx before writing the tables.## There are 1 genes deemed significant out of 78.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.85% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : There were 3 pathways for which P-values were not
## calculated properly due to unbalanced (positive and negative) gene-level statistic values. For such pathways pval, padj, NES, log2err are set
## to NA. You can try to increase the value of the argument nPermSimple (for example set it nPermSimple = 10000)## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 67834,75731,12894,11364,226265,16591## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.9% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.85% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## No gene sets have size between 5 and 2000 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.85% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 81689,6790,23560,928,81787,51639## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in preparePathwaysAndStats(pathways, stats, minSize, maxSize, gseaParam, : There are ties in the preranked stats (3.85% of the list).
## The order of those tied genes will be arbitrary, which may produce unexpected results.## leading edge analysis...## done...## Deleting the file excel/all_cp_t_het_dlgn_down.xlsx before writing the tables.## dimensionality reduction failed with provided drfun; falling back to stats::cmdscale.## Examining t_ko_dlgn## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_dlgn_vs_p08_ko_dlgn 19 3 20 3 16 3## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_ko_dlgn 19 3
## There are 22 significant up and down genes.## Performing gprofiler/clusterProfiler.## There are 15 genes deemed significant out of 137.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## Deleting the file excel/all_cp_t_ko_dlgn_up.xlsx before writing the tables.## There are 3 genes deemed significant out of 137.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## Warning in fgseaMultilevel(pathways = pathways, stats = stats, minSize = minSize, : For some of the pathways the P-values were likely
## overestimated. For such pathways log2err is set to NA.## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## Deleting the file excel/all_cp_t_ko_dlgn_down.xlsx before writing the tables.## Examining t_het_retina## Looking for subscript invalid names, end of extract_keepers.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_het_retina_vs_p08_het_retina 10 11 10 12 8 12## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_het_retina 10 11
## There are 21 significant up and down genes.## Performing gprofiler/clusterProfiler.## There are 4 genes deemed significant out of 57.## There are 1 entries which match the search string: Mus musculus.## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Deleting the file excel/all_cp_t_het_retina_up.xlsx before writing the tables.## There are 2 genes deemed significant out of 57.## There are 1 entries which match the search string: Mus musculus.## No gene sets have size between 5 and 500 ...## --> return NULL...## No gene sets have size between 5 and 500 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## --> No gene can be mapped....## --> Expected input gene ID: 11532,14120,69080,71336,230639,70757## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 76898,13844,19088,16561,56356,320685## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## No gene sets have size between 5 and 2000 ...## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## leading edge analysis...## done...## --> No gene can be mapped....## --> Expected input gene ID: 3006,23256,64689,91445,440686,9325## --> return NULL...## using 'fgsea' for GSEA analysis, please cite Korotkevich et al (2019).## preparing geneSet collections...## GSEA analysis...## no term enriched under specific pvalueCutoff...## Deleting the file excel/all_cp_t_het_retina_down.xlsx before writing the tables.## Examining t_ko_retina## Looking for subscript invalid names, end of extract_keepers.## The result table is too small for meaningful comparisons.## The first table has only: 47.## A set of combined differential expression results.## table deseq_sigup deseq_sigdown edger_sigup edger_sigdown limma_sigup limma_sigdown
## 1 p15_ko_retina_vs_p08_ko_retina 3 3 3 3 2 3## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?## Plot describing unique/shared genes in a differential expression table.
## A set of genes deemed significant according to deseq.## The parameters defining significant were:## LFC cutoff: 1 adj P cutoff: 0.05## deseq_up deseq_down
## t_ko_retina 3 3
## There are 6 significant up and down genes.## Warning: There are less than 10 genes up and down in the t_ko_retina comparison.## There are less than 10 genes up and down in the t_ko_retina comparison.## Examining t_het_scn## Examining t_ko_scnSend the plots separately.
for (k in seq_along(time_keepers)) {
name <- names(time_keepers)[k]
message("Examining ", name)
keeper <- time_keepers[name]
includes <- time_inclusions[[name]]
include_name <- paste0("inc_", name)
include_df_name <- paste0("df_", name)
include_df <- time_inclusions[[include_df_name]]
includes <- time_inclusions[[include_name]]
num_rows <- nrow(time_sig[[name]][["deseq"]][["ups"]][[name]]) +
nrow(time_sig[[name]][["deseq"]][["downs"]][[name]])
message("There are ", num_rows, " significant up and down genes.")
num_objects <- length(time_cp[[name]])
if (num_objects == 0) {
warning("Something failed in all_cprofiler.")
} else {
upp <- which(grepl(x = names(time_cp[[name]]), pattern = "_up$"))
downp <- which(grepl(x = names(time_cp[[name]]), pattern = "_down$"))
if (length(upp) > 0) {
mf_sig <- time_cp[[name]][[upp]][["go_data"]][["MF_enrich"]]
cc_sig <- time_cp[[name]][[upp]][["go_data"]][["CC_enrich"]]
bp_sig <- time_cp[[name]][[upp]][["go_data"]][["BP_enrich"]]
mf_plots_up <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_up_filename <- glue("32cp_trees_tx/{name}_up_mf_sig_tree.pdf")
pp(file = mf_tree_up_filename)
try(print(mf_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_up_filename <- glue("32cp_bar_tx/{name}_up_mf_sig_bar.pdf")
pp(file = mf_bar_up_filename)
try(print(mf_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_up <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_up_filename <- glue("32cp_trees_tx/{name}_up_cc_sig_tree.pdf")
pp(file = cc_tree_up_filename)
try(print(cc_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_up_filename <- glue("32cp_bar_tx/{name}_up_cc_sig_bar.pdf")
pp(file = cc_bar_up_filename)
try(print(cc_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_up_filename <- glue("32cp_trees_tx/{name}_up_bp_sig_tree.pdf")
pp(file = bp_tree_up_filename)
try(print(bp_plots_up[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_up <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_up_filename <- glue("32cp_bar_tx/{name}_up_bp_sig_bar.pdf")
pp(file = bp_bar_up_filename)
try(print(bp_plots_up[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
if (length(downp) > 0) {
mf_sig <- time_cp[[name]][[downp]][["go_data"]][["MF_enrich"]]
cc_sig <- time_cp[[name]][[downp]][["go_data"]][["CC_enrich"]]
bp_sig <- time_cp[[name]][[downp]][["go_data"]][["BP_enrich"]]
mf_plots_down <- plot_enrichresult(mf_sig, showCategory = go_categories)
mf_tree_down_filename <- glue("32cp_trees_tx/{name}_down_mf_sig_tree.pdf")
pp(file = mf_tree_down_filename)
try(print(mf_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
mf_bar_down_filename <- glue("32cp_bar_tx/{name}_down_mf_sig_bar.pdf")
pp(file = mf_bar_down_filename)
try(print(mf_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
cc_plots_down <- plot_enrichresult(cc_sig, showCategory = go_categories)
cc_tree_down_filename <- glue("32cp_trees_tx/{name}_down_cc_sig_tree.pdf")
pp(file = cc_tree_down_filename)
try(print(cc_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
cc_bar_down_filename <- glue("32cp_bar_tx/{name}_down_cc_sig_bar.pdf")
pp(file = cc_bar_down_filename)
try(print(cc_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_tree_down_filename <- glue("32cp_trees_tx/{name}_down_bp_sig_tree.pdf")
pp(file = bp_tree_down_filename)
try(print(bp_plots_down[["tree"]]), silent = TRUE)
plotted <- dev.off()
bp_plots_down <- plot_enrichresult(bp_sig, showCategory = go_categories)
bp_bar_down_filename <- glue("32cp_bar_tx/{name}_down_bp_sig_bar.pdf")
pp(file = bp_bar_down_filename)
try(print(bp_plots_down[["bar"]]), silent = TRUE)
plotted <- dev.off()
}
}
}## Examining t_het_dlgn## There are 290 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in pp(file = mf_tree_up_filename): The directory: 32cp_trees_tx does not exist, will attempt to create it.## Warning in pp(file = mf_bar_up_filename): The directory: 32cp_bar_tx does not exist, will attempt to create it.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining t_ko_dlgn## There are 446 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining t_het_retina## There are 133 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining t_ko_retina## There are 148 significant up and down genes.## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## Examining t_het_scn## There are 1 significant up and down genes.## Warning: Something failed in all_cprofiler.## Examining t_ko_scn## There are 0 significant up and down genes.## Warning: Something failed in all_cprofiler.21 Translatome queries
In conversation with Colenso, he spoke about a series of contrasts which would be interesting to attempt in order to query the changes across both locations and genotypes and/or both locations and time, thus:
(p08_het_scn / p08_het_retina) / (p08_ko_scn / p08_ko_retina)
as an example. We can definitely do these, but they do not work for all methods employed (I think they work best with limma and edgeR).
Lets find out!
21.1 Two scn/retina comparisons
- (p08_het_scn / p08_het_retina) / (p08_ko_scn / p08_ko_retina)
- (p15_het_scn / p15_het_retina) / (p15_ko_scn / p15_ko_retina)
scn_extra <- glue("\\
p08het = (conditionp08_het_scn - conditionp08_het_retina), \\
p08ko = (conditionp08_ko_scn - conditionp08_ko_retina), \\
p08het_vs_p08ko = (conditionp08_het_scn - conditionp08_het_retina) - (conditionp08_ko_scn - conditionp08_ko_retina), \\
p15het = (conditionp15_het_scn - conditionp15_het_retina), \\
p15ko = (conditionp15_ko_scn - conditionp15_ko_retina), \\
p15het_vs_p15ko = (conditionp15_het_scn - conditionp15_het_retina) - (conditionp15_ko_scn - conditionp15_ko_retina)")
scn_translatome_de_keepers <- list(
"p08het" = c("p08_het_scn", "p08_het_retina"),
"p08ko" = c("p08_ko_scn", "p08_ko_retina"),
"p15het" = c("p15_het_scn", "p15_het_retina"),
"p15ko" = c("p15_ko_scn", "p15_ko_retina"))
scn_translatome_keepers <- list(
"p08het" = c("p08_het_scn", "p08_het_retina"),
"p08ko" = c("p08_ko_scn", "p08_ko_retina"),
"p08_scn_translatome" = c("p08het", "p08ko"),
"p15het" = c("p15_het_scn", "p15_het_retina"),
"p15ko" = c("p15_ko_scn", "p15_ko_retina"),
"p15_scn_translatome" = c("p15het", "p15ko"))
filt <- normalize(tx_pairwise_input, filter = TRUE)## Removing 52544 low-count genes (13339 remaining).limma_test <- limma_pairwise(filt,
keepers = scn_translatome_de_keepers,
model_fstring = "~ 0 + condition",
model_svs = FALSE, extra_contrastrs = scn_extra)## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2edger_test <- edger_pairwise(filt,
keepers = scn_translatome_de_keepers,
model_fstring = "~ 0 + condition",
model_svs = FALSE, extra_contrasts = scn_extra)## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2scn_translatome_de <- all_pairwise(tx_pairwise_input, filter = TRUE,
keepers = scn_translatome_de_keepers,
model_svs = FALSE,
model_fstring = "~ 0 + condition",
do_basic = FALSE, do_dream = FALSE,
do_noiseq = FALSE, do_ebseq = FALSE,
extra_contrasts = scn_extra)## Warning in all_pairwise(tx_pairwise_input, filter = TRUE, keepers = scn_translatome_de_keepers, : This will likely fail because of how the
## keepers and extra contrasts are evaluated.## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## The contrast condition_NA_vs_p08het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p08ko is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_p08ko_vs_p08het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p15het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p15ko is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_p15ko_vs_p15het is not in the results.## If this is not an extra contrast, then this is an error.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The basic results are not of class
## hpgltools::basic_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The dream results are not of class
## hpgltools::dream_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The ebseq results are not of class
## hpgltools::ebseq_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The noiseq results are not of class
## hpgltools::noiseq_pairwise.
scn_combined_test <- combine_de_tables(
scn_translatome_de, keepers = scn_translatome_keepers,
excel = glue("33translatome_xlsx_tx/test_scn_translatome_unfiltered_nosva-v{ver}.xlsx"))## coefficient edger did not find conditionp08ko or conditionp08het.## coefficient limma did not find p08ko or p08het.## coefficient edger did not find conditionp15ko or conditionp15het.## coefficient limma did not find p15ko or p15het.## Looking for subscript invalid names, end of extract_keepers.scn_translatome_de_sva <- all_pairwise(tx_pairwise_input, filter = TRUE,
keepers = scn_translatome_de_keepers,
model_svs = "svaseq",
model_fstring = "~ 0 + condition",
do_basic = FALSE, do_dream = FALSE,
do_noiseq = FALSE, do_ebseq = FALSE,
extra_contrasts = scn_extra)## Warning in all_pairwise(tx_pairwise_input, filter = TRUE, keepers = scn_translatome_de_keepers, : This will likely fail because of how the
## keepers and extra contrasts are evaluated.## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## This received a matrix of SVs.## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## The contrast condition_NA_vs_p08het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p08ko is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_p08ko_vs_p08het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p15het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p15ko is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_p15ko_vs_p15het is not in the results.## If this is not an extra contrast, then this is an error.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The basic results are not of class
## hpgltools::basic_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The dream results are not of class
## hpgltools::dream_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The ebseq results are not of class
## hpgltools::ebseq_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The noiseq results are not of class
## hpgltools::noiseq_pairwise.
scn_combined_test_sva <- combine_de_tables(
scn_translatome_de_sva, keepers = scn_translatome_keepers,
excel = glue("33translatome_xlsx_tx/test_scn_translatome_unfiltered_sva-v{ver}.xlsx"))## coefficient edger did not find conditionp08ko or conditionp08het.## coefficient limma did not find p08ko or p08het.## coefficient edger did not find conditionp15ko or conditionp15het.## coefficient limma did not find p15ko or p15het.## Looking for subscript invalid names, end of extract_keepers.21.1.1 Subtracting DESeq2 results: p08 scn het vs ko
p08_scn_combined_deseq <- subtract_deseq_results(
first_table = scn_combined_test[["data"]][["p08het"]],
second_table = scn_combined_test[["data"]][["p08ko"]],
first_lfc = "deseq_logfc", second_lfc = "deseq_logfc",
first_p = "deseq_adjp", second_p = "deseq_adjp",
first_name = "het", second_name = "ko",
excel = glue("33translatome_xlsx_tx/translatome_p08_scn_combined_deseq-v{ver}.xlsx"))## Error in `subtract_deseq_results()`:
## ! could not find function "subtract_deseq_results"21.1.2 Subtracting DESeq2 results: p15 scn het vs ko
p15_scn_combined_deseq <- subtract_deseq_results(
first_table = scn_combined_test[["data"]][["p15het"]],
second_table = scn_combined_test[["data"]][["p15ko"]],
first_lfc = "deseq_logfc", second_lfc = "deseq_logfc",
first_p = "deseq_adjp", second_p = "deseq_adjp",
first_name = "het", second_name = "ko",
excel = glue("34translatome_deseqsub_xlsx_tx/translatome_p15_scn_combined_deseq-v{ver}.xlsx"))## Error in `subtract_deseq_results()`:
## ! could not find function "subtract_deseq_results"21.2 One dlgn/retina comparison
- (p08_het_dlgn / p08_het_retina) / (p08_ko_dlgn / p08_ko_retina)
p08_dlgn_extra <- "p08het_vs_p08ko = (conditionp08_het_dlgn - conditionp08_het_retina) - (conditionp08_ko_dlgn - conditionp08_ko_retina)"
p08_dlgn_translatome_de_keepers <- list(
"p08het" = c("p08_het_dlgn", "p08_het_retina"),
"p08ko" = c("p08_ko_dlgn", "p08_ko_retina"))
p08_dlgn_translatome_keepers <- list(
"p08_het_dlgn_vs_retina" = c("p08_het_dlgn", "p08_het_retina"),
"p08_ko_dlgn_vs_retina" = c("p08_ko_dlgn", "p08_ko_retina"),
"p08_dlgn_translatome" = c("p08het", "p08ko"))
p08_dlgn_translatome_de <- all_pairwise(tx_pairwise_input, filter = TRUE,
keepers = p08_dlgn_translatome_de_keepers,
model_svs = FALSE,
model_fstring = "~ 0 + condition",
do_basic = FALSE, do_dream = FALSE,
do_noiseq = FALSE, do_ebseq = FALSE,
extra_contrasts = p08_dlgn_extra)## Warning in all_pairwise(tx_pairwise_input, filter = TRUE, keepers = p08_dlgn_translatome_de_keepers, : This will likely fail because of how
## the keepers and extra contrasts are evaluated.## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.## The contrast condition_p08ko_vs_p08het is not in the results.## If this is not an extra contrast, then this is an error.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The basic results are not of class
## hpgltools::basic_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The dream results are not of class
## hpgltools::dream_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The ebseq results are not of class
## hpgltools::ebseq_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The noiseq results are not of class
## hpgltools::noiseq_pairwise.p08_dlgn_combined_test <- combine_de_tables(
p08_dlgn_translatome_de, keepers = p08_dlgn_translatome_keepers,
label_column = label_column,
excel = glue("33translatome_xlsx_tx/test_p08_dlgn_translatome_unfiltered_nosva-v{ver}.xlsx"))## coefficient edger did not find conditionp08ko or conditionp08het.## coefficient limma did not find p08ko or p08het.## Looking for subscript invalid names, end of extract_keepers.p08_dlgn_translatome_de_sva <- all_pairwise(tx_pairwise_input, filter = TRUE,
keepers = p08_dlgn_translatome_de_keepers,
model_svs = "svaseq",
model_fstring = "~ 0 + condition",
do_basic = FALSE, do_dream = FALSE,
do_noiseq = FALSE, do_ebseq = FALSE,
extra_contrasts = p08_dlgn_extra)## Warning in all_pairwise(tx_pairwise_input, filter = TRUE, keepers = p08_dlgn_translatome_de_keepers, : This will likely fail because of how
## the keepers and extra contrasts are evaluated.## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## This received a matrix of SVs.## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.## The contrast condition_p08ko_vs_p08het is not in the results.## If this is not an extra contrast, then this is an error.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The basic results are not of class
## hpgltools::basic_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The dream results are not of class
## hpgltools::dream_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The ebseq results are not of class
## hpgltools::ebseq_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The noiseq results are not of class
## hpgltools::noiseq_pairwise.p08_dlgn_combined_test_sva <- combine_de_tables(
p08_dlgn_translatome_de_sva, keepers = p08_dlgn_translatome_keepers,
label_column = label_column,
excel = glue("33translatome_xlsx_tx/test_p08_dlgn_translatome_unfiltered_sva-v{ver}.xlsx"))## coefficient edger did not find conditionp08ko or conditionp08het.## coefficient limma did not find p08ko or p08het.## Looking for subscript invalid names, end of extract_keepers.21.2.1 Subtracting the DESeq2 results
21.3 Two scn/retina comparisons (p15/p08 across het/ko)
- (p15_het_scn / p15_het_retina) / (p08_het_scn / p08_het_retina)
- (p15_ko_scn / p15_ko_retina) / (p08_ko_scn / p08_ko_retina)
time_scn_extra <- glue("\\
p15het = (conditionp15_het_scn - conditionp15_het_retina), \\
p08het = (conditionp08_het_scn - conditionp08_het_retina), \\
p15het_vs_p08het = (conditionp15_het_scn - conditionp15_het_retina) - (conditionp08_het_scn - conditionp08_het_retina),
p15ko = (conditionp15_ko_scn - conditionp15_ko_retina), \\
p08ko = (conditionp08_ko_scn - conditionp08_ko_retina), \\
p15ko_vs_p08ko = (conditionp15_ko_scn - conditionp15_ko_retina) - (conditionp08_ko_scn - conditionp08_ko_retina)")
time_scn_translatome_de_keepers <- list(
"p15het" = c("p15_het_scn", "p15_het_retina"),
"p08het" = c("p08_het_scn", "p08_het_retina"),
"p15ko" = c("p15_ko_scn", "p15_ko_retina"),
"p08ko" = c("p08_ko_scn", "p08_ko_retina"))
time_scn_translatome_keepers <- list(
"p15het" = c("p15_het_scn", "p15_het_retina"),
"p08het" = c("p08_het_scn", "p08_het_retina"),
"p15ko" = c("p15_ko_scn", "p15_ko_retina"),
"p08ko" = c("p08_ko_scn", "p08_ko_retina"),
"p15_het_sc_vs_retina" = c("p15_het_scn", "p15_het_retina"),
"p08_het_sc_vs_retina" = c("p08_het_scn", "p08_het_retina"),
"scn_het_translatome" = c("p15het", "p08het"),
"scn_ko_translatome" = c("p15ko", "p08ko"))
time_scn_translatome_de <- all_pairwise(tx_pairwise_input, filter = TRUE,
keepers = time_scn_translatome_de_keepers,
model_svs = FALSE,
model_fstring = "~ 0 + condition",
do_basic = FALSE, do_dream = FALSE,
do_noiseq = FALSE, do_ebseq = FALSE,
extra_contrasts = time_scn_extra)## Warning in all_pairwise(tx_pairwise_input, filter = TRUE, keepers = time_scn_translatome_de_keepers, : This will likely fail because of how
## the keepers and extra contrasts are evaluated.## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## The contrast condition_NA_vs_p15het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p08het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_p08het_vs_p15het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p15ko is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p08ko is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_p08ko_vs_p15ko is not in the results.## If this is not an extra contrast, then this is an error.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The basic results are not of class
## hpgltools::basic_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The dream results are not of class
## hpgltools::dream_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The ebseq results are not of class
## hpgltools::ebseq_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The noiseq results are not of class
## hpgltools::noiseq_pairwise.
time_scn_translatome_test <- combine_de_tables(
time_scn_translatome_de,
keepers = time_scn_translatome_keepers,
label_column = label_column,
excel = glue("33translatome_xlsx_tx/test_time_scn_translatome_unfiltered_nosva-v{ver}.xlsx"))## coefficient edger did not find conditionp08het or conditionp15het.## coefficient limma did not find p08het or p15het.## coefficient edger did not find conditionp08ko or conditionp15ko.## coefficient limma did not find p08ko or p15ko.## Looking for subscript invalid names, end of extract_keepers.time_scn_translatome_de_sva <- all_pairwise(tx_pairwise_input, filter = TRUE,
keepers = time_scn_translatome_de_keepers,
model_svs = "svaseq",
model_fstring = "~ 0 + condition",
do_basic = FALSE, do_dream = FALSE,
do_noiseq = FALSE, do_ebseq = FALSE,
extra_contrasts = time_scn_extra)## Warning in all_pairwise(tx_pairwise_input, filter = TRUE, keepers = time_scn_translatome_de_keepers, : This will likely fail because of how
## the keepers and extra contrasts are evaluated.## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Removing 52544 low-count genes (13339 remaining).## This received a matrix of SVs.## converting counts to integer mode## gene-wise dispersion estimates## mean-dispersion relationship## final dispersion estimates## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.
## This contrast put the denominator first.## The contrast condition_NA_vs_p15het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p08het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_p08het_vs_p15het is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p15ko is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_NA_vs_p08ko is not in the results.## If this is not an extra contrast, then this is an error.## The contrast condition_p08ko_vs_p15ko is not in the results.## If this is not an extra contrast, then this is an error.## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## conditions
## p08_het_dlgn p08_het_retina p08_het_scn p08_ko_dlgn p08_ko_retina p08_ko_scn p08_wt_dlgn p08_wt_retina p08_wt_scn
## 3 3 3 3 3 3 5 5 3
## p15_het_dlgn p15_het_retina p15_het_scn p15_ko_dlgn p15_ko_retina p15_ko_scn p15_wt_dlgn p15_wt_retina p15_wt_scn
## 4 4 3 3 3 3 5 5 2## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The basic results are not of class
## hpgltools::basic_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The dream results are not of class
## hpgltools::dream_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The ebseq results are not of class
## hpgltools::ebseq_pairwise.## Warning in correlate_de_tables(results, annot_df = annot_df, extra_contrasts = extra_contrasts): The noiseq results are not of class
## hpgltools::noiseq_pairwise.
time_scn_translatome_test_sva <- combine_de_tables(
time_scn_translatome_de_sva,
keepers = time_scn_translatome_keepers,
label_column = label_column,
excel = glue("33translatome_xlsx_tx/test_time_scn_translatome_unfiltered_sva-v{ver}.xlsx"))## coefficient edger did not find conditionp08het or conditionp15het.## coefficient limma did not find p08het or p15het.## coefficient edger did not find conditionp08ko or conditionp15ko.## coefficient limma did not find p08ko or p15ko.## Looking for subscript invalid names, end of extract_keepers.Next step: Perform the retina filter; need to think about the proper union/intersection of the retina/x expression values
In the previous block, we are making 2 global comparisons, here is one of them:
(p15hetscn/p15hetret)/(p08hetscn/p08hetret)
I therefore want to extract the most logical set of genes higher in some/all of these conditions with respect to the corresponding wt conditions. Previously, in section ‘Extract genes included for each set of contrasts’, I attempted to perform this operation for 2 specific wt conditions. When this was performed, it took the unique(union) of the two sets. Thus it stands to reason that I want to take the unique(union) of all 4 in this instance? e.g.:
(p15hetscn > p15wtscn) | (p15hetret > p15wtret) | (p08hetscn > p08wtscn) | (p08hetret > p08wtret)
I kind of think it should be:
((p15hetscn > p15wtscn) | (p15hetret > p15wtret)) & ((p08hetscn > p08wtscn) | (p08hetret > p08wtret))
gross, perhaps I should just do this manually, given that there are only a few putative translatomes to query?
22 Quick and dirty DESeq2 contrast of contrasts
In a fashion similar to how Hector handled the effect of phagocytosis with Laura and Najib a long time ago, I propose to do a simple subtraction of the results of our two contrasts which comprise the translatome query (I was thinking about this last week, thus the inclusion of them in the de tables above). Similarly to the phagocytosis effect, I will simply take the worst posible adjusted p-value. I will repeat this with limma/EdgeR and see how similar the final results are to what those methods provide in the (a/b)/(c/d) comparisons. I am reasonably certain that DESeq2’s results() function has the ability to perform these odd contrasts, but I have never figured out how; perhaps I will use this as a chance to revisit that…
Let us test this idea with the p08 dlgn query, which seeks to compare:
(p08_het_dlgn / p08_het_retina) / (p08_ko_dlgn / p08_ko_retina)
These are maintained in the de_table with the names ‘p08_het_dlgn_vs_retina’ and ‘p08_ko_dlgn_vs_retina’
22.1 p08 dlgn het vs ko
p08_dlgn_combined_deseq <- subtract_deseq_results(
first_table = p08_dlgn_combined_test[["data"]][["p08_het_dlgn_vs_retina"]],
second_table = p08_dlgn_combined_test[["data"]][["p08_ko_dlgn_vs_retina"]],
first_lfc = "deseq_logfc", second_lfc = "deseq_logfc",
first_p = "deseq_adjp", second_p = "deseq_adjp",
first_name = "het", second_name = "ko",
excel = glue("34translatome_deseqsub_xlsx_tx/translatome_p08_dlgn_combined_deseq-v{ver}.xlsx"))## Error in `subtract_deseq_results()`:
## ! could not find function "subtract_deseq_results"See how similar these results are to those obtained from limma/edger.
test_columns <- c("edger_logfc", "limma_logfc", "edger_adjp", "limma_adjp")
test_df <- p08_dlgn_combined_test[["data"]][["p08_dlgn_translatome"]][, test_columns]
test_df <- merge(test_df, p08_dlgn_combined_deseq, by = "row.names")## Error in `h()`:
## ! error in evaluating the argument 'y' in selecting a method for function 'merge': object 'p08_dlgn_combined_deseq' not foundrownames(test_df) <- test_df[["Row.names"]]
test_df[["Row.names"]] <- NULL
cor.test(test_df[["limma_logfc"]], test_df[["het_vs_ko_logfc"]])## Error in `cor.test.default()`:
## ! 'y' must be a numeric vector## Error in `cor.test.default()`:
## ! 'y' must be a numeric vector## Error in `h()`:
## ! error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': undefined columns selected## NULL## Error in `h()`:
## ! error in evaluating the argument 'x' in selecting a method for function 'as.data.frame': undefined columns selected## NULL## So, using the maximum p-value is a complete failure; but the extreme similarities
## between this and edgeR suggest to me that it is likely possible to use the results
## from edgeR without concern (or limma for that matter, it was also extremely similar)
## Or I can spend a little time and collect the numbers on each side of the division
## and calculate a t statistic myself.23 Non-Specific filtering of the translatome data
I have on hand
- p08het_vs_p08ko : (p08_het_scn - p08_het_retina) - (p08_ko_scn - p08_ko_retina)
- p15het_vs_p15ko : (p15_het_scn - p15_het_retina) - (p15_ko_scn - p15_ko_retina)
- p08het_vs_p08ko : (p08_het_dlgn - p08_het_retina) - (p08_ko_dlgn - p08_ko_retina)
- p15het_vs_p08het : (p15_het_scn - p15_het_retina) - (p08_het_scn - p08_het_retina)
- p15ko_vs_p08ko : (p15_ko_scn - p15_ko_retina) - (p08_ko_scn - p08_ko_retina)
I have gene sets up above which define the genes suitable for each of these pieces. There are only 5 comparisons, let us step through them.
23.1 SCN translatome het/ko at p08
The data for this contrast resides in scn_combined_test\(data\)p08_scn_translatome or the same slot of scn_combined_test_sva
- p08_het_scn - p08_het_retina) - (p08_ko_scn - p08_ko_retina)
Thus, the inclusion_sig portions to extract are found in: inclusion_sig[[“deseq”]][[“ups”]], and are named exactly as written above!
p08_het_vs_ko_translatome_unfilt <- scn_combined_test[["data"]][["p08_scn_translatome"]]
num_union <- unique(c(rownames(inclusion_sig[["deseq"]][["ups"]][["p08_het_scn"]]),
rownames(inclusion_sig[["deseq"]][["ups"]][["p08_het_retina"]])))
length(num_union)## [1] 548den_union <- unique(c(rownames(inclusion_sig[["deseq"]][["ups"]][["p08_ko_scn"]]),
rownames(inclusion_sig[["deseq"]][["ups"]][["p08_ko_retina"]])))
length(den_union)## [1] 577## [1] 770both_inter_idx <- num_union %in% den_union
both_inter <- num_union[both_inter_idx]
length(both_inter)## [1] 355keeper <- list("p08_scn_translatome" = c("p08het", "p08ko"))
p08_scn_translatome_union_filtered <- combine_de_tables(
scn_translatome_de, keepers = keeper,
label_column = label_column,
excel = glue("35translatome_union_tx/p08_scn_translatome_union_filtered_nosva-v{ver}.xlsx"),
wanted_genes = both_union)## coefficient edger did not find conditionp08ko or conditionp08het.## coefficient limma did not find p08ko or p08het.## Looking for subscript invalid names, end of extract_keepers.p08_scn_translatome_inter_filtered <- combine_de_tables(
scn_translatome_de, keepers = keeper,
label_column = label_column,
excel = glue("35translatome_union_tx/p08_scn_translatome_intersect_filtered_nosva-v{ver}.xlsx"),
wanted_genes = both_inter)## coefficient edger did not find conditionp08ko or conditionp08het.## coefficient limma did not find p08ko or p08het.## Looking for subscript invalid names, end of extract_keepers.p08_scn_translatome_union_filtered_sva <- combine_de_tables(
scn_translatome_de_sva, keepers = keeper,
label_column = label_column,
excel = glue("35translatome_union_tx/p08_scn_translatome_union_filtered_sva-v{ver}.xlsx"),
wanted_genes = both_union)## coefficient edger did not find conditionp08ko or conditionp08het.## coefficient limma did not find p08ko or p08het.## Looking for subscript invalid names, end of extract_keepers.p08_scn_translatome_union_filtered <- combine_de_tables(
scn_translatome_de, keepers = keeper,
label_column = label_column,
excel = glue("35translatome_union_tx/p08_scn_translatome_intersect_filtered_sva-v{ver}.xlsx"),
wanted_genes = both_inter)## coefficient edger did not find conditionp08ko or conditionp08het.## coefficient limma did not find p08ko or p08het.## Looking for subscript invalid names, end of extract_keepers.24 Venn/UpSet of Retina, SCN, and dLGN DE Genes
Here is a snippet from Rashmi which expresses nicely the DE-result comparisons she is most interested:
Since, I want to know the number of DEG expressed in Retina, SCN and dLGN with respect to genotype, Location and time. I prepared the venn diagram for these comparison:
- Genotype: P8 Ret Het vs KO, P15 Ret Het vs KO, P8 SCN Het vs KO, P15 SCN Het vs KO, P8 dLGN Het vs KO, P15 dLGN Het vs KO
- Location: P8_het Ret vs SCN, P8_KO Ret vs SCN, P15_het Ret vs SCN, P15_KO Ret vs SCN, P8_het Ret vs dLGN, P8_KO Ret vs dLGN, P15_het Ret vs dLGN, P15_KO Ret vs dLGN, P8_het SCN vs dLGN, P8_KO SCN vs dLGN, P15_het SCN vs dLGN, P15_KO SCN vs dLGN.
Since I was interested in understanding the change in local translatome according to Location for different developmental time points for Het and KO. Hence, I tried to generate a venn diagram for Location (Ret and SCN) at developmental time points P8 and P15 for genotype het and KO. So the venn diagram / upset plot will be for location where some genes will be shared/unique for P8_Ret_het, P8_SCN_Het, P15_Ret_HET, P15_SCN_HET. We can prepare an upset plot for P8_Ret_KO, P8_SCN_KO, P15_Ret_KO and P15_SCN_KO also. Or can generate an upset plot by combining both P8_Ret_het, P8_SCN_Het, P15_Ret_HET and P15_SCN_HET and P8_Ret_KO, P8_SCN_KO, P15_Ret_KO and P15_SCN_KO.
Ok, let us see if I can implement this, starting with the genotype query
- Genotype: P8 Ret Het vs KO, P15 Ret Het vs KO, P8 SCN Het vs KO, P15 SCN Het vs KO, P8 dLGN Het vs KO, P15 dLGN Het vs KO
24.1 ko vs het; all locations and times
## The appropriate data structure is 'genotype_tables',
## and the tables of interest are:
table_names <- c("kh_p08_retina", "kh_p15_retina", "kh_p08_scn",
"kh_p15_scn", "kh_p08_dlgn", "kh_p15_dlgn")
table_names %in% names(genotype_sig)## [1] TRUE TRUE TRUE TRUE TRUE TRUEnewsig <- genotype_sig[[1]]
for (sig in 2:length(table_names)) {
name <- table_names[sig]
newsig[["deseq"]][["ups"]][[name]] <- genotype_sig[[name]][["deseq"]][["ups"]][[name]]
newsig[["deseq"]][["downs"]][[name]] <- genotype_sig[[name]][["deseq"]][["downs"]][[name]]
}
genotype_upsetr <- upsetr_sig(newsig)## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?genotype_upset_written <- write_upset_groups(genotype_upsetr, excel = "36upset_genotype_tx/genotype_upset_groups.xlsx")
genotype_upsetr[["all_plot"]]
pp(file = "36upset_genotype_tx/test_genotype_upset.pdf")
print(genotype_upsetr[["all_plot"]])
plotted <- dev.off()Now let us try the location-specific comparisons
24.2 scn vs retina, p08
## The appropriate data structure is 'genotype_tables',
## and the tables of interest are:
table_names <- c("sr_p08_het", "sr_p08_ko")
table_names %in% names(location_sig)## [1] TRUE TRUElocation_upset_input <- list()
first_table <- table_names[1]
newsig <- location_sig[[first_table]]
for (sig in 2:length(table_names)) {
name <- table_names[sig]
newsig[["deseq"]][["ups"]][[name]] <- location_sig[[name]][["deseq"]][["ups"]][[name]]
newsig[["deseq"]][["downs"]][[name]] <- location_sig[[name]][["deseq"]][["downs"]][[name]]
}
location_upsetr <- upsetr_sig(newsig)
location_upset_written <- write_upset_groups(location_upsetr, excel = "36upset_genotype_tx/sr_p08_hetko_upset_groups.xlsx")
location_upsetr[["all_plot"]]
pp(file = "36upset_genotype_tx/test_location_sr_p08_hetko_upset.pdf")
print(location_upsetr[["all_plot"]])
plotted <- dev.off()I am reasonably certain that Rashmi would like a table of the genes shared among increased scn ko and het in the above plot along with the increased retina (e.g. the 269 and 103 gene sets).
24.3 scn vs retina, p15
## [1] TRUE TRUElocation_upset_input <- list()
first_table <- table_names[1]
newsig <- location_sig[[first_table]]
for (sig in 2:length(table_names)) {
name <- table_names[sig]
newsig[["deseq"]][["ups"]][[name]] <- location_sig[[name]][["deseq"]][["ups"]][[name]]
newsig[["deseq"]][["downs"]][[name]] <- location_sig[[name]][["deseq"]][["downs"]][[name]]
}
location_upsetr <- upsetr_sig(newsig)
location_upset_written <- write_upset_groups(location_upsetr, excel = "36upset_genotype_tx/sr_p15_hetko_upset_groups.xlsx")
location_upsetr[["all_plot"]]
## Error:
## ! object 'scn_retina_p15_upset_result' not found24.4 dlgn vs retina, p08
## The appropriate data structure is 'genotype_tables',
## and the tables of interest are:
table_names <- c("dr_p08_het", "dr_p08_ko")
location_upset_input <- list()
first_table <- table_names[1]
newsig <- location_sig[[first_table]]
for (sig in 2:length(table_names)) {
name <- table_names[sig]
newsig[["deseq"]][["ups"]][[name]] <- location_sig[[name]][["deseq"]][["ups"]][[name]]
newsig[["deseq"]][["downs"]][[name]] <- location_sig[[name]][["deseq"]][["downs"]][[name]]
}
location_upsetr <- upsetr_sig(newsig)
location_upset_written <- write_upset_groups(location_upsetr, excel = "3upset_genotype_tx/dr_p08_hetko_upset_groups.xlsx")
location_upsetr[["all_plot"]]
24.5 dlgn vs retina, p15
## The appropriate data structure is 'genotype_tables',
## and the tables of interest are:
table_names <- c("dr_p15_het", "dr_p15_ko")
location_upset_input <- list()
first_table <- table_names[1]
newsig <- location_sig[[first_table]]
for (sig in 2:length(table_names)) {
name <- table_names[sig]
newsig[["deseq"]][["ups"]][[name]] <- location_sig[[name]][["deseq"]][["ups"]][[name]]
newsig[["deseq"]][["downs"]][[name]] <- location_sig[[name]][["deseq"]][["downs"]][[name]]
}
location_upsetr <- upsetr_sig(newsig)
location_upset_written <- write_upset_groups(location_upsetr, excel = "37upset_location_tx/dr_p15_hetko_upset_groups.xlsx")
location_upsetr[["all_plot"]]
24.6 dlgn vs scn, p08
table_names <- c("ds_p08_het", "ds_p08_ko")
location_upset_input <- list()
first_table <- table_names[1]
newsig <- location_sig[[first_table]]
for (sig in 2:length(table_names)) {
name <- table_names[sig]
newsig[["deseq"]][["ups"]][[name]] <- location_sig[[name]][["deseq"]][["ups"]][[name]]
newsig[["deseq"]][["downs"]][[name]] <- location_sig[[name]][["deseq"]][["downs"]][[name]]
}
location_upsetr <- upsetr_sig(newsig)
location_upset_written <- write_upset_groups(location_upsetr, excel = "37upset_location_tx/ds_p08_hetko_upset_groups.xlsx")
location_upsetr[["all_plot"]]
24.7 dlgn vs scn, p15
table_names <- c("ds_p15_het", "ds_p15_ko")
location_upset_input <- list()
first_table <- table_names[1]
newsig <- location_sig[[first_table]]
for (sig in 2:length(table_names)) {
name <- table_names[sig]
newsig[["deseq"]][["ups"]][[name]] <- location_sig[[name]][["deseq"]][["ups"]][[name]]
newsig[["deseq"]][["downs"]][[name]] <- location_sig[[name]][["deseq"]][["downs"]][[name]]
}
location_upsetr <- upsetr_sig(newsig)## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?location_upset_written <- write_upset_groups(location_upsetr, excel = "37upset_location_tx/ds_p15_hetko_upset_groups.xlsx")
location_upsetr[["all_plot"]]
25 Shared and unique gene sets across x/wt
In this block I want to find the unique and shared genes between:
- scn p8 het/wt and retina p8 het/wt: hwp08scninc, hwp08retinc, hwp08scndec, hwp08retdec
- scn p15 het/wt and retina p15 het/wt: hwp15scninc, hwp15retinc, hwp15scndec, hwp15retdec
- #1 and #2 together: 8 catgories above
- scn p8 ko/wt and retina p8 ko/wt
- scn p15 ko/wt and retina p15 ko/wt
- #4 and #5 together
The comparisons of het/wt are found in the ‘inclusion_sig’ dataset; because they are providing our cutoffs for nonspecific binding.
25.1 Number 1 above: p08_het vs wt for scn and retina.
table_names <- c("p08_het_scn", "p08_het_retina")
inclusion_upsetr <- upsetr_sig(inclusion_sig, contrasts = table_names)## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?inclusion_upset_written <- write_upset_groups(inclusion_upsetr, excel = "37upset_locations_tx/rs_p08_het_inclusion_upset_groups.xlsx")
inclusion_upsetr[["all_plot"]]
25.2 Number 2 above: p15_het vs wt for scn and retina.
table_names <- c("p15_het_scn", "p15_het_retina")
inclusion_upsetr <- upsetr_sig(inclusion_sig, contrasts = table_names)## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?
## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?inclusion_upset_written <- write_upset_groups(inclusion_upsetr, excel = "37upset_locations_tx/rs_p15_het_inclusion_upset_groups.xlsx")
inclusion_upsetr[["all_plot"]]
25.3 Number 3 above: combination of #1 and #2
table_names <- c("p08_het_scn", "p08_het_retina", "p15_het_scn", "p15_het_retina")
inclusion_upsetr <- upsetr_sig(inclusion_sig, contrasts = table_names)
inclusion_upset_written <- write_upset_groups(inclusion_upsetr, excel = "37upset_locations_tx/rs_p08p15_het_inclusion_upset_groups.xlsx")
inclusion_upsetr[["all_plot"]]
25.4 Number 4 above p08_ko vs wt for scn and retina.
table_names <- c("p08_ko_scn", "p08_ko_retina")
inclusion_upsetr <- upsetr_sig(inclusion_sig, contrasts = table_names)
inclusion_upset_written <- write_upset_groups(inclusion_upsetr, excel = "37upset_locations_tx/rs_p08_ko_inclusion_upset_groups.xlsx")
inclusion_upsetr[["all_plot"]]
25.5 Number 5 above p15_ko vs wt for scn and retina.
table_names <- c("p15_ko_scn", "p15_ko_retina")
inclusion_upsetr <- upsetr_sig(inclusion_sig, contrasts = table_names)## `geom_line()`: Each group consists of only one observation.
## ℹ Do you need to adjust the group aesthetic?inclusion_upset_written <- write_upset_groups(inclusion_upsetr, excel = "37upset_locations_tx/rs_p15_ko_inclusion_upset_groups.xlsx")
inclusion_upsetr[["all_plot"]]
25.6 Number 6 above: Combining #4 and #5
table_names <- c("p08_ko_scn", "p08_ko_retina", "p15_ko_scn", "p15_ko_retina")
inclusion_upsetr <- upsetr_sig(inclusion_sig, contrasts = table_names)
inclusion_upset_written <- write_upset_groups(inclusion_upsetr, excel = "37upset_locations_tx/rs_p08p15_ko_inclusion_upset_groups.xlsx")
inclusion_upsetr[["all_plot"]]
26 GSVA
msigdb <- "reference/msigdb_v2024.1.Mm.db"
if (file.exists(msigdb)) {
tx_h_gsva <- simple_gsva(tx_pairwise_input, orgdb = "org.Mm.eg.db", signature_category = "mh",
signatures = msigdb, id_source = "fdata",
required_id = "mgi_symbol")
tx_h_gsva
tx_h_gsva_sig <- get_sig_gsva_categories(
tx_h_gsva, excel = "38msigdb_tx/gsva_sig_hallmark_categories.xlsx")
tx_h_gsva_sig
tx_m1_gsva <- simple_gsva(tx_pairwise_input, orgdb = "org.Mm.eg.db", signature_category = "m1",
signatures = msigdb, id_source = "fdata",
required_id = "mgi_symbol")
tx_m1_gsva
tx_m1_gsva_sig <- get_sig_gsva_categories(
tx_m1_gsva, excel = "38msigdb_tx/gsva_sig_positional_categories.xlsx")
tx_m1_gsva_sig
tx_m2_gsva <- simple_gsva(tx_pairwise_input, orgdb = "org.Mm.eg.db", signature_category = "m2",
signatures = msigdb, id_source = "fdata",
required_id = "mgi_symbol")
tx_m2_gsva
tx_m2_gsva_sig <- get_sig_gsva_categories(
tx_m2_gsva, excel = "38msigdb_tx/gsva_sig_curated_categories.xlsx")
tx_m2_gsva_sig
tx_m3_gsva <- simple_gsva(tx_pairwise_input, orgdb = "org.Mm.eg.db", signature_category = "m3",
signatures = msigdb, id_source = "fdata",
required_id = "mgi_symbol")
tx_m3_gsva
tx_m3_gsva_sig <- get_sig_gsva_categories(
tx_m3_gsva, excel = "38msigdb_tx/gsva_sig_regulatory_categories.xlsx")
tx_m3_gsva_sig
tx_m5_gsva <- simple_gsva(tx_pairwise_input, orgdb = "org.Mm.eg.db", signature_category = "m5",
signatures = msigdb, id_source = "fdata",
required_id = "mgi_symbol")
tx_m5_gsva
tx_m5_gsva_sig <- get_sig_gsva_categories(
tx_m5_gsva, excel = "38msigdb_tx/gsva_sig_ontology_categories.xlsx")
tx_m5_gsva_sig
tx_m8_gsva <- simple_gsva(tx_pairwise_input, orgdb = "org.Mm.eg.db", signature_category = "m8",
signatures = msigdb, id_source = "fdata",
required_id = "mgi_symbol")
tx_m8_gsva
tx_m8_gsva_sig <- get_sig_gsva_categories(
tx_m8_gsva, excel = "38msigdb_tx/gsva_sig_celltype_categories.xlsx")
tx_m8_gsva_sig
}## gsva requires the annotation field to be filled in. Setting it to orgdb given.## Converting the rownames() of the SummarizedExperiment to mgi_symbol.## Error in `simple_gsva()`:
## ! I do not understand this ID source.27 GSEA images
Up above I created a fairly large set of enrichment/GSEA analyses. Let us pull some of the most interesting results here and look at them.
Here are the specific queries from Rashmi:
- Genotype (het vs ko):
- P8 het and ko for Ret
- SCN (P8 het vs KO SCN
- P8 het vs KO Ret)
- P15 het and ko for Ret
- Location (somal vs axonal):
- SR_P08_KO
- SR_P08_Het
- SR_P15_KO
- SR_P15_Het
- Time(p8vs p15):
- t_het_Ret_ po8-p15
- t_KO_Ret_C po8-p15
- t_het_SCN_po8-p15
- t_KO_SCN_po8-p15
27.1 Genotype
Let us take a moment and see for which contrasts I acquired results:
I need to make a little summary for clusterprofiler too so that I can easily see how many hits there are for each contrast.
## Length Class Mode
## kh_p08_dlgn_up 22 hpgltools::simple_gprofiler list
## kh_p08_dlgn_down 25 hpgltools::simple_gprofiler list
## kh_p15_dlgn_up 28 hpgltools::simple_gprofiler list
## kh_p08_scn_down 24 hpgltools::simple_gprofiler list
## kh_p15_scn_down 26 hpgltools::simple_gprofiler list## [1] "kh_p08_dlgn_up"
## BP CC CORUM HP KEGG MF REAC TF WP
## 0 1 0 0 0 0 0 1 0
## [1] "kh_p08_dlgn_down"
## BP CC CORUM HP KEGG MF REAC TF WP
## 3 2 0 1 1 0 0 2 0
## [1] "kh_p15_dlgn_up"
## BP CC CORUM HP KEGG MF REAC TF WP
## 51 29 1 90 1 7 5 3 0
## [1] "kh_p08_scn_down"
## BP CC CORUM HP KEGG MF REAC TF WP
## 2 7 0 0 0 2 0 1 0
## [1] "kh_p15_scn_down"
## BP CC CORUM HP KEGG MF REAC TF WP
## 10 2 0 0 1 4 1 0 1## Length Class Mode
## kh_p08_dlgn_up 20 hpgltools::simple_clusterprofiler list
## kh_p15_dlgn_up 20 hpgltools::simple_clusterprofiler list
## kh_p08_retina_up 20 hpgltools::simple_clusterprofiler list
## kh_p15_retina_up 20 hpgltools::simple_clusterprofiler list
## kh_p08_scn_up 20 hpgltools::simple_clusterprofiler list
## kh_p15_scn_down 20 hpgltools::simple_clusterprofiler list## [1] "kh_p08_dlgn_up"
## NULL
## [1] "kh_p15_dlgn_up"
## NULL
## [1] "kh_p08_retina_up"
## NULL
## [1] "kh_p15_retina_up"
## NULL
## [1] "kh_p08_scn_up"
## NULL
## [1] "kh_p15_scn_down"
## NULL27.1.1 p8 het/ko for retina:
This contrast, even before filtering away the high-wt genes, only has 8 genes in the set of up and down genes combined. As a result, my function which performs gProfiler/clusterProfiler skips it, and also skips the p15 het/ko for retina samples.
27.1.2 p8 het/ko for scn:
This has a bunch more genes: 51 up and 128 down. Unfortunately, gProfiler sees no significant over-representation in the up category of genes. The down category has
The up/down sets from clusterProfiler have enrich_go, gse_go, and go_data to look at.
## NULL## BP CC CORUM HP KEGG MF REAC TF WP
## 2 7 0 0 0 2 0 1 0## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## dimensionality reduction failed with provided drfun; falling back to stats::cmdscale.
## NULLPerhaps I should just ask the question: for which categories did I get results back?
## Length Class Mode
## kh_p08_dlgn_up 22 hpgltools::simple_gprofiler list
## kh_p08_dlgn_down 25 hpgltools::simple_gprofiler list
## kh_p15_dlgn_up 28 hpgltools::simple_gprofiler list
## kh_p08_scn_down 24 hpgltools::simple_gprofiler list
## kh_p15_scn_down 26 hpgltools::simple_gprofiler listkh_p08_dlgn_up: No significant gProfiler results. kh_p15_dlgn_up: Significant BP, HP, KEGG, MF, REAC, TF kh_p08_scn_up: No significant gProfiler results. kh_p08_scn_down: Significant BP, MiRNA, MF, TF kh_p15_scn_down: Significant BP, MF
## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
27.2 Location
27.2.1 Scn vs retina ko, p08
## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
27.2.2 scn vs retina, het, p08
Enriched groups: BP, KEGG, MF, TF, CC
## Length Class Mode
## BP 0 data.frame list
## CC 16 data.frame list
## CORUM 0 data.frame list
## HP 0 data.frame list
## KEGG 16 data.frame list
## MF 16 data.frame list
## REAC 0 data.frame list
## TF 16 data.frame list
## WP 0 data.frame list
## input 78 data.frame list
## CC_enrich 1 enrichResult S4
## KEGG_enrich 1 enrichResult S4
## MF_enrich 1 enrichResult S4
## TF_enrich 1 enrichResult S4
## num_genes 1 -none- numeric
## interactive_plots 4 -none- list
## num_hits 9 -none- numeric
## gost_plots 4 -none- list
## gost_links 4 -none- list
## significant 4 -none- list
## excel 1 written_gprofiler numeric
## pvalue_plots 2 -none- list
## species 1 -none- character
## threshold 1 -none- numericplots <- plot_enrichresult(location_gp[["sr_p08_het"]][["sr_p08_het_up"]][["BP_enrich"]])
plots[["dot"]]## NULL## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Error in `if (nrow(gse) < topn) ...`:
## ! argument is of length zero27.2.3 Scn vs retina ko, p15
plots <- plot_enrichresult(location_gp[["sr_p15_ko"]][["sr_p15_ko_up"]][["BP_enrich"]])
plots[["dot"]]## NULL## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?## dimensionality reduction failed with provided drfun; falling back to stats::cmdscale.
27.2.4 scn vs retina, het, p15
plots <- plot_enrichresult(location_gp[["sr_p15_het"]][["sr_p15_het_up"]][["BP_enrich"]])
plots[["dot"]]## NULL## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
27.3 Time
27.3.1 het retina
Ups: significant results for BP, MF, TF Downs: BP, MF, REAC, TF, WP
plots <- plot_enrichresult(time_gp[["t_het_retina"]][["t_het_retina_up"]][["BP_enrich"]])
plots[["dot"]]## NULL## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
27.3.2 ko retina
Up: BP, MiRNA, MF Down: BP, MF, REAC, TF
## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
## Warning in (function (model, data, ...) : Arguments in `...` must be used.
## ✖ Problematic argument:
## • by = "Count"
## ℹ Did you misspell an argument name?
27.3.3 het scn
Neither of the SCN gProfiler queries provided any results.
28 Bibliography
pander::pander(sessionInfo())
message(paste0("This is hpgltools commit: ", get_git_commit()))
message(paste0("Saving to ", savefile))
tmp <- sm(saveme(filename = savefile))
Hoffman, Gabriel E., and Eric E. Schadt. 2016. “variancePartition:
Interpreting Drivers of Variation in Complex Gene Expression
Studies.” BMC Bioinformatics 17 (1): 483. https://doi.org/10.1186/s12859-016-1323-z.
Leng, Ning, John A. Dawson, James A. Thomson, et al. 2013. “EBSeq:
An Empirical Bayes Hierarchical Model for Inference in RNA-Seq
Experiments.” Bioinformatics 29 (8): 1035–43. https://doi.org/10.1093/bioinformatics/btt087.
Love, Michael I., Wolfgang Huber, and Simon Anders. 2014.
“Moderated Estimation of Fold Change and Dispersion for RNA-Seq
Data with DESeq2.” In bioRxiv. https://doi.org/10.1101/002832.
Raudvere, Uku, Liis Kolberg, Ivan Kuzmin, et al. 2019.
“G:profiler: A Web Server for Functional Enrichment Analysis and
Conversions of Gene Lists (2019 Update).” Nucleic Acids
Research 47 (W1): W191–98. https://doi.org/10.1093/nar/gkz369.
Ritchie, Matthew E., Belinda Phipson, Di Wu, et al. 2015. “Limma
Powers Differential Expression Analyses for RNA-Sequencing and
Microarray Studies.” Nucleic Acids Research 43 (7): e47.
https://doi.org/10.1093/nar/gkv007.
Robinson, Mark D., Davis J. McCarthy, and Gordon K. Smyth. 2010.
“edgeR: A Bioconductor Package for Differential Expression
Analysis of Digital Gene Expression Data.”
Bioinformatics 26 (1): 139–40. https://doi.org/10.1093/bioinformatics/btp616.
Smedley, Damian, Syed Haider, Benoit Ballester, et al. 2009.
“BioMart – Biological Queries Made Easy.” BMC
Genomics 10 (1): 22. https://doi.org/10.1186/1471-2164-10-22.
Tarazona, Sonia, Fernando García, Alberto Ferrer, Joaquín Dopazo, and
Ana Conesa. 2011. “NOIseq: A RNA-Seq Differential Expression
Method Robust for Sequencing Depth Biases.”
EMBnet.journal 17 (B): 18–19. https://doi.org/10.14806/ej.17.B.265.
Yu, Guangchuang. n.d. 📖 Introduction Biomedical Knowledge Mining
Using GOSemSim and clusterProfiler. Accessed June 21, 2024. https://yulab-smu.top/biomedical-knowledge-mining-book/.
LS0tCnRpdGxlOiAiQW5hbHlzZXMgb2YgdGhlIElQUkdDIHRyYW5zY3JpcHQgYWJ1bmRhbmNlcy4iCmF1dGhvcjogImF0YiBhYmVsZXdAZ21haWwuY29tIgpkYXRlOiAiYHIgU3lzLkRhdGUoKWAiCmJpYmxpb2dyYXBoeTogYXRiLmJpYgpvdXRwdXQ6CiAgaHRtbF9kb2N1bWVudDoKICAgIGNvZGVfZG93bmxvYWQ6IHRydWUKICAgIGNvZGVfZm9sZGluZzogc2hvdwogICAgZmlnX2NhcHRpb246IHRydWUKICAgIGZpZ19oZWlnaHQ6IDcKICAgIGZpZ193aWR0aDogNwogICAgaGlnaGxpZ2h0OiB6ZW5idXJuCiAgICBrZWVwX21kOiBmYWxzZQogICAgbW9kZTogc2VsZmNvbnRhaW5lZAogICAgbnVtYmVyX3NlY3Rpb25zOiB0cnVlCiAgICBzZWxmX2NvbnRhaW5lZDogdHJ1ZQogICAgdGhlbWU6IHJlYWRhYmxlCiAgICB0b2M6IHRydWUKICAgIHRvY19mbG9hdDoKICAgICAgY29sbGFwc2VkOiBmYWxzZQogICAgICBzbW9vdGhfc2Nyb2xsOiBmYWxzZQogICAgICBybWRmb3JtYXRzOjpyZWFkdGhlZG93bjoKICAgICAgICBjb2RlX2Rvd25sb2FkOiB0cnVlCiAgICAgICAgY29kZV9mb2xkaW5nOiBzaG93CiAgICAgICAgZGZfcHJpbnQ6IHBhZ2VkCiAgICAgICAgZmlnX2NhcHRpb246IHRydWUKICAgICAgICBmaWdfaGVpZ2h0OiA3CiAgICAgICAgZmlnX3dpZHRoOiA3CiAgICAgICAgaGlnaGxpZ2h0OiB6ZW5idXJuCiAgICAgICAgd2lkdGg6IDMwMAogICAgICAgIGtlZXBfbWQ6IGZhbHNlCiAgICAgICAgbW9kZTogc2VsZmNvbnRhaW5lZAogICAgICAgIHRvY19mbG9hdDogdHJ1ZQogICAgICAgIEJpb2NTdHlsZTo6aHRtbF9kb2N1bWVudDoKICAgICAgICAgIGNvZGVfZG93bmxvYWQ6IHRydWUKICAgICAgICAgIGNvZGVfZm9sZGluZzogc2hvdwogICAgICAgICAgZmlnX2NhcHRpb246IHRydWUKICAgICAgICAgIGZpZ19oZWlnaHQ6IDcKICAgICAgICAgIGZpZ193aWR0aDogNwogICAgICAgICAgaGlnaGxpZ2h0OiB6ZW5idXJuCiAgICAgICAgICBrZWVwX21kOiBmYWxzZQogICAgICAgICAgbW9kZTogc2VsZmNvbnRhaW5lZAogICAgICAgICAgdG9jX2Zsb2F0OiB0cnVlCi0tLQoKPHN0eWxlIHR5cGU9InRleHQvY3NzIj4KYm9keSwgdGQgewogIGZvbnQtc2l6ZTogMTZweDsKfQpjb2RlLnJ7CiAgZm9udC1zaXplOiAxNnB4Owp9CnByZSB7CiAgZm9udC1zaXplOiAxNnB4Cn0KYm9keSAubWFpbi1jb250YWluZXIgewogIG1heC13aWR0aDogMTYwMHB4Owp9Cjwvc3R5bGU+CgpgYGB7ciBvcHRpb25zLCBpbmNsdWRlPUZBTFNFfQpsaWJyYXJ5KGhwZ2x0b29scykKbGlicmFyeShkcGx5cikKbGlicmFyeShlbnJpY2hwbG90KQpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkoZ2dyZXBlbCkKbGlicmFyeShncHJvZmlsZXIyKQp0dCA8LSB0cnkoZGV2dG9vbHM6OmxvYWRfYWxsKCJ+L2hwZ2x0b29scyIpKQprbml0cjo6b3B0c19rbml0JHNldCgKICBwcm9ncmVzcyA9IFRSVUUsIHZlcmJvc2UgPSBUUlVFLCB3aWR0aCA9IDkwLCBlY2hvID0gVFJVRSkKa25pdHI6Om9wdHNfY2h1bmskc2V0KAogIGVycm9yID0gVFJVRSwgZmlnLndpZHRoID0gOCwgZmlnLmhlaWdodCA9IDgsIGZpZy5yZXRpbmEgPSAyLAogIG91dC53aWR0aCA9ICIxMDAlIiwgZGV2ID0gInBuZyIsCiAgZGV2LmFyZ3MgPSBsaXN0KHBuZyA9IGxpc3QodHlwZSA9ICJjYWlyby1wbmciKSkpCm9sZF9vcHRpb25zIDwtIG9wdGlvbnMoZGlnaXRzID0gNCwgc3RyaW5nc0FzRmFjdG9ycyA9IEZBTFNFLCBrbml0ci5kdXBsaWNhdGUubGFiZWwgPSAiYWxsb3ciKQpnZ3Bsb3QyOjp0aGVtZV9zZXQoZ2dwbG90Mjo6dGhlbWVfYncoYmFzZV9zaXplID0gMTIpKQp2ZXIgPC0gIjIwMjQwOCIKcHJldmlvdXNfZmlsZSA8LSAiIgp2ZXIgPC0gZm9ybWF0KFN5cy5EYXRlKCksICIlWSVtJWQiKQoKIyN0bXAgPC0gc20obG9hZG1lKGZpbGVuYW1lPXBhc3RlMChnc3ViKHBhdHRlcm49IlxcLlJtZCIsIHJlcGxhY2U9IiIsIHg9cHJldmlvdXNfZmlsZSksICItdiIsIHZlciwgIi5yZGEueHoiKSkpCnJtZF9maWxlIDwtICJpcHJnY19hbmFseXNlc18yMDI0MDguUm1kIgpzYXZlZmlsZSA8LSBnc3ViKHBhdHRlcm4gPSAiXFwuUm1kIiwgcmVwbGFjZSA9ICJcXC5yZGFcXC54eiIsIHggPSBybWRfZmlsZSkKIyMgTm8gb25lIHdpbGwgZXZlciByZWFkIHRoaXMgSSBzdXNwZWN0LCBidXQgdGhlcmUgd2lsbCBfbmV2ZXJfIGJlIGEgd29yZCBwcm9kdWNlZAojIyBieSBhbiBMTE0gaW4gYSBkb2N1bWVudCB3cml0dGVuIGJ5IG1lLgpgYGAKCiMgU2V0IHNvbWUgcGFyYW1ldGVycyB3aGljaCB3aWxsIGJlIHVzZWQgbGF0ZXIKCmBgYHtyfQojIyBBZGp1c3RlZCBwLXZhbHVlIGN1dG9mZiB3aGVuIHdvcmtpbmcgb24gdGhlIGluY2x1c2lvbiBzZXRzLgphZGpwX2N1dG9mZiA8LSAwLjEKZGVmYXVsdF9mc3RyaW5nIDwtICJ+IDAgKyBjb25kaXRpb24iCiMjIEFsbG93IDEwIEdPIGNhdGVnb3JpZXMgdG8gYmUgZGlzcGxheWVkIHdoZW4gcGxvdHRpbmcuCmdvX2NhdGVnb3JpZXMgPC0gMTQKIyMgQWxsb3cgZ3JvdXBzIGhpZ2hlciB1cCBpbiB0aGUgdHJlZSBmb3IgY2x1c3RlclByb2ZpbGVyIHJlc3VsdHMuCmdvX2xldmVsIDwtIDIKbGFiZWxfY29sdW1uIDwtICJtZ2lfc3ltYm9sIiAjIyBTZXQgdGhlIGNvbHVtbiB1c2VkIHRvIGV4dHJhY3QgZ2VuZSBzeW1ib2xzIHJhdGhlciB0aGFuIEVOU0cuLi4uLgojIyBMb2dGQyBjdXRvZmYgd2hlbiB3b3JraW5nIG9uIHRoZSBpbmNsdXNpb24gc2V0cy4KbGZjX2N1dG9mZiA8LSAwLjEKIyMgSW5jcmVhc2UgdGhlIG1heGltdW0gYWxsb3dlZCBncm91cCBzaXplIHdoZW4gd29ya2luZyB3aXRoIGNsdXN0ZXJQcm9maWxlcgojIyBUaGlzIHNob3VsZCBicmluZyBvdXQgc29tZSBvZiB0aGUgbW9yZSBnZW5lcmFsIGdyb3VwcyBsaWtlICdjZWxsYm9keScKbWF4X2dyb3Vwc2l6ZSA8LSAyMDAwCiMjIFNwZWVkIHVwIGNsdXN0ZXJQcm9maWxlciBieSBjaG9vc2luZyB0aGUgY29ycmVjdCBrZXl0eXBlcwpvcmdkYl9mcm9tIDwtICJFTlNFTUJMVFJBTlMiCiMjIE1BIHBsb3QgcG9pbnQgb3V0bGluZXMKb3V0bGluZSA8LSBGQUxTRQpzYW1wbGVfc2hlZXQgPC0gInNhbXBsZV9zaGVldHMvMjAyNDA2MDZfb25seV91bWRfc2VxdWVuY2VkX21vZGlmaWVkLnhsc3giCmBgYAoKIyBJbnRyb2R1Y3Rpb24KClRoaXMgZG9jdW1lbnQgaXMgYSBjb3B5IG9mIHRoZSBpcHJnY19hbmFseXNlc18yMDI0MDguUm1kIGRvY3VtZW50LAp3aXRoIGEgZmV3IGltcG9ydGFudCBkaWZmZXJlbmNlczoKCjEuICBJIHdpbGwgbm90IGJlIHNwZW5kaW5nIHRpbWUgdG8gY29tcGFyZSB0aGUgdmFyaW91cyAoZGUpZHVwbGljYXRpb24KICAgIG1ldGhvZHMvcmVzdWx0cy4KMi4gIFRoaXMgd2lsbCBjcmVhdGUsIHZpc3VhbGl6ZSwgYW5kIGFuYWx5emUgdHJhbnNjcmlwdC1sZXZlbAogICAgYWJ1bmRhbmNlcyByYXRoZXIgdGhhbiBnZW5lcy4KMy4gIEkgaGF2ZSBub3QgeWV0IGRlY2lkZWQsIGJ1dCBJIG1pZ2h0IHBsYXkgd2l0aCB0aGUgd3QgZmlsdGVyaW5nIHRvCiAgICB0cnkgdG8gbWFrZSBpdCBjbGVhcmVyLgo0LiAgSSB3aWxsIGxpa2VseSByZW1vdmUgc29tZSBjb21tZW50cyBhbmQgdGV4dCBkZXNjcmliaW5nIHdoYXQKICAgIGlzIGdvaW5nIG9uLgo1LiAgQWxsIG91dHB1dCBkaXJlY3RvcmllcyBnZXQgYSBzdWZmaXggJ190eCcKCldpdGggdGhhdCBpbiBtaW5kLCB0aGUgZ29hbCBpcyB0byByZXBlYXQgb3VyIGdlbmUtbGV2ZWwgYW5hbHlzZXMsIGJ1dAp1c2luZyB0aGUgdHJhbnNjcmlwdCBxdWFudGlmaWNhdGlvbnMgZGVyaXZlZCBmcm9tIGZlYXR1cmVDb3VudHMuICBUaGlzCmlzIGluIHJlc3BvbnNlIHRvIGEgcmV2aWV3IHdobyBzdWdnZXN0ZWQgdGhhdCBzb21lIGdlbmVzIGhhdmUKcG90ZW50aWFsbHkgaW50ZXJlc3RpbmcgYW5kIHZhcmlhYmxlIHRyYW5zY3JpcHRzLiAgVGhhdCBpcyBhIHNpbXBsZQplbm91Z2ggcXVlcnkgdG8gYWRkcmVzcywgc28gbGV0IHVzIHNlZSB3aGF0IHdlIGdldCEKCiMgQSBub3RlIGFib3V0IGltcGxlbWVudGF0aW9uCgpJIHdvdWxkIGxpa2UgdG8gaW1wcm92ZSB0aGlzIGRvY3VtZW50IGJ5IGNvbXBhcmluZy9jb250cmFzdGluZyB0aGUKbWV0aG9kb2xvZ2llcyBwZXJmb3JtZWQgYnkgb3RoZXIgZ3JvdXBzIGFuZCB0aG9zZSBwZXJmb3JtZWQgYnkgbWUgaW4KaXQuICBJIG5ldmVyIGZ1bGx5IGFwcHJlY2lhdGVkIHRoZSBzdWl0ZSBvZiBjb21wdXRhdGlvbmFsIG1ldGhvZHMKYXBwbGllZCBieSBwcmV2aW91cyBncm91cHMgd2hlbiBleGFtaW5pbmcgVFJBUCBkYXRhOyBJIGluc3RlYWQgc2ltcGx5CmZvbGxvd2VkIFRoZXJlc2EncyBub3RlYm9vayB3aXRob3V0IGNvbnNpZGVyaW5nIG90aGVyIHBvc3NpYmlsaXRpZXMuCgpJIHRoZXJlZm9yZSBzcGVudCBhIGxpdHRsZSB0aW1lIHN0ZXBwaW5nIHRocm91Z2ggaGVyIHRoZXNpcyBhbmQKcHVsbGluZyBvdXQgdGhlIHJlbGV2YW50IHBhcGVycyBpbiB0aGUgaG9wZXMgb2YgbGVhcm5pbmcgdGhlc2UgdmFyaW91cwptZXRob2RzLiAgSSBzaG91bGQgdGhlcmVmb3JlIGJlIGFibGUgc29vbiB0byBjb21wYXJlL2NvbnRyYXN0IHRoZQp2YXJpb3VzIG1ldGhvZHMgZW1wbG95ZWQgYnkgb3RoZXIgbGFicyBpbiBhZGRpdGlvbiB0byBjb3B5aW5nClRoZXJlc2EncyBsb2dpYy4KCiMjIFRoZSBmb2xsb3dpbmcgYmxvY2sgY2Fubm90IHdvcmsgaW4gdGhlIGNvbnRhaW5lcgoKVGhlIGZvbGxvd2luZyBibG9jayBhc3N1bWVzIHRoZSBmdWxsIHRyZWUgb2YgcHJlcHJvY2Vzc2VkIGRhdGEgd2l0aAp0aGUgbG9ncyBmcm9tIHRoZSB0cmltbWVyLCBtYXBwaW5nLCB1bWkgZGVkdXBsaWNhdGlvbiwgY291bnRpbmcsIGV0Yy4KQXMgYSByZXN1bHQgaXQgY2Fubm90IHdvcmsgaW4gdGhlIGNvbnRhaW5lciB3aGljaCBoYXMgb25seSB0aGUgdmFyaW91cwpjb3VudCB0YWJsZXMuCgpBcyBhIHJlc3VsdCwgSSBhbSBpbmNsdWRpbmcgYSBjb3B5IG9mIHRoaXMgc2hlZXQgYWZ0ZXIgcnVubmluZyB0aGUKZm9sbG93aW5nIGJsb2NrIGluIG15IHdvcmtpbmcgdHJlZS4gIEkgc3VwcG9zZSBmb3IgdGhlIG1vbWVudCB5b3Ugd2lsbApoYXZlIHRvIHRydXN0IHRoYXQgaXQgd29ya2VkLiAgKGZvciByaWdodCBub3csIHdoZW4gdGVzdGluZyBvdXQgdGhpcwpjb250YWluZXIsIEkgYW0ganVzdCBzZW5kaW5nIHRoZSBSIHdvcmtpbmcgZGlyZWN0b3J5IHRvIG15IHRyZWUgZm9yCnRoaXMgYmxvY2ssIHRoZW4gbW92aW5nIGl0IGJhY2suCgpJIHdpbGwgbmVlZCB0byBtYW51YWxseSBlZGl0IG9uZSBjb2x1bW4gdGhvdWdoLCB0aGUgc3ltbGluayBjb2x1bW4KZnJvbSBUaGVyZXNhIGhhcyBhIHNlcmllcyBvZiBwYXRocyB3aGljaCBkbyBub3Qgd29yayBpbiB0aGUgY29udGFpbmVyLgoKCmBgYHtyLCBldmFsPUZBTFNFfQp1bWlfc3BlYyA8LSBtYWtlX3JuYXNlcV9zcGVjKHVtaSA9IFRSVUUpCmlwcmdjXzIwMjJfbWV0YSA8LSBnYXRoZXJfcHJlcHJvY2Vzc2luZ19tZXRhZGF0YSgic2FtcGxlX3NoZWV0cy8yMDI0MDYwNl9vbmx5X3VtZF9zZXF1ZW5jZWQueGxzeCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBzcGVjID0gdW1pX3NwZWMsIHNwZWNpZXMgPSAibW0zOV8xMTIiLCB2ZXJib3NlID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGJhc2VkaXIgPSAicHJlcHJvY2Vzc2luZy91bWRfc2VxdWVuY2VkIikKY29sbmFtZXMoaXByZ2NfMjAyMl9tZXRhW1sibmV3X21ldGEiXV0pCmhlYWQoaXByZ2NfMjAyMl9tZXRhW1sibmV3X21ldGEiXV0pCmBgYAoKYGBge3J9Cm1zaWdkYiA8LSAicmVmZXJlbmNlL21zaWdkYl92MjAyNC4xLk1tLmRiIgptc2lnX2RhdGEgPC0gTlVMTAptYWtlX3RyYW5zcGFyZW50IDwtIGZ1bmN0aW9uKCkgewogIGdncGxvdDI6OnRoZW1lKAogICAgcGFuZWwuYmFja2dyb3VuZCA9IGVsZW1lbnRfcmVjdChmaWxsID0gJ3RyYW5zcGFyZW50JyksCiAgICBwbG90LmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbCA9ICd0cmFuc3BhcmVudCcsIGNvbG9yID0gTkEpLAogICAgcGFuZWwuZ3JpZC5tYWpvciA9IGVsZW1lbnRfYmxhbmsoKSwKICAgIHBhbmVsLmdyaWQubWlub3IgPSBlbGVtZW50X2JsYW5rKCksCiAgICBsZWdlbmQuYmFja2dyb3VuZCA9IGVsZW1lbnRfcmVjdChmaWxsID0gJ3RyYW5zcGFyZW50JyksCiAgICBsZWdlbmQuYm94LmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbCA9ICd0cmFuc3BhcmVudCcpKQp9CmBgYAoKIyBDb2xsZWN0IHRoZSBjb3VudCB0YWJsZXMKCkkgdXNlZCBzYWxtb24vZmVhdHVyZWNvdW50cy9ldGMgd2l0aCBDRFMvbVJOQSBmZWF0dXJlcyBvbiBvdXIgY29tcHV0ZQpjbHVzdGVyIGFuZCB1c2VkIHRoZSBhYm92ZSBnYXRoZXIgZnVuY3Rpb24gdG8gYWRkIGEgY29sdW1uIHRvIHRoZQptZXRhZGF0YSBjb250YWluaW5nIHRoZSBmaWxlbmFtZXMgcHJvZHVjZWQuICBUaGUgZm9sbG93aW5nIHJlYWRzIHRoYXQKY29sdW1uIGFuZCBjcmVhdGVzIGEgdGFyYmFsbCBvZiB0aGUgZmlsZXMuICBPbmUgdGhpbmcgSSBuZWVkIHRvIGRvOgptb2RpZnkgdGhhdCB0byBhY2NlcHQgYSB2ZXRvciBvZiBjb2x1bW5zIHNvIEkgY2FuIGVhc2lseSBjb2xsZWN0IHIxK3IyCmFuZCBzdHVmZiBsaWtlIHRoYXQuCgpBcyB0aGUgbmFtZSBzdWdnZXN0cywgdGhlc2UgYXJlIG1STkEgY291bnRzIGZvbGxvd2luZyB0aGUKZGVkdXBsaWNhdGlvbiBtYXJraW5nIGFuZCByZW1vdmFsIGZyb20gdGhlIGluaXRpYWwgaGlzYXQgYWxpZ25tZW50cwp2aWEgdW1pdG9vbHMuCgpgYGB7ciwgZXZhbD1GQUxTRX0KIyMgYWxsIHRoZSBpbnB1dCBmaWxlcyBhcmUgYWxyZWFkeSB4eiBjb21wcmVzc2VkCm1ybmFfY291bnRzIDwtIHRhcl9tZXRhX2NvbHVtbihzYW1wbGVfc2hlZXQsIGNvbHVtbiA9ICJ1bWlfZGVkdXBfbXJuYV9jb3VudCIsIGNvbXByZXNzID0gTlVMTCkKYGBgCgpJIHdpbGwgZmlndXJlIG91dCBpZiBJIGNhbiBsZWF2ZSBtU2lnREIgTTIgaW4gdGhpcyBpbWFnZTsgaWYgbm90LCB0aGVuCmFueSBhbmFseXNlcyBkZXBlbmRpbmcgb24gdGhvc2UgZ2VuZSBzZXRzIHdpbGwgZmFpbC4KCmBgYHtyfQptMl9nc2MgPC0gdHJ5KGxvYWRfZ210X3NpZ25hdHVyZXMoc2lnbmF0dXJlcyA9IG1zaWdkYiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNpZ25hdHVyZV9jYXRlZ29yeSA9ICJNMiIpLCBzaWxlbnQgPSBUUlVFKQojIyBJIGRvIG5vdCB0aGluayBJIGhhdmUgcGVybWlzc2lvbiB0byBsb2FkIHRoZSBtc2lnZGIgaW4gdGhlIGNvbnRhaW5lcgojIyBTbywgaWYgdGhpcyBmYWlscywganVzdCBsb2FkIGl0IGZyb20gR1NWQURhdGEsIG9oIHdhaXQgbm8sIEdTVkFkYXRhIGlzIGh1bWFuLgppZiAoInRyeS1lcnJvciIgJWluJSBjbGFzcyhtMl9nc2MpKSB7CiAgd2FybmluZygiVW5hYmxlIHRvIGxvYWQgdGhlIE0yIE1zaWdEQiBkYXRhLiIpCn0KYGBgCgojIEFubm90YXRpb24gZGF0YQoKSSBhbSBwdWxsaW5nIHRoaXMgZnJvbSBUaGVyZXNhJ3MgYW54b250cmFwUl9waXBlbGluZS5SbWQsIHByaW1hcmlseQpiZWNhdXNlIGl0IGxvb2tzIHNpbWlsYXIgdG8gdGhlIG90aGVyIGRvY3VtZW50cywgYnV0IHdhcyBtb2RpZmllZCBtb3JlCnJlY2VudGx5LiAgSSB3aWxsIGNoYW5nZSBpdCBzbGlnaHRseSwgcHJpbWFyaWx5IGJlY2F1c2UgSSBncmFiYmVkIGEKbmV3IG1tdXNjdWx1cyBhc3NlbWJseSBhbmQgdGhlcmVmb3JlIEkgd2lsbCBwdWxsIHRoZSBtbXVzY3VsdXMKYW5ub3RhdGlvbnMgZnJvbSBhIHNwZWNpZmljIGJpb21hcnQKKEBzbWVkbGV5QmlvTWFydEJpb2xvZ2ljYWxRdWVyaWVzMjAwOSkgYXJjaGl2ZSB0aGF0IHNob3VsZCBtYXRjaCBpdC4KCkEgbm90ZSBmcm9tIHRoZSBmdXR1cmU6IG11bHRpcGxlIGVuc2VtYmwgYXJjaGl2ZSBzZXJ2ZXJzIGhhdmUgYmVlbgp0YWtlbiBvZmZsaW5lIHNpbmNlIGxhc3QgSSByYW4gdGhpcy4gIExldCB1cyBzZWUgaWYgRmViLiAyMDIzIHN0aWxsCndvcmtzLgoKIyMgQW4gaW1wb3J0YW50IG5vdGUhCgpJbiB0aGUgcmVjZW50IHBhc3QsIGVuc2VtYmwgcXVlcmllcyBoYXZlIGJlY29tZSBpbmNvbnNpc3RlbnQsIGZhaWxpbmcKbXVjaCBtb3JlIG9mdGVuIHRoYW4gZXZlciBpbiB0aGUgcGFzdC4gIEkgZG8gbm90IHRoaW5rIHRoaXMgaXMgdGhlCmZhdWx0IG9mIGVuc2VtYmw7IGJ1dCBJIHRoaW5rIEkgbmVlZCBhIGZhbGxiYWNrIG1lY2hhbmlzbSBmb3IKY29sbGVjdGluZyBhbm5vdGF0aW9uIGluZm9ybWF0aW9uLgoKSW4gdGhlIGNhc2Ugb2YgZW5zZW1ibCwgaXQgc2hvdWxkIGJlIHRyaXZpYWwgKGJ1dCBsZXNzIGZ1bikgdG8gdXNlIGEKY29tYmluYXRpb24gb2YgdGhlIGxvY2FsbHkgaW5zdGFsbGVkIG9yZ2RiIGFuZCB0eGRiIGRhdGFiYXNlcy4KClRoaXMgZG9lcyBvcGVuIGEgcmlzayB0aGF0IHRoZSBzZXQgb2YgZ2VuZXMgd2l0aCBhbm5vdGF0aW9ucyB3aWxsIGJlCmRpZmZlcmVudCBkZXBlbmRpbmcgb24gd2hlbiB0aGUgY29udGFpbmVyIGlzIHJ1biBkdWUgdG8gZGlmZmVyZW5jZXMKYmV0d2VlbiB0aGUgb3JnZGIvdHhkYiBpbnN0YW5jZSBhbmQgdGhlIEZlYiAyMDIzIGJpb21hcnQuICBJIGFtIG5vdApzdXJlIHRoZXJlIGlzIG11Y2ggSSBjYW4gZG8gYWJvdXQgdGhhdCBleGNlcHQgdG8gYnVuZGxlIHRoZSBzZXQgb2YKYW5ub3RhdGlvbnMgSSBkb3dubG9hZGVkIGluIHRoZSBjb250YWluZXIgLS0gc2luY2UKbG9hZF9iaW9tYXJ0X2Fubm90YXRpb25zKCkgZG9lcyBzYXZlIGEgcmRhIGNvcHkgb2YgaXRzIGRvd25sb2FkLgoKb2ssIEkgZGlkIGJvdGguICBJZiB5b3UsIGRlYXIgcmVhZGVyLCB3aXNoIHRvIGRvd25sb2FkIHlvdXIgb3duCmFubm90YXRpb25zLCBhbmQgZW5zZW1ibCBpcyBoYXZpbmcgdHJvdWJsZXMsIHRoZSBmb2xsb3dpbmcgc2hvdWxkIHdvcmsKd2l0aG91dCBhIHByb2JsZW07IGluIGFkZGl0aW9uIHRoZSByZGEgYW5ub3RhdGlvbnMgYXJlIGluIC9kYXRhIG9mIHRoZQpjb250YWluZXIgYW5kIHNob3VsZCBnZXQgbG9hZGVkLgoKYGBge3J9CnR4X2dlbmVfbWFwIDwtIGRhdGEuZnJhbWUoKQojI21tX2Fubm90IDwtIHRyeShsb2FkX2Jpb21hcnRfYW5ub3RhdGlvbnMoc3BlY2llcyA9ICJtbXVzY3VsdXMiLCB5ZWFyID0gIjIwMjMiLCBtb250aCA9ICIwMiIsIG92ZXJ3cml0ZSA9IFRSVUUpKQptbV9hbm5vdCA8LSB0cnkobG9hZF9iaW9tYXJ0X2Fubm90YXRpb25zKHNwZWNpZXMgPSAibW11c2N1bHVzIiwgYXJjaGl2ZSA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHN5bWJvbF9jb2x1bW5zID0gbGFiZWxfY29sdW1uKSkKbW1fdHhfYW5ub3QgPC0gbW1fYW5ub3RbWyJhbm5vdGF0aW9uIl1dCiMjIHllYWgsIHRoZSBJRCB0YWcgaW4gbXkgZ2ZmIGZpbGUgaGFzIHRyYW5zY3JpcHQ6IGFzIGEgcHJlZml4LCBzbyB0aGUgZmVhdHVyZUNvdW50cyBvdXRwdXRzCiMjIGluY2x1ZGVzIGl0Li4uICBJIHdpbGwgZml4IHRoYXQgaW5wb3N0Lgpyb3duYW1lcyhtbV90eF9hbm5vdCkgPC0gcGFzdGUwKCJ0cmFuc2NyaXB0OiIsIG1tX3R4X2Fubm90W1siZW5zZW1ibF90cmFuc2NyaXB0X2lkIl1dKQoKI21tX29yZ2RiIDwtIGxvYWRfb3JnZGJfYW5ub3RhdGlvbnMoCiMgIG9yZ2RiID0gIk11cy5tdXNjdWx1cyIsIGtleXR5cGUgPSAiQUNDTlVNIiwKIyAgZmllbGRzID0gYygiVFhOQU1FIiwgIlRYVFlQRSIsICJUWENIUk9NIiwgIlRYU1RBUlQiLCAiVFhFTkQiLCAiVFhJRCIsICJUWFNUUkFORCIsICJNR0lEIikpCmBgYAoKIyBIaXNhdDIgc3VtbWFyaXplZEV4cGVyaW1lbnRzIGJ5IHRyYW5zY3JpcHQKCiMjIENvbG9yIGNob2ljZXMgYW5kIHJldXNlZCBwYXJhbWV0ZXJzCgpgYGB7cn0KY29sb3JfY2hvaWNlcyA8LSBsaXN0KAogICJhbGwiID0gbGlzdCgKICAgICJwMDhfaGV0X2RsZ24iID0gIiNFNzI5OEEiLAogICAgInAxNV9oZXRfZGxnbiIgPSAiI0U3Mjk4QSIsCiAgICAicDA4X2hldF9yZXRpbmEiID0gIiMyMzhCNDUiLAogICAgInAxNV9oZXRfcmV0aW5hIiA9ICIjMjM4QjQ1IiwKICAgICJwMDhfaGV0X3NjbiIgPSAiIzQyOTJDNiIsCiAgICAicDE1X2hldF9zY24iID0gIiM0MjkyQzYiLAogICAgInAwOF9rb19kbGduIiA9ICIjQzk5NEM3IiwKICAgICJwMTVfa29fZGxnbiIgPSAiI0M5OTRDNyIsCiAgICAicDA4X2tvX3JldGluYSIgPSAiIzc0YzQ3NiIsCiAgICAicDE1X2tvX3JldGluYSIgPSAiIzc0YzQ3NiIsCiAgICAicDA4X2tvX3NjbiIgPSAiIzlCQ0FFMSIsCiAgICAicDE1X2tvX3NjbiIgPSAiIzlCQ0FFMSIsCiAgICAicDA4X3d0X2RsZ24iID0gIiM5ODAwNDMiLAogICAgInAxNV93dF9kbGduIiA9ICIjOTgwMDQzIiwKICAgICJwMDhfd3RfcmV0aW5hIiA9ICIjMDA0MDA4IiwKICAgICJwMTVfd3RfcmV0aW5hIiA9ICIjMDA0MDA4IiwKICAgICJwMDhfd3Rfc2NuIiA9ICIjMDg1MTlDIiwKICAgICJwMTVfd3Rfc2NuIiA9ICIjMDg1MTlDIiwKICAgICJwNjBfd3RfZGxnbiIgPSAiIzMzMzMzMyIsCiAgICAicDYwX3d0X3JldGluYSIgPSAiIzIyMjIyMiIsCiAgICAicDYwX3d0X3NjbiIgPSAiIzExMTExMSIpLAogICJnZW5vX2xvYyIgPSBsaXN0KAogICAgImhldF9kbGduIiA9ICIjRTcyOThBIiwKICAgICJoZXRfcmV0aW5hIiA9ICIjMjM4QjQ1IiwKICAgICJoZXRfc2NuIiA9ICIjNDI5MkM2IiwKICAgICJrb19kbGduIiA9ICIjQzk5NEM3IiwKICAgICJrb19yZXRpbmEiID0gIiM3NGM0NzYiLAogICAgImtvX3NjbiIgPSAiIzlCQ0FFMSIsCiAgICAid3RfZGxnbiIgPSAiIzk4MDA0MyIsCiAgICAid3RfcmV0aW5hIiA9ICIjMDA0MDA4IiwKICAgICJ3dF9zY24iID0gIiMwODUxOUMiKSwKICAibG9jYXRpb24iID0gbGlzdCgKICAgICJyZXRpbmEiID0gIiMwMDQwMDgiLAogICAgImRsZ24iID0gIiM5ODAwNDMiLAogICAgInNjbiIgPSAiIzA4NTE5QyIpLAogICJnZW5vdHlwZSIgPSBsaXN0KAogICAgInd0IiA9ICIjNzRjNDc2IiwKICAgICJoZXQiID0gIiMyMzhCNDUiLAogICAgImtvIiA9ICIjMDA2RDJDIiksCiAgInRpbWUiID0gbGlzdCgKICAgICJwMDgiID0gIiM1RTEwNEIiLAogICAgInAxNSIgPSAiIzRFOTIzMSIpKQpjb2xvcnMgPC0gY29sb3JfY2hvaWNlc1tbImdlbm9fbG9jIl1dCnRpbWVfY29sb3JzIDwtIGxpc3QoCiAgInAwOF9oZXRfZGxnbiIgPSAiI0U3Mjk4QSIsCiAgInAxNV9oZXRfZGxnbiIgPSAiIzhhMTg1MiIsCiAgInAwOF9oZXRfcmV0aW5hIiA9ICIjMjM4QjQ1IiwKICAicDE1X2hldF9yZXRpbmEiID0gIiMxNTUzMjkiLAogICJwMDhfaGV0X3NjbiIgPSAiIzQyOTJDNiIsCiAgInAxNV9oZXRfc2NuIiA9ICIjMjc1Nzc2IiwKICAicDA4X2tvX2RsZ24iID0gIiNDOTk0QzciLAogICJwMTVfa29fZGxnbiIgPSAiIzc4NTg3NyIsCiAgInAwOF9rb19yZXRpbmEiID0gIiM3NEM0NzYiLAogICJwMTVfa29fcmV0aW5hIiA9ICIjNDU3NTQ2IiwKICAicDA4X2tvX3NjbiIgPSAiIzlCQ0FFMSIsCiAgInAxNV9rb19zY24iID0gIiM1ZDc5ODciKQpgYGAKCiMjIFRoZSBUcmFuc2NyaXB0IGFidW5kYW5jZXMKClRoaXMgcGVyaGFwcyBkZXNlcnZlcyBhIGxpdHRsZSBiaXQgb2YgZXhwbGFuYXRpb246IHRoZSBwcm9jZXNzIGZvcgp1c2luZyBVTUlzIGdvZXMgYXMgZm9sbG93czoKCjEuICBFeGFtaW5lIGFsbCB0aGUgcmF3IHJlYWRzLCBleHRyYWN0IHRoZSBVTUkgSURzLCBhbmQgYWRkIHRoZW0gYXMKICAgIGNvbW1lbnRzIHRvIHRoZSBmYXN0cSBmaWxlIChvciByZXdyaXRlIHRoZSByZWFkIElEKQoyLiAgQWxpZ24gYWxsIHJlYWRzIGFnYWluc3QgdGhlIGdlbm9tZS4KMy4gIFRha2UgdGhlIHJlc3VsdGluZyBiYW0gZmlsZSBhbmQgZmluZCByZWFkcyBhdCB0aGUgc2FtZSBsb2NhdGlvbgogICAgd2l0aCB0aGUgc2FtZSBJRChzKSBhbmQgZmlsdGVyIHRoZSBhbGlnbm1lbnQgc28gdGhhdCB0aGVyZSByZW1haW5zCiAgICBvbmx5IDEgcmVwcmVzZW50YXRpdmUgZnJvbSBlYWNoIElELgo0LiAgQ291bnQgdXAgdGhlIGZlYXR1cmVzIG9mIGludGVyZXN0LgoKSSB0aGVyZWZvcmUgaW52b2tlZCBmZWF0dXJlQ291bnRzIG9uIHRoZSB1bWkgZGVkdXBsaWNhdGVkIGJhbQphbGlnbm1lbnRzIChmb3VuZCBpbiBjb2x1bW4gJ3VtaV9kZWR1cF9vdXRwdXRfYmFtJyBCUCBpbiBteSBjb3B5IG9mCnRoZSBhdXRvbWFnaWNhbGx5IGdlbmVyYXRlZCBzYW1wbGUgc2hlZXQpIHVzaW5nIHRoZSByZXF1aXNpdGUgbW0zOCBnZmYKZmlsZSB3aXRoIHRyYW5zY3JpcHQgYXMgdGhlIGZlYXR1cmUgdHlwZSBhbmQgSUQgYXMgdGhlIHRhZy4KCk9oLCB0aGF0IHJlbWluZHMgbWUsIEkgbmVlZCB0byByZS1rZXkgdGhlIGFubm90YXRpb25zIHRvIHVzZSB0aGF0IGFuZApJIG1pZ2h0IG5lZWQgdG8gY2hlY2sgdGhhdCB0aGUgSURzIGRvIG9yIGRvIG5vdCBoYXZlIGEgcHJlZml4IGxpa2UKJ3RyYW5zY3JpcHQ6JyBvciB3aGF0ZXZlci4uLgoKYGBge3J9Cm1tMzhfaGlzYXRfdHggPC0gY3JlYXRlX3NlKHNhbXBsZV9zaGVldCwgZ2VuZV9pbmZvID0gbW1fdHhfYW5ub3QsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGZpbGVfY29sdW1uID0gInVtaV9kZWR1cF9tcm5hX2NvdW50IikgfD4KICBzZXRfY29uZGl0aW9ucyhmYWN0ID0gImdlbm9fbG9jX2F0YiIpIHw+CiAgc2V0X2JhdGNoZXMoZmFjdCA9ICJ0aW1lX2F0YiIpIHw+CiAgc2V0X2NvbG9ycyhjb2xvcl9jaG9pY2VzW1siZ2Vub19sb2MiXV0pCm1tMzhfaGlzYXRfdHgKCiMjIE5vdyB0aGF0IHdlIGNyZWF0ZWQgdGhlIGRhdGEgc3RydWN0dXJlIHdpdGggSURzIHRoYXQgaW5jbHVkZSB0aGUgdHJhbnNjcmlwdDogcHJlZml4LAojIyByZW1vdmUgaXQuLi4KbmV3X2lkcyA8LSBnc3ViKHggPSByb3duYW1lcyhhc3NheShtbTM4X2hpc2F0X3R4KSksIHBhdHRlcm4gPSAiXnRyYW5zY3JpcHQ6IiwgcmVwbGFjZW1lbnQgPSAiIikKcm93bmFtZXMobW0zOF9oaXNhdF90eCkgPC0gbmV3X2lkcwpyb3duYW1lcyhtbV90eF9hbm5vdCkgPC0gZ3N1Yih4ID0gcm93bmFtZXMobW1fdHhfYW5ub3QpLCBwYXR0ZXJuID0gIl50cmFuc2NyaXB0OiIsIHJlcGxhY2VtZW50ID0gIiIpCmFsbF9mYWN0IDwtIHBhc3RlMChjb2xEYXRhKG1tMzhfaGlzYXRfdHgpW1sidGltZV9hdGIiXV0sICJfIiwKICAgICAgICAgICAgICAgICAgIGNvbERhdGEobW0zOF9oaXNhdF90eClbWyJnZW5vX2xvY19hdGIiXV0pCmNvbERhdGEobW0zOF9oaXNhdF90eClbWyJ0aW1lX2dlbm9fbG9jIl1dIDwtIGFsbF9mYWN0CmRpbShhc3NheShtbTM4X2hpc2F0X3R4KSkKaGVhZChhc3NheShtbTM4X2hpc2F0X3R4KSkKYGBgCgojIE5vbi16ZXJvIENvdW50cyBwZXIgU2FtcGxlCgpBIG5lYXQgbGl0dGxlIGNoYW5nZSBJIGp1c3QgbWFkZTogd2hlbiBudWxsIHNldCB0aGUgeS1pbnRlcmNlcHQgdG8gdGhlCm1lYW4gcGVyY2VudGFnZSBvZiB1bml0cyBvYnNlcnZlZCAodHJhbnNjcmlwdHMgaW4gdGhpcyBjYXNlKS4KCmBgYHtyfQp0eF9ub256ZXJvICA8LSBwbG90X25vbnplcm8obW0zOF9oaXNhdF90eCkKcHAoZmlsZSA9ICIwMWRpYWdub3N0aWNfaW1hZ2VzX3R4L25vbnplcm9fdHhfdW5maWx0ZXJlZC5wZGYiLCBpbWFnZSA9IHR4X25vbnplcm9bWyJwbG90Il1dKQoKdHhfbGlic2l6ZSA8LSBwbG90X2xpYnNpemUobW0zOF9oaXNhdF90eCkKcHAoZmlsZSA9ICIwMWRpYWdub3N0aWNfaW1hZ2VzX3R4L3F1YW50c2l6ZV91bmZpbHRlcmVkLnBkZiIsIGltYWdlID0gdHhfbGlic2l6ZVtbInBsb3QiXV0pCmBgYAoKIyMgRXhjbHVkZSBwNjAKCmBgYHtyfQptbTM4X2hpc2F0X3R4IDwtIHN1YnNldF9zZShtbTM4X2hpc2F0X3R4LCBzdWJzZXQgPSAidGltZV9hdGIhPSdwNjAnIikKYGBgCgojIyBSZXBsb3QgdGhlIG5vbnplcm8gZ2VuZSBwbG90cwoKYGBge3J9CnR4X25vbnplcm9fZmlsdCA8LSBwbG90X25vbnplcm8obW0zOF9oaXNhdF90eCwgcGxvdF9sYWJlbHMgPSBGQUxTRSkKcHAoZmlsZSA9ICIwMWRpYWdub3N0aWNfaW1hZ2VzX3R4L25vbnplcm9fdHhfZmlsdC5wZGYiLCBpbWFnZSA9IHR4X25vbnplcm9fZmlsdFtbInBsb3QiXV0pCmBgYAoKIyBRdWljayBQQ0EsIHRoZW4gcmV0dXJuIHRvIFRoZXJlc2EncyBkb2N1bWVudAoKYGBge3J9CnR4X25vcm0gPC0gbm9ybWFsaXplKG1tMzhfaGlzYXRfdHgsIHRyYW5zZm9ybSA9ICJsb2cyIiwgY29udmVydCA9ICJjcG0iLAogICAgICAgICAgICAgICAgICAgICBub3JtID0gInF1YW50IiwgZmlsdGVyID0gVFJVRSkKdHhfbm9ybV9wY2EgPC0gcGxvdF9wY2EodHhfbm9ybSkKcHAoZmlsZSA9ICIwMWRpYWdub3N0aWNfaW1hZ2VzX3R4L3R4X25vcm1fcGNhLnBkZiIsIGltYWdlID0gdHhfbm9ybV9wY2FbWyJwbG90Il1dKQpgYGAKCmBgYHtyfQp0eF9sb2NfZ2VubyA8LSBzZXRfY29uZGl0aW9ucyhtbTM4X2hpc2F0X3R4LCBmYWN0ID0gImxvY2F0aW9uX2F0YiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbG9ycyA9IGNvbG9yX2Nob2ljZXNbWyJsb2NhdGlvbiJdXSkgfD4KICBzZXRfYmF0Y2hlcyhmYWN0ID0gImdlbm90eXBlX2F0YiIpCmBgYAoKIyMgVGhlIGFzc29jaWF0ZWQgUENBCgpBdCBkaWZmZXJlbnQgdGltZXMsIGl0IGFwcGVhcnMgdG8gbWUgdGhhdCBUaGVyZXNhIGhhcyBwcmVmZXJyZWQKc2xpZ2h0bHkgZGlmZmVyZW50IG5vcm1hbGl6YXRpb24gbWV0aG9kcywgcHJpbWFyaWx5IGEgbWl4IG9mIFRNTSBhbmQKcXVhbnRpbGUuCgpUaHVzIEkgd2lsbCB1c2UgZGlmZmVyZW50IHN1ZmZpeCBsZXR0ZXJzIHRvIGRlbm90ZSB2YXJpb3VzCm5vcm1hbGl6YXRpb25zIGVtcGxveWVkLCBhbmQgaWYgdGhleSB0dXJuIG91dCB0aGUgc2FtZSBJIHdpbGwgcGljayBvbmUgYXJiaXRyYXJpbHkuCgpgYGB7cn0KbG9jX2dlbm9fbnEgPC0gbm9ybWFsaXplKHR4X2xvY19nZW5vLCB0cmFuc2Zvcm0gPSAibG9nMiIsIGNvbnZlcnQgPSAiY3BtIiwKICAgICAgICAgICAgICAgICAgICAgICAgIGZpbHRlciA9IFRSVUUsIG5vcm0gPSAicXVhbnQiKQpsb2NhdGlvbl9nZW5vdHlwZV9wY2EgPC0gcGxvdF9wY2EobG9jX2dlbm9fbnEpCnBwKGZpbGUgPSAiMDFkaWFnbm9zdGljX2ltYWdlc190eC9sb2NhdGlvbl9nZW5vdHlwZV9ub3JtX3BjYS5wZGYiLCBpbWFnZSA9IGxvY2F0aW9uX2dlbm90eXBlX3BjYVtbInBsb3QiXV0pCgpsb2NfZ2Vub19udCA8LSBub3JtYWxpemUodHhfbG9jX2dlbm8sIHRyYW5zZm9ybSA9ICJsb2cyIiwgY29udmVydCA9ICJjcG0iLAogICAgICAgICAgICAgICAgICAgICAgICAgZmlsdGVyID0gVFJVRSwgbm9ybSA9ICJ0bW0iKQpsb2NhdGlvbl9nZW5vdHlwZV90bW1fcGNhIDwtIHBsb3RfcGNhKGxvY19nZW5vX250KQpwcChmaWxlID0gIjAxZGlhZ25vc3RpY19pbWFnZXNfdHgvbG9jYXRpb25fZ2Vub3R5cGVfdG1tX3BjYS5wZGYiLCBpbWFnZSA9IGxvY2F0aW9uX2dlbm90eXBlX3RtbV9wY2FbWyJwbG90Il1dKQpgYGAKCmBgYHtyfQpzYW1wbGVfc2Fua2V5IDwtIHBsb3RfbWV0YV9zYW5rZXkodHhfbG9jX2dlbm8sIGNvbG9yX2Nob2ljZXMgPSBjb2xvcl9jaG9pY2VzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmFjdG9ycyA9IGMoImdlbm90eXBlX2F0YiIsICJsb2NhdGlvbl9hdGIiLCAidGltZV9hdGIiKSkKcHAoZmlsZSA9ICIwMWRpYWdub3N0aWNfaW1hZ2VzX3R4L2Rlc2lnbl9zYW5rZXkucGRmIiwgaW1hZ2UgPSBzYW1wbGVfc2Fua2V5W1sicGxvdCJdXSkKYGBgCgpSZS1wdXJwb3NlIHRoZXNlIGV4cHJlc3Npb24gcGxvdHMgdG8gZXhhbWluZSBvbmUgT3BuNCB0cmFuc2NyaXB0LgpUaGlzIHdpbGwgYnkgc29tZSBuZWNlc3NpdHkgYmUgYXJiaXRyYXJ5LgoKSXQgaXMgYXQgdGhpcyBtb21lbnQgdGhhdCBJIHJlYWxpemVkIChhcyBJIGFtIGFsbW9zdCBjZXJ0YWluIEkgdG9sZApteXNlbGYgd2hlbiBJIHN0YXJ0ZWQpIHVzaW5nIHRoZSBoaXNhdC1kZXJpdmVkIHR4IGNvdW50cyBpcyB3cm9uZwpiZWNhdXNlIGhpc2F0LT5mZWF0dXJlQ291bnRzIGhhcyBubyBnb29kIHdheSB0byBhbGxvY2F0ZSBtdWx0aS1oaXRzIHRvCm11bHRpcGxlIHRyYW5zY3JpcHRzIGFuZCB3aWxsIHRoZXJlZm9yZSBkaXNjb3VudCB0aGVtLiAgSWYgSSB3YW50IHRvCmRvIHRoaXMgaW4gYW55IHNvcnQgb2YgcmVsaWFibGUgd2F5LCBJIHJlYWxseSBuZWVkIHRvIHJlLWV4dHJhY3QgdGhlCmRlZHVwbGljYXRlIHJlYWRzIGZyb20gdGhlIHVtaXRvb2xzIGJhbSBmaWxlIGFuZCBydW4gc2FsbW9uL2thbGxpc3RvLgpUaGlzIGlzIHNvbWV3aGF0IGFubm95aW5nIGJlY2F1c2UgdGhlIHZhcmlvdXMgdG9vbHMgSSBoYXZlIGZvciBleHRyYWN0CmJhbSByZWFkcyByZWFsbHkgaGF0ZSB0aGUgd2F5IHVtaXRvb2xzIGZvcm1hdHMgdGhlIGJhbSBmaWxlIGFuZCBmcmVhawpvdXQuICBJIGNhbiBmb3JjZSBpdCwgYnV0IEkgdGhpbmsgSSB3aWxsIGxvc2UgYSBwb3RlbnRpYWxseQpzaWduaWZpY2FudCBudW1iZXIgb2YgcmVhZHMsIGxldCB1cyBnbyBsb29rLi4uCgooSWYgeW91IHdpdGggdG8gZm9sbG93IGFsb25nLCBnbyBiYWNrIHRvIHRoZSBwcmVwcm9jZXNzaW5nIGRvY3VtZW50CndoaWNoIEkgc2hvdWxkIGhhdmUgaW5jbHVkZWQgaW4gdGhlIHNpbmd1bGFyaXR5IGNvbnRhaW5lcikgIEkgd2lsbCBkbwpvbmUgb2YgdGhlIGZvbGxvd2luZzoKCjEuICBVc2UgZ2F0ayBvciBiYW10b29scyB0byBjcmVhdGUgZGVkdXBsaWNhdGVkIGZhc3RxIGZpbGVzIGFuZCB1c2UKICAgIHRoZW0gd2l0aCBzYWxtb24uCjIuICBVc2Ugc2FsbW9uIHdpdGggdGhlIGRlZHVwbGljYXRlZCBiYW0gZmlsZXMgZnJvbSBoaXNhdC4KCkkgYW0gbm90IHN1cmUgcmlnaHQgbm93IHdoaWNoIEkgd2FudCB0byBkby4gIEkga2luZCBvZiBsaWtlIHRoZSBpZGVhCm9mIGhhdmluZyBkZWR1cGxpY2F0ZWQgZmFzdHEgZmlsZXMgc28gdGhhdCBJIGNhbiB0cnkgc29tZSBvdGhlciBzdHVmZgp3aXRoIHRoZW0gKGtyYWtlbiwgZm9yIGV4YW1wbGUpCgpgYGB7ciwgZXZhbD1GQUxTRX0KIyMgZ2dzdGF0c3Bsb3QgaGFzIGFwcGVhcmVkIGFuZCBkaXNhcHBlYXJlZCBhIGZldyB0aW1lcyBmcm9tIGNyYW4gcmVjZW50bHksCiMjIEkgYW0gbm90IHN1cmUgaWYgaXQgd2lsbCB3b3JrIHRoZXJlZm9yZSwgc28gZmlndXJlZCBJIHNob3VsZCBkaXNhYmxlIHRoaXMgYmxvY2sKIyMgZm9yIHRoZSBtb21lbnQuCgojIyBJIGRpZCBhIHNlYXJjaCBhdCBlbnNlbWJsIGZvciB0aGUgdmFyaW91cyBvcG40IHRyYW5zY3JpcHQgSURzOgojIyBFTlNNVVNUMDAwMDAwMjIzMzEsIEVOU01VU1QwMDAwMDE2ODQ0NCwgRU5TTVVTVDAwMDAwMjI2ODA2CmlkcyA8LSBjKCJFTlNNVVNUMDAwMDAwMjIzMzEiLCAiRU5TTVVTVDAwMDAwMTY4NDQ0IiwgIkVOU01VU1QwMDAwMDIyNjgwNiIpCmlkcyAlaW4lIHJvd25hbWVzKGxvY19nZW5vX250KQppZHMgPC0gYygiRU5TTVVTVDAwMDAwMDIyMzMxIiwgIkVOU01VU1QwMDAwMDE2ODQ0NCIpCgpvcG40X2V4cHJzIDwtIGRhdGEuZnJhbWUoY29tYmluZWQgPSBjb2xEYXRhKGxvY19nZW5vX250KVtbImdlbm9fbG9jX2F0YiJdXSwKICAgICAgICAgICAgICAgICAgICAgICAgIGxvY2F0aW9uID0gY29sRGF0YShsb2NfZ2Vub19udClbWyJsb2NhdGlvbl9hdGIiXV0sCiAgICAgICAgICAgICAgICAgICAgICAgICBnZW5vdHlwZSA9IGNvbERhdGEobG9jX2dlbm9fbnQpW1siZ2Vub3R5cGVfYXRiIl1dLAogICAgICAgICAgICAgICAgICAgICAgICAgb3BuID0gYXNzYXkobG9jX2dlbm9fbnQpW2lkc1sxXSwgXSkKCmdyb3VwZWRzdGF0czo6Z3JvdXBlZF9zdW1tYXJ5KG9wbjRfZXhwcnMsIGxvY2F0aW9uLCBvcG4pCm9wbjRfbG9jYXRpb24gPC0gZ2dzdGF0c3Bsb3Q6OmdnYmV0d2VlbnN0YXRzKGRhdGEgPSBvcG40X2V4cHJzLCB4ID0gbG9jYXRpb24sIHkgPSBvcG4pCnBwKGZpbGUgPSAiaW1hZ2VzX3R4L2dnYmV0d2Vlbl9sb2NhdGlvbi5wZGYiKQpvcG40X2xvY2F0aW9uCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCm9wbjRfbG9jYXRpb24KYGBgCgpvaywgc28gSSBwbG90dGVkIHRoZSBxdWVzdGlvbiBhIGJpdCBkaWZmZXJlbnRseSwgYnV0IGdvdCB0aGUgc2FtZQphbnN3ZXIuCgpIZXJlIGlzIHRoZSB0ZXh0IG9mIFRoZXJlc2EncyBub3RlYm9vayBmb2xsb3dpbmcgdGhpcyBhbmFseXNpczoKCiJVZ2ggb2gsIGxvb2tzIGxpa2UgdGhlcmUgaXMgYXQgbGVhc3Qgb25lIHJldGluYSBLTyBzYW1wbGUgdGhhdCBoYXMKc29tZSBtZWxhbm9wc2luIGV4cHJlc3Npb24gaW4gaXQuIFR1cm5zIG91dCBpcFJHQ18wNyBpcyBhIGJhZCBlZ2cKd2hpY2ggaXMgc3VwcG9zZWQgdG8gYmUgYSBLTyBidXQgaGFzIG1lbGFub3BzaW4gZXhwcmVzc2lvbi4gSXTigJlzCmZyaWVuZHMgd2hpY2ggd2VyZSBwb29sZWQgZnJvbSB0aGUgc2FtZSBtaWNlIGFyZSBpcHJnY18wNiBhbmQKaXByZ2NfMDgsIHNvIHdlIG5lZWQgdG8gZXhjbHVkZSBhbGwgdGhlc2Ugc2FtcGxlcy4iCgpJIGFtIGFsc28gc2VlaW5nIHNvbWUga25vY2tvdXQgZXhwcmVzc2lvbiB3aXRoIHNvbWUgY2F2ZWF0czogSSBkbyBub3QKaGF2ZSB0aGUgYWZmZWN0ZWQgc2FtcGxlcyBpbiBteSBkYXRhc2V0IChpcHJnY18wNykgYW5kIHRoZSBsZXZlbHMgSSBhbQpzZWVpbmcgYXJlIHF1aXRlIGxvdyAtLSBJIHdpbGwgbG9vayBpbiBJR1YgdG8gZG91YmxlIGNoZWNrLCBidXQgSQpzdHJvbmdseSBzdXNwZWN0IHRoYXQgdGhlc2UgYXJlIHNvbWUgcGlkZGx5IHJlYWRzIG5lYXIgdGhlIFVUUnMuCgpPbndhcmQhCgojIFBDQSBwbG90cwoKIyMgUENBIG9mIGFsbCBnZW5lcyBieSBsb2NhdGlvbgoKVGhlcmVzYSdzIGZpcnN0IHBjYSB3YXMgb2YgbG9nMiBjcG0gdmFsdWVzLiAgSSBtaWdodCBhZGQgcXVhbnRpbGUvdG1tCnRvIHRoaXM/CgpgYGB7cn0KdHhfbG9jYXRpb24gPC0gc2V0X2NvbmRpdGlvbnMobW0zOF9oaXNhdF90eCwgZmFjdCA9ICJsb2NhdGlvbl9hdGIiKSB8PgogIHNldF9iYXRjaGVzKGZhY3QgPSAiZ2Vub3R5cGVfYXRiIikgfD4KICBzZXRfY29sb3JzKGNvbG9yX2Nob2ljZXNbWyJsb2NhdGlvbiJdXSkKdHhfbG9jYXRpb25fbm9ybSA8LSBub3JtYWxpemUodHhfbG9jYXRpb24sIGZpbHRlciA9IFRSVUUsIG5vcm0gPSAicXVhbnQiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRyYW5zZm9ybSA9ICJsb2cyIiwgY29udmVydCA9ICJjcG0iKQp0eF9sb2NhdGlvbl9wY2EgPC0gcGxvdF9wY2EodHhfbG9jYXRpb25fbm9ybSkKcHAoZmlsZSA9ICIwMWRpYWdub3N0aWNfaW1hZ2VzX3R4L3R4X2xvY2F0aW9uX25vcm1fcGNhLnBkZiIpCnR4X2xvY2F0aW9uX3BjYQpkZXYub2ZmKCkKdHhfbG9jYXRpb25fcGNhCmBgYAoKT25jZSBhZ2FpbiB3ZSBzZWUgdGhhdCBzYW1wbGVzIGlwcmdjXzY2IGFuZCBpcHJnY18xMzAgYXJlIGxpa2VseQphY3R1YWxseSBETEdOIGFuZCBub3QgU0NOLiAgSSBhbSB0aGVyZWZvcmUgZ29pbmcgdG8gYWRkIGEgY29sdW1uIHRvCnRoZSBzYW1wbGUgc2hlZXQgbm90aW5nIHRoaXMsIGFuZCByZW1vdmUgdGhlbSBmcm9tIHRoZSBleHByZXNzaW9uc2V0LgoKSSB3aWxsIHRodXMgcmVwbG90IHRoZSBkYXRhIGFmdGVyIHJlbW92aW5nIHRob3NlIHR3by4gIElmIHdlIHdhbnQgdG8Kc2VlIHdoYXQgaXQgbG9va3MgbGlrZSB3aXRoIHRoZSByZS1hdHRyaWJ1dGVkIGxvY2F0aW9ucywgd2UgY2FuIGRvIHNvLgoKVGhlcmVzYSBoYXMgYSBuaWNlIGNoYW5nZSB0byB0aGUgUENBIHBsb3R0ZXIgaW4gd2hpY2ggc2hlIHNldHMgdGhlCmFscGhhIGNoYW5uZWwgYXMgYW4gYWRkaXRpb25hbCB2aXN1YWwgcXVldWUgZm9yIGEgbWV0YWRhdGEgZmFjdG9yLi4uCgpgYGB7cn0KbW0zOF9oaXNhdF90eCA8LSBzdWJzZXRfc2UobW0zOF9oaXNhdF90eCwgc3Vic2V0PSJzYW1wbGVpZCE9J2lwcmdjXzEzMCciKSB8PgogIHN1YnNldF9zZShzdWJzZXQ9InNhbXBsZWlkIT0naXByZ2NfNjYnIikKdHhfbG9jYXRpb24gPC0gc2V0X2NvbmRpdGlvbnMobW0zOF9oaXNhdF90eCwgZmFjdCA9ICJsb2NhdGlvbl9hdGIiKSB8PgogIHNldF9iYXRjaGVzKGZhY3QgPSAiZ2Vub3R5cGVfYXRiIikgfD4KICBzZXRfY29sb3JzKGNvbG9yX2Nob2ljZXNbWyJsb2NhdGlvbiJdXSkKCnR4X2xvY2F0aW9uX25vcm0gPC0gbm9ybWFsaXplKHR4X2xvY2F0aW9uLCBmaWx0ZXIgPSBUUlVFLCBub3JtID0gInF1YW50IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0cmFuc2Zvcm0gPSAibG9nMiIsIGNvbnZlcnQgPSAiY3BtIikKZmlsdGVyZWRfbG9jYXRpb25fcGNhIDwtIHBsb3RfcGNhKHR4X2xvY2F0aW9uX25vcm0pCnBwKGZpbGUgPSAiMDJmaWx0ZXJlZF9pbWFnZXNfdHgvZmlsdGVyZWRfbG9jYXRpb25fcGNhLnBkZiIpCmZpbHRlcmVkX2xvY2F0aW9uX3BjYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKZmlsdGVyZWRfbG9jYXRpb25fcGNhCgpyZW1vdmVkX3NhbmtleSA8LSBwbG90X21ldGFfc2Fua2V5KHR4X2xvY2F0aW9uLCBjb2xvcl9jaG9pY2VzID0gY29sb3JfY2hvaWNlcywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmYWN0b3JzID0gYygiZ2Vub3R5cGVfYXRiIiwgImxvY2F0aW9uX2F0YiIsICJ0aW1lX2F0YiIpKQpwcChmaWxlID0gIjAyZmlsdGVyZWRfaW1hZ2VzX3R4L2ZpbHRlcmVkX3NhbmtleS5wZGYiKQpyZW1vdmVkX3NhbmtleVtbImdncGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpyZW1vdmVkX3NhbmtleQpgYGAKCkhlcmUgaXMgVGhlcmVzYSdzIHRleHQsIHJlY2FsbCBvbmNlIGFnYWluIHRoYXQgSSBkbyBub3QgaGF2ZSBzb21lIG9mCnRoZXNlIG9sZGVyIHNhbXBsZXMgKGlwcmdjXzYyKToKClBDMSB2cyBQQzIgaWRlbnRpZmllcyByZXRpbmEgdnMgYXhvbiBpcyBzdGlsbCB0aGUgbWFpbiBjb21wb25lbnQgb2YKdmFyaWF0aW9uLiBXZSBkbyBzZWUgdGhvdWdoIHRoYXQgaW4gdGhlIFBDMiBkaXJlY3Rpb24sIHdlIHNlZSB3aXRoIHRoZQpuZXcgc2FtcGxlcyBhZGRlZCwgd2UgZG9u4oCZdCBzZWUgc2VwYXJhdGlvbiBiYXNlZCBvbiBheG9uYWwgdGFyZ2V0cwooZExHTiB2cyBTQ04pLiBJbiB0aGUgUEMxIHZzIFBDMyBwbG90LCB3ZSBzZWUgdGhhdCBpdOKAmXMgUEMzIHdoZXJlIHdlCnN0YXJ0IHRvIHNlZSB2YXJpYXRpb24gY29ycmVsYXRlZCB3aXRoIGF4b25hbCBjb21wYXJ0bWVudC4gTGV04oCZcyBsb29rCmF0IFBDMSB2cyBQQzIgY29sb3JlZCBieSBiYXRjaCAod2hlbiB0aGV5IHdlcmUgcHJvY2Vzc2VkL3NlcXVlbmNlZCkgdG8Kc2VlIGlmIHRoYXQgaXMgd2hhdCBpcyBjb250cmlidXRpbmcgc28gbXVjaCB2YXJpYXRpb24gaW4gUEMyLgoKU2lkZSBub3RlOiBpcFJHQyA2MiBzZWVtcyBsaWtlIGFuIG9kZCBiYWxsLiBUaGlzIHNlZW1zIHRvIG1lIGxpa2UgaXQKc2hvdWxkIGhhdmUgYmVlbiBhIGRMR04gUDA4IHNhbXBsZS4gSXMgdGhlcmUgYW55IHBvc3NpYmlsaXR5IHRoaXMgZ290Cm1pc2xhYmVsZWQgZWFybHkgb24/IEkgd2VudCBiYWNrIGFuZCBkb3VibGUgY2hlY2tlZCB0byBzZWUgaWYgYWxsIG15CnByb2Nlc3NpbmcgaXMgY29ycmVjdCBhbmQgaXQgaW5kZWVkIHdhcyBsYWJlbGVkIGFuIFNDTiBQMTUgZnJvbSB0aGUKdGltZSBJIGdvdCB0aGUgc2FtcGxlcywgYW5kIGl0IGlzIGluZGVlZC4KCiMgREUKCkkgbm93IHN3aXRjaGVkIHRvIFRoZXJlc2EncyBkb2N1bWVudCAnV09SS0lOR19heG9uVFJBUC4uLicgYW5kIHdpbGwKc3RhcnQgcHVsbGluZyBzZWN0aW9ucyBmcm9tIGl0LiAgSSBhbSByZWFzb25hYmx5IGNlcnRhaW4gSSBoYXZlCnJlYXNvbmFibHkgc2ltaWxhciBzYW1wbGUgZGlzdHJpYnV0aW9ucywgc28gSSBwcmVzdW1lIEkgY2FuIGludm9rZQpzaW1pbGFyL2lkZW50aWNhbCBjYWxscyBmb3IgREVTZXEgYW5kIGZyaWVuZHMuCgojIyBwOCByZXRpbmFzCgpJbiB0aGUgYmxvY2sgaW1tZWRpYXRlbHkgYmVmb3JlIHRoZSBERSBhbmFseXNlcywgVGhlcmVzYSBjcmVhdGVkIGEKc3Vic2V0IGV4cHJlc3Npb25zZXQgb2Ygb25seSBwMDggcmV0aW5hcy4gIFRodXMgdGhpcyBpbml0aWFsIERFIEkKYXNzdW1lIHdpbGwgYmUgdXNlZCB0byBzdWJ0cmFjdCBmb3IgdGhlIFNDTi9ETEdOIGFuYWx5c2VzIHRoYXQgZm9sbG93LgooSSBndWVzcyBJIGNvdWxkIHJlYWQgYWhlYWQgYW5kIGZpbmQgb3V0LCBidXQgbm8hIEkgd2FudCB0byBiZSBhCmJsYW5rIHNsYXRlKQoKVGhlcmVzYSdzIHByaW1hcnkgd29ya2Zsb3cgbWFrZXMgaGVhdnkgdXNlIG9mIERFU2VxMgooQGxvdmVNb2RlcmF0ZWRFc3RpbWF0aW9uRm9sZDIwMTQpIGFuZCBzdmEKKEBsZWVrU1ZBUGFja2FnZVJlbW92aW5nMjAxMikuICBJbiBzb21lKG1vc3Q/KSBvZiBUaGVyZXNhJ3MKaW52b2NhdGlvbnMgb2YgdGhlIGFsbF9wYWlyd2lzZSgpIGZ1bmN0aW9uLCBzaGUgZXhjbHVkZXMgdGhlIG90aGVyCm1ldGhvZHMgdGhhdCBpdCBwZXJmb3Jtcy4gIEluIHRoaXMgd29ya2Jvb2ssIEkgbGVmdCB0aG9zZSBtZXRob2RzIG9uLAp0aHVzIHdlIGNhbiBldmFsdWF0ZSB0aGUgcmVsYXRpdmUgcGVyZm9ybWFuY2UgREVTZXEyIHZzLiBzb21lIChhbGw/IEkKbWF5IGhhdmUgZGlzYWJsZWQgRUJTZXEvZHJlYW0gYmVjYXVzZSB0aGV5IHdlcmUgdGFraW5nIHRvbyBsb25nKQpvZiB0aGUgZm9sbG93aW5nOgoKKiBsaW1tYTogKEByaXRjaGllTGltbWFQb3dlcnNEaWZmZXJlbnRpYWwyMDE1KSAoYW1vbmcgb3RoZXIKICByZWZlcmVuY2VzKSBvcmlnaW5hbGx5IHdyaXR0ZW4gZm9yIG1pY3JvYXJyYXlzLgoqIEVkZ2VSOiAoQHJvYmluc29uRWRnZVJCaW9jb25kdWN0b3JQYWNrYWdlMjAxMCksIHdoaWNoIHNoYXJlcyBtYW55CiAgYXNzdW1wdGlvbnMgd2l0aCBERVNlcTIuCiogRUJTZXE6IChAbGVuZ0VCU2VxRW1waXJpY2FsQmF5ZXMyMDEzKSwgYmVjYXVzZSBJIGhhdmUgYSBzb2Z0IHNwb3QKICBmb3IgYW55IEJheWVzaWFuIG1ldGhvZC4KKiBOb2lzZXE6IChAdGFyYXpvbmFOT0lzZXFSTkFzZXFEaWZmZXJlbnRpYWwyMDExKSwgd2hpY2ggc2Vla3MgdG8KICBkaXJlY3RseSBtb2RlbCB2YXJpYW5jZSBpbiBhbiBSTkFTZXEgZGF0YXNldCBhbmQgdXNlIHRoYXQgdG8gaW1wcm92ZQogIHRoZSBzZW5zaXRpdml0eSBvZiB0aGUgcmVzdWx0LCBtdWNoIGxpa2U6CiogRHJlYW06IChAaG9mZm1hbkRyZWFtUG93ZXJmdWxEaWZmZXJlbnRpYWwyMDIwKSwgd3JpdHRlbiBieSB0aGUgc2FtZQogIGF1dGhvcnMgKGFuZCB1c2VzIHZlcnkgc2ltaWxhciBsb2dpYykgYXMgb25lIG9mIG15IGZhdm9yaXRlIHRvb2xzLAogIHZhcmlhbmNlUGFydGl0aW9uKEBob2ZmbWFuVmFyaWFuY2VQYXJ0aXRpb25JbnRlcnByZXRpbmdEcml2ZXJzMjAxNikuCgpgYGB7cn0KbW0zOF9wOF9yZXRpbmEgPC0gc3Vic2V0X3NlKG1tMzhfaGlzYXRfdHgsIHN1YnNldCA9ICJ0aW1lX2F0Yj09J3AwOCcgJiBsb2NhdGlvbl9hdGI9PSdyZXRpbmEnIikKbW1fbm9ybWFsX3A4X3JldF9kZSA8LSBhbGxfcGFpcndpc2UobW0zOF9wOF9yZXRpbmEsIG1vZGVsX3N2cyA9ICJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtb2RlbF9mc3RyaW5nID0gIn4gMCArIGNvbmRpdGlvbiIsIGZpbHRlciA9IFRSVUUpCm1tX25vcm1hbF9wOF9yZXRfZGUKYGBgCgpUaGVyZSBzZWVtcyB0byBiZSBhIGRpc2NyZXBlbmN5IHdpdGggcHJldmlvdXMgaXRlcmF0aW9ucyBvZiB0aGlzLgpMZXQgdXMgc2ltcGxpZnkgdG8ganVzdCBkb2luZyBkZXNlcSBhbmQgZmluZCB3aGF0IGlzIGNhdXNpbmcgaXQuCkluIG15IHByZXZpb3VzIGl0ZXJhdGlvbiwgSSBnb3QgMzYzMiBnZW5lcyBpbiB0aGUgdW5pcXVlKGMoKSkgb3IgaGV0K2tvLgoKYGBge3J9CmRlc2VxX29ubHkgPC0gZGVzZXFfcGFpcndpc2UobW0zOF9wOF9yZXRpbmEsIG1vZGVsX3N2cyA9ICJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX2ZzdHJpbmcgPSBkZWZhdWx0X2ZzdHJpbmcsIGZpbHRlciA9IFRSVUUpCmRlc2VxX2hldGtlZXBlcl90eCA8LSBkZXNlcV9vbmx5JGFsbF90YWJsZXMkd3RfcmV0aW5hX3ZzX2hldF9yZXRpbmEgfD4KICBmaWx0ZXIobG9nRkMgPD0gLTAuMjUgJiBhZGouUC5WYWwgPD0gMC4wNSkKZGVzZXFfa29rZWVwZXJfdHggPC0gZGVzZXFfb25seSRhbGxfdGFibGVzJHd0X3JldGluYV92c19rb19yZXRpbmEgfD4KICBmaWx0ZXIobG9nRkMgPD0gLTAuMjUgJiBhZGouUC5WYWwgPD0gMC4wNSkKZGVzZXFfa2VlcGVydHggPC0gdW5pcXVlKGMocm93bmFtZXMoZGVzZXFfaGV0a2VlcGVyX3R4KSwKICAgICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXMoZGVzZXFfa29rZWVwZXJfdHgpKSkKbGVuZ3RoKGRlc2VxX2tlZXBlcnR4KQoKZGVzZXFfcGFpcl9oZXRrZWVwZXJfdHggPC0gbW1fbm9ybWFsX3A4X3JldF9kZSRkZXNlcSRhbGxfdGFibGVzJHd0X3JldGluYV92c19oZXRfcmV0aW5hIHw+CiAgZmlsdGVyKGxvZ0ZDIDw9IC0wLjI1ICYgYWRqLlAuVmFsIDw9IDAuMDUpCmRlc2VxX3BhaXJfa29rZWVwZXJfdHggPC0gbW1fbm9ybWFsX3A4X3JldF9kZSRkZXNlcSRhbGxfdGFibGVzJHd0X3JldGluYV92c19rb19yZXRpbmEgfD4KICBmaWx0ZXIobG9nRkMgPD0gLTAuMjUgJiBhZGouUC5WYWwgPD0gMC4wNSkKZGVzZXFfcGFpcl9rZWVwZXJ0eCA8LSB1bmlxdWUoYyhyb3duYW1lcyhkZXNlcV9wYWlyX2hldGtlZXBlcl90eCksCiAgICAgICAgICAgICAgICAgICAgICAgIHJvd25hbWVzKGRlc2VxX3BhaXJfa29rZWVwZXJfdHgpKSkKbGVuZ3RoKGRlc2VxX3BhaXJfa2VlcGVydHgpCmBgYAoKVGhlIGZvbGxvd2luZyBpbnZvY2F0aW9uIHBlcmZvcm1lZCBieSBUaGVyZXNhIGZpbHRlcnMgdGhlIHd0L2hldApjb21wYXJpc29uIGZvciBvbmx5IHRob3NlIGdlbmVzIHdoaWNoIGluY3JlYXNlZCBieSBhdCBsZWFzdCAwLjI1IGxvZ0ZDCndpdGggYSBzaWduaWZpY2FudCBhZGp1c3RlZCBwLXZhbHVlLiAgSSBhc3N1bWUgdGhhdCB0aGlzIGlzIHRvIHVzZSB0aGUKd3Qgc2FtcGxlcyBhcyBhIHRyYW5zbGF0aW9uYWwgY29udHJvbCBmb3IgdGhlIGtldC9rbyBjb21wYXJpc29uczsgSSBhbQp0aGVyZWZvcmUgdGhpbmtpbmcgdGhhdCBmb3IgbXkgcHVycG9zZXMsIEkgd2lsbCB0aGVyZWZvcmUgc2VwYXJhdGUgdGhlCmNvbnRyYXN0cyBmcm9tIGFsbF9wYWlyd2lzZSBkbyB0aGlzIGluIGEgc3RlcHdpc2UgZmFzaGlvbi4uLgoKVGhlIGJsb2NrIG9mIGNvZGUgaW1tZWRpYXRlbHkgZm9sbG93aW5nIFRoZXJlc2EncyBhbGxfcGFpcndpc2UoKQppbnZvY2F0aW9uIGlzIGEgbGl0dGxlIGNvbmZ1c2luZyBmb3IgbWUgYW5kIHdhcnJhbnRzIHNvbWUgZXhwbGFuYXRpb24KYnkgbWUgdG8gbWUgaW4gdGhlIGhvcGVzIHRoYXQgSSBkbyBub3QgbWlzdW5kZXJzdGFuZCB3aGF0IGlzIGhhcHBlbmluZwphbmQgdGhlIGdvYWxzIHRoZXJlaW4uCgpJIHRoaW5rIEkgY2FuIHNhZmVseSBhc3N1bWUgdGhhdCB0aGUgZ29hbCBoZXJlIGlzIHRvIHB1bGwgb3V0IHRoZSBJRHMKd2hpY2ggaW5jcmVhc2VkIGluIGhldCB3aXRoIHJlc3BlY3QgdG8gd2lsZCB0eXBlOyBldmVuIGlmIGJ5IGEgc21hbGwKbWFyZ2luLCBhcyBsb25nIGFzIGl0IGlzIHN0YXRpc3RpY2FsbHkgc2lnbmlmaWNhbnQgdmlzIGEgdmlzIHRoZQphZGp1c3RlZCBwLXZhbHVlLgoKSSBhbSBnb2luZyB0byBwZXJmb3JtIHdoYXQgSSB0aGluayBpcyB0aGUgc2FtZSB0aGluZyBpbiBhIHNsaWdodGx5CmRpZmZlcmVudCBmYXNoaW9uIHNvIHRoYXQgSSBjYW4gc2hhcmUgYSBjb3B5IG9mIHRoZSByZXN1bHRzIHdpdGgKd2hvbWV2ZXIgaXMgaW50ZXJlc3RlZC4gIEkgd2lsbCBhbHNvIHJlcGVhdCBUaGVyZXNhJ3MgaW52b2NhdGlvbiBhbmQKcHJvdmUgdG8gbXlzZWxmIHRoYXQgSSB1bmRlcnN0b29kIGFuZCBnb3QgdGhlIHNhbWUgYW5zd2VyLgoKYGBge3J9Cnd0X2hldF9rZWVwZXIgPC0gbGlzdCgiaGV0X3ZzX3d0IiA9IGMoImhldF9yZXRpbmEiLCAid3RfcmV0aW5hIikpCmhldF93dF90YWJsZSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBtbV9ub3JtYWxfcDhfcmV0X2RlLCBrZWVwZXJzID0gd3RfaGV0X2tlZXBlciwgbGFiZWxfY29sdW1uID0gbGFiZWxfY29sdW1uLAogIGV4Y2VsID0gIjAzdGhlcmVzYV9jb21wYXJpc29uX2V4Y2VsX3R4L2hldF9yZXRpbmFfY29udHJvbC54bHN4IikKd2FudGVkX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGhldF93dF90YWJsZSwgbGZjID0gMC4yNSwgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwKICBleGNlbCA9ICIwM3RoZXJlc2FfY29tcGFyaXNvbl9leGNlbF90eC9oZXRfcmV0aW5hX2NvbnRyb2wtc2lnLnhsc3giKQp3YW50ZWRfaGV0X2luY3JlYXNlZCA8LSB3YW50ZWRfc2lnW1siZGVzZXEiXV1bWyJ1cHMiXV1bWyJoZXRfdnNfd3QiXV0KaW5jcmVhc2VkX2hldF9nZW5lcyA8LSByb3duYW1lcyh3YW50ZWRfaGV0X2luY3JlYXNlZCkKYGBgCgpIZXJlIGFyZSBUaGVyZXNhJ3MgbmV4dCBsaW5lczoKCmBgYHtyfQptbV9kZV9ub3JtYWxfcDhfcmV0IDwtIG1tX25vcm1hbF9wOF9yZXRfZGUKaGV0a2VlcGVyX3R4IDwtIG1tX2RlX25vcm1hbF9wOF9yZXQkZGVzZXEkYWxsX3RhYmxlcyR3dF9yZXRpbmFfdnNfaGV0X3JldGluYSB8PgogIGZpbHRlcihsb2dGQyA8PSAtMC4yNSAmIGFkai5QLlZhbCA8PSAwLjA1KQprb2tlZXBlcl90eCA8LSBtbV9kZV9ub3JtYWxfcDhfcmV0JGRlc2VxJGFsbF90YWJsZXMkd3RfcmV0aW5hX3ZzX2tvX3JldGluYSB8PgogIGZpbHRlcihsb2dGQyA8PSAtMC4yNSAmIGFkai5QLlZhbCA8PSAwLjA1KQprZWVwZXJ0eCA8LSB1bmlxdWUoYyhyb3duYW1lcyhoZXRrZWVwZXJfdHgpLAogICAgICAgICAgICAgICAgICAgICAgICByb3duYW1lcyhrb2tlZXBlcl90eCkpKQojIyBXZSBrbm93IGEgcHJpb3JpIHRoYXQgT3BuNCBpcyBFTlNNVVNHMDAwMDAwMjE3OTkKIyMgSSBkbyBub3QgZXhwZWN0IHRvIHNlZSBpdCBpbiB0aGlzIHNldCwgaXQgc2hvdWxkIGJlIGhpZ2hlciBpbiB3dAojIyByZXRpbmEgdnMga28gcmV0aW5hIGJ5IGEgc2lnbmlmaWNhbnQgbWFyZ2luLgojIyAiRU5TTVVTRzAwMDAwMDIxNzk5IiAlaW4lIGtlZXBlcnR4CiMjIE9vb29oaGggYnV0IGl0IF9pc18gaGlnaGVyIGluIGhldCB2cy4gd3QsIGFzIHdlIHNhdyBpbgojIyB0aGUgdmlvbGluIHBsb3QgZWFybGllci4KYGBgCgpJIHRoaW5rIFJhc2htaSBtYWRlIGEgY29tcGVsbGluZyBwb2ludCB3aGljaCBpbGx1c3RyYXRlcyB3aHkgd2UgbGlrZWx5CnNob3VsZCBleHBlY3QgdGhlIGV4cHJlc3Npb24gb2YgT3BuNCB0byBzaWduaWZpY2FudGx5IGhpZ2hlciBpbiB0aGUKaGV0ZXJvenlnb3RlcyB2cyB3aWxkLXR5cGU6CgoxLiAgUmVjYWxsIHRoYXQgdGhlIGFzc2F5IGlzIHVzaW5nIHRoZSBpbW11bm9wdXJpZmljYXRpb24gdG8gZXh0cmFjdAogICAgdGhlIFJOQXMuCjIuICBUaGUgd3Qgc2FtcGxlcyBkbyBub3QgaGF2ZSB0aGUgY3JlIHJlY29tYmluYXNlIGFuZCB0aGVyZWZvcmUgbm8gSEEKICAgIGFuZCB0aGVyZWZvcmUgZXZlcnl0aGluZyB3ZSBvYnNlcnZlIGlzIGR1ZSB0byBub24tc3BlY2lmaWMKICAgIGJpbmRpbmcuCjMuICBUaGUgc2V0IG9mIGdlbmVzIG9ic2VydmVkIGR1ZSB0byBub24tc3BlY2lmaWMgYmluZGluZyBpcyBkaWZmZXJlbnQKICAgIHRoYW4gaGV0L2tvIChwcmVzdW1hYmx5IGEgbGFyZ2VyIG51bWJlciBvZiByZWxhdGl2ZWx5IHNtYWxsCiAgICB2YWx1ZXMpLCB0aGVyZWZvcmUgdGhlIGRpdmlzb3IgcGVyZm9ybWVkIGluIHRoZSBjcG0gaXMgbGlrZWx5CiAgICByZWxhdGl2bHkgbGFyZ2UgcmVzdWx0aW5nIGluIG5vcm1hbGl6ZWQgdmFsdWVzIGdldHRpbmcgc2hpZnRlZAogICAgZG93biB0byBzb21lIGRlZ3JlZS4KNC4gIE9uIHRoZSBvdGhlciBoYW5kLCB0aGUgc2V0IG9mIGdlbmVzIG9ic2VydmVkIGluIGhldC9rbyBhcmUgbW9yZQogICAgbGlrZWx5IHRvIGJlIG9ubHkgdGhlIHNwZWNpZmljIGJpbmRlcnMgYW5kIHRoZXJlZm9yZSBzbWFsbGVyIChJCiAgICBjYW4gdGVzdCB0aGlzKSByZXN1bHRpbmcgaW4gYSBzbWFsbGVyIGRpdmlzb3IgYW5kIHNsaWdodCBzaGlmdGluZwogICAgdXAgaW4gdGhlIGNwbSB2YWx1ZXMuCgpUaGlzIG1ha2VzIG1lIHdvbmRlciBpZiBhbnkgbm9ybWFsaXphdGlvbiBtZXRob2RzIGV4aXN0IHdoaWNoIGRvCnNvbWV0aGluZyBsaWtlIG11bHRpcGx5IHRoZSB2YWx1ZXMgYnkgc29tZSB2YWx1ZSByZWxhdGVkIHRvIHRoZQpwcm9wb3J0aW9uIG9mIG9ic2VydmVkIGdlbmVzOyBhbmQvb3IgaWYgdGhpcyBpcyBhIGdvb2QvYmFkL2luZGlmZmVyZW50CmlkZWEuCgpBbHNvLCBqdXN0IGEgbm90ZSBmb3IgbWUgdG8gcmVtZW1iZXI6IFJQTDIyLCBub3QgUlBTMjIsIGZvciBzb21lCnJlYXNvbiBJIGtlZXAgdGhpbmtpbmcgdGhlIHNtYWxsIHN1YnVuaXQuCgojIyBQcm92ZSBJIHVuZGVyc3Rvb2QKCmBgYHtyfQpoZXRrZWVwZXJfdHggPC0gbW1fbm9ybWFsX3A4X3JldF9kZSRkZXNlcSRhbGxfdGFibGVzJHd0X3JldGluYV92c19oZXRfcmV0aW5hIHw+CiAgZmlsdGVyKGxvZ0ZDIDw9IC0wLjI1ICYgYWRqLlAuVmFsIDw9IDAuMDUpCnRlc3R0aGF0OjpleHBlY3RfdHJ1ZShucm93KGhldGtlZXBlcl90eCkgPT0gbGVuZ3RoKGluY3JlYXNlZF9oZXRfZ2VuZXMpKQp0YWFfa2VlcGVycyA8LSBzb3J0KHJvd25hbWVzKGhldGtlZXBlcl90eCkpCmF0Yl9rZWVwZXJzIDwtIHNvcnQoaW5jcmVhc2VkX2hldF9nZW5lcykKdGVzdHRoYXQ6OmV4cGVjdF9lcXVhbCh0YWFfa2VlcGVycywgYXRiX2tlZXBlcnMpCmBgYAoKWWF5ISBJIGNhbiByZWFkISAgTm93IGxldCB1cyByZXBlYXQgZm9yIHRoZSBLTyB2cyB3dAoKYGBge3J9Cnd0X2tvX2tlZXBlciA8LSBsaXN0KCJrb192c193dCIgPSBjKCJrb19yZXRpbmEiLCAid3RfcmV0aW5hIikpCmtvX3d0X3RhYmxlIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIG1tX25vcm1hbF9wOF9yZXRfZGUsIGtlZXBlcnMgPSB3dF9rb19rZWVwZXIsIGxhYmVsX2NvbHVtbiA9IGxhYmVsX2NvbHVtbiwKICBleGNlbCA9ICIwM3RoZXJlc2FfY29tcGFyaXNvbl9leGNlbF90eC9rb19yZXRpbmFfY29udHJvbC54bHN4IikKd2FudGVkX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGtvX3d0X3RhYmxlLCBsZmMgPSAwLjI1LCBhY2NvcmRpbmdfdG8gPSAiZGVzZXEiLAogIGV4Y2VsID0gIjAzdGhlcmVzYV9jb21wYXJpc29uX2V4Y2VsX3R4L2tvX3JldGluYV9jb250cm9sLXNpZy54bHN4IikKCndhbnRlZF9rb19pbmNyZWFzZWQgPC0gd2FudGVkX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1sia29fdnNfd3QiXV0KaW5jcmVhc2VkX2tvX2dlbmVzIDwtIHJvd25hbWVzKHdhbnRlZF9rb19pbmNyZWFzZWQpCmBgYAoKVGhlIG5leHQgdGhpbmcgcGVyZm9ybWVkIGluIFRoZXJlc2EncyBkb2N1bWVudCBpcyBhIHVuaXF1ZShjb25jYXRlbmF0aW9uIG9mCnRoZXNlIHR3byBnZW5lIGdyb3VwcyksIHRodXMgc3Vja2luZyB1cCBldmVyeSBnZW5lIHdoaWNoIHdhcwpzaWduaWZpY2FudGx5IGhpZ2hlciBpbiBlaXRoZXIgdGhlIGtub2Nrb3V0IF9vcl8gaGV0ZXJ6eW91cyBzYW1wbGVzCndpdGggcmVzcGVjdCB0byB3aWxkLXR5cGUuCgpUaGlzIHdhcyBmb2xsb3dlZCBieSBhIGNvdXBsZSBvZiBtZXJnZSBvcGVyYXRpb25zIG9mIGEgbGl0dGxlIGJpdCBvZgp0aGUgYW5ub3RhdGlvbiBkYXRhOyBJIGFtIG5vdCBzdXJlIEkgdW5kZXJzdGFuZCB0aGUgZ29hbCB5ZXQuLi4KCkhlcmUgaXMgaGVyIGNvZGUuIEkgY29waWVkIHRoZSBhbm5vdGF0aW9uICdtZ2lfc3ltYm9sJyBjb2x1bW4gdG8KJ2V4dGVybmFsX2dlbmVfbmFtZScgc28gdGhhdCBJIG5lZWQgbm90IGNoYW5nZSBhbnkgb2YgaGVyIGNvZGUuICBJIGFtCmFzc3VtaW5nIHRoaXMgaXMgdGhlIGFwcHJvcHJpYXRlIGNvbHVtbiBvZiBpbnRlcmVzdCwgSSBkbyBub3Qga25vdwp0aGlzIGZvciBjZXJ0YWluLCBidXQgaXQgc2VlbXMgcXVpdGUgbGlrZWx5LgoKV2hpbGUgSSBhbSBhdCBpdCwgaGVyZSBpcyB0aGUgc2V0X3NpZ19saW1tYSgpIGZ1bmN0aW9uIGZyb20gVGhlcmVzYSdzIGhlbHBlcnMuUgoKYGBge3J9CnNldF9zaWdfbGltbWEgPC0gZnVuY3Rpb24obGltbWFfdGJsLCBmYWN0b3JzID0gTlVMTCkgewogIGlmIChpcy5udWxsKGZhY3RvcnMpKSB7CiAgICAjc2V0IHNpZ25pZmljYW5jZSBmb3IgcGxvdHRpbmcgY29sb3JzCiAgICBsaW1tYV90YmwkU2lnbmlmaWNhbmNlIDwtIE5BCiAgICBsaW1tYV90YmxbYWJzKGxpbW1hX3RibCRsb2dGQykgPCAxIHwgbGltbWFfdGJsJGFkai5QLlZhbCA+IC4wNSwgIlNpZ25pZmljYW5jZSJdIDwtICJOb3QgXG5FbnJpY2hlZCIKICAgIGxpbW1hX3RibFtsaW1tYV90YmwkbG9nRkMgPj0gMSAgJiBsaW1tYV90YmwkYWRqLlAuVmFsIDw9IC4wNSwgXVtbIlNpZ25pZmljYW5jZSJdXSA8LSAiRGlzZWFzZSBcblVwcmVndWxhdGVkIgogICAgbGltbWFfdGJsW2xpbW1hX3RibCRsb2dGQyA8PSAtMSAgJiBsaW1tYV90YmwkYWRqLlAuVmFsIDw9IC4wNSwgXVtbIlNpZ25pZmljYW5jZSJdXSA8LSAiRGlzZWFzZSBcbkRvd25yZWd1bGF0ZWQiCiAgICBsaW1tYV90YmwkU2lnbmlmaWNhbmNlIDwtIGZhY3RvcihsaW1tYV90YmwkU2lnbmlmaWNhbmNlLCBsZXZlbHMgPSBjKCJVcHJlZ3VsYXRlZCIsICJEb3ducmVndWxhdGVkIiwgICJOb3QgXG5FbnJpY2hlZCIpKQogIH0gZWxzZSB7CiAgICBsaW1tYV90YmwkU2lnbmlmaWNhbmNlIDwtIE5BCiAgICBsaW1tYV90YmxbYWJzKGxpbW1hX3RibCRsb2dGQykgPCAxIHwgbGltbWFfdGJsJGFkai5QLlZhbCA+IC4wNSwgIlNpZ25pZmljYW5jZSJdIDwtICJOb3QgXG5FbnJpY2hlZCIKICAgIGlmKG5yb3cobGltbWFfdGJsW2xpbW1hX3RibCRsb2dGQyA+PSAxICAmIGxpbW1hX3RibCRhZGouUC5WYWwgPD0gLjA1LCBdKSAhPSAwKSB7CiAgICAgIGxpbW1hX3RibFtsaW1tYV90YmwkbG9nRkMgPj0gMSAgJiBsaW1tYV90YmwkYWRqLlAuVmFsIDw9IC4wNSwgXVtbIlNpZ25pZmljYW5jZSJdXSA8LSBmYWN0b3JzWzFdCiAgICB9CiAgICBpZiAobnJvdyhsaW1tYV90YmxbbGltbWFfdGJsJGxvZ0ZDIDw9IC0xICAmIGxpbW1hX3RibCRhZGouUC5WYWwgPD0gLjA1LCBdKSAhPSAwKSB7CiAgICAgIGxpbW1hX3RibFtsaW1tYV90YmwkbG9nRkMgPD0gLTEgICYgbGltbWFfdGJsJGFkai5QLlZhbCA8PSAuMDUsIF1bWyJTaWduaWZpY2FuY2UiXV0gPC0gZmFjdG9yc1syXQogICAgfQogICAgbGltbWFfdGJsJFNpZ25pZmljYW5jZSA8LSBmYWN0b3IobGltbWFfdGJsJFNpZ25pZmljYW5jZSwgbGV2ZWxzID0gYyhmYWN0b3JzLCAgIk5vdCBcbkVucmljaGVkIikpCiAgfQogIHJldHVybihsaW1tYV90YmwpCn0KYGBgCgojIyMgQ29tYmluaW5nIGhldC93dCBhbmQga28vd3QKCmBgYHtyfQptbV90eF9hbm5vdFtbImV4dGVybmFsX2dlbmVfbmFtZSJdXSA8LSBtbV90eF9hbm5vdFtbIm1naV9zeW1ib2wiXV0Ka2VlcGVydHggPC0gdW5pcXVlKGMocm93bmFtZXMoaGV0a2VlcGVyX3R4KSwgcm93bmFtZXMoa29rZWVwZXJfdHgpKSkKbGVuZ3RoKGtlZXBlcnR4KQphbm5vdHNfdG9fbWVyZ2UgPC0gbW1fdHhfYW5ub3QgfD4KICBzZWxlY3QoZW5zZW1ibF90cmFuc2NyaXB0X2lkLCBleHRlcm5hbF9nZW5lX25hbWUpIHw+CiAgZmlsdGVyKGVuc2VtYmxfdHJhbnNjcmlwdF9pZCAlaW4lCiAgICAgICAgICAgcm93bmFtZXMobW1fZGVfbm9ybWFsX3A4X3JldCRkZXNlcSRhbGxfdGFibGVzJGtvX3JldGluYV92c19oZXRfcmV0aW5hKSkgfD4KICBkaXN0aW5jdCgpCm1tX2RlX25vcm1hbF9wOF9yZXRbWyJkZXNlcSJdXVtbImFsbF90YWJsZXMiXV1bWyJrb19yZXRpbmFfdnNfaGV0X3JldGluYSJdXSA8LSBtZXJnZSgKICBtbV9kZV9ub3JtYWxfcDhfcmV0JGRlc2VxJGFsbF90YWJsZXMka29fcmV0aW5hX3ZzX2hldF9yZXRpbmEsIGFubm90c190b19tZXJnZSwKICBieS54ID0gInJvdy5uYW1lcyIsIGJ5LnkgPSAicm93Lm5hbWVzIiwgYWxsLnggPSBUUlVFKQpkZiA8LSBtbV9kZV9ub3JtYWxfcDhfcmV0JGRlc2VxJGFsbF90YWJsZXMka29fcmV0aW5hX3ZzX2hldF9yZXRpbmEgfD4KICBkcGx5cjo6bXV0YXRlKGxvZ0ZDID0gLWxvZ0ZDKSB8PgogIHNldF9zaWdfbGltbWEoZmFjdG9ycyA9IGMoIkhldCBFbnJpY2hlZCIsICJLTyBFbnJpY2hlZCIpKQpgYGAKCk15IHZlcnNpb24gb2YgdGhlIGFib3ZlIHRhc2sgbWFrZXMgdXNlIG9mIHRoZSBleGNsdWRlcyBvcHRpb24gb2YKY29tYmluZV9kZV90YWJlcy4gIEdpdmVuIHRoZSBzZXQgb2YgdW5pcXVlIGdlbmUgSURzIGluY3JlYXNlZCBpbiB0aGUKaGV0L2tvLCBJIGNhbiBhc2sgdG8gZXhsdWRlIGFueXRoaW5nIG5vdCBpbiB0aGF0IHNldC4gIEkgY291bGQgYWxzbwpoYXZlIG1vcmUgcGFyc2ltb25pb3VzbHkgZGlyZWN0bHkgZXhjbHVkZWQgYW55IGdlbmUgSUQgaW5jcmVhc2VkIGluCnRoZSB3dCBzYW1wbGVzLiAgQnV0LCBUaGVyZXNhIGFscmVhZHkgcHJvdmlkZWQgdGhlIGNvZGUgdG8gZG8gdGhlCmZvcm1lciwgc28gaXQgd2lsbCBiZSBsZXNzIHR5cGluZy9vcHBvcnR1bml0eSBmb3Igc2lsbHkgbWlzdGFrZXMgdG8KanVzdCBkbyB0aGF0LgoKYGBge3J9CmJvdGhfaW5jcmVhc2VkX2dlbmVzIDwtIHVuaXF1ZShjKGluY3JlYXNlZF9oZXRfZ2VuZXMsIGluY3JlYXNlZF9rb19nZW5lcykpCiMjIGFyYml0cmFpcmx5IGdyYWIgYWxsIGdlbmVzIGZyb20gb25lIG9mIG15IGRhdGEgc3RydWN0dXJlcy4KYWxsX2dlbmVzIDwtIHJvd25hbWVzKGFzc2F5KG1tMzhfaGlzYXRfdHgpKQpleGNsdWRlX2lkeCA8LSBhbGxfZ2VuZXMgJWluJSBib3RoX2luY3JlYXNlZF9nZW5lcwpzdW1tYXJ5KGV4Y2x1ZGVfaWR4KQpgYGAKCgpgYGB7cn0KZXhjbHVkZV9pbmNyZWFzZWRfZ2VuZXMgPC0gYWxsX2dlbmVzW2V4Y2x1ZGVfaWR4XQpyZXRpbmFfa2VlcGVycyA8LSBsaXN0KAogICJoZXRfdnNfd3QiID0gYygiaGV0X3JldGluYSIsICJ3dF9yZXRpbmEiKSwKICAia29fdnNfd3QiID0gYygia29fcmV0aW5hIiwgInd0X3JldGluYSIpLAogICJrb192c19oZXQiID0gYygia29fcmV0aW5hIiwgImhldF9yZXRpbmEiKSkKIyMgQSByZW1pbmRlciB0byBteXNlbGY6IHRoZXJlIGlzIGFsc28gYSBwYXJhbWV0ZXIgJ3dhbnRlZF9nZW5lcycKIyMgd2hpY2ggZG9lcyBlZmZlY3RpdmVseSB0aGUgc2FtZSB0aGluZyBhcyBleGNsdWRlcyBpbiB0aGlzIGNvbnRleHQ7CiMjIGV4Y2x1ZGVzIHdhcyBvcmlnaW5hbGx5IHdyaXR0ZW4gdG8gYWxsb3cgZmxleGlibGUsIGtleXdvcmQtYmFzZWQKIyMgZXhjbHVzaW9uLgpwOF9yZXRpbmFfdGFibGVzIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIG1tX25vcm1hbF9wOF9yZXRfZGUsIGtlZXBlcnMgPSByZXRpbmFfa2VlcGVycywKICB3YW50ZWRfZ2VuZXMgPSBib3RoX2luY3JlYXNlZF9nZW5lcywgbGFiZWxfY29sdW1uID0gbGFiZWxfY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiMDN0aGVyZXNhX2NvbXBhcmlzb25fZXhjZWxfdHgvcDhfcmV0aW5hX2tlcHRfdHhfaW5jcmVhc2VkX2luX3d0X3RhYmxlcy12e3Zlcn0ueGxzeCIpKQoKcDhfcmV0aW5hX3NpZyA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIHA4X3JldGluYV90YWJsZXMsIGFjY29yZGluZ190byA9ICJkZXNlcSIsCiAgZXhjZWwgPSBnbHVlKCIwM3RoZXJlc2FfY29tcGFyaXNvbl9leGNlbF90eC9wOF9yZXRpbmFfa2VwdF9nZW5lc19pbmNyZWFzZWRfaW5fd3Rfc2lnLXZ7dmVyfS54bHN4IikpCgpvcHBvc2l0ZV9wOF9yZXRpbmFfdGFibGVzIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIG1tX25vcm1hbF9wOF9yZXRfZGUsIGtlZXBlcnMgPSByZXRpbmFfa2VlcGVycywKICBleGNsdWRlcyA9IGJvdGhfaW5jcmVhc2VkX2dlbmVzLCBsYWJlbF9jb2x1bW4gPSBsYWJlbF9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCIwM3RoZXJlc2FfY29tcGFyaXNvbl9leGNlbF90eC9wOF9yZXRpbmFfcmVtb3ZlZF9nZW5lc19pbmNyZWFzZWRfaW5fd3RfdGFibGVzLXZ7dmVyfS54bHN4IikpCgpvcHBvc2l0ZV9wOF9yZXRpbmFfc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgcDhfcmV0aW5hX3RhYmxlcywgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwKICBleGNlbCA9IGdsdWUoIjAzdGhlcmVzYV9jb21wYXJpc29uX2V4Y2VsX3R4L3A4X3JldGluYV9yZW1vdmVkX2dlbmVzX2luY3JlYXNlZF9pbl93dF9zaWctdnt2ZXJ9Lnhsc3giKSkKYGBgCgojIEZpbHRlcmluZyBvdXQgbm9uLXNwZWNpZmljIGdlbmVzIGFuZCBleGFtaW5pbmcgdGhlIHJlc3VsdHMKClRoZSBmb2xsb3dpbmcgaXMgYSBjb3B5L3Bhc3RlIGZyb20gVGhlcmVzYSBjb250YWluaW5nIHRoZSByZW1haW5pbmcKdGFza3Mgc2hlIHBlcmZvcm1lZCBhbmQgd2lsbCBwcm92aWRlIHRoZSB0ZW1wbGF0ZSBmb3IgaW1wbGVtZW50YXRpb24Kb2YgdGhlIGZpbmFsIHRhc2tzLgoKVGhpcyBwaWNrcyB1cCB3aXRoIHRoZSBsaW5lcyBmcm9tIGhlciBub3RlYm9vayBpbW1lZGlhdGVseSBmb2xsb3dpbmcKdGhlIGludm9jYXRpb24gb2YgJ3NldF9zaWdfbGltbWEoZmFjdG9ycyA9IGMoIkhldCBFbnJpY2hlZCIgLi4uJy4KCkZvciBhbGwgb2YgdGhlIHJlbWFpbmluZyBibG9ja3MgSSB3aWxsIGNvcHkgaW4gaGVyIGNvZGUsIHR1cm4gb2ZmIGl0cwpldmFsdWF0aW9uLCBydW4gdGhlIGJsb2NrcyBtYW51YWxseSwgY29tcGFyZSB0aGVtIHRvIGhlciBub3RlYm9vawpvdXRwdXQsIHRoZW4gZW5hYmxlIGVhY2ggYmxvY2sgYXMgSSBlbnN1cmUgSSB1bmRlcnN0YW5kIGl0LgoKSSB3aWxsIGxpa2VseSB0aGVyZWZvcmUgaW50cm9kdWNlIHNvbWUgc21hbGwgZm9ybWF0dGluZyBjaGFuZ2VzIGFuZAphZGQgc29tZSBhZGRpdGlvbmFsIEdTRUEvZW5yaWNobWVudCB0YXNrcyBvbmNlIHRoZSBub24tc3BlY2lmaWMKZmlsdGVyaW5nIGlzIGNvbXBsZXRlLgoKYGBge3J9CmRmIDwtIGRmIHw+CiAgZmlsdGVyKFJvdy5uYW1lcyAlaW4lIGtlZXBlcnR4KQpsYWJlbHNfdXBzIDwtIGRmIHw+CiAgZmlsdGVyKGFkai5QLlZhbCA8PSAwLjA1ICYgYWJzKGxvZ0ZDKSA+IDEpIHw+CiAgYXJyYW5nZShsb2dGQykgfD4KICBoZWFkKG4gPSA5KQpsYWJlbHNfZG93bnMgPC0gZGYgfD4KICBmaWx0ZXIoYWRqLlAuVmFsIDw9IDAuMDUgJiBhYnMobG9nRkMpID4gMSkgfD4KICBhcnJhbmdlKC1sb2dGQykgfD4KICBoZWFkKG4gPSAxMSkKbGFiZWxzIDwtIHJiaW5kKGxhYmVsc191cHMsIGxhYmVsc19kb3ducykKcmVzX3RibCA8LSBkZgpERXBsb3QgPC0gZ2dwbG90KHJlc190YmwsIGFlcyh4ID0gbG9nRkMsIHkgPSAtbG9nMTAoYWRqLlAuVmFsKSwgbGFiZWwgPSBleHRlcm5hbF9nZW5lX25hbWUpKSArCiAgZ2VvbV9wb2ludChhZXMoY29sb3VyID0gU2lnbmlmaWNhbmNlKSwgc2l6ZSA9IDQpICsKICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSBjKC0xLCAxKSkgKwogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IC1sb2cxMCgwLjA1KSkgKwogIHRoZW1lX2NsYXNzaWMoYmFzZV9zaXplID0gMjApICsKICB4bGFiKCJsb2cyKEZDKSIpICsKICB5bGFiKCItbG9nMTAocC12YWx1ZSkiKSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IikgKwogIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjKCIjRjg3NjZEIiwgIiMwMEJGQzQiLCAiR3JleSIpKSArCiAgZ2VvbV9sYWJlbF9yZXBlbCgKICAgIGRhdGEgPSBmaWx0ZXIoZGYsCiAgICAgICAgICAgICAgICAgICMjIGMoJ3M1X2hldF9kbGduJywgJ3M1X2hldF9yZXQnLCAnczVfaGV0X3NjbicpKSwKICAgICAgICAgICAgICAgICAgZXh0ZXJuYWxfZ2VuZV9uYW1lICVpbiUgbGFiZWxzJGV4dGVybmFsX2dlbmVfbmFtZSksCiAgICAjIyBudWRnZV94ID0gLTAuNSwKICAgIG51ZGdlX3kgPSAzLCBtYXgub3ZlcmxhcHMgPSAxNSkgKwogIHhsaW0oYygtMywgNikpCgpwcChmaWxlID0gIjAzdGhlcmVzYV9jb21wYXJpc29uX2ltYWdlc190eC9wMDhfcmV0aW5hX0RFXzEzMTIwMjQucGRmIikKREVwbG90CnBsb3R0ZWQgPC0gZGV2Lm9mZigpCkRFcGxvdAp3cml0ZV94bHN4KGRmLCBleGNlbCA9ICJleGNlbF90eC9yZXRpbmFoZXRfdnNfcmV0aW5ha29fV1RmaWx0ZXJlZC54bHN4IikKYGBgCgojIyBIb3cgbWFueSB1cHMvZG93bnMKCmBgYHtyfQprb19lbnJpY2hlZCA8LSBkZiB8PgogIGZpbHRlcihTaWduaWZpY2FuY2UgPT0gIktPIEVucmljaGVkIikKbnJvdyhrb19lbnJpY2hlZCkKaGV0X2VucmljaGVkIDwtICBkZiB8PgogIGZpbHRlcihTaWduaWZpY2FuY2UgPT0gIkhldCBFbnJpY2hlZCIpCm5yb3coaGV0X2VucmljaGVkKQpgYGAKCiMjIGNhdGVnb3J5IGVucmljaG1lbnQvR1NFQQoKYGBge3J9CnJlZ3VsYXRlZF9nZW5lcyA8LSByZXNfdGJsIHw+CiAgZmlsdGVyKGFkai5QLlZhbCA8PSAwLjA1KSB8PgogIGFycmFuZ2UobG9nRkMpIHw+CiAgc2VsZWN0KFJvdy5uYW1lcywgbG9nRkMsIGFkai5QLlZhbCwgZXh0ZXJuYWxfZ2VuZV9uYW1lLCBTaWduaWZpY2FuY2UpIHw+CiAgZmlsdGVyKGFicyhsb2dGQykgPj0gMSkKIyMgZ3NlYV9yZXN1bHRfa28gPC0gZ29zdChxdWVyeSA9IGtvX2dlbmVzJGV4dGVybmFsX2dlbmVfbmFtZSwKIyMgICAgICAgICAgICAgICAgICAgICAgICBvcmdhbmlzbSA9ICJtbXVzY3VsdXMiLAojIyAgICAgICAgICAgICAgICAgICAgICAgIGV2Y29kZXMgPSBUUlVFLAojIyAgICAgICAgICAgICAgICAgICAgICAgIG9yZGVyZWRfcXVlcnkgPSBUUlVFKQpnc2VhX3Jlc3VsdF9oZXQgPC0gZ29zdChxdWVyeSA9IGhldF9lbnJpY2hlZCRleHRlcm5hbF9nZW5lX25hbWUsCiAgICAgICAgICAgICAgICAgICAgICAgIG9yZ2FuaXNtID0gIm1tdXNjdWx1cyIsCiAgICAgICAgICAgICAgICAgICAgICAgIGV2Y29kZXMgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICBvcmRlcmVkX3F1ZXJ5ID0gVFJVRSkKIyNnc2VhX3Jlc3VsdF9hbGxkeXNyZWd1bGF0ZWQgPC0gZ29zdChxdWVyeSA9IGFsbGR5c3JlZ3VsYXRlZF9nZW5lcyRleHRlcm5hbF9nZW5lX25hbWUsCiMjICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgb3JnYW5pc20gPSAibW11c2N1bHVzIiwKIyMgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBldmNvZGVzID0gVFJVRSwKIyMgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBvcmRlcmVkX3F1ZXJ5ID0gVFJVRSkKYGBgCgpJIGhhdmUgYSBmdW5jdGlvbiBpbiBteSBwYWNrYWdlIHdoaWNoIHNlZWtzIHRvIG1ha2UgZ1Byb2ZpbGVyIHF1ZXJpZXMKYSBiaXQgbW9yZSBjb21wbGV0ZSBhbmQgZWFzeS4gIExldCB1cyBzZWUgaG93IHNpbWlsYXIgdGhlIHJlc3VsdCBpcy4uLgoKYGBge3IsIGV2YWw9RkFMU0V9CnJvd25hbWVzKGFsbGR5c3JlZ3VsYXRlZF9nZW5lcykgPC0gYWxsZHlzcmVndWxhdGVkX2dlbmVzW1siUm93Lm5hbWVzIl1dCmFsbGR5c3JlZ3VsYXRlZF9nZW5lc1tbIlJvdy5uYW1lcyJdXSA8LSBOVUxMCgpoZXRfZ3AgPC0gc2ltcGxlX2dwcm9maWxlcihyb3duYW1lcyhhbGxkeXNyZWd1bGF0ZWRfZ2VuZXMpLAogICAgICAgICAgICAgICAgICAgICAgICAgICBzcGVjaWVzID0gIm1tdXNjdWx1cyIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4Y2VsID0gZ2x1ZSgiZXhjZWxfdHgvaGV0X2dwcm9maWxlci12e3Zlcn0ueGxzeCIpKQpoZXRfZ3AKZW5yaWNocGxvdDo6ZG90cGxvdChoZXRfZ3BbWyJCUF9lbnJpY2giXV0pCmdwX3BhaXIgPC0gZW5yaWNocGxvdDo6cGFpcndpc2VfdGVybXNpbShoZXRfZ3BbWyJCUF9lbnJpY2giXV0pCmVucmljaHBsb3Q6OmVtYXBwbG90KGdwX3BhaXIpCmVucmljaHBsb3Q6OnNzcGxvdChncF9wYWlyKQplbnJpY2hwbG90Ojp0cmVlcGxvdChncF9wYWlyKQp1cHNldHBsb3QoaGV0X2dwW1siQlBfZW5yaWNoIl1dKQoKZW5yaWNocGxvdDo6ZG90cGxvdChoZXRfZ3BbWyJSRUFDX2VucmljaCJdXSkKZ3BfcGFpciA8LSBlbnJpY2hwbG90OjpwYWlyd2lzZV90ZXJtc2ltKGhldF9ncFtbIlJFQUNfZW5yaWNoIl1dKQplbnJpY2hwbG90OjplbWFwcGxvdChncF9wYWlyKQplbnJpY2hwbG90Ojpzc3Bsb3QoZ3BfcGFpcikKZW5yaWNocGxvdDo6dHJlZXBsb3QoZ3BfcGFpcikKdXBzZXRwbG90KGhldF9ncFtbIlJFQUNfZW5yaWNoIl1dKQpgYGAKCkkgbWFrZSBhIHNvbWV3aGF0IGFyYml0cmFyeSBkaXN0aW5jdGlvbiBiZXR3ZWVuIHRoZSBjb25jZXB0cyBvZgpvdmVyLWVucmljaG1lbnQgYW5hbHlzZXMgYW5kIEdTRUE6IHRoZSBmb3JtZXIgKGFzIHBlcmZvcm1lZCBieQpncHJvZmlsZXIpIChAcmF1ZHZlcmVQcm9maWxlcldlYlNlcnZlcjIwMTkpIHNlZWtzIHRvIGZpbmQgZ3JvdXBzIG9mCmdlbmVzIG92ZXJyZXByZXNlbnRlZCBpbiBHTy9yZWFjdG9tZS9ldGMuICBUaGVzZSBncm91cHMgb2YgZ2VuZXMgYXJlCnRha2VuIGV4Y2x1c2l2ZWx5IGZyb20gdGhlIHRvcC1uL2JvdHRvbS1uIGdlbmVzIHdpdGggcmVzcGVjdCB0bwpmb2xkLWNoYW5nZSBiZXR3ZWVuIGNvbmRpdGlvbnMgb2YgaW50ZXJlc3Q7IGluIHRoaXMgY2FzZSBtb3N0CmRpZmZlcmVudCB0aGFuIHd0IGluIHRoZSBwMDggcmV0aW5hIGtvIG9yIGhldCBzYW1wbGVzLgoKV2l0aCB0aGF0IGluIG1pbmQsIEkgY2FuIGludm9rZSBhIHNpbWlsYXIgZnVuY3Rpb24gdXNpbmcgdGhlIGZ1bGwKdGFibGUgb2YgREUgcmVzdWx0cyB0byBnZXQgd2hhdCBJIGNhbGwgdGhlIEdTRUEgcmVzdWx0IHVzaW5nCmNsdXN0ZXJQcm9maWxlciAoQHl1SW50cm9kdWN0aW9uQmlvbWVkaWNhbEtub3dsZWRnZSkuICBJbiB0aGUKZm9sbG93aW5nIGJsb2NrIEkgd2lsbCB1c2UgdGhlICdhbGxfY3Byb2ZpbGVyJyBmdW5jdGlvbiBvbiB0aGUgZGF0YQpzdHJ1Y3R1cmVzIG5hbWVkICdwOF9yZXRpbmFfdGFibGVzJyBhbmQgJ29wcG9zaXRlX3A4X3JldGluYV90YWJsZXMnIGluCm9yZGVyIHRvIGdldCB0aGVzZSBHU0VBIHJlc3VsdHMgZm9yIGVhY2ggY29udHJhc3QgcGVyZm9ybWVkIChoZXQvd3QsCmtvL3d0LCBoZXQva28pLiAgSSB3aWxsIGZvbGxvdyB0aGF0IHVwIHdpdGggJ2FsbF9ncHJvZmlsZXInIHdoaWNoIGRvZXMKdGhlIHNhbWUsIGJ1dCB1c2VzIGdQcm9maWxlcidzIGVucmljaG1lbnQgYW5hbHlzZXMgKGl0IHdpbGwgdGhlcmVmb3JlCmluY2x1ZGUgd2hhdCB3ZSBqdXN0IGxvb2tlZCBhdCkuCgpgYGB7cn0KcDA4X3JldGluYV9hbGxfY3AgPC0gYWxsX2Nwcm9maWxlcigKICBwOF9yZXRpbmFfc2lnLCBwOF9yZXRpbmFfdGFibGVzLCBvcmdkYiA9ICJvcmcuTW0uZWcuZGIiLCBvcmdkYl9mcm9tID0gb3JnZGJfZnJvbSwKICBleGNlbCA9ICIwM3RoZXJlc2FfY29tcGFyaXNvbl9leGNlbF90eC9jcHJvZmlsZXJfcDA4X3JldGluYS54bHN4IikKCmVucmljaHBsb3Q6OmRvdHBsb3QocDA4X3JldGluYV9hbGxfY3BbWyJrb192c19oZXRfdXAiXV1bWyJnb19kYXRhIl1dW1siTUZfZW5yaWNoIl1dKQpwMDhfdG9wbl9nc2VhIDwtIHBsb3RfdG9wbl9nc2VhKHAwOF9yZXRpbmFfYWxsX2NwKQoKcHAoZmlsZSA9ICIwM3RoZXJlc2FfY29tcGFyaXNvbl9pbWFnZXNfdHgvZ3NlYV9wMDhfcmV0aW5hX2tvX3ZzX2hldF90b3BfaGl0LnBkZiIpCnAwOF90b3BuX2dzZWFbWyJHT19rb192c19oZXRfdXAiXV1bWzFdXQpkZXYub2ZmKCkKCnAwOF90b3BuX2dzZWFbWyJHT19rb192c19oZXRfdXAiXV1bWzFdXQpwMDhfdG9wbl9nc2VhW1siR09fa29fdnNfaGV0X3VwIl1dW1syXV0KcDA4X3RvcG5fZ3NlYVtbIkdPX2tvX3ZzX2hldF91cCJdXVtbM11dCnAwOF90b3BuX2dzZWFbWyJHT19rb192c19oZXRfdXAiXV1bWzRdXQpwMDhfdG9wbl9nc2VhW1siR09fa29fdnNfaGV0X3VwIl1dW1s1XV0KCnBwKGZpbGUgPSAiMDN0aGVyZXNhX2NvbXBhcmlzb25faW1hZ2VzX3R4L2dzZWFfcDA4X3JldGluYV9oZXRfdnNfd3RfdG9wX2hpdC5wZGYiKQpwMDhfdG9wbl9nc2VhW1siR09faGV0X3ZzX3d0X3VwIl1dW1sxXV0KZGV2Lm9mZigpCmBgYAoKYGBge3J9CiNnc2VhX2tvIDwtICBnc2VhX3Jlc3VsdF9rb1tbInJlc3VsdCJdXSB8PgojICAgIHNlbGVjdCh0ZXJtX25hbWUsIHBfdmFsdWUsIHRlcm1fc2l6ZSwgaW50ZXJzZWN0aW9uX3NpemUsIHJlY2FsbCwgc291cmNlLCBpbnRlcnNlY3Rpb24pIHw+CiMgICAgYXJyYW5nZShkZXNjKHJlY2FsbCkpIHw+CiMgICAgaGVhZChuID0gMTApCiMgIGdzZWFfcGxvdHNfa28gPC0gZ2dwbG90KGdzZWFfa28sIGFlcyh4ID0gcmVjYWxsLCB5ID0gcmVvcmRlcih0ZXJtX25hbWUsIHJlY2FsbCksIGZpbGwgPSBwX3ZhbHVlKSkgKwojICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IikrCiMgIHNjYWxlX2ZpbGxfY29udGludW91cyhsb3cgPSAiYmx1ZSIsIGhpZ2ggPSAicmVkIikgKwojICB0aGVtZV9idygpKwojICB5bGFiKCIiKSArCiMgIHhsYWIoIkdTRUEgU2NvcmUiKQpnc2VhX2hldCA8LSAgZ3NlYV9yZXN1bHRfaGV0W1sicmVzdWx0Il1dIHw+CiAgZHBseXI6OnNlbGVjdCh0ZXJtX25hbWUsIHBfdmFsdWUsIHRlcm1fc2l6ZSwgaW50ZXJzZWN0aW9uX3NpemUsIHJlY2FsbCwgc291cmNlLCBpbnRlcnNlY3Rpb24pIHw+CiAgYXJyYW5nZShkZXNjKHJlY2FsbCkpIHw+CiAgaGVhZChuID0gMTApCmdzZWFfcGxvdHNfaGV0IDwtIGdncGxvdChnc2VhX2hldCwgYWVzKHggPSByZWNhbGwsIHkgPSByZW9yZGVyKHRlcm1fbmFtZSwgcmVjYWxsKSwgZmlsbCA9IHBfdmFsdWUpKSArCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIpICsKICBzY2FsZV9maWxsX2NvbnRpbnVvdXMobG93ID0gImJsdWUiLCBoaWdoID0gInJlZCIpICsKICB0aGVtZV9idygpICsKICB5bGFiKCIiKSArCiAgeGxhYigiT3ZlciBSZXByZXNlbnRhdGlvbiBTY29yZSIpCnBwKGZpbGUgPSAiMDN0aGVyZXNhX2NvbXBhcmlzb25faW1hZ2VzX3R4L0dTRUFfcDA4X2F4b250cmFwX3JldGluYWhldF91cHJlZ3VsYXRlZF92c19yZXRpbmFrby5wZGYiKQpnc2VhX3Bsb3RzX2hldApwbG90dGVkIDwtIGRldi5vZmYoKQpnc2VhX3Bsb3RzX2hldApgYGAKCiMgU0NOIEhldCB2cyBLTwoKSXQgaXMgb25seSBub3cgdGhhdCBJIHJlYWxpemVkIHdlIGFyZSBzcGxpdHRpbmcgdGhlIGRhdGEgYnkgbG9jYXRpb24KZm9yIGVhY2ggc2V0IG9mIGNvbXBhcmlzb25zLiAgSSB0aGluayB0aGF0LCBsZWZ0IHRvIG15IG93biBkZXZpY2VzLCBJCndvdWxkIHByZWZlciB0byBrZWVwIHRoZSBpbnB1dCBkYXRhIHN0cnVjdHVyZSBpbnRhY3QsIHBlcmZvcm0gdGhlCnNvbWV3aGF0IGxhcmdlciBudW1iZXIgb2YgY29udHJhc3RzLCBhbmQgdGhlbiBzcGxpdCB1cCB0aGUgcmVzdWx0cy4KSWRlYWxseSB0aGlzIHdpbGwgc2xpZ2h0bHkgaW1wcm92ZSB0aGUgZmlkZWxpdHkgb2YgdGhlIHJlc3VsdHMKcmV0dXJuZWQgYnkgREVTZXEyIGFuZCBmcmllbmRzLiAgQnV0LCBJIHdpbGwgcnVuIHRoZSBzdGF0ZSBvZgpUaGVyZXNhJ3Mgbm90ZWJvb2sgd2l0aCBhcyBmZXcgY2hhbmdlcyBhcyBwb3NzaWJsZSBmaXJzdCwgdGhlbiBhZGQKdGhpcy4KCiMjIFBDQQoKSSBhbSBnb2luZyB0byBza2lwIHRoaXMgUENBIHBsb3QgZm9yIGEgY291cGxlIG9mIHJlYXNvbnM6IEkgYWxyZWFkeQpkaWQgYSBzdXBlcnNldCBvZiBpdCwgYW5kIHRoZSBzdWJzZXQgVGhlcmVzYSBwZXJmb3JtZWQgaXMgbm90IHZhbGlkCmdpdmVuIHRoZSBzZXQgb2Ygc2FtcGxlcyBpbmNsdWRlZCBpbiBteSBzYW1wbGUgc2hlZXQsIGFuZCBmaWd1cmluZyBvdXQKdGhlIGFjdHVhbGx5IGNvcnJlc3BvbmRpbmcgc3Vic2V0IHdpbGwgdGFrZSBtZSBmb3JldmVyLi4uICBJbgphZGRpdGlvbiwgSSB3YW50IHRvIHVzZSBteSBtbTM4X2hpc2F0X3R4IGZvciBldmVyeXRoaW5nLi4uCgoKYGBge3J9CnNjbl9zYW1wbGVzIDwtIHN1YnNldF9zZShtbTM4X2hpc2F0X3R4LAogICAgICAgICAgICAgICAgICAgICAgICAgICBzdWJzZXQgPSAibG9jYXRpb25fYXRiID09ICdzY24nIikgfD4KICBzZXRfYmF0Y2hlcyhmYWN0ID0gImxvY2F0aW9uX2F0YiIpIHw+CiAgc2V0X2NvbmRpdGlvbnMoZmFjdCA9ICJnZW5vdHlwZV9hdGIiLCBjb2xvcnMgPSBjb2xvcl9jaG9pY2VzW1siZ2Vub3R5cGUiXV0pCnNjbl9ub3JtIDwtIG5vcm1hbGl6ZShzY25fc2FtcGxlcywgZmlsdGVyID0gVFJVRSwgY29udmVydCA9ICJjcG0iLAogICAgICAgICAgICAgICAgICAgICAgICAgICB0cmFuc2Zvcm0gPSAibG9nMiIsIGJhdGNoID0gInN2YXNlcSIpCnNjbl9ub3JtX3BjYSA8LSBwbG90X3BjYShzY25fbm9ybSkKc2NuX25vcm1fcGNhCmBgYAoKIyBMaWJyYXJ5IHNpemVzIHBvc3QtZGVkdXBsaWNhdGlvbgoKVGhlcmVzYSdzIG5leHQgb3BlcmF0aW9uIHdhcyB0byBwZXJmb3JtIGxpYnNpemUvbm9uemVybyBwbG90cy4gIEkKYWxyZWFkeSBkaWQgdGhlIHByZS9wb3N0IGRlZHVwbGljYXRpb24gbm9uemVybywgaGVyZSBpcyB0aGUgYW5hbGFnb3VzCmxpYnNpemUuCgp2MiBpcyBwcmUtZGVkdXBsaWNhdGlvbiBhbmQgdjMgaXMgcG9zdC4KCmBgYHtyfQpwb3N0X2ZpbHRlcl9ub256ZXJvIDwtIHBsb3RfcXVhbnRyZWFkcyhtbTM4X2hpc2F0X3R4LCB0ZXh0ID0gRkFMU0UpCnBwKGZpbGUgPSAiMDFkaWFnbm9zdGljX2ltYWdlc190eC9wb3N0X2FsbF9maWx0ZXJlc19ub256ZXJvLnBkZiIpCnBvc3RfZmlsdGVyX25vbnplcm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnBvc3RfZmlsdGVyX25vbnplcm8KYGBgCgpUaGVyZXNhIGFsc28gcHJvZHVjZWQgYSBkZW5zaXR5L3NhbXBsZSBwbG90LCB0aGF0IG1pZ2h0IHByb3ZlIHF1aXRlCnVzZWZ1bCBmb3IgdGhlc2UgZHVlIHRvIHRoZWlyIHNpZ25pZmljYW50bHkgbGFyZ2VyIHZhcmlhbmNlIGFjcm9zcwpzYW1wbGVzIChkdWUgdG8gZGVkdXBsaWNhdGlvbikuCgpgYGB7cn0KcHAoZmlsZSA9ICIwMWRpYWdub3N0aWNfaW1hZ2VzX3R4L3NhbXBsZV9kZW5zaXR5LnBkZiIpCm1tMzhfZGVuc2l0eSA8LSBwbG90X2RlbnNpdHkobG9jX2dlbm9fbnQpCm1tMzhfZGVuc2l0eVtbInBsb3QiXV0gKwogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikKcGxvdF9ib3hwbG90KGxvY19nZW5vX250KQpkZXYub2ZmKCkKbW0zOF9kZW5zaXR5W1sicGxvdCJdXSArCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKQpib3ggPC0gcGxvdF9ib3hwbG90KGxvY19nZW5vX250KQpwcChmaWxlID0gIjAxZGlhZ25vc3RpY19pbWFnZXNfdHgvc2FtcGxlX2JveHBsb3QucGRmIikKYm94CmRldi5vZmYoKQpib3gKYGBgCgpUaGVyZSBpcyBzb21lIGRpZmZlcmVuY2UgYWNyb3NzIHNhbXBsZSBkZW5zaXRpZXMsIGJ1dCBpdCBpcyBub3QgdG9vCmNyYXp5dG93bi4KCiMgRGl2ZXJnaW5nIGEgbGl0dGxlCgpBdCB0aGlzIHBvaW50IGluIHRoZSBkb2N1bWVudCBJIHJlYWQgYWhlYWQgYSBiaXQgYW5kIGNhbWUgdG8gdGhlCmNvbmNsdXNpb24gdGhhdCBpdCByZXBlYXRzIHRoZSBhYm92ZSBsb2dpYyBvZiB0YWtpbmcgdGhlIHVuaW9uIG9mIHd0CmNvbXBhcmlzb25zIHRvIHJlbW92ZSBnZW5lcyBmcm9tIHRoZSBhcHByb3ByaWF0ZSBoZXQva28gb3IgcDE1L3AwOCBvcgpsb2NhdGlvbiBjb21wYXJpc29ucy4gIFRoaXMgc2VlbXMgcXVpdGUgcmVhc29uYWJsZSB0byBtZSwgYnV0IEkgd291bGQKcHJlZmVyIHRvIG5vdCBzZXBhcmF0ZSBhbGwgdGhlIGRhdGEsIHNvIEkgd2lsbCBhdHRlbXB0IHRvIGR1cGxpY2F0ZQphbmQgc2xpZ2h0bHkgc3RyZWFtbGluZSB0aGlzIGxvZ2ljIG9uIHRoZSBmdWxsIGRhdGFzZXQuICBUaHVzIEkgYW0KZ29pbmcgdG8gc2tpcCBkb3duIHRvIHRoZSBlbmQgYW5kIGF0dGVtcHQgdG8gaW1wbGVtZW50IHRoaXMuCgojIE15IHZlcnNpb24gb2YgdGhlIGdsb2JhbCBhbmFseXNpcwoKSSB3YW50IHRvIGhhdmUgYW4gaW52b2NhdGlvbiBvZiBhbGxfcGFpcndpc2UoKSB3aGljaCB1c2VzIGFsbCBzYW1wbGVzLAppbiB0aGUgZm9sbG93aW5nIGJsb2NrIEkgd2lsbCBzZXQgdGhhdCB1cCB1c2luZyBhIHNldCBvZiAna2VlcGVycycKd2hpY2ggd2lsbCBiZSBuYW1lZCBieSB0aW1lLCBsb2NhdGlvbiwgdGhlbiAyIGxldHRlcnMgZm9yIHRoZQpudW1lcmF0b3IvZGVub21pbmF0b3I6IHcgZm9yIFdULCBoIGZvciBoZXQsIGQgZm9yIGRlbHRhOyB0aHVzCiJwMDhfcmV0aW5hX2h3IiBpcyBjb21wYXJpbmcgdGhlIGhldC93dCBmb3IgdGhlIHAwOCByZXRpbmEgc2FtcGxlcy4KCklmIHRoZXkgYXJlIG9mIGludGVyZXN0LCBJIHdpbGwgaGF2ZSBhIHNlcGFyYXRlIHNldCB3aGljaCBmb2xsb3dzIHRoZQpzYW1lIGNvbnZlbnRpb24gd2l0aCBuYW1lcyBsaWtlICJwMDhfa29fc3IiIHRvIGNvbXBhcmUgcDA4IGRlbHRhcyB3aXRoClNDTiBhcyB0aGUgbnVtZXJhdG9yIGFuZCByZXRpbmEgYXMgdGhlIGRlbm9taW5hdG9yLgoKIyMgU2V0IHVwIHRoZSBleGNsdXNpb24gZGF0YXNldAoKVGhlIG1vc3QgcGVjdWxpYXIgYXNwZWN0IG9mIHRoaXMgYW5hbHlzaXMgcmVzaWRlcyBpbiB0aGUgY2hvaWNlcwphcm91bmQgY2hvb3Npbmcgd2hpY2ggZ2VuZXMgdG8gY29uc2lkZXIgd2hlbiBjb21wYXJpbmcgdGhlCmdlbm90eXBlcy9sb2NhdGlvbnMvdGltZXMuICBUaGUgZ2VuZXJhbCBpZGVhIGlzIHByZXR0eSBjbGVhcjogZmluZCB0aGUKZ2VuZXMgd2hpY2ggYXJlIG5vbi1zcGVjaWZpY2FsbHkgYmVpbmcgcHVsbGVkIGRvd24gaW4gdGhlIFdUIHNhbXBsZXMKYW5kIGVpdGhlciBleGNsdWRlIG9yIGRpc2NvdW50IHRoZW0uICBUaGUgdmFyaW91cyBwb3RlbnRpYWwgbWV0aG9kcwpmb3IgcGVyZm9ybWluZyB0aGlzIGFyZSBjb25mdXNpbmc6CgoxLiAgV2hpY2ggc2V0IG9mIGNvbXBhcmlzb25zIG9mIHd0L2tvIHd0L2hldCBkbyB3ZSB1c2UgdG8KICAgIGV4Y2x1ZGUvZGlzY291bnQgZ2VuZXM/CiAgICBhLiAgU2hvdWxkIGl0IGJlIGEgY29tYmluYXRpb24gb2YgYWxsIHNhbXBsZXMgd3QgdnMuIHg/CiAgICBiLiAgU2hvdWxkIGl0IGJlIG9ubHkgdGhlICdyZWxldmFudCcgY29tcGFyaXNvbiwgZS5nLiBpZiB3ZSBhcmUKICAgIGNvbXBhcmluZyBwMDhfZGxnbl9oZXQgdnMuIHAwOF9zY25faGV0OyBkbyB3ZSByZW1vdmUgZ2VuZXMKICAgIG9ic2VydmVkIGluIChwMDhfZGxnbl9oZXQvd3QgJiYgcDA4X3Njbl9oZXQvd3QpCjIuICBEbyB3ZSBpbnN0ZWFkIGF0dGVtcHQgdG8gdXNlIHRoaXMgeC93dCBpbmZvcm1hdGlvbiB0byBub3JtYWxpemUKICAgIHRoZSBleHByZXNzaW9uIHZhbHVlcyBpbiB0aGUgb3RoZXIgY29uZGl0aW9ucyBhbmQga2VlcCB0aG9zZQogICAgZ2VuZXM/CgpUaGVyZXNhJ3MgY3VycmVudCB3b3Jrc2hlZXQgaW1wbGVtZW50cyBhIHZlcnNpb24gb2YgMWIgaW4gd2hpY2ggc2hlCnNlcGFyYXRlZCB0aGUgdmFyaW91cyBpbnB1dCBnZW5lIHNldHMgdG8gZGVmaW5lIHRoZSBleGNsdXNpb24gZ2VuZXMuCkkgYW0gZ29pbmcgdG8gcmVwZWF0IHRoaXMsIGJ1dCBsZWF2ZSB0aGUgc3RhcnRpbmcgZGF0YSBzdHJ1Y3R1cmUKaW50YWN0LgoKSW4gdGhpcyBmaXJzdCBpdGVyYXRpb24sIEkgd2lsbCBkbyB0aGF0IGJ5IGNyZWF0aW5nIGEgc2ltcGxpZmllZCBtb2RlbApvZiB0aGUgZGF0YSB3aGljaCBjb21iaW5lcyB0aGUgdGltZS9nZW5vdHlwZS9sb2NhdGlvbiBhbmQgdXNpbmcgc3ZhLgpJbiBteSBuZXh0IGl0ZXJhdGlvbiBJIHdpbGwgdXNlIGEgZnVsbCBzdGF0aXN0aWNhbCBtb2RlbCBjb250YWluaW5nCmVhY2ggb2YgdGhvc2UgZmFjdG9ycyAoYW5kIHByb2JhYmx5IGFsc28gdXNpbmcgc3ZhKS4KCk5vdGU6IG15IGNvbG9yIGNob2ljZXMgYXJlIGtpbmQgb2YgZ2FyYmFnZS4KCkluIGFkZGl0aW9uLCB0aGUgZXhjbHVzaW9uIGRhdGFzZXQgaXMgdGhlIHNhbWUgYXMgdGhlIGFuYWx5c2lzCmRhdGFzZXQsIGl0IGlzIHJlYWxseSBvbmx5IHRoZSBjb250cmFzdHMgd2hpY2ggd2lsbCBiZSBkaWZmZXJlbnQuCgpgYGB7cn0KdHhfcGFpcndpc2VfaW5wdXQgPC0gc2V0X2NvbmRpdGlvbnMobW0zOF9oaXNhdF90eCwgZmFjdCA9ICJ0aW1lX2dlbm9fbG9jIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29sb3JzID0gY29sb3JfY2hvaWNlc1tbImFsbCJdXSkKYGBgCgojIyBBIGhlYXRtYXAgb2Ygc3BlY2lmaWMgZ2VuZXMgYWNyb3NzIGFsbCBjb25kaXRpb25zCgpgYGB7cn0KYWxsX2NvbmRfZ2VuZV9oZWF0bWFwX3N0YXJ0IDwtIG5vcm1hbGl6ZSh0eF9wYWlyd2lzZV9pbnB1dCwgZmlsdGVyID0gInNpbXBsZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGVuZ3RoX2NvbHVtbiA9ICJjZHNfbGVuZ3RoIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb252ZXJ0ID0gInJwa20iLCB0cmFuc2Zvcm0gPSAibG9nMiIpCmFsbF9jb25kX2dlbmVfaGVhdG1hcF9pbnB1dCA8LSBtZWRpYW5fYnlfZmFjdG9yKGFsbF9jb25kX2dlbmVfaGVhdG1hcF9zdGFydCkKYWxsX2NvbmRfbXRyeCA8LSBhbGxfY29uZF9nZW5lX2hlYXRtYXBfaW5wdXRbWyJtZWRpYW5zIl1dCmNvbG9yX29yZGVyIDwtIGNvbG5hbWVzKGFsbF9jb25kX210cngpCm5hX2lkeCA8LSBpcy5uYShhbGxfY29uZF9tdHJ4KQphbGxfY29uZF9tdHJ4W25hX2lkeF0gPC0gMAp2YXJpYW5jZXMgPC0gbWF0cml4U3RhdHM6OnJvd1ZhcnMoYXMubWF0cml4KGFsbF9jb25kX210cngpKQp2YXJpYW50X2dlbmVzIDwtIHZhcmlhbmNlcyA+IDYuMgppbnB1dF9tdHJ4IDwtIGFsbF9jb25kX210cnhbdmFyaWFudF9nZW5lcywgXQpjb25kX2NvbG9ycyA8LSBnZXRfY29sb3JzX2J5X2NvbmRpdGlvbih0eF9wYWlyd2lzZV9pbnB1dCwgbGV2ZWxzID0gY29sb3Jfb3JkZXIpCmRpbShpbnB1dF9tdHJ4KQpwcChmaWxlID0gIjA0aW5jbHVzaW9uX2NvbXBhcmlzb25zX3R4L3RvcF8xMDRfdmFyaWFudF9ycGttX2dlbmVzX2hlYXRtYXAucGRmIikKZ3Bsb3RzOjpoZWF0bWFwLjIoYXMubWF0cml4KGlucHV0X210cngpLCBzY2FsZSA9ICJub25lIiwgdHJhY2UgPSAibm9uZSIsCiAgICAgICAgICAgICAgICAgIENvbFNpZGVDb2xvcnMgPSBjb25kX2NvbG9ycykKZGV2Lm9mZigpCmBgYAoKIyBUT0RPOiBDaGFuZ2UgdGhlIGFib3ZlIHRvIHN1YnRyYWN0IHd0CgpSYXNobWkgc3VnZ2VzdGVkIHdlIHNob3VsZCBkbyB0aGUgYWJvdmUgcGxvdCBhZnRlciBzdWJ0cmFjdGluZyB0aGUgd3QKY291bnRzLiAgVGhpcyBpcyBhIGdvb2QgaWRlYSwgYnV0IGl0IHdpbGwgaGF2ZSB0byB3YWl0IHVudGlsIHdlIGZpbmlzaAp0aGUgY3VycmVudCBzZXQuCgojIyBTZXQgdXAgdGhlIGNvbnRyYXN0cwoKSW4gdGhlIGZvbGxvd2luZyBmZXcgYmxvY2tzIEkgd2lsbCBzZXQgdXAgdGhlIHZhcmlvdXMgY29tcGFyaXNvbnMgb2YKaW50ZXJlc3QuICBTdGFydGluZyB3aXRoIHRoZSBzZXQgb2YgZ2VuZXMgdG8gZXhjbHVkZSBiZWNhdXNlIHRoZXkgd2VyZQpvYnNlcnZlZCB0byBiaW5kIG5vbi1zcGVjaWZpY2FsbHkgaW4gdGhlIHd0IHNhbXBsZXMuCgojIyMgSW5jbHVzaW9uIGNvbnRyYXN0cwoKSW4gZWFjaCBleGNsdXNpb24gSSB3aWxsIGhhdmUgdGhlIGNvbnRyYXN0IGZpcnN0IGZvbGxvd2VkIGJ5IHRoZSBwYWlyCm9mIGNvbnRyYXN0cyB3aGljaCB3aWxsIGJlIHVzZWQgdG8gZGVmaW5lIHRoZSBnZW5lIHNldCB0byBleGNsdWRlLgoKKiBwMTVfaGV0X2RsZ24vcDA4X2hldF9kbGduOiBwMTVfd3RfZGxnbi9wMTVfaGV0X2RsZ24sCiAgcDA4X3d0X2RsZ24vcDA4X2hldF9kbGduOyByZW1vdmUgdGhlIGdlbmVzIGluY3JlYXNlZCBpbiB3dC4KKiBwMTVfa29fc2NuL3AwOF9rb19zY246IHAxNV93dF9zY24vcDE1X2tvX3NjbiwgcDA4X3d0X3Njbi9wMTVfa29fc2NuCiogcDE1X2hldF9yZXRpbmEvcDA4X2hldF9yZXRpbmE6IEkgdGhpbmsgeW91IGdldCBpdCwgd3QvaGV0IGZvciBib3RoCiAgcDE1IHJldGluYXMgYW5kIHAwOCByZXRpbmFzLi4uCgpQdXQgc2xpZ2h0bHkgZGlmZmVyZW50bHksIGZvciBldmVyeSB0ZXJtIG9mIGludGVyZXN0IEkgd2lsbCBjcmVhdGUgYQpjb250cmFzdCB3aXRoIHRoZSB3dCBhcyBudW1lcmF0b3IgYW5kIHRoZSBkZXNpcmVkIHRlcm0gYXMgZGVub21pbmF0b3IsCnRoZW4gcHVsbCBvdXQgdGhlIGdlbmVzIGluY3JlYXNlZCBpbiB3dC4KCmBgYHtyfQppbmNsdXNpb25zIDwtIGxpc3QoCiAgIyMgSSBsaWtlIGFscGhhYmV0aXppbmcgdGhpbmdzLCBzdGFydCB3aXRoIGRsZ24KICAicDE1X2hldF9kbGduIiA9IGMoInAxNV9oZXRfZGxnbiIsICJwMTVfd3RfZGxnbiIpLAogICJwMDhfaGV0X2RsZ24iID0gYygicDA4X2hldF9kbGduIiwgInAwOF93dF9kbGduIiksCiAgInAxNV9rb19kbGduIiA9IGMoInAxNV9rb19kbGduIiwgInAxNV93dF9kbGduIiksCiAgInAwOF9rb19kbGduIiA9IGMoInAwOF9rb19kbGduIiwgInAwOF93dF9kbGduIiksCiAgIyMgVGhlbiByZXRpbmFzCiAgInAxNV9oZXRfcmV0aW5hIiA9IGMoInAxNV9oZXRfcmV0aW5hIiwgInAxNV93dF9yZXRpbmEiKSwKICAicDA4X2hldF9yZXRpbmEiID0gYygicDA4X2hldF9yZXRpbmEiLCAicDA4X3d0X3JldGluYSIpLAogICJwMTVfa29fcmV0aW5hIiA9IGMoInAxNV9rb19yZXRpbmEiLCAicDE1X3d0X3JldGluYSIpLAogICJwMDhfa29fcmV0aW5hIiA9IGMoInAwOF9rb19yZXRpbmEiLCAicDA4X3d0X3JldGluYSIpLAogICMjIFRoZW4gc2NuCiAgInAxNV9oZXRfc2NuIiA9IGMoInAxNV9oZXRfc2NuIiwgInAxNV93dF9zY24iKSwKICAicDA4X2hldF9zY24iID0gYygicDA4X2hldF9zY24iLCAicDA4X3d0X3NjbiIpLAogICJwMTVfa29fc2NuIiA9IGMoInAxNV9rb19zY24iLCAicDE1X3d0X3NjbiIpLAogICJwMDhfa29fc2NuIiA9IGMoInAwOF9rb19zY24iLCAicDA4X3d0X3NjbiIpKQpgYGAKCiMjIyBUaW1lIGNvbnRyYXN0cwoKRm9yIGVhY2ggbG9jYXRpb24vZ2Vub3R5cGUgb2YgaW50ZXJlc3QsIGxldCB1cyBjb21wYXJlIHAxNS9wMDgKCmBgYHtyfQp0aW1lX2tlZXBlcnMgPC0gbGlzdCgKICAjIyBETEdOCiAgInRfaGV0X2RsZ24iID0gYygicDE1X2hldF9kbGduIiwgInAwOF9oZXRfZGxnbiIpLAogICJ0X2tvX2RsZ24iID0gYygicDE1X2tvX2RsZ24iLCAicDA4X2tvX2RsZ24iKSwKICAjIyBSZXRpbmEKICAidF9oZXRfcmV0aW5hIiA9IGMoInAxNV9oZXRfcmV0aW5hIiwgInAwOF9oZXRfcmV0aW5hIiksCiAgInRfa29fcmV0aW5hIiA9IGMoInAxNV9rb19yZXRpbmEiLCAicDA4X2tvX3JldGluYSIpLAogICMjIFNDTgogICJ0X2hldF9zY24iID0gYygicDE1X2hldF9zY24iLCAicDA4X2hldF9zY24iKSwKICAidF9rb19zY24iID0gYygicDE1X2tvX3NjbiIsICJwMDhfa29fc2NuIikpCmBgYAoKIyMjIExvY2F0aW9uIGNvbnRyYXN0cwoKQ29tcGFyZSBsb2NhdGlvbnMgYW5kIGtlZXAgdGltZS9nZW5vdHlwZSBjb25zaXN0ZW50LiAgSSB3aWxsIHVzZSB0aGUKbG9jYXRpb24gaW5pdGlhbHMgdG8gZGVmaW5lIG51bWVyYXRvci9kZW5vbWluYXRvci4KCmBgYHtyfQpsb2NhdGlvbl9rZWVwZXJzIDwtIGxpc3QoCiAgIyMgZGxnbi9yZXRpbmEKICAiZHJfcDA4X2hldCIgPSBjKCJwMDhfaGV0X2RsZ24iLCAicDA4X2hldF9yZXRpbmEiKSwKICAiZHJfcDE1X2hldCIgPSBjKCJwMTVfaGV0X2RsZ24iLCAicDE1X2hldF9yZXRpbmEiKSwKICAiZHJfcDA4X2tvIiA9IGMoInAwOF9rb19kbGduIiwgInAwOF9rb19yZXRpbmEiKSwKICAiZHJfcDE1X2tvIiA9IGMoInAxNV9rb19kbGduIiwgInAxNV9rb19yZXRpbmEiKSwKICAjIyBzY24vcmV0aW5hCiAgInNyX3AwOF9oZXQiID0gYygicDA4X2hldF9zY24iLCAicDA4X2hldF9yZXRpbmEiKSwKICAic3JfcDE1X2hldCIgPSBjKCJwMTVfaGV0X3NjbiIsICJwMTVfaGV0X3JldGluYSIpLAogICJzcl9wMDhfa28iID0gYygicDA4X2tvX3NjbiIsICJwMDhfa29fcmV0aW5hIiksCiAgInNyX3AxNV9rbyIgPSBjKCJwMTVfa29fc2NuIiwgInAxNV9rb19yZXRpbmEiKSwKICAjIyBkbGduL3NjbgogICJkc19wMDhfaGV0IiA9IGMoInAwOF9oZXRfZGxnbiIsICJwMDhfaGV0X3NjbiIpLAogICJkc19wMTVfaGV0IiA9IGMoInAxNV9oZXRfZGxnbiIsICJwMTVfaGV0X3NjbiIpLAogICJkc19wMDhfa28iID0gYygicDA4X2tvX2RsZ24iLCAicDA4X2tvX3NjbiIpLAogICJkc19wMTVfa28iID0gYygicDE1X2tvX2RsZ24iLCAicDE1X2tvX3NjbiIpKQpgYGAKCiMjIyBHZW5vdHlwZSBjb250cmFzdHMKCkNvbXBhcmUga28vaGV0IHdoaWxlIGtlZXBpbmcgdGltZS9sb2NhdGlvbiBjb25zdGFudC4gIFNpbWlsYXJseSwgdXNlCnRoZSBpbml0aWFscyB0byBkZW5vdGUgbnVtZXJhdG9yL2Rlbm9taW5hdG9yLCB3aGljaCB3aWxsIGFsd2F5cyBiZSBraC4KCmBgYHtyfQpnZW5vdHlwZV9rZWVwZXJzIDwtIGxpc3QoCiAgIyMgRExHTgogICJraF9wMDhfZGxnbiIgPSBjKCJwMDhfa29fZGxnbiIsICJwMDhfaGV0X2RsZ24iKSwKICAia2hfcDE1X2RsZ24iID0gYygicDE1X2tvX2RsZ24iLCAicDE1X2hldF9kbGduIiksCiAgIyMgUmV0aW5hCiAgImtoX3AwOF9yZXRpbmEiID0gYygicDA4X2tvX3JldGluYSIsICJwMDhfaGV0X3JldGluYSIpLAogICJraF9wMTVfcmV0aW5hIiA9IGMoInAxNV9rb19yZXRpbmEiLCAicDE1X2hldF9yZXRpbmEiKSwKICAjIyBTQ04KICAia2hfcDA4X3NjbiIgPSBjKCJwMDhfa29fc2NuIiwgInAwOF9oZXRfc2NuIiksCiAgImtoX3AxNV9zY24iID0gYygicDE1X2tvX3NjbiIsICJwMTVfaGV0X3NjbiIpKQpgYGAKCiMjIFBlcmZvcm0gdGhlIGV4Y2x1c2lvbiBjb21wYXJpc29uCgpNeSBhbGxfcGFpcndpc2UoKSBmdW5jdGlvbiBub3cgaGFzIGEgcGFyYW1ldGVyIHdoaWNoIGFsbG93cyBtZSB0bwpjaG9vc2Ugd2hpY2ggY29udHJhc3RzIHRvIHBlcmZvcm0gaW5zdGVhZCBvZiBsaXRlcmFsbHkgZG9pbmcgZXZlcnkKcG9zc2libGUgY29tcGFyaXNvbi4gIFRoYXQgaXMgd2VsbCBzdWl0ZWQgZm9yIHRoZXNlIG9wZXJhdGlvbnM6CgpJbiBhIGNvbnRhaW5lciwgdGhlIGZvbGxvd2luZyBhcHBlYXJzIHRvIGZhaWwgd2l0aDoKCiJlcnJvciBjb2RlIDEgZnJvbSBMYXBhY2sgcm91dGluZSAnZGdlc2RkJyIKClJ1bm5pbmcgaXQgbWFudWFsbHkgb3V0c2lkZSB0aGUgY29udGFpbmVyIHJlc3VsdHMgaW4gaXQgd29ya2luZwp3aXRob3V0IGVycm9yLiAgSSBhc3N1bWUgdGhlcmVmb3JlIHRoYXQgdGhlIHByb2JsZW0gbGllcyBpbiB0aGUKY29tcGlsYXRpb24gZmxhZ3Mgb2YgTEFQQUNLIGluIHRoZSBjb250YWluZXIuCgpOb3RlOiBUaGlzIHByb2JsZW0gd2FzIGZpeGVkIGJ5IHJlbW92aW5nIHNvbWUgcGFyYWxsZWxpemF0aW9uLgoKYGBge3J9CmluY2x1c2lvbl9kZSA8LSBhbGxfcGFpcndpc2UoCiAgdHhfcGFpcndpc2VfaW5wdXQsIGZpbHRlciA9ICJzaW1wbGUiLCBtb2RlbF9mc3RyaW5nID0gZGVmYXVsdF9mc3RyaW5nLAogIGtlZXBlcnMgPSBpbmNsdXNpb25zLCBtb2RlbF9zdnMgPSAic3Zhc2VxIikKaW5jbHVzaW9uX2RlCgppbmNsdXNpb25fdGFibGVzIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIGluY2x1c2lvbl9kZSwga2VlcGVycyA9IGluY2x1c2lvbnMsIGxhYmVsX2NvbHVtbiA9IGxhYmVsX2NvbHVtbiwKICBleGNlbCA9IGdsdWUoIjA0aW5jbHVzaW9uX2NvbXBhcmlzb25zX3R4L2luY2x1c2lvbl90YWJsZXMtdnt2ZXJ9Lnhsc3giKSkKaW5jbHVzaW9uX3RhYmxlcwojIyAyMDI2MDM6IEkgc3VjY2Vzc2Z1bGx5IHJlY2FwaXR1bGF0ZWQgcHJldmlvdXMgbm9uLWNvbnRhaW5lciByZXN1bHQuCgppbmNsdXNpb25fc2lnIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgaW5jbHVzaW9uX3RhYmxlcywgbGZjID0gbGZjX2N1dG9mZiwgcCA9IGFkanBfY3V0b2ZmLCBhY2NvcmRpbmdfdG8gPSAiZGVzZXEiLAogIGV4Y2VsID0gZ2x1ZSgiMDRpbmNsdXNpb25fY29tcGFyaXNvbnNfdHgvaW5jbHVzaW9uX3NpZy12e3Zlcn0ueGxzeCIpKQppbmNsdXNpb25fc2lnCmBgYAoKMjAyNTA1OiBBIHN0cmFuZ2UgdGhpbmcgaGFwcGVuZWQgaGVyZSBpbiB0aGlzIGl0ZXJhdGlvbjogdGhlIHBsb3Qgb2YKdGhlIHNpZ25pZmljYW50IGdlbmVzIGlzIHRoZSBleGFjdCBzYW1lIGFzIHRoZSBwcmV2aW91cyBpdGVyYXRpb247IGJ1dAp0aGUgdGFibGUgb2YgbnVtYmVycyBvZiBnZW5lcyBsb29rcyBkaWZmZXJlbnQuCgpGb3IgZXhhbXBsZSwgdGhlIHByZXZpb3VzIHRhYmxlIHNob3dlZDogcDE1X2hldF9kbGduIHdpdGggMjA2NyB1cCBhbmQKMjM4MSBkb3duLiAgVGhlIHBsb3Qgc2hvd3MgZXhhY3RseSB0aGF0OyBidXQgdGhlIG5ldyB0YWJsZSBzaG93cyA2MDcKdXAgYW5kIDEyMjkgZG93bi4gIExldCB1cyBjaGVjayB0aGUgYWN0dWFsIGRhdGEgc3RydWN0dXJlIGFuZCBzZWUgd2hhdAppcyB1cD8KCkkgdGhpbmsgSSBnZXQgaXQ6IHdoZW4gd2UgZG8gdGhlIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMgYWJvdmUsIHdlCmV4cGxpY2l0bHkgc2V0IGEgbm9uLXN0YW5kYXJkIHAtdmFsdWUgYW5kIGxvZ0ZDIGJlY2F1c2Ugd2UgYXJlCmV4cGxpY2l0bHkgYXR0ZW1wdGluZyB0byB1c2UgYSB2ZXJ5IGxvb3NlIGRlZmluaXRpb24gb2YgdGhlIHNldCBvZgpnZW5lcyB3aGljaCBhcmUgaW4gZ3JlYXRlciBhYnVuZGFuY2UgdGhhbiB0aGVpciBtb3N0IHNpbWlsYXIKd2lsZC10eXBlLiBIb3dldmVyLCB3aGVuIEkgY3JlYXRlIHRoZSBiYXJwbG90IG9mIHNpZ25pZmljYW50IGdlbmVzOwp0aG9zZSB2YWx1ZXMgYXJlIGV4cGxpY2l0bHkgc2V0IHRvIDAsMSwyIGxvZ0ZDcyBhbmQgcC12YWx1ZSAwLjA1LgpUaGVyZWZvcmUsIHdoYXQgSSBuZWVkIHRvIGRvLCBpbiBvcmRlciB0byBjaGVjayBjb25zaXN0ZW5jeSwgaXMgdG8KcmVwZWF0IHRoaXMgY2FsbCBidXQgd2l0aCB0aGUgZGVmYXVsdCBGQy9wIHZhbHVlcyBhbmQgc2VlIHdoYXQgdGhlCm51bWJlcnMgbG9vayBsaWtlLgoKYGBge3J9CnRlc3RfaW5jbHVzaW9uIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgaW5jbHVzaW9uX3RhYmxlcywgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwgZXhjZWwgPSAiZXhjZWxfdHgvZGVmYXVsdF9pbmNsdXNpb25fc2lnLnhsc3giKQp0ZXN0X2luY2x1c2lvbgpgYGAKClllYWgsIEkgdGhpbmsgdGhpcyBtYWtlcyBzZW5zZTsgd2hhdCBJIG5lZWQgdG8gZG86IGNoYW5nZSB0aGUKc2lnbmlmaWNhbnQgYmFyIHBsb3Qgc28gdGhhdCBpdCB1c2VzIHRoZSBsZmMgY3V0b2ZmIGFyZ3VtZW50IGFzIHRoZQpzZWNvbmQgb2YgaXRzIDMgY3V0b2Zmcy4gIFRoYXQgc2hvdWxkIGVuc3VyZSB0aGF0IHRoZXNlIG51bWJlcnMgYXJlCmNvbnNpc3RlbnQgYWNyb3NzIGFuYWx5c2VzIGFuZCBwYXJhbWV0ZXJzIHByb3ZpZGVkLgoKYGBge3J9CmRpbShpbmNsdXNpb25fc2lnJGRlc2VxJHVwcyRwMTVfaGV0X2RsZ24pCnRlc3RfYWxsX3VwIDwtIGluY2x1c2lvbl90YWJsZXMkZGF0YSRwMTVfaGV0X2RsZ25bWyJkZXNlcV9sb2dmYyJdXSA+IDAuMSAmCiAgaW5jbHVzaW9uX3RhYmxlcyRkYXRhJHAxNV9oZXRfZGxnbltbImRlc2VxX2FkanAiXV0gPD0gMC4xCnN1bW1hcnkodGVzdF9hbGxfdXApCmBgYAoKT2hoLCBJIGdldCBpdCwgd2hlbiBJIHdhcyB0ZXN0aW5nIHRoaXMgb3V0IG1hbnVhbGx5LCBJIHNldCB0aGUgbG9nRkMKdG8gMS4wIGluc3RlYWQgb2YgdGhlIHZlcnkgbWluaW1hbCAwLjEgd2UgaGF2ZSBiZWVuIHVzaW5nIGZvciB0aGlzIQoKIyBNQS9Wb2xjYW5vIHBsb3RzIG9mIHggdnMgd3QKClJhc2htaSBhc2tlZCB0byBzZWUgdGhlIGNvbXBhcmlzb25zIGFnYWluc3Qgd3Q7IEkgd2lsbCBuYW1lIGVhY2ggZmlsZQp4dyB0byBzaG93IHRoYXQgaXQgaXMgeCB2cyB3dC4gZm9yIHdoYXRldmVyIG90aGVyIHBhcmFtZXRlcnMgYXJlIGJlaW5nCmV4YW1pbmVkLiAgSXQgaXMgbGlrZWx5IHRoYXQgc29tZSBjb2xvcnMgd2lsbCBiZSB3cm9uZyBiZWNhdXNlIHRoaXMgaXMKbXkgZmlyc3QgdGltZSBjcmVhdGluZyB0aGVzZSBwbG90cyBhbmQgd2UgYXJlIGRvaW5nIHRoZW0gbWFudWFsbHkuCgojIyBwMTVfaGV0X2RsZ24KCmBgYHtyfQphbGxjIDwtIGNvbG9yX2Nob2ljZXNbWyJhbGwiXV0KdGFibGVfbmFtZSA8LSAicDE1X2hldF9kbGduIgp0YWJsZSA8LSBpbmNsdXNpb25fdGFibGVzW1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCm51bSA8LSAicDE1X2hldF9kbGduIgpkZW5vbSA8LSAicDE1X3d0X2RsZ24iCmh3X3AxNV9kbGduX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGZpbGwgPSAiYmxhY2siLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gMTAsIGFscGhhID0gMS4wLAogIHNpemUgPSA0KQoKcHAoZmlsZSA9ICIwNWluY2x1c2lvbl92b2xjYW5vX21hX3R4L2h3X3AxNV9kbGduX3ZvbGNhbm8ucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpod19wMTVfZGxnbl92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpod19wMTVfZGxnbl92b2xjYW5vW1sicGxvdCJdXQoKaHdfcDE1X2RsZ25fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBhbGxjW1tkZW5vbV1dLCBjb2xvcl9oaWdoID0gYWxsY1tbbnVtXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgb3V0bGluZSA9IG91dGxpbmUsCiAgbGFiZWwgPSAxMCkKCnBwKGZpbGUgPSAiMDVpbmNsdXNpb25fdm9sY2Fub19tYV90eC9od19wMTVfZGxnbl9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmh3X3AxNV9kbGduX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpod19wMTVfZGxnbl9tYVtbInBsb3QiXV0KYGBgCgojIyBwMDhfaGV0X2RsZ24KCmBgYHtyfQp0YWJsZV9uYW1lIDwtICJwMDhfaGV0X2RsZ24iCnRhYmxlIDwtIGluY2x1c2lvbl90YWJsZXNbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KbnVtIDwtICJwMDhfaGV0X2RsZ24iCmRlbm9tIDwtICJwMDhfd3RfZGxnbiIKaHdfcDA4X2RsZ25fdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgZmlsbCA9ICJibGFjayIsCiAgY29sb3JfbG93ID0gYWxsY1tbZGVub21dXSwgY29sb3JfaGlnaCA9IGFsbGNbW251bV1dLAogIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSAxMCwgYWxwaGEgPSAxLjAsCiAgc2l6ZSA9IDQpCnBwKGZpbGUgPSAiMDVpbmNsdXNpb25fdm9sY2Fub19tYV90eC9od19wMDhfZGxnbl92b2xjYW5vLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKaHdfcDA4X2RsZ25fdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKaHdfcDA4X2RsZ25fdm9sY2Fub1tbInBsb3QiXV0KaHdfcDA4X2RsZ25fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBhbGxjW1tkZW5vbV1dLCBjb2xvcl9oaWdoID0gYWxsY1tbbnVtXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgb3V0bGluZSA9IG91dGxpbmUsCiAgbGFiZWwgPSAxMCkKcHAoZmlsZSA9ICIwNWluY2x1c2lvbl92b2xjYW5vX21hX3R4L2h3X3AwOF9kbGduX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKaHdfcDA4X2RsZ25fbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmh3X3AwOF9kbGduX21hW1sicGxvdCJdXQpgYGAKCiMjIHAxNV9rb19kbGduCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAicDE1X2tvX2RsZ24iCnRhYmxlIDwtIGluY2x1c2lvbl90YWJsZXNbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KbnVtIDwtICJwMTVfa29fZGxnbiIKZGVub20gPC0gInAxNV93dF9kbGduIgprd19wMTVfZGxnbl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLCBmaWxsID0gImJsYWNrIiwKICBjb2xvcl9sb3cgPSBhbGxjW1tkZW5vbV1dLCBjb2xvcl9oaWdoID0gYWxsY1tbbnVtXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IDEwLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCkKcHAoZmlsZSA9ICIwNWluY2x1c2lvbl92b2xjYW5vX21hX3R4L2t3X3AxNV9kbGduX3ZvbGNhbm8ucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQprd19wMTVfZGxnbl92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQprd19wMTVfZGxnbl92b2xjYW5vW1sicGxvdCJdXQprd19wMTVfZGxnbl9tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBvdXRsaW5lID0gb3V0bGluZSwKICBsYWJlbCA9IDEwKQpwcChmaWxlID0gIjA1aW5jbHVzaW9uX3ZvbGNhbm9fbWFfdHgva3dfcDE1X2RsZ25fbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQprd19wMTVfZGxnbl9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa3dfcDE1X2RsZ25fbWFbWyJwbG90Il1dCmBgYAoKSEVSRQoKIyMgcDA4X2tvX2RsZ24KCmBgYHtyfQp0YWJsZV9uYW1lIDwtICJwMDhfa29fZGxnbiIKdGFibGUgPC0gaW5jbHVzaW9uX3RhYmxlc1tbImRhdGEiXV1bW3RhYmxlX25hbWVdXQpudW0gPC0gInAwOF9rb19kbGduIgpkZW5vbSA8LSAicDA4X3d0X2RsZ24iCmt3X3AwOF9kbGduX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGZpbGwgPSAiYmxhY2siLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gMTAsIGFscGhhID0gMS4wLAogIHNpemUgPSA0KQpwcChmaWxlID0gIjA1aW5jbHVzaW9uX3ZvbGNhbm9fbWFfdHgva3dfcDA4X2RsZ25fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmt3X3AwOF9kbGduX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmt3X3AwOF9kbGduX3ZvbGNhbm9bWyJwbG90Il1dCmt3X3AwOF9kbGduX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gYWxsY1tbZGVub21dXSwgY29sb3JfaGlnaCA9IGFsbGNbW251bV1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIG91dGxpbmUgPSBvdXRsaW5lLAogIGxhYmVsID0gMTApCnBwKGZpbGUgPSAiMDVpbmNsdXNpb25fdm9sY2Fub19tYV90eC9rd19wMDhfZGxnbl9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmt3X3AwOF9kbGduX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQprd19wMDhfZGxnbl9tYVtbInBsb3QiXV0KYGBgCgojIyBwMTVfaGV0X3JldGluYQoKYGBge3J9CnRhYmxlX25hbWUgPC0gInAxNV9oZXRfcmV0aW5hIgp0YWJsZSA8LSBpbmNsdXNpb25fdGFibGVzW1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCm51bSA8LSAicDE1X2hldF9yZXRpbmEiCmRlbm9tIDwtICJwMTVfd3RfcmV0aW5hIgpod19wMTVfcmV0aW5hX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGZpbGwgPSAiYmxhY2siLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gMTAsIGFscGhhID0gMS4wLAogIHNpemUgPSA0KQpwcChmaWxlID0gIjA1aW5jbHVzaW9uX3ZvbGNhbm9fbWFfdHgvaHdfcDE1X3JldGluYV92b2xjYW5vLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKaHdfcDE1X3JldGluYV92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpod19wMTVfcmV0aW5hX3ZvbGNhbm9bWyJwbG90Il1dCmh3X3AxNV9yZXRpbmFfbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBhbGxjW1tkZW5vbV1dLCBjb2xvcl9oaWdoID0gYWxsY1tbbnVtXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgb3V0bGluZSA9IG91dGxpbmUsCiAgbGFiZWwgPSAxMCkKcHAoZmlsZSA9ICIwNWluY2x1c2lvbl92b2xjYW5vX21hX3R4L2h3X3AxNV9yZXRpbmFfbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpod19wMTVfcmV0aW5hX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpod19wMTVfcmV0aW5hX21hW1sicGxvdCJdXQpgYGAKCiMjIHAwOF9oZXRfcmV0aW5hCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAicDA4X2hldF9yZXRpbmEiCnRhYmxlIDwtIGluY2x1c2lvbl90YWJsZXNbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KbnVtIDwtICJwMDhfaGV0X3JldGluYSIKZGVub20gPC0gInAwOF93dF9yZXRpbmEiCmh3X3AwOF9yZXRpbmFfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgZmlsbCA9ICJibGFjayIsCiAgY29sb3JfbG93ID0gYWxsY1tbZGVub21dXSwgY29sb3JfaGlnaCA9IGFsbGNbW251bV1dLAogIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSAxMCwgYWxwaGEgPSAxLjAsCiAgc2l6ZSA9IDQpCnBwKGZpbGUgPSAiMDVpbmNsdXNpb25fdm9sY2Fub19tYV90eC9od19wMDhfcmV0aW5hX3ZvbGNhbm8ucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpod19wMDhfcmV0aW5hX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmh3X3AwOF9yZXRpbmFfdm9sY2Fub1tbInBsb3QiXV0KaHdfcDA4X3JldGluYV9tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBvdXRsaW5lID0gb3V0bGluZSwKICBsYWJlbCA9IDEwKQpwcChmaWxlID0gIjA1aW5jbHVzaW9uX3ZvbGNhbm9fbWFfdHgvaHdfcDA4X3JldGluYV9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmh3X3AwOF9yZXRpbmFfbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmh3X3AwOF9yZXRpbmFfbWFbWyJwbG90Il1dCmBgYAoKIyMgcDE1X2tvX3JldGluYQoKYGBge3J9CnRhYmxlX25hbWUgPC0gInAxNV9rb19yZXRpbmEiCnRhYmxlIDwtIGluY2x1c2lvbl90YWJsZXNbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KbnVtIDwtICJwMTVfa29fcmV0aW5hIgpkZW5vbSA8LSAicDE1X3d0X3JldGluYSIKa3dfcDE1X3JldGluYV92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLCBmaWxsID0gImJsYWNrIiwKICBjb2xvcl9sb3cgPSBhbGxjW1tkZW5vbV1dLCBjb2xvcl9oaWdoID0gYWxsY1tbbnVtXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IDEwLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCkKcHAoZmlsZSA9ICIwNWluY2x1c2lvbl92b2xjYW5vX21hX3R4L2t3X3AxNV9yZXRpbmFfdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmt3X3AxNV9yZXRpbmFfdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa3dfcDE1X3JldGluYV92b2xjYW5vW1sicGxvdCJdXQprd19wMTVfcmV0aW5hX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gYWxsY1tbZGVub21dXSwgY29sb3JfaGlnaCA9IGFsbGNbW251bV1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIG91dGxpbmUgPSBvdXRsaW5lLAogIGxhYmVsID0gMTApCnBwKGZpbGUgPSAiMDVpbmNsdXNpb25fdm9sY2Fub19tYV90eC9rd19wMTVfcmV0aW5hX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKa3dfcDE1X3JldGluYV9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa3dfcDE1X3JldGluYV9tYVtbInBsb3QiXV0KYGBgCgojIyBwMDhfa29fcmV0aW5hCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAicDA4X2tvX3JldGluYSIKdGFibGUgPC0gaW5jbHVzaW9uX3RhYmxlc1tbImRhdGEiXV1bW3RhYmxlX25hbWVdXQpudW0gPC0gInAwOF9rb19yZXRpbmEiCmRlbm9tIDwtICJwMDhfd3RfcmV0aW5hIgprd19wMDhfcmV0aW5hX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGZpbGwgPSAiYmxhY2siLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gMTAsIGFscGhhID0gMS4wLAogIHNpemUgPSA0KQpwcChmaWxlID0gIjA1aW5jbHVzaW9uX3ZvbGNhbm9fbWFfdHgva3dfcDA4X3JldGluYV92b2xjYW5vLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKa3dfcDA4X3JldGluYV92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQprd19wMDhfcmV0aW5hX3ZvbGNhbm9bWyJwbG90Il1dCmt3X3AwOF9yZXRpbmFfbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBhbGxjW1tkZW5vbV1dLCBjb2xvcl9oaWdoID0gYWxsY1tbbnVtXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgb3V0bGluZSA9IG91dGxpbmUsCiAgbGFiZWwgPSAxMCkKcHAoZmlsZSA9ICIwNWluY2x1c2lvbl92b2xjYW5vX21hX3R4L2t3X3AwOF9yZXRpbmFfbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQprd19wMDhfcmV0aW5hX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQprd19wMDhfcmV0aW5hX21hW1sicGxvdCJdXQpgYGAKCiMjIHAxNV9oZXRfc2NuCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAicDE1X2hldF9zY24iCnRhYmxlIDwtIGluY2x1c2lvbl90YWJsZXNbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KbnVtIDwtICJwMTVfaGV0X3NjbiIKZGVub20gPC0gInAxNV93dF9zY24iCmh3X3AxNV9zY25fdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgZmlsbCA9ICJibGFjayIsCiAgY29sb3JfbG93ID0gYWxsY1tbZGVub21dXSwgY29sb3JfaGlnaCA9IGFsbGNbW251bV1dLAogIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSAxMCwgYWxwaGEgPSAxLjAsCiAgc2l6ZSA9IDQpCnBwKGZpbGUgPSAiMDVpbmNsdXNpb25fdm9sY2Fub19tYV90eC9od19wMTVfc2NuX3ZvbGNhbm8ucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpod19wMTVfc2NuX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmh3X3AxNV9zY25fdm9sY2Fub1tbInBsb3QiXV0KaHdfcDE1X3Njbl9tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBvdXRsaW5lID0gb3V0bGluZSwKICBsYWJlbCA9IDEwKQpwcChmaWxlID0gIjA1aW5jbHVzaW9uX3ZvbGNhbm9fbWFfdHgvaHdfcDE1X3Njbl9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmh3X3AxNV9zY25fbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmh3X3AxNV9zY25fbWFbWyJwbG90Il1dCmBgYAoKIyMgcDA4X2hldF9zY24KCmBgYHtyfQp0YWJsZV9uYW1lIDwtICJwMDhfaGV0X3NjbiIKdGFibGUgPC0gaW5jbHVzaW9uX3RhYmxlc1tbImRhdGEiXV1bW3RhYmxlX25hbWVdXQpudW0gPC0gInAwOF9oZXRfc2NuIgpkZW5vbSA8LSAicDA4X3d0X3NjbiIKaHdfcDA4X3Njbl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLCBmaWxsID0gImJsYWNrIiwKICBjb2xvcl9sb3cgPSBhbGxjW1tkZW5vbV1dLCBjb2xvcl9oaWdoID0gYWxsY1tbbnVtXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IDEwLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCkKcHAoZmlsZSA9ICIwNWluY2x1c2lvbl92b2xjYW5vX21hX3R4L2h3X3AwOF9zY25fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmh3X3AwOF9zY25fdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKaHdfcDA4X3Njbl92b2xjYW5vW1sicGxvdCJdXQpod19wMDhfc2NuX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gYWxsY1tbZGVub21dXSwgY29sb3JfaGlnaCA9IGFsbGNbW251bV1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIG91dGxpbmUgPSBvdXRsaW5lLAogIGxhYmVsID0gMTApCnBwKGZpbGUgPSAiMDVpbmNsdXNpb25fdm9sY2Fub19tYV90eC9od19wMDhfc2NuX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKaHdfcDA4X3Njbl9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKaHdfcDA4X3Njbl9tYVtbInBsb3QiXV0KYGBgCgojIyBwMTVfa29fc2NuCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAicDE1X2tvX3NjbiIKdGFibGUgPC0gaW5jbHVzaW9uX3RhYmxlc1tbImRhdGEiXV1bW3RhYmxlX25hbWVdXQpudW0gPC0gInAxNV9rb19zY24iCmRlbm9tIDwtICJwMTVfd3Rfc2NuIgprd19wMTVfc2NuX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGZpbGwgPSAiYmxhY2siLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gMTAsIGFscGhhID0gMS4wLAogIHNpemUgPSA0KQpwcChmaWxlID0gIjA1aW5jbHVzaW9uX3ZvbGNhbm9fbWFfdHgva3dfcDE1X3Njbl92b2xjYW5vLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKa3dfcDE1X3Njbl92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQprd19wMTVfc2NuX3ZvbGNhbm9bWyJwbG90Il1dCmt3X3AxNV9zY25fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBhbGxjW1tkZW5vbV1dLCBjb2xvcl9oaWdoID0gYWxsY1tbbnVtXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgb3V0bGluZSA9IG91dGxpbmUsCiAgbGFiZWwgPSAxMCkKcHAoZmlsZSA9ICIwNWluY2x1c2lvbl92b2xjYW5vX21hX3R4L2t3X3AxNV9zY25fbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQprd19wMTVfc2NuX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQprd19wMTVfc2NuX21hW1sicGxvdCJdXQpgYGAKCiMjIHAwOF9rb19zY24KCmBgYHtyfQp0YWJsZV9uYW1lIDwtICJwMDhfa29fc2NuIgp0YWJsZSA8LSBpbmNsdXNpb25fdGFibGVzW1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCm51bSA8LSAicDA4X2tvX3NjbiIKZGVub20gPC0gInAwOF93dF9zY24iCmt3X3AwOF9zY25fdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgZmlsbCA9ICJibGFjayIsCiAgY29sb3JfbG93ID0gYWxsY1tbZGVub21dXSwgY29sb3JfaGlnaCA9IGFsbGNbW251bV1dLAogIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSAxMCwgYWxwaGEgPSAxLjAsCiAgc2l6ZSA9IDQpCnBwKGZpbGUgPSAiMDVpbmNsdXNpb25fdm9sY2Fub19tYV90eC9rd19wMDhfc2NuX3ZvbGNhbm8ucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQprd19wMDhfc2NuX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmt3X3AwOF9zY25fdm9sY2Fub1tbInBsb3QiXV0Ka3dfcDA4X3Njbl9tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IGFsbGNbW2Rlbm9tXV0sIGNvbG9yX2hpZ2ggPSBhbGxjW1tudW1dXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBvdXRsaW5lID0gb3V0bGluZSwKICBsYWJlbCA9IDEwKQpwcChmaWxlID0gIjA1aW5jbHVzaW9uX3ZvbGNhbm9fbWFfdHgva3dfcDA4X3Njbl9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmt3X3AwOF9zY25fbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmt3X3AwOF9zY25fbWFbWyJwbG90Il1dCmBgYAoKU2VlIHRoZSBzaGFyZWQvdW5pcXVlIGdlbmVzIGluIHRoZXNlIHNldHMuCgpgYGB7cn0KaW5jbHVzaW9uX3Vwc2V0cyA8LSB1cHNldHJfc2lnKGluY2x1c2lvbl9zaWcpCmluY2x1c2lvbl9pbnRlcnNlY3RzIDwtIHdyaXRlX3Vwc2V0X2dyb3VwcygKICBpbmNsdXNpb25fdXBzZXRzLCBleGNlbCA9ICIwNGluY2x1c2lvbl9jb21wYXJpc29uX3R4L2luY2x1c2lvbl9nZW5lX2dyb3Vwcy54bHN4IikKYGBgCgojIyMgRXh0cmFjdCBnZW5lcyBpbmNsdWRlZCBmb3IgZWFjaCBzZXQgb2YgY29udHJhc3RzCgpOb3csIHVzaW5nIHRoYXQgZnVuY3Rpb24sIHB1bGwgb3V0IHRoZSBnZW5lIElEcyBvZiBnZW5lcyB3ZSBkbyBub3QKdHJ1c3QgYmVjYXVzZSB0aGV5IHdlcmUgdG9vIGhpZ2ggaW4gd3QgZm9yIGV2ZXJ5IGNvbnRyYXN0IHdlIGFyZQpsaWtlbHkgdG8gcGVyZm9ybS4KClRoZSBmb2xsb3dpbmcgd2FzIGEgbW9kaWZpZWQgdmVyc2lvbiBvZiB0aGUgaW5jbHVzaW9uIGZ1bmN0aW9uIHdoaWNoIGlzIHNvbWV3aGF0IG1vcmUgcmVzdHJpY3RpdmUuCgpgYGB7cn0KZXh0cmFjdF9pbmNsdXNpb25zX3N0cmljdCA8LSBmdW5jdGlvbihpbmNsdXNpb25fc2lnLCBpbmNsdXNpb25fdGFibGVzLCBpbmNsdXNpb25zLCBrZWVwZXJzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFsbF9nZW5lcywgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwgd2hpY2ggPSAidXBzIikgewogIHJldGxpc3QgPC0gbGlzdCgpCiAgdGFibGVfbmFtZXMgPC0gbmFtZXMoaW5jbHVzaW9uX3NpZ1tbYWNjb3JkaW5nX3RvXV1bW3doaWNoXV0pCiAgZm9yIChjX251bSBpbiBzZXFfYWxvbmcoa2VlcGVycykpIHsKICAgIGNvbnRyYXN0IDwtIG5hbWVzKGtlZXBlcnMpW2NfbnVtXQogICAgbnVtZXJhdG9yX25hbWUgPC0ga2VlcGVyc1tbY19udW1dXVsxXQogICAgZGVub21pbmF0b3JfbmFtZSA8LSBrZWVwZXJzW1tjX251bV1dWzJdCiAgICAjIyBJbiBteSBuZXcgYnJhbmNoIEkgY2xlYW5lZCB1cCB0aGUgc2FuaXRpemVyIGZ1bmN0aW9uIGZvciBjb250cmFzdHMgc28gdGhpcyBpcyBub3QgbmVlZGVkLgogICAgIyMgVGhlIGZvbGxvd2luZyB0d28gbGluZXMgYXJlIG5vIGxvbmdlciBuZWVkZWQgYmVjYXVzZSBvZiB0aGUgY2xlYW51cHMgSSBwZXJmb3JtZWQuCiAgICAjI251bWVyYXRvcl9uYW1lIDwtIGdzdWIoeCA9IG51bWVyYXRvcl9uYW1lLCBwYXR0ZXJuID0gIihoZXR8a298d3QpIiwgcmVwbGFjZW1lbnQgPSAiX1xcMV8iKQogICAgIyNkZW5vbWluYXRvcl9uYW1lIDwtIGdzdWIoeCA9IGRlbm9taW5hdG9yX25hbWUsIHBhdHRlcm4gPSAiKGhldHxrb3x3dCkiLCByZXBsYWNlbWVudCA9ICJfXFwxXyIpCiAgICBudW1lcmF0b3JfdGFibGUgPC0gaW5jbHVzaW9uX3NpZ1tbYWNjb3JkaW5nX3RvXV1bW3doaWNoXV1bW251bWVyYXRvcl9uYW1lXV0KICAgIG51bWVyYXRvcl9nZW5lcyA8LSByb3duYW1lcyhudW1lcmF0b3JfdGFibGUpCiAgICBkZW5vbWluYXRvcl90YWJsZSA8LSBpbmNsdXNpb25fc2lnW1thY2NvcmRpbmdfdG9dXVtbd2hpY2hdXVtbZGVub21pbmF0b3JfbmFtZV1dCiAgICBkZW5vbWluYXRvcl9nZW5lcyA8LSByb3duYW1lcyhkZW5vbWluYXRvcl90YWJsZSkKICAgIGRmX2NvbHVtbnMgPC0gcGFzdGUwKCJkZXNlcV8iLCBjKCJsb2dmYyIsICJhZGpwIiwgImRlbiIpKQogICAgaW5jbHVkZWRfbnVtIDwtIGluY2x1c2lvbl90YWJsZXNbWyJkYXRhIl1dW1tudW1lcmF0b3JfbmFtZV1dWywgZGZfY29sdW1uc10KICAgIGNvbG5hbWVzKGluY2x1ZGVkX251bSkgPC0gYygibnVtZXJhdG9yX3ZzX3d0X2xvZ2ZjIiwgIm51bWVyYXRvcl92c193dF9hZGpwIiwgIm51bV93dF9tZWFuX2V4cHJzIikKICAgIGluY2x1ZGVkX2RlbiA8LSBpbmNsdXNpb25fdGFibGVzW1siZGF0YSJdXVtbZGVub21pbmF0b3JfbmFtZV1dWywgZGZfY29sdW1uc10KICAgIGNvbG5hbWVzKGluY2x1ZGVkX2RlbikgPC0gYygiZGVub21pbmF0b3JfdnNfd3RfbG9nZmMiLCAiZGVub21pbmF0b3JfdnNfd3RfYWRqcCIsICJkZW5fd3RfbWVhbl9leHBycyIpCiAgICAjIyBJIHRoaW5rIHRoaXMgaXMgd2hlcmUgdGhpbmdzIHdlbnQgd3JvbmcsCiAgICAjIyBjb21wYXJlIHRoaXMgbW9kaWZpZWQgbGluZSB0byB0aGUgb3JpZ2luYWwgdG8gcHJvdmUgaXQuCiAgICBpbmNsdWRlZF9kZiA8LSBtZXJnZShpbmNsdWRlZF9udW0sIGluY2x1ZGVkX2RlbiwgYnkgPSAicm93Lm5hbWVzIikKICAgICMjIFByZXZpb3VzbHksIEkgZGlkIG5vdCBzcGVjaWZ5IHRoZSBtZXJnZSBhY3Rpb24sIGFsbCA9IEZBTFNFIGJ5IGRlZmF1bHQuCiAgICAjIyBUaGlzIHRoZW4gd2lsbCByZXN1bHQgaW4gYSBkaWZmZXJlbmNlIGluIHRoZSByb3dzIG9ic2VydmVkCiAgICAjIyBpbmNsdWRlZF9kZiA8LSBtZXJnZShpbmNsdWRlZF9udW0sIGluY2x1ZGVkX2RlbiwgYnkgPSAicm93Lm5hbWVzIiwgYWxsID0gRkFMU0UpCiAgICByb3duYW1lcyhpbmNsdWRlZF9kZikgPC0gaW5jbHVkZWRfZGZbWyJSb3cubmFtZXMiXV0KICAgIGluY2x1ZGVkX2RmW1siUm93Lm5hbWVzIl1dIDwtIE5VTEwKICAgIGNvbmNhdGVuYXRlZF9nZW5lcyA8LSBjKG51bWVyYXRvcl9nZW5lcywgZGVub21pbmF0b3JfZ2VuZXMpCiAgICBib3RoX2dlbmVfaWR4IDwtIGR1cGxpY2F0ZWQoY29uY2F0ZW5hdGVkX2dlbmVzKQogICAgZ2VuZXNfaW5fYm90aCA8LSBjb25jYXRlbmF0ZWRfZ2VuZXNbYm90aF9nZW5lX2lkeF0KICAgIG1lc3NhZ2UoIlRoZSBzZXQgb2YgdW5pcXVlIGdlbmVzIGhpZ2hlciBpbiAiLCBudW1lcmF0b3JfbmFtZSwKICAgICAgICAgICAgIiB2cy4gd3QgaXMgIiwgbGVuZ3RoKG51bWVyYXRvcl9nZW5lcyksICIuIikKICAgIG1lc3NhZ2UoIlRoZSBzZXQgb2YgdW5pcXVlIGdlbmVzIGhpZ2hlciBpbiAiLCBkZW5vbWluYXRvcl9uYW1lLAogICAgICAgICAgICAiIHZzLiB3dCBpcyAiLCBsZW5ndGgoZGVub21pbmF0b3JfZ2VuZXMpLCAiLiIpCiAgICBtZXNzYWdlKCJUaGUgaW50ZXJzZWN0aW9uIG9mIHRoZW0gaXMgIiwgbGVuZ3RoKGdlbmVzX2luX2JvdGgpLCAiIGdlbmVzLiIpCiAgICBpbmNsdWRlX25hbWUgPC0gcGFzdGUwKCJpbmNfIiwgY29udHJhc3QpCiAgICBpbmNsdWRlX2lkeCA8LSBhbGxfZ2VuZXMgJWluJSBnZW5lc19pbl9ib3RoCiAgICBpbmNsdWRlX2dlbmVzIDwtIGFsbF9nZW5lc1tpbmNsdWRlX2lkeF0KICAgIGRmX25hbWUgPC0gcGFzdGUwKCJkZl8iLCBjb250cmFzdCkKICAgIHJldGxpc3RbW2RmX25hbWVdXSA8LSBpbmNsdWRlZF9kZgogICAgd3JpdHRlbl9pbmNsdXNpb24gPC0gd3JpdGVfeGxzeCgKICAgICAgZGF0YSA9IGluY2x1ZGVkX2RmLAogICAgICBleGNlbCA9IGdsdWUoIjA3aW5jbHVkZWRfc3RyaWN0X2dlbmVzX2V4Y2VsX3R4L3tpbmNsdWRlX25hbWV9LXZ7dmVyfS54bHN4IikpCiAgICByZXRsaXN0W1tpbmNsdWRlX25hbWVdXSA8LSBpbmNsdWRlX2dlbmVzCiAgICByZXRsaXN0W1tjb250cmFzdF1dIDwtIGluY2x1ZGVfZ2VuZXMKICB9CiAgcmV0dXJuKHJldGxpc3QpCn0KYGBgCgpUaGlzIGlzIHRoZSBwcmUtMjAyNTA1IHZlcnNpb24gb2YgdGhpcyBmdW5jdGlvbi4KCmBgYHtyfQpleHRyYWN0X2luY2x1c2lvbnMgPC0gZnVuY3Rpb24oaW5jbHVzaW9uX3NpZywgaW5jbHVzaW9uX3RhYmxlcywgaW5jbHVzaW9ucywga2VlcGVycywgYWxsX2dlbmVzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwgd2hpY2ggPSAidXBzIikgewogIHJldGxpc3QgPC0gbGlzdCgpCiAgdGFibGVfbmFtZXMgPC0gbmFtZXMoaW5jbHVzaW9uX3NpZ1tbYWNjb3JkaW5nX3RvXV1bW3doaWNoXV0pCiAgZm9yIChjX251bSBpbiBzZXFfYWxvbmcoa2VlcGVycykpIHsKICAgIGNvbnRyYXN0IDwtIG5hbWVzKGtlZXBlcnMpW2NfbnVtXQogICAgbnVtZXJhdG9yX25hbWUgPC0ga2VlcGVyc1tbY19udW1dXVsxXQogICAgZGVub21pbmF0b3JfbmFtZSA8LSBrZWVwZXJzW1tjX251bV1dWzJdCiAgICAjIyBJbiBteSBuZXcgYnJhbmNoIEkgY2xlYW5lZCB1cCB0aGUgc2FuaXRpemVyIGZ1bmN0aW9uIGZvciBjb250cmFzdHMgc28gdGhpcyBpcyBub3QgbmVlZGVkLgogICAgIyMgVGhlIGZvbGxvd2luZyB0d28gbGluZXMgYXJlIG5vIGxvbmdlciBuZWVkZWQgYmVjYXVzZSBvZiB0aGUgY2xlYW51cHMgSSBwZXJmb3JtZWQuCiAgICAjI251bWVyYXRvcl9uYW1lIDwtIGdzdWIoeCA9IG51bWVyYXRvcl9uYW1lLCBwYXR0ZXJuID0gIihoZXR8a298d3QpIiwgcmVwbGFjZW1lbnQgPSAiX1xcMV8iKQogICAgIyNkZW5vbWluYXRvcl9uYW1lIDwtIGdzdWIoeCA9IGRlbm9taW5hdG9yX25hbWUsIHBhdHRlcm4gPSAiKGhldHxrb3x3dCkiLCByZXBsYWNlbWVudCA9ICJfXFwxXyIpCiAgICBudW1lcmF0b3JfdGFibGUgPC0gaW5jbHVzaW9uX3NpZ1tbYWNjb3JkaW5nX3RvXV1bW3doaWNoXV1bW251bWVyYXRvcl9uYW1lXV0KICAgIG51bWVyYXRvcl9nZW5lcyA8LSByb3duYW1lcyhudW1lcmF0b3JfdGFibGUpCiAgICBkZW5vbWluYXRvcl90YWJsZSA8LSBpbmNsdXNpb25fc2lnW1thY2NvcmRpbmdfdG9dXVtbd2hpY2hdXVtbZGVub21pbmF0b3JfbmFtZV1dCiAgICBkZW5vbWluYXRvcl9nZW5lcyA8LSByb3duYW1lcyhkZW5vbWluYXRvcl90YWJsZSkKICAgIGRmX2NvbHVtbnMgPC0gcGFzdGUwKCJkZXNlcV8iLCBjKCJsb2dmYyIsICJhZGpwIiwgImRlbiIpKQogICAgaW5jbHVkZWRfbnVtIDwtIGluY2x1c2lvbl90YWJsZXNbWyJkYXRhIl1dW1tudW1lcmF0b3JfbmFtZV1dWywgZGZfY29sdW1uc10KICAgIGNvbG5hbWVzKGluY2x1ZGVkX251bSkgPC0gYygibnVtZXJhdG9yX3ZzX3d0X2xvZ2ZjIiwgIm51bWVyYXRvcl92c193dF9hZGpwIiwgIm51bV93dF9tZWFuX2V4cHJzIikKICAgIGluY2x1ZGVkX2RlbiA8LSBpbmNsdXNpb25fdGFibGVzW1siZGF0YSJdXVtbZGVub21pbmF0b3JfbmFtZV1dWywgZGZfY29sdW1uc10KICAgIGNvbG5hbWVzKGluY2x1ZGVkX2RlbikgPC0gYygiZGVub21pbmF0b3JfdnNfd3RfbG9nZmMiLCAiZGVub21pbmF0b3JfdnNfd3RfYWRqcCIsICJkZW5fd3RfbWVhbl9leHBycyIpCiAgICBpbmNsdWRlZF9kZiA8LSBtZXJnZShpbmNsdWRlZF9udW0sIGluY2x1ZGVkX2RlbiwgYnkgPSAicm93Lm5hbWVzIikKICAgIHJvd25hbWVzKGluY2x1ZGVkX2RmKSA8LSBpbmNsdWRlZF9kZltbIlJvdy5uYW1lcyJdXQogICAgaW5jbHVkZWRfZGZbWyJSb3cubmFtZXMiXV0gPC0gTlVMTAogICAgaW5jbHVkZV9nZW5lcyA8LSB1bmlxdWUoYyhudW1lcmF0b3JfZ2VuZXMsIGRlbm9taW5hdG9yX2dlbmVzKSkKICAgIG1lc3NhZ2UoIlRoZSBzZXQgb2YgdW5pcXVlIGdlbmVzIGhpZ2hlciBpbiAiLCBudW1lcmF0b3JfbmFtZSwKICAgICAgICAgICAgIiB2cy4gd3QgaXMgIiwgbGVuZ3RoKG51bWVyYXRvcl9nZW5lcyksICIuIikKICAgIG1lc3NhZ2UoIlRoZSBzZXQgb2YgdW5pcXVlIGdlbmVzIGhpZ2hlciBpbiAiLCBkZW5vbWluYXRvcl9uYW1lLAogICAgICAgICAgICAiIHZzLiB3dCBpcyAiLCBsZW5ndGgoZGVub21pbmF0b3JfZ2VuZXMpLCAiLiIpCiAgICBtZXNzYWdlKCJUaGUgdW5pcXVlIHVuaW9uIG9mIHRoZW0gaXMgIiwgbGVuZ3RoKGluY2x1ZGVfZ2VuZXMpLCAiIGdlbmVzLiIpCiAgICBpbmNsdWRlX25hbWUgPC0gcGFzdGUwKCJpbmNfIiwgY29udHJhc3QpCiAgICBpbmNsdWRlX2lkeCA8LSBhbGxfZ2VuZXMgJWluJSBpbmNsdWRlX2dlbmVzCiAgICBpbmNsdWRlX2dlbmVzIDwtIGFsbF9nZW5lc1tpbmNsdWRlX2lkeF0KICAgIGRmX25hbWUgPC0gcGFzdGUwKCJkZl8iLCBjb250cmFzdCkKICAgIHJldGxpc3RbW2RmX25hbWVdXSA8LSBpbmNsdWRlZF9kZgogICAgd3JpdHRlbl9pbmNsdXNpb24gPC0gd3JpdGVfeGxzeChkYXRhID0gaW5jbHVkZWRfZGYsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4Y2VsID0gZ2x1ZSgiaW5jbHVkZWRfZ2VuZXNfdHgve2luY2x1ZGVfbmFtZX0tdnt2ZXJ9Lnhsc3giKSkKICAgIHJldGxpc3RbW2luY2x1ZGVfbmFtZV1dIDwtIGluY2x1ZGVfZ2VuZXMKICAgIHJldGxpc3RbW2NvbnRyYXN0XV0gPC0gaW5jbHVkZV9nZW5lcwogIH0KICByZXR1cm4ocmV0bGlzdCkKfQpgYGAKCiMgJ05vcm1hbCcgSW5jbHVzaW9uIGV4dHJhY3Rpb24KCkhlcmUgaXMgdGhlIGZ1bGwgc2V0IG9mIGdlbmUgSURzCgpgYGB7cn0KYWxsX2dlbmVzIDwtIHJvd25hbWVzKGFzc2F5KHR4X3BhaXJ3aXNlX2lucHV0KSkKYGBgCgpJbiB0aGUgZm9sbG93aW5nIGJsb2NrcyBJIGFtIGluY2x1ZGluZyB0aGUgdW5pb24gb2YgZ2VuZXMgb2JzZXJ2ZWQKaGlnaGVyIHRoYW4gd3QgaW4gZWl0aGVyIG9mIHRoZSBudW1lcmF0b3Igb3IgZGVub21pbmF0b3IgZm9yIGVhY2gKY29udHJhc3QuCgojIyBUaW1lCgpgYGB7cn0KdGltZV9pbmNsdXNpb25zIDwtIGV4dHJhY3RfaW5jbHVzaW9ucyhpbmNsdXNpb25fc2lnLCBpbmNsdXNpb25fdGFibGVzLCBpbmNsdXNpb25zLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRpbWVfa2VlcGVycywgYWxsX2dlbmVzKQpgYGAKCiMjIExvY2F0aW9uCgpgYGB7cn0KbG9jYXRpb25faW5jbHVzaW9ucyA8LSBleHRyYWN0X2luY2x1c2lvbnMoaW5jbHVzaW9uX3NpZywgaW5jbHVzaW9uX3RhYmxlcywgaW5jbHVzaW9ucywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbG9jYXRpb25fa2VlcGVycywgYWxsX2dlbmVzKQpgYGAKCiMjIEdlbm90eXBlCgpgYGB7cn0KZ2Vub3R5cGVfaW5jbHVzaW9ucyA8LSBleHRyYWN0X2luY2x1c2lvbnMoaW5jbHVzaW9uX3NpZywgaW5jbHVzaW9uX3RhYmxlcywgaW5jbHVzaW9ucywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZ2Vub3R5cGVfa2VlcGVycywgYWxsX2dlbmVzKQpgYGAKCiMgVGhlIHN0cmljdCAnaW5jbHVzaW9uJyBzZXQKCiMjIFRpbWUKCmBgYHtyfQp0aW1lX2luY2x1c2lvbnNfc3RyaWN0IDwtIGV4dHJhY3RfaW5jbHVzaW9uc19zdHJpY3QoaW5jbHVzaW9uX3NpZywgaW5jbHVzaW9uX3RhYmxlcywgaW5jbHVzaW9ucywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRpbWVfa2VlcGVycywgYWxsX2dlbmVzKQpgYGAKCiMjIExvY2F0aW9uCgpgYGB7cn0KbG9jYXRpb25faW5jbHVzaW9uc19zdHJpY3QgPC0gZXh0cmFjdF9pbmNsdXNpb25zX3N0cmljdChpbmNsdXNpb25fc2lnLCBpbmNsdXNpb25fdGFibGVzLCBpbmNsdXNpb25zLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxvY2F0aW9uX2tlZXBlcnMsIGFsbF9nZW5lcykKYGBgCgojIyBHZW5vdHlwZQoKYGBge3J9Cmdlbm90eXBlX2luY2x1c2lvbnNfc3RyaWN0IDwtIGV4dHJhY3RfaW5jbHVzaW9uc19zdHJpY3QoaW5jbHVzaW9uX3NpZywgaW5jbHVzaW9uX3RhYmxlcywgaW5jbHVzaW9ucywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBnZW5vdHlwZV9rZWVwZXJzLCBhbGxfZ2VuZXMpCmBgYAoKIyMjIENoZWNrIHZzIFRoZXJlc2EncyBmaWx0ZXIKClVwIGFib3ZlIFRoZXJlc2EgcGVyZm9ybWVkIGEgMC4yNSBsb2cyRkMgYW5kIDAuMDUgYWRqcCBmaWx0ZXIgd2hpY2gKcHJvdmlkZWQgYSBzZXQgb2YgMiw2NDAgZ2VuZXMgb2JzZXJ2ZWQgaGlnaGVyIGluIHRoZSBwMDggaGV0IHJldGluYXMKdnMuIHd0IHJldGluYXMuICBJIHNob3VsZCBzZWUgdGhhdCBpbiB0aGlzIGluY2x1c2lvbl9zaWcgZGF0YSBzdHJ1Y3R1cmUuCgpUaGVyZSBpcyBhbiBpbXBvcnRhbnQgY2F2ZWF0IHRob3VnaDogaW4gVGhlcmVzYSdzIGZpbHRlciBhYm92ZSwgc2hlCmRpZCBhIERFIG9mIF9vbmx5XyB0aGUgcmV0aW5hIHNhbXBsZXMgYnV0IEkgZGlkIGFsbCBzYW1wbGVzLiAgSQpleHBlY3RlZCB0aGF0IHRoaXMgd291bGQgcmVzdWx0IGluIGJhc2ljYWxseSB0aGUgc2FtZSByZXN1bHQgKEkKYWN0dWFsbHkgYXNzdW1lZCBJIHdvdWxkIGdldCBhIGZldyBtb3JlIGdlbmVzKSwgYnV0IGluc3RlYWQgaXQgYXBwZWFycwp0byBoYXZlIHJldHJpZXZlZCBhIHNpZ25pZmljYW50bHkgc21hbGxlciBudW1iZXIgb2YgZ2VuZXMgKGFib3V0IDEvMiwKaGFwcGlseSB0aGV5IHByZXR0eSBtdWNoIGFsbCBhcHBlYXIgaW4gdGhlIHByZXZpb3VzIGZpbHRlcikuICBBcyBhCnJlc3VsdCwgSSBhbSBnb2luZyB0byB0cnkgcmVsYXhpbmcgbXkgY29uc3RyYWludHMgc2xpZ2h0bHkgdG8gc2VlIGlmIEkKY2FuIHJlY2FwaXR1bGF0ZSBoZXIgZmlsdGVyICh3aGljaCB3b3VsZCBtYXRjaCBUaGVyZXNhJ3MgbGF0ZXIgZmlsdGVyLAp0aG91Z2ggSSBndWVzcyB0aGF0IGluIHR1cm4gd2lsbCBsZWFkIHRvIGEgc21hbGxlciBzZXQgb2YgZ2VuZXMKY29tcGFyZWQgdG8gaGVyIGxhdGVyLCByZWxheGVkIDAuMSBmaWx0ZXIpLgoKYGBge3J9CmNvbXBhcmlzb24gPC0gaW5jbHVzaW9uX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1sicDA4X2hldF9yZXRpbmEiXV0KY29tcCA8LSBsaXN0KAogICJ0YWEiID0gdGFhX2tlZXBlcnMsCiAgIm5ldyIgPSByb3duYW1lcyhjb21wYXJpc29uKSkKdGVzdF9jb21wYXJpc29uIDwtIFZlbm5lcmFibGU6OlZlbm4oY29tcCkKVmVubmVyYWJsZTo6cGxvdCh0ZXN0X2NvbXBhcmlzb24pCmBgYAoKSSB3YW50IHRvIGhhdmUgYSBsaXR0bGUgZnVuY3Rpb24gd2hpY2gsIGdpdmVuIGEgY29udHJhc3Qgb2YgaW50ZXJlc3QsCndpbGwgZXh0cmFjdCB0aGUgZ2VuZSBzZXRzIHdoaWNoIHNob3VsZCBiZSBpbmNsdWRlZC9leGNsdWRlZCBnaXZlbiB0aGUKYWJvdmUuCgpgYGB7cn0Kd3JpdGVfYWxsX2NwIDwtIGZ1bmN0aW9uKGFsbF9jcCwgcHJlZml4ID0gIjEyIiwgc3VmZml4ID0gIiIpIHsKICBhbGxfd3JpdHRlbiA8LSBsaXN0KCkKICBmb3IgKGcgaW4gc2VxX2xlbihsZW5ndGgoYWxsX2NwKSkpIHsKICAgIG5hbWUgPC0gbmFtZXMoYWxsX2NwKVtnXQogICAgZGF0dW0gPC0gYWxsX2NwW1tuYW1lXV0KICAgIGZpbGVuYW1lIDwtIGdsdWUoIntwcmVmaXh9ZW5yaWNobWVudF9leGNlbF90eC97bmFtZX1fY3Byb2ZpbGVye3N1ZmZpeH0tdnt2ZXJ9Lnhsc3giKQogICAgd3JpdHRlbiA8LSBzbSh3cml0ZV9jcF9kYXRhKGRhdHVtLCBleGNlbCA9IGZpbGVuYW1lKSkKICAgIGFsbF93cml0dGVuW1tnXV0gPC0gd3JpdHRlbgogIH0KICByZXR1cm4oYWxsX3dyaXR0ZW4pCn0Kd3JpdGVfYWxsX2dwIDwtIGZ1bmN0aW9uKGFsbF9ncCwgcHJlZml4ID0gIjEzIiwgc3VmZml4ID0gIiIpIHsKICBhbGxfd3JpdHRlbiA8LSBsaXN0KCkKICBmb3IgKGcgaW4gc2VxX2xlbihsZW5ndGgoYWxsX2dwKSkpIHsKICAgIG5hbWUgPC0gbmFtZXMoYWxsX2dwKVtnXQogICAgZGF0dW0gPC0gYWxsX2dwW1tuYW1lXV0KICAgIGZpbGVuYW1lIDwtIGdsdWUoIntwcmVmaXh9ZW5yaWNobWVudF9leGNlbF90eC97bmFtZX1fZ3Byb2ZpbGVye3N1ZmZpeH0tdnt2ZXJ9Lnhsc3giKQogICAgd3JpdHRlbiA8LSBzbSh3cml0ZV9ncHJvZmlsZXJfZGF0YShkYXR1bSwgZXhjZWwgPSBmaWxlbmFtZSkpCiAgICBhbGxfd3JpdHRlbltbZ11dIDwtIHdyaXR0ZW4KICB9CiAgcmV0dXJuKGFsbF93cml0dGVuKQp9CndyaXRlX2FsbF9lbiA8LSBmdW5jdGlvbihhbGxfZW4sIHByZWZpeCA9ICIxNCIsIHN1ZmZpeCA9ICIiKSB7CiAgYWxsX3dyaXR0ZW4gPC0gbGlzdCgpCiAgZm9yIChlIGluIHNlcV9sZW4obGVuZ3RoKGFsbF9lbikpKSB7CiAgICBuYW1lIDwtIG5hbWVzKGFsbF9lbilbZV0KICAgIGRhdHVtIDwtIGFsbF9lbltbbmFtZV1dCiAgICBmaWxlbmFtZSA8LSBnbHVlKCJ7cHJlZml4fWVucmljaG1lbnRfZXhjZWxfdHgve25hbWV9X2VucmljaGVye3N1ZmZpeH0tdnt2ZXJ9Lnhsc3giKQogICAgd3JpdHRlbiA8LSBzbSh3cml0ZV9lbnJpY2hlcl9kYXRhKGRhdHVtLCBleGNlbCA9IGZpbGVuYW1lKSkKICAgIGFsbF93cml0dGVuW1tlXV0gPC0gd3JpdHRlbgogIH0KICByZXR1cm4oYWxsX3dyaXR0ZW4pCn0KYGBgCgojIyMgRXh0cmFjdCBnZW5lcyBpbmNsdWRlZCBmb3IgZWFjaCBzZXQgb2YgY29udHJhc3RzCgpOb3csIHVzaW5nIHRoYXQgZnVuY3Rpb24sIHB1bGwgb3V0IHRoZSBnZW5lIElEcyBvZiBnZW5lcyB3ZSBkbyBub3QKdHJ1c3QgYmVjYXVzZSB0aGV5IHdlcmUgdG9vIGhpZ2ggaW4gd3QgZm9yIGV2ZXJ5IGNvbnRyYXN0IHdlIGFyZQpsaWtlbHkgdG8gcGVyZm9ybS4KCmBgYHtyfQphbGxfZ2VuZXMgPC0gcm93bmFtZXMoYXNzYXkodHhfcGFpcndpc2VfaW5wdXQpKQp0aW1lX2luY2x1c2lvbnMgPC0gZXh0cmFjdF9pbmNsdXNpb25zKGluY2x1c2lvbl9zaWcsIGluY2x1c2lvbl90YWJsZXMsIGluY2x1c2lvbnMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdGltZV9rZWVwZXJzLCBhbGxfZ2VuZXMpCmxvY2F0aW9uX2luY2x1c2lvbnMgPC0gZXh0cmFjdF9pbmNsdXNpb25zKGluY2x1c2lvbl9zaWcsIGluY2x1c2lvbl90YWJsZXMsIGluY2x1c2lvbnMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxvY2F0aW9uX2tlZXBlcnMsIGFsbF9nZW5lcykKZ2Vub3R5cGVfaW5jbHVzaW9ucyA8LSBleHRyYWN0X2luY2x1c2lvbnMoaW5jbHVzaW9uX3NpZywgaW5jbHVzaW9uX3RhYmxlcywgaW5jbHVzaW9ucywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZ2Vub3R5cGVfa2VlcGVycywgYWxsX2dlbmVzKQpgYGAKCiMjIFBlcmZvcm0gdGhlIERFIGFuYWx5c2VzIGFuZCBleGNsdWRlIHRoZSB0YXJnZXQgZ2VuZXMKCgojIyMgR2Vub3R5cGUKCmBgYHtyfQpnZW5vdHlwZV9kZSA8LSBhbGxfcGFpcndpc2UodHhfcGFpcndpc2VfaW5wdXQsIGZpbHRlciA9IFRSVUUsIG1vZGVsX2ZzdHJpbmcgPSBkZWZhdWx0X2ZzdHJpbmcsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBrZWVwZXJzID0gZ2Vub3R5cGVfa2VlcGVycywgbW9kZWxfc3ZzID0gInN2YXNlcSIpCmdlbm90eXBlX2RlCmBgYAoKIyMjIExvY2F0aW9uCgpgYGB7cn0KbG9jYXRpb25fZGUgPC0gYWxsX3BhaXJ3aXNlKHR4X3BhaXJ3aXNlX2lucHV0LCBmaWx0ZXIgPSBUUlVFLCBtb2RlbF9mc3RyaW5nID0gZGVmYXVsdF9mc3RyaW5nLAogICAgICAgICAgICAgICAgICAgICAgICAgICAga2VlcGVycyA9IGxvY2F0aW9uX2tlZXBlcnMsIG1vZGVsX3N2cyA9ICJzdmFzZXEiKQpsb2NhdGlvbl9kZQpgYGAKCiMjIyBUaW1lCgpgYGB7cn0KdGltZV9kZSA8LSBhbGxfcGFpcndpc2UodHhfcGFpcndpc2VfaW5wdXQsIGZpbHRlciA9IFRSVUUsIG1vZGVsX2ZzdHJpbmcgPSBkZWZhdWx0X2ZzdHJpbmcsCiAgICAgICAgICAgICAgICAgICAgICAgIGtlZXBlcnMgPSB0aW1lX2tlZXBlcnMsIG1vZGVsX3N2cyA9ICJzdmFzZXEiKQp0aW1lX2RlCmBgYAoKSXQgaXMgbmVhciBoZXJlIHdoZW4gdGhlIGNvbXB1dGVyIHNvbWV0aW1lcyBmYWlscyB3aXRoIG5vIG1vcmUKdGVtcGZpbGVzLiAgSW4gYW5vdGhlciB3aW5kb3cgSSBhbSBtZXNzaW5nIHdpdGggdGVtcGZpbGUoKSBpbiBSIHRvIHRyeQp0byB1bmRlcnN0YW5kIHdoZXJlIGl0IGlzIGdvaW5nIG9mZiB0aGUgcmFpbHMuLi4KCiMjIEV4dHJhY3QgdGhlIHJlbGV2YW50IHRhYmxlcyBhbmQgaW5jbHVkZSBnZW5lcyBsb3dlciBpbiB3dAoKIyMjIEdlbm90eXBlIGNvbnRyYXN0cwoKSSB3aWxsIHN0YXJ0IHdpdGggdGhlIHRhYmxlcyBhbmQgbm8gaW5jbHVzaW9ucyBzbyBJIGNhbiBjaGVjayBteSB3b3JrLgoKSW4gdGhpcyBmaXJzdCBibG9jayBJIHdpbGwgZXhwbGFpbiBhIGxpdHRsZSBtb3JlIHRob3JvdWdobHkgd2hhdCBpcwpnb2luZyBvbjoKCjEuICBEdW1wIHRoZSBmdWxsIHRhYmxlIG9mIHRoZSBjb250cmFzdHMgSSBkZWZpbmVkIGFib3ZlIGNvbXBhcmluZyB0aGUKICAgIDMgZ2Vub3R5cGVzIGFjcm9zcyB0aW1lL2xvY2F0aW9uLgoyLiAgSXRlcmF0ZSBvdmVyIGVhY2ggb2YgdGhvc2UgY29udHJhc3RzIGFuZCBkbyB0aGUgZm9sbG93aW5nOgogICAgYS4gIEV4dHJhY3QgdGhlIG5hbWUgb2YgdGhlIGNvbnRyYXN0LCAna2hfcDA4X2RsZ24nIGZvciBleGFtcGxlCiAgICBiLiAgWWFuayBvdXQgdGhhdCBzcGVjaWZpYyBlbnRyeSBmcm9tIHRoZSBrZWVwZXIgbGlzdCBhbmQgaXRzIG5hbWUKICAgIGMuICBZYW5rIG91dCB0aGUgY29ycmVzcG9uZGluZyBzZXQgb2YgZ2VuZXMgdG8gaW5jbHVkZSBmcm9tIHRoZQogICAgICAgIGluY2x1c2lvbnMgZGF0YSBzdHJ1Y3R1cmUuCiAgICBkLiAgQ3JlYXRlIGEgZmlsZW5hbWUgZ2l2ZW4gdGhlIG5hbWUgaW4gKGEpIGFib3ZlIGFuZCB0aGUgbG9nRkMKICAgICAgICBjdXRvZmYgY2hvc2VuIGZvciB0aGUgaW5jbHVzaW9ucyAoSSBhbSBhc3N1bWluZyB3ZSBtYXkgY2hhbmdlCiAgICAgICAgdGhpcykKICAgIGUuICBHaXZlbiAoYiksIChjKSwgYW5kIChkKSwgZXh0cmFjdCB0aGUgY29ycmVzcG9uZGluZyB0YWJsZSBmcm9tCiAgICAgICAgdGhlIGRpZmZlcmVudGlhbCBleHByZXNzaW9uIGFuYWx5c2lzIGFuZCBpbmNsdWRlIHRoZSBhcHByb3ByaWF0ZQogICAgICAgIGdlbmVzLgoKICAgIEZJWE1FOiBteSBncHJvZmlsZXIgZnVuY3Rpb24ganVzdCBhc3N1bWVzIGh1bWFuIGFuZCBzbyBpZiBwYXNzZWQgbW11c2N1bHVzIHdpbGwgaW5jb3JyZWN0bHkKICAgIGF0dGVtcHQgdG8gY29ubmVjdCB0byBub24tZXhpc3RhbnQgZGF0YWJhc2VzLiAgTGV0IHVzIGZpeCB0aGF0IG5vdy4KCmBgYHtyfQpnZW5vdHlwZV90YWJsZXNfZnVsbCA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBnZW5vdHlwZV9kZSwga2VlcGVycyA9IGdlbm90eXBlX2tlZXBlcnMsIGxhYmVsX2NvbHVtbiA9IGxhYmVsX2NvbHVtbiwKICBmYW5jeSA9IFRSVUUsCiAgZXhjZWwgPSBnbHVlKCIwOGZ1bGxfY29udHJhc3RzX2V4Y2VsX3R4L2dlbm90eXBlX2Z1bGxfdGFibGVzLXZ7dmVyfS54bHN4IikpCmdlbm90eXBlX3RhYmxlc19mdWxsCmdlbm90eXBlX3NpZ19mdWxsIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgZ2Vub3R5cGVfdGFibGVzX2Z1bGwsIGFjY29yZGluZ190byA9ICJkZXNlcSIsCiAgZXhjZWwgPSBnbHVlKCIwOGZ1bGxfY29udHJhc3RzX2V4Y2VsX3R4L2dlbm90eXBlX2Z1bGxfc2lnLXZ7dmVyfS54bHN4IikpCmdlbm90eXBlX3NpZ19mdWxsCmBgYAoKIyMjIFNlYXJjaCBFbnJpY2htZW50IG9mIHRoZXNlIHNldHMKCkluIHRoaXMgcnVuLCB3ZSB3aWxsIHNlYXJjaCB0aGUgZnVsbCBzZXQgb2YgZ2VuZXMsIG5leHQgd2Ugd2lsbCBvbmx5CmRvIHRoZSBpbmNsdXNpb25zLgoKYGBge3J9Cmdlbm90eXBlX2Z1bGxfZ3AgPC0gYWxsX2dwcm9maWxlcihnZW5vdHlwZV9zaWdfZnVsbCwgc3BlY2llcyA9ICJtbXVzY3VsdXMiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZXhjZWwgPSAiMDlmdWxsX2NvbnRyYXN0c19lbnJpY2hfdHgvZ2Vub3R5cGVfZnVsbF9ncHJvZmlsZXIueGxzeCIpCmdlbm90eXBlX2Z1bGxfY3AgPC0gYWxsX2Nwcm9maWxlcihnZW5vdHlwZV9zaWdfZnVsbCwgZ2Vub3R5cGVfdGFibGVzX2Z1bGwsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBvcmdkYiA9ICJvcmcuTW0uZWcuZGIiLCBnb19sZXZlbCA9IGdvX2xldmVsLCBvcmdhbmlzbSA9ICJtb3VzZSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBvcmdkYl9mcm9tID0gb3JnZGJfZnJvbSwgbWF4X2dyb3Vwc2l6ZSA9IG1heF9ncm91cHNpemUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBleGNlbCA9ICIwOWZ1bGxfY29udHJhc3RzX2VucmljaF90eC9nZW5vdHlwZV9mdWxsX2Nwcm9maWxlci54bHN4IikKZ2Vub3R5cGVfZnVsbF91cHNldCA8LSB1cHNldHJfc2lnKGdlbm90eXBlX3NpZ19mdWxsKQpnZW5vdHlwZV9mdWxsX2ludGVyc2VjdHMgPC0gd3JpdGVfdXBzZXRfZ3JvdXBzKGdlbm90eXBlX2Z1bGxfdXBzZXQsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZXhjZWwgPSAiMDlmdWxsX2NvbnRyYXN0c19pbnRlcnNlY3Rpb25zX3R4L2dlbm90eXBlX2Z1bGxfZ2VuZV9ncm91cHMueGxzeCIpCmBgYAoKTm93IHNlcGFyYXRlIHRoZSB2YXJpb3VzIGdlbm90eXBlIHRhYmxlcyBhbmQgcGVyZm9ybSB0aGUgaW5jbHVzaW9ucyBvZgp0aGUgZ2VuZXMgd2l0aCByZWxhdGl2ZWx5IGxvdyB3dCB2YWx1ZXMuCgojIyMjIEV4dHJhY3QgZmlsdGVyZWQgZ2VuZXMgYW5kIHBhc3MgdG8gZ3Byb2ZpbGVyMi9jbHVzdGVycHJvZmlsZXIKCmBgYHtyfQpnZW5vdHlwZV90YWJsZXMgPC0gbGlzdCgpCmdlbm90eXBlX3NpZyA8LSBsaXN0KCkKZ2Vub3R5cGVfZ3AgPC0gbGlzdCgpCmdlbm90eXBlX2NwIDwtIGxpc3QoKQpnZW5vdHlwZV9lbiA8LSBsaXN0KCkKZm9yIChrIGluIHNlcV9hbG9uZyhnZW5vdHlwZV9rZWVwZXJzKSkgewogIG5hbWUgPC0gbmFtZXMoZ2Vub3R5cGVfa2VlcGVycylba10KICBtZXNzYWdlKCJFeGFtaW5pbmcgIiwgbmFtZSkKICBrZWVwZXIgPC0gZ2Vub3R5cGVfa2VlcGVyc1tuYW1lXQogIGluY2x1ZGVfbmFtZSA8LSBwYXN0ZTAoImluY18iLCBuYW1lKQogIGluY2x1ZGVfZGZfbmFtZSA8LSBwYXN0ZTAoImRmXyIsIG5hbWUpCiAgaW5jbHVkZV9kZiA8LSBnZW5vdHlwZV9pbmNsdXNpb25zW1tpbmNsdWRlX2RmX25hbWVdXQogIGluY2x1ZGVzIDwtIGdlbm90eXBlX2luY2x1c2lvbnNbW2luY2x1ZGVfbmFtZV1dCiAgc3VtbWFyeShyb3duYW1lcyhnZW5vdHlwZV9zaWdfZnVsbFtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pICVpbiUgaW5jbHVkZXMpCiAgaW5jbHVkZV9maWxlbmFtZSA8LSBnbHVlKCIxMGdlbm90eXBlX2NvbnRyYXN0c19leGNlbF90eC97bmFtZX1faW5jbHVkaW5nX3d0X3tsZmNfY3V0b2ZmfV9kZWNyZWFzZWRfdGFibGUtdnt2ZXJ9Lnhsc3giKQogIGluY2x1ZGVfc2lnX2ZpbGVuYW1lIDwtIGdsdWUoIjEwZ2Vub3R5cGVfY29udHJhc3RzX2V4Y2VsX3R4L3tuYW1lfV9pbmNsdWRpbmdfd3Rfe2xmY19jdXRvZmZ9X2RlY3JlYXNlZF9zaWctdnt2ZXJ9Lnhsc3giKQogIGdlbm90eXBlX3RhYmxlc1tbbmFtZV1dIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogICAgZ2Vub3R5cGVfZGUsIGV4dHJhX2Fubm90ID0gaW5jbHVkZV9kZiwKICAgIGtlZXBlcnMgPSBrZWVwZXIsIGxhYmVsX2NvbHVtbiA9IGxhYmVsX2NvbHVtbiwKICAgIGV4Y2VsID0gaW5jbHVkZV9maWxlbmFtZSwgd2FudGVkX2dlbmVzID0gaW5jbHVkZXMpCiAgcHJpbnQoZ2Vub3R5cGVfdGFibGVzW1tuYW1lXV0pCiAgZ2Vub3R5cGVfc2lnW1tuYW1lXV0gPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICAgIGdlbm90eXBlX3RhYmxlc1tbbmFtZV1dLCBhY2NvcmRpbmdfdG8gPSAiZGVzZXEiLAogICAgZXhjZWwgPSBpbmNsdWRlX3NpZ19maWxlbmFtZSkKICBwcmludChnZW5vdHlwZV9zaWdbW25hbWVdXSkKICBudW1fcm93cyA8LSBucm93KGdlbm90eXBlX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXSkgKwogICAgbnJvdyhnZW5vdHlwZV9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1siZG93bnMiXV1bW25hbWVdXSkKICBtZXNzYWdlKCJUaGVyZSBhcmUgIiwgbnVtX3Jvd3MsICIgc2lnbmlmaWNhbnQgdXAgYW5kIGRvd24gZ2VuZXMuIikKICBpZiAobnVtX3Jvd3MgPj0gMTApIHsKICAgIG1lc3NhZ2UoIlBlcmZvcm1pbmcgZ3Byb2ZpbGVyL2NsdXN0ZXJQcm9maWxlci4iKQogICAgZ2Vub3R5cGVfZ3BbW25hbWVdXSA8LSBhbGxfZ3Byb2ZpbGVyKGdlbm90eXBlX3NpZ1tbbmFtZV1dLCBzcGVjaWVzID0gIm1tdXNjdWx1cyIpCiAgICBnZW5vdHlwZV9jcFtbbmFtZV1dIDwtIGFsbF9jcHJvZmlsZXIoCiAgICAgIGdlbm90eXBlX3NpZ1tbbmFtZV1dLCBnZW5vdHlwZV90YWJsZXNbW25hbWVdXSwKICAgICAgb3JnZGIgPSAib3JnLk1tLmVnLmRiIiwgb3JnZGJfZnJvbSA9IG9yZ2RiX2Zyb20sCiAgICAgIGdvX2xldmVsID0gZ29fbGV2ZWwsIG1heF9ncm91cHNpemUgPSBtYXhfZ3JvdXBzaXplLCBvcmdhbmlzbSA9ICJtb3VzZSIpCiAgICAjaWYgKCFpcy5udWxsKGdldDAoIm0yX2dzYyIpKSkgewogICAgIyAgZ2Vub3R5cGVfZW5bW25hbWVdXSA8LSBhbGxfZW5yaWNoZXIoZ2Vub3R5cGVfc2lnW1tuYW1lXV0sIGdzYyA9IG0yX2dzYywKICAgICMgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG9yZ2RiID0gIm9yZy5NbS5lZy5kYiIsIGZyb20gPSAiRU5TRU1CTCIsIHRvID0gIlNZTUJPTCIpCiAgICAjfQogICAgZ3Bfd3JpdHRlbiA8LSB3cml0ZV9hbGxfZ3AoZ2Vub3R5cGVfZ3BbW25hbWVdXSwgcHJlZml4ID0gIjExIikKICAgIGNwX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2NwKGdlbm90eXBlX2NwW1tuYW1lXV0sIHByZWZpeCA9ICIxMSIpCiAgICAjZW5fd3JpdHRlbiA8LSB3cml0ZV9hbGxfZW4oZ2Vub3R5cGVfZW5bW25hbWVdXSkKICB9IGVsc2UgewogICAgd2FybmluZygiVGhlcmUgYXJlIGxlc3MgdGhhbiAxMCBnZW5lcyB1cCBhbmQgZG93biBpbiB0aGUgIiwgbmFtZSwgIiBjb21wYXJpc29uLiIpCiAgICBtZXNzYWdlKCJUaGVyZSBhcmUgbGVzcyB0aGFuIDEwIGdlbmVzIHVwIGFuZCBkb3duIGluIHRoZSAiLCBuYW1lLCAiIGNvbXBhcmlzb24uIikKICB9Cn0KYGBgCgpQbG90IHRoZSByZXN1bHRzIHNlcGFyYXRlbHkuCgpgYGB7cn0KZm9yIChrIGluIHNlcV9hbG9uZyhnZW5vdHlwZV9rZWVwZXJzKSkgewogIG5hbWUgPC0gbmFtZXMoZ2Vub3R5cGVfa2VlcGVycylba10KICBtZXNzYWdlKCJFeGFtaW5pbmcgIiwgbmFtZSkKICBrZWVwZXIgPC0gZ2Vub3R5cGVfa2VlcGVyc1tuYW1lXQogIGluY2x1ZGVfbmFtZSA8LSBwYXN0ZTAoImluY18iLCBuYW1lKQogIGluY2x1ZGVfZGZfbmFtZSA8LSBwYXN0ZTAoImRmXyIsIG5hbWUpCiAgaW5jbHVkZV9kZiA8LSBnZW5vdHlwZV9pbmNsdXNpb25zW1tpbmNsdWRlX2RmX25hbWVdXQogIGluY2x1ZGVzIDwtIGdlbm90eXBlX2luY2x1c2lvbnNbW2luY2x1ZGVfbmFtZV1dCiAgc3VtbWFyeShyb3duYW1lcyhnZW5vdHlwZV9zaWdfZnVsbFtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pICVpbiUgaW5jbHVkZXMpCiAgbnVtX3Jvd3MgPC0gbnJvdyhnZW5vdHlwZV9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pICsKICAgIG5yb3coZ2Vub3R5cGVfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbImRvd25zIl1dW1tuYW1lXV0pCiAgbnJvdyhnZW5vdHlwZV9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pCiAgbnJvdyhnZW5vdHlwZV9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1siZG93bnMiXV1bW25hbWVdXSkKICBtZXNzYWdlKCJUaGVyZSBhcmUgIiwgbnVtX3Jvd3MsICIgc2lnbmlmaWNhbnQgdXAgYW5kIGRvd24gZ2VuZXMuIikKICAjIyAjMSBpcyB1cCBhbmQgIzIgaXMgZG93biwgYXZvaWRpbmcgdHlwZW9zIGhlcmUuCiAgbnVtX29iamVjdHMgPC0gbGVuZ3RoKGdlbm90eXBlX2NwW1tuYW1lXV0pCiAgaWYgKG51bV9vYmplY3RzID09IDApIHsKICAgIHdhcm5pbmcoIlNvbWV0aGluZyB3ZW50IHdyb25nIGluIGFsbF9jcHJvZmlsZXIuIikKICB9IGVsc2UgewogICAgdXBwIDwtIHdoaWNoKGdyZXBsKHggPSBuYW1lcyhnZW5vdHlwZV9jcFtbbmFtZV1dKSwgcGF0dGVybiA9ICJfdXAkIikpCiAgICBkb3ducCA8LSB3aGljaChncmVwbCh4ID0gbmFtZXMoZ2Vub3R5cGVfY3BbW25hbWVdXSksIHBhdHRlcm4gPSAiX2Rvd24kIikpCiAgICBpZiAobGVuZ3RoKHVwcCkgPiAwKSB7CiAgICAgIG1mX3NpZyA8LSBnZW5vdHlwZV9jcFtbbmFtZV1dW1t1cHBdXVtbImdvX2RhdGEiXV1bWyJNRl9lbnJpY2giXV0KICAgICAgY2Nfc2lnIDwtIGdlbm90eXBlX2NwW1tuYW1lXV1bW3VwcF1dW1siZ29fZGF0YSJdXVtbIkNDX2VucmljaCJdXQogICAgICBicF9zaWcgPC0gZ2Vub3R5cGVfY3BbW25hbWVdXVtbdXBwXV1bWyJnb19kYXRhIl1dW1siQlBfZW5yaWNoIl1dCiAgICAgIG1mX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KG1mX3NpZykKICAgICAgbWZfdHJlZV91cF9maWxlbmFtZSA8LSBnbHVlKCIxMmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fdXBfbWZfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IG1mX3RyZWVfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChtZl9wbG90c191cFtbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBtZl9iYXJfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMTJjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX21mX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IG1mX2Jhcl91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KG1mX3Bsb3RzX3VwW1siYmFyIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgY2NfcGxvdHNfdXAgPC0gcGxvdF9lbnJpY2hyZXN1bHQoY2Nfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBjY190cmVlX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjEyY2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9jY19zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gY2NfdHJlZV91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX3VwW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGNjX2Jhcl91cF9maWxlbmFtZSA8LSBnbHVlKCIxMmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fdXBfY2Nfc2lnX2Jhci5wZGYiKQogICAgICBwcChmaWxlID0gY2NfYmFyX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoY2NfcGxvdHNfdXBbWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBicF9wbG90c191cCA8LSBwbG90X2VucmljaHJlc3VsdChicF9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGJwX3RyZWVfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMTJjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX2JwX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF90cmVlX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoYnBfcGxvdHNfdXBbWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgYnBfcGxvdHNfdXAgPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF9iYXJfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMTJjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX2JwX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IGJwX2Jhcl91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX3VwW1siYmFyIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgIH0KICAgIGlmIChsZW5ndGgoZG93bnApID4gMCkgewogICAgICBtZl9zaWcgPC0gZ2Vub3R5cGVfY3BbW25hbWVdXVtbZG93bnBdXVtbImdvX2RhdGEiXV1bWyJNRl9lbnJpY2giXV0KICAgICAgY2Nfc2lnIDwtIGdlbm90eXBlX2NwW1tuYW1lXV1bW2Rvd25wXV1bWyJnb19kYXRhIl1dW1siQ0NfZW5yaWNoIl1dCiAgICAgIGJwX3NpZyA8LSBnZW5vdHlwZV9jcFtbbmFtZV1dW1tkb3ducF1dW1siZ29fZGF0YSJdXVtbIkJQX2VucmljaCJdXQogICAgICBtZl9wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KG1mX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgbWZfdHJlZV9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjEyY2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX21mX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl90cmVlX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChtZl9wbG90c19kb3duW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIG1mX2Jhcl9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjEyY2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX21mX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IG1mX2Jhcl9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfZG93bltbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGNjX3Bsb3RzX2Rvd24gPC0gcGxvdF9lbnJpY2hyZXN1bHQoY2Nfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBjY190cmVlX2Rvd25fZmlsZW5hbWUgPC0gZ2x1ZSgiMTJjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X2Rvd25fY2Nfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX3RyZWVfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX2Rvd25bWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgY2NfYmFyX2Rvd25fZmlsZW5hbWUgPC0gZ2x1ZSgiMTJjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X2Rvd25fY2Nfc2lnX2Jhci5wZGYiKQogICAgICBwcChmaWxlID0gY2NfYmFyX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChjY19wbG90c19kb3duW1siYmFyIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgYnBfcGxvdHNfZG93biA8LSBwbG90X2VucmljaHJlc3VsdChicF9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGJwX3RyZWVfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxMmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9icF9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gYnBfdHJlZV9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoYnBfcGxvdHNfZG93bltbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBicF9wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KGJwX3NpZywgY2F0ZW9nb3JpZXMgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF9iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxMmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9icF9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF9iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgfQogIH0KfQpgYGAKCkEgZmV3IHNwZWNpZmljIHBsb3RzIG9mIGludGVyZXN0OiBDb2xlbnNvIGFza2VkIHRvIGxhYmVsIGEgZmV3IGdlbmVzCmZvciB0aGUga25vY2tvdXQvaGV0IHAwOF9yZXRpbmFzLCBwMDhfc2NuLCBhbmQgcDA4X2RsZ246IGVpdGhlciB0aGUKdG9wLTE1IG9yIGFsbCBzaWduaWZpY2FudC4gIEkgYW0gcHJldHR5IHN1cmUgaWYgSSB0ZWxsIGl0IDE1IGFuZCB0aGVyZQphcmUgbm90IHRoYXQgbWFueSwgaXQgd2lsbCBqdXN0IGRvIHRoZSBzaWduaWZpY2FudD8gIExldCB1cyBmaW5kIG91dCEKCiMjIyMga28vaGV0IGZvciBwMDggcmV0aW5hcwoKYGBge3J9CnRhYmxlX25hbWUgPC0gImtoX3AwOF9yZXRpbmEiCnRhYmxlX2lucHV0IDwtIGdlbm90eXBlX3RhYmxlc1tbdGFibGVfbmFtZV1dCnRhYmxlIDwtIHRhYmxlX2lucHV0W1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCmludGVyZXN0aW5nIDwtIGMoIk9wbjQiLCAiR205MDA4IiwgIkxycjEiLCAiQ25iZDEiKQpraF9wMDhfcmV0aW5hX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGZpbGwgPSAiYmxhY2siLAogIGNvbG9yX2xvdyA9IGNvbG9yc1tbImhldF9yZXRpbmEiXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJrb19yZXRpbmEiXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nLCBhbHBoYSA9IDEuMCwKICBvdXRsaW5lID0gb3V0bGluZSwgc2l6ZSA9IDQpCnBwKGZpbGUgPSAiMTNnZW5vdHlwZV9tYV92b2xjYW5vX3R4L2toX3AwOF9yZXRpbmFfdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmtoX3AwOF9yZXRpbmFfdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa2hfcDA4X3JldGluYV92b2xjYW5vW1sicGxvdCJdXQpraF9wMDhfcmV0aW5hX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fcmV0aW5hIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1siaGV0X3JldGluYSJdXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBvdXRsaW5lID0gb3V0bGluZSwKICBsYWJlbCA9IGludGVyZXN0aW5nKQpwcChmaWxlID0gIjEzZ2Vub3R5cGVfbWFfdm9sY2Fub190eC9raF9wMDhfcmV0aW5hX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKa2hfcDA4X3JldGluYV9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa2hfcDA4X3JldGluYV9tYVtbInBsb3QiXV0KYGBgCgojIyMjIGtvL2hldCBwMDggU0NOCgpJIGFtIGdvaW5nIHRvIG1ha2UgYW4gZXhlY3V0aXZlIGRlY2lzaW9uIGZvciB0aGlzIHBsb3QsIDE1IGlzIHRvbyBtYW55CmFuZCBtYWtlcyBpdCBjcmF6eSBjbHV0dGVyZWQuCgojIyMgUmVwZWF0IHRoaXMgd2l0aCB0d28gc2V0cyBvZiBnZW5lcwoKYGBge3J9CnRhYmxlX25hbWUgPC0gImtoX3AwOF9zY24iCnRhYmxlX2lucHV0IDwtIGdlbm90eXBlX3RhYmxlc1tbdGFibGVfbmFtZV1dCnRhYmxlIDwtIHRhYmxlX2lucHV0W1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCmludGVyZXN0aW5nX2dlbmVzIDwtIGMoIkZpZ24iLCAiTnJuMSIsICJEcHlzbDIiLCAiQWN0YiIsICJGZ2Y5IiwgIk90eDIiLCAiU2VjMjMiLAogICAgICAgICAgICAgICAgICAgICAgICJOY2FtMSIsICJNYXA0IiwgIlNlYzIyYiIsICJObGduMyIsICJNYXJja3MiLCAiQ2Q0NyIsCiAgICAgICAgICAgICAgICAgICAgICAgIkRweXNsMyIsICJMaW43YyIsICJDYWRtMSIsICJTbngxMiIsICJSaG9hIiwgIklucHA1ZiIsCiAgICAgICAgICAgICAgICAgICAgICAgIkF0ZzEyIiwgIlNldCIsICJHc2szYiIsICJQZGNkNCIsICJHYWJyYTIiLCAiVG1jbzEiLCAiQW5hcGMxNiIpCmtoX3AwOF9zY25fdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcQpfYWRqcCIsCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBzaXplID0gNCwgYWxwaGEgPSAxLjAsCiAgb3V0bGluZSA9IG91dGxpbmUsIGNvbG9yX2xvdyA9IGNvbG9yc1tbImtvX3NjbiJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9zY24iXV0pCnBwKGZpbGUgPSAiMTNnZW5vdHlwZV9tYV92b2xjYW5vX3R4L2toX3AwOF9zY25fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmtoX3AwOF9zY25fdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa2hfcDA4X3Njbl92b2xjYW5vW1sicGxvdCJdXQojIyB3aHkgaW4gdGhlIGNyYXAgaXMgaXQgZG91YmxlLWxhYmVsbGluZyE/CiMjIE15IE1BIHBsb3R0ZXIgaXNuJ3QgYXMgc21hcnQgYXMgdGhlIHZvbGNhbm8gcGxvdHRlciwgdGhlIGdlbmVzIGFyZToKa2hfcDA4X3Njbl9tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IGNvbG9yc1tbImtvX3NjbiJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9zY24iXV0sCiAgb3V0bGluZSA9IG91dGxpbmUsIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMpCnBwKGZpbGUgPSAiMTNnZW5vdHlwZV9tYV92b2xjYW5vX3R4L2toX3AwOF9zY25fbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpraF9wMDhfc2NuX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpraF9wMDhfc2NuX21hW1sicGxvdCJdXQpgYGAKCiMjIyMgU2FtZSBwbG90IGJ1dCBhIGRpZmZlcmVudCBzZXQgb2YgbGFiZWxlZCBnZW5lcwoKYGBge3J9CnRhYmxlX25hbWUgPC0gImtoX3AwOF9zY24iCnRhYmxlX2lucHV0IDwtIGdlbm90eXBlX3RhYmxlc1tbdGFibGVfbmFtZV1dCnRhYmxlIDwtIHRhYmxlX2lucHV0W1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCmludGVyZXN0aW5nX2dlbmVzIDwtIGMoCiAgIkFuYXBjMTYiLCAiR2FicmEyIiwgIlRtY28xIiwgIlNvZDIiLCAiRmdmOSIsICJQZGNkNCIsICJSaG9hIiwgIkdzazNiIiwgIkZveHAxIiwKICAiTmNhbTEiLCAiTWFyY2tzIiwgIkZpZ24iLCAiRHB5c2wzIiwgIklucHA1ZiIsICJDYWRtMSIsICJNYXA0IiwgIlVnY2ciLCAiRWxvdmw0IiwKICAiRWxhdmwxIiwgIkNmbDIiLCAiVG5udDEiLCAiR25iMSIsICJJbXBhY3QiLCAiTnJuMSIsICJObGduMyIsICJBY3RiIiwgIkNkNDciLAogICJTZWMyMmIiLCAiU2xjMTdhNyIsICJWZ2x1dDEiLCAiQWN0YiIsICJCNGdhbHQ1IiwgIkZveHAxIiwgIk90eDIiLCAiTGluN2MiLAogICJTbngxMiIsICJBdGcxMiIsICJTZXQiKQpraF9wMDhfc2NuX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fc2NuIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1siaGV0X3NjbiJdXSwKICBvdXRsaW5lID0gb3V0bGluZSwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBzaXplID0gNCwgYWxwaGEgPSAxLjApCnBwKGZpbGUgPSAiMTNnZW5vdHlwZV9tYV92b2xjYW5vX3R4L2toX3AwOF9zY25fdm9sY2Fub192Mi5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmtoX3AwOF9zY25fdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa2hfcDA4X3Njbl92b2xjYW5vW1sicGxvdCJdXQojIyB3aHkgaW4gdGhlIGNyYXAgaXMgaXQgZG91YmxlLWxhYmVsbGluZyE/CiMjIE15IE1BIHBsb3R0ZXIgaXNuJ3QgYXMgc21hcnQgYXMgdGhlIHZvbGNhbm8gcGxvdHRlciwgdGhlIGdlbmVzIGFyZToKa2hfcDA4X3Njbl9tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IGNvbG9yc1tbImtvX3NjbiJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9zY24iXV0sCiAgb3V0bGluZSA9IG91dGxpbmUsIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMpCnBwKGZpbGUgPSAiMTNnZW5vdHlwZV9tYV92b2xjYW5vX3R4L2toX3AwOF9zY25fbWFfdjIucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpraF9wMDhfc2NuX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpraF9wMDhfc2NuX21hW1sicGxvdCJdXQpgYGAKCiMjIyMga28vaGV0IHAwOCBkTEdOCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAia2hfcDA4X2RsZ24iCnRhYmxlX2lucHV0IDwtIGdlbm90eXBlX3RhYmxlc1tbdGFibGVfbmFtZV1dCnRhYmxlIDwtIHRhYmxlX2lucHV0W1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCmtoX3AwOF9kbGduX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fZGxnbiJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9kbGduIl1dLAogIG91dGxpbmUgPSBvdXRsaW5lLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gMTAsIHNpemUgPSA0LCBhbHBoYSA9IDEuMCkKcHAoZmlsZSA9ICIxM2dlbm90eXBlX21hX3ZvbGNhbm9fdHgva2hfcDA4X2RsZ25fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmtoX3AwOF9kbGduX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmtoX3AwOF9kbGduX3ZvbGNhbm9bWyJwbG90Il1dCiMjIE15IE1BIHBsb3R0ZXIgaXNuJ3QgYXMgc21hcnQgYXMgdGhlIHZvbGNhbm8gcGxvdHRlciwgdGhlIGdlbmVzIGFyZToKa2hfcDA4X2RsZ25fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBjb2xvcnNbWyJrb19kbGduIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1siaGV0X2RsZ24iXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSAxMCwgb3V0bGluZSA9IG91dGxpbmUpCnBwKGZpbGUgPSAiMTNnZW5vdHlwZV9tYV92b2xjYW5vX3R4L2toX3AwOF9kbGduX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKa2hfcDA4X2RsZ25fbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmtoX3AwOF9kbGduX21hW1sicGxvdCJdXQoKYGBgCgojIyMjIGtvL2hldCBmb3IgcDE1IHJldGluYXMKCldoZW4gbGFzdCBJIHJhbiB0aGlzIG1hbnVhbGx5LCBpdCBkaWQgbm90IGRvdWJsZS1sYWJlbCwgaG9wZWZ1bGx5IHRoYXQKcmVtYWlucyB0cnVlIGluIHRoZSBjb250YWluZXIuCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAia2hfcDE1X3JldGluYSIKdGFibGVfaW5wdXQgPC0gZ2Vub3R5cGVfdGFibGVzW1t0YWJsZV9uYW1lXV0KdGFibGUgPC0gdGFibGVfaW5wdXRbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KaW50ZXJlc3RpbmcgPC0gYygiT3BuNCIsICJHbTkwMDgiLCAiTHJyMSIsICJDbmJkMSIpCmtoX3AxNV9yZXRpbmFfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgZmlsbCA9ICJibGFjayIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fcmV0aW5hIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1siaGV0X3JldGluYSJdXSwKICBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmcsIGFscGhhID0gMS4wLAogIG91dGxpbmUgPSBvdXRsaW5lLCBzaXplID0gNCkKcHAoZmlsZSA9ICIxM2dlbm90eXBlX21hX3ZvbGNhbm9fdHgva2hfcDE1X3JldGluYV92b2xjYW5vLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKa2hfcDE1X3JldGluYV92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpraF9wMTVfcmV0aW5hX3ZvbGNhbm9bWyJwbG90Il1dCiMjIHdoeSBpbiB0aGUgY3JhcCBpcyBpdCBkb3VibGUtbGFiZWxsaW5nIT8KIyMgTXkgTUEgcGxvdHRlciBpc24ndCBhcyBzbWFydCBhcyB0aGUgdm9sY2FubyBwbG90dGVyLCB0aGUgZ2VuZXMgYXJlOgpraF9wMTVfcmV0aW5hX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fcmV0aW5hIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1siaGV0X3JldGluYSJdXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nLCBvdXRsaW5lID0gb3V0bGluZSkKcHAoZmlsZSA9ICIxM2dlbm90eXBlX21hX3ZvbGNhbm9fdHgva2hfcDE1X3JldGluYV9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmtoX3AxNV9yZXRpbmFfbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmtoX3AxNV9yZXRpbmFfbWFbWyJwbG90Il1dCmBgYAoKIyMjIyBrby9oZXQgcDE1IFNDTgoKIyMjIFJlcGVhdCB0aGlzIHdpdGggdHdvIHNldHMgb2YgZ2VuZXMKCmBgYHtyfQp0YWJsZV9uYW1lIDwtICJraF9wMTVfc2NuIgp0YWJsZV9pbnB1dCA8LSBnZW5vdHlwZV90YWJsZXNbW3RhYmxlX25hbWVdXQp0YWJsZSA8LSB0YWJsZV9pbnB1dFtbImRhdGEiXV1bW3RhYmxlX25hbWVdXQppbnRlcmVzdGluZ19nZW5lcyA8LSBjKCJGaWduIiwgIk5ybjEiLCAiRHB5c2wyIiwgIkFjdGIiLCAiRmdmOSIsICJPdHgyIiwgIlNlYzIzIiwKICAgICAgICAgICAgICAgICAgICAgICAiTmNhbTEiLCAiTWFwNCIsICJTZWMyMmIiLCAiTmxnbjMiLCAiTWFyY2tzIiwgIkNkNDciLAogICAgICAgICAgICAgICAgICAgICAgICJEcHlzbDMiLCAiTGluN2MiLCAiQ2FkbTEiLCAiU254MTIiLCAiUmhvYSIsICJJbnBwNWYiLAogICAgICAgICAgICAgICAgICAgICAgICJBdGcxMiIsICJTZXQiLCAiR3NrM2IiLCAiUGRjZDQiLCAiR2FicmEyIiwgIlRtY28xIiwgIkFuYXBjMTYiKQpraF9wMTVfc2NuX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBzaXplID0gNCwgYWxwaGEgPSAxLjAsCiAgb3V0bGluZSA9IG91dGxpbmUsIGNvbG9yX2xvdyA9IGNvbG9yc1tbImtvX3NjbiJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9zY24iXV0pCnBwKGZpbGUgPSAiMTNnZW5vdHlwZV9tYV92b2xjYW5vX3R4L2toX3AxNV9zY25fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmtoX3AxNV9zY25fdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa2hfcDE1X3Njbl92b2xjYW5vW1sicGxvdCJdXQpraF9wMTVfc2NuX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fc2NuIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1siaGV0X3NjbiJdXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBvdXRsaW5lID0gb3V0bGluZSkKcHAoZmlsZSA9ICIxM2dlbm90eXBlX21hX3ZvbGNhbm9fdHgva2hfcDE1X3Njbl9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmtoX3AxNV9zY25fbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmtoX3AxNV9zY25fbWFbWyJwbG90Il1dCmBgYAoKUm91bmQgMiB3aXRoIGEgc2VwYXJhdGUgZ2VuZSBzZXQuCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAia2hfcDE1X3NjbiIKdGFibGVfaW5wdXQgPC0gZ2Vub3R5cGVfdGFibGVzW1t0YWJsZV9uYW1lXV0KdGFibGUgPC0gdGFibGVfaW5wdXRbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KaW50ZXJlc3RpbmdfZ2VuZXMgPC0gYygKICAiQW5hcGMxNiIsICJHYWJyYTIiLCAiVG1jbzEiLCAiU29kMiIsICJGZ2Y5IiwgIlBkY2Q0IiwgIlJob2EiLCAiR3NrM2IiLCAiRm94cDEiLAogICJOY2FtMSIsICJNYXJja3MiLCAiRmlnbiIsICJEcHlzbDMiLCAiSW5wcDVmIiwgIkNhZG0xIiwgIk1hcDQiLCAiVWdjZyIsICJFbG92bDQiLAogICJFbGF2bDEiLCAiQ2ZsMiIsICJUbm50MSIsICJHbmIxIiwgIkltcGFjdCIsICJOcm4xIiwgIk5sZ24zIiwgIkFjdGIiLCAiQ2Q0NyIsCiAgIlNlYzIyYiIsICJTbGMxN2E3IiwgIlZnbHV0MSIsICJBY3RiIiwgIkI0Z2FsdDUiLCAiRm94cDEiLCAiT3R4MiIsICJMaW43YyIsCiAgIlNueDEyIiwgIkF0ZzEyIiwgIlNldCIpCmtoX3AxNV9zY25fdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBjb2xvcl9sb3cgPSBjb2xvcnNbWyJrb19zY24iXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJoZXRfc2NuIl1dLAogIG91dGxpbmUgPSBvdXRsaW5lLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIHNpemUgPSA0LCBhbHBoYSA9IDEuMCkKcHAoZmlsZSA9ICIxM2dlbm90eXBlX21hX3ZvbGNhbm9fdHgva2hfcDE1X3Njbl92b2xjYW5vX3YyLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKa2hfcDE1X3Njbl92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpraF9wMTVfc2NuX3ZvbGNhbm9bWyJwbG90Il1dCmtoX3AxNV9zY25fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBjb2xvcnNbWyJrb19zY24iXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJoZXRfc2NuIl1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIG91dGxpbmUgPSBvdXRsaW5lKQpwcChmaWxlID0gIjEzZ2Vub3R5cGVfbWFfdm9sY2Fub190eC9raF9wMTVfc2NuX21hX3YyLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKa2hfcDE1X3Njbl9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKa2hfcDE1X3Njbl9tYVtbInBsb3QiXV0KYGBgCgojIyMjIGtvL2hldCBwMTUgZExHTgoKYGBge3J9CnRhYmxlX25hbWUgPC0gImtoX3AxNV9kbGduIgp0YWJsZV9pbnB1dCA8LSBnZW5vdHlwZV90YWJsZXNbW3RhYmxlX25hbWVdXQp0YWJsZSA8LSB0YWJsZV9pbnB1dFtbImRhdGEiXV1bW3RhYmxlX25hbWVdXQpraF9wMTVfZGxnbl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGNvbG9yX2xvdyA9IGNvbG9yc1tbImtvX2RsZ24iXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJoZXRfZGxnbiJdXSwKICBvdXRsaW5lID0gb3V0bGluZSwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IDEwLCBzaXplID0gNCwgYWxwaGEgPSAxLjApCnBwKGZpbGUgPSAiMTNnZW5vdHlwZV9tYV92b2xjYW5vX3R4L2toX3AxNV9kbGduX3ZvbGNhbm8ucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpraF9wMTVfZGxnbl92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpraF9wMTVfZGxnbl92b2xjYW5vW1sicGxvdCJdXQojIyBNeSBNQSBwbG90dGVyIGlzbid0IGFzIHNtYXJ0IGFzIHRoZSB2b2xjYW5vIHBsb3R0ZXIsIHRoZSBnZW5lcyBhcmU6CmtoX3AxNV9kbGduX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fZGxnbiJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9kbGduIl1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gMTAsIG91dGxpbmUgPSBvdXRsaW5lKQpwcChmaWxlID0gIjEzZ2Vub3R5cGVfbWFfdm9sY2Fub190eC9raF9wMTVfZGxnbl9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCmtoX3AxNV9kbGduX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpraF9wMTVfZGxnbl9tYVtbInBsb3QiXV0KYGBgCgpBIHF1ZXJ5IGZyb20gUmFzaG1pOgoKIkkgd2FzIGRpc2N1c3Npbmcgd2l0aCBEci4gU3BlZXIgYWJvdXQgdGhlIGRMR04gZGF0YSBhbmQgd2UgZm91bmQgbW9zdGx5CnJldGluYWwgZ2VuZXMgaW4gZExHTiBIZXQvS08gb3IgdGltZSBwb2ludCBjb21wYXJpc29uLiBQbGVhc2UgY2hlY2sgaWYKdGhvc2UgYXJlIG5vdCByZXRpbmEgc2FtcGxlcy4iCgpJIGNoZWNrZWQgdGhlIHNhbXBsZXMgZXRjIGFuZCBldmVyeXRoaW5nIGxvb2tzIG9rIHRvIG1lOyBwZXJoYXBzIEkgY2FuCnVzZSB0aGUgcmVzdWx0cyB0byBsb29rIGF0IHRoaXMgcXVlc3Rpb24gaW4gYW5vdGhlciB3YXk6CgpJIHdpbGwgdGhlcmVmb3JlIGxvYWQgdGhlIHAwOF9oZXRfZGxnbi9wMDhfa29fZGxnbiB0YWJsZSBhbmQgY29tcGFyZQppdCB0byB0aGUgcDA4X2hldF9yZXRpbmEvcDA4X2tvX3JldGluYSB0YWJsZSBkaXJlY3RseS4gIEkgdGhpbmsgdGhhdAppZiB0aGVzZSB0dXJuIG91dCB0byBiZSBpZGVudGljYWwsIHRoZW4gdGhlIGh5cG90aGVzaXMgc3VnZ2VzdGVkIGJ5CnRoaXMgcXVlcnkgaXMgY29ycmVjdC4KCk5vdGUsIGluIG9yZGVyIHRvIGRvIHRoaXMsIEkgbXVzdCB1c2UgdGhlIGZ1bGwgdGFibGVzLCBub3QgdGhlCnBvc3QtaW5jbHVzaW9uIHRhYmxlcyBiZWNhdXNlIEkgY2Fubm90IGd1YXJhbnRlZSB0aGF0IHRoZXkgd2lsbCBoYXZlCmlkZW50aWNhbCBnZW5lIElEcy4KCmBgYHtyfQpyZXRpbmFfdGFibGUgPC0gZ2Vub3R5cGVfdGFibGVzX2Z1bGxbWyJkYXRhIl1dW1sia2hfcDA4X3JldGluYSJdXQpkbGduX3RhYmxlIDwtIGdlbm90eXBlX3RhYmxlc19mdWxsW1siZGF0YSJdXVtbImtoX3AwOF9kbGduIl1dCnJldGluYV9zdWJzZXQgPC0gcmV0aW5hX3RhYmxlWywgYygiZW5zZW1ibF9nZW5lX2lkIiwgImRlc2VxX2xvZ2ZjIildCmNvbG5hbWVzKHJldGluYV9zdWJzZXQpIDwtIGMoIklEIiwgInJldGluYV9sb2dmYyIpCmRsZ25fc3Vic2V0IDwtIGRsZ25fdGFibGVbLCBjKCJlbnNlbWJsX2dlbmVfaWQiLCAiZGVzZXFfbG9nZmMiKV0KY29sbmFtZXMoZGxnbl9zdWJzZXQpIDwtIGMoIklEIiwgImRsZ25fbG9nZmMiKQptZXJnZWQgPC0gbWVyZ2UocmV0aW5hX3N1YnNldCwgZGxnbl9zdWJzZXQsIGJ5ID0gIklEIikKcm93bmFtZXMobWVyZ2VkKSA8LSBtYWtlLm5hbWVzKG1lcmdlZFtbIklEIl1dLCB1bmlxdWUgPSBUUlVFKQptZXJnZWRbWyJJRCJdXSA8LSBOVUxMCnBsb3R0ZWQgPC0gcGxvdF9saW5lYXJfc2NhdHRlcihtZXJnZWQpCnBwKGZpbGUgPSAiaW1hZ2VzX3R4L2toX3AwOF9yZXRpbmFfdnNfZGxnbl9kZXNlcV9sb2dmY192YWx1ZXMucG5nIikKcGxvdHRlZFtbInNjYXR0ZXIiXV0KZGV2Lm9mZigpCnBsb3R0ZWRbWyJzY2F0dGVyIl1dCmBgYAoKUmFzaG1pIGFza2VkIGlmIHdlIGNvdWxkIGFsc28gZG8gdGhlIHAxNSBmb3IgdGhpcyBjb21wYXJpc29uOgoKYGBge3J9CnJldGluYV90YWJsZSA8LSBnZW5vdHlwZV90YWJsZXNfZnVsbFtbImRhdGEiXV1bWyJraF9wMTVfcmV0aW5hIl1dCmRsZ25fdGFibGUgPC0gZ2Vub3R5cGVfdGFibGVzX2Z1bGxbWyJkYXRhIl1dW1sia2hfcDE1X2RsZ24iXV0KcmV0aW5hX3N1YnNldCA8LSByZXRpbmFfdGFibGVbLCBjKCJlbnNlbWJsX2dlbmVfaWQiLCAiZGVzZXFfbG9nZmMiKV0KY29sbmFtZXMocmV0aW5hX3N1YnNldCkgPC0gYygiSUQiLCAicmV0aW5hX2xvZ2ZjIikKZGxnbl9zdWJzZXQgPC0gZGxnbl90YWJsZVssIGMoImVuc2VtYmxfZ2VuZV9pZCIsICJkZXNlcV9sb2dmYyIpXQpjb2xuYW1lcyhkbGduX3N1YnNldCkgPC0gYygiSUQiLCAiZGxnbl9sb2dmYyIpCm1lcmdlZCA8LSBtZXJnZShyZXRpbmFfc3Vic2V0LCBkbGduX3N1YnNldCwgYnkgPSAiSUQiKQpyb3duYW1lcyhtZXJnZWQpIDwtIG1ha2UubmFtZXMobWVyZ2VkW1siSUQiXV0sIHVuaXF1ZSA9IFRSVUUpCm1lcmdlZFtbIklEIl1dIDwtIE5VTEwKcGxvdHRlZCA8LSBwbG90X2xpbmVhcl9zY2F0dGVyKG1lcmdlZCkKcHAoZmlsZSA9ICJpbWFnZXNfdHgva2hfcDE1X3JldGluYV92c19kbGduX2Rlc2VxX2xvZ2ZjX3ZhbHVlcy5wbmciKQpwbG90dGVkW1sic2NhdHRlciJdXQpkZXYub2ZmKCkKcGxvdHRlZFtbInNjYXR0ZXIiXV0KYGBgCgojIyMjIFJlcGVhdCB3aXRoIHRoZSBzdHJpY3QgZmlsdGVyCgpgYGB7cn0KZ2Vub3R5cGVfc3RyaWN0X3RhYmxlcyA8LSBsaXN0KCkKZ2Vub3R5cGVfc3RyaWN0X3NpZyA8LSBsaXN0KCkKZ2Vub3R5cGVfc3RyaWN0X2dwIDwtIGxpc3QoKQpnZW5vdHlwZV9zdHJpY3RfY3AgPC0gbGlzdCgpCmdlbm90eXBlX3N0cmljdF9lbiA8LSBsaXN0KCkKZm9yIChrIGluIHNlcV9hbG9uZyhnZW5vdHlwZV9rZWVwZXJzKSkgewogIG5hbWUgPC0gbmFtZXMoZ2Vub3R5cGVfa2VlcGVycylba10KICBtZXNzYWdlKCJFeGFtaW5pbmcgIiwgbmFtZSkKICBrZWVwZXIgPC0gZ2Vub3R5cGVfa2VlcGVyc1tuYW1lXQogIGluY2x1ZGVfbmFtZSA8LSBwYXN0ZTAoImluY18iLCBuYW1lKQogIGluY2x1ZGVfZGZfbmFtZSA8LSBwYXN0ZTAoImRmXyIsIG5hbWUpCiAgaW5jbHVkZV9zdHJpY3RfZGYgPC0gZ2Vub3R5cGVfaW5jbHVzaW9uc19zdHJpY3RbW2luY2x1ZGVfZGZfbmFtZV1dCiAgaW5jbHVkZXNfc3RyaWN0IDwtIGdlbm90eXBlX2luY2x1c2lvbnNfc3RyaWN0W1tpbmNsdWRlX25hbWVdXQogIHN1bW1hcnkocm93bmFtZXMoZ2Vub3R5cGVfc2lnX2Z1bGxbWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKSAlaW4lIGluY2x1ZGVzX3N0cmljdCkKICBpbmNsdWRlX2ZpbGVuYW1lIDwtIGdsdWUoIjE0Z2Vub3R5cGVfc3RyaWN0X2NvbnRyYXN0c19leGNlbF90eC97bmFtZX1faW5jbHVkaW5nX3d0X3tsZmNfY3V0b2ZmfV9kZWNyZWFzZWRfdGFibGUtdnt2ZXJ9Lnhsc3giKQogIGluY2x1ZGVfc2lnX2ZpbGVuYW1lIDwtIGdsdWUoIjE0Z2Vub3R5cGVfc3RyaWN0X2NvbnRyYXN0c19leGNlbF90eC97bmFtZX1faW5jbHVkaW5nX3d0X3tsZmNfY3V0b2ZmfV9kZWNyZWFzZWRfc2lnLXZ7dmVyfS54bHN4IikKICBnZW5vdHlwZV9zdHJpY3RfdGFibGVzW1tuYW1lXV0gPC0gY29tYmluZV9kZV90YWJsZXMoCiAgICBnZW5vdHlwZV9kZSwgZXh0cmFfYW5ub3QgPSBpbmNsdWRlX3N0cmljdF9kZiwKICAgIGtlZXBlcnMgPSBrZWVwZXIsIGxhYmVsX2NvbHVtbiA9IGxhYmVsX2NvbHVtbiwKICAgIGV4Y2VsID0gaW5jbHVkZV9maWxlbmFtZSwgd2FudGVkX2dlbmVzID0gaW5jbHVkZXNfc3RyaWN0KQogIHByaW50KGdlbm90eXBlX3N0cmljdF90YWJsZXNbW25hbWVdXSkKICBnZW5vdHlwZV9zdHJpY3Rfc2lnW1tuYW1lXV0gPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICAgIGdlbm90eXBlX3N0cmljdF90YWJsZXNbW25hbWVdXSwgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwKICAgIGV4Y2VsID0gaW5jbHVkZV9zaWdfZmlsZW5hbWUpCiAgcHJpbnQoZ2Vub3R5cGVfc3RyaWN0X3NpZ1tbbmFtZV1dKQogIG51bV9yb3dzIDwtIG5yb3coZ2Vub3R5cGVfc3RyaWN0X3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXSkgKwogICAgbnJvdyhnZW5vdHlwZV9zdHJpY3Rfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbImRvd25zIl1dW1tuYW1lXV0pCiAgbWVzc2FnZSgiVGhlcmUgYXJlICIsIG51bV9yb3dzLCAiIHNpZ25pZmljYW50IHVwIGFuZCBkb3duIGdlbmVzLiIpCiAgaWYgKG51bV9yb3dzID49IDEwKSB7CiAgICBtZXNzYWdlKCJQZXJmb3JtaW5nIGdwcm9maWxlci9jbHVzdGVyUHJvZmlsZXIuIikKICAgIGdlbm90eXBlX3N0cmljdF9ncFtbbmFtZV1dIDwtIGFsbF9ncHJvZmlsZXIoZ2Vub3R5cGVfc3RyaWN0X3NpZ1tbbmFtZV1dLCBzcGVjaWVzID0gIm1tdXNjdWx1cyIpCiAgICBnZW5vdHlwZV9zdHJpY3RfY3BbW25hbWVdXSA8LSBhbGxfY3Byb2ZpbGVyKAogICAgICBnZW5vdHlwZV9zdHJpY3Rfc2lnW1tuYW1lXV0sIGdlbm90eXBlX3N0cmljdF90YWJsZXNbW25hbWVdXSwKICAgICAgb3JnZGIgPSAib3JnLk1tLmVnLmRiIiwgZ29fbGV2ZWwgPSBnb19sZXZlbCwKICAgICAgb3JnZGJfZnJvbSA9IG9yZ2RiX2Zyb20sIG1heF9ncm91cHNpemUgPSBtYXhfZ3JvdXBzaXplLCBvcmdhbmlzbSA9ICJtb3VzZSIpCiAgICAjaWYgKCFpcy5udWxsKGdldDAoIm0yX2dzYyIpKSkgewogICAgIyAgZ2Vub3R5cGVfc3RyaWN0X2VuW1tuYW1lXV0gPC0gYWxsX2VucmljaGVyKGdlbm90eXBlX3N0cmljdF9zaWdbW25hbWVdXSwgZ3NjID0gbTJfZ3NjLAogICAgIyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgb3JnZGIgPSAib3JnLk1tLmVnLmRiIiwgZnJvbSA9ICJFTlNFTUJMIiwgdG8gPSAiU1lNQk9MIikKICAgICN9CiAgICBncF93cml0dGVuIDwtIHdyaXRlX2FsbF9ncChnZW5vdHlwZV9zdHJpY3RfZ3BbW25hbWVdXSwgcHJlZml4ID0gIjE1Iiwgc3VmZml4ID0gInN0cmljdCIpCiAgICBjcF93cml0dGVuIDwtIHdyaXRlX2FsbF9jcChnZW5vdHlwZV9zdHJpY3RfY3BbW25hbWVdXSwgcHJlZml4ID0gIjE1Iiwgc3VmZml4ID0gInN0cmljdCIpCiAgICAjZW5fd3JpdHRlbiA8LSB3cml0ZV9hbGxfZW4oZ2Vub3R5cGVfc3RyaWN0X2VuW1tuYW1lXV0pCiAgfSBlbHNlIHsKICAgIHdhcm5pbmcoIlRoZXJlIGFyZSBsZXNzIHRoYW4gMTAgZ2VuZXMgdXAgYW5kIGRvd24gaW4gdGhlICIsIG5hbWUsICIgY29tcGFyaXNvbi4iKQogICAgbWVzc2FnZSgiVGhlcmUgYXJlIGxlc3MgdGhhbiAxMCBnZW5lcyB1cCBhbmQgZG93biBpbiB0aGUgIiwgbmFtZSwgIiBjb21wYXJpc29uLiIpCiAgfQp9CmBgYAoKIyBHZW5vdHlwZSBTdHJpY3QgcGxvdHMKCmBgYHtyfQpmb3IgKGsgaW4gc2VxX2Fsb25nKGdlbm90eXBlX2tlZXBlcnMpKSB7CiAgbmFtZSA8LSBuYW1lcyhnZW5vdHlwZV9rZWVwZXJzKVtrXQogIG1lc3NhZ2UoIkV4YW1pbmluZyAiLCBuYW1lKQogIGtlZXBlciA8LSBnZW5vdHlwZV9rZWVwZXJzW25hbWVdCiAgaW5jbHVkZV9uYW1lIDwtIHBhc3RlMCgiaW5jXyIsIG5hbWUpCiAgaW5jbHVkZV9kZl9uYW1lIDwtIHBhc3RlMCgiZGZfIiwgbmFtZSkKICBpbmNsdWRlX3N0cmljdF9kZiA8LSBnZW5vdHlwZV9pbmNsdXNpb25zX3N0cmljdFtbaW5jbHVkZV9kZl9uYW1lXV0KICBpbmNsdWRlc19zdHJpY3QgPC0gZ2Vub3R5cGVfaW5jbHVzaW9uc19zdHJpY3RbW2luY2x1ZGVfbmFtZV1dCiAgc3VtbWFyeShyb3duYW1lcyhnZW5vdHlwZV9zaWdfZnVsbFtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pICVpbiUgaW5jbHVkZXNfc3RyaWN0KQogIG51bV9yb3dzIDwtIG5yb3coZ2Vub3R5cGVfc3RyaWN0X3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXSkgKwogICAgbnJvdyhnZW5vdHlwZV9zdHJpY3Rfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbImRvd25zIl1dW1tuYW1lXV0pCiAgbnJvdyhnZW5vdHlwZV9zdHJpY3Rfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKQogIG5yb3coZ2Vub3R5cGVfc3RyaWN0X3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dKQogIG1lc3NhZ2UoIlRoZXJlIGFyZSAiLCBudW1fcm93cywgIiBzaWduaWZpY2FudCB1cCBhbmQgZG93biBnZW5lcy4iKQogICMjICMxIGlzIHVwIGFuZCAjMiBpcyBkb3duLCBhdm9pZGluZyB0eXBlb3MgaGVyZS4KICBudW1fb2JqZWN0cyA8LSBsZW5ndGgoZ2Vub3R5cGVfc3RyaWN0X2NwW1tuYW1lXV0pCiAgaWYgKG51bV9vYmplY3RzID09IDApIHsKICAgIHdhcm5pbmcoIlNvbWV0aGluZyB3ZW50IHdyb25nIGluIGFsbF9jcHJvZmlsZXIuIikKICB9IGVsc2UgewogICAgdXBwIDwtIHdoaWNoKGdyZXBsKHggPSBuYW1lcyhnZW5vdHlwZV9zdHJpY3RfY3BbW25hbWVdXSksIHBhdHRlcm4gPSAiX3VwJCIpKQogICAgZG93bnAgPC0gd2hpY2goZ3JlcGwoeCA9IG5hbWVzKGdlbm90eXBlX3N0cmljdF9jcFtbbmFtZV1dKSwgcGF0dGVybiA9ICJfZG93biQiKSkKICAgIGlmIChsZW5ndGgodXBwKSA+IDApIHsKICAgICAgbWZfc2lnIDwtIGdlbm90eXBlX3N0cmljdF9jcFtbbmFtZV1dW1t1cHBdXVtbImdvX2RhdGEiXV1bWyJNRl9lbnJpY2giXV0KICAgICAgY2Nfc2lnIDwtIGdlbm90eXBlX3N0cmljdF9jcFtbbmFtZV1dW1t1cHBdXVtbImdvX2RhdGEiXV1bWyJDQ19lbnJpY2giXV0KICAgICAgYnBfc2lnIDwtIGdlbm90eXBlX3N0cmljdF9jcFtbbmFtZV1dW1t1cHBdXVtbImdvX2RhdGEiXV1bWyJCUF9lbnJpY2giXV0KICAgICAgbWZfcGxvdHNfdXAgPC0gcGxvdF9lbnJpY2hyZXN1bHQobWZfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBtZl90cmVlX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjE2Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9tZl9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gbWZfdHJlZV91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KG1mX3Bsb3RzX3VwW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIG1mX2Jhcl91cF9maWxlbmFtZSA8LSBnbHVlKCIxNmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fdXBfbWZfc2lnX2Jhci5wZGYiKQogICAgICBwcChmaWxlID0gbWZfYmFyX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfdXBbWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19wbG90c191cCA8LSBwbG90X2VucmljaHJlc3VsdChjY19zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGNjX3RyZWVfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMTZjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX2NjX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBjY190cmVlX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoY2NfcGxvdHNfdXBbWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgY2NfYmFyX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjE2Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9jY19zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBjY19iYXJfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChjY19wbG90c191cFtbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KGJwX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgYnBfdHJlZV91cF9maWxlbmFtZSA8LSBnbHVlKCIxNmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fdXBfYnBfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IGJwX3RyZWVfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c191cFtbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBicF9wbG90c191cCA8LSBwbG90X2VucmljaHJlc3VsdChicF9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGJwX2Jhcl91cF9maWxlbmFtZSA8LSBnbHVlKCIxNmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fdXBfYnBfc2lnX2Jhci5wZGYiKQogICAgICBwcChmaWxlID0gYnBfYmFyX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoYnBfcGxvdHNfdXBbWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgfQogICAgaWYgKGxlbmd0aChkb3ducCkgPiAwKSB7CiAgICAgIG1mX3NpZyA8LSBnZW5vdHlwZV9zdHJpY3RfY3BbW25hbWVdXVtbZG93bnBdXVtbImdvX2RhdGEiXV1bWyJNRl9lbnJpY2giXV0KICAgICAgY2Nfc2lnIDwtIGdlbm90eXBlX3N0cmljdF9jcFtbbmFtZV1dW1tkb3ducF1dW1siZ29fZGF0YSJdXVtbIkNDX2VucmljaCJdXQogICAgICBicF9zaWcgPC0gZ2Vub3R5cGVfc3RyaWN0X2NwW1tuYW1lXV1bW2Rvd25wXV1bWyJnb19kYXRhIl1dW1siQlBfZW5yaWNoIl1dCiAgICAgIG1mX3Bsb3RzX2Rvd24gPC0gcGxvdF9lbnJpY2hyZXN1bHQobWZfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBtZl90cmVlX2Rvd25fZmlsZW5hbWUgPC0gZ2x1ZSgiMTZjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X2Rvd25fbWZfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IG1mX3RyZWVfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KG1mX3Bsb3RzX2Rvd25bWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgbWZfYmFyX2Rvd25fZmlsZW5hbWUgPC0gZ2x1ZSgiMTZjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X2Rvd25fbWZfc2lnX2Jhci5wZGYiKQogICAgICBwcChmaWxlID0gbWZfYmFyX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChtZl9wbG90c19kb3duW1siYmFyIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgY2NfcGxvdHNfZG93biA8LSBwbG90X2VucmljaHJlc3VsdChjY19zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGNjX3RyZWVfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxNmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9jY19zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gY2NfdHJlZV9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoY2NfcGxvdHNfZG93bltbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxNmNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9jY19zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBjY19iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBicF9wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KGJwX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgYnBfdHJlZV9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjE2Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX2JwX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF90cmVlX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c19kb3duW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX2Rvd24gPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBjYXRlb2dvcmllcyA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGJwX2Jhcl9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjE2Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX2JwX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IGJwX2Jhcl9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoYnBfcGxvdHNfZG93bltbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICB9CiAgfQp9CmBgYAoKR2l2ZW4gdGhpcyBzdHJpY3RlciBmaWx0ZXIsIEkgdGhpbmsgbm8gZ2VuZXMgcGFzcyBpbiB0aGUgZ2Vub21lCmNvbXBhcmlzb25zLgoKIyMjIExvY2F0aW9uIGNvbnRyYXN0cyB3aXRoIGdlbmVzIHJlbW92ZWQva2VwdAoKV2Ugd2lsbCBub3cgcmVwZWF0IHRoZSBhYm92ZSB0YXNrcyBzZWVraW5nIGxvY2F0aW9uIGRpZmZlcmVuY2VzCmluc3RlYWQgb2YgZ2Vub3R5cGU7IGVzc2VudGlhbGx5IEkgY29weS9wYXN0ZWQgdGhlIGFib3ZlIHdpdGgKcy9nZW5vdHlwZS9sb2NhdGlvbi9nLgoKYGBge3J9CmxvY2F0aW9uX3RhYmxlc19mdWxsIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIGxvY2F0aW9uX2RlLCBrZWVwZXJzID0gbG9jYXRpb25fa2VlcGVycywgbGFiZWxfY29sdW1uID0gbGFiZWxfY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiMTdmdWxsX2xvY2F0aW9uX2NvbnRyYXN0c190eC9sb2NhdGlvbl9mdWxsX3RhYmxlcy12e3Zlcn0ueGxzeCIpKQpsb2NhdGlvbl90YWJsZXNfZnVsbApsb2NhdGlvbl9zaWdfZnVsbCA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogIGxvY2F0aW9uX3RhYmxlc19mdWxsLCBhY2NvcmRpbmdfdG8gPSAiZGVzZXEiLAogIGV4Y2VsID0gZ2x1ZSgiMTdmdWxsX2xvY2F0aW9uX2NvbnRyYXN0c190eC9sb2NhdGlvbl9mdWxsX3NpZy12e3Zlcn0ueGxzeCIpKQpsb2NhdGlvbl9zaWdfZnVsbApsb2NhdGlvbl9mdWxsX3Vwc2V0IDwtIHVwc2V0cl9zaWcobG9jYXRpb25fc2lnX2Z1bGwpCmxvY2F0aW9uX2Z1bGxfaW50ZXJzZWN0cyA8LSB3cml0ZV91cHNldF9ncm91cHMoCiAgbG9jYXRpb25fZnVsbF91cHNldCwKICBleGNlbCA9ICJleGNlbC8xN2Z1bGxfbG9jYXRpb25fY29udHJhc3RzX3R4L2xvY2F0aW9uX2Z1bGxfZ2VuZV9ncm91cHMueGxzeCIpCmBgYAoKYGBge3J9CmxvY2F0aW9uX3RhYmxlcyA8LSBsaXN0KCkKbG9jYXRpb25fc2lnIDwtIGxpc3QoKQpsb2NhdGlvbl9ncCA8LSBsaXN0KCkKbG9jYXRpb25fY3AgPC0gbGlzdCgpCmZvciAoayBpbiBzZXFfYWxvbmcobG9jYXRpb25fa2VlcGVycykpIHsKICBuYW1lIDwtIG5hbWVzKGxvY2F0aW9uX2tlZXBlcnMpW2tdCiAgbWVzc2FnZSgiRXhhbWluaW5nICIsIG5hbWUpCiAga2VlcGVyIDwtIGxvY2F0aW9uX2tlZXBlcnNbbmFtZV0KICBpbmNsdWRlcyA8LSBsb2NhdGlvbl9pbmNsdXNpb25zW1tuYW1lXV0KICBpbmNsdWRlX25hbWUgPC0gcGFzdGUwKCJpbmNfIiwgbmFtZSkKICBpbmNsdWRlX2RmX25hbWUgPC0gcGFzdGUwKCJkZl8iLCBuYW1lKQogIGluY2x1ZGVfZGYgPC0gbG9jYXRpb25faW5jbHVzaW9uc1tbaW5jbHVkZV9kZl9uYW1lXV0KICBpbmNsdWRlcyA8LSBsb2NhdGlvbl9pbmNsdXNpb25zW1tpbmNsdWRlX25hbWVdXQogIHN1bW1hcnkocm93bmFtZXMobG9jYXRpb25fc2lnX2Z1bGxbWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKSAlaW4lIGluY2x1ZGVzKQogIGluY2x1ZGVfZmlsZW5hbWUgPC0gZ2x1ZSgiMThsb2NhdGlvbl9jb250cmFzdHNfdHgve25hbWV9X2luY2x1ZGluZ193dF97bGZjX2N1dG9mZn1fZGVjcmVhc2VkX3RhYmxlLXZ7dmVyfS54bHN4IikKICBpbmNsdWRlX3NpZ19maWxlbmFtZSA8LSBnbHVlKCIxOGxvY2F0aW9uX2NvbnRyYXN0c190eC97bmFtZX1faW5jbHVkaW5nX3d0X3tsZmNfY3V0b2ZmfV9kZWNyZWFzZWRfc2lnLXZ7dmVyfS54bHN4IikKICBsb2NhdGlvbl90YWJsZXNbW25hbWVdXSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICAgIGxvY2F0aW9uX2RlLCBleHRyYV9hbm5vdCA9IGluY2x1ZGVfZGYsCiAgICBrZWVwZXJzID0ga2VlcGVyLCBsYWJlbF9jb2x1bW4gPSBsYWJlbF9jb2x1bW4sCiAgICBleGNlbCA9IGluY2x1ZGVfZmlsZW5hbWUsIHdhbnRlZF9nZW5lcyA9IGluY2x1ZGVzKQogIHByaW50KGxvY2F0aW9uX3RhYmxlc1tbbmFtZV1dKQogIGxvY2F0aW9uX3NpZ1tbbmFtZV1dIDwtIGV4dHJhY3Rfc2lnbmlmaWNhbnRfZ2VuZXMoCiAgICBsb2NhdGlvbl90YWJsZXNbW25hbWVdXSwgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwKICAgIGV4Y2VsID0gaW5jbHVkZV9zaWdfZmlsZW5hbWUpCiAgcHJpbnQobG9jYXRpb25fc2lnW1tuYW1lXV0pCiAgbnVtX3Jvd3MgPC0gbnJvdyhsb2NhdGlvbl9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pICsKICAgIG5yb3cobG9jYXRpb25fc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbImRvd25zIl1dW1tuYW1lXV0pCiAgbWVzc2FnZSgiVGhlcmUgYXJlICIsIG51bV9yb3dzLCAiIHNpZ25pZmljYW50IHVwIGFuZCBkb3duIGdlbmVzLiIpCiAgaWYgKG51bV9yb3dzID4gMTApIHsKICAgIGxvY2F0aW9uX2dwW1tuYW1lXV0gPC0gYWxsX2dwcm9maWxlcihsb2NhdGlvbl9zaWdbW25hbWVdXSwgc3BlY2llcyA9ICJtbXVzY3VsdXMiKQogICAgbG9jYXRpb25fY3BbW25hbWVdXSA8LSBhbGxfY3Byb2ZpbGVyKAogICAgICBsb2NhdGlvbl9zaWdbW25hbWVdXSwgbG9jYXRpb25fdGFibGVzW1tuYW1lXV0sCiAgICAgIG9yZ2RiID0gIm9yZy5NbS5lZy5kYiIsIGdvX2xldmVsID0gZ29fbGV2ZWwsIG9yZ2RiX2Zyb20gPSBvcmdkYl9mcm9tLAogICAgICBtYXhfZ3JvdXBzaXplID0gbWF4X2dyb3Vwc2l6ZSwgb3JnYW5pc20gPSAibW91c2UiKQogICAgY3Bfd3JpdHRlbiA8LSB3cml0ZV9hbGxfY3AobG9jYXRpb25fY3BbW25hbWVdXSwgcHJlZml4ID0gIjE5IikKICAgIGdwX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2dwKGxvY2F0aW9uX2dwW1tuYW1lXV0sIHByZWZpeCA9ICIxOSIpCiAgfQp9CmBgYAoKUHJpbnQgb3V0IGFsbCB0aGUgcGxvdHMgaW4gYSBzZXBhcmF0ZSBibG9jay4KCmBgYHtyfQpmb3IgKGsgaW4gc2VxX2Fsb25nKGxvY2F0aW9uX2tlZXBlcnMpKSB7CiAgbmFtZSA8LSBuYW1lcyhsb2NhdGlvbl9rZWVwZXJzKVtrXQogIG1lc3NhZ2UoIkV4YW1pbmluZyAiLCBuYW1lKQogIGtlZXBlciA8LSBsb2NhdGlvbl9rZWVwZXJzW25hbWVdCiAgaW5jbHVkZXMgPC0gbG9jYXRpb25faW5jbHVzaW9uc1tbbmFtZV1dCiAgaW5jbHVkZV9uYW1lIDwtIHBhc3RlMCgiaW5jXyIsIG5hbWUpCiAgaW5jbHVkZV9kZl9uYW1lIDwtIHBhc3RlMCgiZGZfIiwgbmFtZSkKICBpbmNsdWRlX2RmIDwtIGxvY2F0aW9uX2luY2x1c2lvbnNbW2luY2x1ZGVfZGZfbmFtZV1dCiAgaW5jbHVkZXMgPC0gbG9jYXRpb25faW5jbHVzaW9uc1tbaW5jbHVkZV9uYW1lXV0KICBzdW1tYXJ5KHJvd25hbWVzKGxvY2F0aW9uX3NpZ19mdWxsW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXSkgJWluJSBpbmNsdWRlcykKICBudW1fcm93cyA8LSBucm93KGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXSkgKwogICAgbnJvdyhsb2NhdGlvbl9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1siZG93bnMiXV1bW25hbWVdXSkKICBucm93KGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXSkKICBucm93KGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dKQogIG1lc3NhZ2UoIlRoZXJlIGFyZSAiLCBudW1fcm93cywgIiBzaWduaWZpY2FudCB1cCBhbmQgZG93biBnZW5lcy4iKQogIG51bV9vYmplY3RzIDwtIGxlbmd0aChsb2NhdGlvbl9jcFtbbmFtZV1dKQogIGlmIChudW1fb2JqZWN0cyA9PSAwKSB7CiAgICB3YXJuaW5nKCJTb21ldGhpbmcgd2VudCB3cm9uZyBpbiBhbGxfY3Byb2ZpbGVyLiIpCiAgfSBlbHNlIHsKICAgIHVwcCA8LSB3aGljaChncmVwbCh4ID0gbmFtZXMobG9jYXRpb25fY3BbW25hbWVdXSksIHBhdHRlcm4gPSAiX3VwJCIpKQogICAgZG93bnAgPC0gd2hpY2goZ3JlcGwoeCA9IG5hbWVzKGxvY2F0aW9uX2NwW1tuYW1lXV0pLCBwYXR0ZXJuID0gIl9kb3duJCIpKQogICAgaWYgKGxlbmd0aCh1cHApID4gMCkgewogICAgICBtZl9zaWcgPC0gbG9jYXRpb25fY3BbW25hbWVdXVtbdXBwXV1bWyJnb19kYXRhIl1dW1siTUZfZW5yaWNoIl1dCiAgICAgIGNjX3NpZyA8LSBsb2NhdGlvbl9jcFtbbmFtZV1dW1t1cHBdXVtbImdvX2RhdGEiXV1bWyJDQ19lbnJpY2giXV0KICAgICAgYnBfc2lnIDwtIGxvY2F0aW9uX2NwW1tuYW1lXV1bW3VwcF1dW1siZ29fZGF0YSJdXVtbIkJQX2VucmljaCJdXQogICAgICBtZl9wbG90c191cCA8LSBwbG90X2VucmljaHJlc3VsdChtZl9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIG1mX3RyZWVfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMTljbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX21mX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl90cmVlX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfdXBbWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgbWZfYmFyX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjE5Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9tZl9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl9iYXJfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChtZl9wbG90c191cFtbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGNjX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KGNjX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgY2NfdHJlZV91cF9maWxlbmFtZSA8LSBnbHVlKCIxOWNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fdXBfY2Nfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX3RyZWVfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChjY19wbG90c191cFtbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19iYXJfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMTljbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX2NjX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX2Jhcl91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX3VwW1siYmFyIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgYnBfcGxvdHNfdXAgPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF90cmVlX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjE5Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9icF9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gYnBfdHJlZV91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX3VwW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KGJwX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgYnBfYmFyX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjE5Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9icF9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF9iYXJfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c191cFtbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICB9CiAgICBpZiAobGVuZ3RoKGRvd25wKSA+IDApIHsKICAgICAgbWZfc2lnIDwtIGxvY2F0aW9uX2NwW1tuYW1lXV1bW2Rvd25wXV1bWyJnb19kYXRhIl1dW1siTUZfZW5yaWNoIl1dCiAgICAgIGNjX3NpZyA8LSBsb2NhdGlvbl9jcFtbbmFtZV1dW1tkb3ducF1dW1siZ29fZGF0YSJdXVtbIkNDX2VucmljaCJdXQogICAgICBicF9zaWcgPC0gbG9jYXRpb25fY3BbW25hbWVdXVtbZG93bnBdXVtbImdvX2RhdGEiXV1bWyJCUF9lbnJpY2giXV0KICAgICAgbWZfcGxvdHNfZG93biA8LSBwbG90X2VucmljaHJlc3VsdChtZl9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIG1mX3RyZWVfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxOWNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9tZl9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gbWZfdHJlZV9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfZG93bltbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBtZl9iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxOWNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9tZl9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl9iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KG1mX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KGNjX3NpZywgc2hvd0NhdGVnb3J5ID0gMTIpCiAgICAgIGNjX3RyZWVfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxOWNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9jY19zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gY2NfdHJlZV9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoY2NfcGxvdHNfZG93bltbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxOWNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9jY19zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBjY19iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBicF9wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KGJwX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgYnBfdHJlZV9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjE5Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX2JwX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF90cmVlX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c19kb3duW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX2Rvd24gPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF9iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIxOWNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9icF9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF9iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgfQogIH0KfQpgYGAKCkNvbGVuc28gc2VudCBhIHNwZWNpZmljIHF1ZXJ5IG9mIGludGVyZXN0LCBjb21wYXJpbmcgU0NOIHZzLiBSZXRpbmFzCmF0IHAwOCBpbiB0aGUgaGV0ZXJvenlnb3RlcyBpbmNsdWRpbmcgYSBzZXQgb2YgZ2VuZXMgb2YgcGFydGljdWxhcgppbnRlcmVzdC4gIFBlcmhhcHMgSSBjYW4gdXNlIHNvbWUgb2YgdGhlc2UgYXMgbWFya2VycyB0byBxdWFsaXR5CmNvbnRyb2wgbXkgd29yayBpbiB0aGUgZnV0dXJlPwoKSGVyZSBhcmUgdGhlIGdlbmVzOgoKT3BuNCwgRW9tZXMsIFRycGM3LCBPcHJtMSwgTnI0YTMsIFRieDIwLCBJcng2LCBBVzU1MTk4NCwgUGNkaDE5LApBZGN5YXAxLCBCYWlhcDMsIENobDEsIEdyaW4zYSwgSWdmMSwgR3JpYTEsIEdyaW4yZCwgR3JpbjNhLCBDaHJuYTYsCkNocm5hMywgSHRyNWEsIEh0cjJhLCBIdHI3LCBJcng0LCBQbHhuQzEsIFNlbWE2ZCwgU2VtYTRmLCBTZW1hNGEsClNlbWE2YiwgTHJyYzRiLCBMcnJjNTgsIExycmMzYiwgV250NCwgV250OWIsIEN0eG4zLCBUZW5tMSwgR25hMTQsClJnczQsIFJnczYsIFJnczUKCmBgYHtyfQp0YWJsZV9pbnB1dCA8LSBsb2NhdGlvbl90YWJsZXNbWyJzcl9wMDhfaGV0Il1dCnRhYmxlX25hbWUgPC0gInNyX3AwOF9oZXQiCnRhYmxlIDwtIHRhYmxlX2lucHV0W1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCmludGVyZXN0aW5nX2dlbmVzIDwtIGMoIk9wbjQiLCAiRW9tZXMiLCAiVHJwYzciLCAiT3BybTEiLCAiTnI0YTMiLCAiVGJ4MjAiLAogICAgICAgICAgICAgICAgICAgICAgICJJcng2IiwgIkFXNTUxOTg0IiwgIlBjZGgxOSIsICJBZGN5YXAxcjEiLCAiQmFpYXAzIiwKICAgICAgICAgICAgICAgICAgICAgICAiQ2hsMSIsICJHcmluM2EiLCAiSWdmMSIsICJHcmlhMSIsICJHcmluMmQiLCAiR3JpbjNhIiwKICAgICAgICAgICAgICAgICAgICAgICAiQ2hybmE2IiwgIkNocm5hMyIsICJIdHI1YSIsICJIdHIyYSIsICJIdHI3IiwgIklyeDQiLAogICAgICAgICAgICAgICAgICAgICAgICJQbHhuQzEiLCAiU2VtYTZkIiwgIlNlbWE0ZiIsICJTZW1hNGEiLCAiU2VtYTZiIiwgIkxycmM0YiIsCiAgICAgICAgICAgICAgICAgICAgICAgIkxycmM1OCIsICJMcnJjM2IiLCAiV250NCIsICJXbnQ5YiIsICJDdHhuMyIsICJUZW5tMSIsICJHbmExNCIsCiAgICAgICAgICAgICAgICAgICAgICAgIlJnczQiLCAiUmdzNiIsICJSZ3M1IiwgIlBvdTRmMiIsICJDaHJuYjMiLCAiQmNhbiIpCnNyX3AwOF9oZXRfdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBjb2xvcl9sb3cgPSBjb2xvcnNbWyJoZXRfcmV0aW5hIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1siaGV0X3NjbiJdXSwKICBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIGFscGhhID0gMS4wLAogIHNpemUgPSA0KQpwcChmaWxlID0gIjIwbG9jYXRpb25fbWFfdm9sY2Fub190eC9zcl9wMDhfaGV0X3ZvbGNhbm8ucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpzcl9wMDhfaGV0X3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnNyX3AwOF9oZXRfdm9sY2Fub1tbInBsb3QiXV0Kc3JfcDA4X2hldF9tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IGNvbG9yc1tbImhldF9yZXRpbmEiXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJoZXRfc2NuIl1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIG91dGxpbmUgPSBvdXRsaW5lKQpwcChmaWxlID0gIjIwbG9jYXRpb25fbWFfdm9sY2Fub190eC9zcl9wMDhfaGV0X21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKc3JfcDA4X2hldF9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKc3JfcDA4X2hldF9tYVtbInBsb3QiXV0KYGBgCgojIyMgQWxzbyB0aGUga28KCmBgYHtyfQp0YWJsZV9pbnB1dCA8LSBsb2NhdGlvbl90YWJsZXNbWyJzcl9wMDhfa28iXV0KdGFibGVfbmFtZSA8LSAic3JfcDA4X2tvIgp0YWJsZSA8LSB0YWJsZV9pbnB1dFtbImRhdGEiXV1bW3RhYmxlX25hbWVdXQpzcl9wMDhfa29fdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBjb2xvcl9sb3cgPSBjb2xvcnNbWyJrb19yZXRpbmEiXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJrb19zY24iXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCkKcHAoZmlsZSA9ICIyMGxvY2F0aW9uX21hX3ZvbGNhbm9fdHgvc3JfcDA4X2tvX3ZvbGNhbm8ucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpzcl9wMDhfa29fdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKc3JfcDA4X2tvX3ZvbGNhbm9bWyJwbG90Il1dCnNyX3AwOF9rb19tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IGNvbG9yc1tbImtvX3JldGluYSJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImtvX3NjbiJdXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBvdXRsaW5lID0gb3V0bGluZSkKcHAoZmlsZSA9ICIyMGxvY2F0aW9uX21hX3ZvbGNhbm9fdHgvc3JfcDA4X2tvX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKc3JfcDA4X2tvX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpzcl9wMDhfa29fbWFbWyJwbG90Il1dCmBgYAoKYGBge3J9CnRhYmxlX2lucHV0IDwtIGxvY2F0aW9uX3RhYmxlc1tbInNyX3AxNV9oZXQiXV0KdGFibGVfbmFtZSA8LSAic3JfcDE1X2hldCIKdGFibGUgPC0gdGFibGVfaW5wdXRbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KaW50ZXJlc3RpbmdfZ2VuZXMgPC0gYygiT3BuNCIsICJFb21lcyIsICJUcnBjNyIsICJPcHJtMSIsICJOcjRhMyIsICJUYngyMCIsCiAgICAgICAgICAgICAgICAgICAgICAgIklyeDYiLCAiQVc1NTE5ODQiLCAiUGNkaDE5IiwgIkFkY3lhcDFyMSIsICJCYWlhcDMiLAogICAgICAgICAgICAgICAgICAgICAgICJDaGwxIiwgIkdyaW4zYSIsICJJZ2YxIiwgIkdyaWExIiwgIkdyaW4yZCIsICJHcmluM2EiLAogICAgICAgICAgICAgICAgICAgICAgICJDaHJuYTYiLCAiQ2hybmEzIiwgIkh0cjVhIiwgIkh0cjJhIiwgIkh0cjciLCAiSXJ4NCIsCiAgICAgICAgICAgICAgICAgICAgICAgIlBseG5DMSIsICJTZW1hNmQiLCAiU2VtYTRmIiwgIlNlbWE0YSIsICJTZW1hNmIiLCAiTHJyYzRiIiwKICAgICAgICAgICAgICAgICAgICAgICAiTHJyYzU4IiwgIkxycmMzYiIsICJXbnQ0IiwgIldudDliIiwgIkN0eG4zIiwgIlRlbm0xIiwgIkduYTE0IiwKICAgICAgICAgICAgICAgICAgICAgICAiUmdzNCIsICJSZ3M2IiwgIlJnczUiLCAiUG91NGYyIiwgIkNocm5iMyIsICJCY2FuIikKc3JfcDE1X2hldF92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGNvbG9yX2xvdyA9IGNvbG9yc1tbImhldF9yZXRpbmEiXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJoZXRfc2NuIl1dLAogIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgYWxwaGEgPSAxLjAsCiAgc2l6ZSA9IDQpCnBwKGZpbGUgPSAiMjBsb2NhdGlvbl9tYV92b2xjYW5vX3R4L3NyX3AxNV9oZXRfdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCnNyX3AxNV9oZXRfdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKc3JfcDE1X2hldF92b2xjYW5vW1sicGxvdCJdXQpzcl9wMTVfaGV0X21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gY29sb3JzW1siaGV0X3JldGluYSJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9zY24iXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgb3V0bGluZSA9IG91dGxpbmUpCnBwKGZpbGUgPSAiMjBsb2NhdGlvbl9tYV92b2xjYW5vX3R4L3NyX3AxNV9oZXRfbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpzcl9wMTVfaGV0X21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpzcl9wMTVfaGV0X21hW1sicGxvdCJdXQpgYGAKCiMjIyBBbHNvIHRoZSBrbwoKYGBge3J9CnRhYmxlX2lucHV0IDwtIGxvY2F0aW9uX3RhYmxlc1tbInNyX3AxNV9rbyJdXQp0YWJsZV9uYW1lIDwtICJzcl9wMTVfa28iCnRhYmxlIDwtIHRhYmxlX2lucHV0W1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCnNyX3AxNV9rb192b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGNvbG9yX2xvdyA9IGNvbG9yc1tbImtvX3JldGluYSJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImtvX3NjbiJdXSwKICBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIGFscGhhID0gMS4wLAogIHNpemUgPSA0LCBtaW4uc2VnbWVudC5sZW5ndGggPSAwLCBwb2ludC5wYWRkaW5nID0gMC4yKQpwcChmaWxlID0gIjIwbG9jYXRpb25fbWFfdm9sY2Fub190eC9zcl9wMTVfa29fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMikKc3JfcDE1X2tvX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnNyX3AxNV9rb192b2xjYW5vW1sicGxvdCJdXQpzcl9wMTVfa29fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBjb2xvcnNbWyJrb19yZXRpbmEiXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJrb19zY24iXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgb3V0bGluZSA9IG91dGxpbmUpCnBwKGZpbGUgPSAiMjBsb2NhdGlvbl9tYV92b2xjYW5vX3R4L3NyX3AxNV9rb19tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCnNyX3AxNV9rb19tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKc3JfcDE1X2tvX21hW1sicGxvdCJdXQpgYGAKCiMjIyMgVGVzdCBhIHNwZWNpZmljIGxvY2F0aW9uIHF1ZXJ5IGZvciBkdXBsaWNhdGVkIElEcwoKTGV0IHVzIHNlZSBpZiBhbnkgRW5zZW1ibCBnZW5lIElEcyBhbmQvb3IgTUdJIElEcyBhcmUgc2hhcmVkIGluIHRoZQp3b3Jrc2hlZXQgbG9jYXRpb25fc3JfcDA4X2tvX2luY2x1ZGluZ193dF8wLjFfZGVjcmVhc2VkX3NpZyB1cC9kb3duLgoKYGBge3J9CnRlc3RfdGFibGVfdXAgPC0gbG9jYXRpb25fc2lnW1sic3JfcDA4X2tvIl1dW1siZGVzZXEiXV1bWyJ1cHMiXV1bWzFdXQp0ZXN0X3RhYmxlX2Rvd24gPC0gbG9jYXRpb25fc2lnW1sic3JfcDA4X2tvIl1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbMV1dCgpxdWVyeSA8LSBsaXN0KCJ1cCIgPSByb3duYW1lcyh0ZXN0X3RhYmxlX3VwKSwKICAgICAgICAgICAgICAiZG93biIgPSByb3duYW1lcyh0ZXN0X3RhYmxlX2Rvd24pKQpxdWVyeV91cHNldCA8LSBVcFNldFI6OmZyb21MaXN0KHF1ZXJ5KQpVcFNldFI6OnVwc2V0KHF1ZXJ5X3Vwc2V0KQoKcXVlcnkgPC0gbGlzdCgidXAiID0gdGVzdF90YWJsZV91cFtbIm1naV9zeW1ib2wiXV0sCiAgICAgICAgICAgICAgImRvd24iID0gdGVzdF90YWJsZV9kb3duW1sibWdpX3N5bWJvbCJdXSkKcXVlcnlfdXBzZXQgPC0gVXBTZXRSOjpmcm9tTGlzdChxdWVyeSkKVXBTZXRSOjp1cHNldChxdWVyeV91cHNldCkKIyMgb2ssIGdvb2QuCmBgYAoKIyMjIyBSZXBlYXQgd2l0aCB0aGUgc3RyaWN0IGZpbHRlcgoKYGBge3J9CmxvY2F0aW9uX3N0cmljdF90YWJsZXMgPC0gbGlzdCgpCmxvY2F0aW9uX3N0cmljdF9zaWcgPC0gbGlzdCgpCmxvY2F0aW9uX3N0cmljdF9ncCA8LSBsaXN0KCkKbG9jYXRpb25fc3RyaWN0X2NwIDwtIGxpc3QoKQpmb3IgKGsgaW4gc2VxX2Fsb25nKGxvY2F0aW9uX2tlZXBlcnMpKSB7CiAgbmFtZSA8LSBuYW1lcyhsb2NhdGlvbl9rZWVwZXJzKVtrXQogIG1lc3NhZ2UoIkV4YW1pbmluZyAiLCBuYW1lKQogIGtlZXBlciA8LSBsb2NhdGlvbl9rZWVwZXJzW25hbWVdCiAgaW5jbHVkZXMgPC0gbG9jYXRpb25faW5jbHVzaW9uc19zdHJpY3RbW25hbWVdXQogIGluY2x1ZGVfbmFtZSA8LSBwYXN0ZTAoImluY18iLCBuYW1lKQogIGluY2x1ZGVfZGZfbmFtZSA8LSBwYXN0ZTAoImRmXyIsIG5hbWUpCiAgaW5jbHVkZV9kZiA8LSBsb2NhdGlvbl9pbmNsdXNpb25zX3N0cmljdFtbaW5jbHVkZV9kZl9uYW1lXV0KICBpbmNsdWRlcyA8LSBsb2NhdGlvbl9pbmNsdXNpb25zX3N0cmljdFtbaW5jbHVkZV9uYW1lXV0KICBmb3VuZF9pbmNsdWRlcyA8LSByb3duYW1lcyhsb2NhdGlvbl9zaWdfZnVsbFtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pICVpbiUgaW5jbHVkZXMKICBzdW1tYXJ5KGZvdW5kX2luY2x1ZGVzKQogIGlmIChzdW0oZm91bmRfaW5jbHVkZXMpID09IDApIHsKICAgIG5leHQKICB9CiAgaW5jbHVkZV9maWxlbmFtZSA8LSBnbHVlKCIyMWxvY2F0aW9uX3N0cmljdF9jb250cmFzdHNfdHgve25hbWV9X2luY2x1ZGluZ193dF97bGZjX2N1dG9mZn1fZGVjcmVhc2VkX3RhYmxlLXZ7dmVyfS54bHN4IikKICBpbmNsdWRlX3NpZ19maWxlbmFtZSA8LSBnbHVlKCIyMWxvY2F0aW9uX3N0cmljdF9jb250cmFzdHNfdHgve25hbWV9X2luY2x1ZGluZ193dF97bGZjX2N1dG9mZn1fZGVjcmVhc2VkX3NpZy12e3Zlcn0ueGxzeCIpCiAgbG9jYXRpb25fc3RyaWN0X3RhYmxlc1tbbmFtZV1dIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogICAgbG9jYXRpb25fZGUsIGV4dHJhX2Fubm90ID0gaW5jbHVkZV9kZiwKICAgIGtlZXBlcnMgPSBrZWVwZXIsIGxhYmVsX2NvbHVtbiA9IGxhYmVsX2NvbHVtbiwKICAgIGV4Y2VsID0gaW5jbHVkZV9maWxlbmFtZSwgd2FudGVkX2dlbmVzID0gaW5jbHVkZXMpCiAgcHJpbnQobG9jYXRpb25fc3RyaWN0X3RhYmxlc1tbbmFtZV1dKQogIGxvY2F0aW9uX3N0cmljdF9zaWdbW25hbWVdXSA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogICAgbG9jYXRpb25fc3RyaWN0X3RhYmxlc1tbbmFtZV1dLCBhY2NvcmRpbmdfdG8gPSAiZGVzZXEiLAogICAgZXhjZWwgPSBpbmNsdWRlX3NpZ19maWxlbmFtZSkKICBwcmludChsb2NhdGlvbl9zdHJpY3Rfc2lnW1tuYW1lXV0pCiAgbnVtX3Jvd3MgPC0gbnJvdyhsb2NhdGlvbl9zdHJpY3Rfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKSArCiAgICBucm93KGxvY2F0aW9uX3N0cmljdF9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1siZG93bnMiXV1bW25hbWVdXSkKICBtZXNzYWdlKCJUaGVyZSBhcmUgIiwgbnVtX3Jvd3MsICIgc2lnbmlmaWNhbnQgdXAgYW5kIGRvd24gZ2VuZXMuIikKICBpZiAobnVtX3Jvd3MgPiAxMCkgewogICAgbG9jYXRpb25fc3RyaWN0X2dwW1tuYW1lXV0gPC0gYWxsX2dwcm9maWxlcihsb2NhdGlvbl9zdHJpY3Rfc2lnW1tuYW1lXV0sIHNwZWNpZXMgPSAibW11c2N1bHVzIikKICAgIGxvY2F0aW9uX3N0cmljdF9jcFtbbmFtZV1dIDwtIGFsbF9jcHJvZmlsZXIoCiAgICAgIGxvY2F0aW9uX3N0cmljdF9zaWdbW25hbWVdXSwgbG9jYXRpb25fc3RyaWN0X3RhYmxlc1tbbmFtZV1dLAogICAgICBvcmdkYiA9ICJvcmcuTW0uZWcuZGIiLCBnb19sZXZlbCA9IGdvX2xldmVsLCBvcmdkYl9mcm9tID0gb3JnZGJfZnJvbSwKICAgICAgbWF4X2dyb3Vwc2l6ZSA9IG1heF9ncm91cHNpemUsIG9yZ2FuaXNtID0gIm1vdXNlIikKICAgIGNwX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2NwKGxvY2F0aW9uX3N0cmljdF9jcFtbbmFtZV1dLCBwcmVmaXggPSAiMjIiLCBzdWZmaXggPSAic3RyaWN0IikKICAgIGdwX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2dwKGxvY2F0aW9uX3N0cmljdF9ncFtbbmFtZV1dLCBwcmVmaXggPSAiMjIiLCBzdWZmaXggPSAic3RyaWN0IikKICB9Cn0KYGBgCgpQcmludCBvdXQgYWxsIHRoZSBwbG90cyBpbiBhIHNlcGFyYXRlIGJsb2NrLgoKYGBge3J9CmZvciAoayBpbiBzZXFfYWxvbmcobG9jYXRpb25fa2VlcGVycykpIHsKICBuYW1lIDwtIG5hbWVzKGxvY2F0aW9uX2tlZXBlcnMpW2tdCiAgbWVzc2FnZSgiRXhhbWluaW5nICIsIG5hbWUpCiAga2VlcGVyIDwtIGxvY2F0aW9uX2tlZXBlcnNbbmFtZV0KICBpbmNsdWRlcyA8LSBsb2NhdGlvbl9pbmNsdXNpb25zX3N0cmljdFtbbmFtZV1dCiAgaW5jbHVkZV9uYW1lIDwtIHBhc3RlMCgiaW5jXyIsIG5hbWUpCiAgaW5jbHVkZV9kZl9uYW1lIDwtIHBhc3RlMCgiZGZfIiwgbmFtZSkKICBpbmNsdWRlX2RmIDwtIGxvY2F0aW9uX2luY2x1c2lvbnNfc3RyaWN0W1tpbmNsdWRlX2RmX25hbWVdXQogIGluY2x1ZGVzIDwtIGxvY2F0aW9uX2luY2x1c2lvbnNfc3RyaWN0W1tpbmNsdWRlX25hbWVdXQogIHN1bW1hcnkocm93bmFtZXMobG9jYXRpb25fc2lnX2Z1bGxbWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKSAlaW4lIGluY2x1ZGVzKQogIG51bV9yb3dzIDwtIG5yb3cobG9jYXRpb25fc3RyaWN0X3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXSkgKwogICAgbnJvdyhsb2NhdGlvbl9zdHJpY3Rfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbImRvd25zIl1dW1tuYW1lXV0pCiAgbnJvdyhsb2NhdGlvbl9zdHJpY3Rfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKQogIG5yb3cobG9jYXRpb25fc3RyaWN0X3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dKQogIG1lc3NhZ2UoIlRoZXJlIGFyZSAiLCBudW1fcm93cywgIiBzaWduaWZpY2FudCB1cCBhbmQgZG93biBnZW5lcy4iKQogIG51bV9vYmplY3RzIDwtIGxlbmd0aChsb2NhdGlvbl9zdHJpY3RfY3BbW25hbWVdXSkKICBpZiAobnVtX29iamVjdHMgPT0gMCkgewogICAgd2FybmluZygiU29tZXRoaW5nIHdlbnQgd3JvbmcgaW4gYWxsX2Nwcm9maWxlci4iKQogIH0gZWxzZSB7CiAgICB1cHAgPC0gd2hpY2goZ3JlcGwoeCA9IG5hbWVzKGxvY2F0aW9uX3N0cmljdF9jcFtbbmFtZV1dKSwgcGF0dGVybiA9ICJfdXAkIikpCiAgICBkb3ducCA8LSB3aGljaChncmVwbCh4ID0gbmFtZXMobG9jYXRpb25fc3RyaWN0X2NwW1tuYW1lXV0pLCBwYXR0ZXJuID0gIl9kb3duJCIpKQogICAgaWYgKGxlbmd0aCh1cHApID4gMCkgewogICAgICBtZl9zaWcgPC0gbG9jYXRpb25fc3RyaWN0X2NwW1tuYW1lXV1bW3VwcF1dW1siZ29fZGF0YSJdXVtbIk1GX2VucmljaCJdXQogICAgICBjY19zaWcgPC0gbG9jYXRpb25fc3RyaWN0X2NwW1tuYW1lXV1bW3VwcF1dW1siZ29fZGF0YSJdXVtbIkNDX2VucmljaCJdXQogICAgICBicF9zaWcgPC0gbG9jYXRpb25fc3RyaWN0X2NwW1tuYW1lXV1bW3VwcF1dW1siZ29fZGF0YSJdXVtbIkJQX2VucmljaCJdXQogICAgICBtZl9wbG90c191cCA8LSBwbG90X2VucmljaHJlc3VsdChtZl9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIG1mX3RyZWVfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMjNjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX21mX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl90cmVlX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfdXBbWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgbWZfYmFyX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjIzY2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9tZl9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl9iYXJfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChtZl9wbG90c191cFtbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGNjX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KGNjX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgY2NfdHJlZV91cF9maWxlbmFtZSA8LSBnbHVlKCIyM2NsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fdXBfY2Nfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX3RyZWVfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChjY19wbG90c191cFtbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19iYXJfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMjNjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX2NjX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX2Jhcl91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX3VwW1siYmFyIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgYnBfcGxvdHNfdXAgPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF90cmVlX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjIzY2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9icF9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gYnBfdHJlZV91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX3VwW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KGJwX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgYnBfYmFyX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjIzY2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9icF9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF9iYXJfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c191cFtbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICB9CiAgICBpZiAobGVuZ3RoKGRvd25wKSA+IDApIHsKICAgICAgbWZfc2lnIDwtIGxvY2F0aW9uX3N0cmljdF9jcFtbbmFtZV1dW1tkb3ducF1dW1siZ29fZGF0YSJdXVtbIk1GX2VucmljaCJdXQogICAgICBjY19zaWcgPC0gbG9jYXRpb25fc3RyaWN0X2NwW1tuYW1lXV1bW2Rvd25wXV1bWyJnb19kYXRhIl1dW1siQ0NfZW5yaWNoIl1dCiAgICAgIGJwX3NpZyA8LSBsb2NhdGlvbl9zdHJpY3RfY3BbW25hbWVdXVtbZG93bnBdXVtbImdvX2RhdGEiXV1bWyJCUF9lbnJpY2giXV0KICAgICAgbWZfcGxvdHNfZG93biA8LSBwbG90X2VucmljaHJlc3VsdChtZl9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIG1mX3RyZWVfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIyM2NsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9tZl9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gbWZfdHJlZV9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfZG93bltbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBtZl9iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIyM2NsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9tZl9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl9iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KG1mX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KGNjX3NpZywgc2hvd0NhdGVnb3J5ID0gMTIpCiAgICAgIGNjX3RyZWVfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIyM2NsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9jY19zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gY2NfdHJlZV9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoY2NfcGxvdHNfZG93bltbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIyM2NsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9jY19zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBjY19iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBicF9wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KGJwX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgYnBfdHJlZV9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjIzY2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX2JwX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF90cmVlX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c19kb3duW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX2Rvd24gPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF9iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIyM2NsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9icF9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF9iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgfQogIH0KfQpgYGAKCkNvbGVuc28gc2VudCBhIHNwZWNpZmljIHF1ZXJ5IG9mIGludGVyZXN0LCBjb21wYXJpbmcgU0NOIHZzLiBSZXRpbmFzCmF0IHAwOCBpbiB0aGUgaGV0ZXJvenlnb3RlcyBpbmNsdWRpbmcgYSBzZXQgb2YgZ2VuZXMgb2YgcGFydGljdWxhcgppbnRlcmVzdC4gIFBlcmhhcHMgSSBjYW4gdXNlIHNvbWUgb2YgdGhlc2UgYXMgbWFya2VycyB0byBxdWFsaXR5CmNvbnRyb2wgbXkgd29yayBpbiB0aGUgZnV0dXJlPwoKSGVyZSBhcmUgdGhlIGdlbmVzOgoKT3BuNCwgRW9tZXMsIFRycGM3LCBPcHJtMSwgTnI0YTMsIFRieDIwLCBJcng2LCBBVzU1MTk4NCwgUGNkaDE5LApBZGN5YXAxLCBCYWlhcDMsIENobDEsIEdyaW4zYSwgSWdmMSwgR3JpYTEsIEdyaW4yZCwgR3JpbjNhLCBDaHJuYTYsCkNocm5hMywgSHRyNWEsIEh0cjJhLCBIdHI3LCBJcng0LCBQbHhuQzEsIFNlbWE2ZCwgU2VtYTRmLCBTZW1hNGEsClNlbWE2YiwgTHJyYzRiLCBMcnJjNTgsIExycmMzYiwgV250NCwgV250OWIsIEN0eG4zLCBUZW5tMSwgR25hMTQsClJnczQsIFJnczYsIFJnczUKCmBgYHtyfQp0YWJsZV9pbnB1dCA8LSBsb2NhdGlvbl9zdHJpY3RfdGFibGVzW1sic3JfcDA4X2hldCJdXQp0YWJsZV9uYW1lIDwtICJzcl9wMDhfaGV0Igp0YWJsZSA8LSB0YWJsZV9pbnB1dFtbImRhdGEiXV1bW3RhYmxlX25hbWVdXQppbnRlcmVzdGluZ19nZW5lcyA8LSBjKCJPcG40IiwgIkVvbWVzIiwgIlRycGM3IiwgIk9wcm0xIiwgIk5yNGEzIiwgIlRieDIwIiwKICAgICAgICAgICAgICAgICAgICAgICAiSXJ4NiIsICJBVzU1MTk4NCIsICJQY2RoMTkiLCAiQWRjeWFwMXIxIiwgIkJhaWFwMyIsCiAgICAgICAgICAgICAgICAgICAgICAgIkNobDEiLCAiR3JpbjNhIiwgIklnZjEiLCAiR3JpYTEiLCAiR3JpbjJkIiwgIkdyaW4zYSIsCiAgICAgICAgICAgICAgICAgICAgICAgIkNocm5hNiIsICJDaHJuYTMiLCAiSHRyNWEiLCAiSHRyMmEiLCAiSHRyNyIsICJJcng0IiwKICAgICAgICAgICAgICAgICAgICAgICAiUGx4bkMxIiwgIlNlbWE2ZCIsICJTZW1hNGYiLCAiU2VtYTRhIiwgIlNlbWE2YiIsICJMcnJjNGIiLAogICAgICAgICAgICAgICAgICAgICAgICJMcnJjNTgiLCAiTHJyYzNiIiwgIldudDQiLCAiV250OWIiLCAiQ3R4bjMiLCAiVGVubTEiLCAiR25hMTQiLAogICAgICAgICAgICAgICAgICAgICAgICJSZ3M0IiwgIlJnczYiLCAiUmdzNSIsICJQb3U0ZjIiLCAiQ2hybmIzIiwgIkJjYW4iKQpzcl9wMDhfaGV0X3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgY29sb3JfbG93ID0gY29sb3JzW1siaGV0X3JldGluYSJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9zY24iXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCkKcHAoZmlsZSA9ICIyNGxvY2F0aW9uX21hX3ZvbGNhbm9fc3RyaWN0X3R4L3NyX3AwOF9oZXRfdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCnNyX3AwOF9oZXRfdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKc3JfcDA4X2hldF92b2xjYW5vW1sicGxvdCJdXQpzcl9wMDhfaGV0X21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gY29sb3JzW1siaGV0X3JldGluYSJdXSwgY29sb3JfaGlnaCA9IGNvbG9yc1tbImhldF9zY24iXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgb3V0bGluZSA9IG91dGxpbmUpCnBwKGZpbGUgPSAiMjRsb2NhdGlvbl9tYV92b2xjYW5vX3N0cmljdF90eC9zcl9wMDhfaGV0X21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKc3JfcDA4X2hldF9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKc3JfcDA4X2hldF9tYVtbInBsb3QiXV0KYGBgCgojIyMgQWxzbyB0aGUga28KCmBgYHtyfQp0YWJsZV9pbnB1dCA8LSBsb2NhdGlvbl9zdHJpY3RfdGFibGVzW1sic3JfcDA4X2tvIl1dCnRhYmxlX25hbWUgPC0gInNyX3AwOF9rbyIKdGFibGUgPC0gdGFibGVfaW5wdXRbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0Kc3JfcDA4X2tvX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fcmV0aW5hIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1sia29fc2NuIl1dLAogIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgYWxwaGEgPSAxLjAsCiAgc2l6ZSA9IDQpCnBwKGZpbGUgPSAiMjRsb2NhdGlvbl9tYV92b2xjYW5vX3N0cmljdF90eC9zcl9wMDhfa29fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCnNyX3AwOF9rb192b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpzcl9wMDhfa29fdm9sY2Fub1tbInBsb3QiXV0Kc3JfcDA4X2tvX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fcmV0aW5hIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1sia29fc2NuIl1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIG91dGxpbmUgPSBvdXRsaW5lKQpwcChmaWxlID0gIjI0bG9jYXRpb25fbWFfdm9sY2Fub19zdHJpY3RfdHgvc3JfcDA4X2tvX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKc3JfcDA4X2tvX21hW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQpzcl9wMDhfa29fbWFbWyJwbG90Il1dCmBgYAoKIyMjIEFsc28gdGhlIGtvCgpgYGB7cn0KdGFibGVfaW5wdXQgPC0gbG9jYXRpb25fdGFibGVzW1sic3JfcDE1X2tvIl1dCnRhYmxlX25hbWUgPC0gInNyX3AxNV9rbyIKdGFibGUgPC0gdGFibGVfaW5wdXRbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0Kc3JfcDE1X2tvX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgY29sb3JfbG93ID0gY29sb3JzW1sia29fcmV0aW5hIl1dLCBjb2xvcl9oaWdoID0gY29sb3JzW1sia29fc2NuIl1dLAogIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgYWxwaGEgPSAxLjAsCiAgc2l6ZSA9IDQsIG1pbi5zZWdtZW50Lmxlbmd0aCA9IDAsIHBvaW50LnBhZGRpbmcgPSAwLjIpCnBwKGZpbGUgPSAiMjRsb2NhdGlvbl9tYV92b2xjYW5vX3N0cmljdF90eC9zcl9wMTVfa29fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMikKc3JfcDE1X2tvX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnNyX3AxNV9rb192b2xjYW5vW1sicGxvdCJdXQpzcl9wMTVfa29fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSBjb2xvcnNbWyJrb19yZXRpbmEiXV0sIGNvbG9yX2hpZ2ggPSBjb2xvcnNbWyJrb19zY24iXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgb3V0bGluZSA9IG91dGxpbmUpCnBwKGZpbGUgPSAiMjRsb2NhdGlvbl9tYV92b2xjYW5vX3N0cmljdF90eC9zcl9wMTVfa29fbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQpzcl9wMTVfa29fbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnNyX3AxNV9rb19tYVtbInBsb3QiXV0KYGBgCgojIyMgQW5kIHRpbWUKCmBgYHtyfQp0aW1lX3RhYmxlc19mdWxsIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHRpbWVfZGUsIGtlZXBlcnMgPSB0aW1lX2tlZXBlcnMsCiAgbGFiZWxfY29sdW1uID0gbGFiZWxfY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiMjVmdWxsX2NvbnRyYXN0c190aW1lX3R4L2Z1bGxfdGFibGVzLXZ7dmVyfS54bHN4IikpCnRpbWVfc2lnX2Z1bGwgPC0gZXh0cmFjdF9zaWduaWZpY2FudF9nZW5lcygKICB0aW1lX3RhYmxlc19mdWxsLCBhY2NvcmRpbmdfdG8gPSAiZGVzZXEiLAogIGV4Y2VsID0gZ2x1ZSgiMjVmdWxsX2NvbnRyYXN0c190aW1lX3R4L2Z1bGxfc2lnLXZ7dmVyfS54bHN4IikpCmBgYAoKYGBge3J9CnRpbWVfdGFibGVzIDwtIGxpc3QoKQp0aW1lX3NpZyA8LSBsaXN0KCkKdGltZV9ncCA8LSBsaXN0KCkKdGltZV9jcCA8LSBsaXN0KCkKZm9yIChrIGluIHNlcV9hbG9uZyh0aW1lX2tlZXBlcnMpKSB7CiAgbmFtZSA8LSBuYW1lcyh0aW1lX2tlZXBlcnMpW2tdCiAgbWVzc2FnZSgiRXhhbWluaW5nICIsIG5hbWUpCiAga2VlcGVyIDwtIHRpbWVfa2VlcGVyc1tuYW1lXQogIGluY2x1ZGVzIDwtIHRpbWVfaW5jbHVzaW9uc1tbbmFtZV1dCiAgaW5jbHVkZV9uYW1lIDwtIHBhc3RlMCgiaW5jXyIsIG5hbWUpCiAgaW5jbHVkZV9kZl9uYW1lIDwtIHBhc3RlMCgiZGZfIiwgbmFtZSkKICBpbmNsdWRlX2RmIDwtIHRpbWVfaW5jbHVzaW9uc1tbaW5jbHVkZV9kZl9uYW1lXV0KICBpbmNsdWRlcyA8LSB0aW1lX2luY2x1c2lvbnNbW2luY2x1ZGVfbmFtZV1dCiAgc3VtbWFyeShyb3duYW1lcyh0aW1lX3NpZ19mdWxsW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXSkgJWluJSBpbmNsdWRlcykKICBpbmNsdWRlX2ZpbGVuYW1lIDwtIGdsdWUoIjI2dGltZV9jb250cmFzdHNfdHgve25hbWV9X2luY2x1ZGluZ193dF97bGZjX2N1dG9mZn1fZGVjcmVhc2VkX3RhYmxlLXZ7dmVyfS54bHN4IikKICBpbmNsdWRlX3NpZ19maWxlbmFtZSA8LSBnbHVlKCIyNnRpbWVfY29udHJhc3RzX3R4L3tuYW1lfV9pbmNsdWRpbmdfd3Rfe2xmY19jdXRvZmZ9X2RlY3JlYXNlZF9zaWctdnt2ZXJ9Lnhsc3giKQogIHRpbWVfdGFibGVzW1tuYW1lXV0gPC0gY29tYmluZV9kZV90YWJsZXMoCiAgICB0aW1lX2RlLCBleHRyYV9hbm5vdCA9IGluY2x1ZGVfZGYsCiAgICBrZWVwZXJzID0ga2VlcGVyLCBsYWJlbF9jb2x1bW4gPSBsYWJlbF9jb2x1bW4sCiAgICBleGNlbCA9IGluY2x1ZGVfZmlsZW5hbWUsIHdhbnRlZF9nZW5lcyA9IGluY2x1ZGVzKQogIHByaW50KHRpbWVfdGFibGVzW1tuYW1lXV0pCiAgdGltZV9zaWdbW25hbWVdXSA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogICAgdGltZV90YWJsZXNbW25hbWVdXSwgYWNjb3JkaW5nX3RvID0gImRlc2VxIiwKICAgIGV4Y2VsID0gaW5jbHVkZV9zaWdfZmlsZW5hbWUpCiAgcHJpbnQodGltZV9zaWdbW25hbWVdXSkKICBudW1fcm93cyA8LSBucm93KHRpbWVfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKSArCiAgICBucm93KHRpbWVfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbImRvd25zIl1dW1tuYW1lXV0pCiAgbWVzc2FnZSgiVGhlcmUgYXJlICIsIG51bV9yb3dzLCAiIHNpZ25pZmljYW50IHVwIGFuZCBkb3duIGdlbmVzLiIpCiAgaWYgKG51bV9yb3dzID4gMTApIHsKICAgIHRpbWVfZ3BbW25hbWVdXSA8LSBhbGxfZ3Byb2ZpbGVyKHRpbWVfc2lnW1tuYW1lXV0sIHNwZWNpZXMgPSAibW11c2N1bHVzIikKICAgIGdwX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2dwKHRpbWVfZ3BbW25hbWVdXSkKICAgIHRpbWVfY3BbW25hbWVdXSA8LSBhbGxfY3Byb2ZpbGVyKAogICAgICB0aW1lX3NpZ1tbbmFtZV1dLCB0aW1lX3RhYmxlc1tbbmFtZV1dLCBvcmdkYiA9ICJvcmcuTW0uZWcuZGIiLCBvcmdhbmlzbSA9ICJtb3VzZSIsCiAgICAgIG9yZ2RiX2Zyb20gPSBvcmdkYl9mcm9tLCBnb19sZXZlbCA9IGdvX2xldmVsLCBtYXhfZ3JvdXBzaXplID0gbWF4X2dyb3Vwc2l6ZSkKICAgIGNwX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2NwKHRpbWVfY3BbW25hbWVdXSwgcHJlZml4ID0gIjI3IikKICAgIGdwX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2dwKHRpbWVfZ3BbW25hbWVdXSwgcHJlZml4ID0gIjI3IikKICB9Cn0KYGBgCgpTZW5kIHRoZSBwbG90cyBzZXBhcmF0ZWx5LgoKYGBge3J9CmZvciAoayBpbiBzZXFfYWxvbmcodGltZV9rZWVwZXJzKSkgewogIG5hbWUgPC0gbmFtZXModGltZV9rZWVwZXJzKVtrXQogIG1lc3NhZ2UoIkV4YW1pbmluZyAiLCBuYW1lKQogIGtlZXBlciA8LSB0aW1lX2tlZXBlcnNbbmFtZV0KICBpbmNsdWRlcyA8LSB0aW1lX2luY2x1c2lvbnNbW25hbWVdXQogIGluY2x1ZGVfbmFtZSA8LSBwYXN0ZTAoImluY18iLCBuYW1lKQogIGluY2x1ZGVfZGZfbmFtZSA8LSBwYXN0ZTAoImRmXyIsIG5hbWUpCiAgaW5jbHVkZV9kZiA8LSB0aW1lX2luY2x1c2lvbnNbW2luY2x1ZGVfZGZfbmFtZV1dCiAgaW5jbHVkZXMgPC0gdGltZV9pbmNsdXNpb25zW1tpbmNsdWRlX25hbWVdXQogIG51bV9yb3dzIDwtIG5yb3codGltZV9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pICsKICAgIG5yb3codGltZV9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1siZG93bnMiXV1bW25hbWVdXSkKICBtZXNzYWdlKCJUaGVyZSBhcmUgIiwgbnVtX3Jvd3MsICIgc2lnbmlmaWNhbnQgdXAgYW5kIGRvd24gZ2VuZXMuIikKICBudW1fb2JqZWN0cyA8LSBsZW5ndGgodGltZV9jcFtbbmFtZV1dKQogIGlmIChudW1fb2JqZWN0cyA9PSAwKSB7CiAgICB3YXJuaW5nKCJTb21ldGhpbmcgZmFpbGVkIGluIGFsbF9jcHJvZmlsZXIuIikKICB9IGVsc2UgewogICAgdXBwIDwtIHdoaWNoKGdyZXBsKHggPSBuYW1lcyh0aW1lX2NwW1tuYW1lXV0pLCBwYXR0ZXJuID0gIl91cCQiKSkKICAgIGRvd25wIDwtIHdoaWNoKGdyZXBsKHggPSBuYW1lcyh0aW1lX2NwW1tuYW1lXV0pLCBwYXR0ZXJuID0gIl9kb3duJCIpKQogICAgaWYgKGxlbmd0aCh1cHApID4gMCkgewogICAgICBtZl9zaWcgPC0gdGltZV9jcFtbbmFtZV1dW1t1cHBdXVtbImdvX2RhdGEiXV1bWyJNRl9lbnJpY2giXV0KICAgICAgY2Nfc2lnIDwtIHRpbWVfY3BbW25hbWVdXVtbdXBwXV1bWyJnb19kYXRhIl1dW1siQ0NfZW5yaWNoIl1dCiAgICAgIGJwX3NpZyA8LSB0aW1lX2NwW1tuYW1lXV1bW3VwcF1dW1siZ29fZGF0YSJdXVtbIkJQX2VucmljaCJdXQogICAgICBtZl9wbG90c191cCA8LSBwbG90X2VucmljaHJlc3VsdChtZl9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIG1mX3RyZWVfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMjhjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX21mX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl90cmVlX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfdXBbWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgbWZfYmFyX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjI4Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9tZl9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl9iYXJfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChtZl9wbG90c191cFtbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGNjX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KGNjX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgY2NfdHJlZV91cF9maWxlbmFtZSA8LSBnbHVlKCIyOGNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fdXBfY2Nfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX3RyZWVfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChjY19wbG90c191cFtbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19iYXJfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMjhjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X3VwX2NjX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX2Jhcl91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX3VwW1siYmFyIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgYnBfcGxvdHNfdXAgPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF90cmVlX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjI4Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9icF9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gYnBfdHJlZV91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX3VwW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KGJwX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgYnBfYmFyX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjI4Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV91cF9icF9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF9iYXJfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c191cFtbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICB9CiAgICBpZiAobGVuZ3RoKGRvd25wKSA+IDApIHsKICAgICAgbWZfc2lnIDwtIHRpbWVfY3BbW25hbWVdXVtbZG93bnBdXVtbImdvX2RhdGEiXV1bWyJNRl9lbnJpY2giXV0KICAgICAgY2Nfc2lnIDwtIHRpbWVfY3BbW25hbWVdXVtbZG93bnBdXVtbImdvX2RhdGEiXV1bWyJDQ19lbnJpY2giXV0KICAgICAgYnBfc2lnIDwtIHRpbWVfY3BbW25hbWVdXVtbZG93bnBdXVtbImdvX2RhdGEiXV1bWyJCUF9lbnJpY2giXV0KICAgICAgbWZfcGxvdHNfZG93biA8LSBwbG90X2VucmljaHJlc3VsdChtZl9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIG1mX3RyZWVfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIyOGNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9tZl9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gbWZfdHJlZV9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfZG93bltbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBtZl9iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIyOGNsdXN0ZXJQcm9maWxlcl9wbG90c190eC97bmFtZX1fZG93bl9tZl9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl9iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KG1mX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KGNjX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgY2NfdHJlZV9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjI4Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX2NjX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBjY190cmVlX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChjY19wbG90c19kb3duW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGNjX2Jhcl9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjI4Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX2NjX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX2Jhcl9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoY2NfcGxvdHNfZG93bltbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX2Rvd24gPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF90cmVlX2Rvd25fZmlsZW5hbWUgPC0gZ2x1ZSgiMjhjbHVzdGVyUHJvZmlsZXJfcGxvdHNfdHgve25hbWV9X2Rvd25fYnBfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IGJwX3RyZWVfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX2Rvd25bWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgYnBfcGxvdHNfZG93biA8LSBwbG90X2VucmljaHJlc3VsdChicF9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGJwX2Jhcl9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjI4Y2x1c3RlclByb2ZpbGVyX3Bsb3RzX3R4L3tuYW1lfV9kb3duX2JwX3NpZ19iYXIucGRmIikKICAgICAgcHAoZmlsZSA9IGJwX2Jhcl9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoYnBfcGxvdHNfZG93bltbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICB9CiAgfQp9CmBgYAoKIyMgVm9sY2FubyBwbG90cyBieSB0aW1lCgojIyMgdF9oZXRfZGxnbgoKYGBge3J9CnRhYmxlX25hbWUgPC0gInRfaGV0X2RsZ24iCnRhYmxlX2lucHV0IDwtIHRpbWVfdGFibGVzW1t0YWJsZV9uYW1lXV0KdGFibGUgPC0gdGFibGVfaW5wdXRbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KdF9oZXRfZGxnbl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGNvbG9yX2xvdyA9IHRpbWVfY29sb3JzW1sicDA4X2hldF9kbGduIl1dLCBjb2xvcl9oaWdoID0gdGltZV9jb2xvcnNbWyJwMTVfaGV0X2RsZ24iXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCwgbWluLnNlZ21lbnQubGVuZ3RoID0gMCwgcG9pbnQucGFkZGluZyA9IDAuMikKcHAoZmlsZSA9ICIyOXRpbWVfbWFfdm9sY2Fub190eC90X2hldF9kbGduX3ZvbGNhbm8ucGRmIiwgd2lkdGggPSAxMiwgaGVpZ2h0ID0gMTIpCnRfaGV0X2RsZ25fdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKdF9oZXRfZGxnbl92b2xjYW5vW1sicGxvdCJdXQp0X2hldF9kbGduX21hIDwtIHBsb3RfbWFfY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBleHByX2NvbCA9ICJkZXNlcV9iYXNlbWVhbiIsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsCiAgY29sb3JfbG93ID0gdGltZV9jb2xvcnNbWyJwMDhfaGV0X2RsZ24iXV0sIGNvbG9yX2hpZ2ggPSB0aW1lX2NvbG9yc1tbInAxNV9oZXRfZGxnbiJdXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBvdXRsaW5lID0gb3V0bGluZSkKcHAoZmlsZSA9ICIyOXRpbWVfbWFfdm9sY2Fub190eC90X2hldF9kbGduX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKdF9oZXRfZGxnbl9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKdF9oZXRfZGxnbl9tYVtbInBsb3QiXV0KYGBgCgojIyMgdF9rb19kbGduCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAidF9rb19kbGduIgp0YWJsZV9pbnB1dCA8LSB0aW1lX3RhYmxlc1tbdGFibGVfbmFtZV1dCnRhYmxlIDwtIHRhYmxlX2lucHV0W1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCnRfa29fZGxnbl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGNvbG9yX2xvdyA9IHRpbWVfY29sb3JzW1sicDA4X2hldF9kbGduIl1dLCBjb2xvcl9oaWdoID0gdGltZV9jb2xvcnNbWyJwMTVfaGV0X2RsZ24iXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCwgbWluLnNlZ21lbnQubGVuZ3RoID0gMCwgcG9pbnQucGFkZGluZyA9IDAuMikKcHAoZmlsZSA9ICIyOXRpbWVfbWFfdm9sY2Fub190eC90X2tvX2RsZ25fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMikKdF9rb19kbGduX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnRfa29fZGxnbl92b2xjYW5vW1sicGxvdCJdXQp0X2tvX2RsZ25fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSB0aW1lX2NvbG9yc1tbInAwOF9oZXRfZGxnbiJdXSwgY29sb3JfaGlnaCA9IHRpbWVfY29sb3JzW1sicDE1X2hldF9kbGduIl1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIG91dGxpbmUgPSBvdXRsaW5lKQpwcChmaWxlID0gIjI5dGltZV9tYV92b2xjYW5vX3R4L3Rfa29fZGxnbl9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCnRfa29fZGxnbl9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKdF9rb19kbGduX21hW1sicGxvdCJdXQpgYGAKCiMjIyB0X2hldF9yZXRpbmEKCmBgYHtyfQp0YWJsZV9uYW1lIDwtICJ0X2hldF9yZXRpbmEiCnRhYmxlX2lucHV0IDwtIHRpbWVfdGFibGVzW1t0YWJsZV9uYW1lXV0KdGFibGUgPC0gdGFibGVfaW5wdXRbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KdF9oZXRfcmV0aW5hX3ZvbGNhbm8gPC0gcGxvdF92b2xjYW5vX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwgcF9jb2wgPSAiZGVzZXFfYWRqcCIsCiAgY29sb3JfbG93ID0gdGltZV9jb2xvcnNbWyJwMDhfaGV0X3JldGluYSJdXSwgY29sb3JfaGlnaCA9IHRpbWVfY29sb3JzW1sicDE1X2hldF9yZXRpbmEiXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCwgbWluLnNlZ21lbnQubGVuZ3RoID0gMCwgcG9pbnQucGFkZGluZyA9IDAuMikKcHAoZmlsZSA9ICIyOXRpbWVfbWFfdm9sY2Fub190eC90X2hldF9yZXRpbmFfdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMikKdF9oZXRfcmV0aW5hX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnRfaGV0X3JldGluYV92b2xjYW5vW1sicGxvdCJdXQp0X2hldF9yZXRpbmFfbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSB0aW1lX2NvbG9yc1tbInAwOF9oZXRfcmV0aW5hIl1dLCBjb2xvcl9oaWdoID0gdGltZV9jb2xvcnNbWyJwMTVfaGV0X3JldGluYSJdXSwKICBwX2NvbCA9ICJkZXNlcV9hZGpwIiwgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBvdXRsaW5lID0gb3V0bGluZSkKcHAoZmlsZSA9ICIyOXRpbWVfbWFfdm9sY2Fub190eC90X2hldF9yZXRpbmFfbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQp0X2hldF9yZXRpbmFfbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnRfaGV0X3JldGluYV9tYVtbInBsb3QiXV0KYGBgCgojIyMgdF9rb19yZXRpbmEKCmBgYHtyfQp0YWJsZV9uYW1lIDwtICJ0X2tvX3JldGluYSIKdGFibGVfaW5wdXQgPC0gdGltZV90YWJsZXNbW3RhYmxlX25hbWVdXQp0YWJsZSA8LSB0YWJsZV9pbnB1dFtbImRhdGEiXV1bW3RhYmxlX25hbWVdXQp0X2tvX3JldGluYV92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGNvbG9yX2xvdyA9IHRpbWVfY29sb3JzW1sicDA4X2hldF9kbGduIl1dLCBjb2xvcl9oaWdoID0gdGltZV9jb2xvcnNbWyJwMTVfaGV0X2RsZ24iXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCwgbWluLnNlZ21lbnQubGVuZ3RoID0gMCwgcG9pbnQucGFkZGluZyA9IDAuMikKcHAoZmlsZSA9ICIyOXRpbWVfbWFfdm9sY2Fub190eC90X2tvX3JldGluYV92b2xjYW5vLnBkZiIsIHdpZHRoID0gMTIsIGhlaWdodCA9IDEyKQp0X2tvX3JldGluYV92b2xjYW5vW1sicGxvdCJdXQpwbG90dGVkIDwtIGRldi5vZmYoKQp0X2tvX3JldGluYV92b2xjYW5vW1sicGxvdCJdXQp0X2tvX3JldGluYV9tYSA8LSBwbG90X21hX2NvbmRpdGlvbl9kZSgKICB0YWJsZSwgdGFibGVfbmFtZSwgZXhwcl9jb2wgPSAiZGVzZXFfYmFzZW1lYW4iLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLAogIGNvbG9yX2xvdyA9IHRpbWVfY29sb3JzW1sicDA4X2hldF9kbGduIl1dLCBjb2xvcl9oaWdoID0gdGltZV9jb2xvcnNbWyJwMTVfaGV0X2RsZ24iXV0sCiAgcF9jb2wgPSAiZGVzZXFfYWRqcCIsIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgb3V0bGluZSA9IG91dGxpbmUpCnBwKGZpbGUgPSAiMjl0aW1lX21hX3ZvbGNhbm9fdHgvdF9rb19yZXRpbmFfbWEucGRmIiwgd2lkdGggPSA5LCBoZWlnaHQgPSA5KQp0X2tvX3JldGluYV9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKdF9rb19yZXRpbmFfbWFbWyJwbG90Il1dCmBgYAoKIyMgdF9oZXRfc2NuCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAidF9oZXRfc2NuIgp0YWJsZV9pbnB1dCA8LSB0aW1lX3RhYmxlc1tbdGFibGVfbmFtZV1dCnRhYmxlIDwtIHRhYmxlX2lucHV0W1siZGF0YSJdXVtbdGFibGVfbmFtZV1dCnRfaGV0X3Njbl92b2xjYW5vIDwtIHBsb3Rfdm9sY2Fub19jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGZjX2NvbCA9ICJkZXNlcV9sb2dmYyIsIHBfY29sID0gImRlc2VxX2FkanAiLAogIGNvbG9yX2xvdyA9IHRpbWVfY29sb3JzW1sicDA4X2hldF9kbGduIl1dLCBjb2xvcl9oaWdoID0gdGltZV9jb2xvcnNbWyJwMTVfaGV0X2RsZ24iXV0sCiAgbGFiZWxfY29sdW1uID0gIm1naV9zeW1ib2wiLCBsYWJlbCA9IGludGVyZXN0aW5nX2dlbmVzLCBhbHBoYSA9IDEuMCwKICBzaXplID0gNCwgbWluLnNlZ21lbnQubGVuZ3RoID0gMCwgcG9pbnQucGFkZGluZyA9IDAuMikKcHAoZmlsZSA9ICIyOXRpbWVfbWFfdm9sY2Fub190eC90X2hldF9zY25fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMikKdF9oZXRfc2NuX3ZvbGNhbm9bWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnRfaGV0X3Njbl92b2xjYW5vW1sicGxvdCJdXQp0X2hldF9zY25fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSB0aW1lX2NvbG9yc1tbInAwOF9oZXRfZGxnbiJdXSwgY29sb3JfaGlnaCA9IHRpbWVfY29sb3JzW1sicDE1X2hldF9kbGduIl1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIG91dGxpbmUgPSBvdXRsaW5lKQpwcChmaWxlID0gIjI5dGltZV9tYV92b2xjYW5vX3R4L3RfaGV0X3Njbl9tYS5wZGYiLCB3aWR0aCA9IDksIGhlaWdodCA9IDkpCnRfaGV0X3Njbl9tYVtbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKdF9oZXRfc2NuX21hW1sicGxvdCJdXQpgYGAKCiMjIHRfa29fc2NuCgpgYGB7cn0KdGFibGVfbmFtZSA8LSAidF9rb19zY24iCnRhYmxlX2lucHV0IDwtIHRpbWVfdGFibGVzW1t0YWJsZV9uYW1lXV0KdGFibGUgPC0gdGFibGVfaW5wdXRbWyJkYXRhIl1dW1t0YWJsZV9uYW1lXV0KdF9rb19zY25fdm9sY2FubyA8LSBwbG90X3ZvbGNhbm9fY29uZGl0aW9uX2RlKAogIHRhYmxlLCB0YWJsZV9uYW1lLCBmY19jb2wgPSAiZGVzZXFfbG9nZmMiLCBwX2NvbCA9ICJkZXNlcV9hZGpwIiwKICBjb2xvcl9sb3cgPSB0aW1lX2NvbG9yc1tbInAwOF9oZXRfZGxnbiJdXSwgY29sb3JfaGlnaCA9IHRpbWVfY29sb3JzW1sicDE1X2hldF9kbGduIl1dLAogIGxhYmVsX2NvbHVtbiA9ICJtZ2lfc3ltYm9sIiwgbGFiZWwgPSBpbnRlcmVzdGluZ19nZW5lcywgYWxwaGEgPSAxLjAsCiAgc2l6ZSA9IDQsIG1pbi5zZWdtZW50Lmxlbmd0aCA9IDAsIHBvaW50LnBhZGRpbmcgPSAwLjIpCnBwKGZpbGUgPSAiMjl0aW1lX21hX3ZvbGNhbm9fdHgvdF9rb19zY25fdm9sY2Fuby5wZGYiLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSAxMikKdF9rb19zY25fdm9sY2Fub1tbInBsb3QiXV0KcGxvdHRlZCA8LSBkZXYub2ZmKCkKdF9rb19zY25fdm9sY2Fub1tbInBsb3QiXV0KdF9rb19zY25fbWEgPC0gcGxvdF9tYV9jb25kaXRpb25fZGUoCiAgdGFibGUsIHRhYmxlX25hbWUsIGV4cHJfY29sID0gImRlc2VxX2Jhc2VtZWFuIiwgZmNfY29sID0gImRlc2VxX2xvZ2ZjIiwKICBjb2xvcl9sb3cgPSB0aW1lX2NvbG9yc1tbInAwOF9oZXRfZGxnbiJdXSwgY29sb3JfaGlnaCA9IHRpbWVfY29sb3JzW1sicDE1X2hldF9kbGduIl1dLAogIHBfY29sID0gImRlc2VxX2FkanAiLCBsYWJlbF9jb2x1bW4gPSAibWdpX3N5bWJvbCIsIGxhYmVsID0gaW50ZXJlc3RpbmdfZ2VuZXMsIG91dGxpbmUgPSBvdXRsaW5lKQpwcChmaWxlID0gIjI5dGltZV9tYV92b2xjYW5vX3R4L3Rfa29fc2NuX21hLnBkZiIsIHdpZHRoID0gOSwgaGVpZ2h0ID0gOSkKdF9rb19zY25fbWFbWyJwbG90Il1dCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCnRfa29fc2NuX21hW1sicGxvdCJdXQpgYGAKCiMjIyMgUmVwZWF0IHdpdGggdGhlIHN0cmljdCBmaWx0ZXIKCmBgYHtyfQp0aW1lX3N0cmljdF90YWJsZXMgPC0gbGlzdCgpCnRpbWVfc3RyaWN0X3NpZyA8LSBsaXN0KCkKdGltZV9zdHJpY3RfZ3AgPC0gbGlzdCgpCnRpbWVfc3RyaWN0X2NwIDwtIGxpc3QoKQp0aW1lX3N0cmljdF9lbiA8LSBsaXN0KCkKZm9yIChrIGluIHNlcV9hbG9uZyh0aW1lX2tlZXBlcnMpKSB7CiAgbmFtZSA8LSBuYW1lcyh0aW1lX2tlZXBlcnMpW2tdCiAgbWVzc2FnZSgiRXhhbWluaW5nICIsIG5hbWUpCiAga2VlcGVyIDwtIHRpbWVfa2VlcGVyc1tuYW1lXQogIGluY2x1ZGVfbmFtZSA8LSBwYXN0ZTAoImluY18iLCBuYW1lKQogIGluY2x1ZGVfZGZfbmFtZSA8LSBwYXN0ZTAoImRmXyIsIG5hbWUpCiAgaW5jbHVkZV9kZiA8LSB0aW1lX2luY2x1c2lvbnNfc3RyaWN0W1tpbmNsdWRlX2RmX25hbWVdXQogIGluY2x1ZGVzIDwtIHRpbWVfaW5jbHVzaW9uc19zdHJpY3RbW2luY2x1ZGVfbmFtZV1dCiAgZm91bmRfaW5jbHVkZXMgPC0gcm93bmFtZXModGltZV9zaWdfZnVsbFtbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0pICVpbiUgaW5jbHVkZXMKICBzdW1tYXJ5KGZvdW5kX2luY2x1ZGVzKQogIGlmIChzdW0oZm91bmRfaW5jbHVkZXMpID09IDApIHsKICAgIG5leHQKICB9CiAgaW5jbHVkZV9maWxlbmFtZSA8LSBnbHVlKCIzMHRpbWVfc3RyaWN0X2NvbnRyYXN0c19leGNlbF90eC97bmFtZX1faW5jbHVkaW5nX3d0X3tsZmNfY3V0b2ZmfV9kZWNyZWFzZWRfdGFibGUtdnt2ZXJ9Lnhsc3giKQogIGluY2x1ZGVfc2lnX2ZpbGVuYW1lIDwtIGdsdWUoIjMwdGltZV9zdHJpY3RfY29udHJhc3RzX2V4Y2VsX3R4L3tuYW1lfV9pbmNsdWRpbmdfd3Rfe2xmY19jdXRvZmZ9X2RlY3JlYXNlZF9zaWctdnt2ZXJ9Lnhsc3giKQogIHRpbWVfc3RyaWN0X3RhYmxlc1tbbmFtZV1dIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogICAgdGltZV9kZSwgZXh0cmFfYW5ub3QgPSBpbmNsdWRlX2RmLAogICAga2VlcGVycyA9IGtlZXBlciwgbGFiZWxfY29sdW1uID0gbGFiZWxfY29sdW1uLAogICAgZXhjZWwgPSBpbmNsdWRlX2ZpbGVuYW1lLCB3YW50ZWRfZ2VuZXMgPSBpbmNsdWRlcykKICBwcmludCh0aW1lX3N0cmljdF90YWJsZXNbW25hbWVdXSkKICB0aW1lX3N0cmljdF9zaWdbW25hbWVdXSA8LSBleHRyYWN0X3NpZ25pZmljYW50X2dlbmVzKAogICAgdGltZV9zdHJpY3RfdGFibGVzW1tuYW1lXV0sIGFjY29yZGluZ190byA9ICJkZXNlcSIsCiAgICBleGNlbCA9IGluY2x1ZGVfc2lnX2ZpbGVuYW1lKQogIHByaW50KHRpbWVfc3RyaWN0X3NpZ1tbbmFtZV1dKQogIG51bV9yb3dzIDwtIG5yb3codGltZV9zdHJpY3Rfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKSArCiAgICBucm93KHRpbWVfc3RyaWN0X3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dKQogIG1lc3NhZ2UoIlRoZXJlIGFyZSAiLCBudW1fcm93cywgIiBzaWduaWZpY2FudCB1cCBhbmQgZG93biBnZW5lcy4iKQogIGlmIChudW1fcm93cyA+PSAxMCkgewogICAgbWVzc2FnZSgiUGVyZm9ybWluZyBncHJvZmlsZXIvY2x1c3RlclByb2ZpbGVyLiIpCiAgICB0aW1lX3N0cmljdF9ncFtbbmFtZV1dIDwtIGFsbF9ncHJvZmlsZXIodGltZV9zdHJpY3Rfc2lnW1tuYW1lXV0sIHNwZWNpZXMgPSAibW11c2N1bHVzIikKICAgIHRpbWVfc3RyaWN0X2NwW1tuYW1lXV0gPC0gYWxsX2Nwcm9maWxlcigKICAgICAgdGltZV9zdHJpY3Rfc2lnW1tuYW1lXV0sIHRpbWVfc3RyaWN0X3RhYmxlc1tbbmFtZV1dLAogICAgICBvcmdkYiA9ICJvcmcuTW0uZWcuZGIiLCBnb19sZXZlbCA9IGdvX2xldmVsLCBvcmdkYl9mcm9tID0gb3JnZGJfZnJvbSwKICAgICAgbWF4X2dyb3Vwc2l6ZSA9IG1heF9ncm91cHNpemUsIG9yZ2FuaXNtID0gIm1vdXNlIikKICAgICNpZiAoIWlzLm51bGwoZ2V0MCgibTJfZ3NjIikpKSB7CiAgICAjICB0aW1lX3N0cmljdF9lbltbbmFtZV1dIDwtIGFsbF9lbnJpY2hlcih0aW1lX3N0cmljdF9zaWdbW25hbWVdXSwgZ3NjID0gbTJfZ3NjLAogICAgIyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgb3JnZGIgPSAib3JnLk1tLmVnLmRiIiwgZnJvbSA9ICJFTlNFTUJMIiwgdG8gPSAiU1lNQk9MIikKICAgICN9CiAgICBncF93cml0dGVuIDwtIHdyaXRlX2FsbF9ncCh0aW1lX3N0cmljdF9ncFtbbmFtZV1dLCBwcmVmaXggPSAiMzEiLCBzdWZmaXggPSAic3RyaWN0IikKICAgIGNwX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2NwKHRpbWVfc3RyaWN0X2NwW1tuYW1lXV0sIHByZWZpeCA9ICIzMSIsIHN1ZmZpeCA9ICJzdHJpY3QiKQogICAgI2VuX3dyaXR0ZW4gPC0gd3JpdGVfYWxsX2VuKHRpbWVfc3RyaWN0X2VuW1tuYW1lXV0pCiAgfSBlbHNlIHsKICAgIHdhcm5pbmcoIlRoZXJlIGFyZSBsZXNzIHRoYW4gMTAgZ2VuZXMgdXAgYW5kIGRvd24gaW4gdGhlICIsIG5hbWUsICIgY29tcGFyaXNvbi4iKQogICAgbWVzc2FnZSgiVGhlcmUgYXJlIGxlc3MgdGhhbiAxMCBnZW5lcyB1cCBhbmQgZG93biBpbiB0aGUgIiwgbmFtZSwgIiBjb21wYXJpc29uLiIpCiAgfQp9CmBgYAoKU2VuZCB0aGUgcGxvdHMgc2VwYXJhdGVseS4KCmBgYHtyfQpmb3IgKGsgaW4gc2VxX2Fsb25nKHRpbWVfa2VlcGVycykpIHsKICBuYW1lIDwtIG5hbWVzKHRpbWVfa2VlcGVycylba10KICBtZXNzYWdlKCJFeGFtaW5pbmcgIiwgbmFtZSkKICBrZWVwZXIgPC0gdGltZV9rZWVwZXJzW25hbWVdCiAgaW5jbHVkZXMgPC0gdGltZV9pbmNsdXNpb25zW1tuYW1lXV0KICBpbmNsdWRlX25hbWUgPC0gcGFzdGUwKCJpbmNfIiwgbmFtZSkKICBpbmNsdWRlX2RmX25hbWUgPC0gcGFzdGUwKCJkZl8iLCBuYW1lKQogIGluY2x1ZGVfZGYgPC0gdGltZV9pbmNsdXNpb25zW1tpbmNsdWRlX2RmX25hbWVdXQogIGluY2x1ZGVzIDwtIHRpbWVfaW5jbHVzaW9uc1tbaW5jbHVkZV9uYW1lXV0KICBudW1fcm93cyA8LSBucm93KHRpbWVfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dKSArCiAgICBucm93KHRpbWVfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbImRvd25zIl1dW1tuYW1lXV0pCiAgbWVzc2FnZSgiVGhlcmUgYXJlICIsIG51bV9yb3dzLCAiIHNpZ25pZmljYW50IHVwIGFuZCBkb3duIGdlbmVzLiIpCiAgbnVtX29iamVjdHMgPC0gbGVuZ3RoKHRpbWVfY3BbW25hbWVdXSkKICBpZiAobnVtX29iamVjdHMgPT0gMCkgewogICAgd2FybmluZygiU29tZXRoaW5nIGZhaWxlZCBpbiBhbGxfY3Byb2ZpbGVyLiIpCiAgfSBlbHNlIHsKICAgIHVwcCA8LSB3aGljaChncmVwbCh4ID0gbmFtZXModGltZV9jcFtbbmFtZV1dKSwgcGF0dGVybiA9ICJfdXAkIikpCiAgICBkb3ducCA8LSB3aGljaChncmVwbCh4ID0gbmFtZXModGltZV9jcFtbbmFtZV1dKSwgcGF0dGVybiA9ICJfZG93biQiKSkKICAgIGlmIChsZW5ndGgodXBwKSA+IDApIHsKICAgICAgbWZfc2lnIDwtIHRpbWVfY3BbW25hbWVdXVtbdXBwXV1bWyJnb19kYXRhIl1dW1siTUZfZW5yaWNoIl1dCiAgICAgIGNjX3NpZyA8LSB0aW1lX2NwW1tuYW1lXV1bW3VwcF1dW1siZ29fZGF0YSJdXVtbIkNDX2VucmljaCJdXQogICAgICBicF9zaWcgPC0gdGltZV9jcFtbbmFtZV1dW1t1cHBdXVtbImdvX2RhdGEiXV1bWyJCUF9lbnJpY2giXV0KICAgICAgbWZfcGxvdHNfdXAgPC0gcGxvdF9lbnJpY2hyZXN1bHQobWZfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBtZl90cmVlX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjMyY3BfdHJlZXNfdHgve25hbWV9X3VwX21mX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl90cmVlX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfdXBbWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgbWZfYmFyX3VwX2ZpbGVuYW1lIDwtIGdsdWUoIjMyY3BfYmFyX3R4L3tuYW1lfV91cF9tZl9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl9iYXJfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChtZl9wbG90c191cFtbImJhciJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGNjX3Bsb3RzX3VwIDwtIHBsb3RfZW5yaWNocmVzdWx0KGNjX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgY2NfdHJlZV91cF9maWxlbmFtZSA8LSBnbHVlKCIzMmNwX3RyZWVzX3R4L3tuYW1lfV91cF9jY19zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gY2NfdHJlZV91cF9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX3VwW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGNjX2Jhcl91cF9maWxlbmFtZSA8LSBnbHVlKCIzMmNwX2Jhcl90eC97bmFtZX1fdXBfY2Nfc2lnX2Jhci5wZGYiKQogICAgICBwcChmaWxlID0gY2NfYmFyX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoY2NfcGxvdHNfdXBbWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBicF9wbG90c191cCA8LSBwbG90X2VucmljaHJlc3VsdChicF9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGJwX3RyZWVfdXBfZmlsZW5hbWUgPC0gZ2x1ZSgiMzJjcF90cmVlc190eC97bmFtZX1fdXBfYnBfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IGJwX3RyZWVfdXBfZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c191cFtbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBicF9wbG90c191cCA8LSBwbG90X2VucmljaHJlc3VsdChicF9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGJwX2Jhcl91cF9maWxlbmFtZSA8LSBnbHVlKCIzMmNwX2Jhcl90eC97bmFtZX1fdXBfYnBfc2lnX2Jhci5wZGYiKQogICAgICBwcChmaWxlID0gYnBfYmFyX3VwX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQoYnBfcGxvdHNfdXBbWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgfQogICAgaWYgKGxlbmd0aChkb3ducCkgPiAwKSB7CiAgICAgIG1mX3NpZyA8LSB0aW1lX2NwW1tuYW1lXV1bW2Rvd25wXV1bWyJnb19kYXRhIl1dW1siTUZfZW5yaWNoIl1dCiAgICAgIGNjX3NpZyA8LSB0aW1lX2NwW1tuYW1lXV1bW2Rvd25wXV1bWyJnb19kYXRhIl1dW1siQ0NfZW5yaWNoIl1dCiAgICAgIGJwX3NpZyA8LSB0aW1lX2NwW1tuYW1lXV1bW2Rvd25wXV1bWyJnb19kYXRhIl1dW1siQlBfZW5yaWNoIl1dCiAgICAgIG1mX3Bsb3RzX2Rvd24gPC0gcGxvdF9lbnJpY2hyZXN1bHQobWZfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBtZl90cmVlX2Rvd25fZmlsZW5hbWUgPC0gZ2x1ZSgiMzJjcF90cmVlc190eC97bmFtZX1fZG93bl9tZl9zaWdfdHJlZS5wZGYiKQogICAgICBwcChmaWxlID0gbWZfdHJlZV9kb3duX2ZpbGVuYW1lKQogICAgICB0cnkocHJpbnQobWZfcGxvdHNfZG93bltbInRyZWUiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBtZl9iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIzMmNwX2Jhcl90eC97bmFtZX1fZG93bl9tZl9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBtZl9iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KG1mX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgICBjY19wbG90c19kb3duIDwtIHBsb3RfZW5yaWNocmVzdWx0KGNjX3NpZywgc2hvd0NhdGVnb3J5ID0gZ29fY2F0ZWdvcmllcykKICAgICAgY2NfdHJlZV9kb3duX2ZpbGVuYW1lIDwtIGdsdWUoIjMyY3BfdHJlZXNfdHgve25hbWV9X2Rvd25fY2Nfc2lnX3RyZWUucGRmIikKICAgICAgcHAoZmlsZSA9IGNjX3RyZWVfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGNjX3Bsb3RzX2Rvd25bWyJ0cmVlIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgY2NfYmFyX2Rvd25fZmlsZW5hbWUgPC0gZ2x1ZSgiMzJjcF9iYXJfdHgve25hbWV9X2Rvd25fY2Nfc2lnX2Jhci5wZGYiKQogICAgICBwcChmaWxlID0gY2NfYmFyX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChjY19wbG90c19kb3duW1siYmFyIl1dKSwgc2lsZW50ID0gVFJVRSkKICAgICAgcGxvdHRlZCA8LSBkZXYub2ZmKCkKICAgICAgYnBfcGxvdHNfZG93biA8LSBwbG90X2VucmljaHJlc3VsdChicF9zaWcsIHNob3dDYXRlZ29yeSA9IGdvX2NhdGVnb3JpZXMpCiAgICAgIGJwX3RyZWVfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIzMmNwX3RyZWVzX3R4L3tuYW1lfV9kb3duX2JwX3NpZ190cmVlLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF90cmVlX2Rvd25fZmlsZW5hbWUpCiAgICAgIHRyeShwcmludChicF9wbG90c19kb3duW1sidHJlZSJdXSksIHNpbGVudCA9IFRSVUUpCiAgICAgIHBsb3R0ZWQgPC0gZGV2Lm9mZigpCiAgICAgIGJwX3Bsb3RzX2Rvd24gPC0gcGxvdF9lbnJpY2hyZXN1bHQoYnBfc2lnLCBzaG93Q2F0ZWdvcnkgPSBnb19jYXRlZ29yaWVzKQogICAgICBicF9iYXJfZG93bl9maWxlbmFtZSA8LSBnbHVlKCIzMmNwX2Jhcl90eC97bmFtZX1fZG93bl9icF9zaWdfYmFyLnBkZiIpCiAgICAgIHBwKGZpbGUgPSBicF9iYXJfZG93bl9maWxlbmFtZSkKICAgICAgdHJ5KHByaW50KGJwX3Bsb3RzX2Rvd25bWyJiYXIiXV0pLCBzaWxlbnQgPSBUUlVFKQogICAgICBwbG90dGVkIDwtIGRldi5vZmYoKQogICAgfQogIH0KfQpgYGAKCiMgVHJhbnNsYXRvbWUgcXVlcmllcwoKSW4gY29udmVyc2F0aW9uIHdpdGggQ29sZW5zbywgaGUgc3Bva2UgYWJvdXQgYSBzZXJpZXMgb2YgY29udHJhc3RzCndoaWNoIHdvdWxkIGJlIGludGVyZXN0aW5nIHRvIGF0dGVtcHQgaW4gb3JkZXIgdG8gcXVlcnkgdGhlIGNoYW5nZXMKYWNyb3NzIGJvdGggbG9jYXRpb25zIGFuZCBnZW5vdHlwZXMgYW5kL29yIGJvdGggbG9jYXRpb25zIGFuZCB0aW1lLAp0aHVzOgoKKHAwOF9oZXRfc2NuIC8gcDA4X2hldF9yZXRpbmEpIC8gKHAwOF9rb19zY24gLyBwMDhfa29fcmV0aW5hKQoKYXMgYW4gZXhhbXBsZS4gIFdlIGNhbiBkZWZpbml0ZWx5IGRvIHRoZXNlLCBidXQgdGhleSBkbyBub3Qgd29yayBmb3IKYWxsIG1ldGhvZHMgZW1wbG95ZWQgKEkgdGhpbmsgdGhleSB3b3JrIGJlc3Qgd2l0aCBsaW1tYSBhbmQgZWRnZVIpLgoKTGV0cyBmaW5kIG91dCEKCiMjIFR3byBzY24vcmV0aW5hIGNvbXBhcmlzb25zCgoqIChwMDhfaGV0X3NjbiAvIHAwOF9oZXRfcmV0aW5hKSAvIChwMDhfa29fc2NuIC8gcDA4X2tvX3JldGluYSkKKiAocDE1X2hldF9zY24gLyBwMTVfaGV0X3JldGluYSkgLyAocDE1X2tvX3NjbiAvIHAxNV9rb19yZXRpbmEpCgpgYGB7cn0Kc2NuX2V4dHJhIDwtIGdsdWUoIlxcCiAgcDA4aGV0ID0gKGNvbmRpdGlvbnAwOF9oZXRfc2NuIC0gY29uZGl0aW9ucDA4X2hldF9yZXRpbmEpLCBcXAogIHAwOGtvID0gKGNvbmRpdGlvbnAwOF9rb19zY24gLSBjb25kaXRpb25wMDhfa29fcmV0aW5hKSwgXFwKICBwMDhoZXRfdnNfcDA4a28gPSAoY29uZGl0aW9ucDA4X2hldF9zY24gLSBjb25kaXRpb25wMDhfaGV0X3JldGluYSkgLSAoY29uZGl0aW9ucDA4X2tvX3NjbiAtIGNvbmRpdGlvbnAwOF9rb19yZXRpbmEpLCBcXAogIHAxNWhldCA9IChjb25kaXRpb25wMTVfaGV0X3NjbiAtIGNvbmRpdGlvbnAxNV9oZXRfcmV0aW5hKSwgXFwKICBwMTVrbyA9IChjb25kaXRpb25wMTVfa29fc2NuIC0gY29uZGl0aW9ucDE1X2tvX3JldGluYSksIFxcCiAgcDE1aGV0X3ZzX3AxNWtvID0gKGNvbmRpdGlvbnAxNV9oZXRfc2NuIC0gY29uZGl0aW9ucDE1X2hldF9yZXRpbmEpIC0gKGNvbmRpdGlvbnAxNV9rb19zY24gLSBjb25kaXRpb25wMTVfa29fcmV0aW5hKSIpCnNjbl90cmFuc2xhdG9tZV9kZV9rZWVwZXJzIDwtIGxpc3QoCiAgInAwOGhldCIgPSBjKCJwMDhfaGV0X3NjbiIsICJwMDhfaGV0X3JldGluYSIpLAogICJwMDhrbyIgPSBjKCJwMDhfa29fc2NuIiwgInAwOF9rb19yZXRpbmEiKSwKICAicDE1aGV0IiA9IGMoInAxNV9oZXRfc2NuIiwgInAxNV9oZXRfcmV0aW5hIiksCiAgInAxNWtvIiA9IGMoInAxNV9rb19zY24iLCAicDE1X2tvX3JldGluYSIpKQpzY25fdHJhbnNsYXRvbWVfa2VlcGVycyA8LSBsaXN0KAogICJwMDhoZXQiID0gYygicDA4X2hldF9zY24iLCAicDA4X2hldF9yZXRpbmEiKSwKICAicDA4a28iID0gYygicDA4X2tvX3NjbiIsICJwMDhfa29fcmV0aW5hIiksCiAgInAwOF9zY25fdHJhbnNsYXRvbWUiID0gYygicDA4aGV0IiwgInAwOGtvIiksCiAgInAxNWhldCIgPSBjKCJwMTVfaGV0X3NjbiIsICJwMTVfaGV0X3JldGluYSIpLAogICJwMTVrbyIgPSBjKCJwMTVfa29fc2NuIiwgInAxNV9rb19yZXRpbmEiKSwKICAicDE1X3Njbl90cmFuc2xhdG9tZSIgPSBjKCJwMTVoZXQiLCAicDE1a28iKSkKZmlsdCA8LSBub3JtYWxpemUodHhfcGFpcndpc2VfaW5wdXQsIGZpbHRlciA9IFRSVUUpCmxpbW1hX3Rlc3QgPC0gbGltbWFfcGFpcndpc2UoZmlsdCwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBrZWVwZXJzID0gc2NuX3RyYW5zbGF0b21lX2RlX2tlZXBlcnMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZWxfZnN0cmluZyA9ICJ+IDAgKyBjb25kaXRpb24iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX3N2cyA9IEZBTFNFLCBleHRyYV9jb250cmFzdHJzID0gc2NuX2V4dHJhKQplZGdlcl90ZXN0IDwtIGVkZ2VyX3BhaXJ3aXNlKGZpbHQsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAga2VlcGVycyA9IHNjbl90cmFuc2xhdG9tZV9kZV9rZWVwZXJzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX2ZzdHJpbmcgPSAifiAwICsgY29uZGl0aW9uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtb2RlbF9zdnMgPSBGQUxTRSwgZXh0cmFfY29udHJhc3RzID0gc2NuX2V4dHJhKQpzY25fdHJhbnNsYXRvbWVfZGUgPC0gYWxsX3BhaXJ3aXNlKHR4X3BhaXJ3aXNlX2lucHV0LCBmaWx0ZXIgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGtlZXBlcnMgPSBzY25fdHJhbnNsYXRvbWVfZGVfa2VlcGVycywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtb2RlbF9zdnMgPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtb2RlbF9mc3RyaW5nID0gIn4gMCArIGNvbmRpdGlvbiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZG9fYmFzaWMgPSBGQUxTRSwgZG9fZHJlYW0gPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkb19ub2lzZXEgPSBGQUxTRSwgZG9fZWJzZXEgPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBleHRyYV9jb250cmFzdHMgPSBzY25fZXh0cmEpCnNjbl9jb21iaW5lZF90ZXN0IDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHNjbl90cmFuc2xhdG9tZV9kZSwga2VlcGVycyA9IHNjbl90cmFuc2xhdG9tZV9rZWVwZXJzLAogIGV4Y2VsID0gZ2x1ZSgiMzN0cmFuc2xhdG9tZV94bHN4X3R4L3Rlc3Rfc2NuX3RyYW5zbGF0b21lX3VuZmlsdGVyZWRfbm9zdmEtdnt2ZXJ9Lnhsc3giKSkKc2NuX3RyYW5zbGF0b21lX2RlX3N2YSA8LSBhbGxfcGFpcndpc2UodHhfcGFpcndpc2VfaW5wdXQsIGZpbHRlciA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGtlZXBlcnMgPSBzY25fdHJhbnNsYXRvbWVfZGVfa2VlcGVycywKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZWxfc3ZzID0gInN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX2ZzdHJpbmcgPSAifiAwICsgY29uZGl0aW9uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZG9fYmFzaWMgPSBGQUxTRSwgZG9fZHJlYW0gPSBGQUxTRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZG9fbm9pc2VxID0gRkFMU0UsIGRvX2Vic2VxID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4dHJhX2NvbnRyYXN0cyA9IHNjbl9leHRyYSkKc2NuX2NvbWJpbmVkX3Rlc3Rfc3ZhIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHNjbl90cmFuc2xhdG9tZV9kZV9zdmEsIGtlZXBlcnMgPSBzY25fdHJhbnNsYXRvbWVfa2VlcGVycywKICBleGNlbCA9IGdsdWUoIjMzdHJhbnNsYXRvbWVfeGxzeF90eC90ZXN0X3Njbl90cmFuc2xhdG9tZV91bmZpbHRlcmVkX3N2YS12e3Zlcn0ueGxzeCIpKQpgYGAKCiMjIyBTdWJ0cmFjdGluZyBERVNlcTIgcmVzdWx0czogcDA4IHNjbiBoZXQgdnMga28KCmBgYHtyfQpwMDhfc2NuX2NvbWJpbmVkX2Rlc2VxIDwtIHN1YnRyYWN0X2Rlc2VxX3Jlc3VsdHMoCiAgZmlyc3RfdGFibGUgPSBzY25fY29tYmluZWRfdGVzdFtbImRhdGEiXV1bWyJwMDhoZXQiXV0sCiAgc2Vjb25kX3RhYmxlID0gc2NuX2NvbWJpbmVkX3Rlc3RbWyJkYXRhIl1dW1sicDA4a28iXV0sCiAgZmlyc3RfbGZjID0gImRlc2VxX2xvZ2ZjIiwgc2Vjb25kX2xmYyA9ICJkZXNlcV9sb2dmYyIsCiAgZmlyc3RfcCA9ICJkZXNlcV9hZGpwIiwgc2Vjb25kX3AgPSAiZGVzZXFfYWRqcCIsCiAgZmlyc3RfbmFtZSA9ICJoZXQiLCBzZWNvbmRfbmFtZSA9ICJrbyIsCiAgZXhjZWwgPSBnbHVlKCIzM3RyYW5zbGF0b21lX3hsc3hfdHgvdHJhbnNsYXRvbWVfcDA4X3Njbl9jb21iaW5lZF9kZXNlcS12e3Zlcn0ueGxzeCIpKQpgYGAKCiMjIyBTdWJ0cmFjdGluZyBERVNlcTIgcmVzdWx0czogcDE1IHNjbiBoZXQgdnMga28KCmBgYHtyfQpwMTVfc2NuX2NvbWJpbmVkX2Rlc2VxIDwtIHN1YnRyYWN0X2Rlc2VxX3Jlc3VsdHMoCiAgZmlyc3RfdGFibGUgPSBzY25fY29tYmluZWRfdGVzdFtbImRhdGEiXV1bWyJwMTVoZXQiXV0sCiAgc2Vjb25kX3RhYmxlID0gc2NuX2NvbWJpbmVkX3Rlc3RbWyJkYXRhIl1dW1sicDE1a28iXV0sCiAgZmlyc3RfbGZjID0gImRlc2VxX2xvZ2ZjIiwgc2Vjb25kX2xmYyA9ICJkZXNlcV9sb2dmYyIsCiAgZmlyc3RfcCA9ICJkZXNlcV9hZGpwIiwgc2Vjb25kX3AgPSAiZGVzZXFfYWRqcCIsCiAgZmlyc3RfbmFtZSA9ICJoZXQiLCBzZWNvbmRfbmFtZSA9ICJrbyIsCiAgZXhjZWwgPSBnbHVlKCIzNHRyYW5zbGF0b21lX2Rlc2Vxc3ViX3hsc3hfdHgvdHJhbnNsYXRvbWVfcDE1X3Njbl9jb21iaW5lZF9kZXNlcS12e3Zlcn0ueGxzeCIpKQpgYGAKCiMjIE9uZSBkbGduL3JldGluYSBjb21wYXJpc29uCgoqIChwMDhfaGV0X2RsZ24gLyBwMDhfaGV0X3JldGluYSkgLyAocDA4X2tvX2RsZ24gLyBwMDhfa29fcmV0aW5hKQoKYGBge3J9CnAwOF9kbGduX2V4dHJhIDwtICJwMDhoZXRfdnNfcDA4a28gPSAoY29uZGl0aW9ucDA4X2hldF9kbGduIC0gY29uZGl0aW9ucDA4X2hldF9yZXRpbmEpIC0gKGNvbmRpdGlvbnAwOF9rb19kbGduIC0gY29uZGl0aW9ucDA4X2tvX3JldGluYSkiCnAwOF9kbGduX3RyYW5zbGF0b21lX2RlX2tlZXBlcnMgPC0gbGlzdCgKICAicDA4aGV0IiA9IGMoInAwOF9oZXRfZGxnbiIsICJwMDhfaGV0X3JldGluYSIpLAogICJwMDhrbyIgPSBjKCJwMDhfa29fZGxnbiIsICJwMDhfa29fcmV0aW5hIikpCnAwOF9kbGduX3RyYW5zbGF0b21lX2tlZXBlcnMgPC0gbGlzdCgKICAicDA4X2hldF9kbGduX3ZzX3JldGluYSIgPSBjKCJwMDhfaGV0X2RsZ24iLCAicDA4X2hldF9yZXRpbmEiKSwKICAicDA4X2tvX2RsZ25fdnNfcmV0aW5hIiA9IGMoInAwOF9rb19kbGduIiwgInAwOF9rb19yZXRpbmEiKSwKICAicDA4X2RsZ25fdHJhbnNsYXRvbWUiID0gYygicDA4aGV0IiwgInAwOGtvIikpCnAwOF9kbGduX3RyYW5zbGF0b21lX2RlIDwtIGFsbF9wYWlyd2lzZSh0eF9wYWlyd2lzZV9pbnB1dCwgZmlsdGVyID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGtlZXBlcnMgPSBwMDhfZGxnbl90cmFuc2xhdG9tZV9kZV9rZWVwZXJzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZWxfc3ZzID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtb2RlbF9mc3RyaW5nID0gIn4gMCArIGNvbmRpdGlvbiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkb19iYXNpYyA9IEZBTFNFLCBkb19kcmVhbSA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZG9fbm9pc2VxID0gRkFMU0UsIGRvX2Vic2VxID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBleHRyYV9jb250cmFzdHMgPSBwMDhfZGxnbl9leHRyYSkKcDA4X2RsZ25fY29tYmluZWRfdGVzdCA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBwMDhfZGxnbl90cmFuc2xhdG9tZV9kZSwga2VlcGVycyA9IHAwOF9kbGduX3RyYW5zbGF0b21lX2tlZXBlcnMsCiAgbGFiZWxfY29sdW1uID0gbGFiZWxfY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiMzN0cmFuc2xhdG9tZV94bHN4X3R4L3Rlc3RfcDA4X2RsZ25fdHJhbnNsYXRvbWVfdW5maWx0ZXJlZF9ub3N2YS12e3Zlcn0ueGxzeCIpKQpwMDhfZGxnbl90cmFuc2xhdG9tZV9kZV9zdmEgPC0gYWxsX3BhaXJ3aXNlKHR4X3BhaXJ3aXNlX2lucHV0LCBmaWx0ZXIgPSBUUlVFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGtlZXBlcnMgPSBwMDhfZGxnbl90cmFuc2xhdG9tZV9kZV9rZWVwZXJzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX3N2cyA9ICJzdmFzZXEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1vZGVsX2ZzdHJpbmcgPSAifiAwICsgY29uZGl0aW9uIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkb19iYXNpYyA9IEZBTFNFLCBkb19kcmVhbSA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRvX25vaXNlcSA9IEZBTFNFLCBkb19lYnNlcSA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGV4dHJhX2NvbnRyYXN0cyA9IHAwOF9kbGduX2V4dHJhKQpwMDhfZGxnbl9jb21iaW5lZF90ZXN0X3N2YSA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBwMDhfZGxnbl90cmFuc2xhdG9tZV9kZV9zdmEsIGtlZXBlcnMgPSBwMDhfZGxnbl90cmFuc2xhdG9tZV9rZWVwZXJzLAogIGxhYmVsX2NvbHVtbiA9IGxhYmVsX2NvbHVtbiwKICBleGNlbCA9IGdsdWUoIjMzdHJhbnNsYXRvbWVfeGxzeF90eC90ZXN0X3AwOF9kbGduX3RyYW5zbGF0b21lX3VuZmlsdGVyZWRfc3ZhLXZ7dmVyfS54bHN4IikpCmBgYAoKIyMjIFN1YnRyYWN0aW5nIHRoZSBERVNlcTIgcmVzdWx0cwoKIyMgVHdvIHNjbi9yZXRpbmEgY29tcGFyaXNvbnMgKHAxNS9wMDggYWNyb3NzIGhldC9rbykKCiogKHAxNV9oZXRfc2NuIC8gcDE1X2hldF9yZXRpbmEpIC8gKHAwOF9oZXRfc2NuIC8gcDA4X2hldF9yZXRpbmEpCiogKHAxNV9rb19zY24gLyBwMTVfa29fcmV0aW5hKSAvIChwMDhfa29fc2NuIC8gcDA4X2tvX3JldGluYSkKCmBgYHtyfQp0aW1lX3Njbl9leHRyYSA8LSBnbHVlKCJcXAogIHAxNWhldCA9IChjb25kaXRpb25wMTVfaGV0X3NjbiAtIGNvbmRpdGlvbnAxNV9oZXRfcmV0aW5hKSwgXFwKICBwMDhoZXQgPSAoY29uZGl0aW9ucDA4X2hldF9zY24gLSBjb25kaXRpb25wMDhfaGV0X3JldGluYSksIFxcCiAgcDE1aGV0X3ZzX3AwOGhldCA9IChjb25kaXRpb25wMTVfaGV0X3NjbiAtIGNvbmRpdGlvbnAxNV9oZXRfcmV0aW5hKSAtIChjb25kaXRpb25wMDhfaGV0X3NjbiAtIGNvbmRpdGlvbnAwOF9oZXRfcmV0aW5hKSwKICBwMTVrbyA9IChjb25kaXRpb25wMTVfa29fc2NuIC0gY29uZGl0aW9ucDE1X2tvX3JldGluYSksIFxcCiAgcDA4a28gPSAoY29uZGl0aW9ucDA4X2tvX3NjbiAtIGNvbmRpdGlvbnAwOF9rb19yZXRpbmEpLCBcXAogIHAxNWtvX3ZzX3AwOGtvID0gKGNvbmRpdGlvbnAxNV9rb19zY24gLSBjb25kaXRpb25wMTVfa29fcmV0aW5hKSAtIChjb25kaXRpb25wMDhfa29fc2NuIC0gY29uZGl0aW9ucDA4X2tvX3JldGluYSkiKQp0aW1lX3Njbl90cmFuc2xhdG9tZV9kZV9rZWVwZXJzIDwtIGxpc3QoCiAgInAxNWhldCIgPSBjKCJwMTVfaGV0X3NjbiIsICJwMTVfaGV0X3JldGluYSIpLAogICJwMDhoZXQiID0gYygicDA4X2hldF9zY24iLCAicDA4X2hldF9yZXRpbmEiKSwKICAicDE1a28iID0gYygicDE1X2tvX3NjbiIsICJwMTVfa29fcmV0aW5hIiksCiAgInAwOGtvIiA9IGMoInAwOF9rb19zY24iLCAicDA4X2tvX3JldGluYSIpKQp0aW1lX3Njbl90cmFuc2xhdG9tZV9rZWVwZXJzIDwtIGxpc3QoCiAgInAxNWhldCIgPSBjKCJwMTVfaGV0X3NjbiIsICJwMTVfaGV0X3JldGluYSIpLAogICJwMDhoZXQiID0gYygicDA4X2hldF9zY24iLCAicDA4X2hldF9yZXRpbmEiKSwKICAicDE1a28iID0gYygicDE1X2tvX3NjbiIsICJwMTVfa29fcmV0aW5hIiksCiAgInAwOGtvIiA9IGMoInAwOF9rb19zY24iLCAicDA4X2tvX3JldGluYSIpLAogICJwMTVfaGV0X3NjX3ZzX3JldGluYSIgPSBjKCJwMTVfaGV0X3NjbiIsICJwMTVfaGV0X3JldGluYSIpLAogICJwMDhfaGV0X3NjX3ZzX3JldGluYSIgPSBjKCJwMDhfaGV0X3NjbiIsICJwMDhfaGV0X3JldGluYSIpLAogICJzY25faGV0X3RyYW5zbGF0b21lIiA9IGMoInAxNWhldCIsICJwMDhoZXQiKSwKICAic2NuX2tvX3RyYW5zbGF0b21lIiA9IGMoInAxNWtvIiwgInAwOGtvIikpCnRpbWVfc2NuX3RyYW5zbGF0b21lX2RlIDwtIGFsbF9wYWlyd2lzZSh0eF9wYWlyd2lzZV9pbnB1dCwgZmlsdGVyID0gVFJVRSwKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGtlZXBlcnMgPSB0aW1lX3Njbl90cmFuc2xhdG9tZV9kZV9rZWVwZXJzLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZWxfc3ZzID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtb2RlbF9mc3RyaW5nID0gIn4gMCArIGNvbmRpdGlvbiIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBkb19iYXNpYyA9IEZBTFNFLCBkb19kcmVhbSA9IEZBTFNFLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZG9fbm9pc2VxID0gRkFMU0UsIGRvX2Vic2VxID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBleHRyYV9jb250cmFzdHMgPSB0aW1lX3Njbl9leHRyYSkKdGltZV9zY25fdHJhbnNsYXRvbWVfdGVzdCA8LSBjb21iaW5lX2RlX3RhYmxlcygKICB0aW1lX3Njbl90cmFuc2xhdG9tZV9kZSwKICBrZWVwZXJzID0gdGltZV9zY25fdHJhbnNsYXRvbWVfa2VlcGVycywKICBsYWJlbF9jb2x1bW4gPSBsYWJlbF9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCIzM3RyYW5zbGF0b21lX3hsc3hfdHgvdGVzdF90aW1lX3Njbl90cmFuc2xhdG9tZV91bmZpbHRlcmVkX25vc3ZhLXZ7dmVyfS54bHN4IikpCnRpbWVfc2NuX3RyYW5zbGF0b21lX2RlX3N2YSA8LSBhbGxfcGFpcndpc2UodHhfcGFpcndpc2VfaW5wdXQsIGZpbHRlciA9IFRSVUUsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAga2VlcGVycyA9IHRpbWVfc2NuX3RyYW5zbGF0b21lX2RlX2tlZXBlcnMsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZWxfc3ZzID0gInN2YXNlcSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbW9kZWxfZnN0cmluZyA9ICJ+IDAgKyBjb25kaXRpb24iLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRvX2Jhc2ljID0gRkFMU0UsIGRvX2RyZWFtID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZG9fbm9pc2VxID0gRkFMU0UsIGRvX2Vic2VxID0gRkFMU0UsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZXh0cmFfY29udHJhc3RzID0gdGltZV9zY25fZXh0cmEpCnRpbWVfc2NuX3RyYW5zbGF0b21lX3Rlc3Rfc3ZhIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHRpbWVfc2NuX3RyYW5zbGF0b21lX2RlX3N2YSwKICBrZWVwZXJzID0gdGltZV9zY25fdHJhbnNsYXRvbWVfa2VlcGVycywKICBsYWJlbF9jb2x1bW4gPSBsYWJlbF9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCIzM3RyYW5zbGF0b21lX3hsc3hfdHgvdGVzdF90aW1lX3Njbl90cmFuc2xhdG9tZV91bmZpbHRlcmVkX3N2YS12e3Zlcn0ueGxzeCIpKQpgYGAKCk5leHQgc3RlcDogUGVyZm9ybSB0aGUgcmV0aW5hIGZpbHRlcjsgbmVlZCB0byB0aGluayBhYm91dCB0aGUgcHJvcGVyCnVuaW9uL2ludGVyc2VjdGlvbiBvZiB0aGUgcmV0aW5hL3ggZXhwcmVzc2lvbiB2YWx1ZXMKCkluIHRoZSBwcmV2aW91cyBibG9jaywgd2UgYXJlIG1ha2luZyAyIGdsb2JhbCBjb21wYXJpc29ucywgaGVyZSBpcyBvbmUKb2YgdGhlbToKCihwMTVoZXRzY24vcDE1aGV0cmV0KS8ocDA4aGV0c2NuL3AwOGhldHJldCkKCkkgdGhlcmVmb3JlIHdhbnQgdG8gZXh0cmFjdCB0aGUgbW9zdCBsb2dpY2FsIHNldCBvZiBnZW5lcyBoaWdoZXIgaW4Kc29tZS9hbGwgb2YgdGhlc2UgY29uZGl0aW9ucyB3aXRoIHJlc3BlY3QgdG8gdGhlIGNvcnJlc3BvbmRpbmcgd3QKY29uZGl0aW9ucy4gIFByZXZpb3VzbHksIGluIHNlY3Rpb24gJ0V4dHJhY3QgZ2VuZXMgaW5jbHVkZWQgZm9yIGVhY2gKc2V0IG9mIGNvbnRyYXN0cycsIEkgYXR0ZW1wdGVkIHRvIHBlcmZvcm0gdGhpcyBvcGVyYXRpb24gZm9yIDIKc3BlY2lmaWMgd3QgY29uZGl0aW9ucy4gIFdoZW4gdGhpcyB3YXMgcGVyZm9ybWVkLCBpdCB0b29rIHRoZQp1bmlxdWUodW5pb24pIG9mIHRoZSB0d28gc2V0cy4gIFRodXMgaXQgc3RhbmRzIHRvIHJlYXNvbiB0aGF0IEkgd2FudAp0byB0YWtlIHRoZSB1bmlxdWUodW5pb24pIG9mIGFsbCA0IGluIHRoaXMgaW5zdGFuY2U/ICBlLmcuOgoKKHAxNWhldHNjbiA+IHAxNXd0c2NuKSB8IChwMTVoZXRyZXQgPiBwMTV3dHJldCkgfAogIChwMDhoZXRzY24gPiBwMDh3dHNjbikgfCAocDA4aGV0cmV0ID4gcDA4d3RyZXQpCgpJIGtpbmQgb2YgdGhpbmsgaXQgc2hvdWxkIGJlOgoKKChwMTVoZXRzY24gPiBwMTV3dHNjbikgfCAocDE1aGV0cmV0ID4gcDE1d3RyZXQpKSAmCiAgKChwMDhoZXRzY24gPiBwMDh3dHNjbikgfCAocDA4aGV0cmV0ID4gcDA4d3RyZXQpKQoKZ3Jvc3MsIHBlcmhhcHMgSSBzaG91bGQganVzdCBkbyB0aGlzIG1hbnVhbGx5LCBnaXZlbiB0aGF0IHRoZXJlIGFyZQpvbmx5IGEgZmV3IHB1dGF0aXZlIHRyYW5zbGF0b21lcyB0byBxdWVyeT8KCiMgUXVpY2sgYW5kIGRpcnR5IERFU2VxMiBjb250cmFzdCBvZiBjb250cmFzdHMKCkluIGEgZmFzaGlvbiBzaW1pbGFyIHRvIGhvdyBIZWN0b3IgaGFuZGxlZCB0aGUgZWZmZWN0IG9mIHBoYWdvY3l0b3Npcwp3aXRoIExhdXJhIGFuZCBOYWppYiBhIGxvbmcgdGltZSBhZ28sIEkgcHJvcG9zZSB0byBkbyBhIHNpbXBsZQpzdWJ0cmFjdGlvbiBvZiB0aGUgcmVzdWx0cyBvZiBvdXIgdHdvIGNvbnRyYXN0cyB3aGljaCBjb21wcmlzZSB0aGUKdHJhbnNsYXRvbWUgcXVlcnkgKEkgd2FzIHRoaW5raW5nIGFib3V0IHRoaXMgbGFzdCB3ZWVrLCB0aHVzIHRoZQppbmNsdXNpb24gb2YgdGhlbSBpbiB0aGUgZGUgdGFibGVzIGFib3ZlKS4gIFNpbWlsYXJseSB0byB0aGUKcGhhZ29jeXRvc2lzIGVmZmVjdCwgSSB3aWxsIHNpbXBseSB0YWtlIHRoZSB3b3JzdCBwb3NpYmxlIGFkanVzdGVkCnAtdmFsdWUuICBJIHdpbGwgcmVwZWF0IHRoaXMgd2l0aCBsaW1tYS9FZGdlUiBhbmQgc2VlIGhvdyBzaW1pbGFyIHRoZQpmaW5hbCByZXN1bHRzIGFyZSB0byB3aGF0IHRob3NlIG1ldGhvZHMgcHJvdmlkZSBpbiB0aGUgKGEvYikvKGMvZCkKY29tcGFyaXNvbnMuICBJIGFtIHJlYXNvbmFibHkgY2VydGFpbiB0aGF0IERFU2VxMidzIHJlc3VsdHMoKSBmdW5jdGlvbgpoYXMgdGhlIGFiaWxpdHkgdG8gcGVyZm9ybSB0aGVzZSBvZGQgY29udHJhc3RzLCBidXQgSSBoYXZlIG5ldmVyCmZpZ3VyZWQgb3V0IGhvdzsgcGVyaGFwcyBJIHdpbGwgdXNlIHRoaXMgYXMgYSBjaGFuY2UgdG8gcmV2aXNpdCB0aGF0Li4uCgpMZXQgdXMgdGVzdCB0aGlzIGlkZWEgd2l0aCB0aGUgcDA4IGRsZ24gcXVlcnksIHdoaWNoIHNlZWtzIHRvIGNvbXBhcmU6CgoocDA4X2hldF9kbGduIC8gcDA4X2hldF9yZXRpbmEpIC8gKHAwOF9rb19kbGduIC8gcDA4X2tvX3JldGluYSkKClRoZXNlIGFyZSBtYWludGFpbmVkIGluIHRoZSBkZV90YWJsZSB3aXRoIHRoZSBuYW1lcwoncDA4X2hldF9kbGduX3ZzX3JldGluYScgYW5kICdwMDhfa29fZGxnbl92c19yZXRpbmEnCgojIyBwMDggZGxnbiBoZXQgdnMga28KCmBgYHtyfQpwMDhfZGxnbl9jb21iaW5lZF9kZXNlcSA8LSBzdWJ0cmFjdF9kZXNlcV9yZXN1bHRzKAogIGZpcnN0X3RhYmxlID0gcDA4X2RsZ25fY29tYmluZWRfdGVzdFtbImRhdGEiXV1bWyJwMDhfaGV0X2RsZ25fdnNfcmV0aW5hIl1dLAogIHNlY29uZF90YWJsZSA9IHAwOF9kbGduX2NvbWJpbmVkX3Rlc3RbWyJkYXRhIl1dW1sicDA4X2tvX2RsZ25fdnNfcmV0aW5hIl1dLAogIGZpcnN0X2xmYyA9ICJkZXNlcV9sb2dmYyIsIHNlY29uZF9sZmMgPSAiZGVzZXFfbG9nZmMiLAogIGZpcnN0X3AgPSAiZGVzZXFfYWRqcCIsIHNlY29uZF9wID0gImRlc2VxX2FkanAiLAogIGZpcnN0X25hbWUgPSAiaGV0Iiwgc2Vjb25kX25hbWUgPSAia28iLAogIGV4Y2VsID0gZ2x1ZSgiMzR0cmFuc2xhdG9tZV9kZXNlcXN1Yl94bHN4X3R4L3RyYW5zbGF0b21lX3AwOF9kbGduX2NvbWJpbmVkX2Rlc2VxLXZ7dmVyfS54bHN4IikpCmBgYAoKU2VlIGhvdyBzaW1pbGFyIHRoZXNlIHJlc3VsdHMgYXJlIHRvIHRob3NlIG9idGFpbmVkIGZyb20gbGltbWEvZWRnZXIuCgpgYGB7cn0KdGVzdF9jb2x1bW5zIDwtIGMoImVkZ2VyX2xvZ2ZjIiwgImxpbW1hX2xvZ2ZjIiwgImVkZ2VyX2FkanAiLCAibGltbWFfYWRqcCIpCnRlc3RfZGYgPC0gcDA4X2RsZ25fY29tYmluZWRfdGVzdFtbImRhdGEiXV1bWyJwMDhfZGxnbl90cmFuc2xhdG9tZSJdXVssIHRlc3RfY29sdW1uc10KdGVzdF9kZiA8LSBtZXJnZSh0ZXN0X2RmLCBwMDhfZGxnbl9jb21iaW5lZF9kZXNlcSwgYnkgPSAicm93Lm5hbWVzIikKcm93bmFtZXModGVzdF9kZikgPC0gdGVzdF9kZltbIlJvdy5uYW1lcyJdXQp0ZXN0X2RmW1siUm93Lm5hbWVzIl1dIDwtIE5VTEwKY29yLnRlc3QodGVzdF9kZltbImxpbW1hX2xvZ2ZjIl1dLCB0ZXN0X2RmW1siaGV0X3ZzX2tvX2xvZ2ZjIl1dKQpjb3IudGVzdCh0ZXN0X2RmW1siZWRnZXJfbG9nZmMiXV0sIHRlc3RfZGZbWyJoZXRfdnNfa29fbG9nZmMiXV0pCnR0IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIodGVzdF9kZlssIGMoImxpbW1hX2xvZ2ZjIiwgImhldF92c19rb19sb2dmYyIpXSkKdHRbWyJzY2F0dGVyIl1dCnR0IDwtIHBsb3RfbGluZWFyX3NjYXR0ZXIodGVzdF9kZlssIGMoImVkZ2VyX2FkanAiLCAiaGV0X3ZzX2tvX3AiKV0pCnR0W1sic2NhdHRlciJdXQojIyBTbywgdXNpbmcgdGhlIG1heGltdW0gcC12YWx1ZSBpcyBhIGNvbXBsZXRlIGZhaWx1cmU7IGJ1dCB0aGUgZXh0cmVtZSBzaW1pbGFyaXRpZXMKIyMgYmV0d2VlbiB0aGlzIGFuZCBlZGdlUiBzdWdnZXN0IHRvIG1lIHRoYXQgaXQgaXMgbGlrZWx5IHBvc3NpYmxlIHRvIHVzZSB0aGUgcmVzdWx0cwojIyBmcm9tIGVkZ2VSIHdpdGhvdXQgY29uY2VybiAob3IgbGltbWEgZm9yIHRoYXQgbWF0dGVyLCBpdCB3YXMgYWxzbyBleHRyZW1lbHkgc2ltaWxhcikKIyMgT3IgSSBjYW4gc3BlbmQgYSBsaXR0bGUgdGltZSBhbmQgY29sbGVjdCB0aGUgbnVtYmVycyBvbiBlYWNoIHNpZGUgb2YgdGhlIGRpdmlzaW9uCiMjIGFuZCBjYWxjdWxhdGUgYSB0IHN0YXRpc3RpYyBteXNlbGYuCmBgYAoKIyBOb24tU3BlY2lmaWMgZmlsdGVyaW5nIG9mIHRoZSB0cmFuc2xhdG9tZSBkYXRhCgpJIGhhdmUgb24gaGFuZAoKKiBwMDhoZXRfdnNfcDA4a28gOiAocDA4X2hldF9zY24gLSBwMDhfaGV0X3JldGluYSkgLSAocDA4X2tvX3NjbiAtIHAwOF9rb19yZXRpbmEpCiogcDE1aGV0X3ZzX3AxNWtvIDogKHAxNV9oZXRfc2NuIC0gcDE1X2hldF9yZXRpbmEpIC0gKHAxNV9rb19zY24gLSBwMTVfa29fcmV0aW5hKQoqIHAwOGhldF92c19wMDhrbyA6IChwMDhfaGV0X2RsZ24gLSBwMDhfaGV0X3JldGluYSkgLSAocDA4X2tvX2RsZ24gLSBwMDhfa29fcmV0aW5hKQoqIHAxNWhldF92c19wMDhoZXQgOiAocDE1X2hldF9zY24gLSBwMTVfaGV0X3JldGluYSkgLSAocDA4X2hldF9zY24gLSBwMDhfaGV0X3JldGluYSkKKiBwMTVrb192c19wMDhrbyA6IChwMTVfa29fc2NuIC0gcDE1X2tvX3JldGluYSkgLSAocDA4X2tvX3NjbiAtIHAwOF9rb19yZXRpbmEpCgpJIGhhdmUgZ2VuZSBzZXRzIHVwIGFib3ZlIHdoaWNoIGRlZmluZSB0aGUgZ2VuZXMgc3VpdGFibGUgZm9yIGVhY2ggb2YKdGhlc2UgcGllY2VzLiAgVGhlcmUgYXJlIG9ubHkgNSBjb21wYXJpc29ucywgbGV0IHVzIHN0ZXAgdGhyb3VnaCB0aGVtLgoKIyMgU0NOIHRyYW5zbGF0b21lIGhldC9rbyBhdCBwMDgKClRoZSBkYXRhIGZvciB0aGlzIGNvbnRyYXN0IHJlc2lkZXMgaW4Kc2NuX2NvbWJpbmVkX3Rlc3QkZGF0YSRwMDhfc2NuX3RyYW5zbGF0b21lIG9yIHRoZSBzYW1lIHNsb3Qgb2YKc2NuX2NvbWJpbmVkX3Rlc3Rfc3ZhCgoqIHAwOF9oZXRfc2NuIC0gcDA4X2hldF9yZXRpbmEpIC0gKHAwOF9rb19zY24gLSBwMDhfa29fcmV0aW5hKQoKVGh1cywgdGhlIGluY2x1c2lvbl9zaWcgcG9ydGlvbnMgdG8gZXh0cmFjdCBhcmUgZm91bmQgaW46CmluY2x1c2lvbl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXSwgYW5kIGFyZSBuYW1lZCBleGFjdGx5IGFzIHdyaXR0ZW4gYWJvdmUhCgpgYGB7cn0KcDA4X2hldF92c19rb190cmFuc2xhdG9tZV91bmZpbHQgPC0gc2NuX2NvbWJpbmVkX3Rlc3RbWyJkYXRhIl1dW1sicDA4X3Njbl90cmFuc2xhdG9tZSJdXQpudW1fdW5pb24gPC0gdW5pcXVlKGMocm93bmFtZXMoaW5jbHVzaW9uX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1sicDA4X2hldF9zY24iXV0pLAogICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXMoaW5jbHVzaW9uX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1sicDA4X2hldF9yZXRpbmEiXV0pKSkKbGVuZ3RoKG51bV91bmlvbikKZGVuX3VuaW9uIDwtIHVuaXF1ZShjKHJvd25hbWVzKGluY2x1c2lvbl9zaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbInAwOF9rb19zY24iXV0pLAogICAgICAgICAgICAgICAgICAgICAgcm93bmFtZXMoaW5jbHVzaW9uX3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1sicDA4X2tvX3JldGluYSJdXSkpKQpsZW5ndGgoZGVuX3VuaW9uKQpib3RoX3VuaW9uIDwtIHVuaXF1ZShjKG51bV91bmlvbiwgZGVuX3VuaW9uKSkKbGVuZ3RoKGJvdGhfdW5pb24pCmJvdGhfaW50ZXJfaWR4IDwtIG51bV91bmlvbiAlaW4lIGRlbl91bmlvbgpib3RoX2ludGVyIDwtIG51bV91bmlvbltib3RoX2ludGVyX2lkeF0KbGVuZ3RoKGJvdGhfaW50ZXIpCmtlZXBlciA8LSBsaXN0KCJwMDhfc2NuX3RyYW5zbGF0b21lIiA9IGMoInAwOGhldCIsICJwMDhrbyIpKQpwMDhfc2NuX3RyYW5zbGF0b21lX3VuaW9uX2ZpbHRlcmVkIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHNjbl90cmFuc2xhdG9tZV9kZSwga2VlcGVycyA9IGtlZXBlciwKICBsYWJlbF9jb2x1bW4gPSBsYWJlbF9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCIzNXRyYW5zbGF0b21lX3VuaW9uX3R4L3AwOF9zY25fdHJhbnNsYXRvbWVfdW5pb25fZmlsdGVyZWRfbm9zdmEtdnt2ZXJ9Lnhsc3giKSwKICB3YW50ZWRfZ2VuZXMgPSBib3RoX3VuaW9uKQpwMDhfc2NuX3RyYW5zbGF0b21lX2ludGVyX2ZpbHRlcmVkIDwtIGNvbWJpbmVfZGVfdGFibGVzKAogIHNjbl90cmFuc2xhdG9tZV9kZSwga2VlcGVycyA9IGtlZXBlciwKICBsYWJlbF9jb2x1bW4gPSBsYWJlbF9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCIzNXRyYW5zbGF0b21lX3VuaW9uX3R4L3AwOF9zY25fdHJhbnNsYXRvbWVfaW50ZXJzZWN0X2ZpbHRlcmVkX25vc3ZhLXZ7dmVyfS54bHN4IiksCiAgd2FudGVkX2dlbmVzID0gYm90aF9pbnRlcikKcDA4X3Njbl90cmFuc2xhdG9tZV91bmlvbl9maWx0ZXJlZF9zdmEgPC0gY29tYmluZV9kZV90YWJsZXMoCiAgc2NuX3RyYW5zbGF0b21lX2RlX3N2YSwga2VlcGVycyA9IGtlZXBlciwKICBsYWJlbF9jb2x1bW4gPSBsYWJlbF9jb2x1bW4sCiAgZXhjZWwgPSBnbHVlKCIzNXRyYW5zbGF0b21lX3VuaW9uX3R4L3AwOF9zY25fdHJhbnNsYXRvbWVfdW5pb25fZmlsdGVyZWRfc3ZhLXZ7dmVyfS54bHN4IiksCiAgd2FudGVkX2dlbmVzID0gYm90aF91bmlvbikKcDA4X3Njbl90cmFuc2xhdG9tZV91bmlvbl9maWx0ZXJlZCA8LSBjb21iaW5lX2RlX3RhYmxlcygKICBzY25fdHJhbnNsYXRvbWVfZGUsIGtlZXBlcnMgPSBrZWVwZXIsCiAgbGFiZWxfY29sdW1uID0gbGFiZWxfY29sdW1uLAogIGV4Y2VsID0gZ2x1ZSgiMzV0cmFuc2xhdG9tZV91bmlvbl90eC9wMDhfc2NuX3RyYW5zbGF0b21lX2ludGVyc2VjdF9maWx0ZXJlZF9zdmEtdnt2ZXJ9Lnhsc3giKSwKICB3YW50ZWRfZ2VuZXMgPSBib3RoX2ludGVyKQpgYGAKCiMgVmVubi9VcFNldCBvZiBSZXRpbmEsIFNDTiwgYW5kIGRMR04gREUgR2VuZXMKCkhlcmUgaXMgYSBzbmlwcGV0IGZyb20gUmFzaG1pIHdoaWNoIGV4cHJlc3NlcyBuaWNlbHkgdGhlIERFLXJlc3VsdApjb21wYXJpc29ucyBzaGUgaXMgbW9zdCBpbnRlcmVzdGVkOgoKU2luY2UsIEkgd2FudCB0byBrbm93IHRoZSBudW1iZXIgb2YgREVHIGV4cHJlc3NlZCBpbiBSZXRpbmEsIFNDTiBhbmQKZExHTiB3aXRoIHJlc3BlY3QgdG8gZ2Vub3R5cGUsIExvY2F0aW9uIGFuZCB0aW1lLiBJIHByZXBhcmVkIHRoZSB2ZW5uCmRpYWdyYW0gZm9yIHRoZXNlIGNvbXBhcmlzb246CgoqIEdlbm90eXBlOiBQOCBSZXQgSGV0IHZzIEtPLCBQMTUgUmV0IEhldCB2cyBLTywgUDggU0NOIEhldCB2cyBLTywKICAgICAgICAgICAgUDE1IFNDTiBIZXQgdnMgS08sIFA4IGRMR04gSGV0IHZzIEtPLCBQMTUgZExHTiBIZXQgdnMgS08KKiBMb2NhdGlvbjogUDhfaGV0IFJldCB2cyBTQ04sIFA4X0tPIFJldCB2cyBTQ04sIFAxNV9oZXQgUmV0IHZzIFNDTiwKICAgICAgICAgICAgUDE1X0tPIFJldCB2cyBTQ04sIFA4X2hldCBSZXQgdnMgZExHTiwgUDhfS08gUmV0IHZzIGRMR04sCiAgICAgICAgICAgIFAxNV9oZXQgUmV0IHZzIGRMR04sIFAxNV9LTyBSZXQgdnMgZExHTiwgUDhfaGV0IFNDTiB2cyBkTEdOLAogICAgICAgICAgICBQOF9LTyBTQ04gdnMgZExHTiwgUDE1X2hldCBTQ04gdnMgZExHTiwgUDE1X0tPIFNDTiB2cyBkTEdOLgoKU2luY2UgSSB3YXMgaW50ZXJlc3RlZCBpbiB1bmRlcnN0YW5kaW5nIHRoZSBjaGFuZ2UgaW4gbG9jYWwgdHJhbnNsYXRvbWUKYWNjb3JkaW5nIHRvIExvY2F0aW9uIGZvciBkaWZmZXJlbnQgZGV2ZWxvcG1lbnRhbCB0aW1lIHBvaW50cyBmb3IgSGV0CmFuZCBLTy4gSGVuY2UsIEkgdHJpZWQgdG8gZ2VuZXJhdGUgYSB2ZW5uIGRpYWdyYW0gZm9yIExvY2F0aW9uIChSZXQKYW5kIFNDTikgYXQgZGV2ZWxvcG1lbnRhbCB0aW1lIHBvaW50cyBQOCBhbmQgUDE1IGZvciBnZW5vdHlwZSBoZXQgYW5kCktPLiAgU28gdGhlIHZlbm4gZGlhZ3JhbSAvIHVwc2V0IHBsb3Qgd2lsbCBiZSBmb3IgbG9jYXRpb24gd2hlcmUgc29tZQpnZW5lcyB3aWxsIGJlIHNoYXJlZC91bmlxdWUgZm9yIFA4X1JldF9oZXQsIFA4X1NDTl9IZXQsIFAxNV9SZXRfSEVULApQMTVfU0NOX0hFVC4gIFdlIGNhbiBwcmVwYXJlIGFuIHVwc2V0IHBsb3QgZm9yIFA4X1JldF9LTywKUDhfU0NOX0tPLCBQMTVfUmV0X0tPIGFuZCBQMTVfU0NOX0tPIGFsc28uIE9yIGNhbiBnZW5lcmF0ZSBhbiB1cHNldApwbG90IGJ5IGNvbWJpbmluZyBib3RoIFA4X1JldF9oZXQsIFA4X1NDTl9IZXQsIFAxNV9SZXRfSEVUIGFuZApQMTVfU0NOX0hFVCBhbmQgUDhfUmV0X0tPLCBQOF9TQ05fS08sIFAxNV9SZXRfS08gYW5kIFAxNV9TQ05fS08uCgpPaywgbGV0IHVzIHNlZSBpZiBJIGNhbiBpbXBsZW1lbnQgdGhpcywgc3RhcnRpbmcgd2l0aCB0aGUgZ2Vub3R5cGUgcXVlcnkKCiogR2Vub3R5cGU6IFA4IFJldCBIZXQgdnMgS08sIFAxNSBSZXQgSGV0IHZzIEtPLCBQOCBTQ04gSGV0IHZzIEtPLAogICAgICAgICAgICBQMTUgU0NOIEhldCB2cyBLTywgUDggZExHTiBIZXQgdnMgS08sIFAxNSBkTEdOIEhldCB2cyBLTwoKIyMga28gdnMgaGV0OyBhbGwgbG9jYXRpb25zIGFuZCB0aW1lcwoKYGBge3J9CiMjIFRoZSBhcHByb3ByaWF0ZSBkYXRhIHN0cnVjdHVyZSBpcyAnZ2Vub3R5cGVfdGFibGVzJywKIyMgYW5kIHRoZSB0YWJsZXMgb2YgaW50ZXJlc3QgYXJlOgp0YWJsZV9uYW1lcyA8LSBjKCJraF9wMDhfcmV0aW5hIiwgImtoX3AxNV9yZXRpbmEiLCAia2hfcDA4X3NjbiIsCiAgICAgICAgICAgICAgICAgImtoX3AxNV9zY24iLCAia2hfcDA4X2RsZ24iLCAia2hfcDE1X2RsZ24iKQp0YWJsZV9uYW1lcyAlaW4lIG5hbWVzKGdlbm90eXBlX3NpZykKbmV3c2lnIDwtIGdlbm90eXBlX3NpZ1tbMV1dCmZvciAoc2lnIGluIDI6bGVuZ3RoKHRhYmxlX25hbWVzKSkgewogIG5hbWUgPC0gdGFibGVfbmFtZXNbc2lnXQogIG5ld3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0gPC0gZ2Vub3R5cGVfc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dCiAgbmV3c2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dIDwtIGdlbm90eXBlX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dCn0KZ2Vub3R5cGVfdXBzZXRyIDwtIHVwc2V0cl9zaWcobmV3c2lnKQpnZW5vdHlwZV91cHNldF93cml0dGVuIDwtIHdyaXRlX3Vwc2V0X2dyb3VwcyhnZW5vdHlwZV91cHNldHIsIGV4Y2VsID0gIjM2dXBzZXRfZ2Vub3R5cGVfdHgvZ2Vub3R5cGVfdXBzZXRfZ3JvdXBzLnhsc3giKQpnZW5vdHlwZV91cHNldHJbWyJhbGxfcGxvdCJdXQpwcChmaWxlID0gIjM2dXBzZXRfZ2Vub3R5cGVfdHgvdGVzdF9nZW5vdHlwZV91cHNldC5wZGYiKQpwcmludChnZW5vdHlwZV91cHNldHJbWyJhbGxfcGxvdCJdXSkKcGxvdHRlZCA8LSBkZXYub2ZmKCkKYGBgCgpOb3cgbGV0IHVzIHRyeSB0aGUgbG9jYXRpb24tc3BlY2lmaWMgY29tcGFyaXNvbnMKCiMjIHNjbiB2cyByZXRpbmEsIHAwOAoKYGBge3J9CiMjIFRoZSBhcHByb3ByaWF0ZSBkYXRhIHN0cnVjdHVyZSBpcyAnZ2Vub3R5cGVfdGFibGVzJywKIyMgYW5kIHRoZSB0YWJsZXMgb2YgaW50ZXJlc3QgYXJlOgp0YWJsZV9uYW1lcyA8LSBjKCJzcl9wMDhfaGV0IiwgInNyX3AwOF9rbyIpCnRhYmxlX25hbWVzICVpbiUgbmFtZXMobG9jYXRpb25fc2lnKQpsb2NhdGlvbl91cHNldF9pbnB1dCA8LSBsaXN0KCkKZmlyc3RfdGFibGUgPC0gdGFibGVfbmFtZXNbMV0KbmV3c2lnIDwtIGxvY2F0aW9uX3NpZ1tbZmlyc3RfdGFibGVdXQpmb3IgKHNpZyBpbiAyOmxlbmd0aCh0YWJsZV9uYW1lcykpIHsKICBuYW1lIDwtIHRhYmxlX25hbWVzW3NpZ10KICBuZXdzaWdbWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dIDwtIGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJ1cHMiXV1bW25hbWVdXQogIG5ld3NpZ1tbImRlc2VxIl1dW1siZG93bnMiXV1bW25hbWVdXSA8LSBsb2NhdGlvbl9zaWdbW25hbWVdXVtbImRlc2VxIl1dW1siZG93bnMiXV1bW25hbWVdXQp9CmxvY2F0aW9uX3Vwc2V0ciA8LSB1cHNldHJfc2lnKG5ld3NpZykKbG9jYXRpb25fdXBzZXRfd3JpdHRlbiA8LSB3cml0ZV91cHNldF9ncm91cHMobG9jYXRpb25fdXBzZXRyLCBleGNlbCA9ICIzNnVwc2V0X2dlbm90eXBlX3R4L3NyX3AwOF9oZXRrb191cHNldF9ncm91cHMueGxzeCIpCmxvY2F0aW9uX3Vwc2V0cltbImFsbF9wbG90Il1dCnBwKGZpbGUgPSAiMzZ1cHNldF9nZW5vdHlwZV90eC90ZXN0X2xvY2F0aW9uX3NyX3AwOF9oZXRrb191cHNldC5wZGYiKQpwcmludChsb2NhdGlvbl91cHNldHJbWyJhbGxfcGxvdCJdXSkKcGxvdHRlZCA8LSBkZXYub2ZmKCkKYGBgCgpJIGFtIHJlYXNvbmFibHkgY2VydGFpbiB0aGF0IFJhc2htaSB3b3VsZCBsaWtlIGEgdGFibGUgb2YgdGhlIGdlbmVzCnNoYXJlZCBhbW9uZyBpbmNyZWFzZWQgc2NuIGtvIGFuZCBoZXQgaW4gdGhlIGFib3ZlIHBsb3QgYWxvbmcgd2l0aCB0aGUKaW5jcmVhc2VkIHJldGluYSAoZS5nLiB0aGUgMjY5IGFuZCAxMDMgZ2VuZSBzZXRzKS4KCiMjIHNjbiB2cyByZXRpbmEsIHAxNQoKYGBge3J9CnRhYmxlX25hbWVzIDwtIGMoInNyX3AxNV9oZXQiLCAic3JfcDE1X2tvIikKdGFibGVfbmFtZXMgJWluJSBuYW1lcyhsb2NhdGlvbl9zaWcpCmxvY2F0aW9uX3Vwc2V0X2lucHV0IDwtIGxpc3QoKQpmaXJzdF90YWJsZSA8LSB0YWJsZV9uYW1lc1sxXQpuZXdzaWcgPC0gbG9jYXRpb25fc2lnW1tmaXJzdF90YWJsZV1dCmZvciAoc2lnIGluIDI6bGVuZ3RoKHRhYmxlX25hbWVzKSkgewogIG5hbWUgPC0gdGFibGVfbmFtZXNbc2lnXQogIG5ld3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0gPC0gbG9jYXRpb25fc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dCiAgbmV3c2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dIDwtIGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dCn0KbG9jYXRpb25fdXBzZXRyIDwtIHVwc2V0cl9zaWcobmV3c2lnKQpsb2NhdGlvbl91cHNldF93cml0dGVuIDwtIHdyaXRlX3Vwc2V0X2dyb3Vwcyhsb2NhdGlvbl91cHNldHIsIGV4Y2VsID0gIjM2dXBzZXRfZ2Vub3R5cGVfdHgvc3JfcDE1X2hldGtvX3Vwc2V0X2dyb3Vwcy54bHN4IikKbG9jYXRpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0KcHJpbnQoc2NuX3JldGluYV9wMTVfdXBzZXRfcmVzdWx0KQpwcChmaWxlID0gIjM2dXBzZXRfZ2Vub3R5cGVfdHgvdGVzdF9sb2NhdGlvbl9zcl9wMTVfaGV0a29fdXBzZXQucGRmIikKcHJpbnQobG9jYXRpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0pCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmBgYAoKIyMgZGxnbiB2cyByZXRpbmEsIHAwOAoKYGBge3J9CiMjIFRoZSBhcHByb3ByaWF0ZSBkYXRhIHN0cnVjdHVyZSBpcyAnZ2Vub3R5cGVfdGFibGVzJywKIyMgYW5kIHRoZSB0YWJsZXMgb2YgaW50ZXJlc3QgYXJlOgp0YWJsZV9uYW1lcyA8LSBjKCJkcl9wMDhfaGV0IiwgImRyX3AwOF9rbyIpCmxvY2F0aW9uX3Vwc2V0X2lucHV0IDwtIGxpc3QoKQpmaXJzdF90YWJsZSA8LSB0YWJsZV9uYW1lc1sxXQpuZXdzaWcgPC0gbG9jYXRpb25fc2lnW1tmaXJzdF90YWJsZV1dCmZvciAoc2lnIGluIDI6bGVuZ3RoKHRhYmxlX25hbWVzKSkgewogIG5hbWUgPC0gdGFibGVfbmFtZXNbc2lnXQogIG5ld3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0gPC0gbG9jYXRpb25fc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dCiAgbmV3c2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dIDwtIGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dCn0KbG9jYXRpb25fdXBzZXRyIDwtIHVwc2V0cl9zaWcobmV3c2lnKQpsb2NhdGlvbl91cHNldF93cml0dGVuIDwtIHdyaXRlX3Vwc2V0X2dyb3Vwcyhsb2NhdGlvbl91cHNldHIsIGV4Y2VsID0gIjN1cHNldF9nZW5vdHlwZV90eC9kcl9wMDhfaGV0a29fdXBzZXRfZ3JvdXBzLnhsc3giKQpsb2NhdGlvbl91cHNldHJbWyJhbGxfcGxvdCJdXQpwcChmaWxlID0gIjM2dXBzZXRfZ2Vub3R5cGVfdHgvdGVzdF9sb2NhdGlvbl9kcl9wMDhfaGV0a29fdXBzZXQucGRmIikKcHJpbnQobG9jYXRpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0pCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmBgYAoKIyMgZGxnbiB2cyByZXRpbmEsIHAxNQoKYGBge3J9CiMjIFRoZSBhcHByb3ByaWF0ZSBkYXRhIHN0cnVjdHVyZSBpcyAnZ2Vub3R5cGVfdGFibGVzJywKIyMgYW5kIHRoZSB0YWJsZXMgb2YgaW50ZXJlc3QgYXJlOgp0YWJsZV9uYW1lcyA8LSBjKCJkcl9wMTVfaGV0IiwgImRyX3AxNV9rbyIpCmxvY2F0aW9uX3Vwc2V0X2lucHV0IDwtIGxpc3QoKQpmaXJzdF90YWJsZSA8LSB0YWJsZV9uYW1lc1sxXQpuZXdzaWcgPC0gbG9jYXRpb25fc2lnW1tmaXJzdF90YWJsZV1dCmZvciAoc2lnIGluIDI6bGVuZ3RoKHRhYmxlX25hbWVzKSkgewogIG5hbWUgPC0gdGFibGVfbmFtZXNbc2lnXQogIG5ld3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0gPC0gbG9jYXRpb25fc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dCiAgbmV3c2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dIDwtIGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dCn0KbG9jYXRpb25fdXBzZXRyIDwtIHVwc2V0cl9zaWcobmV3c2lnKQpsb2NhdGlvbl91cHNldF93cml0dGVuIDwtIHdyaXRlX3Vwc2V0X2dyb3Vwcyhsb2NhdGlvbl91cHNldHIsIGV4Y2VsID0gIjM3dXBzZXRfbG9jYXRpb25fdHgvZHJfcDE1X2hldGtvX3Vwc2V0X2dyb3Vwcy54bHN4IikKbG9jYXRpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0KcHAoZmlsZSA9ICIzN3Vwc2V0X2xvY2F0aW9uX3R4L3Rlc3RfbG9jYXRpb25fZHJfcDE1X2hldGtvX3Vwc2V0LnBkZiIpCnByaW50KGxvY2F0aW9uX3Vwc2V0cltbImFsbF9wbG90Il1dKQpwbG90dGVkIDwtIGRldi5vZmYoKQpgYGAKCiMjIGRsZ24gdnMgc2NuLCBwMDgKCmBgYHtyfQp0YWJsZV9uYW1lcyA8LSBjKCJkc19wMDhfaGV0IiwgImRzX3AwOF9rbyIpCmxvY2F0aW9uX3Vwc2V0X2lucHV0IDwtIGxpc3QoKQpmaXJzdF90YWJsZSA8LSB0YWJsZV9uYW1lc1sxXQpuZXdzaWcgPC0gbG9jYXRpb25fc2lnW1tmaXJzdF90YWJsZV1dCmZvciAoc2lnIGluIDI6bGVuZ3RoKHRhYmxlX25hbWVzKSkgewogIG5hbWUgPC0gdGFibGVfbmFtZXNbc2lnXQogIG5ld3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0gPC0gbG9jYXRpb25fc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dCiAgbmV3c2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dIDwtIGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dCn0KbG9jYXRpb25fdXBzZXRyIDwtIHVwc2V0cl9zaWcobmV3c2lnKQpsb2NhdGlvbl91cHNldF93cml0dGVuIDwtIHdyaXRlX3Vwc2V0X2dyb3Vwcyhsb2NhdGlvbl91cHNldHIsIGV4Y2VsID0gIjM3dXBzZXRfbG9jYXRpb25fdHgvZHNfcDA4X2hldGtvX3Vwc2V0X2dyb3Vwcy54bHN4IikKbG9jYXRpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0KcHAoZmlsZSA9ICIzN3Vwc2V0X2xvY2F0aW9uX3R4L3Rlc3RfbG9jYXRpb25fZHNfcDA4X2hldGtvX3Vwc2V0LnBkZiIpCnByaW50KGxvY2F0aW9uX3Vwc2V0cltbImFsbF9wbG90Il1dKQpwbG90dGVkIDwtIGRldi5vZmYoKQpgYGAKCiMjIGRsZ24gdnMgc2NuLCBwMTUKCmBgYHtyfQp0YWJsZV9uYW1lcyA8LSBjKCJkc19wMTVfaGV0IiwgImRzX3AxNV9rbyIpCmxvY2F0aW9uX3Vwc2V0X2lucHV0IDwtIGxpc3QoKQpmaXJzdF90YWJsZSA8LSB0YWJsZV9uYW1lc1sxXQpuZXdzaWcgPC0gbG9jYXRpb25fc2lnW1tmaXJzdF90YWJsZV1dCmZvciAoc2lnIGluIDI6bGVuZ3RoKHRhYmxlX25hbWVzKSkgewogIG5hbWUgPC0gdGFibGVfbmFtZXNbc2lnXQogIG5ld3NpZ1tbImRlc2VxIl1dW1sidXBzIl1dW1tuYW1lXV0gPC0gbG9jYXRpb25fc2lnW1tuYW1lXV1bWyJkZXNlcSJdXVtbInVwcyJdXVtbbmFtZV1dCiAgbmV3c2lnW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dIDwtIGxvY2F0aW9uX3NpZ1tbbmFtZV1dW1siZGVzZXEiXV1bWyJkb3ducyJdXVtbbmFtZV1dCn0KbG9jYXRpb25fdXBzZXRyIDwtIHVwc2V0cl9zaWcobmV3c2lnKQpsb2NhdGlvbl91cHNldF93cml0dGVuIDwtIHdyaXRlX3Vwc2V0X2dyb3Vwcyhsb2NhdGlvbl91cHNldHIsIGV4Y2VsID0gIjM3dXBzZXRfbG9jYXRpb25fdHgvZHNfcDE1X2hldGtvX3Vwc2V0X2dyb3Vwcy54bHN4IikKbG9jYXRpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0KcHAoZmlsZSA9ICIzN3Vwc2V0X2xvY2F0aW9uX3R4L3Rlc3RfbG9jYXRpb25fZHNfcDE1X2hldGtvX3Vwc2V0LnBkZiIpCnByaW50KGxvY2F0aW9uX3Vwc2V0cltbImFsbF9wbG90Il1dKQpwbG90dGVkIDwtIGRldi5vZmYoKQpgYGAKCiMgU2hhcmVkIGFuZCB1bmlxdWUgZ2VuZSBzZXRzIGFjcm9zcyB4L3d0CgpJbiB0aGlzIGJsb2NrIEkgd2FudCB0byBmaW5kIHRoZSB1bmlxdWUgYW5kIHNoYXJlZCBnZW5lcyBiZXR3ZWVuOgoKMS4gIHNjbiBwOCBoZXQvd3QgYW5kIHJldGluYSBwOCBoZXQvd3Q6IGh3cDA4c2NuaW5jLCBod3AwOHJldGluYywgaHdwMDhzY25kZWMsIGh3cDA4cmV0ZGVjCjIuICBzY24gcDE1IGhldC93dCBhbmQgcmV0aW5hIHAxNSBoZXQvd3Q6IGh3cDE1c2NuaW5jLCBod3AxNXJldGluYywgaHdwMTVzY25kZWMsIGh3cDE1cmV0ZGVjCjMuICAjMSBhbmQgIzIgdG9nZXRoZXI6ICA4IGNhdGdvcmllcyBhYm92ZQo0LiAgc2NuIHA4IGtvL3d0IGFuZCByZXRpbmEgcDgga28vd3QKNS4gIHNjbiBwMTUga28vd3QgYW5kIHJldGluYSBwMTUga28vd3QKNi4gICM0IGFuZCAjNSB0b2dldGhlcgoKVGhlIGNvbXBhcmlzb25zIG9mIGhldC93dCBhcmUgZm91bmQgaW4gdGhlICdpbmNsdXNpb25fc2lnJyBkYXRhc2V0OwpiZWNhdXNlIHRoZXkgYXJlIHByb3ZpZGluZyBvdXIgY3V0b2ZmcyBmb3Igbm9uc3BlY2lmaWMgYmluZGluZy4KCiMjIE51bWJlciAxIGFib3ZlOiBwMDhfaGV0IHZzIHd0IGZvciBzY24gYW5kIHJldGluYS4KCmBgYHtyfQp0YWJsZV9uYW1lcyA8LSBjKCJwMDhfaGV0X3NjbiIsICJwMDhfaGV0X3JldGluYSIpCmluY2x1c2lvbl91cHNldHIgPC0gdXBzZXRyX3NpZyhpbmNsdXNpb25fc2lnLCBjb250cmFzdHMgPSB0YWJsZV9uYW1lcykKaW5jbHVzaW9uX3Vwc2V0X3dyaXR0ZW4gPC0gd3JpdGVfdXBzZXRfZ3JvdXBzKGluY2x1c2lvbl91cHNldHIsIGV4Y2VsID0gIjM3dXBzZXRfbG9jYXRpb25zX3R4L3JzX3AwOF9oZXRfaW5jbHVzaW9uX3Vwc2V0X2dyb3Vwcy54bHN4IikKaW5jbHVzaW9uX3Vwc2V0cltbImFsbF9wbG90Il1dCnBwKGZpbGUgPSAiMzd1cHNldF9sb2NhdGlvbnNfdHgvaW5jbHVzaW9uX3NyX3AwOF91cHNldC5wZGYiKQpwcmludChpbmNsdXNpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0pCnBsb3R0ZWQgPC0gZGV2Lm9mZigpCmBgYAoKIyMgTnVtYmVyIDIgYWJvdmU6IHAxNV9oZXQgdnMgd3QgZm9yIHNjbiBhbmQgcmV0aW5hLgoKYGBge3J9CnRhYmxlX25hbWVzIDwtIGMoInAxNV9oZXRfc2NuIiwgInAxNV9oZXRfcmV0aW5hIikKaW5jbHVzaW9uX3Vwc2V0ciA8LSB1cHNldHJfc2lnKGluY2x1c2lvbl9zaWcsIGNvbnRyYXN0cyA9IHRhYmxlX25hbWVzKQppbmNsdXNpb25fdXBzZXRfd3JpdHRlbiA8LSB3cml0ZV91cHNldF9ncm91cHMoaW5jbHVzaW9uX3Vwc2V0ciwgZXhjZWwgPSAiMzd1cHNldF9sb2NhdGlvbnNfdHgvcnNfcDE1X2hldF9pbmNsdXNpb25fdXBzZXRfZ3JvdXBzLnhsc3giKQppbmNsdXNpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0KcHAoZmlsZSA9ICIzN3Vwc2V0X2xvY2F0aW9uc190eC9pbmNsdXNpb25fc3JfcDE1X3Vwc2V0LnBkZiIpCnByaW50KGluY2x1c2lvbl91cHNldHJbWyJhbGxfcGxvdCJdXSkKcGxvdHRlZCA8LSBkZXYub2ZmKCkKYGBgCgojIyBOdW1iZXIgMyBhYm92ZTogY29tYmluYXRpb24gb2YgIzEgYW5kICMyCgpgYGB7cn0KdGFibGVfbmFtZXMgPC0gYygicDA4X2hldF9zY24iLCAicDA4X2hldF9yZXRpbmEiLCAicDE1X2hldF9zY24iLCAicDE1X2hldF9yZXRpbmEiKQppbmNsdXNpb25fdXBzZXRyIDwtIHVwc2V0cl9zaWcoaW5jbHVzaW9uX3NpZywgY29udHJhc3RzID0gdGFibGVfbmFtZXMpCmluY2x1c2lvbl91cHNldF93cml0dGVuIDwtIHdyaXRlX3Vwc2V0X2dyb3VwcyhpbmNsdXNpb25fdXBzZXRyLCBleGNlbCA9ICIzN3Vwc2V0X2xvY2F0aW9uc190eC9yc19wMDhwMTVfaGV0X2luY2x1c2lvbl91cHNldF9ncm91cHMueGxzeCIpCmluY2x1c2lvbl91cHNldHJbWyJhbGxfcGxvdCJdXQpwcChmaWxlID0gIjM3dXBzZXRfbG9jYXRpb25zX3R4L2luY2x1c2lvbl9zcl9wMDhwMTVfdXBzZXQucGRmIikKcHJpbnQoaW5jbHVzaW9uX3Vwc2V0cltbImFsbF9wbG90Il1dKQpwbG90dGVkIDwtIGRldi5vZmYoKQpgYGAKCiMjIE51bWJlciA0IGFib3ZlIHAwOF9rbyB2cyB3dCBmb3Igc2NuIGFuZCByZXRpbmEuCgpgYGB7cn0KdGFibGVfbmFtZXMgPC0gYygicDA4X2tvX3NjbiIsICJwMDhfa29fcmV0aW5hIikKaW5jbHVzaW9uX3Vwc2V0ciA8LSB1cHNldHJfc2lnKGluY2x1c2lvbl9zaWcsIGNvbnRyYXN0cyA9IHRhYmxlX25hbWVzKQppbmNsdXNpb25fdXBzZXRfd3JpdHRlbiA8LSB3cml0ZV91cHNldF9ncm91cHMoaW5jbHVzaW9uX3Vwc2V0ciwgZXhjZWwgPSAiMzd1cHNldF9sb2NhdGlvbnNfdHgvcnNfcDA4X2tvX2luY2x1c2lvbl91cHNldF9ncm91cHMueGxzeCIpCmluY2x1c2lvbl91cHNldHJbWyJhbGxfcGxvdCJdXQpwcChmaWxlID0gIjM3dXBzZXRfbG9jYXRpb25zX3R4L2luY2x1c2lvbl9zcl9wMDhfa29fdXBzZXQucGRmIikKcHJpbnQoaW5jbHVzaW9uX3Vwc2V0cltbImFsbF9wbG90Il1dKQpwbG90dGVkIDwtIGRldi5vZmYoKQpgYGAKCiMjIE51bWJlciA1IGFib3ZlIHAxNV9rbyB2cyB3dCBmb3Igc2NuIGFuZCByZXRpbmEuCgpgYGB7cn0KdGFibGVfbmFtZXMgPC0gYygicDE1X2tvX3NjbiIsICJwMTVfa29fcmV0aW5hIikKaW5jbHVzaW9uX3Vwc2V0ciA8LSB1cHNldHJfc2lnKGluY2x1c2lvbl9zaWcsIGNvbnRyYXN0cyA9IHRhYmxlX25hbWVzKQppbmNsdXNpb25fdXBzZXRfd3JpdHRlbiA8LSB3cml0ZV91cHNldF9ncm91cHMoaW5jbHVzaW9uX3Vwc2V0ciwgZXhjZWwgPSAiMzd1cHNldF9sb2NhdGlvbnNfdHgvcnNfcDE1X2tvX2luY2x1c2lvbl91cHNldF9ncm91cHMueGxzeCIpCmluY2x1c2lvbl91cHNldHJbWyJhbGxfcGxvdCJdXQpwcChmaWxlID0gIjM3dXBzZXRfbG9jYXRpb25zX3R4L2luY2x1c2lvbl9zcl9wMTVfa29fdXBzZXQucGRmIikKcHJpbnQoaW5jbHVzaW9uX3Vwc2V0cltbImFsbF9wbG90Il1dKQpwbG90dGVkIDwtIGRldi5vZmYoKQpgYGAKCiMjIE51bWJlciA2IGFib3ZlOiBDb21iaW5pbmcgIzQgYW5kICM1CgpgYGB7cn0KdGFibGVfbmFtZXMgPC0gYygicDA4X2tvX3NjbiIsICJwMDhfa29fcmV0aW5hIiwgInAxNV9rb19zY24iLCAicDE1X2tvX3JldGluYSIpCmluY2x1c2lvbl91cHNldHIgPC0gdXBzZXRyX3NpZyhpbmNsdXNpb25fc2lnLCBjb250cmFzdHMgPSB0YWJsZV9uYW1lcykKaW5jbHVzaW9uX3Vwc2V0X3dyaXR0ZW4gPC0gd3JpdGVfdXBzZXRfZ3JvdXBzKGluY2x1c2lvbl91cHNldHIsIGV4Y2VsID0gIjM3dXBzZXRfbG9jYXRpb25zX3R4L3JzX3AwOHAxNV9rb19pbmNsdXNpb25fdXBzZXRfZ3JvdXBzLnhsc3giKQppbmNsdXNpb25fdXBzZXRyW1siYWxsX3Bsb3QiXV0KcHAoZmlsZSA9ICIzN3Vwc2V0X2xvY2F0aW9uc190eC9pbmNsdXNpb25fc3JfcDA4cDE1X2tvX3Vwc2V0LnBkZiIpCnByaW50KGluY2x1c2lvbl91cHNldHJbWyJhbGxfcGxvdCJdXSkKcGxvdHRlZCA8LSBkZXYub2ZmKCkKYGBgCgojIEdTVkEKCmBgYHtyfQptc2lnZGIgPC0gInJlZmVyZW5jZS9tc2lnZGJfdjIwMjQuMS5NbS5kYiIKaWYgKGZpbGUuZXhpc3RzKG1zaWdkYikpIHsKICB0eF9oX2dzdmEgPC0gc2ltcGxlX2dzdmEodHhfcGFpcndpc2VfaW5wdXQsIG9yZ2RiID0gIm9yZy5NbS5lZy5kYiIsIHNpZ25hdHVyZV9jYXRlZ29yeSA9ICJtaCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIHNpZ25hdHVyZXMgPSBtc2lnZGIsIGlkX3NvdXJjZSA9ICJmZGF0YSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgIHJlcXVpcmVkX2lkID0gIm1naV9zeW1ib2wiKQogIHR4X2hfZ3N2YQoKICB0eF9oX2dzdmFfc2lnIDwtIGdldF9zaWdfZ3N2YV9jYXRlZ29yaWVzKAogICAgdHhfaF9nc3ZhLCBleGNlbCA9ICIzOG1zaWdkYl90eC9nc3ZhX3NpZ19oYWxsbWFya19jYXRlZ29yaWVzLnhsc3giKQogIHR4X2hfZ3N2YV9zaWcKCiAgdHhfbTFfZ3N2YSA8LSBzaW1wbGVfZ3N2YSh0eF9wYWlyd2lzZV9pbnB1dCwgb3JnZGIgPSAib3JnLk1tLmVnLmRiIiwgc2lnbmF0dXJlX2NhdGVnb3J5ID0gIm0xIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNpZ25hdHVyZXMgPSBtc2lnZGIsIGlkX3NvdXJjZSA9ICJmZGF0YSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICByZXF1aXJlZF9pZCA9ICJtZ2lfc3ltYm9sIikKICB0eF9tMV9nc3ZhCiAgdHhfbTFfZ3N2YV9zaWcgPC0gZ2V0X3NpZ19nc3ZhX2NhdGVnb3JpZXMoCiAgICB0eF9tMV9nc3ZhLCBleGNlbCA9ICIzOG1zaWdkYl90eC9nc3ZhX3NpZ19wb3NpdGlvbmFsX2NhdGVnb3JpZXMueGxzeCIpCiAgdHhfbTFfZ3N2YV9zaWcKCiAgdHhfbTJfZ3N2YSA8LSBzaW1wbGVfZ3N2YSh0eF9wYWlyd2lzZV9pbnB1dCwgb3JnZGIgPSAib3JnLk1tLmVnLmRiIiwgc2lnbmF0dXJlX2NhdGVnb3J5ID0gIm0yIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNpZ25hdHVyZXMgPSBtc2lnZGIsIGlkX3NvdXJjZSA9ICJmZGF0YSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICByZXF1aXJlZF9pZCA9ICJtZ2lfc3ltYm9sIikKICB0eF9tMl9nc3ZhCiAgdHhfbTJfZ3N2YV9zaWcgPC0gZ2V0X3NpZ19nc3ZhX2NhdGVnb3JpZXMoCiAgICB0eF9tMl9nc3ZhLCBleGNlbCA9ICIzOG1zaWdkYl90eC9nc3ZhX3NpZ19jdXJhdGVkX2NhdGVnb3JpZXMueGxzeCIpCiAgdHhfbTJfZ3N2YV9zaWcKCiAgdHhfbTNfZ3N2YSA8LSBzaW1wbGVfZ3N2YSh0eF9wYWlyd2lzZV9pbnB1dCwgb3JnZGIgPSAib3JnLk1tLmVnLmRiIiwgc2lnbmF0dXJlX2NhdGVnb3J5ID0gIm0zIiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNpZ25hdHVyZXMgPSBtc2lnZGIsIGlkX3NvdXJjZSA9ICJmZGF0YSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICByZXF1aXJlZF9pZCA9ICJtZ2lfc3ltYm9sIikKICB0eF9tM19nc3ZhCiAgdHhfbTNfZ3N2YV9zaWcgPC0gZ2V0X3NpZ19nc3ZhX2NhdGVnb3JpZXMoCiAgICB0eF9tM19nc3ZhLCBleGNlbCA9ICIzOG1zaWdkYl90eC9nc3ZhX3NpZ19yZWd1bGF0b3J5X2NhdGVnb3JpZXMueGxzeCIpCiAgdHhfbTNfZ3N2YV9zaWcKCiAgdHhfbTVfZ3N2YSA8LSBzaW1wbGVfZ3N2YSh0eF9wYWlyd2lzZV9pbnB1dCwgb3JnZGIgPSAib3JnLk1tLmVnLmRiIiwgc2lnbmF0dXJlX2NhdGVnb3J5ID0gIm01IiwKICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNpZ25hdHVyZXMgPSBtc2lnZGIsIGlkX3NvdXJjZSA9ICJmZGF0YSIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICByZXF1aXJlZF9pZCA9ICJtZ2lfc3ltYm9sIikKICB0eF9tNV9nc3ZhCiAgdHhfbTVfZ3N2YV9zaWcgPC0gZ2V0X3NpZ19nc3ZhX2NhdGVnb3JpZXMoCiAgICB0eF9tNV9nc3ZhLCBleGNlbCA9ICIzOG1zaWdkYl90eC9nc3ZhX3NpZ19vbnRvbG9neV9jYXRlZ29yaWVzLnhsc3giKQogIHR4X201X2dzdmFfc2lnCgogIHR4X204X2dzdmEgPC0gc2ltcGxlX2dzdmEodHhfcGFpcndpc2VfaW5wdXQsIG9yZ2RiID0gIm9yZy5NbS5lZy5kYiIsIHNpZ25hdHVyZV9jYXRlZ29yeSA9ICJtOCIsCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBzaWduYXR1cmVzID0gbXNpZ2RiLCBpZF9zb3VyY2UgPSAiZmRhdGEiLAogICAgICAgICAgICAgICAgICAgICAgICAgICAgcmVxdWlyZWRfaWQgPSAibWdpX3N5bWJvbCIpCiAgdHhfbThfZ3N2YQogIHR4X204X2dzdmFfc2lnIDwtIGdldF9zaWdfZ3N2YV9jYXRlZ29yaWVzKAogICAgdHhfbThfZ3N2YSwgZXhjZWwgPSAiMzhtc2lnZGJfdHgvZ3N2YV9zaWdfY2VsbHR5cGVfY2F0ZWdvcmllcy54bHN4IikKICB0eF9tOF9nc3ZhX3NpZwp9CmBgYAoKIyBHU0VBIGltYWdlcwoKVXAgYWJvdmUgSSBjcmVhdGVkIGEgZmFpcmx5IGxhcmdlIHNldCBvZiBlbnJpY2htZW50L0dTRUEgYW5hbHlzZXMuCkxldCB1cyBwdWxsIHNvbWUgb2YgdGhlIG1vc3QgaW50ZXJlc3RpbmcgcmVzdWx0cyBoZXJlIGFuZCBsb29rIGF0CnRoZW0uCgpIZXJlIGFyZSB0aGUgc3BlY2lmaWMgcXVlcmllcyBmcm9tIFJhc2htaToKCiogR2Vub3R5cGUgKGhldCB2cyBrbyk6CiAgKiBQOCBoZXQgYW5kIGtvIGZvciBSZXQKICAqIFNDTiAoUDggaGV0IHZzIEtPIFNDTgogICogUDggaGV0IHZzIEtPIFJldCkKICAqIFAxNSBoZXQgYW5kIGtvIGZvciBSZXQKKiBMb2NhdGlvbiAoc29tYWwgdnMgYXhvbmFsKToKICAqIFNSX1AwOF9LTwogICogU1JfUDA4X0hldAogICogU1JfUDE1X0tPCiAgKiBTUl9QMTVfSGV0CiogVGltZShwOHZzIHAxNSk6CiAgKiB0X2hldF9SZXRfIHBvOC1wMTUKICAqIHRfS09fUmV0X0MgcG84LXAxNQogICogdF9oZXRfU0NOX3BvOC1wMTUKICAqIHRfS09fU0NOX3BvOC1wMTUKCiMjIEdlbm90eXBlCgpMZXQgdXMgdGFrZSBhIG1vbWVudCBhbmQgc2VlIGZvciB3aGljaCBjb250cmFzdHMgSSBhY3F1aXJlZCByZXN1bHRzOgoKSSBuZWVkIHRvIG1ha2UgYSBsaXR0bGUgc3VtbWFyeSBmb3IgY2x1c3RlcnByb2ZpbGVyIHRvbyBzbyB0aGF0IEkgY2FuIGVhc2lseSBzZWUgaG93IG1hbnkgaGl0cyB0aGVyZQphcmUgZm9yIGVhY2ggY29udHJhc3QuCgpgYGB7cn0Kc3VtbWFyeShnZW5vdHlwZV9mdWxsX2dwKQpmb3IgKGkgaW4gbmFtZXMoZ2Vub3R5cGVfZnVsbF9ncCkpIHsKICBwcmludChpKQogIHByaW50KGdlbm90eXBlX2Z1bGxfZ3BbW2ldXVtbIm51bV9oaXRzIl1dKQp9CnN1bW1hcnkoZ2Vub3R5cGVfZnVsbF9jcCkKZm9yIChpIGluIG5hbWVzKGdlbm90eXBlX2Z1bGxfY3ApKSB7CiAgcHJpbnQoaSkKICBwcmludChucm93KGdlbm90eXBlX2Z1bGxfY3BbW2ldXVtbImdzZV9nbyJdXSkpCn0KYGBgCgojIyMgcDggaGV0L2tvIGZvciByZXRpbmE6CgpUaGlzIGNvbnRyYXN0LCBldmVuIGJlZm9yZSBmaWx0ZXJpbmcgYXdheSB0aGUgaGlnaC13dCBnZW5lcywgb25seSBoYXMgOCBnZW5lcyBpbiB0aGUgc2V0IG9mIHVwIGFuZApkb3duIGdlbmVzIGNvbWJpbmVkLiAgQXMgYSByZXN1bHQsIG15IGZ1bmN0aW9uIHdoaWNoIHBlcmZvcm1zIGdQcm9maWxlci9jbHVzdGVyUHJvZmlsZXIgc2tpcHMgaXQsCmFuZCBhbHNvIHNraXBzIHRoZSBwMTUgaGV0L2tvIGZvciByZXRpbmEgc2FtcGxlcy4KCiMjIyBwOCBoZXQva28gZm9yIHNjbjoKClRoaXMgaGFzIGEgYnVuY2ggbW9yZSBnZW5lczogNTEgdXAgYW5kIDEyOCBkb3duLgpVbmZvcnR1bmF0ZWx5LCBnUHJvZmlsZXIgc2VlcyBubyBzaWduaWZpY2FudCBvdmVyLXJlcHJlc2VudGF0aW9uIGluIHRoZSB1cCBjYXRlZ29yeSBvZiBnZW5lcy4KVGhlIGRvd24gY2F0ZWdvcnkgaGFzCgpUaGUgdXAvZG93biBzZXRzIGZyb20gY2x1c3RlclByb2ZpbGVyIGhhdmUgZW5yaWNoX2dvLCBnc2VfZ28sIGFuZCBnb19kYXRhIHRvIGxvb2sgYXQuCgpgYGB7cn0KZ2Vub3R5cGVfZnVsbF9ncCRraF9wMDhfc2NuX3VwJG51bV9oaXRzCmdlbm90eXBlX2Z1bGxfZ3Aka2hfcDA4X3Njbl9kb3duJG51bV9oaXRzCgpwbG90cyA8LSBwbG90X2VucmljaHJlc3VsdChnZW5vdHlwZV9mdWxsX2dwJGtoX3AwOF9zY25fZG93bltbIkJQX2VucmljaCJdXSkKcGxvdHNbWyJkb3QiXV0KcGxvdHNbWyJ0cmVlIl1dCmBgYAoKUGVyaGFwcyBJIHNob3VsZCBqdXN0IGFzayB0aGUgcXVlc3Rpb246IGZvciB3aGljaCBjYXRlZ29yaWVzIGRpZCBJIGdldCByZXN1bHRzIGJhY2s/CgpgYGB7cn0Kc3VtbWFyeShnZW5vdHlwZV9mdWxsX2dwKQpgYGAKCmtoX3AwOF9kbGduX3VwOiBObyBzaWduaWZpY2FudCBnUHJvZmlsZXIgcmVzdWx0cy4Ka2hfcDE1X2RsZ25fdXA6IFNpZ25pZmljYW50IEJQLCBIUCwgS0VHRywgTUYsIFJFQUMsIFRGCmtoX3AwOF9zY25fdXA6IE5vIHNpZ25pZmljYW50IGdQcm9maWxlciByZXN1bHRzLgpraF9wMDhfc2NuX2Rvd246IFNpZ25pZmljYW50IEJQLCBNaVJOQSwgTUYsIFRGCmtoX3AxNV9zY25fZG93bjogU2lnbmlmaWNhbnQgQlAsIE1GCgoKYGBge3J9CnBsb3RzIDwtIHBsb3RfZW5yaWNocmVzdWx0KGdlbm90eXBlX2Z1bGxfZ3BbWyJraF9wMTVfZGxnbl91cCJdXVtbIkJQX2VucmljaCJdXSkKcGxvdHNbWyJkb3QiXV0KYGBgCgojIyBMb2NhdGlvbgoKIyMjIFNjbiB2cyByZXRpbmEga28sIHAwOAoKYGBge3J9CgpwbG90cyA8LSBwbG90X2VucmljaHJlc3VsdChsb2NhdGlvbl9ncFtbInNyX3AwOF9rbyJdXVtbInNyX3AwOF9rb191cCJdXVtbIkJQX2VucmljaCJdXSkKcGxvdHNbWyJkb3QiXV0KCnBsb3RzIDwtIHBsb3RfZW5yaWNocmVzdWx0KGxvY2F0aW9uX2dwW1sic3JfcDA4X2tvIl1dW1sic3JfcDA4X2tvX2Rvd24iXV1bWyJCUF9lbnJpY2giXV0pCnBsb3RzW1siZG90Il1dCmBgYAoKIyMjIHNjbiB2cyByZXRpbmEsIGhldCwgcDA4CgpFbnJpY2hlZCBncm91cHM6IEJQLCBLRUdHLCBNRiwgVEYsIENDCgpgYGB7cn0Kc3VtbWFyeShsb2NhdGlvbl9ncFtbInNyX3AwOF9oZXQiXV1bWyJzcl9wMDhfaGV0X3VwIl1dKQpwbG90cyA8LSBwbG90X2VucmljaHJlc3VsdChsb2NhdGlvbl9ncFtbInNyX3AwOF9oZXQiXV1bWyJzcl9wMDhfaGV0X3VwIl1dW1siQlBfZW5yaWNoIl1dKQpwbG90c1tbImRvdCJdXQoKcGxvdHMgPC0gcGxvdF9lbnJpY2hyZXN1bHQobG9jYXRpb25fZ3BbWyJzcl9wMDhfaGV0Il1dW1sic3JfcDA4X2hldF91cCJdXVtbIkNDX2VucmljaCJdXSkKcGxvdHNbWyJkb3QiXV0KCnBsb3RzIDwtIHBsb3RfZW5yaWNocmVzdWx0KGxvY2F0aW9uX2dwW1sic3JfcDA4X2hldCJdXVtbInNyX3AwOF9oZXRfZG93biJdXVtbIkJQX2VucmljaCJdXSkKcGxvdHNbWyJkb3QiXV0KCnNyX3AwOF9oZXRfdG9wbl9nc2VhIDwtIHBsb3RfdG9wbl9nc2VhKGxvY2F0aW9uX2NwW1siIl1dKQoKYGBgCgojIyMgU2NuIHZzIHJldGluYSBrbywgcDE1CgpgYGB7cn0KcGxvdHMgPC0gcGxvdF9lbnJpY2hyZXN1bHQobG9jYXRpb25fZ3BbWyJzcl9wMTVfa28iXV1bWyJzcl9wMTVfa29fdXAiXV1bWyJCUF9lbnJpY2giXV0pCnBsb3RzW1siZG90Il1dCgpwbG90cyA8LSBwbG90X2VucmljaHJlc3VsdChsb2NhdGlvbl9ncFtbInNyX3AxNV9rbyJdXVtbInNyX3AxNV9rb19kb3duIl1dW1siQlBfZW5yaWNoIl1dKQpwbG90c1tbImRvdCJdXQpgYGAKCiMjIyBzY24gdnMgcmV0aW5hLCBoZXQsIHAxNQoKYGBge3J9CnBsb3RzIDwtIHBsb3RfZW5yaWNocmVzdWx0KGxvY2F0aW9uX2dwW1sic3JfcDE1X2hldCJdXVtbInNyX3AxNV9oZXRfdXAiXV1bWyJCUF9lbnJpY2giXV0pCnBsb3RzW1siZG90Il1dCgpwbG90cyA8LSBwbG90X2VucmljaHJlc3VsdChsb2NhdGlvbl9ncFtbInNyX3AxNV9oZXQiXV1bWyJzcl9wMTVfaGV0X2Rvd24iXV1bWyJCUF9lbnJpY2giXV0pCnBsb3RzW1siZG90Il1dCmBgYAoKIyMgVGltZQoKIyMjIGhldCByZXRpbmEKClVwczogc2lnbmlmaWNhbnQgcmVzdWx0cyBmb3IgQlAsIE1GLCBURgpEb3duczogQlAsIE1GLCBSRUFDLCBURiwgV1AKCmBgYHtyfQpwbG90cyA8LSBwbG90X2VucmljaHJlc3VsdCh0aW1lX2dwW1sidF9oZXRfcmV0aW5hIl1dW1sidF9oZXRfcmV0aW5hX3VwIl1dW1siQlBfZW5yaWNoIl1dKQpwbG90c1tbImRvdCJdXQoKcGxvdHMgPC0gcGxvdF9lbnJpY2hyZXN1bHQodGltZV9ncFtbInRfaGV0X3JldGluYSJdXVtbInRfaGV0X3JldGluYV9kb3duIl1dW1siQlBfZW5yaWNoIl1dKQpwbG90c1tbImRvdCJdXQpgYGAKCiMjIyBrbyByZXRpbmEKClVwOiBCUCwgTWlSTkEsIE1GCkRvd246IEJQLCBNRiwgUkVBQywgVEYKCmBgYHtyfQpwbG90cyA8LSBwbG90X2VucmljaHJlc3VsdCh0aW1lX2dwW1sidF9rb19yZXRpbmEiXV1bWyJ0X2tvX3JldGluYV91cCJdXVtbIkJQX2VucmljaCJdXSkKcGxvdHNbWyJkb3QiXV0KCnBsb3RzIDwtIHBsb3RfZW5yaWNocmVzdWx0KHRpbWVfZ3BbWyJ0X2tvX3JldGluYSJdXVtbInRfa29fcmV0aW5hX2Rvd24iXV1bWyJCUF9lbnJpY2giXV0pCnBsb3RzW1siZG90Il1dCmBgYAoKIyMjIGhldCBzY24KCk5laXRoZXIgb2YgdGhlIFNDTiBnUHJvZmlsZXIgcXVlcmllcyBwcm92aWRlZCBhbnkgcmVzdWx0cy4KCiMgQmlibGlvZ3JhcGh5CgpgYGB7ciBzYXZlbWUsIGV2YWw9RkFMU0V9CnBhbmRlcjo6cGFuZGVyKHNlc3Npb25JbmZvKCkpCm1lc3NhZ2UocGFzdGUwKCJUaGlzIGlzIGhwZ2x0b29scyBjb21taXQ6ICIsIGdldF9naXRfY29tbWl0KCkpKQptZXNzYWdlKHBhc3RlMCgiU2F2aW5nIHRvICIsIHNhdmVmaWxlKSkKdG1wIDwtIHNtKHNhdmVtZShmaWxlbmFtZSA9IHNhdmVmaWxlKSkKYGBgCgpgYGB7ciBsb2FkbWVfYWZ0ZXIsIGV2YWw9RkFMU0V9CnRtcCA8LSBsb2FkbWUoZmlsZW5hbWUgPSBzYXZlZmlsZSkKYGBgCg==