library(tidyverse)
library(openintro)
library(infer)
library(dplyr)
library(ggplot2)
Exercise 1
Describe the distribution of responses in this sample. How does it
compare to the distribution of responses in the population. Hint:
Although the sample_n function takes a random sample of observations
(i.e. rows) from the dataset, you can still refer to the variables in
the dataset with the same names. Code you presented earlier for
visualizing and summarizing the population data will still be useful for
the sample, however be careful to not label your proportion p since
you’re now calculating a sample statistic, not a population parameters.
You can customize the label of the statistics to indicate that it comes
from the sample.
set.seed(500) # make sure reproducibility in random sampling
global_monitor <- tibble(
scientist_work = c(rep("Benefits", 80000), rep("Doesn't benefit", 20000))
)
#Take a random sample
samp1 <- global_monitor %>%
sample_n(50000)
# The sample proportion of "Benefits" and "Doesn't benefit" response from samp1
samp <- samp1 %>%
count(scientist_work) %>%
mutate(p1 = n / sum(n))
samp
## # A tibble: 2 × 3
## scientist_work n p1
## <chr> <int> <dbl>
## 1 Benefits 40028 0.801
## 2 Doesn't benefit 9972 0.199
# Summary population
prop <- global_monitor %>%
count(scientist_work) %>%
mutate(p = n / sum(n))
# Build a comparison chart
comparison <- rbind(
c("Sample", "Benefits", prop$p[1]),
c("Sample", "Doesn't benefit", prop$p[2]),
c("Population", "Benefits", samp$p1[1]),
c("Population", "Doesn't benefit", samp$p1[2])
) %>%
as.data.frame() %>%
rename(Group = V1, Response = V2, Proportion = V3)
# Create a bar plot
ggplot(comparison, aes(x = Response, y = Proportion, fill = Group)) +
geom_bar(stat = "identity", position = "dodge") +
labs(
x = "Response",
y = "Proportion",
title = "Comparison of Sample and Population Distributions"
)
At the initial sample of 50 observations,thre is a sample
distribution of 80% “Benefits” and 20% “Doesn’t benefit” responses and
the population distribution of 86% “Benefits” and 14% “Doesn’t benefit”
responses. If the sample sized is increased to 50,000, that of
proportion of sample distributions and population distribution are
almost the same at 80% “Benefits” and 20% “Doesn’t benefit” responses
because of random sampling.
Exercise 2
Would you expect the sample proportion to match the sample proportion
of another student’s sample? Why, or why not? If the answer is no, would
you expect the proportions to be somewhat different or very different?
Ask a student team to confirm your answer.
The sample proportion of one student’s sample may have somewhat
different if the samples are independently random, have very different
if the samples are small, but have closely identical if samples are
large withe another student’s sample.
Exercise 3
Take a second sample, also of size 50, and call it samp2. How does
the sample proportion of samp2 compare with that of samp1? Suppose we
took two more samples, one of size 100 and one of size 1000. Which would
you think would provide a more accurate estimate of the population
proportion?
The larger the sample size, the smaller the sampling error and
estimating accuracy becomes more precise.
samp2 <- global_monitor %>%
sample_n(1000)
# Calculate the sample proportion of "Benefits" and "Doesn't benefit" responses
samp_two <- samp2 %>%
count(scientist_work) %>%
mutate(p1 = n / sum(n))
samp_two
## # A tibble: 2 × 3
## scientist_work n p1
## <chr> <int> <dbl>
## 1 Benefits 809 0.809
## 2 Doesn't benefit 191 0.191
Exercise 4
How many elements are there in sample_props50? Describe the sampling
distribution, and be sure to specifically note its center. Make sure to
include a plot of the distribution in your answer.
There are 15,000 elements in sample_props50. The sampling
distribution is the sample proportion of “Doesn’t benefit” responses
based on repeated random sampling. It shows how the sample proportions
vary when estimating the population proportion. The center of the
sampling distribution corresponds to the expected (mean) or average
proportion of “Doesn’t benefit” responses across the 15,000 simulated
samples.
#sample proportion of "Doesn't benefit" responses
sample_props50 <- global_monitor %>%
rep_sample_n(size = 50, reps = 15000, replace = TRUE) %>%
count(scientist_work) %>%
mutate(p_hat = n /sum(n)) %>%
filter(scientist_work == "Doesn't benefit")
sample_props50
## # A tibble: 14,999 × 4
## # Groups: replicate [14,999]
## replicate scientist_work n p_hat
## <int> <chr> <int> <dbl>
## 1 1 Doesn't benefit 9 0.18
## 2 2 Doesn't benefit 9 0.18
## 3 3 Doesn't benefit 9 0.18
## 4 4 Doesn't benefit 11 0.22
## 5 5 Doesn't benefit 8 0.16
## 6 6 Doesn't benefit 12 0.24
## 7 7 Doesn't benefit 7 0.14
## 8 8 Doesn't benefit 6 0.12
## 9 9 Doesn't benefit 9 0.18
## 10 10 Doesn't benefit 13 0.26
## # ℹ 14,989 more rows
# Count the number of elements in sample_props50
num_elements <- nrow(sample_props50)
num_elements
## [1] 14999
#Visualize the distribution of these proportions with a histogram
ggplot(data = sample_props50, aes(x = p_hat)) +
geom_histogram(binwidth = 0.02, fill = "pink", color = "grey") +
labs(
x = "p_hat (Doesn't benefit)",
title = "Sampling distribution of p_hat",
subtitle = "Sample size = 50, Number of samples = 15000"
)
Exercise 5
To make sure you understand how sampling distributions are built, and
exactly what the rep_sample_n function does, try modifying the code to
create a sampling distribution of 25 sample proportions from samples of
size 10, and put them in a data frame named sample_props_small. Print
the output. How many observations are there in this object called
sample_props_small? What does each observation represent?
# A sampling distribution of 25 sample proportions from samples of size 10
sample_props_small <- global_monitor %>%
rep_sample_n(size = 10, reps = 25, replace = TRUE) %>%
count(scientist_work) %>%
mutate(p_hat = n / sum(n)) %>%
filter(scientist_work == "Doesn't benefit")
print(sample_props_small)
## # A tibble: 19 × 4
## # Groups: replicate [19]
## replicate scientist_work n p_hat
## <int> <chr> <int> <dbl>
## 1 3 Doesn't benefit 3 0.3
## 2 4 Doesn't benefit 3 0.3
## 3 5 Doesn't benefit 4 0.4
## 4 6 Doesn't benefit 3 0.3
## 5 8 Doesn't benefit 1 0.1
## 6 9 Doesn't benefit 3 0.3
## 7 10 Doesn't benefit 5 0.5
## 8 11 Doesn't benefit 2 0.2
## 9 12 Doesn't benefit 3 0.3
## 10 13 Doesn't benefit 3 0.3
## 11 14 Doesn't benefit 3 0.3
## 12 16 Doesn't benefit 1 0.1
## 13 18 Doesn't benefit 1 0.1
## 14 19 Doesn't benefit 3 0.3
## 15 21 Doesn't benefit 1 0.1
## 16 22 Doesn't benefit 3 0.3
## 17 23 Doesn't benefit 3 0.3
## 18 24 Doesn't benefit 2 0.2
## 19 25 Doesn't benefit 4 0.4
# The number of observations in sample_props_small
num_obs <- nrow(sample_props_small)
num_obs
## [1] 19
Exercise 6
Use the app below to create sampling distributions of proportions of
Doesn’t benefit from samples of size 10, 50, and 100. Use 5,000
simulations. What does each observation in the sampling distribution
represent? How does the mean, standard error, and shape of the sampling
distribution change as the sample size increases? How (if at all) do
these values change if you increase the number of simulations? (You do
not need to include plots in your answer.)
set.seed(123)
num_simulations <- 5000
# Sample sizes
sample_sizes <- c(10, 50, 100)
# Create a data frame to store results
results <- data.frame(
Sample_Size = integer(),
Simulation = integer(),
Mean_Proportion = numeric(),
Standard_Error = numeric()
)
# Perform simulations for each sample size
for (size in sample_sizes) {
for (sim in 1:num_simulations) {
# Generate a random sample of the specified size
sample_data <- global_monitor %>%
sample_n(size = size, replace = TRUE)
# Calculate the proportion of "Doesn't benefit" responses
proportion <- mean(sample_data$scientist_work == "Doesn't benefit")
# Calculate the standard error
se <- sqrt(proportion * (1 - proportion) / size)
# Store the results
results <- rbind(results, data.frame(Sample_Size = size, Simulation = sim,
Mean_Proportion = proportion,
Standard_Error = se))
}
}
# Create a summary plot
ggplot(results, aes(x = Sample_Size, y = Mean_Proportion)) +
geom_point() +
geom_errorbar(aes(ymin = Mean_Proportion - Standard_Error, ymax = Mean_Proportion + Standard_Error),
width = 0.2) +
labs(
x = "Sample Size",
y = "Mean Proportion of 'Doesn't benefit'",
title = "Effect of Sample Size on Mean Proportion (with Standard Error)"
)
As sample is larger, the mean proportion becomes more precise, the
standard error decreases and tends to the true population
proportion.
Exercise 7
Take a sample of size 15 from the population and calculate the
proportion of people in this sample who think the work scientists do
enhances their lives. Using this sample, what is your best point
estimate of the population proportion of people who think the work
scientists do enchances their lives?
The value of p_hat = 0.73 best point estimate of the population
proportion of people who think the work scientists do enhances their
lives based on this specific sample of 15 individuals.
# A sampling distribution of 25 sample proportions from samples of size 10
proportion_of_people <- global_monitor %>%
sample_n(size = 15) %>%
count(scientist_work) %>%
mutate(p_hat = n / sum(n)) %>%
filter(scientist_work == "Benefits")
print(proportion_of_people)
## # A tibble: 1 × 3
## scientist_work n p_hat
## <chr> <int> <dbl>
## 1 Benefits 14 0.933
Exercise 8
Since you have access to the population, simulate the sampling
distribution of proportion of those who think the work scientists do
enhances their lives for samples of size 15 by taking 2000 samples from
the population of size 15 and computing 2000 sample proportions. Store
these proportions in as sample_props15. Plot the data, then describe the
shape of this sampling distribution. Based on this sampling
distribution, what would you guess the true proportion of those who
think the work scientists do enhances their lives to be? Finally,
calculate and report the population proportion.
set.seed(123)
# Number of simulations
num_simulations <- 2000
# Create a data frame to store results
Report <- data.frame(
Simulation = integer(),
Mean_Proportion = numeric()
)
# Perform simulations for each sample size
for (sim in 1:num_simulations) {
# Generate a random sample of the specified size
sample_data <- global_monitor %>%
sample_n(size = 15, replace = TRUE)
# Calculate the proportion of "Benefits" responses
sample_props15 <- mean(sample_data$scientist_work == "Benefits")
# Store the results
Report <- rbind(Report, data.frame(Simulation = sim,
Mean_Proportion = sample_props15))
}
head(Report)
## Simulation Mean_Proportion
## 1 1 0.8666667
## 2 2 0.7333333
## 3 3 0.8666667
## 4 4 0.8000000
## 5 5 0.7333333
## 6 6 0.6000000
# Create a histogram to visualize the sampling distribution
hist(Report$Mean_Proportion, breaks = 20, main = "Sampling Distribution (Sample Size 15)",
xlab = "Sample Proportion of 'Benefits'", ylab = "Frequency")
Exercise 9
Change your sample size from 15 to 150, then compute the sampling
distribution using the same method as above, and store these proportions
in a new object called sample_props150. Describe the shape of this
sampling distribution and compare it to the sampling distribution for a
sample size of 15. Based on this sampling distribution, what would you
guess to be the true proportion of those who think the work scientists
do enchances their lives?
num_simulations <- 2000
# Create a data frame to store sample proportions
sample_props150 <- data.frame(
Simulation = integer(),
Mean_Proportion = numeric()
)
# Perform simulations
for (sim in 1:num_simulations) {
# Generate a random sample of size 150 from the population
sample_data <- global_monitor %>%
sample_n(size = 150, replace = TRUE)
# Calculate the proportion of "Benefits" responses in the sample
sample_proportion <- mean(sample_data$scientist_work == "Benefits")
# Store the results
sample_props150 <- rbind(sample_props150, data.frame(Simulation = sim, Sample_Proportion = sample_proportion))
}
# Create a histogram to visualize the sampling distribution
hist(sample_props150$Sample_Proportion, breaks = 20, main = "Sampling Distribution (Sample Size 150)",
xlab = "Sample Proportion of 'Benefits'", ylab = "Frequency")
As the sample is larger, the true proportion of those who think the
work scientists do enhances their lives to be more accurately estimated
and closer to the center of the distribution.
Exercise 10
Of the sampling distributions from 2 and 3, which has a smaller
spread? If you’re concerned with making estimates that are more often
close to the true value, would you prefer a sampling distribution with a
large or small spread?
I do prefer to a smaller spread of sampling distribution because the
estimates (sample proportions) are more closer to the true population
parameter, and there is less variability or uncertainty in the
estimates, but higher level of precision with larger sample sizes.
LS0tCnRpdGxlOiAiU2FtcGxpbmcgRGlzdHJpYnV0aW9ucyIKYXV0aG9yOiAiTHdpbiBTaHdlIgpkYXRlOiAiYHIgU3lzLkRhdGUoKWAiCm91dHB1dDogb3BlbmludHJvOjpsYWJfcmVwb3J0Ci0tLQoKYGBge3IgbG9hZC1wYWNrYWdlcywgbWVzc2FnZT1GQUxTRX0KbGlicmFyeSh0aWR5dmVyc2UpCmxpYnJhcnkob3BlbmludHJvKQpsaWJyYXJ5KGluZmVyKQpsaWJyYXJ5KGRwbHlyKQpsaWJyYXJ5KGdncGxvdDIpCmBgYAoKIyMjIEV4ZXJjaXNlIDEKRGVzY3JpYmUgdGhlIGRpc3RyaWJ1dGlvbiBvZiByZXNwb25zZXMgaW4gdGhpcyBzYW1wbGUuIEhvdyBkb2VzIGl0IGNvbXBhcmUgdG8gdGhlIGRpc3RyaWJ1dGlvbiBvZiByZXNwb25zZXMgaW4gdGhlIHBvcHVsYXRpb24uIEhpbnQ6IEFsdGhvdWdoIHRoZSBzYW1wbGVfbiBmdW5jdGlvbiB0YWtlcyBhIHJhbmRvbSBzYW1wbGUgb2Ygb2JzZXJ2YXRpb25zIChpLmUuIHJvd3MpIGZyb20gdGhlIGRhdGFzZXQsIHlvdSBjYW4gc3RpbGwgcmVmZXIgdG8gdGhlIHZhcmlhYmxlcyBpbiB0aGUgZGF0YXNldCB3aXRoIHRoZSBzYW1lIG5hbWVzLiBDb2RlIHlvdSBwcmVzZW50ZWQgZWFybGllciBmb3IgdmlzdWFsaXppbmcgYW5kIHN1bW1hcml6aW5nIHRoZSBwb3B1bGF0aW9uIGRhdGEgd2lsbCBzdGlsbCBiZSB1c2VmdWwgZm9yIHRoZSBzYW1wbGUsIGhvd2V2ZXIgYmUgY2FyZWZ1bCB0byBub3QgbGFiZWwgeW91ciBwcm9wb3J0aW9uIHAgc2luY2UgeW914oCZcmUgbm93IGNhbGN1bGF0aW5nIGEgc2FtcGxlIHN0YXRpc3RpYywgbm90IGEgcG9wdWxhdGlvbiBwYXJhbWV0ZXJzLiBZb3UgY2FuIGN1c3RvbWl6ZSB0aGUgbGFiZWwgb2YgdGhlIHN0YXRpc3RpY3MgdG8gaW5kaWNhdGUgdGhhdCBpdCBjb21lcyBmcm9tIHRoZSBzYW1wbGUuCgoKYGBge3IgRGlzdHJpYnV0aW9uLXJlc3BvbnNlLXNhbXBsZX0Kc2V0LnNlZWQoNTAwKSAjIG1ha2Ugc3VyZSByZXByb2R1Y2liaWxpdHkgaW4gcmFuZG9tIHNhbXBsaW5nCmdsb2JhbF9tb25pdG9yIDwtIHRpYmJsZSgKICBzY2llbnRpc3Rfd29yayA9IGMocmVwKCJCZW5lZml0cyIsIDgwMDAwKSwgcmVwKCJEb2Vzbid0IGJlbmVmaXQiLCAyMDAwMCkpCikKI1Rha2UgYSByYW5kb20gc2FtcGxlICAKc2FtcDEgPC0gZ2xvYmFsX21vbml0b3IgJT4lCiAgc2FtcGxlX24oNTAwMDApCgojIFRoZSBzYW1wbGUgcHJvcG9ydGlvbiBvZiAiQmVuZWZpdHMiIGFuZCAiRG9lc24ndCBiZW5lZml0IiByZXNwb25zZSBmcm9tIHNhbXAxIApzYW1wIDwtIHNhbXAxICU+JQogIGNvdW50KHNjaWVudGlzdF93b3JrKSAlPiUKICBtdXRhdGUocDEgPSBuIC8gc3VtKG4pKQpzYW1wCgoKIyBTdW1tYXJ5ICBwb3B1bGF0aW9uCnByb3AgPC0gZ2xvYmFsX21vbml0b3IgJT4lCiAgY291bnQoc2NpZW50aXN0X3dvcmspICU+JQogIG11dGF0ZShwID0gbiAvIHN1bShuKSkKCiMgQnVpbGQgYSBjb21wYXJpc29uIGNoYXJ0CmNvbXBhcmlzb24gPC0gcmJpbmQoCiAgYygiU2FtcGxlIiwgIkJlbmVmaXRzIiwgcHJvcCRwWzFdKSwKICBjKCJTYW1wbGUiLCAiRG9lc24ndCBiZW5lZml0IiwgcHJvcCRwWzJdKSwKICBjKCJQb3B1bGF0aW9uIiwgIkJlbmVmaXRzIiwgc2FtcCRwMVsxXSksCiAgYygiUG9wdWxhdGlvbiIsICJEb2Vzbid0IGJlbmVmaXQiLCBzYW1wJHAxWzJdKQopICU+JQogIGFzLmRhdGEuZnJhbWUoKSAlPiUKICByZW5hbWUoR3JvdXAgPSBWMSwgUmVzcG9uc2UgPSBWMiwgUHJvcG9ydGlvbiA9IFYzKQogCiMgQ3JlYXRlIGEgYmFyIHBsb3QKZ2dwbG90KGNvbXBhcmlzb24sIGFlcyh4ID0gUmVzcG9uc2UsIHkgPSBQcm9wb3J0aW9uLCBmaWxsID0gR3JvdXApKSArCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHBvc2l0aW9uID0gImRvZGdlIikgKwogIGxhYnMoCiAgICB4ID0gIlJlc3BvbnNlIiwKICAgIHkgPSAiUHJvcG9ydGlvbiIsCiAgICB0aXRsZSA9ICJDb21wYXJpc29uIG9mIFNhbXBsZSBhbmQgUG9wdWxhdGlvbiBEaXN0cmlidXRpb25zIgogICkKCmBgYAoKQXQgdGhlIGluaXRpYWwgc2FtcGxlIG9mIDUwIG9ic2VydmF0aW9ucyx0aHJlIGlzIGEgc2FtcGxlIGRpc3RyaWJ1dGlvbiBvZiA4MCUgIkJlbmVmaXRzIiBhbmQgMjAlICJEb2Vzbid0IGJlbmVmaXQiIHJlc3BvbnNlcyBhbmQgdGhlIHBvcHVsYXRpb24gZGlzdHJpYnV0aW9uIG9mIDg2JSAiQmVuZWZpdHMiIGFuZCAxNCUgIkRvZXNuJ3QgYmVuZWZpdCIgcmVzcG9uc2VzLgpJZiB0aGUgc2FtcGxlIHNpemVkIGlzIGluY3JlYXNlZCB0byA1MCwwMDAsIHRoYXQgb2YgcHJvcG9ydGlvbiBvZiBzYW1wbGUgZGlzdHJpYnV0aW9ucyBhbmQgcG9wdWxhdGlvbiBkaXN0cmlidXRpb24gYXJlIGFsbW9zdCB0aGUgc2FtZSBhdCA4MCUgIkJlbmVmaXRzIiBhbmQgMjAlICJEb2Vzbid0IGJlbmVmaXQiIHJlc3BvbnNlcyBiZWNhdXNlIG9mIHJhbmRvbSBzYW1wbGluZy4KCiMjIyBFeGVyY2lzZSAyCldvdWxkIHlvdSBleHBlY3QgdGhlIHNhbXBsZSBwcm9wb3J0aW9uIHRvIG1hdGNoIHRoZSBzYW1wbGUgcHJvcG9ydGlvbiBvZiBhbm90aGVyIHN0dWRlbnTigJlzIHNhbXBsZT8gV2h5LCBvciB3aHkgbm90PyBJZiB0aGUgYW5zd2VyIGlzIG5vLCB3b3VsZCB5b3UgZXhwZWN0IHRoZSBwcm9wb3J0aW9ucyB0byBiZSBzb21ld2hhdCBkaWZmZXJlbnQgb3IgdmVyeSBkaWZmZXJlbnQ/IEFzayBhIHN0dWRlbnQgdGVhbSB0byBjb25maXJtIHlvdXIgYW5zd2VyLgoKVGhlIHNhbXBsZSBwcm9wb3J0aW9uIG9mIG9uZSBzdHVkZW50J3Mgc2FtcGxlIG1heSBoYXZlIHNvbWV3aGF0IGRpZmZlcmVudCBpZiB0aGUgc2FtcGxlcyBhcmUgaW5kZXBlbmRlbnRseSByYW5kb20sIGhhdmUgdmVyeSBkaWZmZXJlbnQgaWYgdGhlIHNhbXBsZXMgYXJlIHNtYWxsLCBidXQgaGF2ZSBjbG9zZWx5IGlkZW50aWNhbCBpZiBzYW1wbGVzIGFyZSBsYXJnZSB3aXRoZSBhbm90aGVyIHN0dWRlbnQncyBzYW1wbGUuCgoKIyMjIEV4ZXJjaXNlIDMKVGFrZSBhIHNlY29uZCBzYW1wbGUsIGFsc28gb2Ygc2l6ZSA1MCwgYW5kIGNhbGwgaXQgc2FtcDIuIEhvdyBkb2VzIHRoZSBzYW1wbGUgcHJvcG9ydGlvbiBvZiBzYW1wMiBjb21wYXJlIHdpdGggdGhhdCBvZiBzYW1wMT8gU3VwcG9zZSB3ZSB0b29rIHR3byBtb3JlIHNhbXBsZXMsIG9uZSBvZiBzaXplIDEwMCBhbmQgb25lIG9mIHNpemUgMTAwMC4gV2hpY2ggd291bGQgeW91IHRoaW5rIHdvdWxkIHByb3ZpZGUgYSBtb3JlIGFjY3VyYXRlIGVzdGltYXRlIG9mIHRoZSBwb3B1bGF0aW9uIHByb3BvcnRpb24/CgoKVGhlIGxhcmdlciB0aGUgc2FtcGxlIHNpemUsIHRoZSBzbWFsbGVyIHRoZSBzYW1wbGluZyBlcnJvciBhbmQgZXN0aW1hdGluZyBhY2N1cmFjeSBiZWNvbWVzIG1vcmUgcHJlY2lzZS4KCmBgYHtyIGRpZmZlcmVudC1zYW1wbGVzfQpzYW1wMiA8LSBnbG9iYWxfbW9uaXRvciAlPiUKICBzYW1wbGVfbigxMDAwKQoKIyBDYWxjdWxhdGUgdGhlIHNhbXBsZSBwcm9wb3J0aW9uIG9mICJCZW5lZml0cyIgYW5kICJEb2Vzbid0IGJlbmVmaXQiIHJlc3BvbnNlcwpzYW1wX3R3byA8LSBzYW1wMiAlPiUKICBjb3VudChzY2llbnRpc3Rfd29yaykgJT4lCiAgbXV0YXRlKHAxID0gbiAvIHN1bShuKSkKc2FtcF90d28KCmBgYAoKIyMjIEV4ZXJjaXNlIDQKCkhvdyBtYW55IGVsZW1lbnRzIGFyZSB0aGVyZSBpbiBzYW1wbGVfcHJvcHM1MD8gRGVzY3JpYmUgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiwgYW5kIGJlIHN1cmUgdG8gc3BlY2lmaWNhbGx5IG5vdGUgaXRzIGNlbnRlci4gTWFrZSBzdXJlIHRvIGluY2x1ZGUgYSBwbG90IG9mIHRoZSBkaXN0cmlidXRpb24gaW4geW91ciBhbnN3ZXIuCgpUaGVyZSBhcmUgMTUsMDAwIGVsZW1lbnRzIGluIHNhbXBsZV9wcm9wczUwLiAgVGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiBpcyB0aGUgc2FtcGxlIHByb3BvcnRpb24gb2YgIkRvZXNuJ3QgYmVuZWZpdCIgcmVzcG9uc2VzIGJhc2VkIG9uIHJlcGVhdGVkIHJhbmRvbSBzYW1wbGluZy4gSXQgc2hvd3MgaG93IHRoZSBzYW1wbGUgcHJvcG9ydGlvbnMgdmFyeSB3aGVuIGVzdGltYXRpbmcgdGhlIHBvcHVsYXRpb24gcHJvcG9ydGlvbi4gClRoZSBjZW50ZXIgb2YgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiBjb3JyZXNwb25kcyB0byB0aGUgZXhwZWN0ZWQgKG1lYW4pIG9yIGF2ZXJhZ2UgcHJvcG9ydGlvbiBvZiAiRG9lc24ndCBiZW5lZml0IiByZXNwb25zZXMgYWNyb3NzIHRoZSAxNSwwMDAgc2ltdWxhdGVkIHNhbXBsZXMuCgpgYGB7ciByZXBsYWNlbWVudH0KCiNzYW1wbGUgcHJvcG9ydGlvbiBvZiAiRG9lc24ndCBiZW5lZml0IiByZXNwb25zZXMgCnNhbXBsZV9wcm9wczUwIDwtIGdsb2JhbF9tb25pdG9yICU+JQogICAgICAgICAgICAgICAgICAgIHJlcF9zYW1wbGVfbihzaXplID0gNTAsIHJlcHMgPSAxNTAwMCwgcmVwbGFjZSA9IFRSVUUpICU+JQogICAgICAgICAgICAgICAgICAgIGNvdW50KHNjaWVudGlzdF93b3JrKSAlPiUKICAgICAgICAgICAgICAgICAgICBtdXRhdGUocF9oYXQgPSBuIC9zdW0obikpICU+JQogICAgICAgICAgICAgICAgICAgIGZpbHRlcihzY2llbnRpc3Rfd29yayA9PSAiRG9lc24ndCBiZW5lZml0IikKc2FtcGxlX3Byb3BzNTAKCiMgQ291bnQgdGhlIG51bWJlciBvZiBlbGVtZW50cyBpbiBzYW1wbGVfcHJvcHM1MApudW1fZWxlbWVudHMgPC0gbnJvdyhzYW1wbGVfcHJvcHM1MCkKbnVtX2VsZW1lbnRzCgojVmlzdWFsaXplIHRoZSBkaXN0cmlidXRpb24gb2YgdGhlc2UgcHJvcG9ydGlvbnMgd2l0aCBhIGhpc3RvZ3JhbQpnZ3Bsb3QoZGF0YSA9IHNhbXBsZV9wcm9wczUwLCBhZXMoeCA9IHBfaGF0KSkgKwogIGdlb21faGlzdG9ncmFtKGJpbndpZHRoID0gMC4wMiwgZmlsbCA9ICJwaW5rIiwgY29sb3IgPSAiZ3JleSIpICsKICBsYWJzKAogICAgeCA9ICJwX2hhdCAoRG9lc24ndCBiZW5lZml0KSIsCiAgICB0aXRsZSA9ICJTYW1wbGluZyBkaXN0cmlidXRpb24gb2YgcF9oYXQiLAogICAgc3VidGl0bGUgPSAiU2FtcGxlIHNpemUgPSA1MCwgTnVtYmVyIG9mIHNhbXBsZXMgPSAxNTAwMCIKICApCgpgYGAKCgojIyMgRXhlcmNpc2UgNQpUbyBtYWtlIHN1cmUgeW91IHVuZGVyc3RhbmQgaG93IHNhbXBsaW5nIGRpc3RyaWJ1dGlvbnMgYXJlIGJ1aWx0LCBhbmQgZXhhY3RseSB3aGF0IHRoZSByZXBfc2FtcGxlX24gZnVuY3Rpb24gZG9lcywgdHJ5IG1vZGlmeWluZyB0aGUgY29kZSB0byBjcmVhdGUgYSBzYW1wbGluZyBkaXN0cmlidXRpb24gb2YgMjUgc2FtcGxlIHByb3BvcnRpb25zIGZyb20gc2FtcGxlcyBvZiBzaXplIDEwLCBhbmQgcHV0IHRoZW0gaW4gYSBkYXRhIGZyYW1lIG5hbWVkIHNhbXBsZV9wcm9wc19zbWFsbC4gUHJpbnQgdGhlIG91dHB1dC4gSG93IG1hbnkgb2JzZXJ2YXRpb25zIGFyZSB0aGVyZSBpbiB0aGlzIG9iamVjdCBjYWxsZWQgc2FtcGxlX3Byb3BzX3NtYWxsPyBXaGF0IGRvZXMgZWFjaCBvYnNlcnZhdGlvbiByZXByZXNlbnQ/CgpgYGB7ciByZXBlYXRlZC1zYW1wLWRpc3RyaWJ1dGlvbnN9CiMgQSBzYW1wbGluZyBkaXN0cmlidXRpb24gb2YgMjUgc2FtcGxlIHByb3BvcnRpb25zIGZyb20gc2FtcGxlcyBvZiBzaXplIDEwCnNhbXBsZV9wcm9wc19zbWFsbCA8LSBnbG9iYWxfbW9uaXRvciAlPiUKICByZXBfc2FtcGxlX24oc2l6ZSA9IDEwLCByZXBzID0gMjUsIHJlcGxhY2UgPSBUUlVFKSAlPiUKICBjb3VudChzY2llbnRpc3Rfd29yaykgJT4lCiAgbXV0YXRlKHBfaGF0ID0gbiAvIHN1bShuKSkgJT4lCiAgZmlsdGVyKHNjaWVudGlzdF93b3JrID09ICJEb2Vzbid0IGJlbmVmaXQiKQpwcmludChzYW1wbGVfcHJvcHNfc21hbGwpCgojIFRoZSBudW1iZXIgb2YgIG9ic2VydmF0aW9ucyBpbiBzYW1wbGVfcHJvcHNfc21hbGwKbnVtX29icyA8LSBucm93KHNhbXBsZV9wcm9wc19zbWFsbCkKbnVtX29icwoKYGBgCiMjIyBFeGVyY2lzZSA2ClVzZSB0aGUgYXBwIGJlbG93IHRvIGNyZWF0ZSBzYW1wbGluZyBkaXN0cmlidXRpb25zIG9mIHByb3BvcnRpb25zIG9mIERvZXNu4oCZdCBiZW5lZml0IGZyb20gc2FtcGxlcyBvZiBzaXplIDEwLCA1MCwgYW5kIDEwMC4gVXNlIDUsMDAwIHNpbXVsYXRpb25zLiBXaGF0IGRvZXMgZWFjaCBvYnNlcnZhdGlvbiBpbiB0aGUgc2FtcGxpbmcgZGlzdHJpYnV0aW9uIHJlcHJlc2VudD8gSG93IGRvZXMgdGhlIG1lYW4sIHN0YW5kYXJkIGVycm9yLCBhbmQgc2hhcGUgb2YgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiBjaGFuZ2UgYXMgdGhlIHNhbXBsZSBzaXplIGluY3JlYXNlcz8gSG93IChpZiBhdCBhbGwpIGRvIHRoZXNlIHZhbHVlcyBjaGFuZ2UgaWYgeW91IGluY3JlYXNlIHRoZSBudW1iZXIgb2Ygc2ltdWxhdGlvbnM/IChZb3UgZG8gbm90IG5lZWQgdG8gaW5jbHVkZSBwbG90cyBpbiB5b3VyIGFuc3dlci4pCgpgYGB7ciBNZWFuLVNFX1NoYXBlfQpzZXQuc2VlZCgxMjMpCm51bV9zaW11bGF0aW9ucyA8LSA1MDAwCiMgU2FtcGxlIHNpemVzCnNhbXBsZV9zaXplcyA8LSBjKDEwLCA1MCwgMTAwKQojIENyZWF0ZSBhIGRhdGEgZnJhbWUgdG8gc3RvcmUgcmVzdWx0cwpyZXN1bHRzIDwtIGRhdGEuZnJhbWUoCiAgU2FtcGxlX1NpemUgPSBpbnRlZ2VyKCksCiAgU2ltdWxhdGlvbiA9IGludGVnZXIoKSwKICBNZWFuX1Byb3BvcnRpb24gPSBudW1lcmljKCksCiAgU3RhbmRhcmRfRXJyb3IgPSBudW1lcmljKCkKKQoKIyBQZXJmb3JtIHNpbXVsYXRpb25zIGZvciBlYWNoIHNhbXBsZSBzaXplCmZvciAoc2l6ZSBpbiBzYW1wbGVfc2l6ZXMpIHsKICBmb3IgKHNpbSBpbiAxOm51bV9zaW11bGF0aW9ucykgewogICAgIyBHZW5lcmF0ZSBhIHJhbmRvbSBzYW1wbGUgb2YgdGhlIHNwZWNpZmllZCBzaXplCiAgICBzYW1wbGVfZGF0YSA8LSBnbG9iYWxfbW9uaXRvciAlPiUKICAgICAgc2FtcGxlX24oc2l6ZSA9IHNpemUsIHJlcGxhY2UgPSBUUlVFKQogICAgCiAgICAjIENhbGN1bGF0ZSB0aGUgcHJvcG9ydGlvbiBvZiAiRG9lc24ndCBiZW5lZml0IiByZXNwb25zZXMKICAgIHByb3BvcnRpb24gPC0gbWVhbihzYW1wbGVfZGF0YSRzY2llbnRpc3Rfd29yayA9PSAiRG9lc24ndCBiZW5lZml0IikKICAgIAogICAgIyBDYWxjdWxhdGUgdGhlIHN0YW5kYXJkIGVycm9yCiAgICBzZSA8LSBzcXJ0KHByb3BvcnRpb24gKiAoMSAtIHByb3BvcnRpb24pIC8gc2l6ZSkKICAgIAogICAgIyBTdG9yZSB0aGUgcmVzdWx0cwogICAgcmVzdWx0cyA8LSByYmluZChyZXN1bHRzLCBkYXRhLmZyYW1lKFNhbXBsZV9TaXplID0gc2l6ZSwgU2ltdWxhdGlvbiA9IHNpbSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgTWVhbl9Qcm9wb3J0aW9uID0gcHJvcG9ydGlvbiwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgU3RhbmRhcmRfRXJyb3IgPSBzZSkpCiAgfQp9CgojIENyZWF0ZSBhIHN1bW1hcnkgcGxvdApnZ3Bsb3QocmVzdWx0cywgYWVzKHggPSBTYW1wbGVfU2l6ZSwgeSA9IE1lYW5fUHJvcG9ydGlvbikpICsKICBnZW9tX3BvaW50KCkgKwogIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBNZWFuX1Byb3BvcnRpb24gLSBTdGFuZGFyZF9FcnJvciwgeW1heCA9IE1lYW5fUHJvcG9ydGlvbiArIFN0YW5kYXJkX0Vycm9yKSwgCiAgICAgICAgICAgICAgICB3aWR0aCA9IDAuMikgKwogIGxhYnMoCiAgICB4ID0gIlNhbXBsZSBTaXplIiwKICAgIHkgPSAiTWVhbiBQcm9wb3J0aW9uIG9mICdEb2Vzbid0IGJlbmVmaXQnIiwKICAgIHRpdGxlID0gIkVmZmVjdCBvZiBTYW1wbGUgU2l6ZSBvbiBNZWFuIFByb3BvcnRpb24gKHdpdGggU3RhbmRhcmQgRXJyb3IpIgogICkKCmBgYAoKQXMgc2FtcGxlIGlzIGxhcmdlciwgdGhlIG1lYW4gcHJvcG9ydGlvbiBiZWNvbWVzIG1vcmUgcHJlY2lzZSwgdGhlIHN0YW5kYXJkIGVycm9yIGRlY3JlYXNlcyBhbmQgdGVuZHMgdG8gdGhlIHRydWUgcG9wdWxhdGlvbiBwcm9wb3J0aW9uLiAKCiMjIyBFeGVyY2lzZSA3ClRha2UgYSBzYW1wbGUgb2Ygc2l6ZSAxNSBmcm9tIHRoZSBwb3B1bGF0aW9uIGFuZCBjYWxjdWxhdGUgdGhlIHByb3BvcnRpb24gb2YgcGVvcGxlIGluIHRoaXMgc2FtcGxlIHdobyB0aGluayB0aGUgd29yayBzY2llbnRpc3RzIGRvIGVuaGFuY2VzIHRoZWlyIGxpdmVzLiBVc2luZyB0aGlzIHNhbXBsZSwgd2hhdCBpcyB5b3VyIGJlc3QgcG9pbnQgZXN0aW1hdGUgb2YgdGhlIHBvcHVsYXRpb24gcHJvcG9ydGlvbiBvZiBwZW9wbGUgd2hvIHRoaW5rIHRoZSB3b3JrIHNjaWVudGlzdHMgZG8gZW5jaGFuY2VzIHRoZWlyIGxpdmVzPwoKVGhlIHZhbHVlIG9mICBwX2hhdCA9IDAuNzMgYmVzdCBwb2ludCBlc3RpbWF0ZSBvZiB0aGUgcG9wdWxhdGlvbiBwcm9wb3J0aW9uIG9mIHBlb3BsZSB3aG8gdGhpbmsgdGhlIHdvcmsgc2NpZW50aXN0cyBkbyBlbmhhbmNlcyB0aGVpciBsaXZlcyBiYXNlZCBvbiB0aGlzIHNwZWNpZmljIHNhbXBsZSBvZiAxNSBpbmRpdmlkdWFscy4KCmBgYHtyIHNtYWxsZXItc2FtcGxlc30KIyBBIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiBvZiAyNSBzYW1wbGUgcHJvcG9ydGlvbnMgZnJvbSBzYW1wbGVzIG9mIHNpemUgMTAKcHJvcG9ydGlvbl9vZl9wZW9wbGUgPC0gZ2xvYmFsX21vbml0b3IgJT4lCiAgc2FtcGxlX24oc2l6ZSA9IDE1KSAlPiUKICBjb3VudChzY2llbnRpc3Rfd29yaykgJT4lCiAgbXV0YXRlKHBfaGF0ID0gbiAvIHN1bShuKSkgJT4lCiAgZmlsdGVyKHNjaWVudGlzdF93b3JrID09ICJCZW5lZml0cyIpCnByaW50KHByb3BvcnRpb25fb2ZfcGVvcGxlKQpgYGAKCiMjIyBFeGVyY2lzZSA4ClNpbmNlIHlvdSBoYXZlIGFjY2VzcyB0byB0aGUgcG9wdWxhdGlvbiwgc2ltdWxhdGUgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiBvZiBwcm9wb3J0aW9uIG9mIHRob3NlIHdobyB0aGluayB0aGUgd29yayBzY2llbnRpc3RzIGRvIGVuaGFuY2VzIHRoZWlyIGxpdmVzIGZvciBzYW1wbGVzIG9mIHNpemUgMTUgYnkgdGFraW5nIDIwMDAgc2FtcGxlcyBmcm9tIHRoZSBwb3B1bGF0aW9uIG9mIHNpemUgMTUgYW5kIGNvbXB1dGluZyAyMDAwIHNhbXBsZSBwcm9wb3J0aW9ucy4gU3RvcmUgdGhlc2UgcHJvcG9ydGlvbnMgaW4gYXMgc2FtcGxlX3Byb3BzMTUuIFBsb3QgdGhlIGRhdGEsIHRoZW4gZGVzY3JpYmUgdGhlIHNoYXBlIG9mIHRoaXMgc2FtcGxpbmcgZGlzdHJpYnV0aW9uLiBCYXNlZCBvbiB0aGlzIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiwgd2hhdCB3b3VsZCB5b3UgZ3Vlc3MgdGhlIHRydWUgcHJvcG9ydGlvbiBvZiB0aG9zZSB3aG8gdGhpbmsgdGhlIHdvcmsgc2NpZW50aXN0cyBkbyBlbmhhbmNlcyB0aGVpciBsaXZlcyB0byBiZT8gRmluYWxseSwgY2FsY3VsYXRlIGFuZCByZXBvcnQgdGhlIHBvcHVsYXRpb24gcHJvcG9ydGlvbi4KCmBgYHtyIHNpbXVsYXRlLUJlbmVmaXRzfQpzZXQuc2VlZCgxMjMpCiMgTnVtYmVyIG9mIHNpbXVsYXRpb25zCm51bV9zaW11bGF0aW9ucyA8LSAyMDAwCgojIENyZWF0ZSBhIGRhdGEgZnJhbWUgdG8gc3RvcmUgcmVzdWx0cwpSZXBvcnQgPC0gZGF0YS5mcmFtZSgKICBTaW11bGF0aW9uID0gaW50ZWdlcigpLAogIE1lYW5fUHJvcG9ydGlvbiA9IG51bWVyaWMoKQopCgojIFBlcmZvcm0gc2ltdWxhdGlvbnMgZm9yIGVhY2ggc2FtcGxlIHNpemUKICBmb3IgKHNpbSBpbiAxOm51bV9zaW11bGF0aW9ucykgewogICAgIyBHZW5lcmF0ZSBhIHJhbmRvbSBzYW1wbGUgb2YgdGhlIHNwZWNpZmllZCBzaXplCiAgICBzYW1wbGVfZGF0YSA8LSBnbG9iYWxfbW9uaXRvciAlPiUKICAgICAgc2FtcGxlX24oc2l6ZSA9IDE1LCByZXBsYWNlID0gVFJVRSkKICAgIAogICAgIyBDYWxjdWxhdGUgdGhlIHByb3BvcnRpb24gb2YgIkJlbmVmaXRzIiByZXNwb25zZXMKICAgIHNhbXBsZV9wcm9wczE1IDwtIG1lYW4oc2FtcGxlX2RhdGEkc2NpZW50aXN0X3dvcmsgPT0gIkJlbmVmaXRzIikKICAgICMgU3RvcmUgdGhlIHJlc3VsdHMKICAgIFJlcG9ydCA8LSByYmluZChSZXBvcnQsIGRhdGEuZnJhbWUoU2ltdWxhdGlvbiA9IHNpbSwgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgTWVhbl9Qcm9wb3J0aW9uID0gc2FtcGxlX3Byb3BzMTUpKQogIH0KCmhlYWQoUmVwb3J0KQojIENyZWF0ZSBhIGhpc3RvZ3JhbSB0byB2aXN1YWxpemUgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbgpoaXN0KFJlcG9ydCRNZWFuX1Byb3BvcnRpb24sIGJyZWFrcyA9IDIwLCBtYWluID0gIlNhbXBsaW5nIERpc3RyaWJ1dGlvbiAoU2FtcGxlIFNpemUgMTUpIiwKICAgICB4bGFiID0gIlNhbXBsZSBQcm9wb3J0aW9uIG9mICdCZW5lZml0cyciLCB5bGFiID0gIkZyZXF1ZW5jeSIpCgpgYGAKCiMjIyBFeGVyY2lzZSA5CkNoYW5nZSB5b3VyIHNhbXBsZSBzaXplIGZyb20gMTUgdG8gMTUwLCB0aGVuIGNvbXB1dGUgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiB1c2luZyB0aGUgc2FtZSBtZXRob2QgYXMgYWJvdmUsIGFuZCBzdG9yZSB0aGVzZSBwcm9wb3J0aW9ucyBpbiBhIG5ldyBvYmplY3QgY2FsbGVkIHNhbXBsZV9wcm9wczE1MC4gRGVzY3JpYmUgdGhlIHNoYXBlIG9mIHRoaXMgc2FtcGxpbmcgZGlzdHJpYnV0aW9uIGFuZCBjb21wYXJlIGl0IHRvIHRoZSBzYW1wbGluZyBkaXN0cmlidXRpb24gZm9yIGEgc2FtcGxlIHNpemUgb2YgMTUuIEJhc2VkIG9uIHRoaXMgc2FtcGxpbmcgZGlzdHJpYnV0aW9uLCB3aGF0IHdvdWxkIHlvdSBndWVzcyB0byBiZSB0aGUgdHJ1ZSBwcm9wb3J0aW9uIG9mIHRob3NlIHdobyB0aGluayB0aGUgd29yayBzY2llbnRpc3RzIGRvIGVuY2hhbmNlcyB0aGVpciBsaXZlcz8KCmBgYHtyIHNhbXBsZS0xNTB9CgpudW1fc2ltdWxhdGlvbnMgPC0gMjAwMAoKIyBDcmVhdGUgYSBkYXRhIGZyYW1lIHRvIHN0b3JlIHNhbXBsZSBwcm9wb3J0aW9ucwpzYW1wbGVfcHJvcHMxNTAgPC0gZGF0YS5mcmFtZSgKICBTaW11bGF0aW9uID0gaW50ZWdlcigpLAogIE1lYW5fUHJvcG9ydGlvbiA9IG51bWVyaWMoKQopCgojIFBlcmZvcm0gc2ltdWxhdGlvbnMKZm9yIChzaW0gaW4gMTpudW1fc2ltdWxhdGlvbnMpIHsKICAjIEdlbmVyYXRlIGEgcmFuZG9tIHNhbXBsZSBvZiBzaXplIDE1MCBmcm9tIHRoZSBwb3B1bGF0aW9uCiAgc2FtcGxlX2RhdGEgPC0gZ2xvYmFsX21vbml0b3IgJT4lCiAgICBzYW1wbGVfbihzaXplID0gMTUwLCByZXBsYWNlID0gVFJVRSkKICAKICAjIENhbGN1bGF0ZSB0aGUgcHJvcG9ydGlvbiBvZiAiQmVuZWZpdHMiIHJlc3BvbnNlcyBpbiB0aGUgc2FtcGxlCiAgc2FtcGxlX3Byb3BvcnRpb24gPC0gbWVhbihzYW1wbGVfZGF0YSRzY2llbnRpc3Rfd29yayA9PSAiQmVuZWZpdHMiKQogIAogICMgU3RvcmUgdGhlIHJlc3VsdHMKICBzYW1wbGVfcHJvcHMxNTAgPC0gcmJpbmQoc2FtcGxlX3Byb3BzMTUwLCBkYXRhLmZyYW1lKFNpbXVsYXRpb24gPSBzaW0sIFNhbXBsZV9Qcm9wb3J0aW9uID0gc2FtcGxlX3Byb3BvcnRpb24pKQp9CgojIENyZWF0ZSBhIGhpc3RvZ3JhbSB0byB2aXN1YWxpemUgdGhlIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbgpoaXN0KHNhbXBsZV9wcm9wczE1MCRTYW1wbGVfUHJvcG9ydGlvbiwgYnJlYWtzID0gMjAsIG1haW4gPSAiU2FtcGxpbmcgRGlzdHJpYnV0aW9uIChTYW1wbGUgU2l6ZSAxNTApIiwKICAgICB4bGFiID0gIlNhbXBsZSBQcm9wb3J0aW9uIG9mICdCZW5lZml0cyciLCB5bGFiID0gIkZyZXF1ZW5jeSIpCgpgYGAKCkFzIHRoZSBzYW1wbGUgaXMgbGFyZ2VyLCB0aGUgdHJ1ZSBwcm9wb3J0aW9uIG9mIHRob3NlIHdobyB0aGluayB0aGUgd29yayBzY2llbnRpc3RzIGRvIGVuaGFuY2VzIHRoZWlyIGxpdmVzIHRvIGJlIG1vcmUgYWNjdXJhdGVseSBlc3RpbWF0ZWQgYW5kIGNsb3NlciB0byB0aGUgY2VudGVyIG9mIHRoZSBkaXN0cmlidXRpb24uIAoKIyMjIEV4ZXJjaXNlIDEwCk9mIHRoZSBzYW1wbGluZyBkaXN0cmlidXRpb25zIGZyb20gMiBhbmQgMywgd2hpY2ggaGFzIGEgc21hbGxlciBzcHJlYWQ/IElmIHlvdeKAmXJlIGNvbmNlcm5lZCB3aXRoIG1ha2luZyBlc3RpbWF0ZXMgdGhhdCBhcmUgbW9yZSBvZnRlbiBjbG9zZSB0byB0aGUgdHJ1ZSB2YWx1ZSwgd291bGQgeW91IHByZWZlciBhIHNhbXBsaW5nIGRpc3RyaWJ1dGlvbiB3aXRoIGEgbGFyZ2Ugb3Igc21hbGwgc3ByZWFkPwoKCkkgZG8gcHJlZmVyIHRvIGEgc21hbGxlciBzcHJlYWQgb2Ygc2FtcGxpbmcgZGlzdHJpYnV0aW9uIGJlY2F1c2UgdGhlIGVzdGltYXRlcyAoc2FtcGxlIHByb3BvcnRpb25zKSBhcmUgbW9yZSBjbG9zZXIgdG8gdGhlIHRydWUgcG9wdWxhdGlvbiBwYXJhbWV0ZXIsIGFuZCB0aGVyZSBpcyBsZXNzIHZhcmlhYmlsaXR5IG9yIHVuY2VydGFpbnR5IGluIHRoZSBlc3RpbWF0ZXMsIGJ1dCBoaWdoZXIgbGV2ZWwgb2YgcHJlY2lzaW9uIHdpdGggbGFyZ2VyIHNhbXBsZSBzaXplcy4KCgo=