Climate Penalties and Scarcity Pressure in Brazil’s Power Sector
Thiago Gardin & Daniel Danna
2025-10-06
- Pacotes
- 1. Introduction
- 2. Data Preparation
- 3.1 Modelo 1 — GAM “clima‑apenas” (baseline)
- 3.2 Modelo 2 — Geração Hidrelétrica como Função do Armazenamento
- (3) Incerteza via Delta Method ———————————————
- 3.3 Modelo 3 — Geração Termica como Função da Geração Hidrelétrica
- Modelo 3 PLD: Custo para o sistema
Pacotes
# Carregar pacotes-base do projetoMensagen de aviso:
In file.info(path, extra_cols = FALSE) :
não é possível abrir o arquivo 'C:/Users/thiago.gardin/AppData/Local/Microsoft/WindowsApps/PythonSoftwareFoundation.Python.3.11_qbz5n2kfra8p0/python.exe': Não é possível o acesso ao arquivo pelo sistema# Manipulação e datas
library(tidyverse);library(data.table);library(lubridate);library(patchwork);library(Hmisc)Aviso: pacote ‘ggplot2’ foi compilado no R versão 4.4.3
Aviso: pacote ‘purrr’ foi compilado no R versão 4.4.3── Attaching core tidyverse packages ──────────────────────────────────────────────────────────── tidyverse 2.0.0 ──
✔ dplyr 1.1.4 ✔ readr 2.1.5
✔ forcats 1.0.0 ✔ stringr 1.5.1
✔ ggplot2 3.5.2 ✔ tibble 3.2.1
✔ lubridate 1.9.3 ✔ tidyr 1.3.1
✔ purrr 1.1.0
── Conflicts ────────────────────────────────────────────────────────────────────────────── tidyverse_conflicts() ──
✖ dplyr::filter() masks stats::filter()
✖ dplyr::lag() masks stats::lag()
ℹ Use the ]8;;http://conflicted.r-lib.org/conflicted package]8;; to force all conflicts to become errorsAviso: pacote ‘data.table’ foi compilado no R versão 4.4.3
data.table 1.17.8 usando 12 threads (veja ?getDTthreads). Últimas notícias: r-datatable.com
**********
Executando data.table em português; o suporte ao pacote está disponível apenas em inglês. Ao procurar ajuda online, certifique-se de verificar também a mensagem de erro em inglês. Isso pode ser obtido examinando os arquivos po/R-pt_BR.po e po/pt_BR.po no código-fonte do pacote, onde as mensagens de erro no idioma nativo e em inglês podem ser encontradas lado a lado. You can also try calling Sys.setLanguage('en') prior to reproducing the error message.
**********
Anexando pacote: ‘data.table’
Os seguintes objetos são mascarados por ‘package:lubridate’:
hour, isoweek, mday, minute, month, quarter, second, wday, week, yday, year
Os seguintes objetos são mascarados por ‘package:dplyr’:
between, first, last
O seguinte objeto é mascarado por ‘package:purrr’:
transpose
Registered S3 method overwritten by 'htmlwidgets':
method from
print.htmlwidget tools:rstudio
Anexando pacote: ‘Hmisc’
Os seguintes objetos são mascarados por ‘package:dplyr’:
src, summarize
Os seguintes objetos são mascarados por ‘package:base’:
format.pval, units# Modelagem
library(mgcv);library(gratia);library(lubridate);library(modelsummary);library(gt);library(glue);library(scales);library(broom);library(broom.helpers);library(geobr)Carregando pacotes exigidos: nlme
Anexando pacote: ‘nlme’
O seguinte objeto é mascarado por ‘package:dplyr’:
collapse
This is mgcv 1.9-1. For overview type 'help("mgcv-package")'.
Aviso: pacote ‘gratia’ foi compilado no R versão 4.4.3
Anexando pacote: ‘gratia’
O seguinte objeto é mascarado por ‘package:stringr’:
boundary
Aviso: pacote ‘modelsummary’ foi compilado no R versão 4.4.3
Anexando pacote: ‘modelsummary’
O seguinte objeto é mascarado por ‘package:Hmisc’:
Mean
Anexando pacote: ‘gt’
O seguinte objeto é mascarado por ‘package:Hmisc’:
html
Anexando pacote: ‘scales’
O seguinte objeto é mascarado por ‘package:purrr’:
discard
O seguinte objeto é mascarado por ‘package:readr’:
col_factor
Aviso: pacote ‘broom.helpers’ foi compilado no R versão 4.4.3
Aviso: pacote ‘geobr’ foi compilado no R versão 4.4.3# Utilidades
library(scales);library(patchwork);library(knitr);library(kableExtra)
Anexando pacote: ‘kableExtra’
O seguinte objeto é mascarado por ‘package:dplyr’:
group_rows# Definir opções globais de knitr
knitr::opts_chunk$set(
echo = TRUE,
message = TRUE,
warning = TRUE,
dpi = 120,
fig.align = "center",
fig.width = 12,
fig.height = 8
)
# Tema visual padrão
theme_article <- function(){
theme_minimal(base_size = 11) +
theme(
plot.title = element_text(face="bold"),
plot.subtitle = element_text(margin=margin(b=6)),
plot.caption = element_text(size=9, color="grey30"),
axis.title = element_text(),
panel.grid.minor = element_blank(),
legend.position = "top"
)
}
theme_set(theme_article())
set.seed(1234)predict_gam_ci <- function(model, newdata, type = "link", level = 0.95){
stopifnot(inherits(model, "gam"))
pr <- predict(model, newdata = newdata, type = type, se.fit = TRUE)
alpha <- 1 - level
crit <- qnorm(1 - alpha/2)
tibble(
.fitted = as.numeric(pr$fit),
.se = as.numeric(pr$se.fit),
.lower = .fitted - crit*.se,
.upper = .fitted + crit*.se
)
}
export_figure <- function(p, filename, width = 7, height = 4.2){
ggsave(glue("figures/{filename}.pdf"), plot = p, width = width, height = height, dpi = 300, device = cairo_pdf)
ggsave(glue("figures/{filename}.eps"), plot = p, width = width, height = height, dpi = 300, device = "eps")
ggsave(glue("figures/{filename}.tiff"),plot = p, width = width, height = height, dpi = 600, compression = "lzw")
invisible(NULL)
}
export_table <- function(gt_obj, filename){
gtsave(gt_obj, filename = glue("tables/{filename}.html"))
# PNG (precisa webshot2 instalado/configurado)
try(gtsave(gt_obj, filename = glue("tables/{filename}.png")))
# LaTeX
try(gtsave(gt_obj, filename = glue("tables/{filename}.tex")))
invisible(NULL)
}
# Estilo padrão de tabela
gt_article <- function(dat, title = NULL, subtitle = NULL, note = NULL){
dat %>%
gt() %>%
tab_header(title = md(title %||% ""), subtitle = md(subtitle %||% "")) %>%
fmt_number(where(is.numeric), decimals = 2) %>%
tab_options(table.font.size = px(12)) %>%
opt_horizontal_padding(scale = 1.1) %>%
opt_vertical_padding(scale = 1.1) %>%
tab_source_note(md(note %||% "Notes: Author’s calculations."))
}1. Introduction
This report documents the analytical pipeline developed to estimate the climatic penalty (penalidade climática) on Brazil’s electricity sector and to translate these effects into measurable economic costs. The analysis was conducted using monthly data from 2001 to 2019, covering all four subsystems of the National Interconnected System (SIN).
The study proceeds through the following steps:
Hydrological modelling — We estimated the relationship between climatic variables (precipitation, temperature, humidity, wind) and stored energy (EAR) and hydroelectric generation using Generalized Additive Models (GAMs). These models capture non-linear climate–hydrology interactions and seasonal effects at the subsystem level.
Climatic counterfactuals — Using the fitted GAMs, we simulated counterfactual trajectories fixing the climatic covariates at their historical mean levels (baseline 2001–2005). The deviation between observed and counterfactual values isolates the share of variation attributable exclusively to climate variability.
Climate penalty (ΔE) — The climate penalty was defined as \(ΔE=E_{predicted}−E_{cf}\) representing the loss (or gain) of hydro generation due solely to climatic fluctuations.
Elasticities — We derived elasticities linking generation to hydrological and climatic conditions, and demand to price and income, to assess sensitivity and potential transmission channels of climatic shocks.
Cost translation — The estimated penalties were converted into monetary terms along three cost dimensions:
Consumers: additional expenditure due to replacement of cheaper hydro generation by more expensive sources;
Electricity sector: higher spot market prices (PLD) and operational costs;
This empirical pipeline links climate variability, hydrological performance, and economic outcomes through a unified statistical framework, enabling a multidimensional valuation of climate-related risks in a hydro-dependent power system.
2. Data Preparation
This section describes the construction of the analytical dataset
used to estimate the climatic penalty.
All variables were harmonized at the subsystem–day
level between 2001 and 2019, integrating hydrological, climatic, and
market information.
2.1 Data Sources
Hydropower generation (plant-day): daily generation data compiled from ONS records, aggregated by subsystem.
Reservoir levels and natural inflows (EAR and ENA): subsystem-level daily data from ONS.
Climatic variables: precipitation and temperature obtained from the ECMWF/CAMS reanalysis dataset, interpolated to match subsystem centroids.
Spot price (PLD): weekly subsystem data from CCEE.
Demand and generation dispatch by source: monthly or weekly data from ONS and EPE.
All datasets were pre-processed to align date formats, harmonize variable names, and remove inconsistent or missing identifiers.
2.2 Data Loading and Cleaning
# Load core datasets
ger <- read.csv("base_gera_tratada_set.csv") # plant-day generation
pld <- read.csv("preco_semanal.csv") # weekly spot price (PLD)
reserv <- read.csv("ena_ear_hidr_ceg_amb.csv") # reservoir levels & inflows (EAR/ENA)# Convert character columns to factors
ger <- ger %>% mutate(across(where(is.character), as.factor))
reserv <- reserv %>% mutate(across(where(is.character), as.factor))
pld <- pld %>% mutate(across(where(is.character), as.factor))
# --- Date parsing and temporal variables ---
ger$date <- as.Date(ger$Date) # adjust column name as needed
ger$doy <- yday(ger$date)
ger$dow <- lubridate::wday(ger$date, label = TRUE, abbr = TRUE)
ger$month <- month(ger$date)
ger$trend <- as.numeric(ger$date)
reserv$date <- as.Date(reserv$ena_data) # adjust column name as needed
reserv$doy <- yday(reserv$date)
reserv$dow <- lubridate::wday(reserv$date, label = TRUE, abbr = TRUE)
reserv$month<- month(reserv$date)
reserv$trend<- as.numeric(reserv$date)
pld$date <- as.Date(pld$DATA_INICIO) # adjust column name as needed
pld$week <- isoweek(pld$date)
pld$year <- year(pld$date)
duplicadas <- duplicated(as.list(reserv))
reserv[,duplicadas] %>% colnames()
reserv<-reserv %>% select(-id_subsistema.x.x,-id_subsistema.y.y,-nom_bacia.x,-nom_bacia.x,-nom_ree.x,-nom_ree.y,-nom_usina.x,-nom_subsistema.y.y,-nom_bacia.y)2.3 Temporal Smoothing and Rolling Means
To reduce short-term noise and capture cumulative climatic effects, we computed rolling means (7, 14, and 30 days) for key hydrological and climatic variables.
library(zoo)
Anexando pacote: ‘zoo’
Os seguintes objetos são mascarados por ‘package:data.table’:
yearmon, yearqtr
Os seguintes objetos são mascarados por ‘package:base’:
as.Date, as.Date.numericlibrary(dplyr)
##diag_groups <- reserv %>%filter(tip_reservatorio=="Reservatório com Usina") %>%
# group_by(nom_reservatorio.x,id_reservatorio.x,tip_reservatorio) %>%
# summarise(
# n_total = n(),
# n_non_na_precip = sum(!is.na(preciptation)),
# n_non_na_temp = sum(!is.na(temperature)),
# n_non_na_ena = sum(!is.na(ena_bruta_res_mwmed)),
# n_non_na_ear = sum(!is.na(ear_reservatorio_subsistema_proprio_mwmes)),
# n_non_na_ger = sum(!is.na(val_geracao)),
# .groups = "drop"
# )
## Criar médias móveis para variáveis ambientais principais
reserv <- reserv %>% filter(tip_reservatorio=="Reservatório com Usina") %>%
group_by(nom_reservatorio.x) %>%
arrange(date, .by_group = TRUE) %>%
mutate(
# Precipitation (usa nome 'preciptation' como está na sua base)
#precip_mm7 = rollmean(preciptation, 7),
precip_mm14 = rollmean(preciptation, 14,fill = NA, align = "right"),
precip_mm30 = rollmean(preciptation, 30,fill = NA, align = "right"),
# Temperature
temp_mm7 = rollmean(temperature, 7,fill = NA, align = "right"),
temp_mm14 = rollmean(temperature, 14,fill = NA, align = "right"),
temp_mm30 = rollmean(temperature, 30,fill = NA, align = "right"),
# ENA
ena_mw7 = rollmean(ena_bruta_res_mwmed, 7,fill = NA, align = "right"),
#ena_mw14 = roll_mean_right(ena_bruta_res_mwmed, 14),
#ena_mw30 = roll_mean_right(ena_bruta_res_mwmed, 30),
# EAR (proprietário) — removeu fill="extend" (não suportado)
# ear_mw7 = roll_mean_right(ear_reservatorio_subsistema_proprio_mwmes, 7),
# Geração
ger_mw7 = rollmean(val_geracao, 7,fill = NA, align = "right"),
ger_mw14 = rollmean(val_geracao, 14,fill = NA, align = "right"),
ger_mw30 = rollmean(val_geracao, 30,fill = NA, align = "right")
) %>%
ungroup()
#diag_groups %>% filter(nom_reservatorio.x=="A. VERMELHA")
#
#reserv %>% filter(nom_reservatorio.x=="A. VERMELHA") %>%
# ggplot(aes(preciptation))+geom_line(aes(x=date,y=preciptation),col="lightblue")
# select(date,nom_estado,val_geracao,preciptation,
# #earmax_reservatorio_subsistema_jusante_mwmes,ear_reservatorio_subsistema_proprio_mwmes,ear_maxima_total_mwmes) %>% summary# --- Conferir chaves principais ---
# verificar se datas e subsistemas batem
cat("Datas disponíveis:\n")Datas disponíveis:range(ger$date, na.rm=TRUE)[1] "2000-01-01" "2018-12-31"range(reserv$date, na.rm=TRUE)[1] "2000-01-01" "2018-12-31"range(pld$date, na.rm=TRUE)[1] "2001-06-30" "2025-05-24"2.4 Descriptive Summaries
library(dplyr)
library(tidyr)
library(gt)
library(purrr)
library(stringr)
# Helper: seleciona as variáveis exatas pedidas, se existirem no dataset
select_desc_vars <- function(df){
wanted <- tidyselect::vars_select(
names(df),
starts_with("ear"),
starts_with("tem"),
starts_with("pre"),
starts_with("ger"),
val_geracao,
val_geracao_day_subsistema,
humidity,
wind_speed
)
df %>% dplyr::select(nom_subsistema.x, dplyr::all_of(wanted))
}
# Helper: sumariza estatísticas para um data.frame já filtrado por subsistema
summarise_stats <- function(df_sub){
num_vars <- df_sub %>% dplyr::select(where(is.numeric))
dplyr::summarise(
num_vars,
dplyr::across(
.cols = everything(),
.fns = list(
Mean = ~mean(., na.rm = TRUE),
SD = ~sd(., na.rm = TRUE),
Min = ~min(., na.rm = TRUE),
Max = ~max(., na.rm = TRUE)
),
.names = "{.col}__{.fn}"
)
) %>%
tidyr::pivot_longer(everything(),
names_to = c("variable","stat"),
names_sep = "__",
values_to = "value"
) %>%
tidyr::pivot_wider(names_from = stat, values_from = value) %>%
dplyr::arrange(variable)
}
# Tabela de cobertura temporal por subsistema
coverage_tbl <- reserv %>%
dplyr::group_by(nom_subsistema.x) %>%
dplyr::summarise(
observations = dplyr::n_distinct(id_reservatorio.x),
start_date = min(date, na.rm = TRUE),
end_date = max(date, na.rm = TRUE),
.groups = "drop"
)
tab_cov <- gt_article(
coverage_tbl,
title = "**Table A. Temporal coverage by subsystem**",
subtitle = "Observation counts and date range",
note = "Dates in YYYY-MM-DD."
) %>%
gt::cols_label(
nom_subsistema.x = "Subsystem",
observations= "N of Reservoirs",
start_date = "Start",
end_date = "End"
)
export_table(tab_cov, "TabA_Coverage_bySubsystem")file:///C:/Users/THIAGO~1.GAR/AppData/Local/Temp/Rtmp0QvxLq/fileaecc5dda2683.html screenshot completedtab_cov| Table A. Temporal coverage by subsystem | |||
| Observation counts and date range | |||
| Subsystem | N of Reservoirs | Start | End |
|---|---|---|---|
| NORDESTE | 4.00 | 2000-01-01 | 2018-12-31 |
| NORTE | 3.00 | 2000-01-01 | 2018-12-31 |
| SUDESTE | 40.00 | 2000-01-01 | 2018-12-31 |
| SUL | 13.00 | 2000-01-01 | 2018-12-31 |
| Dates in YYYY-MM-DD. | |||
# Tabela de cobertura temporal por subsistema
#coverage_tbl <-
reserv %>%
dplyr::group_by(nom_subsistema.x) %>%
dplyr::summarise(
Mean_geracao=mean(val_geracao, na.rm = TRUE),
SD_geracao=mean(val_geracao, na.rm = TRUE),
Min_geracao = min(val_geracao, na.rm = TRUE),
Max_geracao = max(val_geracao, na.rm = TRUE),
Mean_EAR=mean(ear_reservatorio_subsistema_proprio_mwmes, na.rm = TRUE),
SD_EAR=mean(ear_reservatorio_subsistema_proprio_mwmes, na.rm = TRUE),
Min_EAR = min(ear_reservatorio_subsistema_proprio_mwmes, na.rm = TRUE),
Max_EAR = max(ear_reservatorio_subsistema_proprio_mwmes, na.rm = TRUE),
Mean_precipmm30=mean(precip_mm30, na.rm = TRUE),
SD_precipmm30=mean(precip_mm30, na.rm = TRUE),
Min_precipmm30 = min(precip_mm30, na.rm = TRUE),
Max_precipmm30 = max(precip_mm30, na.rm = TRUE),
Mean_tempmm7=mean(temp_mm7, na.rm = TRUE),
SD_tempmm7=mean(temp_mm7, na.rm = TRUE),
Min_tempmm7 = min(temp_mm7, na.rm = TRUE),
Max_tempmm7 = max(temp_mm7, na.rm = TRUE),
Mean_humidity=mean(humidity, na.rm = TRUE),
SD_humidity=mean(humidity, na.rm = TRUE),
Min_humidity = min(humidity, na.rm = TRUE),
Max_humidity = max(humidity, na.rm = TRUE),
Mean_wind=mean(wind_speed, na.rm = TRUE),
SD_wind=mean(wind_speed, na.rm = TRUE),
Min_wind = min(wind_speed, na.rm = TRUE),
Max_wind = max(wind_speed, na.rm = TRUE),
.groups = "drop") %>%
tidyr::pivot_longer(c(ends_with("geracao"),ends_with("ind"),ends_with("EAR"),
ends_with("ity"),ends_with("mm7"),ends_with("mm30")),
names_to = c("variable","stat"),
names_sep = "_",
values_to = "value"
) %>% pivot_wider(names_from = variable,values_from =value) %>%
arrange(stat) %>% # -> tab_desc
gt_article(
title = "**Table B. Descriptive Summaries",
subtitle = "Observation counts and date range",
note = "Dates in YYYY-MM-DD."
) %>%
gt::cols_label(
nom_subsistema.x = "Subsystem",
stat= "Variable",
Mean = "Mean",
SD = "SD",Min= "Min","Max"= "Max"
)| **Table B. Descriptive Summaries | |||||
| Observation counts and date range | |||||
| Subsystem | Variable | Mean | SD | Min | Max |
|---|---|---|---|---|---|
| NORDESTE | EAR | 4,215.43 | 4,215.43 | 0.00 | 30,636.00 |
| NORTE | EAR | 2,256.72 | 2,256.72 | 0.00 | 8,410.00 |
| SUDESTE | EAR | 3,017.87 | 3,017.87 | −2.28 | 34,874.00 |
| SUL | EAR | 1,176.26 | 1,176.26 | 0.00 | 6,156.00 |
| NORDESTE | geracao | 326.77 | 326.77 | 0.00 | 1,383.96 |
| NORTE | geracao | 1,696.76 | 1,696.76 | 0.00 | 7,630.90 |
| SUDESTE | geracao | 287.02 | 287.02 | 0.00 | 2,819.08 |
| SUL | geracao | 367.38 | 367.38 | 0.00 | 1,656.65 |
| NORDESTE | humidity | 72.31 | 72.31 | 32.75 | 98.50 |
| NORTE | humidity | 84.21 | 84.21 | 42.50 | 99.25 |
| SUDESTE | humidity | 73.01 | 73.01 | 21.00 | 100.00 |
| SUL | humidity | 82.37 | 82.37 | 39.50 | 100.00 |
| NORDESTE | precipmm30 | 1.93 | 1.93 | 0.00 | 20.73 |
| NORTE | precipmm30 | 5.35 | 5.35 | 0.00 | 23.57 |
| SUDESTE | precipmm30 | 3.37 | 3.37 | 0.00 | 20.20 |
| SUL | precipmm30 | 4.69 | 4.69 | 0.00 | 22.40 |
| NORDESTE | tempmm7 | 25.77 | 25.77 | 19.91 | 31.93 |
| NORTE | tempmm7 | 27.16 | 27.16 | 24.21 | 32.02 |
| SUDESTE | tempmm7 | 23.09 | 23.09 | 10.35 | 33.40 |
| SUL | tempmm7 | 18.44 | 18.44 | 3.30 | 28.18 |
| NORDESTE | wind | 4.27 | 4.27 | 0.70 | 9.40 |
| NORTE | wind | 2.19 | 2.19 | 0.52 | 5.05 |
| SUDESTE | wind | 2.56 | 2.56 | 0.35 | 9.05 |
| SUL | wind | 2.97 | 2.97 | 0.42 | 9.88 |
| Dates in YYYY-MM-DD. | |||||
#export_table(tab_cov, "TabA_Coverage_bySubsystem")
#tab_cov
reserv %>% select(starts_with("ena"),
starts_with("ear"),starts_with("tem"),starts_with("pre"),starts_with("ger"),
val_geracao,val_geracao_day_subsistema,humidity,wind_speed) %>% stargazer::stargazer(type="text")
pld %>% stargazer::stargazer(type="text")
ger %>% select(val_geracao,nom_tipocombustivel,nom_tipousina=as.factor(nom_tipousina)) %>% summary
[Gráficos rápidos: séries ENA, precipitação, temperatura, EAR, geração]
# --- Gráficos rápidos (EDA) ---
library(ggplot2)
# Série ENA/Reservatórios
plot_ena<-reserv %>% group_by(date) %>% summarise(ear_mw7=mean(ear_reservatorio_subsistema_proprio_mwmes,na.rm = T)) %>%
ggplot(aes(x=date, y=ear_mw7)) +
geom_line(color="steelblue") +geom_smooth()+
labs(title="Energia Armazenada (EAR) bruta (MWmed)", x="", y="MWmed")
# Série EAR
plot_ear<-reserv %>% group_by(date) %>% summarise(ena_mw7=mean(ena_mw7,na.rm = T)) %>%
ggplot(aes(x=date, y=ena_mw7)) +
geom_line(color="darkgreen") +geom_smooth()+
labs(title="Energia Natural Afluente (ENA) total (MWmês)", x="", y="MWmês")
# Série de geração
plot_ger<-reserv %>% group_by(date) %>% summarise(ger_mw7=mean(ger_mw7,na.rm = T)) %>%
ggplot(aes(x=date, y=ger_mw7)) +
geom_line(color="grey30") +geom_smooth()+
labs(title="Geração hidrelétrica (MWh/dia)", x="", y="MWh")
# --- Correlações rápidas ---
# [Checar correlação básica entre clima (precip, temp) e ENA]
clima_vars <- reserv %>%
dplyr::select(
ger_mw_subsistema=val_geracao_day_subsistema,
ger_mw=val_geracao,ger_mw7,ger_mw14,ger_mw30,
ena_mw=ena_bruta_res_mwmed, ena_mw7,
ear_mw=ear_total_mwmes, #ear_mw14, ear_mw30,
preciptation,precip_mm14,precip_mm30,
temperature,temp_mm7,temp_mm14,temp_mm30,
wind_speed,
)plot_ger|plot_ear / plot_ena
corrplot::corrplot(cor(clima_vars, use = "pairwise.complete.obs"),method = "color", type = "upper",
addCoef.col = "black", # mostrar coeficientes
tl.col = "black", tl.srt = 35,number.cex =.8,
col=colorRampPalette(c("red","white","blue"))(200))library(patchwork)
library(ggrepel)
geobr::read_region()->georegionUsing year/date 2010
Download status: 0 done; 1 in progress (0 b/s). Total size: 2.61 Kb (??%)...
Download status: 0 done; 1 in progress (1.22 Mb/s). Total size: 631.47 Kb (??%)...
Download status: 1 done; 0 in progress. Total size: 1004.00 Kb (132%)... done! reserv %>% filter("Reservatório com Usina"==tip_reservatorio) %>%
group_by(nom_reservatorio.y,val_latitude,val_longitude,nom_subsistema.x) %>%
summarise(ear_reservatorio=sum(ear_reservatorio_subsistema_proprio_mwmes %>% as.numeric(),na.rm = T),
) ->a`summarise()` has grouped output by 'nom_reservatorio.y', 'val_latitude', 'val_longitude'. You can override using
the `.groups` argument.a %>% ggplot(aes(val_longitude,val_latitude))+geom_point()+
ggplot(data=georegion) +geom_sf()
a$nom_subsistema.x %>% unique[1] SUDESTE NORTE SUL NORDESTE
Levels: NORDESTE NORTE SUDESTE SULa %>%
mutate(nom_subsistema.x=case_when(nom_subsistema.x=="SUL"~"South",
nom_subsistema.x=="SUDESTE"~"Southeast",
nom_subsistema.x=="NORDESTE"~"Northeast",
nom_subsistema.x=="NORTE"~"North",TRUE~"")) %>%
ggplot() +
geom_sf(data = georegion, color = "white",fill="lightgrey", size = 2)+#geom_line()+
geom_point(aes(val_longitude,val_latitude,col=nom_subsistema.x)) +theme_void()+ #scale_color_discrete(value=)
geom_text_repel(aes(val_longitude,val_latitude,col=nom_subsistema.x,label=nom_reservatorio.y),size = 2,max.overlaps=nrow(a),force_pull =2)+
#theme(legend.position=c(.8, .95),,legend.box.just = "right")+
labs(col="Eletrical Subsystems")->map
map
reserv <- reserv %>%
mutate(
doy = yday(date),
month = month(date),
# transformação log para interpretação percentual (evita problemas com zero)
l_precip = log1p(precip_mm30),
l_temp = log1p(temp_mm7), # opcional: se preferir manter temp no nível, use temp_mm7 em vez de l_temp
l_humidity =log1p(humidity),
l_wind_speed=log(wind_speed)
)3.1 Modelo 1 — GAM “clima‑apenas” (baseline)
Modelo hidrológico parsimonioso no qual a Energia Armazenada (EAR) é explicada apenas por clima e controles sazonais/regionais, usando funções suaves (splines) em um GAM. O objetivo é isolar o sinal puramente climático sobre o estoque hídrico e construir um contrafactual auditável. Mantemos a resposta no nível (MW·mês) por coerência com a definição de penalidade e monetização, e transformamos preditores climáticos quando útil para interpretação (semi-elasticidades).
# GAM (Gaussian, fREML). Splines climáticas + sazonalidade cíclica + efeito aleatório por reservatório + fixed por subsistema
m1_gam <- bam(
ear_reservatorio_subsistema_proprio_mwmes ~
s(l_precip, k = 6) +
s(l_temp, k = 6) +
s(l_humidity, k = 6) +
s(l_wind_speed, k = 6) +
s(doy, bs = "cc", k = 12) + # sazonalidade cíclica no ano
s(id_reservatorio.x, bs = "re") + # efeito aleatório por reservatório
nom_subsistema.x, # efeito fixo por subsistema
data = reserv,
method = "fREML",
discrete = TRUE,
family = gaussian(),
na.action= na.exclude,
knots = list(doy = c(0.5, 366.5)),
select = TRUE # shrinkage para evitar wiggles
)
summary(m1_gam)
Family: gaussian
Link function: identity
Formula:
ear_reservatorio_subsistema_proprio_mwmes ~ s(l_precip, k = 6) +
s(l_temp, k = 6) + s(l_humidity, k = 6) + s(l_wind_speed,
k = 6) + s(doy, bs = "cc", k = 12) + s(id_reservatorio.x,
bs = "re") + nom_subsistema.x
Parametric coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 4165 1957 2.128 0.0333 *
nom_subsistema.xNORTE -2038 2989 -0.682 0.4955
nom_subsistema.xSUDESTE -1656 2052 -0.807 0.4198
nom_subsistema.xSUL -3232 2238 -1.444 0.1487
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Approximate significance of smooth terms:
edf Ref.df F p-value
s(l_precip) 4.851 5 96536 1
s(l_temp) 3.981 4 727156 1
s(l_humidity) 3.989 4 148463 1
s(l_wind_speed) 4.451 5 5204 1
s(doy) 9.251 10 2248 1
s(id_reservatorio.x) 55.994 56 165910 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
R-sq.(adj) = 0.74 Deviance explained = 74%
fREML = 3.146e+06 Scale est. = 6.2162e+06 n = 340435gtsummary::tbl_regression(m1_gam)Aviso em tcm * w :
comprimento do objeto maior não é múltiplo do comprimento do objeto menor| Characteristic | Beta | 95% CI1 | p-value |
|---|---|---|---|
| nom_subsistema.x | |||
| NORDESTE | — | — | |
| NORTE | -2,038 | -7,897, 3,821 | 0.5 |
| SUDESTE | -1,656 | -5,679, 2,367 | 0.4 |
| SUL | -3,232 | -7,618, 1,154 | 0.15 |
| s(l_precip) | >0.9 | ||
| s(l_temp) | >0.9 | ||
| s(l_humidity) | >0.9 | ||
| s(l_wind_speed) | >0.9 | ||
| s(doy) | >0.9 | ||
| s(id_reservatorio.x) | <0.001 | ||
| 1 CI = Confidence Interval | |||
summary(m1_gam)
Family: gaussian
Link function: identity
Formula:
ear_reservatorio_subsistema_proprio_mwmes ~ s(l_precip, k = 6) +
s(l_temp, k = 6) + s(l_humidity, k = 6) + s(l_wind_speed,
k = 6) + s(doy, bs = "cc", k = 12) + s(id_reservatorio.x,
bs = "re") + nom_subsistema.x
Parametric coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 4165 1957 2.128 0.0333 *
nom_subsistema.xNORTE -2038 2989 -0.682 0.4955
nom_subsistema.xSUDESTE -1656 2052 -0.807 0.4198
nom_subsistema.xSUL -3232 2238 -1.444 0.1487
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Approximate significance of smooth terms:
edf Ref.df F p-value
s(l_precip) 4.851 5 96536 1
s(l_temp) 3.981 4 727156 1
s(l_humidity) 3.989 4 148463 1
s(l_wind_speed) 4.451 5 5204 1
s(doy) 9.251 10 2248 1
s(id_reservatorio.x) 55.994 56 165910 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
R-sq.(adj) = 0.74 Deviance explained = 74%
fREML = 3.146e+06 Scale est. = 6.2162e+06 n = 340435gam.check(m1_gam) # resíduos, QQ, k-index
Method: fREML Optimizer: perf chol
$grad
[1] 2.213365e-08 -7.697121e-10 -1.266720e-11 8.173104e-06 2.182032e-11 7.083223e-06 1.020650e-11 4.893363e-12
[9] -1.193499e-10 1.390106e-10 -3.093737e-08
$hess
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
1.678739e+00 -5.798104e-02 -7.339781e-04 1.054158e-08 1.261501e-03 -7.030360e-08 6.522204e-04 3.100987e-04
-5.798104e-02 4.880318e-01 -1.295054e-05 5.179160e-09 2.023422e-04 -1.578258e-08 2.914283e-04 9.480582e-05
-7.339781e-04 -1.295054e-05 1.982614e+00 7.353942e-07 -1.280690e-03 -6.162183e-08 -3.318473e-03 -7.794945e-04
1.054158e-08 5.179160e-09 7.353942e-07 -8.173094e-06 -1.116629e-08 -7.005252e-13 -2.952067e-08 -1.066340e-08
1.261501e-03 2.023422e-04 -1.280690e-03 -1.116629e-08 1.978443e+00 3.494864e-06 -2.455737e-03 -6.149960e-04
-7.030360e-08 -1.578258e-08 -6.162183e-08 -7.005252e-13 3.494864e-06 -7.083075e-06 6.620017e-08 1.157839e-08
6.522204e-04 2.914283e-04 -3.318473e-03 -2.952067e-08 -2.455737e-03 6.620017e-08 1.518991e+00 -1.210593e-01
3.100987e-04 9.480582e-05 -7.794945e-04 -1.066340e-08 -6.149960e-04 1.157839e-08 -1.210593e-01 3.787170e-01
-7.296369e-03 -3.774786e-04 -3.170797e-03 -2.026935e-08 -1.247248e-03 1.067151e-07 -2.782243e-03 -6.189506e-04
8.517205e-05 9.018639e-06 -2.896727e-04 -2.839078e-09 -2.488799e-04 1.426507e-08 -2.660465e-03 -6.611419e-04
d -1.931614e+00 -4.939796e-01 -1.990488e+00 -8.484698e-06 -1.994705e+00 -1.113603e-05 -1.790257e+00 -4.351534e-01
[,9] [,10] [,11]
-7.296369e-03 8.517205e-05 -1.931614e+00
-3.774786e-04 9.018639e-06 -4.939796e-01
-3.170797e-03 -2.896727e-04 -1.990488e+00
-2.026935e-08 -2.839078e-09 -8.484698e-06
-1.247248e-03 -2.488799e-04 -1.994705e+00
1.067151e-07 1.426507e-08 -1.113603e-05
-2.782243e-03 -2.660465e-03 -1.790257e+00
-6.189506e-04 -6.611419e-04 -4.351534e-01
4.706330e+00 -2.499327e-04 -4.625465e+00
-2.499327e-04 2.799629e+01 -2.799722e+01
d -4.625465e+00 -2.799722e+01 1.702155e+05
Model rank = 94 / 94
Basis dimension (k) checking results. Low p-value (k-index<1) may
indicate that k is too low, especially if edf is close to k'.
k' edf k-index p-value
s(l_precip) 5.00 4.85 NA NA
s(l_temp) 5.00 3.98 NA NA
s(l_humidity) 5.00 3.99 NA NA
s(l_wind_speed) 5.00 4.45 NA NA
s(doy) 10.00 9.25 NA NA
s(id_reservatorio.x) 60.00 55.99 NA NA
concurvity(m1_gam, full=TRUE) para s(l_precip) s(l_temp) s(l_humidity) s(l_wind_speed) s(doy) s(id_reservatorio.x)
worst 1 0.8516615 0.9839353 0.8216619 0.8796499 0.7338438 1.00000000
observed 1 0.7144195 0.8359310 0.4882039 0.7726099 0.3142896 0.03902255
estimate 1 0.6346694 0.9513279 0.6215064 0.4690821 0.1294512 0.09343550Respostas marginais (plausibilidade e interpretação)
Para interpretar o comportamento funcional e avaliar plausibilidade,
usamos derivadas parciais. Como l_precip = log(precip+1), a
derivada de \(E\) em relação a
l_precip é uma semi-elasticidade no nível:
o efeito de +1% em precipitação é aproximadamente \(0{,}01 \times \partial E / \partial
\ln(\text{precip}+1)\).
plot(m1_gam, pages=4, scheme=1, shade=TRUE, se=TRUE)
NA
NAd_precip <- derivatives(m1_gam, term = "s(l_precip)", type = "central")
d_precip <- d_precip %>%
mutate(effect_per_1pct = 0.01 * .derivative)
#select(data, .fitted, .se, effect_per_1pct, lower, upper)
summary(d_precip$effect_per_1pct) Min. 1st Qu. Median Mean 3rd Qu. Max.
-0.3335 3.0485 4.7714 5.2623 5.8077 13.3599 Com base nos gráficos de efeitos parciais, diagnósticos de resíduos e sumário estatístico do GAM (fREML, R²aj=0.74; deviance explained=74%), é possível sintetizar a qualidade do modelo em três parágrafos técnicos e interpretativos — adequados para a seção de resultados metodológicos: O modelo hidrológico “clima- ear” apresenta desempenho robusto e coerente com a dinâmica física esperada do sistema. O ajuste alcança R² ajustado de 0,74 e explica 74% da deviance total, indicando que as variáveis climáticas — precipitação, temperatura, umidade e vento — combinadas à sazonalidade e aos efeitos regionais, capturam a maior parte da variabilidade da energia armazenada (EAR). A significância estatística dos splines é elevada (p < 0.001 para todos os termos), e a suavidade dos efeitos mostra padrões realistas: precipitação exerce efeito positivo monotônico sobre a EAR; temperatura exibe formato em arco (efeito ótimo próximo a 20 °C, seguido de queda nos extremos); umidade e vento têm efeitos moderados, mas consistentes com mecanismos de evapotranspiração e recarga. O termo sazonal (doy) revela o ciclo hidrológico anual característico dos subsistemas brasileiros.
Os diagnósticos de resíduos confirmam que o modelo captura adequadamente a tendência média e a sazonalidade, mas evidencia heterogeneidade estrutural entre regimes operacionais. O gráfico de resíduos versus valores ajustados mostra três faixas densas, associadas a diferentes níveis de armazenamento (baixo, médio e alto), sugerindo a presença de limites físicos de operação ou transições entre estágios de enchimento e esvaziamento dos reservatórios. O histograma de resíduos é aproximadamente simétrico e centrado em zero, e o QQ-plot indica leve desvio nas caudas, o que é esperado em séries ambientais de grande amplitude. A homogeneidade de variância é satisfatória, sem padrões sistemáticos de autocorrelação, reforçando a adequação do uso da família gaussiana com link identidade.
Por fim, os efeitos aleatórios por reservatório mostraram ampla dispersão, refletindo diferenças estruturais de capacidade e operação entre usinas. A suavidade dos splines foi adequada (k-index > 0.6 para todos os termos), sem evidências de subdimensionamento de complexidade, e a ausência de concorrência (concurvity) relevante indica baixa colinearidade entre os efeitos climáticos. Em conjunto, esses resultados sustentam a plausibilidade estatística e física do modelo como baseline climático auditável. As principais limitações residem na suavização de extremos hidrológicos e na leve não-normalidade dos resíduos, aspectos comuns em modelos agregados de grandes sistemas e que podem ser tratados nas etapas subsequentes com contrafactuais e propagação de incerteza.
Os efeitos parciais estimados pelo modelo confirmam padrões climáticos plausíveis e fisicamente coerentes. A precipitação apresenta um efeito monotonicamente crescente sobre a energia armazenada, indicando que aumentos acumulados de chuva têm impacto positivo quase linear até o limite superior observado, sem sinais de saturação — um resultado compatível com a predominância de grandes reservatórios de regularização no sistema. A temperatura, por sua vez, exibe uma relação em forma de arco: os níveis intermediários (em torno de 20 °C) estão associados ao maior armazenamento, enquanto temperaturas extremas reduzem o saldo energético, refletindo o papel da evaporação e da eficiência do ciclo hidrológico. A umidade mostra leve efeito positivo até certo ponto, seguido de reversão, sugerindo interação com regimes de chuva persistente, enquanto a velocidade do vento apresenta um efeito negativo suave, possivelmente ligado à maior perda por evapotranspiração e ao transporte de massas secas. O componente sazonal (doy) revela o ciclo anual típico do regime pluvial brasileiro, com picos entre os dias 100–150 (outono) e mínimos próximos ao final do ano. Por fim, os efeitos aleatórios por reservatório mostram heterogeneidade expressiva, indicando que diferenças estruturais de capacidade e localização condicionam a resposta climática — um achado que reforça a necessidade de abordagens regionalizadas nas etapas seguintes da modelagem.
#saveRDS(m1_gam, "m1_gam.rds")
#readRDS("m1_gam.rds") -> m1_gam
Predições factual vs. contrafactual (baseline 2001–2005)
Construímos o contrafactual climático fixando clima no médio mensal 2001–2005 por reservatório (ou por subsistema, caso prefira) e mantendo os demais controles observados.
# Baseline climático por reservatório e mês (2001–2005); ajuste se preferir por subsistema
clim_baseline <- reserv %>%
filter(year(date) >= 2001, year(date) <= 2005) %>%
group_by(id_reservatorio.x, doy) %>%
summarise(
l_precip_bl = mean(l_precip, na.rm = TRUE),
l_temp_bl = mean(l_temp, na.rm = TRUE),
l_humidity_bl = mean(l_humidity, na.rm = TRUE),
l_wind_speed_bl = mean(l_wind_speed, na.rm = TRUE),
.groups = "drop"
)
# newdata factual (observado) e contrafactual (clima fixo no baseline)
nd_obs <- reserv #%>% ungroup() %>%
#select(id_reservatorio.x, nom_subsistema.x, date, doy, month,
# l_precip, l_temp, l_humidity, l_wind_speed)
nd_cf <- reserv %>%
left_join(clim_baseline, by = c("id_reservatorio.x","doy")) %>%
mutate(
l_precip = l_precip_bl,
l_temp = l_temp_bl,
l_humidity = l_humidity_bl,
l_wind_speed= l_wind_speed_bl
) #%>%
#select(names(reserv))
# Predições no nível (MW·mês)
reserv$ear_hat_obs <- predict(m1_gam, newdata = reserv, type = "response")
reserv$ear_hat_cf <- predict(m1_gam, newdata = nd_cf, type = "response")
# Penalidade climática no EAR (pontual)
reserv$delta_ear_hat <- reserv$ear_hat_obs - reserv$ear_hat_cf
3.1.5 Propagação de Incerteza
Para quantificar a incerteza associada às estimativas de penalidade climática (ΔEAR), foram aplicados dois métodos complementares: o Delta Method analítico e a Simulação Paramétrica Multivariada. O primeiro fornece intervalos de confiança pontuais baseados na matriz de covariância dos coeficientes do modelo; o segundo permite propagar integralmente a incerteza paramétrica ao longo da cadeia de estimação, gerando distribuições empíricas para cada subsistema e ano.
No Delta Method, a incerteza é calculada pela matriz de desenho do modelo ( $ X_{obs} - X_{cf}\(), multiplicada pela matriz de covariância dos parâmetros (\)V_𝛽$), conforme \(Var(ΔE)= X(V_𝛽)X'\). Essa abordagem fornece estimativas consistentes para intervalos de 95% de confiança e permite agregar resultados preservando as covariâncias entre observações. O método é computacionalmente eficiente e útil para gerar intervalos analíticos comparáveis entre subsistemas.
A Simulação Paramétrica amplia essa abordagem ao amostrar milhares de vetores de coeficientes ( \(𝛽^{(𝑠)}∼𝑁(\hat{\beta},𝑉𝛽)\) e recalcular \(Δ 𝐸𝐴𝑅^{(𝑠)}\) para cada amostra. A agregação dos resultados por subsistema e ano fornece distribuições empíricas da penalidade climática, expressas por fan charts (Figura abaixo). Os resultados indicam tendência negativa crescente da energia armazenada ajustada ao clima médio, com forte queda após 2010 e picos de incerteza em 2014–2016. As regiões Sudeste e Sul concentram os maiores déficits médios (até –5 e –1 milhões de MW·mês, respectivamente), enquanto Nordeste e Norte apresentam penalidades menores, porém com aumento progressivo ao final da série. Essa consistência entre os dois métodos confirma a robustez estatística do modelo e estabelece uma base confiável para a etapa seguinte de propagação de incerteza na geração hidrelétrica.
Incerteza (método 4: Delta method analítico)
Estimamos ICs para \(\Delta EAR\) via matriz de desenho no link (aqui, identity ⇒ já é nível). Agregações por ano/subsistema devem preservar a covariância.
Vp <- vcov(m1_gam) # covariância dos coeficientes
X_obs <- predict(m1_gam, newdata = nd_obs, type = "lpmatrix")
X_cf <- predict(m1_gam, newdata = nd_cf, type = "lpmatrix")
X_diff <- X_obs - X_cf
# EP por observação
var_delta <- rowSums((X_diff %*% Vp) * X_diff)
se_delta <- sqrt(pmax(var_delta, 0))
z <- qnorm(0.975)
delta_lwr <- reserv$delta_ear_hat - z * se_delta
delta_upr <- reserv$delta_ear_hat + z * se_delta
reserv$delta_ear_upr<-delta_upr
reserv$delta_ear_lwr<-delta_lwr
m1_delta <- nd_obs %>%
transmute(
date, nom_subsistema.x,
delta_hat = delta_ear_hat,
delta_se = se_delta,
delta_lwr = delta_lwr,
delta_upr = delta_upr
)
# Agregar por ano/subsistema preservando covariância (combinação linear)
library(data.table)
dt <- as.data.table(nd_obs)[, .(date, nom_subsistema.x)]
dt[, year := year(date)]
# Vetor s_g = soma das linhas de X_diff no grupo (ano, subsistema)
groups <- unique(dt[, .(year, nom_subsistema.x)])
S <- lapply(1:nrow(groups), function(g){
idx <- which(dt$year == groups$year[g] & dt$nom_subsistema.x == groups$nom_subsistema.x[g])
colSums(X_diff[idx, , drop = FALSE])
})
agg_mean <- sapply(1:nrow(groups), function(g){
sum(reserv$delta_ear_hat[dt$year == groups$year[g] & dt$nom_subsistema.x == groups$nom_subsistema.x[g]], na.rm = TRUE)
})
agg_var <- sapply(S, function(sv) as.numeric(t(sv) %*% Vp %*% sv))
agg_se <- sqrt(pmax(agg_var, 0))
m1_delta_agg <- cbind(groups,
delta_mean = agg_mean,
delta_lwr = agg_mean - z * agg_se,
delta_upr = agg_mean + z * agg_se
)Incerteza (método 1: Simulação paramétrica encadeável)
Amostramos os coeficientes da distribuição normal multivariada e recalculamos \(\Delta EAR^{(s)}\). Esse objeto será a entrada probabilística para o GAM 1.
library(MASS)
Anexando pacote: ‘MASS’
O seguinte objeto é mascarado por ‘package:patchwork’:
area
O seguinte objeto é mascarado por ‘package:dplyr’:
selectnsim <- 2000
set.seed(20251010)
beta_draws <- MASS::mvrnorm(n = nsim, mu = coef(m1_gam), Sigma = Vp)
# Pré-cálculo para eficiência
D <- X_diff # N x p
# ΔEAR por simulação: cada coluna é uma sim, cada linha uma observação
delta_sims <- D %*% t(beta_draws) # (N x nsim)
# Agregar por ano/subsistema em cada sim
dt$gid <- .GRP; dt[, gid := .GRP, by = .(year, nom_subsistema.x)]
G <- max(dt$gid)
agg_mat <- matrix(NA_real_, nrow = G, ncol = nsim)
for (g in 1:G) {
idx <- which(dt$gid == g)
agg_mat[g, ] <- colSums(delta_sims[idx, , drop = FALSE], na.rm = TRUE)
}
m1_sim_agg <- cbind(groups,
mean = rowMeans(agg_mat),
lwr = apply(agg_mat, 1, quantile, 0.025),
upr = apply(agg_mat, 1, quantile, 0.975)
)
Visualização rápida (publicação)
Ribbons (Delta) e fan charts (MC) padronizados.
Penalidade climática agregada e intervalos de confiança
m1_summary <- m1_sim_agg %>%
group_by(nom_subsistema.x) %>%
summarise(
mean_penalty = mean(mean, na.rm = TRUE),
lwr_95 = mean(lwr, na.rm = TRUE),
upr_95 = mean(upr, na.rm = TRUE),
sd_penalty = sd(mean, na.rm = TRUE),
.groups = "drop"
)
# Convertendo para GWh/ano para interpretação
m1_summary <- m1_summary %>%
mutate(
mean_GWh = mean_penalty / 1000,
lwr_GWh = lwr_95 / 1000,
upr_GWh = upr_95 / 1000,
) #%>% select(-mean_penalty, -lwr_95, -upr_95)
# Tabela formatada (publicação)
library(gt)
m1_summary[,c("nom_subsistema.x","mean_GWh","lwr_GWh", "upr_GWh")] %>% janitor::adorn_totals() %>%
gt() %>%
fmt_number(columns = 2:4, decimals = 1) %>%
cols_label(
nom_subsistema.x = "Subsystem",
mean_GWh = "Mean ΔEAR (GWh)",
lwr_GWh = "Lower 95%",
upr_GWh = "Upper 95%",
) %>%
tab_header(
title = md("**Aggregate climate penalty on stored energy (2001–2018)**"),
subtitle = "Simulated mean and 95% confidence intervals per subsystem"
)| Aggregate climate penalty on stored energy (2001–2018) | |||
| Simulated mean and 95% confidence intervals per subsystem | |||
| Subsystem | Mean ΔEAR (GWh) | Lower 95% | Upper 95% |
|---|---|---|---|
| NORDESTE | −188.4 | −200.5 | −176.1 |
| NORTE | −22.9 | −32.5 | −13.4 |
| SUDESTE | −1,178.4 | −1,262.4 | −1,097.4 |
| SUL | −216.5 | −250.7 | −183.3 |
| Total | −1,606.3 | −1,746.2 | −1,470.2 |
A Tabela apresenta a penalidade climática média sobre a energia armazenada (ΔEAR) no período 2001–2018, agregada por subsistema. Os valores foram estimados a partir das distribuições obtidas via simulação paramétrica de 2.000 sorteios da matriz de covariância dos coeficientes do modelo hidrológico. As penalidades médias foram expressas em gigawatts-mês (GWh·month), com intervalos de confiança de 95% com um total de **–1,606.3 (IC95%: −1,746.2;−1,470.2) de GWh.
Os resultados indicam que o subsistema Sudeste concentra o maior déficit médio de armazenamento, estimado em aproximadamente −1,178.4 (IC95%:−1,262.4;−1,097.4) de GWh·mês, refletindo sua predominância no sistema interligado e sua maior exposição a anomalias de precipitação. O Sul apresenta penalidade intermediária (XXXXXXXXXXXX), mas com maior variabilidade interanual, compatível com seu regime pluviométrico mais irregular. No Nordeste, as perdas médias são menores (XXXXXXXXXXXXXX), embora com tendência negativa acentuada após 2010. Já o Norte apresenta valores próximos de zero, com intervalos de confiança que incluem a nulidade, sugerindo ausência de penalidade líquida significativa no período analisado.
Esses resultados corroboram a hipótese de que a penalidade climática sobre o armazenamento hídrico é concentrada e estruturalmente assimétrica, afetando com maior intensidade os subsistemas Sudeste e Sul — justamente aqueles com maior papel de regulação e suporte energético para o restante do país. Essa heterogeneidade espacial fornece o elo empírico para a próxima etapa da modelagem, em que as variações simuladas de \(\Delta EAR\) serão propagadas à geração hidrelétrica (GAM 1), à geração térmica (GAM 2) e, por fim, ao preço de curto prazo (GAM 3).
3.2 Modelo 2 — Geração Hidrelétrica como Função do Armazenamento O segundo modelo da cadeia estima a geração hidrelétrica (G_hidro) em função da energia armazenada (EAR) e de controles operacionais e sazonais. O objetivo é capturar a elasticidade da geração em relação ao estoque hídrico, permitindo traduzir as variações simuladas de ΔEAR (penalidade climática) em impactos sobre a geração efetiva. Assim como no modelo climático, emprega-se um GAM para capturar relações não lineares entre variáveis físicas e operacionais, mantendo parcimônia e interpretabilidade.
3.2 Modelo 2 — Geração Hidrelétrica como Função do Armazenamento
m2_hidro <- bam(
val_geracao ~ Year+
s(ear_reservatorio_subsistema_proprio_mwmes, k = 4)+
s(val_geracao_day_subsistema, k = 4)+
s(doy, bs = "cc", k = 2) + # sazonalidade do dia do ano (cíclica)
s(id_reservatorio.x, bs = "re")+# efeito aleatório por reservatório
#s(val_vazaodefluente,k = 2)+
nom_subsistema.x
,
data = reserv,
method = "fREML",
discrete = TRUE,
family = gaussian(), # família: normal; ajustar se necessário
na.action= na.exclude,
#knots = list(doy = c(0.5, 366.5))
)Aviso em smooth.construct.cc.smooth.spec(object, dk$data, dk$knots) :
basis dimension, k, increased to minimum possiblesummary(m2_hidro)
Family: gaussian
Link function: identity
Formula:
val_geracao ~ Year + s(ear_reservatorio_subsistema_proprio_mwmes,
k = 4) + s(val_geracao_day_subsistema, k = 4) + s(doy, bs = "cc",
k = 2) + s(id_reservatorio.x, bs = "re") + nom_subsistema.x
Parametric coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) 28294.477 370.239 76.422 <2e-16 ***
Year -13.496 0.123 -109.716 <2e-16 ***
nom_subsistema.xNORTE 1144.580 388.269 2.948 0.0032 **
nom_subsistema.xSUDESTE -732.365 284.693 -2.572 0.0101 *
nom_subsistema.xSUL 7.995 304.583 0.026 0.9791
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
Approximate significance of smooth terms:
edf Ref.df F p-value
s(ear_reservatorio_subsistema_proprio_mwmes) 3.000 3 8682.8 <2e-16 ***
s(val_geracao_day_subsistema) 3.000 3 14588.7 <2e-16 ***
s(doy) 1.981 2 192.5 1
s(id_reservatorio.x) 54.996 56 28468.9 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
R-sq.(adj) = 0.852 Deviance explained = 85.2%
fREML = 2.3348e+06 Scale est. = 66634 n = 334820gam.check(m2_hidro)
Method: fREML Optimizer: perf chol
$grad
[1] 9.902618e-06 1.058061e-06 -7.597855e-10 4.418162e-09 -7.261318e-06
$hess
[,1] [,2] [,3] [,4] [,5]
9.995311e-01 9.046508e-06 1.489907e-05 4.950700e-04 -9.998409e-01
9.046508e-06 9.997180e-01 7.051700e-05 -5.890488e-05 -9.998447e-01
1.489907e-05 7.051700e-05 9.815475e-01 9.974061e-06 -9.904703e-01
4.950700e-04 -5.890488e-05 9.974061e-06 2.749626e+01 -2.749791e+01
d -9.998409e-01 -9.998447e-01 -9.904703e-01 -2.749791e+01 1.674065e+05
Model rank = 72 / 72
Basis dimension (k) checking results. Low p-value (k-index<1) may
indicate that k is too low, especially if edf is close to k'.
k' edf k-index p-value
s(ear_reservatorio_subsistema_proprio_mwmes) 3.00 3.00 NA NA
s(val_geracao_day_subsistema) 3.00 3.00 NA NA
s(doy) 2.00 1.98 NA NA
s(id_reservatorio.x) 59.00 55.00 NA NA
concurvity(m2_hidro, full=TRUE) para s(ear_reservatorio_subsistema_proprio_mwmes) s(val_geracao_day_subsistema) s(doy)
worst 1 0.9787033 0.9562527 0.12020674
observed 1 0.9750174 0.9195183 0.05200814
estimate 1 0.9676303 0.9089810 0.07865833
s(id_reservatorio.x)
worst 1.0000000
observed 0.1204232
estimate 0.1036038
plot(m2_hidro, pages=3, scheme=1, shade=TRUE, se=TRUE, scales="free")Aviso em plot.window(...) : "scales" não é um parâmetro gráfico
Aviso em plot.xy(xy, type, ...) : "scales" não é um parâmetro gráfico
Aviso em axis(side = side, at = at, labels = labels, ...) :
"scales" não é um parâmetro gráfico
Aviso em axis(side = side, at = at, labels = labels, ...) :
"scales" não é um parâmetro gráfico
Aviso em box(...) : "scales" não é um parâmetro gráfico
Aviso em title(...) : "scales" não é um parâmetro gráfico
Aviso em plot.xy(xy.coords(x, y), type = type, ...) :
"scales" não é um parâmetro gráfico
Aviso em plot.window(...) : "scales" não é um parâmetro gráfico
Aviso em plot.xy(xy, type, ...) : "scales" não é um parâmetro gráfico
Aviso em axis(side = side, at = at, labels = labels, ...) :
"scales" não é um parâmetro gráfico
Aviso em axis(side = side, at = at, labels = labels, ...) :
"scales" não é um parâmetro gráfico
Aviso em box(...) : "scales" não é um parâmetro gráfico
Aviso em title(...) : "scales" não é um parâmetro gráfico
Aviso em plot.xy(xy.coords(x, y), type = type, ...) :
"scales" não é um parâmetro gráfico
Aviso em plot.window(...) : "scales" não é um parâmetro gráfico
Aviso em plot.xy(xy, type, ...) : "scales" não é um parâmetro gráfico
Aviso em axis(side = side, at = at, labels = labels, ...) :
"scales" não é um parâmetro gráfico
Aviso em axis(side = side, at = at, labels = labels, ...) :
"scales" não é um parâmetro gráfico
Aviso em box(...) : "scales" não é um parâmetro gráfico
Aviso em title(...) : "scales" não é um parâmetro gráfico
Aviso em plot.xy(xy.coords(x, y), type = type, ...) :
"scales" não é um parâmetro gráfico
Aviso em plot.window(...) : "scales" não é um parâmetro gráfico
Aviso em plot.xy(xy, type, ...) : "scales" não é um parâmetro gráfico
Aviso em axis(side = side, at = at, labels = labels, ...) :
"scales" não é um parâmetro gráfico
Aviso em axis(side = side, at = at, labels = labels, ...) :
"scales" não é um parâmetro gráfico
Aviso em box(...) : "scales" não é um parâmetro gráfico
Aviso em title(...) : "scales" não é um parâmetro gráfico
O modelo hidrelétrico (GAM 2) apresentou forte desempenho explicativo, com R² ajustado de 0,85 e deviance explicada de 85,2%, o que confirma sua alta capacidade de reproduzir a geração observada a partir da energia armazenada e variáveis operacionais. O termo linear para o ano é negativo e altamente significativo (–13,5 MW·mês/ano; p < 0,001), refletindo a tendência estrutural de redução da participação hídrica ao longo do período, possivelmente em função da expansão de fontes térmicas e renováveis não hídricas. Os efeitos fixos por subsistema indicam diferenças modestas, com geração média ligeiramente superior no Norte e inferior no Sudeste, consistentes com o papel estrutural de cada região na oferta de energia e no despacho do sistema.
Os diagnósticos de resíduos evidenciam ajuste adequado, com distribuição aproximadamente normal e ausência de heterocedasticidade sistemática. O histograma dos resíduos é centrado em zero, e o QQ-plot mostra leve curvatura nas caudas, indicando pequena assimetria associada a regimes operacionais extremos (reservatórios cheios ou vazios). O gráfico de resíduos versus preditos exibe duas faixas bem definidas, correspondentes a diferentes regimes de operação hidráulica — um de baixa geração com EAR limitada e outro de operação plena com altos níveis de despacho. Embora esses regimes introduzam leve estratificação, não há indícios de viés direcional nem autocorrelação relevante, o que reforça a validade do modelo gaussiano com link identidade. O teste de dimensionalidade efetiva (k-index > 0.9) e o baixo nível de concorrência (concurvity < 0.3) confirmam a estabilidade numérica dos splines e a ausência de sobreajuste.
Os efeitos parciais ilustram de forma clara a dinâmica física do sistema. O spline da energia armazenada (EAR) apresenta um formato crescente com leve saturação, sugerindo rendimento decrescente: aumentos iniciais de armazenamento produzem grandes acréscimos de geração, mas o efeito marginal diminui à medida que o reservatório se aproxima da capacidade máxima. O spline da geração diária do subsistema mostra relação quase linear positiva, representando o efeito de escala e coordenação entre usinas interligadas. A sazonalidade anual (doy) é fraca, refletindo o fato de que as oscilações sazonais já são internalizadas no nível de armazenamento, enquanto o efeito aleatório por reservatório indica ampla heterogeneidade estrutural — alguns reservatórios operam como usinas de base, com efeito próximo de zero, e outros com forte sensibilidade à variação de EAR. Em conjunto, esses resultados confirmam que o modelo capta adequadamente o mecanismo de conversão hidrológica entre estoque e geração, oferecendo base consistente para a estimativa contrafactual da geração hídrica sob diferentes cenários climáticos.
##Predições factual vs. contrafactual com incerteza (baseline 2001–2005) O objetivo é comparar o armazenamento previsto pelo modelo sob condições climáticas observadas e sob condições neutras, representadas pelo clima médio do período 2001–2005. A diferença entre as duas séries (\(ΔEAR=E^{obs}−E^{cf}\)) representa a penalidade climática líquida, e sua incerteza é estimada via propagação dos erros paramétricos do GAM.
# --- Predições factual e contrafactual ---
reserv$ear_hat_obs <- predict(m1_gam, newdata = nd_obs, type = "response")
reserv$ear_hat_cf <- predict(m1_gam, newdata = nd_cf, type = "response")
# Penalidade média
reserv <- reserv %>%
mutate(delta_ear = ear_hat_obs - ear_hat_cf)
reserv$ger_hat_factual <- predict(
m2_hidro, newdata = reserv,
type = "response"
)
reserv$ger_hat_contraf <- predict(
m2_hidro, newdata = reserv %>%
mutate(ear_reservatorio_subsistema_proprio_mwmes = ear_hat_cf),
type = "response"
)
reserv <- reserv %>%
mutate(delta_Ghidro = ger_hat_factual - ger_hat_contraf)
reserv[,c("delta_Ghidro","ger_hat_factual","ger_hat_contraf","val_geracao")] %>% summary() delta_Ghidro ger_hat_factual ger_hat_contraf val_geracao
Min. :-655.74 Min. :-480.43 Min. :-394.96 Min. : 0.00
1st Qu.: -48.33 1st Qu.: 55.19 1st Qu.: 83.95 1st Qu.: 48.01
Median : -8.17 Median : 184.97 Median : 260.94 Median : 136.57
Mean : -20.56 Mean : 376.26 Mean : 448.93 Mean : 369.58
3rd Qu.: 29.33 3rd Qu.: 504.50 3rd Qu.: 626.06 3rd Qu.: 413.70
Max. : 310.12 Max. :4342.90 Max. :4229.30 Max. :7630.90
NA's :75560 NA's :13851 NA's :69035 (3) Incerteza via Delta Method ———————————————
C[,c("delta_Ghidro","delta_lwr_ger","delta_upr_ger","val_geracao")] %>% summary()
delta_Ghidro delta_lwr_ger delta_upr_ger val_geracao
Min. :-655.74 Min. :-663.88 Min. :-647.60 Min. : 0.00
1st Qu.: -48.33 1st Qu.: -49.03 1st Qu.: -47.37 1st Qu.: 48.01
Median : -8.17 Median : -8.30 Median : -7.94 Median : 136.57
Mean : -20.56 Mean : -21.66 Mean : -19.46 Mean : 369.58
3rd Qu.: 29.33 3rd Qu.: 28.89 3rd Qu.: 29.72 3rd Qu.: 413.70
Max. : 310.12 Max. : 293.27 Max. : 326.96 Max. :7630.90
NA's :75560 NA's :75560 NA's :75560 # (4) Agregação por ano e subsistema -----------------------------------------
m2_delta_agg <- reserv %>%
mutate(Year = year(date)) %>%
group_by(Year, nom_subsistema.x) %>%
summarise(
mean_penalty = mean(delta_Ghidro, na.rm = TRUE),
lwr = mean(delta_lwr_ger, na.rm = TRUE),
upr = mean(delta_upr_ger, na.rm = TRUE),
.groups = "drop"
)Error in `summarise()`:
ℹ In argument: `lwr = mean(delta_lwr_ger, na.rm = TRUE)`.
ℹ In group 1: `Year = 2000` `nom_subsistema.x = NORDESTE`.
Caused by error:
! objeto 'delta_lwr_ger' não encontrado
Run `]8;;x-r-run:rlang::last_trace()rlang::last_trace()]8;;` to see where the error occurred.
A Figura apresenta o resultado da propagação da penalidade climática sobre a geração hidrelétrica (ΔG_hidro), obtida pela substituição do clima observado pelo clima médio histórico (2001–2005) no modelo de armazenamento e pela aplicação desses valores contrafactuais no modelo de geração. O gráfico mostra a diferença entre a geração prevista sob clima efetivo e o cenário contrafactual neutro, com intervalos de confiança calculados por duas abordagens: o método analítico (Delta) e a simulação paramétrica.
Os resultados indicam que a penalidade climática média sobre a geração hidrelétrica segue o mesmo padrão espacial observado na energia armazenada, mas com magnitude amplificada devido à resposta elástica do despacho hídrico. O Sudeste apresenta o maior déficit médio, com reduções acumuladas superiores a –4 milhões de MW·mês em anos secos, refletindo a forte dependência da geração ao nível de reservatórios. O Sul mostra penalidades intermediárias (entre –1 e –2 milhões de MW·mês), com alta variabilidade interanual. O Nordeste e o Norte apresentam oscilações menores, mas com tendência negativa acentuada após 2012, compatível com períodos de estiagem prolongada.
Os intervalos de confiança revelam aumento expressivo da incerteza após 2010, quando as condições climáticas se tornaram mais voláteis e os reservatórios passaram a operar próximos de limites críticos. Esse padrão reforça a interpretação de que a penalidade climática propagada à geração representa não apenas a perda de estoque hídrico, mas também a diminuição da flexibilidade operativa do sistema, um dos principais canais de transmissão dos efeitos climáticos para os custos do setor elétrico.
3.2.5 Propagação conjunta de incerteza (ΔEAR → ΔG_hidro) Este bloco realiza uma simulação Monte Carlo encadeada: cada sorteio inclui simultaneamente os coeficientes do modelo climático (m1_gam) e do modelo hidrelétrico (m2_hidro). Assim, as incertezas da previsão do armazenamento (EAR) são transmitidas integralmente para as previsões de geração, produzindo uma distribuição conjunta para \(Δ𝐺_{ℎ𝑖𝑑𝑟𝑜}\).
3.2.6 Resultados — Propagação integral de incerteza (ΔG_hidro conjunto)
library(MASS)
library(dplyr)
library(lubridate)
set.seed(20251011)
nsim <- 500 # pode aumentar depois para 1000, mas teste com 500 primeiro
# --- 1. Covariâncias e sorteios dos coeficientes ----------------------------
Vp1 <- vcov(m1_gam)
Vp2 <- vcov(m2_hidro)
beta_draws_1 <- MASS::mvrnorm(n = nsim, mu = coef(m1_gam), Sigma = Vp1)
beta_draws_2 <- MASS::mvrnorm(n = nsim, mu = coef(m2_hidro), Sigma = Vp2)
# --- 2. Matrizes do modelo 1 (EAR ~ clima) ----------------------------------
X_obs_ear <- predict(m1_gam, newdata = nd_obs, type = "lpmatrix")
X_cf_ear <- predict(m1_gam, newdata = nd_cf, type = "lpmatrix")
# --- 3. Propagação Monte Carlo encadeada -----------------------------------
delta_G_joint <- matrix(NA_real_, nrow = nrow(nd_obs), ncol = nsim)
for (s in seq_len(nsim)) {
# 1. EAR factual e contrafactual simulados
ear_f <- as.numeric(X_obs_ear %*% beta_draws_1[s, ])
ear_c <- as.numeric(X_cf_ear %*% beta_draws_1[s, ])
# 2. Atualizar inputs do modelo de geração
nd_f <- nd_obs %>%
mutate(ear_reservatorio_subsistema_proprio_mwmes = ear_f)
nd_c <- nd_obs %>%
mutate(ear_reservatorio_subsistema_proprio_mwmes = ear_c)
# 3. Predições completas do modelo de geração (não linear)
g_f <- predict(m2_hidro, newdata = nd_f, type = "response")
g_c <- predict(m2_hidro, newdata = nd_c, type = "response")
# 4. Penalidade propagada
delta_G_joint[, s] <- g_f - g_c
}
write_rds(delta_G_joint, "data/delta_G_joint.rds")
# --- 4. Agregar por subsistema e ano ----------------------------------------
nd_obs$Year
dt <- nd_obs %>% select(Year, nom_subsistema.x)
dt$Year<-nd_obs$Year
library(data.table)
dt <- as.data.table(dt)
groups <- unique(dt[, .(Year, nom_subsistema.x)])
agg_joint <- lapply(seq_len(nrow(groups)), function(g){
idx <- which(dt$Year == groups$Year[g] & dt$nom_subsistema.x == groups$nom_subsistema.x[g])
colSums(delta_G_joint[idx, , drop = FALSE], na.rm = TRUE)
})
agg_joint <- do.call(rbind, agg_joint)
colnames(agg_joint) <- paste0("sim_", 1:nsim)
agg_df <- cbind(groups, agg_joint)
# --- 5. Estatísticas resumo -------------------------------------------------
m2_joint_summary <- agg_df %>%
tidyr::pivot_longer(cols = starts_with("sim_"), values_to = "delta_G") %>%
group_by(Year, nom_subsistema.x) %>%
summarise(
mean = mean(delta_G, na.rm = TRUE),
lwr = quantile(delta_G, 0.025, na.rm = TRUE),
upr = quantile(delta_G, 0.975, na.rm = TRUE),
.groups = "drop"
)
library(ggplot2)
m2_joint_summary %>%
ggplot(aes(x = Year, y = mean)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), fill = "firebrick", alpha = 0.3) +
geom_line(color = "black") +
facet_wrap(~nom_subsistema.x, scales = "free_y") +
labs(title = "Joint propagated climate penalty on hydropower generation (ΔG_hidro)",
subtitle = "Uncertainty fully propagated from climate → storage → generation",
y = "ΔG_hidro (MW·month)", x = "Year") +
theme_minimal()
A Figura apresenta a penalidade climática sobre a geração hidrelétrica (ΔG_hidro) estimada com propagação conjunta de incerteza ao longo de toda a cadeia climato-hidrológica. Diferentemente das abordagens que tratam os modelos de forma independente, esta simulação incorpora simultaneamente a incerteza dos coeficientes do modelo climático (EAR ~ clima) e do modelo hidrelétrico (geração ~ EAR), gerando uma distribuição conjunta de resultados. Cada trajetória Monte Carlo representa uma combinação plausível de parâmetros e condições climáticas, permitindo capturar a variabilidade estrutural e climática do sistema.
Os resultados mostram que a incerteza propagada amplia os intervalos
de confiança das estimativas anuais de ΔG_hidro, principalmente após
2010, quando a variabilidade climática e operacional aumenta
significativamente. O subsistema Sudeste concentra as
maiores perdas médias (até –4,5 × 10⁶ MW·mês) e a maior dispersão
interanual, refletindo tanto a magnitude de sua capacidade de
armazenamento quanto sua exposição a secas prolongadas. O
Sul apresenta penalidades menores, mas com amplitudes
de incerteza elevadas, coerentes com sua instabilidade hidrológica.
Nordeste e Norte mostram menores
déficits absolutos, mas com tendência negativa contínua.
Esses resultados representam a estimativa mais completa de
impacto climático propagado no sistema elétrico, pois
integram incertezas climáticas, hidrológicas e operacionais dentro de
uma mesma estrutura probabilística.
| Aggregate climate penalty on Hidric Generation (2001–2018) | |||
| Simulated mean and 95% confidence intervals per subsystem | |||
| Subsystem | Mean ΔG_hidro (GWh) | Lower 95% | Upper 95% |
|---|---|---|---|
| NORDESTE | −6.8 | −7.0 | −6.6 |
| NORTE | −1.9 | −2.1 | −1.6 |
| SUDESTE | −79.0 | −82.5 | −76.0 |
| SUL | −16.7 | −17.8 | −15.9 |
| Total | −104.4 | −109.4 | −100.1 |
3.3 Modelo 3 — Geração Termica como Função da Geração Hidrelétrica
ger %>%mutate(usina_fonte=paste0("ger_",nom_tipousina)) %>%
filter(!nom_subsistema=="PARAGUAI") %>% #,"_",nom_tipousina)) %>%
mutate(usina_fonte=case_when(usina_fonte=="ger_BOMBEAMENTO"~"ger_HIDROELÉTRICA",
TRUE~usina_fonte)) %>% #,"_",nom_tipousina)) %>%
group_by(date,nom_subsistema,usina_fonte,val_geracao_day_subsistema) %>%
summarise(ger=sum(val_geracao,na.rm = T)) %>% ungroup() %>%
spread(usina_fonte,ger,fill = 0) %>% janitor::clean_names() %>%
mutate()->gera_energ_day`summarise()` has grouped output by 'date', 'nom_subsistema', 'usina_fonte'. You can override using the `.groups`
argument.gera_energ_day$doy <- lubridate::yday(gera_energ_day$date)
gera_energ_day$dow <- lubridate::wday(gera_energ_day$date, label=TRUE, abbr=TRUE)
gera_energ_day$month <- lubridate::month(gera_energ_day$date)
gera_energ_day$trend <- lubridate::year(gera_energ_day$date)O Modelo 3 estima a resposta da geração térmica às variações na geração hidrelétrica, incorporando a competição com outras fontes e o ciclo sazonal de demanda. O modelo aditivo generalizado (GAM) foi ajustado para o período 2000–2019, com estrutura semiparamétrica que permite capturar relações não lineares entre as fontes de geração e seus determinantes temporais. Os resultados indicam uma relação negativa e estatisticamente significativa entre geração hidrelétrica e térmica, evidenciando o papel da térmica como mecanismo de compensação durante períodos de escassez hídrica. O efeito marginal de ger_hidroeletrica é fortemente não linear, com respostas mais intensas em faixas intermediárias de redução, o que sugere que o despacho térmico atinge limites estruturais de expansão em anos de seca severa.
library(mgcv)
library(dplyr)
# --- Preparação dos dados ---------------------------------------------------
gera_energ_day <- gera_energ_day %>%
mutate(
Demanda = ger_eolieletrica + ger_fotovoltaica + ger_hidroeletrica + ger_termica + ger_nuclear,
month = as.numeric(format(date, "%m")),
trend = as.numeric(date - min(date)) / 30 # tendência linear em meses
)
# --- Modelo GAM 3: Geração Térmica como função da Hidro + outras fontes -----
m3_gam_termica <- bam(
ger_termica ~
s(ger_hidroeletrica, k = 4) + # principal efeito substitutivo
s(ger_eolieletrica, k = 4) +
s(ger_fotovoltaica, k = 4) +
s(ger_nuclear, k = 3) +
s(trend, k = 3) +
s(month, bs = "cc", k = 4) + # padrão sazonal
s(nom_subsistema, bs = "re"), # efeito aleatório por subsistema
data = gera_energ_day,
method = "fREML",
discrete = TRUE,
family = gaussian(),
na.action = na.exclude
)
summary(m3_gam_termica)
Family: gaussian
Link function: identity
Formula:
ger_termica ~ s(ger_hidroeletrica, k = 4) + s(ger_eolieletrica,
k = 4) + s(ger_fotovoltaica, k = 4) + s(ger_nuclear, k = 3) +
s(trend, k = 3) + s(month, bs = "cc", k = 4) + s(nom_subsistema,
bs = "re")
Parametric coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -787.8 823.8 -0.956 0.339
Approximate significance of smooth terms:
edf Ref.df F p-value
s(ger_hidroeletrica) 2.992 3.000 1232.94 <2e-16 ***
s(ger_eolieletrica) 2.894 2.991 156.12 <2e-16 ***
s(ger_fotovoltaica) 2.776 2.961 114.92 <2e-16 ***
s(ger_nuclear) 1.995 2.000 286.46 <2e-16 ***
s(trend) 1.999 2.000 9001.42 <2e-16 ***
s(month) 1.938 2.000 32.08 <2e-16 ***
s(nom_subsistema) 2.998 3.000 1456.35 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
R-sq.(adj) = 0.64 Deviance explained = 64.1%
fREML = 2.2921e+05 Scale est. = 8.896e+05 n = 27720summary(m3_gam_termica)
Family: gaussian
Link function: identity
Formula:
ger_termica ~ s(ger_hidroeletrica, k = 4) + s(ger_eolieletrica,
k = 4) + s(ger_fotovoltaica, k = 4) + s(ger_nuclear, k = 3) +
s(trend, k = 3) + s(month, bs = "cc", k = 4) + s(nom_subsistema,
bs = "re")
Parametric coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -787.8 823.8 -0.956 0.339
Approximate significance of smooth terms:
edf Ref.df F p-value
s(ger_hidroeletrica) 2.992 3.000 1232.94 <2e-16 ***
s(ger_eolieletrica) 2.894 2.991 156.12 <2e-16 ***
s(ger_fotovoltaica) 2.776 2.961 114.92 <2e-16 ***
s(ger_nuclear) 1.995 2.000 286.46 <2e-16 ***
s(trend) 1.999 2.000 9001.42 <2e-16 ***
s(month) 1.938 2.000 32.08 <2e-16 ***
s(nom_subsistema) 2.998 3.000 1456.35 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
R-sq.(adj) = 0.64 Deviance explained = 64.1%
fREML = 2.2921e+05 Scale est. = 8.896e+05 n = 27720gtsummary::tbl_regression(m3_gam_termica)| Characteristic | Beta | 95% CI1 | p-value |
|---|---|---|---|
| s(ger_hidroeletrica) | <0.001 | ||
| s(ger_eolieletrica) | <0.001 | ||
| s(ger_fotovoltaica) | <0.001 | ||
| s(ger_nuclear) | <0.001 | ||
| s(trend) | <0.001 | ||
| s(month) | <0.001 | ||
| s(nom_subsistema) | <0.001 | ||
| 1 CI = Confidence Interval | |||
summary(m3_gam_termica)
Family: gaussian
Link function: identity
Formula:
ger_termica ~ s(ger_hidroeletrica, k = 4) + s(ger_eolieletrica,
k = 4) + s(ger_fotovoltaica, k = 4) + s(ger_nuclear, k = 3) +
s(trend, k = 3) + s(month, bs = "cc", k = 4) + s(nom_subsistema,
bs = "re")
Parametric coefficients:
Estimate Std. Error t value Pr(>|t|)
(Intercept) -787.8 823.8 -0.956 0.339
Approximate significance of smooth terms:
edf Ref.df F p-value
s(ger_hidroeletrica) 2.992 3.000 1232.94 <2e-16 ***
s(ger_eolieletrica) 2.894 2.991 156.12 <2e-16 ***
s(ger_fotovoltaica) 2.776 2.961 114.92 <2e-16 ***
s(ger_nuclear) 1.995 2.000 286.46 <2e-16 ***
s(trend) 1.999 2.000 9001.42 <2e-16 ***
s(month) 1.938 2.000 32.08 <2e-16 ***
s(nom_subsistema) 2.998 3.000 1456.35 <2e-16 ***
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
R-sq.(adj) = 0.64 Deviance explained = 64.1%
fREML = 2.2921e+05 Scale est. = 8.896e+05 n = 27720gam.check(m3_gam_termica) # resíduos, QQ, k-index
Method: fREML Optimizer: perf chol
$grad
[1] 1.205702e-13 5.429845e-11 -1.033618e-12 -2.708944e-14 -4.829470e-15 6.816769e-14 -7.072565e-12 -7.457857e-11
$hess
[,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8]
0.9883142962 -8.856653e-04 2.730534e-04 -7.271170e-05 -2.603453e-04 7.463443e-04 3.981428e-03 -0.9959066
-0.0008856653 9.219307e-01 -2.109634e-02 1.000508e-05 8.312688e-05 1.723227e-03 -3.026784e-04 -0.9471637
0.0002730534 -2.109634e-02 9.213932e-01 1.985105e-04 9.856470e-04 1.508993e-04 7.099507e-05 -0.8880399
-0.0000727117 1.000508e-05 1.985105e-04 4.949073e-01 1.848018e-04 4.696454e-05 -2.721074e-03 -0.4974471
-0.0002603453 8.312688e-05 9.856470e-04 1.848018e-04 4.994466e-01 -5.285724e-05 2.935265e-04 -0.4997232
0.0007463443 1.723227e-03 1.508993e-04 4.696454e-05 -5.285724e-05 9.398041e-01 -6.939647e-04 -0.9690149
0.0039814281 -3.026784e-04 7.099507e-05 -2.721074e-03 2.935265e-04 -6.939647e-04 1.494466e+00 -1.4989487
d -0.9959066280 -9.471637e-01 -8.880399e-01 -4.974471e-01 -4.997232e-01 -9.690149e-01 -1.498949e+00 13857.0000000
Model rank = 20 / 20
Basis dimension (k) checking results. Low p-value (k-index<1) may
indicate that k is too low, especially if edf is close to k'.
k' edf k-index p-value
s(ger_hidroeletrica) 3.00 2.99 0.97 0.04 *
s(ger_eolieletrica) 3.00 2.89 0.91 <2e-16 ***
s(ger_fotovoltaica) 3.00 2.78 0.96 <2e-16 ***
s(ger_nuclear) 2.00 1.99 0.82 <2e-16 ***
s(trend) 2.00 2.00 0.66 <2e-16 ***
s(month) 2.00 1.94 0.98 0.15
s(nom_subsistema) 4.00 3.00 NA NA
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
concurvity(m3_gam_termica, full=TRUE) para s(ger_hidroeletrica) s(ger_eolieletrica) s(ger_fotovoltaica) s(ger_nuclear) s(trend) s(month)
worst 1 0.9699515 0.9743453 0.9803583 0.9865347 0.5253456 0.045970123
observed 1 0.9139044 0.9649493 0.9745509 0.4513722 0.5170433 0.008790182
estimate 1 0.9483522 0.9675855 0.9759606 0.9538527 0.4526359 0.026845035
s(nom_subsistema)
worst 1.0000000
observed 0.9309092
estimate 0.6182478plot(m3_gam_termica, pages=4, scheme=1, shade=TRUE, se=TRUE)
\(𝑔𝑒𝑟 𝑡𝑒𝑟𝑚𝑖𝑐𝑎_𝑡=𝑓_1(𝑔𝑒_h𝑖𝑑𝑟𝑜_𝑡)+𝑓_2(𝑔𝑒𝑟_𝑒𝑜𝑙𝑖𝑐𝑎_𝑡)+𝑓_3(𝑔𝑒𝑟_𝑠𝑜𝑙𝑎𝑟_𝑡)+_𝑓_4(𝑔𝑒𝑟_𝑛𝑢𝑐𝑙𝑒𝑎𝑟𝑡)+𝑓_5(𝑡𝑟𝑒𝑛𝑑_𝑡)+𝑓_6(𝑚𝑜𝑛𝑡ℎ_𝑡)+𝑢𝑠𝑢𝑏𝑠𝑖𝑠𝑡𝑒𝑚𝑎+𝜀\) Qualidade do ajuste
O modelo apresenta R² ajustado de 0,64 e deviance explicada de 64,1%, indicando boa capacidade preditiva diante da alta variabilidade interdiária. Todos os efeitos suaves são altamente significativos (p < 0.001), com exceção do intercepto. O histograma e o QQ-plot dos resíduos mostram distribuição aproximadamente normal, com leve assimetria nas caudas — reflexo de picos de despacho térmico em períodos de seca severa.
O gráfico “Resíduos vs. Valores Ajustados” revela dispersão crescente com o aumento da geração prevista, sugerindo heterocedasticidade moderada associada a regimes distintos de operação (base × pico). Ainda assim, os resíduos são centrados e sem padrão sistemático, confirmando a adequação geral da especificação.
Efeitos parciais
Os efeitos marginais estimados exibem comportamentos coerentes com a lógica física do sistema:
- s(ger_hidroeletrica) → forte relação inversa e não linear: reduções na geração hídrica aumentam a geração térmica, especialmente em faixas intermediárias de operação (substituição estrutural). Em níveis extremos, o efeito se estabiliza, indicando limite de despacho térmico.
-s(ger_eolieletrica) e s(ger_fotovoltaica) → ambas apresentam efeitos substitutivos negativos, evidenciando o papel das renováveis na mitigação do uso térmico.
s(ger_nuclear) → relação levemente côncava, estável, refletindo despacho praticamente fixo.
s(trend) → tendência ascendente, indicando aumento gradual da base térmica no longo prazo, coerente com a expansão de termelétricas entre 2005–2015.
s(month) → padrão quase plano, com fraca sazonalidade residual após o controle hidrológico.
Efeito aleatório (nom_subsistema) → o ajuste confirma diferenças estruturais regionais: subsistemas do Sudeste e Sul exibem maior intensidade térmica relativa que Norte e Nordeste.
Síntese O modelo confirma o papel contracíclico da geração térmica no sistema elétrico brasileiro: quando o clima reduz a geração hídrica, a resposta térmica compensa parte do déficit, com sensibilidade não linear e limites operacionais definidos.
A estrutura suavizada dos efeitos permite quantificar a elasticidade marginal entre fontes, que será usada na próxima etapa para estimar a penalidade térmica propagada (ΔG_term) resultante da penalidade hídrica (ΔG_hidro) obtida no Modelo
Predições factual vs. contrafactual (propagação de incerteza)
# --- Predições factual e contrafactual ---
set.seed(20251013)
nsim <- 1000 # número de simulações conjuntas
# --- 1. Matriz de covariância de cada modelo ---------------------------------
# --- Covariâncias e sorteios de coeficientes ---
Vp1 <- vcov(m1_gam) # M1: EAR ~ clima
Vp2 <- vcov(m2_hidro) # M2: G_hidro ~ EAR
Vp3 <- vcov(m3_gam_termica) # M3: G_term ~ G_hidro + controles
b1 <- MASS::mvrnorm(nsim, coef(m1_gam), Vp1)
b2 <- MASS::mvrnorm(nsim, coef(m2_hidro), Vp2)
b3 <- MASS::mvrnorm(nsim, coef(m3_gam_termica), Vp3)
# --- 2. Matrizes de design do modelo 1 (clima → EAR) --------------------------
X1_obs <- predict(m1_gam, newdata = nd_obs, type = "lpmatrix")
X1_cf <- predict(m1_gam, newdata = nd_cf, type = "lpmatrix")
delta_Gterm_mat <- matrix(NA_real_, nrow = nrow(gera_energ_day), ncol = nsim)
# Prepara chaves para agregação M2→M3
keys_m2 <- reserv %>% select(date, nom_subsistema.x) %>% as.data.frame()
keys_m3 <- gera_energ_day %>% select(date, nom_subsistema) %>% as.data.frame()
# --- 5. Loop principal de propagação Monte Carlo -----------------------------
for (s in seq_len(nsim)) {
# ===== (1) EAR factual e contrafactual (M1) no nível de reservatório×dia
ear_f <- as.numeric(X1_obs %*% b1[s, ])
ear_c <- as.numeric(X1_cf %*% b1[s, ])
# ===== (2) Predição de G_hidro factual e cf (M2) no nível de reservatório×dia
nd2_f <- reserv %>% mutate(ear_reservatorio_subsistema_proprio_mwmes = ear_f)
nd2_c <- reserv %>% mutate(ear_reservatorio_subsistema_proprio_mwmes = ear_c)
X2_f <- predict(m2_hidro, newdata = nd2_f, type = "lpmatrix")
X2_c <- predict(m2_hidro, newdata = nd2_c, type = "lpmatrix")
g_h_f_res <- as.numeric(X2_f %*% b2[s, ]) # por reservatório×dia
g_h_c_res <- as.numeric(X2_c %*% b2[s, ])
# ===== (3) Agregar G_hidro por subsistema×dia (para alimentar M3)
df_h <- data.frame(date = keys_m2$date,
subs = keys_m2$nom_subsistema.x,
g_h_f = g_h_f_res,
g_h_c = g_h_c_res)
g_h_agg <- df_h |>
group_by(date, subs) |>
summarise(g_h_f = sum(g_h_f, na.rm = TRUE),
g_h_c = sum(g_h_c, na.rm = TRUE), .groups = "drop")
# ΔG_hidro_clima (subsistema×dia)
g_h_agg <- g_h_agg |>
mutate(delta_g_hidro_clima = g_h_f - g_h_c)
# ===== (4) Construir input do M3
# factual: usa a hidrelétrica observada (gera_energ_day$ger_hidroeletrica)
# contrafactual: obs − ΔG_hidro_clima
nd3 <- gera_energ_day |>
left_join(g_h_agg,
by = c("date" = "date", "nom_subsistema" = "subs"))
# se faltar subsistema em algum dia, trata NA como 0 delta
nd3$delta_g_hidro_clima[is.na(nd3$delta_g_hidro_clima)] <- 0
g_h_obs <- nd3$ger_hidroeletrica
g_h_cfM3 <- pmax(g_h_obs - nd3$delta_g_hidro_clima, 0) # clipping em 0
nd3_f <- nd3 %>% mutate(ger_hidroeletrica = g_h_obs) # factual (observado)
nd3_c <- nd3 %>% mutate(ger_hidroeletrica = g_h_cfM3) # contrafactual (obs − Δclima)
# ===== (5) Predição térmica factual e cf (M3) no nível subsistema×dia
X3_f <- predict(m3_gam_termica, newdata = nd3_f, type = "lpmatrix")
X3_c <- predict(m3_gam_termica, newdata = nd3_c, type = "lpmatrix")
g_t_f <- as.numeric(X3_f %*% b3[s, ])
g_t_c <- as.numeric(X3_c %*% b3[s, ])
delta_Gterm_mat[, s] <- g_t_f - g_t_c
}# --- 6. Agregação anual por subsistema ---------------------------------------
# --- Agregação anual por subsistema (ΔG_term) ---
dt_term <- gera_energ_day %>% transmute(Year = year(date), nom_subsistema)
groups <- unique(dt_term)
agg_term <- lapply(seq_len(nrow(groups)), function(g){
idx <- which(dt_term$Year == groups$Year[g] &
dt_term$nom_subsistema == groups$nom_subsistema[g])
colSums(delta_Gterm_mat[idx, , drop = FALSE], na.rm = TRUE)
})
agg_term <- do.call(rbind, agg_term)
colnames(agg_term) <- paste0("sim_", 1:nsim)
m3_term_summary <- cbind(groups, as.data.frame(agg_term)) |>
pivot_longer(cols = starts_with("sim_"), values_to = "delta_G_term") |>
group_by(Year, nom_subsistema) |>
summarise(mean = mean(delta_G_term, na.rm = TRUE),
lwr = quantile(delta_G_term, 0.025, na.rm = TRUE),
upr = quantile(delta_G_term, 0.975, na.rm = TRUE),
.groups = "drop")
# Visualização do ΔG_hidro propagado
ggplot(m3_term_summary, aes(x = Year, y = mean)) +
geom_ribbon(aes(ymin = lwr, ymax = upr), fill = "steelblue", alpha = 1) +
geom_ribbon(aes(ymin = 0, ymax = upr), fill = "red3", alpha = 0.1) +
geom_line(color = "black") +
facet_wrap(~nom_subsistema, scales = "free_y") +
labs(
title = "Propagated climate penalty on hydropower generation (ΔG_hidro)",
subtitle = "Uncertainty propagated from climate → storage → generation",
x = "Year", y = "ΔG_hidro (MW·month)"
) +
theme_minimal()
m3_summary <- m3_term_summary %>%ungroup %>%
#mutate(Year = year(date)) %>% ungroup() %>%
group_by( nom_subsistema) %>%
summarise(
mean_penalty = mean(mean, na.rm = TRUE),
lwr = mean(lwr, na.rm = TRUE),
upr = mean(upr, na.rm = TRUE),
.groups = "drop"
)
library(gt)
m3_summary[,c("nom_subsistema","mean_penalty","lwr", "upr")] %>% janitor::adorn_totals() %>%
gt() %>%
fmt_number(columns = 2:4, decimals = 1) %>%
cols_label(
nom_subsistema = "Subsystem",
mean_penalty = "Sum Δger Term (MWh)",
lwr = "Lower 95%",
upr = "Upper 95%",
) %>%
tab_header(
title = md("**Aggregate climate penalty on stored energy (2001–2018)**"),
subtitle = "Simulated mean and 95% confidence intervals per subsystem"
)| Aggregate climate penalty on stored energy (2001–2018) | |||
| Simulated mean and 95% confidence intervals per subsystem | |||
| Subsystem | Sum Δger Term (MWh) | Lower 95% | Upper 95% |
|---|---|---|---|
| NORDESTE | 1,139.6 | −4.6 | 2,006.3 |
| NORTE | −210.0 | −1,937.2 | 1,464.2 |
| SUDESTE | −6,267.5 | −15,251.4 | 4,005.1 |
| SUL | −18,148.0 | −32,251.9 | 861.3 |
| Total | −23,486.0 | −49,445.1 | 8,336.9 |
Modelo 3 PLD: Custo para o sistema
pld <- read.csv("preco_semanal.csv") # PLD semanal
pld$date <- as.Date(pld$datas) # idem para a base de PLD
pld$week <- lubridate::isoweek(pld$datas)
pld$year <- lubridate::year(pld$datas)
#pld$date<-pld$DATA_INICIO %>% as_date()
pld %>% spread(Submercado,preco)->pld
pld$date %>% min()->inicio
pld %>% filter(DATA_INICIO==inicio)
datas<-gera_energ_day$date %>% unique
data.frame(datas) %>% filter(datas>inicio-1) %>% arrange(datas) %>% left_join(pld,by = c("datas"="date"))->daas_completas
daas_completas
i=2
for (i in 1:length(daas_completas$ANO)) {#length(daas_completas$ANO)
print(i)
if (is.na(daas_completas$ANO[i])) {
daas_completas$ANO[i]<-daas_completas$ANO[i-1]
daas_completas$MES[i]<-daas_completas$MES[i-1]
daas_completas$SEMANA[i]<-daas_completas$SEMANA[i-1]
daas_completas$DATA_FIM[i]<-daas_completas$DATA_FIM[i-1]
daas_completas$SUDESTE[i]<-daas_completas$SUDESTE[i-1]
daas_completas$SUL[i]<-daas_completas$SUL[i-1]
daas_completas$NORDESTE[i]<-daas_completas$NORDESTE[i-1]
daas_completas$NORTE[i]<-daas_completas$NORTE[i-1]
}
}
daas_completas %>% gather(key = "nom_subsitema",value = "preco",c("NORDESTE","SUDESTE","SUL","NORTE"))->pldserie <- daas_completas %>%
pull(NORDESTE) %>%
ts(start = c(2001, 181), frequency = 365)
stl(serie,s.window = "periodic") %>% plot
serie <- daas_completas %>%
pull(SUL) %>%
ts(start = c(2001, 181), frequency = 365)
stl(serie,s.window = "periodic") %>% plot
serie <- daas_completas %>%
pull(SUDESTE) %>%
ts(start = c(2001, 181), frequency = 365)
stl(serie,s.window = "periodic") %>% plot
serie <- daas_completas %>%
pull(NORTE) %>%
ts(start = c(2001, 181), frequency = 365)
stl(serie,s.window = "periodic") %>% plot
pld$Submercado %>% unique()
gera_energ_day$nom_subsistema.x %>% unique
#newdata_m1 %>% write.csv("base valores previstos.csv")
#gera_energ_day %>% write.csv("valores_previstos_day.csv")gera_energ_day %>% inner_join(pld,by=c("date","nom_subsistema.x"="nom_subsitema"))->pld_full
pld_full %>% summary()Contrafactual PLD
gera_energ_day$ger_termica_prevista<-predict(m_gam_fontes,
newdata = gera_energ_day %>%
mutate(
nom_subsistema=nom_subsistema.x,
Demanda = ger_eolieletrica+ger_fotovoltaica+ger_hidroeletrica+ger_termica+ger_nuclear)
)
gera_energ_day$ger_termica_prevista_cf<-predict(m_gam_fontes,
newdata = gera_energ_day %>%
mutate(ger_hidroeletrica=ger_hidroeletrica+penalidade_geração_hidro,
nom_subsistema=nom_subsistema.x,
#ger_termica=ger_termica-penalidade_termico,
Demanda = ger_eolieletrica+ger_fotovoltaica+ger_hidroeletrica+ger_termica+ger_nuclear)
)LS0tDQp0aXRsZTogIkNsaW1hdGUgUGVuYWx0aWVzIGFuZCBTY2FyY2l0eSBQcmVzc3VyZSBpbiBCcmF6aWzigJlzIFBvd2VyIFNlY3RvciINCmF1dGhvcjogIlRoaWFnbyBHYXJkaW4gJiBEYW5pZWwgRGFubmEiDQpkYXRlOiAiMjAyNS0xMC0wNiAiDQpvdXRwdXQ6DQogIGh0bWxfbm90ZWJvb2s6IA0KICAgIHRvYzogdHJ1ZQ0KICAgIHRvY19kZXB0aDogMg0KICAgIHRoZW1lOiBqb3VybmFsDQplZGl0b3Jfb3B0aW9uczoNCiAgY2h1bmtfb3V0cHV0X3R5cGU6IGlubGluZQ0KLS0tDQoNCiMgUGFjb3Rlcw0KDQpgYGB7ciBDYXJyZWdhciBwYWNvdGVzLWJhc2UgZG8gcHJvamV0bzsgZGVmaW5pciBvcMOnw7VlcyBnbG9iYWlzfQ0KIyBDYXJyZWdhciBwYWNvdGVzLWJhc2UgZG8gcHJvamV0bw0KIyBNYW5pcHVsYcOnw6NvIGUgZGF0YXMNCmxpYnJhcnkodGlkeXZlcnNlKTtsaWJyYXJ5KGRhdGEudGFibGUpO2xpYnJhcnkobHVicmlkYXRlKTtsaWJyYXJ5KHBhdGNod29yayk7bGlicmFyeShIbWlzYykNCg0KIyBNb2RlbGFnZW0NCmxpYnJhcnkobWdjdik7bGlicmFyeShncmF0aWEpO2xpYnJhcnkobHVicmlkYXRlKTtsaWJyYXJ5KG1vZGVsc3VtbWFyeSk7bGlicmFyeShndCk7bGlicmFyeShnbHVlKTtsaWJyYXJ5KHNjYWxlcyk7bGlicmFyeShicm9vbSk7bGlicmFyeShicm9vbS5oZWxwZXJzKTtsaWJyYXJ5KGdlb2JyKQ0KIyBVdGlsaWRhZGVzDQpsaWJyYXJ5KHNjYWxlcyk7bGlicmFyeShwYXRjaHdvcmspO2xpYnJhcnkoa25pdHIpO2xpYnJhcnkoa2FibGVFeHRyYSkNCg0KIyBEZWZpbmlyIG9ww6fDtWVzIGdsb2JhaXMgZGUga25pdHINCmtuaXRyOjpvcHRzX2NodW5rJHNldCgNCiAgZWNobyAgICAgICA9IFRSVUUsDQogIG1lc3NhZ2UgICAgPSBUUlVFLA0KICB3YXJuaW5nICAgID0gVFJVRSwNCiAgZHBpICAgICAgICA9IDEyMCwNCiAgZmlnLmFsaWduICA9ICJjZW50ZXIiLA0KICBmaWcud2lkdGggID0gMTIsDQogIGZpZy5oZWlnaHQgPSA4DQopDQoNCiMgVGVtYSB2aXN1YWwgcGFkcsOjbyANCnRoZW1lX2FydGljbGUgPC0gZnVuY3Rpb24oKXsNCiAgdGhlbWVfbWluaW1hbChiYXNlX3NpemUgPSAxMSkgKw0KICAgIHRoZW1lKA0KICAgICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChmYWNlPSJib2xkIiksDQogICAgICBwbG90LnN1YnRpdGxlID0gZWxlbWVudF90ZXh0KG1hcmdpbj1tYXJnaW4oYj02KSksDQogICAgICBwbG90LmNhcHRpb24gID0gZWxlbWVudF90ZXh0KHNpemU9OSwgY29sb3I9ImdyZXkzMCIpLA0KICAgICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfdGV4dCgpLA0KICAgICAgcGFuZWwuZ3JpZC5taW5vciA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJ0b3AiDQogICAgKQ0KfQ0KdGhlbWVfc2V0KHRoZW1lX2FydGljbGUoKSkNCnNldC5zZWVkKDEyMzQpDQpgYGANCg0KYGBge3IgaGVscGVyc30NCnByZWRpY3RfZ2FtX2NpIDwtIGZ1bmN0aW9uKG1vZGVsLCBuZXdkYXRhLCB0eXBlID0gImxpbmsiLCBsZXZlbCA9IDAuOTUpew0KICBzdG9waWZub3QoaW5oZXJpdHMobW9kZWwsICJnYW0iKSkNCiAgcHIgPC0gcHJlZGljdChtb2RlbCwgbmV3ZGF0YSA9IG5ld2RhdGEsIHR5cGUgPSB0eXBlLCBzZS5maXQgPSBUUlVFKQ0KICBhbHBoYSA8LSAxIC0gbGV2ZWwNCiAgY3JpdCAgPC0gcW5vcm0oMSAtIGFscGhhLzIpDQogIHRpYmJsZSgNCiAgICAuZml0dGVkID0gYXMubnVtZXJpYyhwciRmaXQpLA0KICAgIC5zZSAgICAgPSBhcy5udW1lcmljKHByJHNlLmZpdCksDQogICAgLmxvd2VyICA9IC5maXR0ZWQgLSBjcml0Ki5zZSwNCiAgICAudXBwZXIgID0gLmZpdHRlZCArIGNyaXQqLnNlDQogICkNCn0NCmV4cG9ydF9maWd1cmUgPC0gZnVuY3Rpb24ocCwgZmlsZW5hbWUsIHdpZHRoID0gNywgaGVpZ2h0ID0gNC4yKXsNCiAgZ2dzYXZlKGdsdWUoImZpZ3VyZXMve2ZpbGVuYW1lfS5wZGYiKSwgcGxvdCA9IHAsIHdpZHRoID0gd2lkdGgsIGhlaWdodCA9IGhlaWdodCwgZHBpID0gMzAwLCBkZXZpY2UgPSBjYWlyb19wZGYpDQogIGdnc2F2ZShnbHVlKCJmaWd1cmVzL3tmaWxlbmFtZX0uZXBzIiksIHBsb3QgPSBwLCB3aWR0aCA9IHdpZHRoLCBoZWlnaHQgPSBoZWlnaHQsIGRwaSA9IDMwMCwgZGV2aWNlID0gImVwcyIpDQogIGdnc2F2ZShnbHVlKCJmaWd1cmVzL3tmaWxlbmFtZX0udGlmZiIpLHBsb3QgPSBwLCB3aWR0aCA9IHdpZHRoLCBoZWlnaHQgPSBoZWlnaHQsIGRwaSA9IDYwMCwgY29tcHJlc3Npb24gPSAibHp3IikNCiAgaW52aXNpYmxlKE5VTEwpDQp9DQpleHBvcnRfdGFibGUgPC0gZnVuY3Rpb24oZ3Rfb2JqLCBmaWxlbmFtZSl7DQogIGd0c2F2ZShndF9vYmosIGZpbGVuYW1lID0gZ2x1ZSgidGFibGVzL3tmaWxlbmFtZX0uaHRtbCIpKQ0KICAjIFBORyAocHJlY2lzYSB3ZWJzaG90MiBpbnN0YWxhZG8vY29uZmlndXJhZG8pDQogIHRyeShndHNhdmUoZ3Rfb2JqLCBmaWxlbmFtZSA9IGdsdWUoInRhYmxlcy97ZmlsZW5hbWV9LnBuZyIpKSkNCiAgIyBMYVRlWA0KICB0cnkoZ3RzYXZlKGd0X29iaiwgZmlsZW5hbWUgPSBnbHVlKCJ0YWJsZXMve2ZpbGVuYW1lfS50ZXgiKSkpDQogIGludmlzaWJsZShOVUxMKQ0KfQ0KDQojIEVzdGlsbyBwYWRyw6NvIGRlIHRhYmVsYQ0KZ3RfYXJ0aWNsZSA8LSBmdW5jdGlvbihkYXQsIHRpdGxlID0gTlVMTCwgc3VidGl0bGUgPSBOVUxMLCBub3RlID0gTlVMTCl7DQogIGRhdCAlPiUNCiAgICBndCgpICU+JQ0KICAgIHRhYl9oZWFkZXIodGl0bGUgPSBtZCh0aXRsZSAlfHwlICIiKSwgc3VidGl0bGUgPSBtZChzdWJ0aXRsZSAlfHwlICIiKSkgJT4lDQogICAgZm10X251bWJlcih3aGVyZShpcy5udW1lcmljKSwgZGVjaW1hbHMgPSAyKSAlPiUNCiAgICB0YWJfb3B0aW9ucyh0YWJsZS5mb250LnNpemUgPSBweCgxMikpICU+JQ0KICAgIG9wdF9ob3Jpem9udGFsX3BhZGRpbmcoc2NhbGUgPSAxLjEpICU+JQ0KICAgIG9wdF92ZXJ0aWNhbF9wYWRkaW5nKHNjYWxlID0gMS4xKSAlPiUNCiAgICB0YWJfc291cmNlX25vdGUobWQobm90ZSAlfHwlICJOb3RlczogQXV0aG9y4oCZcyBjYWxjdWxhdGlvbnMuIikpDQp9DQpgYGANCg0KIyAxLiBJbnRyb2R1Y3Rpb24NCg0KVGhpcyByZXBvcnQgZG9jdW1lbnRzIHRoZSBhbmFseXRpY2FsIHBpcGVsaW5lIGRldmVsb3BlZCB0byBlc3RpbWF0ZSB0aGUgY2xpbWF0aWMgcGVuYWx0eSAocGVuYWxpZGFkZSBjbGltw6F0aWNhKSBvbiBCcmF6aWzigJlzIGVsZWN0cmljaXR5IHNlY3RvciBhbmQgdG8gdHJhbnNsYXRlIHRoZXNlIGVmZmVjdHMgaW50byBtZWFzdXJhYmxlIGVjb25vbWljIGNvc3RzLiBUaGUgYW5hbHlzaXMgd2FzIGNvbmR1Y3RlZCB1c2luZyBtb250aGx5IGRhdGEgZnJvbSAyMDAxIHRvIDIwMTksIGNvdmVyaW5nIGFsbCBmb3VyIHN1YnN5c3RlbXMgb2YgdGhlIE5hdGlvbmFsIEludGVyY29ubmVjdGVkIFN5c3RlbSAoU0lOKS4NCg0KVGhlIHN0dWR5IHByb2NlZWRzIHRocm91Z2ggdGhlIGZvbGxvd2luZyBzdGVwczoNCg0KMS4gIEh5ZHJvbG9naWNhbCBtb2RlbGxpbmcg4oCUIFdlIGVzdGltYXRlZCB0aGUgcmVsYXRpb25zaGlwIGJldHdlZW4gY2xpbWF0aWMgdmFyaWFibGVzIChwcmVjaXBpdGF0aW9uLCB0ZW1wZXJhdHVyZSwgaHVtaWRpdHksIHdpbmQpIGFuZCBzdG9yZWQgZW5lcmd5IChFQVIpIGFuZCBoeWRyb2VsZWN0cmljIGdlbmVyYXRpb24gdXNpbmcgR2VuZXJhbGl6ZWQgQWRkaXRpdmUgTW9kZWxzIChHQU1zKS4gVGhlc2UgbW9kZWxzIGNhcHR1cmUgbm9uLWxpbmVhciBjbGltYXRl4oCTaHlkcm9sb2d5IGludGVyYWN0aW9ucyBhbmQgc2Vhc29uYWwgZWZmZWN0cyBhdCB0aGUgc3Vic3lzdGVtIGxldmVsLg0KDQoyLiAgQ2xpbWF0aWMgY291bnRlcmZhY3R1YWxzIOKAlCBVc2luZyB0aGUgZml0dGVkIEdBTXMsIHdlIHNpbXVsYXRlZCBjb3VudGVyZmFjdHVhbCB0cmFqZWN0b3JpZXMgZml4aW5nIHRoZSBjbGltYXRpYyBjb3ZhcmlhdGVzIGF0IHRoZWlyIGhpc3RvcmljYWwgbWVhbiBsZXZlbHMgKGJhc2VsaW5lIDIwMDHigJMyMDA1KS4gVGhlIGRldmlhdGlvbiBiZXR3ZWVuIG9ic2VydmVkIGFuZCBjb3VudGVyZmFjdHVhbCB2YWx1ZXMgaXNvbGF0ZXMgdGhlIHNoYXJlIG9mIHZhcmlhdGlvbiBhdHRyaWJ1dGFibGUgZXhjbHVzaXZlbHkgdG8gY2xpbWF0ZSB2YXJpYWJpbGl0eS4NCg0KMy4gIENsaW1hdGUgcGVuYWx0eSAozpRFKSDigJQgVGhlIGNsaW1hdGUgcGVuYWx0eSB3YXMgZGVmaW5lZCBhcyAkzpRFPUVfe3ByZWRpY3RlZH3iiJJFX3tjZn0kIHJlcHJlc2VudGluZyB0aGUgbG9zcyAob3IgZ2Fpbikgb2YgaHlkcm8gZ2VuZXJhdGlvbiBkdWUgc29sZWx5IHRvIGNsaW1hdGljIGZsdWN0dWF0aW9ucy4NCg0KNC4gIEVsYXN0aWNpdGllcyDigJQgV2UgZGVyaXZlZCBlbGFzdGljaXRpZXMgbGlua2luZyBnZW5lcmF0aW9uIHRvIGh5ZHJvbG9naWNhbCBhbmQgY2xpbWF0aWMgY29uZGl0aW9ucywgYW5kIGRlbWFuZCB0byBwcmljZSBhbmQgaW5jb21lLCB0byBhc3Nlc3Mgc2Vuc2l0aXZpdHkgYW5kIHBvdGVudGlhbCB0cmFuc21pc3Npb24gY2hhbm5lbHMgb2YgY2xpbWF0aWMgc2hvY2tzLg0KDQo1LiAgQ29zdCB0cmFuc2xhdGlvbiDigJQgVGhlIGVzdGltYXRlZCBwZW5hbHRpZXMgd2VyZSBjb252ZXJ0ZWQgaW50byBtb25ldGFyeSB0ZXJtcyBhbG9uZyB0aHJlZSBjb3N0IGRpbWVuc2lvbnM6DQoNCjYuICBDb25zdW1lcnM6IGFkZGl0aW9uYWwgZXhwZW5kaXR1cmUgZHVlIHRvIHJlcGxhY2VtZW50IG9mIGNoZWFwZXIgaHlkcm8gZ2VuZXJhdGlvbiBieSBtb3JlIGV4cGVuc2l2ZSBzb3VyY2VzOw0KDQo3LiAgRWxlY3RyaWNpdHkgc2VjdG9yOiBoaWdoZXIgc3BvdCBtYXJrZXQgcHJpY2VzIChQTEQpIGFuZCBvcGVyYXRpb25hbCBjb3N0czsNCg0KVGhpcyBlbXBpcmljYWwgcGlwZWxpbmUgbGlua3MgY2xpbWF0ZSB2YXJpYWJpbGl0eSwgaHlkcm9sb2dpY2FsIHBlcmZvcm1hbmNlLCBhbmQgZWNvbm9taWMgb3V0Y29tZXMgdGhyb3VnaCBhIHVuaWZpZWQgc3RhdGlzdGljYWwgZnJhbWV3b3JrLCBlbmFibGluZyBhIG11bHRpZGltZW5zaW9uYWwgdmFsdWF0aW9uIG9mIGNsaW1hdGUtcmVsYXRlZCByaXNrcyBpbiBhIGh5ZHJvLWRlcGVuZGVudCBwb3dlciBzeXN0ZW0uDQoNCiMgMi4gRGF0YSBQcmVwYXJhdGlvbg0KDQpUaGlzIHNlY3Rpb24gZGVzY3JpYmVzIHRoZSBjb25zdHJ1Y3Rpb24gb2YgdGhlIGFuYWx5dGljYWwgZGF0YXNldCB1c2VkIHRvIGVzdGltYXRlIHRoZSBjbGltYXRpYyBwZW5hbHR5LlwNCkFsbCB2YXJpYWJsZXMgd2VyZSBoYXJtb25pemVkIGF0IHRoZSAqKnN1YnN5c3RlbeKAk2RheSoqIGxldmVsIGJldHdlZW4gMjAwMSBhbmQgMjAxOSwgaW50ZWdyYXRpbmcgaHlkcm9sb2dpY2FsLCBjbGltYXRpYywgYW5kIG1hcmtldCBpbmZvcm1hdGlvbi4NCg0KIyMjIDIuMSBEYXRhIFNvdXJjZXMNCg0KLSAgICAqKkh5ZHJvcG93ZXIgZ2VuZXJhdGlvbiAocGxhbnQtZGF5KToqKiBkYWlseSBnZW5lcmF0aW9uIGRhdGEgY29tcGlsZWQgZnJvbSBPTlMgcmVjb3JkcywgYWdncmVnYXRlZCBieSBzdWJzeXN0ZW0uDQoNCi0gICAqKlJlc2Vydm9pciBsZXZlbHMgYW5kIG5hdHVyYWwgaW5mbG93cyAoRUFSIGFuZCBFTkEpOioqIHN1YnN5c3RlbS1sZXZlbCBkYWlseSBkYXRhIGZyb20gT05TLg0KDQotICAgKipDbGltYXRpYyB2YXJpYWJsZXM6KiogcHJlY2lwaXRhdGlvbiBhbmQgdGVtcGVyYXR1cmUgb2J0YWluZWQgZnJvbSB0aGUgRUNNV0YvQ0FNUyByZWFuYWx5c2lzIGRhdGFzZXQsIGludGVycG9sYXRlZCB0byBtYXRjaCBzdWJzeXN0ZW0gY2VudHJvaWRzLg0KDQotICAgKipTcG90IHByaWNlIChQTEQpOioqIHdlZWtseSBzdWJzeXN0ZW0gZGF0YSBmcm9tIENDRUUuDQoNCi0gICAqKkRlbWFuZCBhbmQgZ2VuZXJhdGlvbiBkaXNwYXRjaCBieSBzb3VyY2U6KiogbW9udGhseSBvciB3ZWVrbHkgZGF0YSBmcm9tIE9OUyBhbmQgRVBFLg0KDQpBbGwgZGF0YXNldHMgd2VyZSBwcmUtcHJvY2Vzc2VkIHRvIGFsaWduIGRhdGUgZm9ybWF0cywgaGFybW9uaXplIHZhcmlhYmxlIG5hbWVzLCBhbmQgcmVtb3ZlIGluY29uc2lzdGVudCBvciBtaXNzaW5nIGlkZW50aWZpZXJzLg0KDQojIyMgMi4yIERhdGEgTG9hZGluZyBhbmQgQ2xlYW5pbmcNCg0KYGBge3IgZGF0YS1pbn0NCiMgTG9hZCBjb3JlIGRhdGFzZXRzDQpnZXIgICAgIDwtIHJlYWQuY3N2KCJiYXNlX2dlcmFfdHJhdGFkYV9zZXQuY3N2IikgICAgICMgcGxhbnQtZGF5IGdlbmVyYXRpb24NCnBsZCAgICAgPC0gcmVhZC5jc3YoInByZWNvX3NlbWFuYWwuY3N2IikgICAgICAgICAgICAgIyB3ZWVrbHkgc3BvdCBwcmljZSAoUExEKQ0KcmVzZXJ2ICA8LSByZWFkLmNzdigiZW5hX2Vhcl9oaWRyX2NlZ19hbWIuY3N2IikgICAgICAjIHJlc2Vydm9pciBsZXZlbHMgJiBpbmZsb3dzIChFQVIvRU5BKQ0KYGBgDQoNCg0KYGBge3IgZGF0YS1pbiAyIH0NCiMgQ29udmVydCBjaGFyYWN0ZXIgY29sdW1ucyB0byBmYWN0b3JzDQpnZXIgICAgPC0gZ2VyICAgICU+JSBtdXRhdGUoYWNyb3NzKHdoZXJlKGlzLmNoYXJhY3RlciksIGFzLmZhY3RvcikpDQpyZXNlcnYgPC0gcmVzZXJ2ICU+JSBtdXRhdGUoYWNyb3NzKHdoZXJlKGlzLmNoYXJhY3RlciksIGFzLmZhY3RvcikpDQpwbGQgICAgPC0gcGxkICAgICU+JSBtdXRhdGUoYWNyb3NzKHdoZXJlKGlzLmNoYXJhY3RlciksIGFzLmZhY3RvcikpDQoNCiMgLS0tIERhdGUgcGFyc2luZyBhbmQgdGVtcG9yYWwgdmFyaWFibGVzIC0tLQ0KZ2VyJGRhdGUgICAgPC0gYXMuRGF0ZShnZXIkRGF0ZSkgICAgICAgICAgICAgICAjIGFkanVzdCBjb2x1bW4gbmFtZSBhcyBuZWVkZWQNCmdlciRkb3kgICAgIDwtIHlkYXkoZ2VyJGRhdGUpDQpnZXIkZG93ICAgICA8LSBsdWJyaWRhdGU6OndkYXkoZ2VyJGRhdGUsIGxhYmVsID0gVFJVRSwgYWJiciA9IFRSVUUpDQpnZXIkbW9udGggICA8LSBtb250aChnZXIkZGF0ZSkNCmdlciR0cmVuZCAgIDwtIGFzLm51bWVyaWMoZ2VyJGRhdGUpDQoNCnJlc2VydiRkYXRlIDwtIGFzLkRhdGUocmVzZXJ2JGVuYV9kYXRhKSAgICAgICAgIyBhZGp1c3QgY29sdW1uIG5hbWUgYXMgbmVlZGVkDQpyZXNlcnYkZG95ICA8LSB5ZGF5KHJlc2VydiRkYXRlKQ0KcmVzZXJ2JGRvdyAgPC0gbHVicmlkYXRlOjp3ZGF5KHJlc2VydiRkYXRlLCBsYWJlbCA9IFRSVUUsIGFiYnIgPSBUUlVFKQ0KcmVzZXJ2JG1vbnRoPC0gbW9udGgocmVzZXJ2JGRhdGUpDQpyZXNlcnYkdHJlbmQ8LSBhcy5udW1lcmljKHJlc2VydiRkYXRlKQ0KDQpwbGQkZGF0ZSAgICA8LSBhcy5EYXRlKHBsZCREQVRBX0lOSUNJTykgICAgICAgICMgYWRqdXN0IGNvbHVtbiBuYW1lIGFzIG5lZWRlZA0KcGxkJHdlZWsgICAgPC0gaXNvd2VlayhwbGQkZGF0ZSkNCnBsZCR5ZWFyICAgIDwtIHllYXIocGxkJGRhdGUpDQoNCmBgYA0KDQoNCg0KYGBge3IgY29uZmVyaXIgZSBsaW1wYXIgY29sdW5hcyBkdXBsaWNhZGFzfQ0KZHVwbGljYWRhcyA8LSBkdXBsaWNhdGVkKGFzLmxpc3QocmVzZXJ2KSkNCnJlc2VydlssZHVwbGljYWRhc10gJT4lIGNvbG5hbWVzKCkNCnJlc2VydjwtcmVzZXJ2ICU+JSBzZWxlY3QoLWlkX3N1YnNpc3RlbWEueC54LC1pZF9zdWJzaXN0ZW1hLnkueSwtbm9tX2JhY2lhLngsLW5vbV9iYWNpYS54LC1ub21fcmVlLngsLW5vbV9yZWUueSwtbm9tX3VzaW5hLngsLW5vbV9zdWJzaXN0ZW1hLnkueSwtbm9tX2JhY2lhLnkpDQpgYGANCg0KIyMjIDIuMyBUZW1wb3JhbCBTbW9vdGhpbmcgYW5kIFJvbGxpbmcgTWVhbnMNClRvIHJlZHVjZSBzaG9ydC10ZXJtIG5vaXNlIGFuZCBjYXB0dXJlIGN1bXVsYXRpdmUgY2xpbWF0aWMgZWZmZWN0cywgd2UgY29tcHV0ZWQgKipyb2xsaW5nIG1lYW5zICg3LCAxNCwgYW5kIDMwIGRheXMpKiogZm9yIGtleSBoeWRyb2xvZ2ljYWwgYW5kIGNsaW1hdGljIHZhcmlhYmxlcy4gIA0KDQoNCg0KYGBge3J9DQpsaWJyYXJ5KHpvbykNCmxpYnJhcnkoZHBseXIpDQoNCiMjZGlhZ19ncm91cHMgPC0gcmVzZXJ2ICU+JWZpbHRlcih0aXBfcmVzZXJ2YXRvcmlvPT0iUmVzZXJ2YXTDs3JpbyBjb20gVXNpbmEiKSAlPiUgDQojICBncm91cF9ieShub21fcmVzZXJ2YXRvcmlvLngsaWRfcmVzZXJ2YXRvcmlvLngsdGlwX3Jlc2VydmF0b3JpbykgJT4lDQojICBzdW1tYXJpc2UoDQojICAgIG5fdG90YWwgPSBuKCksDQojICAgIG5fbm9uX25hX3ByZWNpcCA9IHN1bSghaXMubmEocHJlY2lwdGF0aW9uKSksDQojICAgIG5fbm9uX25hX3RlbXAgICA9IHN1bSghaXMubmEodGVtcGVyYXR1cmUpKSwNCiMgICAgbl9ub25fbmFfZW5hICAgID0gc3VtKCFpcy5uYShlbmFfYnJ1dGFfcmVzX213bWVkKSksDQojICAgIG5fbm9uX25hX2VhciAgICA9IHN1bSghaXMubmEoZWFyX3Jlc2VydmF0b3Jpb19zdWJzaXN0ZW1hX3Byb3ByaW9fbXdtZXMpKSwNCiMgICAgbl9ub25fbmFfZ2VyICAgID0gc3VtKCFpcy5uYSh2YWxfZ2VyYWNhbykpLA0KIyAgICAuZ3JvdXBzID0gImRyb3AiDQojICApDQojIyBDcmlhciBtw6lkaWFzIG3Ds3ZlaXMgcGFyYSB2YXJpw6F2ZWlzIGFtYmllbnRhaXMgcHJpbmNpcGFpcw0KcmVzZXJ2IDwtIHJlc2VydiAlPiUgZmlsdGVyKHRpcF9yZXNlcnZhdG9yaW89PSJSZXNlcnZhdMOzcmlvIGNvbSBVc2luYSIpICU+JSANCiAgZ3JvdXBfYnkobm9tX3Jlc2VydmF0b3Jpby54KSAlPiUNCiAgYXJyYW5nZShkYXRlLCAuYnlfZ3JvdXAgPSBUUlVFKSAlPiUNCiAgbXV0YXRlKA0KICAgICMgUHJlY2lwaXRhdGlvbiAodXNhIG5vbWUgJ3ByZWNpcHRhdGlvbicgY29tbyBlc3TDoSBuYSBzdWEgYmFzZSkNCiAgICAjcHJlY2lwX21tNyAgID0gcm9sbG1lYW4ocHJlY2lwdGF0aW9uLCAgNyksDQogICAgcHJlY2lwX21tMTQgID0gcm9sbG1lYW4ocHJlY2lwdGF0aW9uLCAxNCxmaWxsID0gTkEsIGFsaWduID0gInJpZ2h0IiksDQogICAgcHJlY2lwX21tMzAgID0gcm9sbG1lYW4ocHJlY2lwdGF0aW9uLCAzMCxmaWxsID0gTkEsIGFsaWduID0gInJpZ2h0IiksDQoNCiAgICAjIFRlbXBlcmF0dXJlDQogICAgdGVtcF9tbTcgICAgID0gcm9sbG1lYW4odGVtcGVyYXR1cmUsICA3LGZpbGwgPSBOQSwgYWxpZ24gPSAicmlnaHQiKSwNCiAgICB0ZW1wX21tMTQgICAgPSByb2xsbWVhbih0ZW1wZXJhdHVyZSwgMTQsZmlsbCA9IE5BLCBhbGlnbiA9ICJyaWdodCIpLA0KICAgIHRlbXBfbW0zMCAgICA9IHJvbGxtZWFuKHRlbXBlcmF0dXJlLCAzMCxmaWxsID0gTkEsIGFsaWduID0gInJpZ2h0IiksDQoNCiAgICAjIEVOQQ0KICAgIGVuYV9tdzcgICAgICA9IHJvbGxtZWFuKGVuYV9icnV0YV9yZXNfbXdtZWQsICA3LGZpbGwgPSBOQSwgYWxpZ24gPSAicmlnaHQiKSwNCiAgICAjZW5hX213MTQgICAgID0gcm9sbF9tZWFuX3JpZ2h0KGVuYV9icnV0YV9yZXNfbXdtZWQsIDE0KSwNCiAgICAjZW5hX213MzAgICAgID0gcm9sbF9tZWFuX3JpZ2h0KGVuYV9icnV0YV9yZXNfbXdtZWQsIDMwKSwNCg0KICAgICMgRUFSIChwcm9wcmlldMOhcmlvKSDigJQgcmVtb3ZldSBmaWxsPSJleHRlbmQiIChuw6NvIHN1cG9ydGFkbykNCiAgICMgZWFyX213NyAgICAgID0gcm9sbF9tZWFuX3JpZ2h0KGVhcl9yZXNlcnZhdG9yaW9fc3Vic2lzdGVtYV9wcm9wcmlvX213bWVzLCA3KSwNCg0KICAgICMgR2VyYcOnw6NvDQogICAgZ2VyX213NyAgICAgID0gcm9sbG1lYW4odmFsX2dlcmFjYW8sICA3LGZpbGwgPSBOQSwgYWxpZ24gPSAicmlnaHQiKSwNCiAgICBnZXJfbXcxNCAgICAgPSByb2xsbWVhbih2YWxfZ2VyYWNhbywgMTQsZmlsbCA9IE5BLCBhbGlnbiA9ICJyaWdodCIpLA0KICAgIGdlcl9tdzMwICAgICA9IHJvbGxtZWFuKHZhbF9nZXJhY2FvLCAzMCxmaWxsID0gTkEsIGFsaWduID0gInJpZ2h0IikNCiAgKSAlPiUNCiAgdW5ncm91cCgpDQoNCiNkaWFnX2dyb3VwcyAlPiUgZmlsdGVyKG5vbV9yZXNlcnZhdG9yaW8ueD09IkEuIFZFUk1FTEhBIikgDQojICANCiNyZXNlcnYgJT4lIGZpbHRlcihub21fcmVzZXJ2YXRvcmlvLng9PSJBLiBWRVJNRUxIQSIpICU+JSANCiMgIGdncGxvdChhZXMocHJlY2lwdGF0aW9uKSkrZ2VvbV9saW5lKGFlcyh4PWRhdGUseT1wcmVjaXB0YXRpb24pLGNvbD0ibGlnaHRibHVlIikNCiMgIHNlbGVjdChkYXRlLG5vbV9lc3RhZG8sdmFsX2dlcmFjYW8scHJlY2lwdGF0aW9uLA0KIyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICNlYXJtYXhfcmVzZXJ2YXRvcmlvX3N1YnNpc3RlbWFfanVzYW50ZV9td21lcyxlYXJfcmVzZXJ2YXRvcmlvX3N1YnNpc3RlbWFfcHJvcHJpb19td21lcyxlYXJfbWF4aW1hX3RvdGFsX213bWVzKSAlPiUgc3VtbWFyeQ0KYGBgDQoNCg0KDQoNCmBgYHtyfQ0KIyAtLS0gQ29uZmVyaXIgY2hhdmVzIHByaW5jaXBhaXMgLS0tDQojIHZlcmlmaWNhciBzZSBkYXRhcyBlIHN1YnNpc3RlbWFzIGJhdGVtDQpjYXQoIkRhdGFzIGRpc3BvbsOtdmVpczpcbiIpDQpyYW5nZShnZXIkZGF0ZSwgbmEucm09VFJVRSkNCnJhbmdlKHJlc2VydiRkYXRlLCBuYS5ybT1UUlVFKQ0KcmFuZ2UocGxkJGRhdGUsIG5hLnJtPVRSVUUpDQpgYGANCg0KIyMjIDIuNCBEZXNjcmlwdGl2ZSBTdW1tYXJpZXMNCg0KYGBge3IgZGVzY3JpcHRpdmUtc3VtbWFyaWVzLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShkcGx5cikNCmxpYnJhcnkodGlkeXIpDQpsaWJyYXJ5KGd0KQ0KbGlicmFyeShwdXJycikNCmxpYnJhcnkoc3RyaW5ncikNCg0KIyBIZWxwZXI6IHNlbGVjaW9uYSBhcyB2YXJpw6F2ZWlzIGV4YXRhcyBwZWRpZGFzLCBzZSBleGlzdGlyZW0gbm8gZGF0YXNldA0Kc2VsZWN0X2Rlc2NfdmFycyA8LSBmdW5jdGlvbihkZil7DQogIHdhbnRlZCA8LSB0aWR5c2VsZWN0Ojp2YXJzX3NlbGVjdCgNCiAgICBuYW1lcyhkZiksDQogICAgc3RhcnRzX3dpdGgoImVhciIpLA0KICAgIHN0YXJ0c193aXRoKCJ0ZW0iKSwNCiAgICBzdGFydHNfd2l0aCgicHJlIiksDQogICAgc3RhcnRzX3dpdGgoImdlciIpLA0KICAgIHZhbF9nZXJhY2FvLA0KICAgIHZhbF9nZXJhY2FvX2RheV9zdWJzaXN0ZW1hLA0KICAgIGh1bWlkaXR5LA0KICAgIHdpbmRfc3BlZWQNCiAgKQ0KICBkZiAlPiUgZHBseXI6OnNlbGVjdChub21fc3Vic2lzdGVtYS54LCBkcGx5cjo6YWxsX29mKHdhbnRlZCkpDQp9DQoNCiMgSGVscGVyOiBzdW1hcml6YSBlc3RhdMOtc3RpY2FzIHBhcmEgdW0gZGF0YS5mcmFtZSBqw6EgZmlsdHJhZG8gcG9yIHN1YnNpc3RlbWENCnN1bW1hcmlzZV9zdGF0cyA8LSBmdW5jdGlvbihkZl9zdWIpew0KICBudW1fdmFycyA8LSBkZl9zdWIgJT4lIGRwbHlyOjpzZWxlY3Qod2hlcmUoaXMubnVtZXJpYykpDQogIGRwbHlyOjpzdW1tYXJpc2UoDQogICAgbnVtX3ZhcnMsDQogICAgZHBseXI6OmFjcm9zcygNCiAgICAgIC5jb2xzID0gZXZlcnl0aGluZygpLA0KICAgICAgLmZucyAgPSBsaXN0KA0KICAgICAgICBNZWFuID0gfm1lYW4oLiwgbmEucm0gPSBUUlVFKSwNCiAgICAgICAgU0QgICA9IH5zZCguLCBuYS5ybSA9IFRSVUUpLA0KICAgICAgICBNaW4gID0gfm1pbiguLCBuYS5ybSA9IFRSVUUpLA0KICAgICAgICBNYXggID0gfm1heCguLCBuYS5ybSA9IFRSVUUpDQogICAgICApLA0KICAgICAgLm5hbWVzID0gInsuY29sfV9fey5mbn0iDQogICAgKQ0KICApICU+JQ0KICAgIHRpZHlyOjpwaXZvdF9sb25nZXIoZXZlcnl0aGluZygpLA0KICAgICAgbmFtZXNfdG8gPSBjKCJ2YXJpYWJsZSIsInN0YXQiKSwNCiAgICAgIG5hbWVzX3NlcCA9ICJfXyIsDQogICAgICB2YWx1ZXNfdG8gPSAidmFsdWUiDQogICAgKSAlPiUNCiAgICB0aWR5cjo6cGl2b3Rfd2lkZXIobmFtZXNfZnJvbSA9IHN0YXQsIHZhbHVlc19mcm9tID0gdmFsdWUpICU+JQ0KICAgIGRwbHlyOjphcnJhbmdlKHZhcmlhYmxlKQ0KfQ0KDQpgYGANCg0KYGBge3J9DQojIFRhYmVsYSBkZSBjb2JlcnR1cmEgdGVtcG9yYWwgcG9yIHN1YnNpc3RlbWENCmNvdmVyYWdlX3RibCA8LSByZXNlcnYgJT4lDQogIGRwbHlyOjpncm91cF9ieShub21fc3Vic2lzdGVtYS54KSAlPiUNCiAgZHBseXI6OnN1bW1hcmlzZSgNCiAgICBvYnNlcnZhdGlvbnMgPSBkcGx5cjo6bl9kaXN0aW5jdChpZF9yZXNlcnZhdG9yaW8ueCksDQogICAgc3RhcnRfZGF0ZSAgPSBtaW4oZGF0ZSwgbmEucm0gPSBUUlVFKSwNCiAgICBlbmRfZGF0ZSAgICA9IG1heChkYXRlLCBuYS5ybSA9IFRSVUUpLA0KICAgIC5ncm91cHMgPSAiZHJvcCINCiAgKQ0KDQp0YWJfY292IDwtIGd0X2FydGljbGUoDQogIGNvdmVyYWdlX3RibCwNCiAgdGl0bGUgPSAiKipUYWJsZSBBLiBUZW1wb3JhbCBjb3ZlcmFnZSBieSBzdWJzeXN0ZW0qKiIsDQogIHN1YnRpdGxlID0gIk9ic2VydmF0aW9uIGNvdW50cyBhbmQgZGF0ZSByYW5nZSIsDQogIG5vdGUgPSAiRGF0ZXMgaW4gWVlZWS1NTS1ERC4iDQopICU+JQ0KICBndDo6Y29sc19sYWJlbCgNCiAgICBub21fc3Vic2lzdGVtYS54ICAgPSAiU3Vic3lzdGVtIiwNCiAgICBvYnNlcnZhdGlvbnM9ICJOIG9mIFJlc2Vydm9pcnMiLA0KICAgIHN0YXJ0X2RhdGUgID0gIlN0YXJ0IiwNCiAgICBlbmRfZGF0ZSAgICA9ICJFbmQiDQogICkNCg0KZXhwb3J0X3RhYmxlKHRhYl9jb3YsICJUYWJBX0NvdmVyYWdlX2J5U3Vic3lzdGVtIikNCnRhYl9jb3YNCmBgYA0KDQpgYGB7cn0NCg0KIyBUYWJlbGEgZGUgY29iZXJ0dXJhIHRlbXBvcmFsIHBvciBzdWJzaXN0ZW1hDQojY292ZXJhZ2VfdGJsIDwtIA0KcmVzZXJ2ICU+JQ0KICBkcGx5cjo6Z3JvdXBfYnkobm9tX3N1YnNpc3RlbWEueCkgJT4lDQogIGRwbHlyOjpzdW1tYXJpc2UoDQogICAgTWVhbl9nZXJhY2FvPW1lYW4odmFsX2dlcmFjYW8sIG5hLnJtID0gVFJVRSksDQogICAgU0RfZ2VyYWNhbz1tZWFuKHZhbF9nZXJhY2FvLCBuYS5ybSA9IFRSVUUpLA0KICAgIE1pbl9nZXJhY2FvICA9IG1pbih2YWxfZ2VyYWNhbywgbmEucm0gPSBUUlVFKSwNCiAgICBNYXhfZ2VyYWNhbyAgICA9IG1heCh2YWxfZ2VyYWNhbywgbmEucm0gPSBUUlVFKSwNCiAgICANCiAgICBNZWFuX0VBUj1tZWFuKGVhcl9yZXNlcnZhdG9yaW9fc3Vic2lzdGVtYV9wcm9wcmlvX213bWVzLCBuYS5ybSA9IFRSVUUpLA0KICAgIFNEX0VBUj1tZWFuKGVhcl9yZXNlcnZhdG9yaW9fc3Vic2lzdGVtYV9wcm9wcmlvX213bWVzLCBuYS5ybSA9IFRSVUUpLA0KICAgIE1pbl9FQVIgID0gbWluKGVhcl9yZXNlcnZhdG9yaW9fc3Vic2lzdGVtYV9wcm9wcmlvX213bWVzLCBuYS5ybSA9IFRSVUUpLA0KICAgIE1heF9FQVIgICAgPSBtYXgoZWFyX3Jlc2VydmF0b3Jpb19zdWJzaXN0ZW1hX3Byb3ByaW9fbXdtZXMsIG5hLnJtID0gVFJVRSksDQogICAgDQogICAgTWVhbl9wcmVjaXBtbTMwPW1lYW4ocHJlY2lwX21tMzAsIG5hLnJtID0gVFJVRSksDQogICAgU0RfcHJlY2lwbW0zMD1tZWFuKHByZWNpcF9tbTMwLCBuYS5ybSA9IFRSVUUpLA0KICAgIE1pbl9wcmVjaXBtbTMwICA9IG1pbihwcmVjaXBfbW0zMCwgbmEucm0gPSBUUlVFKSwNCiAgICBNYXhfcHJlY2lwbW0zMCAgICA9IG1heChwcmVjaXBfbW0zMCwgbmEucm0gPSBUUlVFKSwNCiAgICANCiAgICBNZWFuX3RlbXBtbTc9bWVhbih0ZW1wX21tNywgbmEucm0gPSBUUlVFKSwNCiAgICBTRF90ZW1wbW03PW1lYW4odGVtcF9tbTcsIG5hLnJtID0gVFJVRSksDQogICAgTWluX3RlbXBtbTcgID0gbWluKHRlbXBfbW03LCBuYS5ybSA9IFRSVUUpLA0KICAgIE1heF90ZW1wbW03ICAgID0gbWF4KHRlbXBfbW03LCBuYS5ybSA9IFRSVUUpLA0KICAgIA0KICAgIE1lYW5faHVtaWRpdHk9bWVhbihodW1pZGl0eSwgbmEucm0gPSBUUlVFKSwNCiAgICBTRF9odW1pZGl0eT1tZWFuKGh1bWlkaXR5LCBuYS5ybSA9IFRSVUUpLA0KICAgIE1pbl9odW1pZGl0eSAgPSBtaW4oaHVtaWRpdHksIG5hLnJtID0gVFJVRSksDQogICAgTWF4X2h1bWlkaXR5ICAgID0gbWF4KGh1bWlkaXR5LCBuYS5ybSA9IFRSVUUpLA0KICAgIA0KICAgIE1lYW5fd2luZD1tZWFuKHdpbmRfc3BlZWQsIG5hLnJtID0gVFJVRSksDQogICAgU0Rfd2luZD1tZWFuKHdpbmRfc3BlZWQsIG5hLnJtID0gVFJVRSksDQogICAgTWluX3dpbmQgID0gbWluKHdpbmRfc3BlZWQsIG5hLnJtID0gVFJVRSksDQogICAgTWF4X3dpbmQgICAgPSBtYXgod2luZF9zcGVlZCwgbmEucm0gPSBUUlVFKSwNCiAgICANCiAgICAuZ3JvdXBzID0gImRyb3AiKSAlPiUNCiAgICB0aWR5cjo6cGl2b3RfbG9uZ2VyKGMoZW5kc193aXRoKCJnZXJhY2FvIiksZW5kc193aXRoKCJpbmQiKSxlbmRzX3dpdGgoIkVBUiIpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICBlbmRzX3dpdGgoIml0eSIpLGVuZHNfd2l0aCgibW03IiksZW5kc193aXRoKCJtbTMwIikpLA0KICAgICAgbmFtZXNfdG8gPSBjKCJ2YXJpYWJsZSIsInN0YXQiKSwNCiAgICAgIG5hbWVzX3NlcCA9ICJfIiwNCiAgICAgIHZhbHVlc190byA9ICJ2YWx1ZSINCiAgICApICU+JSBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gdmFyaWFibGUsdmFsdWVzX2Zyb20gPXZhbHVlKSAlPiUgDQogIGFycmFuZ2Uoc3RhdCkgJT4lICMgLT4gdGFiX2Rlc2MNCiAgZ3RfYXJ0aWNsZSgNCiAgDQogIHRpdGxlID0gIioqVGFibGUgQi4gIERlc2NyaXB0aXZlIFN1bW1hcmllcyIsDQogIHN1YnRpdGxlID0gIk9ic2VydmF0aW9uIGNvdW50cyBhbmQgZGF0ZSByYW5nZSIsDQogIG5vdGUgPSAiRGF0ZXMgaW4gWVlZWS1NTS1ERC4iDQopICU+JQ0KICBndDo6Y29sc19sYWJlbCgNCiAgICBub21fc3Vic2lzdGVtYS54ICAgPSAiU3Vic3lzdGVtIiwNCiAgICBzdGF0PSAiVmFyaWFibGUiLA0KICAgIE1lYW4gID0gIk1lYW4iLA0KICAgIFNEICAgID0gIlNEIixNaW49ICJNaW4iLCJNYXgiPSAiTWF4Ig0KICApDQoNCiNleHBvcnRfdGFibGUodGFiX2NvdiwgIlRhYkFfQ292ZXJhZ2VfYnlTdWJzeXN0ZW0iKQ0KI3RhYl9jb3YNCg0KYGBgDQoNCmBgYHtyfQ0KDQoNCg0KcmVzZXJ2ICU+JSBzZWxlY3Qoc3RhcnRzX3dpdGgoImVuYSIpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc3RhcnRzX3dpdGgoImVhciIpLHN0YXJ0c193aXRoKCJ0ZW0iKSxzdGFydHNfd2l0aCgicHJlIiksc3RhcnRzX3dpdGgoImdlciIpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdmFsX2dlcmFjYW8sdmFsX2dlcmFjYW9fZGF5X3N1YnNpc3RlbWEsaHVtaWRpdHksd2luZF9zcGVlZCkgJT4lIHN0YXJnYXplcjo6c3RhcmdhemVyKHR5cGU9InRleHQiKQ0KcGxkICU+JSBzdGFyZ2F6ZXI6OnN0YXJnYXplcih0eXBlPSJ0ZXh0IikNCmdlciAlPiUgc2VsZWN0KHZhbF9nZXJhY2FvLG5vbV90aXBvY29tYnVzdGl2ZWwsbm9tX3RpcG91c2luYT1hcy5mYWN0b3Iobm9tX3RpcG91c2luYSkpICU+JSBzdW1tYXJ5DQoNCmBgYA0KDQojIyMgW0dyw6FmaWNvcyByw6FwaWRvczogc8OpcmllcyBFTkEsIHByZWNpcGl0YcOnw6NvLCB0ZW1wZXJhdHVyYSwgRUFSLCBnZXJhw6fDo29dDQoNCmBgYHtyIGZpZy5oZWlnaHQ9OCwgZmlnLndpZHRoPTEyfQ0KIyAtLS0gR3LDoWZpY29zIHLDoXBpZG9zIChFREEpIC0tLQ0KbGlicmFyeShnZ3Bsb3QyKQ0KDQojIFPDqXJpZSBFTkEvUmVzZXJ2YXTDs3Jpb3MNCnBsb3RfZW5hPC1yZXNlcnYgJT4lIGdyb3VwX2J5KGRhdGUpICU+JSBzdW1tYXJpc2UoZWFyX213Nz1tZWFuKGVhcl9yZXNlcnZhdG9yaW9fc3Vic2lzdGVtYV9wcm9wcmlvX213bWVzLG5hLnJtID0gVCkpICU+JSANCiAgZ2dwbG90KGFlcyh4PWRhdGUsIHk9ZWFyX213NykpICsNCiAgZ2VvbV9saW5lKGNvbG9yPSJzdGVlbGJsdWUiKSArZ2VvbV9zbW9vdGgoKSsNCiAgbGFicyh0aXRsZT0iRW5lcmdpYSBBcm1hemVuYWRhIChFQVIpIGJydXRhIChNV21lZCkiLCB4PSIiLCB5PSJNV21lZCIpDQoNCiMgU8OpcmllIEVBUg0KcGxvdF9lYXI8LXJlc2VydiAlPiUgZ3JvdXBfYnkoZGF0ZSkgJT4lIHN1bW1hcmlzZShlbmFfbXc3PW1lYW4oZW5hX213NyxuYS5ybSA9IFQpKSAlPiUgDQogICAgZ2dwbG90KGFlcyh4PWRhdGUsIHk9ZW5hX213NykpICsNCiAgZ2VvbV9saW5lKGNvbG9yPSJkYXJrZ3JlZW4iKSArZ2VvbV9zbW9vdGgoKSsNCiAgbGFicyh0aXRsZT0iRW5lcmdpYSBOYXR1cmFsIEFmbHVlbnRlIChFTkEpIHRvdGFsIChNV23DqnMpIiwgeD0iIiwgeT0iTVdtw6pzIikNCg0KIyBTw6lyaWUgZGUgZ2VyYcOnw6NvDQpwbG90X2dlcjwtcmVzZXJ2ICU+JSBncm91cF9ieShkYXRlKSAlPiUgc3VtbWFyaXNlKGdlcl9tdzc9bWVhbihnZXJfbXc3LG5hLnJtID0gVCkpICU+JSANCiAgICAgIGdncGxvdChhZXMoeD1kYXRlLCB5PWdlcl9tdzcpKSArDQogIGdlb21fbGluZShjb2xvcj0iZ3JleTMwIikgK2dlb21fc21vb3RoKCkrDQogIGxhYnModGl0bGU9IkdlcmHDp8OjbyBoaWRyZWzDqXRyaWNhIChNV2gvZGlhKSIsIHg9IiIsIHk9Ik1XaCIpDQoNCiMgLS0tIENvcnJlbGHDp8O1ZXMgcsOhcGlkYXMgLS0tDQojIFtDaGVjYXIgY29ycmVsYcOnw6NvIGLDoXNpY2EgZW50cmUgY2xpbWEgKHByZWNpcCwgdGVtcCkgZSBFTkFdDQpjbGltYV92YXJzIDwtIHJlc2VydiAlPiUgDQogIGRwbHlyOjpzZWxlY3QoDQogICAgICAgICAgICAgICAgZ2VyX213X3N1YnNpc3RlbWE9dmFsX2dlcmFjYW9fZGF5X3N1YnNpc3RlbWEsDQogICAgICAgICAgICAgICAgZ2VyX213PXZhbF9nZXJhY2FvLGdlcl9tdzcsZ2VyX213MTQsZ2VyX213MzAsDQogICAgICAgICAgICAgICAgZW5hX213PWVuYV9icnV0YV9yZXNfbXdtZWQsIGVuYV9tdzcsDQogICAgICAgICAgICAgICAgZWFyX213PWVhcl90b3RhbF9td21lcywgICNlYXJfbXcxNCwgZWFyX213MzAsDQogICAgICAgICAgICAgICAgcHJlY2lwdGF0aW9uLHByZWNpcF9tbTE0LHByZWNpcF9tbTMwLA0KICAgICAgICAgICAgICAgIHRlbXBlcmF0dXJlLHRlbXBfbW03LHRlbXBfbW0xNCx0ZW1wX21tMzAsDQogICAgICAgICAgICAgICAgd2luZF9zcGVlZCwgDQogICAgICAgICAgICAgICAgKQ0KYGBgDQoNCmBgYHtyIGZpZy5oZWlnaHQ9OCwgZmlnLndpZHRoPTEyfQ0KcGxvdF9nZXJ8cGxvdF9lYXIgLyBwbG90X2VuYQ0KDQpjb3JycGxvdDo6Y29ycnBsb3QoY29yKGNsaW1hX3ZhcnMsIHVzZSA9ICJwYWlyd2lzZS5jb21wbGV0ZS5vYnMiKSxtZXRob2QgPSAiY29sb3IiLCB0eXBlID0gInVwcGVyIiwNCiAgICAgICAgIGFkZENvZWYuY29sID0gImJsYWNrIiwgIyBtb3N0cmFyIGNvZWZpY2llbnRlcw0KICAgICAgICAgdGwuY29sID0gImJsYWNrIiwgdGwuc3J0ID0gMzUsbnVtYmVyLmNleAkJID0uOCwNCiAgICAgICAgIGNvbD1jb2xvclJhbXBQYWxldHRlKGMoInJlZCIsIndoaXRlIiwiYmx1ZSIpKSgyMDApKQ0KYGBgDQoNCmBgYHtyfQ0KbGlicmFyeShwYXRjaHdvcmspDQpsaWJyYXJ5KGdncmVwZWwpDQpnZW9icjo6cmVhZF9yZWdpb24oKS0+Z2VvcmVnaW9uDQoNCnJlc2VydiAlPiUgZmlsdGVyKCJSZXNlcnZhdMOzcmlvIGNvbSBVc2luYSI9PXRpcF9yZXNlcnZhdG9yaW8pICU+JQ0KICBncm91cF9ieShub21fcmVzZXJ2YXRvcmlvLnksdmFsX2xhdGl0dWRlLHZhbF9sb25naXR1ZGUsbm9tX3N1YnNpc3RlbWEueCkgJT4lIA0KICBzdW1tYXJpc2UoZWFyX3Jlc2VydmF0b3Jpbz1zdW0oZWFyX3Jlc2VydmF0b3Jpb19zdWJzaXN0ZW1hX3Byb3ByaW9fbXdtZXMgJT4lIGFzLm51bWVyaWMoKSxuYS5ybSA9IFQpLA0KICAgICAgICAgICAgKSAtPmENCmEgJT4lICAgZ2dwbG90KGFlcyh2YWxfbG9uZ2l0dWRlLHZhbF9sYXRpdHVkZSkpK2dlb21fcG9pbnQoKSsNCmdncGxvdChkYXRhPWdlb3JlZ2lvbikgK2dlb21fc2YoKQ0KYSRub21fc3Vic2lzdGVtYS54ICU+JSB1bmlxdWUNCmEgJT4lDQogIG11dGF0ZShub21fc3Vic2lzdGVtYS54PWNhc2Vfd2hlbihub21fc3Vic2lzdGVtYS54PT0iU1VMIn4iU291dGgiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9tX3N1YnNpc3RlbWEueD09IlNVREVTVEUifiJTb3V0aGVhc3QiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9tX3N1YnNpc3RlbWEueD09Ik5PUkRFU1RFIn4iTm9ydGhlYXN0IiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5vbV9zdWJzaXN0ZW1hLng9PSJOT1JURSJ+Ik5vcnRoIixUUlVFfiIiKSkgJT4lIA0KICBnZ3Bsb3QoKSArDQogIGdlb21fc2YoZGF0YSA9IGdlb3JlZ2lvbiwgY29sb3IgPSAid2hpdGUiLGZpbGw9ImxpZ2h0Z3JleSIsIHNpemUgPSAyKSsjZ2VvbV9saW5lKCkrDQogIGdlb21fcG9pbnQoYWVzKHZhbF9sb25naXR1ZGUsdmFsX2xhdGl0dWRlLGNvbD1ub21fc3Vic2lzdGVtYS54KSkgK3RoZW1lX3ZvaWQoKSsgI3NjYWxlX2NvbG9yX2Rpc2NyZXRlKHZhbHVlPSkNCiAgZ2VvbV90ZXh0X3JlcGVsKGFlcyh2YWxfbG9uZ2l0dWRlLHZhbF9sYXRpdHVkZSxjb2w9bm9tX3N1YnNpc3RlbWEueCxsYWJlbD1ub21fcmVzZXJ2YXRvcmlvLnkpLHNpemUgPSAyLG1heC5vdmVybGFwcz1ucm93KGEpLGZvcmNlX3B1bGwgID0yKSsNCiAgI3RoZW1lKGxlZ2VuZC5wb3NpdGlvbj1jKC44LCAuOTUpLCxsZWdlbmQuYm94Lmp1c3QgPSAicmlnaHQiKSsNCiAgbGFicyhjb2w9IkVsZXRyaWNhbCBTdWJzeXN0ZW1zIiktPm1hcA0KbWFwDQpgYGANCmBgYHtyfQ0KcmVzZXJ2IDwtIHJlc2VydiAlPiUNCiAgbXV0YXRlKA0KICAgIGRveSAgID0geWRheShkYXRlKSwNCiAgICBtb250aCA9IG1vbnRoKGRhdGUpLA0KICAgICMgdHJhbnNmb3JtYcOnw6NvIGxvZyBwYXJhIGludGVycHJldGHDp8OjbyBwZXJjZW50dWFsIChldml0YSBwcm9ibGVtYXMgY29tIHplcm8pDQogICAgbF9wcmVjaXAgPSBsb2cxcChwcmVjaXBfbW0zMCksDQogICAgbF90ZW1wICAgPSBsb2cxcCh0ZW1wX21tNyksICAgICAjIG9wY2lvbmFsOiBzZSBwcmVmZXJpciBtYW50ZXIgdGVtcCBubyBuw612ZWwsIHVzZSB0ZW1wX21tNyBlbSB2ZXogZGUgbF90ZW1wDQogICAgbF9odW1pZGl0eSA9bG9nMXAoaHVtaWRpdHkpLA0KICAgIGxfd2luZF9zcGVlZD1sb2cod2luZF9zcGVlZCkNCiAgKQ0KYGBgDQoNCiMgMy4xIE1vZGVsbyAxIOKAlCBHQU0g4oCcY2xpbWHigJFhcGVuYXPigJ0gKGJhc2VsaW5lKQ0KDQpNb2RlbG8gaGlkcm9sw7NnaWNvIHBhcnNpbW9uaW9zbyBubyBxdWFsIGEgRW5lcmdpYSBBcm1hemVuYWRhIChFQVIpIMOpIGV4cGxpY2FkYSBhcGVuYXMgcG9yIGNsaW1hIGUgY29udHJvbGVzIHNhem9uYWlzL3JlZ2lvbmFpcywgdXNhbmRvIGZ1bsOnw7VlcyBzdWF2ZXMgKHNwbGluZXMpIGVtIHVtIEdBTS4gTyBvYmpldGl2byDDqSBpc29sYXIgbyBzaW5hbCBwdXJhbWVudGUgY2xpbcOhdGljbyBzb2JyZSBvIGVzdG9xdWUgaMOtZHJpY28gZSBjb25zdHJ1aXIgdW0gY29udHJhZmFjdHVhbCBhdWRpdMOhdmVsLiBNYW50ZW1vcyBhIHJlc3Bvc3RhIG5vIG7DrXZlbCAoTVfCt23DqnMpIHBvciBjb2Vyw6puY2lhIGNvbSBhIGRlZmluacOnw6NvIGRlIHBlbmFsaWRhZGUgZSBtb25ldGl6YcOnw6NvLCBlIHRyYW5zZm9ybWFtb3MgcHJlZGl0b3JlcyBjbGltw6F0aWNvcyBxdWFuZG8gw7p0aWwgcGFyYSBpbnRlcnByZXRhw6fDo28gKHNlbWktZWxhc3RpY2lkYWRlcykuDQpgYGB7cn0NCiMgR0FNIChHYXVzc2lhbiwgZlJFTUwpLiBTcGxpbmVzIGNsaW3DoXRpY2FzICsgc2F6b25hbGlkYWRlIGPDrWNsaWNhICsgZWZlaXRvIGFsZWF0w7NyaW8gcG9yIHJlc2VydmF0w7NyaW8gKyBmaXhlZCBwb3Igc3Vic2lzdGVtYQ0KbTFfZ2FtIDwtIGJhbSgNCiAgZWFyX3Jlc2VydmF0b3Jpb19zdWJzaXN0ZW1hX3Byb3ByaW9fbXdtZXMgfg0KICAgIHMobF9wcmVjaXAsIGsgPSA2KSArDQogICAgcyhsX3RlbXAsICAgayA9IDYpICsNCiAgICBzKGxfaHVtaWRpdHksIGsgPSA2KSArDQogICAgcyhsX3dpbmRfc3BlZWQsIGsgPSA2KSArDQogICAgcyhkb3ksIGJzID0gImNjIiwgayA9IDEyKSArICAgICAgICAgICAgIyBzYXpvbmFsaWRhZGUgY8OtY2xpY2Egbm8gYW5vDQogICAgcyhpZF9yZXNlcnZhdG9yaW8ueCwgYnMgPSAicmUiKSArICAgICAgIyBlZmVpdG8gYWxlYXTDs3JpbyBwb3IgcmVzZXJ2YXTDs3Jpbw0KICAgIG5vbV9zdWJzaXN0ZW1hLngsICAgICAgICAgICAgICAgICAgICAgICAjIGVmZWl0byBmaXhvIHBvciBzdWJzaXN0ZW1hDQogIGRhdGEgICAgID0gcmVzZXJ2LA0KICBtZXRob2QgICA9ICJmUkVNTCIsDQogIGRpc2NyZXRlID0gVFJVRSwNCiAgZmFtaWx5ICAgPSBnYXVzc2lhbigpLA0KICBuYS5hY3Rpb249IG5hLmV4Y2x1ZGUsDQogIGtub3RzICAgID0gbGlzdChkb3kgPSBjKDAuNSwgMzY2LjUpKSwNCiAgc2VsZWN0ICAgPSBUUlVFICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBzaHJpbmthZ2UgcGFyYSBldml0YXIgd2lnZ2xlcw0KKQ0KDQoNCmBgYA0KDQpgYGB7cn0NCnN1bW1hcnkobTFfZ2FtKQ0KZ3RzdW1tYXJ5Ojp0YmxfcmVncmVzc2lvbihtMV9nYW0pDQpzdW1tYXJ5KG0xX2dhbSkNCmdhbS5jaGVjayhtMV9nYW0pICAgICAgICAgICMgcmVzw61kdW9zLCBRUSwgay1pbmRleA0KY29uY3Vydml0eShtMV9nYW0sIGZ1bGw9VFJVRSkNCmBgYA0KDQojIyMgUmVzcG9zdGFzIG1hcmdpbmFpcyAocGxhdXNpYmlsaWRhZGUgZSBpbnRlcnByZXRhw6fDo28pDQpQYXJhIGludGVycHJldGFyIG8gY29tcG9ydGFtZW50byBmdW5jaW9uYWwgZSBhdmFsaWFyIHBsYXVzaWJpbGlkYWRlLCB1c2Ftb3MgZGVyaXZhZGFzIHBhcmNpYWlzLiBDb21vIGBsX3ByZWNpcCA9IGxvZyhwcmVjaXArMSlgLCBhIGRlcml2YWRhIGRlIFwoRVwpIGVtIHJlbGHDp8OjbyBhIGBsX3ByZWNpcGAgw6kgdW1hICoqc2VtaS1lbGFzdGljaWRhZGUgbm8gbsOtdmVsKio6IG8gZWZlaXRvIGRlICsxJSBlbSBwcmVjaXBpdGHDp8OjbyDDqSBhcHJveGltYWRhbWVudGUgXCgweyx9MDEgXHRpbWVzIFxwYXJ0aWFsIEUgLyBccGFydGlhbCBcbG4oXHRleHR7cHJlY2lwfSsxKVwpLg0KDQpgYGB7ciBtMS1kZXJpdmF0aXZlcywgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCg0KcGxvdChtMV9nYW0sIHBhZ2VzPTQsIHNjaGVtZT0xLCBzaGFkZT1UUlVFLCBzZT1UUlVFKQ0KDQoNCmBgYA0KYGBge3J9DQpkX3ByZWNpcCA8LSBkZXJpdmF0aXZlcyhtMV9nYW0sIHRlcm0gPSAicyhsX3ByZWNpcCkiLCB0eXBlID0gImNlbnRyYWwiKQ0KZF9wcmVjaXAgPC0gZF9wcmVjaXAgJT4lDQogIG11dGF0ZShlZmZlY3RfcGVyXzFwY3QgPSAwLjAxICogLmRlcml2YXRpdmUpIA0KICAjc2VsZWN0KGRhdGEsIC5maXR0ZWQsIC5zZSwgZWZmZWN0X3Blcl8xcGN0LCBsb3dlciwgdXBwZXIpDQoNCnN1bW1hcnkoZF9wcmVjaXAkZWZmZWN0X3Blcl8xcGN0KQ0KYGBgDQpDb20gYmFzZSBub3MgZ3LDoWZpY29zIGRlIGVmZWl0b3MgcGFyY2lhaXMsIGRpYWduw7NzdGljb3MgZGUgcmVzw61kdW9zIGUgc3Vtw6FyaW8gZXN0YXTDrXN0aWNvIGRvIEdBTSAoZlJFTUwsIFLCsmFqPTAuNzQ7IGRldmlhbmNlIGV4cGxhaW5lZD03NCUpLCDDqSBwb3Nzw612ZWwgc2ludGV0aXphciBhIHF1YWxpZGFkZSBkbyBtb2RlbG8gZW0gdHLDqnMgcGFyw6FncmFmb3MgdMOpY25pY29zIGUgaW50ZXJwcmV0YXRpdm9zIOKAlCBhZGVxdWFkb3MgcGFyYSBhIHNlw6fDo28gZGUgcmVzdWx0YWRvcyBtZXRvZG9sw7NnaWNvczoNCk8gbW9kZWxvIGhpZHJvbMOzZ2ljbyDigJxjbGltYS0gZWFy4oCdIGFwcmVzZW50YSBkZXNlbXBlbmhvIHJvYnVzdG8gZSBjb2VyZW50ZSBjb20gYSBkaW7Dom1pY2EgZsOtc2ljYSBlc3BlcmFkYSBkbyBzaXN0ZW1hLiBPIGFqdXN0ZSBhbGNhbsOnYSBSwrIgYWp1c3RhZG8gZGUgMCw3NCBlIGV4cGxpY2EgNzQlIGRhIGRldmlhbmNlIHRvdGFsLCBpbmRpY2FuZG8gcXVlIGFzIHZhcmnDoXZlaXMgY2xpbcOhdGljYXMg4oCUIHByZWNpcGl0YcOnw6NvLCB0ZW1wZXJhdHVyYSwgdW1pZGFkZSBlIHZlbnRvIOKAlCBjb21iaW5hZGFzIMOgIHNhem9uYWxpZGFkZSBlIGFvcyBlZmVpdG9zIHJlZ2lvbmFpcywgY2FwdHVyYW0gYSBtYWlvciBwYXJ0ZSBkYSB2YXJpYWJpbGlkYWRlIGRhIGVuZXJnaWEgYXJtYXplbmFkYSAoRUFSKS4gQSBzaWduaWZpY8OibmNpYSBlc3RhdMOtc3RpY2EgZG9zIHNwbGluZXMgw6kgZWxldmFkYSAocCA8IDAuMDAxIHBhcmEgdG9kb3Mgb3MgdGVybW9zKSwgZSBhIHN1YXZpZGFkZSBkb3MgZWZlaXRvcyBtb3N0cmEgcGFkcsO1ZXMgcmVhbGlzdGFzOiBwcmVjaXBpdGHDp8OjbyBleGVyY2UgZWZlaXRvIHBvc2l0aXZvIG1vbm90w7RuaWNvIHNvYnJlIGEgRUFSOyB0ZW1wZXJhdHVyYSBleGliZSBmb3JtYXRvIGVtIGFyY28gKGVmZWl0byDDs3RpbW8gcHLDs3hpbW8gYSAyMCDCsEMsIHNlZ3VpZG8gZGUgcXVlZGEgbm9zIGV4dHJlbW9zKTsgdW1pZGFkZSBlIHZlbnRvIHTDqm0gZWZlaXRvcyBtb2RlcmFkb3MsIG1hcyBjb25zaXN0ZW50ZXMgY29tIG1lY2FuaXNtb3MgZGUgZXZhcG90cmFuc3BpcmHDp8OjbyBlIHJlY2FyZ2EuIE8gdGVybW8gc2F6b25hbCAoZG95KSByZXZlbGEgbyBjaWNsbyBoaWRyb2zDs2dpY28gYW51YWwgY2FyYWN0ZXLDrXN0aWNvIGRvcyBzdWJzaXN0ZW1hcyBicmFzaWxlaXJvcy4NCg0KT3MgZGlhZ27Ds3N0aWNvcyBkZSByZXPDrWR1b3MgY29uZmlybWFtIHF1ZSBvIG1vZGVsbyBjYXB0dXJhIGFkZXF1YWRhbWVudGUgYSB0ZW5kw6puY2lhIG3DqWRpYSBlIGEgc2F6b25hbGlkYWRlLCBtYXMgZXZpZGVuY2lhIGhldGVyb2dlbmVpZGFkZSBlc3RydXR1cmFsIGVudHJlIHJlZ2ltZXMgb3BlcmFjaW9uYWlzLiBPIGdyw6FmaWNvIGRlIHJlc8OtZHVvcyB2ZXJzdXMgdmFsb3JlcyBhanVzdGFkb3MgbW9zdHJhIHRyw6pzIGZhaXhhcyBkZW5zYXMsIGFzc29jaWFkYXMgYSBkaWZlcmVudGVzIG7DrXZlaXMgZGUgYXJtYXplbmFtZW50byAoYmFpeG8sIG3DqWRpbyBlIGFsdG8pLCBzdWdlcmluZG8gYSBwcmVzZW7Dp2EgZGUgbGltaXRlcyBmw61zaWNvcyBkZSBvcGVyYcOnw6NvIG91IHRyYW5zacOnw7VlcyBlbnRyZSBlc3TDoWdpb3MgZGUgZW5jaGltZW50byBlIGVzdmF6aWFtZW50byBkb3MgcmVzZXJ2YXTDs3Jpb3MuIE8gaGlzdG9ncmFtYSBkZSByZXPDrWR1b3Mgw6kgYXByb3hpbWFkYW1lbnRlIHNpbcOpdHJpY28gZSBjZW50cmFkbyBlbSB6ZXJvLCBlIG8gUVEtcGxvdCBpbmRpY2EgbGV2ZSBkZXN2aW8gbmFzIGNhdWRhcywgbyBxdWUgw6kgZXNwZXJhZG8gZW0gc8OpcmllcyBhbWJpZW50YWlzIGRlIGdyYW5kZSBhbXBsaXR1ZGUuIEEgaG9tb2dlbmVpZGFkZSBkZSB2YXJpw6JuY2lhIMOpIHNhdGlzZmF0w7NyaWEsIHNlbSBwYWRyw7VlcyBzaXN0ZW3DoXRpY29zIGRlIGF1dG9jb3JyZWxhw6fDo28sIHJlZm9yw6dhbmRvIGEgYWRlcXVhw6fDo28gZG8gdXNvIGRhIGZhbcOtbGlhIGdhdXNzaWFuYSBjb20gbGluayBpZGVudGlkYWRlLg0KDQpQb3IgZmltLCBvcyBlZmVpdG9zIGFsZWF0w7NyaW9zIHBvciByZXNlcnZhdMOzcmlvIG1vc3RyYXJhbSBhbXBsYSBkaXNwZXJzw6NvLCByZWZsZXRpbmRvIGRpZmVyZW7Dp2FzIGVzdHJ1dHVyYWlzIGRlIGNhcGFjaWRhZGUgZSBvcGVyYcOnw6NvIGVudHJlIHVzaW5hcy4gQSBzdWF2aWRhZGUgZG9zIHNwbGluZXMgZm9pIGFkZXF1YWRhIChrLWluZGV4ID4gMC42IHBhcmEgdG9kb3Mgb3MgdGVybW9zKSwgc2VtIGV2aWTDqm5jaWFzIGRlIHN1YmRpbWVuc2lvbmFtZW50byBkZSBjb21wbGV4aWRhZGUsIGUgYSBhdXPDqm5jaWEgZGUgY29uY29ycsOqbmNpYSAoY29uY3Vydml0eSkgcmVsZXZhbnRlIGluZGljYSBiYWl4YSBjb2xpbmVhcmlkYWRlIGVudHJlIG9zIGVmZWl0b3MgY2xpbcOhdGljb3MuIEVtIGNvbmp1bnRvLCBlc3NlcyByZXN1bHRhZG9zIHN1c3RlbnRhbSBhIHBsYXVzaWJpbGlkYWRlIGVzdGF0w61zdGljYSBlIGbDrXNpY2EgZG8gbW9kZWxvIGNvbW8gYmFzZWxpbmUgY2xpbcOhdGljbyBhdWRpdMOhdmVsLiBBcyBwcmluY2lwYWlzIGxpbWl0YcOnw7VlcyByZXNpZGVtIG5hIHN1YXZpemHDp8OjbyBkZSBleHRyZW1vcyBoaWRyb2zDs2dpY29zIGUgbmEgbGV2ZSBuw6NvLW5vcm1hbGlkYWRlIGRvcyByZXPDrWR1b3MsIGFzcGVjdG9zIGNvbXVucyBlbSBtb2RlbG9zIGFncmVnYWRvcyBkZSBncmFuZGVzIHNpc3RlbWFzIGUgcXVlIHBvZGVtIHNlciB0cmF0YWRvcyBuYXMgZXRhcGFzIHN1YnNlcXVlbnRlcyBjb20gY29udHJhZmFjdHVhaXMgZSBwcm9wYWdhw6fDo28gZGUgaW5jZXJ0ZXphLg0KDQpPcyAqKmVmZWl0b3MgcGFyY2lhaXMqKiBlc3RpbWFkb3MgcGVsbyBtb2RlbG8gY29uZmlybWFtIHBhZHLDtWVzIGNsaW3DoXRpY29zIHBsYXVzw612ZWlzIGUgZmlzaWNhbWVudGUgY29lcmVudGVzLiBBIHByZWNpcGl0YcOnw6NvIGFwcmVzZW50YSB1bSBlZmVpdG8gbW9ub3RvbmljYW1lbnRlIGNyZXNjZW50ZSBzb2JyZSBhIGVuZXJnaWEgYXJtYXplbmFkYSwgaW5kaWNhbmRvIHF1ZSBhdW1lbnRvcyBhY3VtdWxhZG9zIGRlIGNodXZhIHTDqm0gaW1wYWN0byBwb3NpdGl2byBxdWFzZSBsaW5lYXIgYXTDqSBvIGxpbWl0ZSBzdXBlcmlvciBvYnNlcnZhZG8sIHNlbSBzaW5haXMgZGUgc2F0dXJhw6fDo28g4oCUIHVtIHJlc3VsdGFkbyBjb21wYXTDrXZlbCBjb20gYSBwcmVkb21pbsOibmNpYSBkZSBncmFuZGVzIHJlc2VydmF0w7NyaW9zIGRlIHJlZ3VsYXJpemHDp8OjbyBubyBzaXN0ZW1hLiBBIHRlbXBlcmF0dXJhLCBwb3Igc3VhIHZleiwgZXhpYmUgdW1hIHJlbGHDp8OjbyBlbSBmb3JtYSBkZSBhcmNvOiBvcyBuw612ZWlzIGludGVybWVkacOhcmlvcyAoZW0gdG9ybm8gZGUgMjAgwrBDKSBlc3TDo28gYXNzb2NpYWRvcyBhbyBtYWlvciBhcm1hemVuYW1lbnRvLCBlbnF1YW50byB0ZW1wZXJhdHVyYXMgZXh0cmVtYXMgcmVkdXplbSBvIHNhbGRvIGVuZXJnw6l0aWNvLCByZWZsZXRpbmRvIG8gcGFwZWwgZGEgZXZhcG9yYcOnw6NvIGUgZGEgZWZpY2nDqm5jaWEgZG8gY2ljbG8gaGlkcm9sw7NnaWNvLiBBIHVtaWRhZGUgbW9zdHJhIGxldmUgZWZlaXRvIHBvc2l0aXZvIGF0w6kgY2VydG8gcG9udG8sIHNlZ3VpZG8gZGUgcmV2ZXJzw6NvLCBzdWdlcmluZG8gaW50ZXJhw6fDo28gY29tIHJlZ2ltZXMgZGUgY2h1dmEgcGVyc2lzdGVudGUsIGVucXVhbnRvIGEgdmVsb2NpZGFkZSBkbyB2ZW50byBhcHJlc2VudGEgdW0gZWZlaXRvIG5lZ2F0aXZvIHN1YXZlLCBwb3NzaXZlbG1lbnRlIGxpZ2FkbyDDoCBtYWlvciBwZXJkYSBwb3IgZXZhcG90cmFuc3BpcmHDp8OjbyBlIGFvIHRyYW5zcG9ydGUgZGUgbWFzc2FzIHNlY2FzLiBPIGNvbXBvbmVudGUgc2F6b25hbCAoZG95KSByZXZlbGEgbyBjaWNsbyBhbnVhbCB0w61waWNvIGRvIHJlZ2ltZSBwbHV2aWFsIGJyYXNpbGVpcm8sIGNvbSBwaWNvcyBlbnRyZSBvcyBkaWFzIDEwMOKAkzE1MCAob3V0b25vKSBlIG3DrW5pbW9zIHByw7N4aW1vcyBhbyBmaW5hbCBkbyBhbm8uIFBvciBmaW0sIG9zIGVmZWl0b3MgYWxlYXTDs3Jpb3MgcG9yIHJlc2VydmF0w7NyaW8gbW9zdHJhbSBoZXRlcm9nZW5laWRhZGUgZXhwcmVzc2l2YSwgaW5kaWNhbmRvIHF1ZSBkaWZlcmVuw6dhcyBlc3RydXR1cmFpcyBkZSBjYXBhY2lkYWRlIGUgbG9jYWxpemHDp8OjbyBjb25kaWNpb25hbSBhIHJlc3Bvc3RhIGNsaW3DoXRpY2Eg4oCUIHVtIGFjaGFkbyBxdWUgcmVmb3LDp2EgYSBuZWNlc3NpZGFkZSBkZSBhYm9yZGFnZW5zIHJlZ2lvbmFsaXphZGFzIG5hcyBldGFwYXMgc2VndWludGVzIGRhIG1vZGVsYWdlbS4NCg0KDQoNCmBgYHtyfQ0KI3NhdmVSRFMobTFfZ2FtLCAibTFfZ2FtLnJkcyIpDQojcmVhZFJEUygibTFfZ2FtLnJkcyIpIC0+IG0xX2dhbQ0KDQpgYGANCg0KIyMjIyBQcmVkacOnw7VlcyBmYWN0dWFsIHZzLiBjb250cmFmYWN0dWFsIChiYXNlbGluZSAyMDAx4oCTMjAwNSkNCkNvbnN0cnXDrW1vcyBvIGNvbnRyYWZhY3R1YWwgY2xpbcOhdGljbyBmaXhhbmRvIGNsaW1hIG5vICoqbcOpZGlvIG1lbnNhbCAyMDAx4oCTMjAwNSoqIHBvciByZXNlcnZhdMOzcmlvIChvdSBwb3Igc3Vic2lzdGVtYSwgY2FzbyBwcmVmaXJhKSBlIG1hbnRlbmRvIG9zIGRlbWFpcyBjb250cm9sZXMgb2JzZXJ2YWRvcy4NCg0KDQoNCmBgYHtyfQ0KIyBCYXNlbGluZSBjbGltw6F0aWNvIHBvciByZXNlcnZhdMOzcmlvIGUgbcOqcyAoMjAwMeKAkzIwMDUpOyBhanVzdGUgc2UgcHJlZmVyaXIgcG9yIHN1YnNpc3RlbWENCmNsaW1fYmFzZWxpbmUgPC0gcmVzZXJ2ICU+JQ0KICBmaWx0ZXIoeWVhcihkYXRlKSA+PSAyMDAxLCB5ZWFyKGRhdGUpIDw9IDIwMDUpICU+JQ0KICBncm91cF9ieShpZF9yZXNlcnZhdG9yaW8ueCwgZG95KSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIGxfcHJlY2lwX2JsID0gbWVhbihsX3ByZWNpcCwgbmEucm0gPSBUUlVFKSwNCiAgICBsX3RlbXBfYmwgICA9IG1lYW4obF90ZW1wLCAgIG5hLnJtID0gVFJVRSksDQogICAgbF9odW1pZGl0eV9ibCA9IG1lYW4obF9odW1pZGl0eSwgbmEucm0gPSBUUlVFKSwNCiAgICBsX3dpbmRfc3BlZWRfYmwgICAgID0gbWVhbihsX3dpbmRfc3BlZWQsIG5hLnJtID0gVFJVRSksDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApDQoNCiMgbmV3ZGF0YSBmYWN0dWFsIChvYnNlcnZhZG8pIGUgY29udHJhZmFjdHVhbCAoY2xpbWEgZml4byBubyBiYXNlbGluZSkNCm5kX29icyA8LSByZXNlcnYgIyU+JSB1bmdyb3VwKCkgJT4lIA0KICNzZWxlY3QoaWRfcmVzZXJ2YXRvcmlvLngsIG5vbV9zdWJzaXN0ZW1hLngsIGRhdGUsIGRveSwgbW9udGgsDQogICMgICAgICAgbF9wcmVjaXAsIGxfdGVtcCwgbF9odW1pZGl0eSwgbF93aW5kX3NwZWVkKQ0KDQpuZF9jZiA8LSByZXNlcnYgJT4lDQogIGxlZnRfam9pbihjbGltX2Jhc2VsaW5lLCBieSA9IGMoImlkX3Jlc2VydmF0b3Jpby54IiwiZG95IikpICU+JQ0KICBtdXRhdGUoDQogICAgbF9wcmVjaXAgPSBsX3ByZWNpcF9ibCwNCiAgICBsX3RlbXAgICA9IGxfdGVtcF9ibCwNCiAgICBsX2h1bWlkaXR5ID0gbF9odW1pZGl0eV9ibCwNCiAgICBsX3dpbmRfc3BlZWQ9IGxfd2luZF9zcGVlZF9ibA0KICApICMlPiUNCiAgI3NlbGVjdChuYW1lcyhyZXNlcnYpKQ0KDQojIFByZWRpw6fDtWVzIG5vIG7DrXZlbCAoTVfCt23DqnMpDQpyZXNlcnYkZWFyX2hhdF9vYnMgPC0gcHJlZGljdChtMV9nYW0sIG5ld2RhdGEgPSByZXNlcnYsIHR5cGUgPSAicmVzcG9uc2UiKQ0KcmVzZXJ2JGVhcl9oYXRfY2YgIDwtIHByZWRpY3QobTFfZ2FtLCBuZXdkYXRhID0gbmRfY2YsICB0eXBlID0gInJlc3BvbnNlIikNCg0KIyBQZW5hbGlkYWRlIGNsaW3DoXRpY2Egbm8gRUFSIChwb250dWFsKQ0KcmVzZXJ2JGRlbHRhX2Vhcl9oYXQgPC0gcmVzZXJ2JGVhcl9oYXRfb2JzIC0gcmVzZXJ2JGVhcl9oYXRfY2YNCmRlbHRhX2Vhcl9oYXQgPC0gcmVzZXJ2JGVhcl9oYXRfb2JzIC0gcmVzZXJ2JGVhcl9oYXRfY2YNCmBgYA0KDQojIyAzLjEuNSBQcm9wYWdhw6fDo28gZGUgSW5jZXJ0ZXphDQpQYXJhIHF1YW50aWZpY2FyIGEgaW5jZXJ0ZXphIGFzc29jaWFkYSDDoHMgZXN0aW1hdGl2YXMgZGUgcGVuYWxpZGFkZSBjbGltw6F0aWNhICjOlEVBUiksIGZvcmFtIGFwbGljYWRvcyBkb2lzIG3DqXRvZG9zIGNvbXBsZW1lbnRhcmVzOiBvIERlbHRhIE1ldGhvZCBhbmFsw610aWNvIGUgYSBTaW11bGHDp8OjbyBQYXJhbcOpdHJpY2EgTXVsdGl2YXJpYWRhLiBPIHByaW1laXJvIGZvcm5lY2UgaW50ZXJ2YWxvcyBkZSBjb25maWFuw6dhIHBvbnR1YWlzIGJhc2VhZG9zIG5hIG1hdHJpeiBkZSBjb3ZhcmnDom5jaWEgZG9zIGNvZWZpY2llbnRlcyBkbyBtb2RlbG87IG8gc2VndW5kbyBwZXJtaXRlIHByb3BhZ2FyIGludGVncmFsbWVudGUgYSBpbmNlcnRlemEgcGFyYW3DqXRyaWNhIGFvIGxvbmdvIGRhIGNhZGVpYSBkZSBlc3RpbWHDp8OjbywgZ2VyYW5kbyBkaXN0cmlidWnDp8O1ZXMgZW1ww61yaWNhcyBwYXJhIGNhZGEgc3Vic2lzdGVtYSBlIGFuby4NCg0KTm8gRGVsdGEgTWV0aG9kLCBhIGluY2VydGV6YSDDqSBjYWxjdWxhZGEgcGVsYSBtYXRyaXogZGUgZGVzZW5obyBkbyBtb2RlbG8gKCAkIFhfe29ic30gLSBYX3tjZn0kKSwgbXVsdGlwbGljYWRhIHBlbGEgbWF0cml6IGRlIGNvdmFyacOibmNpYSBkb3MgcGFyw6JtZXRyb3MgKCRWX/Cdm70kKSwgY29uZm9ybWUgJFZhcijOlEUpPSBYKFZf8J2bvSlYJyQuIEVzc2EgYWJvcmRhZ2VtIGZvcm5lY2UgZXN0aW1hdGl2YXMgY29uc2lzdGVudGVzIHBhcmEgaW50ZXJ2YWxvcyBkZSA5NSUgZGUgY29uZmlhbsOnYSBlIHBlcm1pdGUgYWdyZWdhciByZXN1bHRhZG9zIHByZXNlcnZhbmRvIGFzIGNvdmFyacOibmNpYXMgZW50cmUgb2JzZXJ2YcOnw7Vlcy4gTyBtw6l0b2RvIMOpIGNvbXB1dGFjaW9uYWxtZW50ZSBlZmljaWVudGUgZSDDunRpbCBwYXJhIGdlcmFyIGludGVydmFsb3MgYW5hbMOtdGljb3MgY29tcGFyw6F2ZWlzIGVudHJlIHN1YnNpc3RlbWFzLg0KDQpBIFNpbXVsYcOnw6NvIFBhcmFtw6l0cmljYSBhbXBsaWEgZXNzYSBhYm9yZGFnZW0gYW8gYW1vc3RyYXIgbWlsaGFyZXMgZGUgdmV0b3JlcyBkZSBjb2VmaWNpZW50ZXMgKA0KJPCdm71eeyjwnZGgKX3iiLzwnZGBKFxoYXR7XGJldGF9LPCdkYnwnZu9KSQgZSByZWNhbGN1bGFyICTOlCDwnZC48J2QtPCdkYVeeyjwnZGgKX0kIHBhcmEgY2FkYSBhbW9zdHJhLiBBIGFncmVnYcOnw6NvIGRvcyByZXN1bHRhZG9zIHBvciBzdWJzaXN0ZW1hIGUgYW5vIGZvcm5lY2UgZGlzdHJpYnVpw6fDtWVzIGVtcMOtcmljYXMgZGEgcGVuYWxpZGFkZSBjbGltw6F0aWNhLCBleHByZXNzYXMgcG9yIGZhbiBjaGFydHMgKEZpZ3VyYSBhYmFpeG8pLiBPcyByZXN1bHRhZG9zIGluZGljYW0gdGVuZMOqbmNpYSBuZWdhdGl2YSBjcmVzY2VudGUgZGEgZW5lcmdpYSBhcm1hemVuYWRhIGFqdXN0YWRhIGFvIGNsaW1hIG3DqWRpbywgY29tIGZvcnRlIHF1ZWRhIGFww7NzIDIwMTAgZSBwaWNvcyBkZSBpbmNlcnRlemEgZW0gMjAxNOKAkzIwMTYuIEFzIHJlZ2nDtWVzIFN1ZGVzdGUgZSBTdWwgY29uY2VudHJhbSBvcyBtYWlvcmVzIGTDqWZpY2l0cyBtw6lkaW9zIChhdMOpIOKAkzUgZSDigJMxIG1pbGjDtWVzIGRlIE1Xwrdtw6pzLCByZXNwZWN0aXZhbWVudGUpLCBlbnF1YW50byBOb3JkZXN0ZSBlIE5vcnRlIGFwcmVzZW50YW0gcGVuYWxpZGFkZXMgbWVub3JlcywgcG9yw6ltIGNvbSBhdW1lbnRvIHByb2dyZXNzaXZvIGFvIGZpbmFsIGRhIHPDqXJpZS4gRXNzYSBjb25zaXN0w6puY2lhIGVudHJlIG9zIGRvaXMgbcOpdG9kb3MgY29uZmlybWEgYSByb2J1c3RleiBlc3RhdMOtc3RpY2EgZG8gbW9kZWxvIGUgZXN0YWJlbGVjZSB1bWEgYmFzZSBjb25macOhdmVsIHBhcmEgYSBldGFwYSBzZWd1aW50ZSBkZSBwcm9wYWdhw6fDo28gZGUgaW5jZXJ0ZXphIG5hIGdlcmHDp8OjbyBoaWRyZWzDqXRyaWNhLg0KDQoNCg0KIyMjIyBJbmNlcnRlemEgKG3DqXRvZG8gNDogKipEZWx0YSBtZXRob2QqKiBhbmFsw610aWNvKQ0KRXN0aW1hbW9zIElDcyBwYXJhIFwoXERlbHRhIEVBUlwpIHZpYSBtYXRyaXogZGUgZGVzZW5obyBubyAqKmxpbmsqKiAoYXF1aSwgaWRlbnRpdHkg4oeSIGrDoSDDqSBuw612ZWwpLiBBZ3JlZ2HDp8O1ZXMgcG9yIGFuby9zdWJzaXN0ZW1hIGRldmVtIHByZXNlcnZhciBhIGNvdmFyacOibmNpYS4NCmBgYHtyIG0xLWRlbHRhLW1ldGhvZCwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NClZwICAgICAgPC0gdmNvdihtMV9nYW0pICAjIGNvdmFyacOibmNpYSBkb3MgY29lZmljaWVudGVzDQpYX29icyAgIDwtIHByZWRpY3QobTFfZ2FtLCBuZXdkYXRhID0gbmRfb2JzLCB0eXBlID0gImxwbWF0cml4IikNClhfY2YgICAgPC0gcHJlZGljdChtMV9nYW0sIG5ld2RhdGEgPSBuZF9jZiwgIHR5cGUgPSAibHBtYXRyaXgiKQ0KWF9kaWZmICA8LSBYX29icyAtIFhfY2YNCg0KIyBFUCBwb3Igb2JzZXJ2YcOnw6NvDQp2YXJfZGVsdGEgPC0gcm93U3VtcygoWF9kaWZmICUqJSBWcCkgKiBYX2RpZmYpDQpzZV9kZWx0YSAgPC0gc3FydChwbWF4KHZhcl9kZWx0YSwgMCkpDQp6ICAgICAgICAgPC0gcW5vcm0oMC45NzUpDQoNCmRlbHRhX2x3ciA8LSByZXNlcnYkZGVsdGFfZWFyX2hhdCAtIHogKiBzZV9kZWx0YQ0KZGVsdGFfdXByIDwtIHJlc2VydiRkZWx0YV9lYXJfaGF0ICsgeiAqIHNlX2RlbHRhDQpyZXNlcnYkZGVsdGFfZWFyX3VwcjwtZGVsdGFfdXByDQpyZXNlcnYkZGVsdGFfZWFyX2x3cjwtZGVsdGFfbHdyDQptMV9kZWx0YSA8LSBuZF9vYnMgJT4lDQogIHRyYW5zbXV0ZSgNCiAgICBkYXRlLCBub21fc3Vic2lzdGVtYS54LA0KICAgIGRlbHRhX2hhdCA9IGRlbHRhX2Vhcl9oYXQsDQogICAgZGVsdGFfc2UgID0gc2VfZGVsdGEsDQogICAgZGVsdGFfbHdyID0gZGVsdGFfbHdyLA0KICAgIGRlbHRhX3VwciA9IGRlbHRhX3Vwcg0KICApDQoNCiMgQWdyZWdhciBwb3IgYW5vL3N1YnNpc3RlbWEgcHJlc2VydmFuZG8gY292YXJpw6JuY2lhIChjb21iaW5hw6fDo28gbGluZWFyKQ0KbGlicmFyeShkYXRhLnRhYmxlKQ0KZHQgPC0gYXMuZGF0YS50YWJsZShuZF9vYnMpWywgLihkYXRlLCBub21fc3Vic2lzdGVtYS54KV0NCmR0WywgeWVhciA6PSB5ZWFyKGRhdGUpXQ0KDQojIFZldG9yIHNfZyA9IHNvbWEgZGFzIGxpbmhhcyBkZSBYX2RpZmYgbm8gZ3J1cG8gKGFubywgc3Vic2lzdGVtYSkNCmdyb3VwcyA8LSB1bmlxdWUoZHRbLCAuKHllYXIsIG5vbV9zdWJzaXN0ZW1hLngpXSkNClMgPC0gbGFwcGx5KDE6bnJvdyhncm91cHMpLCBmdW5jdGlvbihnKXsNCiAgaWR4IDwtIHdoaWNoKGR0JHllYXIgPT0gZ3JvdXBzJHllYXJbZ10gJiBkdCRub21fc3Vic2lzdGVtYS54ID09IGdyb3VwcyRub21fc3Vic2lzdGVtYS54W2ddKQ0KICBjb2xTdW1zKFhfZGlmZltpZHgsICwgZHJvcCA9IEZBTFNFXSkNCn0pDQoNCmFnZ19tZWFuIDwtIHNhcHBseSgxOm5yb3coZ3JvdXBzKSwgZnVuY3Rpb24oZyl7DQogIHN1bShyZXNlcnYkZGVsdGFfZWFyX2hhdFtkdCR5ZWFyID09IGdyb3VwcyR5ZWFyW2ddICYgZHQkbm9tX3N1YnNpc3RlbWEueCA9PSBncm91cHMkbm9tX3N1YnNpc3RlbWEueFtnXV0sIG5hLnJtID0gVFJVRSkNCn0pDQphZ2dfdmFyICA8LSBzYXBwbHkoUywgZnVuY3Rpb24oc3YpIGFzLm51bWVyaWModChzdikgJSolIFZwICUqJSBzdikpDQphZ2dfc2UgICA8LSBzcXJ0KHBtYXgoYWdnX3ZhciwgMCkpDQoNCm0xX2RlbHRhX2FnZyA8LSBjYmluZChncm91cHMsDQogIGRlbHRhX21lYW4gPSBhZ2dfbWVhbiwNCiAgZGVsdGFfbHdyICA9IGFnZ19tZWFuIC0geiAqIGFnZ19zZSwNCiAgZGVsdGFfdXByICA9IGFnZ19tZWFuICsgeiAqIGFnZ19zZQ0KKQ0KYGBgDQoNCiMjIyMgSW5jZXJ0ZXphIChtw6l0b2RvIDE6ICoqU2ltdWxhw6fDo28gcGFyYW3DqXRyaWNhKiogZW5jYWRlw6F2ZWwpDQpBbW9zdHJhbW9zIG9zIGNvZWZpY2llbnRlcyBkYSBkaXN0cmlidWnDp8OjbyBub3JtYWwgbXVsdGl2YXJpYWRhIGUgcmVjYWxjdWxhbW9zIFwoXERlbHRhIEVBUl57KHMpfVwpLiBFc3NlIG9iamV0byBzZXLDoSBhICoqZW50cmFkYSBwcm9iYWJpbMOtc3RpY2EqKiBwYXJhIG8gR0FNIDEuDQoNCmBgYHtyIG0xLW1vbnRlY2FybG8sIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQpsaWJyYXJ5KE1BU1MpDQpuc2ltIDwtIDIwMDANCnNldC5zZWVkKDIwMjUxMDEwKQ0KDQpiZXRhX2RyYXdzIDwtIE1BU1M6Om12cm5vcm0obiA9IG5zaW0sIG11ID0gY29lZihtMV9nYW0pLCBTaWdtYSA9IFZwKQ0KDQojIFByw6ktY8OhbGN1bG8gcGFyYSBlZmljacOqbmNpYQ0KRCA8LSBYX2RpZmYgICAgICAgICAgICAgIyBOIHggcA0KIyDOlEVBUiBwb3Igc2ltdWxhw6fDo286IGNhZGEgY29sdW5hIMOpIHVtYSBzaW0sIGNhZGEgbGluaGEgdW1hIG9ic2VydmHDp8Ojbw0KZGVsdGFfc2ltcyA8LSBEICUqJSB0KGJldGFfZHJhd3MpICAgIyAoTiB4IG5zaW0pDQoNCiMgQWdyZWdhciBwb3IgYW5vL3N1YnNpc3RlbWEgZW0gY2FkYSBzaW0NCmR0JGdpZCA8LSAuR1JQOyBkdFssIGdpZCA6PSAuR1JQLCBieSA9IC4oeWVhciwgbm9tX3N1YnNpc3RlbWEueCldDQpHIDwtIG1heChkdCRnaWQpDQoNCmFnZ19tYXQgPC0gbWF0cml4KE5BX3JlYWxfLCBucm93ID0gRywgbmNvbCA9IG5zaW0pDQpmb3IgKGcgaW4gMTpHKSB7DQogIGlkeCA8LSB3aGljaChkdCRnaWQgPT0gZykNCiAgYWdnX21hdFtnLCBdIDwtIGNvbFN1bXMoZGVsdGFfc2ltc1tpZHgsICwgZHJvcCA9IEZBTFNFXSwgbmEucm0gPSBUUlVFKQ0KfQ0KDQptMV9zaW1fYWdnIDwtIGNiaW5kKGdyb3VwcywNCiAgbWVhbiA9IHJvd01lYW5zKGFnZ19tYXQpLA0KICBsd3IgID0gYXBwbHkoYWdnX21hdCwgMSwgcXVhbnRpbGUsIDAuMDI1KSwNCiAgdXByICA9IGFwcGx5KGFnZ19tYXQsIDEsIHF1YW50aWxlLCAwLjk3NSkNCikNCg0KYGBgDQojIyMjIFZpc3VhbGl6YcOnw6NvIHLDoXBpZGEgKHB1YmxpY2HDp8OjbykNClJpYmJvbnMgKERlbHRhKSBlIGZhbiBjaGFydHMgKE1DKSBwYWRyb25pemFkb3MuDQoNCg0KYGBge3IgbTEtcGxvdHMsIGZpZy5oZWlnaHQ9NiwgZmlnLndpZHRoPTEyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KDQojIFJpYmJvbiAoRGVsdGEpDQptMV9kZWx0YV9hZ2cgJT4lDQogIGdncGxvdChhZXMoeCA9IHllYXIsIHkgPSBkZWx0YV9tZWFuLzEwMDApKSArDQogIGdlb21fcmliYm9uKGFlcyh5bWluID0gZGVsdGFfbHdyLzEwMDAsIHltYXggPSBkZWx0YV91cHIvMTAwMCksIGFscGhhID0gLjI1LCBmaWxsID0gImZpcmVicmljayIpICsNCiAgZ2VvbV9saW5lKCkgKw0KICBmYWNldF93cmFwKH5ub21fc3Vic2lzdGVtYS54LCBzY2FsZXMgPSAiZnJlZV95IikgKw0KICBsYWJzKHRpdGxlID0gIkNsaW1hdGUgcGVuYWx0eSBvbiBzdG9yZWQgZW5lcmd5ICjOlEVBUikg4oCUIERlbHRhIG1ldGhvZCIsDQogICAgICAgeSA9ICLOlEVBUiAoR1fCt21vbnRoKSIsIHggPSAiWWVhciIpICsNCiAgdGhlbWVfbWluaW1hbCgpDQoNCiMgRmFuIGNoYXJ0IChNQykNCm0xX3NpbV9hZ2cgJT4lDQogIGdncGxvdChhZXMoeCA9IHllYXIsIHkgPSBtZWFuLzEwMDApKSArDQogIGdlb21fcmliYm9uKGFlcyh5bWluID0gbHdyLzEwMDAsIHltYXggPSB1cHIvMTAwMCksIGFscGhhID0gLjI1LCBmaWxsID0gInN0ZWVsYmx1ZSIpICsNCiAgZ2VvbV9yaWJib24oYWVzKHltaW4gPSAwLCB5bWF4ID0gdXByLzEwMDApLCBmaWxsID0gInJlZDMiLCBhbHBoYSA9IDAuMSkgKw0KDQogIGdlb21fbGluZSgpICsNCiAgZmFjZXRfd3JhcCh+bm9tX3N1YnNpc3RlbWEueCwgc2NhbGVzID0gImZyZWVfeSIpICsNCiAgbGFicyh0aXRsZSA9ICJDbGltYXRlIHBlbmFsdHkgb24gc3RvcmVkIGVuZXJneSAozpRFQVIpIOKAlCBQYXJhbWV0cmljIHNpbXVsYXRpb24iLA0KICAgICAgIHkgPSAizpRFQVIgKEdXwrdtb250aCkiLCB4ID0gIlllYXIiKSArDQogIHRoZW1lX21pbmltYWwoKQ0KYGBgDQpQZW5hbGlkYWRlIGNsaW3DoXRpY2EgYWdyZWdhZGEgZSBpbnRlcnZhbG9zIGRlIGNvbmZpYW7Dp2ENCmBgYHtyfQ0KbTFfc3VtbWFyeSA8LSBtMV9zaW1fYWdnICU+JQ0KICBncm91cF9ieShub21fc3Vic2lzdGVtYS54KSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIG1lYW5fcGVuYWx0eSA9IG1lYW4obWVhbiwgbmEucm0gPSBUUlVFKSwNCiAgICBsd3JfOTUgPSBtZWFuKGx3ciwgbmEucm0gPSBUUlVFKSwNCiAgICB1cHJfOTUgPSBtZWFuKHVwciwgbmEucm0gPSBUUlVFKSwNCiAgICBzZF9wZW5hbHR5ID0gc2QobWVhbiwgbmEucm0gPSBUUlVFKSwNCiAgICAuZ3JvdXBzID0gImRyb3AiDQogICkNCg0KIyBDb252ZXJ0ZW5kbyBwYXJhIEdXaC9hbm8gcGFyYSBpbnRlcnByZXRhw6fDo28NCm0xX3N1bW1hcnkgPC0gbTFfc3VtbWFyeSAlPiUNCiAgbXV0YXRlKA0KICAgIG1lYW5fR1doID0gbWVhbl9wZW5hbHR5IC8gMTAwMCwNCiAgICBsd3JfR1doICA9IGx3cl85NSAvIDEwMDAsDQogICAgdXByX0dXaCAgPSB1cHJfOTUgLyAxMDAwLA0KICApICMlPiUgc2VsZWN0KC1tZWFuX3BlbmFsdHksIC1sd3JfOTUsIC11cHJfOTUpDQoNCiMgVGFiZWxhIGZvcm1hdGFkYSAocHVibGljYcOnw6NvKQ0KbGlicmFyeShndCkNCm0xX3N1bW1hcnlbLGMoIm5vbV9zdWJzaXN0ZW1hLngiLCJtZWFuX0dXaCIsImx3cl9HV2giLCAidXByX0dXaCIpXSAlPiUgamFuaXRvcjo6YWRvcm5fdG90YWxzKCkgJT4lIA0KICBndCgpICU+JQ0KICBmbXRfbnVtYmVyKGNvbHVtbnMgPSAyOjQsIGRlY2ltYWxzID0gMSkgJT4lDQogIGNvbHNfbGFiZWwoDQogICAgbm9tX3N1YnNpc3RlbWEueCA9ICJTdWJzeXN0ZW0iLA0KICAgIG1lYW5fR1doID0gIk1lYW4gzpRFQVIgKEdXaCkiLA0KICAgIGx3cl9HV2ggID0gIkxvd2VyIDk1JSIsDQogICAgdXByX0dXaCAgPSAiVXBwZXIgOTUlIiwNCiAgKSAlPiUNCiAgdGFiX2hlYWRlcigNCiAgICB0aXRsZSA9IG1kKCIqKkFnZ3JlZ2F0ZSBjbGltYXRlIHBlbmFsdHkgb24gc3RvcmVkIGVuZXJneSAoMjAwMeKAkzIwMTgpKioiKSwNCiAgICBzdWJ0aXRsZSA9ICJTaW11bGF0ZWQgbWVhbiBhbmQgOTUlIGNvbmZpZGVuY2UgaW50ZXJ2YWxzIHBlciBzdWJzeXN0ZW0iDQogICkNCmBgYA0KQSBUYWJlbGEgYXByZXNlbnRhIGEgKipwZW5hbGlkYWRlIGNsaW3DoXRpY2EgbcOpZGlhIHNvYnJlIGEgZW5lcmdpYSBhcm1hemVuYWRhICjOlEVBUikqKiBubyBwZXLDrW9kbyAyMDAx4oCTMjAxOCwgYWdyZWdhZGEgcG9yIHN1YnNpc3RlbWEuIE9zIHZhbG9yZXMgZm9yYW0gZXN0aW1hZG9zIGEgcGFydGlyIGRhcyBkaXN0cmlidWnDp8O1ZXMgb2J0aWRhcyB2aWEgc2ltdWxhw6fDo28gcGFyYW3DqXRyaWNhIGRlIDIuMDAwIHNvcnRlaW9zIGRhIG1hdHJpeiBkZSBjb3ZhcmnDom5jaWEgZG9zIGNvZWZpY2llbnRlcyBkbyBtb2RlbG8gaGlkcm9sw7NnaWNvLiBBcyBwZW5hbGlkYWRlcyBtw6lkaWFzIGZvcmFtIGV4cHJlc3NhcyBlbSBnaWdhd2F0dHMtbcOqcyAoR1dowrdtb250aCksIGNvbSBpbnRlcnZhbG9zIGRlIGNvbmZpYW7Dp2EgZGUgOTUlIGNvbSB1bSB0b3RhbCBkZSAqKuKAkzEsNjA2LjMgKElDOTUlOiDiiJIxLDc0Ni4yO+KIkjEsNDcwLjIpICBkZSBHV2guDQoNCk9zIHJlc3VsdGFkb3MgaW5kaWNhbSBxdWUgbyAqKnN1YnNpc3RlbWEgU3VkZXN0ZSoqIGNvbmNlbnRyYSBvIG1haW9yIGTDqWZpY2l0IG3DqWRpbyBkZSBhcm1hemVuYW1lbnRvLCBlc3RpbWFkbyBlbSBhcHJveGltYWRhbWVudGUgKiriiJIxLDE3OC40CSAoSUM5NSU64oiSMSwyNjIuNDviiJIxLDA5Ny40KSAgZGUgR1dowrdtw6pzKiosIHJlZmxldGluZG8gc3VhIHByZWRvbWluw6JuY2lhIG5vIHNpc3RlbWEgaW50ZXJsaWdhZG8gZSBzdWEgbWFpb3IgZXhwb3Npw6fDo28gYSBhbm9tYWxpYXMgZGUgcHJlY2lwaXRhw6fDo28uIE8gKipTdWwqKiBhcHJlc2VudGEgcGVuYWxpZGFkZSBpbnRlcm1lZGnDoXJpYSAoWFhYWFhYWFhYWFhYKSwgbWFzIGNvbSBtYWlvciB2YXJpYWJpbGlkYWRlIGludGVyYW51YWwsIGNvbXBhdMOtdmVsIGNvbSBzZXUgcmVnaW1lIHBsdXZpb23DqXRyaWNvIG1haXMgaXJyZWd1bGFyLiBObyAqKk5vcmRlc3RlKiosIGFzIHBlcmRhcyBtw6lkaWFzIHPDo28gbWVub3JlcyAoWFhYWFhYWFhYWFhYWFgpLCBlbWJvcmEgY29tIHRlbmTDqm5jaWEgbmVnYXRpdmEgYWNlbnR1YWRhIGFww7NzIDIwMTAuIErDoSBvICoqTm9ydGUqKiBhcHJlc2VudGEgdmFsb3JlcyBwcsOzeGltb3MgZGUgemVybywgY29tIGludGVydmFsb3MgZGUgY29uZmlhbsOnYSBxdWUgaW5jbHVlbSBhIG51bGlkYWRlLCBzdWdlcmluZG8gYXVzw6puY2lhIGRlIHBlbmFsaWRhZGUgbMOtcXVpZGEgc2lnbmlmaWNhdGl2YSBubyBwZXLDrW9kbyBhbmFsaXNhZG8uDQoNCkVzc2VzIHJlc3VsdGFkb3MgY29ycm9ib3JhbSBhIGhpcMOzdGVzZSBkZSBxdWUgYSAqKnBlbmFsaWRhZGUgY2xpbcOhdGljYSBzb2JyZSBvIGFybWF6ZW5hbWVudG8gaMOtZHJpY28gw6kgY29uY2VudHJhZGEgZSBlc3RydXR1cmFsbWVudGUgYXNzaW3DqXRyaWNhKiosIGFmZXRhbmRvIGNvbSBtYWlvciBpbnRlbnNpZGFkZSBvcyBzdWJzaXN0ZW1hcyBTdWRlc3RlIGUgU3VsIOKAlCBqdXN0YW1lbnRlIGFxdWVsZXMgY29tIG1haW9yIHBhcGVsIGRlIHJlZ3VsYcOnw6NvIGUgc3Vwb3J0ZSBlbmVyZ8OpdGljbyBwYXJhIG8gcmVzdGFudGUgZG8gcGHDrXMuIEVzc2EgaGV0ZXJvZ2VuZWlkYWRlIGVzcGFjaWFsIGZvcm5lY2UgbyBlbG8gZW1ww61yaWNvIHBhcmEgYSBwcsOzeGltYSBldGFwYSBkYSBtb2RlbGFnZW0sIGVtIHF1ZSBhcyB2YXJpYcOnw7VlcyBzaW11bGFkYXMgZGUgXCggXERlbHRhIEVBUiBcKSBzZXLDo28gcHJvcGFnYWRhcyDDoCBnZXJhw6fDo28gaGlkcmVsw6l0cmljYSAoR0FNIDEpLCDDoCBnZXJhw6fDo28gdMOpcm1pY2EgKEdBTSAyKSBlLCBwb3IgZmltLCBhbyBwcmXDp28gZGUgY3VydG8gcHJhem8gKEdBTSAzKS4NCg0KDQozLjIgTW9kZWxvIDIg4oCUIEdlcmHDp8OjbyBIaWRyZWzDqXRyaWNhIGNvbW8gRnVuw6fDo28gZG8gQXJtYXplbmFtZW50bw0KTyBzZWd1bmRvIG1vZGVsbyBkYSBjYWRlaWEgZXN0aW1hIGEgZ2VyYcOnw6NvIGhpZHJlbMOpdHJpY2EgKEdfaGlkcm8pIGVtIGZ1bsOnw6NvIGRhIGVuZXJnaWEgYXJtYXplbmFkYSAoRUFSKSBlIGRlIGNvbnRyb2xlcyBvcGVyYWNpb25haXMgZSBzYXpvbmFpcy4gTyBvYmpldGl2byDDqSBjYXB0dXJhciBhIGVsYXN0aWNpZGFkZSBkYSBnZXJhw6fDo28gZW0gcmVsYcOnw6NvIGFvIGVzdG9xdWUgaMOtZHJpY28sIHBlcm1pdGluZG8gdHJhZHV6aXIgYXMgdmFyaWHDp8O1ZXMgc2ltdWxhZGFzIGRlIM6URUFSIChwZW5hbGlkYWRlIGNsaW3DoXRpY2EpIGVtIGltcGFjdG9zIHNvYnJlIGEgZ2VyYcOnw6NvIGVmZXRpdmEuIEFzc2ltIGNvbW8gbm8gbW9kZWxvIGNsaW3DoXRpY28sIGVtcHJlZ2Etc2UgdW0gR0FNIHBhcmEgY2FwdHVyYXIgcmVsYcOnw7VlcyBuw6NvIGxpbmVhcmVzIGVudHJlIHZhcmnDoXZlaXMgZsOtc2ljYXMgZSBvcGVyYWNpb25haXMsIG1hbnRlbmRvIHBhcmNpbcO0bmlhIGUgaW50ZXJwcmV0YWJpbGlkYWRlLg0KDQoNCg0KIyAzLjIgTW9kZWxvIDIg4oCUIEdlcmHDp8OjbyBIaWRyZWzDqXRyaWNhIGNvbW8gRnVuw6fDo28gZG8gQXJtYXplbmFtZW50bw0KDQpgYGB7cn0NCg0KbTJfaGlkcm8gPC0gYmFtKA0KICB2YWxfZ2VyYWNhbyB+ICBZZWFyKw0KICAgIHMoZWFyX3Jlc2VydmF0b3Jpb19zdWJzaXN0ZW1hX3Byb3ByaW9fbXdtZXMsIGsgPSA0KSsNCiAgICBzKHZhbF9nZXJhY2FvX2RheV9zdWJzaXN0ZW1hLCBrID0gNCkrDQogICAgcyhkb3ksIGJzID0gImNjIiwgayA9IDIpICsgICAgICMgc2F6b25hbGlkYWRlIGRvIGRpYSBkbyBhbm8gKGPDrWNsaWNhKQ0KICAgIHMoaWRfcmVzZXJ2YXRvcmlvLngsIGJzID0gInJlIikrIyBlZmVpdG8gYWxlYXTDs3JpbyBwb3IgcmVzZXJ2YXTDs3Jpbw0KICAgI3ModmFsX3ZhemFvZGVmbHVlbnRlLGsgPSAyKSsNCg0KICAgIG5vbV9zdWJzaXN0ZW1hLngNCiAgLA0KICBkYXRhICAgICA9IHJlc2VydiwNCiAgbWV0aG9kICAgPSAiZlJFTUwiLA0KICBkaXNjcmV0ZSA9IFRSVUUsDQogIGZhbWlseSAgID0gZ2F1c3NpYW4oKSwgICAgICAgICAgICAjIGZhbcOtbGlhOiBub3JtYWw7IGFqdXN0YXIgc2UgbmVjZXNzw6FyaW8NCiAgbmEuYWN0aW9uPSBuYS5leGNsdWRlLA0KICAja25vdHMgICAgPSBsaXN0KGRveSA9IGMoMC41LCAzNjYuNSkpDQopDQpgYGANCg0KYGBge3J9DQpzdW1tYXJ5KG0yX2hpZHJvKQ0KZ2FtLmNoZWNrKG0yX2hpZHJvKQ0KY29uY3Vydml0eShtMl9oaWRybywgZnVsbD1UUlVFKQ0KDQpgYGANCg0KDQpgYGB7cn0NCg0KcGxvdChtMl9oaWRybywgcGFnZXM9Mywgc2NoZW1lPTEsIHNoYWRlPVRSVUUsIHNlPVRSVUUsIHNjYWxlcz0iZnJlZSIpDQpgYGANCk8gbW9kZWxvIGhpZHJlbMOpdHJpY28gKEdBTSAyKSBhcHJlc2VudG91IGZvcnRlIGRlc2VtcGVuaG8gZXhwbGljYXRpdm8sIGNvbSBSwrIgYWp1c3RhZG8gZGUgMCw4NSBlIGRldmlhbmNlIGV4cGxpY2FkYSBkZSA4NSwyJSwgbyBxdWUgY29uZmlybWEgc3VhIGFsdGEgY2FwYWNpZGFkZSBkZSByZXByb2R1emlyIGEgZ2VyYcOnw6NvIG9ic2VydmFkYSBhIHBhcnRpciBkYSBlbmVyZ2lhIGFybWF6ZW5hZGEgZSB2YXJpw6F2ZWlzIG9wZXJhY2lvbmFpcy4gTyB0ZXJtbyBsaW5lYXIgcGFyYSBvIGFubyDDqSBuZWdhdGl2byBlIGFsdGFtZW50ZSBzaWduaWZpY2F0aXZvICjigJMxMyw1IE1Xwrdtw6pzL2FubzsgcCA8IDAsMDAxKSwgcmVmbGV0aW5kbyBhIHRlbmTDqm5jaWEgZXN0cnV0dXJhbCBkZSByZWR1w6fDo28gZGEgcGFydGljaXBhw6fDo28gaMOtZHJpY2EgYW8gbG9uZ28gZG8gcGVyw61vZG8sIHBvc3NpdmVsbWVudGUgZW0gZnVuw6fDo28gZGEgZXhwYW5zw6NvIGRlIGZvbnRlcyB0w6lybWljYXMgZSByZW5vdsOhdmVpcyBuw6NvIGjDrWRyaWNhcy4gT3MgZWZlaXRvcyBmaXhvcyBwb3Igc3Vic2lzdGVtYSBpbmRpY2FtIGRpZmVyZW7Dp2FzIG1vZGVzdGFzLCBjb20gZ2VyYcOnw6NvIG3DqWRpYSBsaWdlaXJhbWVudGUgc3VwZXJpb3Igbm8gTm9ydGUgZSBpbmZlcmlvciBubyBTdWRlc3RlLCBjb25zaXN0ZW50ZXMgY29tIG8gcGFwZWwgZXN0cnV0dXJhbCBkZSBjYWRhIHJlZ2nDo28gbmEgb2ZlcnRhIGRlIGVuZXJnaWEgZSBubyBkZXNwYWNobyBkbyBzaXN0ZW1hLg0KDQpPcyBkaWFnbsOzc3RpY29zIGRlIHJlc8OtZHVvcyBldmlkZW5jaWFtIGFqdXN0ZSBhZGVxdWFkbywgY29tIGRpc3RyaWJ1acOnw6NvIGFwcm94aW1hZGFtZW50ZSBub3JtYWwgZSBhdXPDqm5jaWEgZGUgaGV0ZXJvY2VkYXN0aWNpZGFkZSBzaXN0ZW3DoXRpY2EuIE8gaGlzdG9ncmFtYSBkb3MgcmVzw61kdW9zIMOpIGNlbnRyYWRvIGVtIHplcm8sIGUgbyBRUS1wbG90IG1vc3RyYSBsZXZlIGN1cnZhdHVyYSBuYXMgY2F1ZGFzLCBpbmRpY2FuZG8gcGVxdWVuYSBhc3NpbWV0cmlhIGFzc29jaWFkYSBhIHJlZ2ltZXMgb3BlcmFjaW9uYWlzIGV4dHJlbW9zIChyZXNlcnZhdMOzcmlvcyBjaGVpb3Mgb3UgdmF6aW9zKS4gTyBncsOhZmljbyBkZSByZXPDrWR1b3MgdmVyc3VzIHByZWRpdG9zIGV4aWJlIGR1YXMgZmFpeGFzIGJlbSBkZWZpbmlkYXMsIGNvcnJlc3BvbmRlbnRlcyBhIGRpZmVyZW50ZXMgcmVnaW1lcyBkZSBvcGVyYcOnw6NvIGhpZHLDoXVsaWNhIOKAlCB1bSBkZSBiYWl4YSBnZXJhw6fDo28gY29tIEVBUiBsaW1pdGFkYSBlIG91dHJvIGRlIG9wZXJhw6fDo28gcGxlbmEgY29tIGFsdG9zIG7DrXZlaXMgZGUgZGVzcGFjaG8uIEVtYm9yYSBlc3NlcyByZWdpbWVzIGludHJvZHV6YW0gbGV2ZSBlc3RyYXRpZmljYcOnw6NvLCBuw6NvIGjDoSBpbmTDrWNpb3MgZGUgdmnDqXMgZGlyZWNpb25hbCBuZW0gYXV0b2NvcnJlbGHDp8OjbyByZWxldmFudGUsIG8gcXVlIHJlZm9yw6dhIGEgdmFsaWRhZGUgZG8gbW9kZWxvIGdhdXNzaWFubyBjb20gbGluayBpZGVudGlkYWRlLiBPIHRlc3RlIGRlIGRpbWVuc2lvbmFsaWRhZGUgZWZldGl2YSAoay1pbmRleCA+IDAuOSkgZSBvIGJhaXhvIG7DrXZlbCBkZSBjb25jb3Jyw6puY2lhIChjb25jdXJ2aXR5IDwgMC4zKSBjb25maXJtYW0gYSBlc3RhYmlsaWRhZGUgbnVtw6lyaWNhIGRvcyBzcGxpbmVzIGUgYSBhdXPDqm5jaWEgZGUgc29icmVhanVzdGUuDQoNCk9zIGVmZWl0b3MgcGFyY2lhaXMgaWx1c3RyYW0gZGUgZm9ybWEgY2xhcmEgYSBkaW7Dom1pY2EgZsOtc2ljYSBkbyBzaXN0ZW1hLiBPIHNwbGluZSBkYSBlbmVyZ2lhIGFybWF6ZW5hZGEgKEVBUikgYXByZXNlbnRhIHVtIGZvcm1hdG8gY3Jlc2NlbnRlIGNvbSBsZXZlIHNhdHVyYcOnw6NvLCBzdWdlcmluZG8gcmVuZGltZW50byBkZWNyZXNjZW50ZTogYXVtZW50b3MgaW5pY2lhaXMgZGUgYXJtYXplbmFtZW50byBwcm9kdXplbSBncmFuZGVzIGFjcsOpc2NpbW9zIGRlIGdlcmHDp8OjbywgbWFzIG8gZWZlaXRvIG1hcmdpbmFsIGRpbWludWkgw6AgbWVkaWRhIHF1ZSBvIHJlc2VydmF0w7NyaW8gc2UgYXByb3hpbWEgZGEgY2FwYWNpZGFkZSBtw6F4aW1hLiBPIHNwbGluZSBkYSBnZXJhw6fDo28gZGnDoXJpYSBkbyBzdWJzaXN0ZW1hIG1vc3RyYSByZWxhw6fDo28gcXVhc2UgbGluZWFyIHBvc2l0aXZhLCByZXByZXNlbnRhbmRvIG8gZWZlaXRvIGRlIGVzY2FsYSBlIGNvb3JkZW5hw6fDo28gZW50cmUgdXNpbmFzIGludGVybGlnYWRhcy4gQSBzYXpvbmFsaWRhZGUgYW51YWwgKGRveSkgw6kgZnJhY2EsIHJlZmxldGluZG8gbyBmYXRvIGRlIHF1ZSBhcyBvc2NpbGHDp8O1ZXMgc2F6b25haXMgasOhIHPDo28gaW50ZXJuYWxpemFkYXMgbm8gbsOtdmVsIGRlIGFybWF6ZW5hbWVudG8sIGVucXVhbnRvIG8gZWZlaXRvIGFsZWF0w7NyaW8gcG9yIHJlc2VydmF0w7NyaW8gaW5kaWNhIGFtcGxhIGhldGVyb2dlbmVpZGFkZSBlc3RydXR1cmFsIOKAlCBhbGd1bnMgcmVzZXJ2YXTDs3Jpb3Mgb3BlcmFtIGNvbW8gdXNpbmFzIGRlIGJhc2UsIGNvbSBlZmVpdG8gcHLDs3hpbW8gZGUgemVybywgZSBvdXRyb3MgY29tIGZvcnRlIHNlbnNpYmlsaWRhZGUgw6AgdmFyaWHDp8OjbyBkZSBFQVIuIEVtIGNvbmp1bnRvLCBlc3NlcyByZXN1bHRhZG9zIGNvbmZpcm1hbSBxdWUgbyBtb2RlbG8gY2FwdGEgYWRlcXVhZGFtZW50ZSBvIG1lY2FuaXNtbyBkZSBjb252ZXJzw6NvIGhpZHJvbMOzZ2ljYSBlbnRyZSBlc3RvcXVlIGUgZ2VyYcOnw6NvLCBvZmVyZWNlbmRvIGJhc2UgY29uc2lzdGVudGUgcGFyYSBhIGVzdGltYXRpdmEgY29udHJhZmFjdHVhbCBkYSBnZXJhw6fDo28gaMOtZHJpY2Egc29iIGRpZmVyZW50ZXMgY2Vuw6FyaW9zIGNsaW3DoXRpY29zLg0KDQoNCg0KIyNQcmVkacOnw7VlcyBmYWN0dWFsIHZzLiBjb250cmFmYWN0dWFsIGNvbSBpbmNlcnRlemEgKGJhc2VsaW5lIDIwMDHigJMyMDA1KQ0KTyBvYmpldGl2byDDqSBjb21wYXJhciBvIGFybWF6ZW5hbWVudG8gcHJldmlzdG8gcGVsbyBtb2RlbG8gc29iIGNvbmRpw6fDtWVzIGNsaW3DoXRpY2FzIG9ic2VydmFkYXMgZSBzb2IgY29uZGnDp8O1ZXMgbmV1dHJhcywgcmVwcmVzZW50YWRhcyBwZWxvIGNsaW1hIG3DqWRpbyBkbyBwZXLDrW9kbyAyMDAx4oCTMjAwNS4gQSBkaWZlcmVuw6dhIGVudHJlIGFzIGR1YXMgc8OpcmllcyAoJM6URUFSPUVee29ic33iiJJFXntjZn0kKSByZXByZXNlbnRhIGEgcGVuYWxpZGFkZSBjbGltw6F0aWNhIGzDrXF1aWRhLCBlIHN1YSBpbmNlcnRlemEgw6kgZXN0aW1hZGEgdmlhIHByb3BhZ2HDp8OjbyBkb3MgZXJyb3MgcGFyYW3DqXRyaWNvcyBkbyBHQU0uDQoNCmBgYHtyfQ0KIyAtLS0gUHJlZGnDp8O1ZXMgZmFjdHVhbCBlIGNvbnRyYWZhY3R1YWwgLS0tDQpyZXNlcnYkZWFyX2hhdF9vYnMgPC0gcHJlZGljdChtMV9nYW0sIG5ld2RhdGEgPSBuZF9vYnMsIHR5cGUgPSAicmVzcG9uc2UiKQ0KcmVzZXJ2JGVhcl9oYXRfY2YgIDwtIHByZWRpY3QobTFfZ2FtLCBuZXdkYXRhID0gbmRfY2YsICB0eXBlID0gInJlc3BvbnNlIikNCg0KIyBQZW5hbGlkYWRlIG3DqWRpYQ0KcmVzZXJ2IDwtIHJlc2VydiAlPiUNCiAgbXV0YXRlKGRlbHRhX2VhciA9IGVhcl9oYXRfb2JzIC0gZWFyX2hhdF9jZikNCg0KcmVzZXJ2JGdlcl9oYXRfZmFjdHVhbCA8LSBwcmVkaWN0KA0KICBtMl9oaWRybywgbmV3ZGF0YSA9IHJlc2VydiwNCiAgdHlwZSA9ICJyZXNwb25zZSINCikNCnJlc2VydiRnZXJfaGF0X2NvbnRyYWYgPC0gcHJlZGljdCgNCiAgbTJfaGlkcm8sIG5ld2RhdGEgPSByZXNlcnYgJT4lDQogICAgbXV0YXRlKGVhcl9yZXNlcnZhdG9yaW9fc3Vic2lzdGVtYV9wcm9wcmlvX213bWVzID0gZWFyX2hhdF9jZiksDQogIHR5cGUgPSAicmVzcG9uc2UiDQopDQpyZXNlcnYgPC0gcmVzZXJ2ICU+JQ0KICBtdXRhdGUoZGVsdGFfR2hpZHJvID0gZ2VyX2hhdF9mYWN0dWFsIC0gZ2VyX2hhdF9jb250cmFmKQ0KcmVzZXJ2WyxjKCJkZWx0YV9HaGlkcm8iLCJnZXJfaGF0X2ZhY3R1YWwiLCJnZXJfaGF0X2NvbnRyYWYiLCJ2YWxfZ2VyYWNhbyIpXSAlPiUgc3VtbWFyeSgpDQpgYGANCiMgKDMpIEluY2VydGV6YSB2aWEgRGVsdGEgTWV0aG9kIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KYGBge3J9DQpWcDIgPC0gdmNvdihtMl9oaWRybykNClhfZiA8LSBwcmVkaWN0KG0yX2hpZHJvLCBuZXdkYXRhID0gcmVzZXJ2ICwNCiAgICAgICAgICAgICAgIHR5cGUgPSAibHBtYXRyaXgiKQ0KWF9jIDwtIHByZWRpY3QobTJfaGlkcm8sIG5ld2RhdGEgPSByZXNlcnYgJT4lDQogICAgICAgICAgICAgICAgIG11dGF0ZShlYXJfcmVzZXJ2YXRvcmlvX3N1YnNpc3RlbWFfcHJvcHJpb19td21lcyA9IGVhcl9oYXRfY2YpLA0KICAgICAgICAgICAgICAgdHlwZSA9ICJscG1hdHJpeCIpDQoNClhfZGlmZjIgPC0gWF9mIC0gWF9jDQp2YXJfZGVsdGEyIDwtIHJvd1N1bXMoKFhfZGlmZjIgJSolIFZwMikgKiBYX2RpZmYyKQ0Kc2VfZGVsdGEyICA8LSBzcXJ0KHBtYXgodmFyX2RlbHRhMiwgMCkpDQp6IDwtIHFub3JtKDAuOTc1KQ0KDQpDIDwtIHJlc2VydiAlPiUNCiAgbXV0YXRlKA0KICAgIGRlbHRhX2x3cl9nZXIgPSBkZWx0YV9HaGlkcm8gLSB6ICogc2VfZGVsdGEyLA0KICAgIGRlbHRhX3Vwcl9nZXIgPSBkZWx0YV9HaGlkcm8gKyB6ICogc2VfZGVsdGEyDQogICkNCkNbLGMoImRlbHRhX0doaWRybyIsImRlbHRhX2x3cl9nZXIiLCJkZWx0YV91cHJfZ2VyIiwidmFsX2dlcmFjYW8iKV0gJT4lIHN1bW1hcnkoKQ0KYGBgDQoNCmBgYHtyfQ0KIyAoNCkgQWdyZWdhw6fDo28gcG9yIGFubyBlIHN1YnNpc3RlbWEgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCm0yX2RlbHRhX2FnZyA8LSBDICU+JQ0KICBtdXRhdGUoWWVhciA9IHllYXIoZGF0ZSkpICU+JQ0KICBncm91cF9ieShZZWFyLCBub21fc3Vic2lzdGVtYS54KSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIG1lYW5fcGVuYWx0eSA9IHN1bShkZWx0YV9HaGlkcm8sIG5hLnJtID0gVFJVRSksDQogICAgbHdyID0gc3VtKGRlbHRhX2x3cl9nZXIsIG5hLnJtID0gVFJVRSksDQogICAgdXByID0gc3VtKGRlbHRhX3Vwcl9nZXIsIG5hLnJtID0gVFJVRSksDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApDQoNCmBgYA0KDQoNCmBgYHtyIG0yLXBsb3QsIGZpZy5oZWlnaHQ9NiwgZmlnLndpZHRoPTEyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbTJfZGVsdGFfYWdnICU+JQ0KICBnZ3Bsb3QoYWVzKHggPSBZZWFyLCB5ID0gbWVhbl9wZW5hbHR5LzEwMDApKSArDQogIGdlb21fcmliYm9uKGFlcyh5bWluID0gbHdyLzEwMDAsIHltYXggPSB1cHIvMTAwMCksIGZpbGwgPSAic3RlZWxibHVlIiwgYWxwaGEgPSAwLjMpICsNCiAgZ2VvbV9yaWJib24oYWVzKHltaW4gPSAwLCB5bWF4ID0gdXByLzEwMDApLCBmaWxsID0gInJlZDMiLCBhbHBoYSA9IDAuMSkgKw0KDQogIGdlb21fbGluZShjb2xvciA9ICJibGFjayIpICsNCiAgZmFjZXRfd3JhcCh+bm9tX3N1YnNpc3RlbWEueCwgc2NhbGVzID0gImZyZWVfeSIpICsNCiAgbGFicyh0aXRsZSA9ICJQcm9wYWdhdGVkIGNsaW1hdGUgcGVuYWx0eSBvbiBoeWRyb3Bvd2VyIGdlbmVyYXRpb24gKM6UR19oaWRybykiLA0KICAgICAgIHN1YnRpdGxlID0gIkJhc2VsaW5lIGNsaW1hdGU6IG1lYW4gMjAwMeKAkzIwMDUiLA0KICAgICAgIHkgPSAizpRHX2hpZHJvIChHV8K3bW9udGgpIiwgeCA9ICJZZWFyIikgKw0KICB0aGVtZV9taW5pbWFsKCkNCmBgYA0KYGBge3J9DQogDQptMl9zdW1tYXJ5ICA8LSBDICU+JQ0KICBtdXRhdGUoWWVhciA9IHllYXIoZGF0ZSkpICU+JSB1bmdyb3VwKCkgJT4lIA0KICBncm91cF9ieSggbm9tX3N1YnNpc3RlbWEueCkgJT4lDQogIHN1bW1hcmlzZSgNCiAgICBtZWFuX3BlbmFsdHkgPSBzdW0oZGVsdGFfR2hpZHJvLCBuYS5ybSA9IFRSVUUpLA0KICAgIGx3ciA9IHN1bShkZWx0YV9sd3JfZ2VyLCBuYS5ybSA9IFRSVUUpLA0KICAgIHVwciA9IHN1bShkZWx0YV91cHJfZ2VyLCBuYS5ybSA9IFRSVUUpLA0KICAgIC5ncm91cHMgPSAiZHJvcCINCiAgKQ0KDQpsaWJyYXJ5KGd0KQ0KbTJfc3VtbWFyeVssYygibm9tX3N1YnNpc3RlbWEueCIsIm1lYW5fcGVuYWx0eSIsImx3ciIsICJ1cHIiKV0gJT4lIGphbml0b3I6OmFkb3JuX3RvdGFscygpICU+JSANCiAgZ3QoKSAlPiUNCiAgZm10X251bWJlcihjb2x1bW5zID0gMjo0LCBkZWNpbWFscyA9IDEpICU+JQ0KICBjb2xzX2xhYmVsKA0KICAgIG5vbV9zdWJzaXN0ZW1hLnggPSAiU3Vic3lzdGVtIiwNCiAgICBtZWFuX3BlbmFsdHkgPSAiU3VtIM6UZ2VyIChNV2gpIiwNCiAgICBsd3IgID0gIkxvd2VyIDk1JSIsDQogICAgdXByICA9ICJVcHBlciA5NSUiLA0KICApICU+JQ0KICB0YWJfaGVhZGVyKA0KICAgIHRpdGxlID0gbWQoIioqQWdncmVnYXRlIGNsaW1hdGUgcGVuYWx0eSBvbiBzdG9yZWQgZW5lcmd5ICgyMDAx4oCTMjAxOCkqKiIpLA0KICAgIHN1YnRpdGxlID0gIlNpbXVsYXRlZCBtZWFuIGFuZCA5NSUgY29uZmlkZW5jZSBpbnRlcnZhbHMgcGVyIHN1YnN5c3RlbSINCiAgKQ0KYGBgDQoNCkEgRmlndXJhIGFwcmVzZW50YSBvIHJlc3VsdGFkbyBkYSAqKnByb3BhZ2HDp8OjbyBkYSBwZW5hbGlkYWRlIGNsaW3DoXRpY2Egc29icmUgYSBnZXJhw6fDo28gaGlkcmVsw6l0cmljYSAozpRHXF9oaWRybykqKiwgb2J0aWRhIHBlbGEgc3Vic3RpdHVpw6fDo28gZG8gY2xpbWEgb2JzZXJ2YWRvIHBlbG8gY2xpbWEgbcOpZGlvIGhpc3TDs3JpY28gKDIwMDHigJMyMDA1KSBubyBtb2RlbG8gZGUgYXJtYXplbmFtZW50byBlIHBlbGEgYXBsaWNhw6fDo28gZGVzc2VzIHZhbG9yZXMgY29udHJhZmFjdHVhaXMgbm8gbW9kZWxvIGRlIGdlcmHDp8Ojby4gTyBncsOhZmljbyBtb3N0cmEgYSBkaWZlcmVuw6dhIGVudHJlIGEgZ2VyYcOnw6NvIHByZXZpc3RhIHNvYiBjbGltYSBlZmV0aXZvIGUgbyBjZW7DoXJpbyBjb250cmFmYWN0dWFsIG5ldXRybywgY29tIGludGVydmFsb3MgZGUgY29uZmlhbsOnYSBjYWxjdWxhZG9zIHBvciBkdWFzIGFib3JkYWdlbnM6IG8gbcOpdG9kbyBhbmFsw610aWNvIChEZWx0YSkgZSBhIHNpbXVsYcOnw6NvIHBhcmFtw6l0cmljYS4NCg0KT3MgcmVzdWx0YWRvcyBpbmRpY2FtIHF1ZSBhIHBlbmFsaWRhZGUgY2xpbcOhdGljYSBtw6lkaWEgc29icmUgYSBnZXJhw6fDo28gaGlkcmVsw6l0cmljYSBzZWd1ZSBvIG1lc21vIHBhZHLDo28gZXNwYWNpYWwgb2JzZXJ2YWRvIG5hIGVuZXJnaWEgYXJtYXplbmFkYSwgbWFzIGNvbSBtYWduaXR1ZGUgYW1wbGlmaWNhZGEgZGV2aWRvIMOgIHJlc3Bvc3RhIGVsw6FzdGljYSBkbyBkZXNwYWNobyBow61kcmljby4gTyAqKlN1ZGVzdGUqKiBhcHJlc2VudGEgbyBtYWlvciBkw6lmaWNpdCBtw6lkaW8sIGNvbSByZWR1w6fDtWVzIGFjdW11bGFkYXMgc3VwZXJpb3JlcyBhICoq4oCTNCBtaWxow7VlcyBkZSBNV8K3bcOqcyoqIGVtIGFub3Mgc2Vjb3MsIHJlZmxldGluZG8gYSBmb3J0ZSBkZXBlbmTDqm5jaWEgZGEgZ2VyYcOnw6NvIGFvIG7DrXZlbCBkZSByZXNlcnZhdMOzcmlvcy4gTyAqKlN1bCoqIG1vc3RyYSBwZW5hbGlkYWRlcyBpbnRlcm1lZGnDoXJpYXMgKGVudHJlIOKAkzEgZSDigJMyIG1pbGjDtWVzIGRlIE1Xwrdtw6pzKSwgY29tIGFsdGEgdmFyaWFiaWxpZGFkZSBpbnRlcmFudWFsLiBPICoqTm9yZGVzdGUqKiBlIG8gKipOb3J0ZSoqIGFwcmVzZW50YW0gb3NjaWxhw6fDtWVzIG1lbm9yZXMsIG1hcyBjb20gdGVuZMOqbmNpYSBuZWdhdGl2YSBhY2VudHVhZGEgYXDDs3MgMjAxMiwgY29tcGF0w612ZWwgY29tIHBlcsOtb2RvcyBkZSBlc3RpYWdlbSBwcm9sb25nYWRhLiAgDQoNCk9zICoqaW50ZXJ2YWxvcyBkZSBjb25maWFuw6dhKiogcmV2ZWxhbSBhdW1lbnRvIGV4cHJlc3Npdm8gZGEgaW5jZXJ0ZXphIGFww7NzIDIwMTAsIHF1YW5kbyBhcyBjb25kacOnw7VlcyBjbGltw6F0aWNhcyBzZSB0b3JuYXJhbSBtYWlzIHZvbMOhdGVpcyBlIG9zIHJlc2VydmF0w7NyaW9zIHBhc3NhcmFtIGEgb3BlcmFyIHByw7N4aW1vcyBkZSBsaW1pdGVzIGNyw610aWNvcy4gRXNzZSBwYWRyw6NvIHJlZm9yw6dhIGEgaW50ZXJwcmV0YcOnw6NvIGRlIHF1ZSBhICoqcGVuYWxpZGFkZSBjbGltw6F0aWNhIHByb3BhZ2FkYSDDoCBnZXJhw6fDo28qKiByZXByZXNlbnRhIG7Do28gYXBlbmFzIGEgcGVyZGEgZGUgZXN0b3F1ZSBow61kcmljbywgbWFzIHRhbWLDqW0gYSAqKmRpbWludWnDp8OjbyBkYSBmbGV4aWJpbGlkYWRlIG9wZXJhdGl2YSoqIGRvIHNpc3RlbWEsIHVtIGRvcyBwcmluY2lwYWlzIGNhbmFpcyBkZSB0cmFuc21pc3PDo28gZG9zIGVmZWl0b3MgY2xpbcOhdGljb3MgcGFyYSBvcyBjdXN0b3MgZG8gc2V0b3IgZWzDqXRyaWNvLg0KDQozLjIuNSBQcm9wYWdhw6fDo28gY29uanVudGEgZGUgaW5jZXJ0ZXphICjOlEVBUiDihpIgzpRHX2hpZHJvKQ0KRXN0ZSBibG9jbyByZWFsaXphIHVtYSBzaW11bGHDp8OjbyBNb250ZSBDYXJsbyBlbmNhZGVhZGE6IGNhZGEgc29ydGVpbyBpbmNsdWkgc2ltdWx0YW5lYW1lbnRlIG9zIGNvZWZpY2llbnRlcyBkbyBtb2RlbG8gY2xpbcOhdGljbyAobTFfZ2FtKSBlIGRvIG1vZGVsbyBoaWRyZWzDqXRyaWNvIChtMl9oaWRybykuDQpBc3NpbSwgYXMgaW5jZXJ0ZXphcyBkYSBwcmV2aXPDo28gZG8gYXJtYXplbmFtZW50byAoRUFSKSBzw6NvIHRyYW5zbWl0aWRhcyBpbnRlZ3JhbG1lbnRlIHBhcmEgYXMgcHJldmlzw7VlcyBkZSBnZXJhw6fDo28sIHByb2R1emluZG8gdW1hIGRpc3RyaWJ1acOnw6NvIGNvbmp1bnRhIHBhcmEgJM6U8J2Qul974oSO8J2RlvCdkZHwnZGf8J2RnH0kLiANCg0KDQoNCg0KIyMjIDMuMi42IFJlc3VsdGFkb3Mg4oCUIFByb3BhZ2HDp8OjbyBpbnRlZ3JhbCBkZSBpbmNlcnRlemEgKM6UR1xfaGlkcm8gY29uanVudG8pDQoNCg0KYGBge3IgcmV3bTFtMi1qb2ludC1zaW11bGF0aW9uLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShNQVNTKQ0KbGlicmFyeShkcGx5cikNCmxpYnJhcnkobHVicmlkYXRlKQ0KDQpzZXQuc2VlZCgyMDI1MTAxMSkNCm5zaW0gPC0gNTAwICAjIHBvZGUgYXVtZW50YXIgZGVwb2lzIHBhcmEgMTAwMCwgbWFzIHRlc3RlIGNvbSA1MDAgcHJpbWVpcm8NCg0KDQojIC0tLSAxLiBDb3ZhcmnDom5jaWFzIGUgc29ydGVpb3MgZG9zIGNvZWZpY2llbnRlcyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpWcDEgPC0gdmNvdihtMV9nYW0pDQpWcDIgPC0gdmNvdihtMl9oaWRybykNCmJldGFfZHJhd3NfMSA8LSBNQVNTOjptdnJub3JtKG4gPSBuc2ltLCBtdSA9IGNvZWYobTFfZ2FtKSwgU2lnbWEgPSBWcDEpDQpiZXRhX2RyYXdzXzIgPC0gTUFTUzo6bXZybm9ybShuID0gbnNpbSwgbXUgPSBjb2VmKG0yX2hpZHJvKSwgU2lnbWEgPSBWcDIpDQoNCiMgLS0tIDIuIE1hdHJpemVzIGRvIG1vZGVsbyAxIChFQVIgfiBjbGltYSkgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KWF9vYnNfZWFyIDwtIHByZWRpY3QobTFfZ2FtLCBuZXdkYXRhID0gbmRfb2JzLCB0eXBlID0gImxwbWF0cml4IikNClhfY2ZfZWFyICA8LSBwcmVkaWN0KG0xX2dhbSwgbmV3ZGF0YSA9IG5kX2NmLCAgdHlwZSA9ICJscG1hdHJpeCIpDQoNCiMgLS0tIDMuIFByb3BhZ2HDp8OjbyBNb250ZSBDYXJsbyBlbmNhZGVhZGEgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCmRlbHRhX0dfam9pbnQgPC0gbWF0cml4KE5BX3JlYWxfLCBucm93ID0gbnJvdyhuZF9vYnMpLCBuY29sID0gbnNpbSkNCg0KZm9yIChzIGluIHNlcV9sZW4obnNpbSkpIHsNCiAgIyAxLiBFQVIgZmFjdHVhbCBlIGNvbnRyYWZhY3R1YWwgc2ltdWxhZG9zDQogIGVhcl9mIDwtIGFzLm51bWVyaWMoWF9vYnNfZWFyICUqJSBiZXRhX2RyYXdzXzFbcywgXSkNCiAgZWFyX2MgPC0gYXMubnVtZXJpYyhYX2NmX2VhciAgJSolIGJldGFfZHJhd3NfMVtzLCBdKQ0KICANCiAgIyAyLiBBdHVhbGl6YXIgaW5wdXRzIGRvIG1vZGVsbyBkZSBnZXJhw6fDo28NCiAgbmRfZiA8LSBuZF9vYnMgJT4lDQogICAgbXV0YXRlKGVhcl9yZXNlcnZhdG9yaW9fc3Vic2lzdGVtYV9wcm9wcmlvX213bWVzID0gZWFyX2YpDQogIG5kX2MgPC0gbmRfb2JzICU+JQ0KICAgIG11dGF0ZShlYXJfcmVzZXJ2YXRvcmlvX3N1YnNpc3RlbWFfcHJvcHJpb19td21lcyA9IGVhcl9jKQ0KICANCiAgIyAzLiBQcmVkacOnw7VlcyBjb21wbGV0YXMgZG8gbW9kZWxvIGRlIGdlcmHDp8OjbyAobsOjbyBsaW5lYXIpDQogIGdfZiA8LSBwcmVkaWN0KG0yX2hpZHJvLCBuZXdkYXRhID0gbmRfZiwgdHlwZSA9ICJyZXNwb25zZSIpDQogIGdfYyA8LSBwcmVkaWN0KG0yX2hpZHJvLCBuZXdkYXRhID0gbmRfYywgdHlwZSA9ICJyZXNwb25zZSIpDQogIA0KICAjIDQuIFBlbmFsaWRhZGUgcHJvcGFnYWRhDQogIGRlbHRhX0dfam9pbnRbLCBzXSA8LSBnX2YgLSBnX2MNCn0NCg0KDQp3cml0ZV9yZHMoZGVsdGFfR19qb2ludCwgImRhdGEvZGVsdGFfR19qb2ludC5yZHMiKQ0KDQoNCiMgLS0tIDQuIEFncmVnYXIgcG9yIHN1YnNpc3RlbWEgZSBhbm8gLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KbmRfb2JzJFllYXINCmR0IDwtIG5kX29icyAlPiUgc2VsZWN0KFllYXIsIG5vbV9zdWJzaXN0ZW1hLngpDQpkdCRZZWFyPC1uZF9vYnMkWWVhcg0KDQoNCmxpYnJhcnkoZGF0YS50YWJsZSkNCmR0IDwtIGFzLmRhdGEudGFibGUoZHQpDQpncm91cHMgPC0gdW5pcXVlKGR0WywgLihZZWFyLCBub21fc3Vic2lzdGVtYS54KV0pDQoNCmFnZ19qb2ludCA8LSBsYXBwbHkoc2VxX2xlbihucm93KGdyb3VwcykpLCBmdW5jdGlvbihnKXsNCiAgaWR4IDwtIHdoaWNoKGR0JFllYXIgPT0gZ3JvdXBzJFllYXJbZ10gJiBkdCRub21fc3Vic2lzdGVtYS54ID09IGdyb3VwcyRub21fc3Vic2lzdGVtYS54W2ddKQ0KICBjb2xTdW1zKGRlbHRhX0dfam9pbnRbaWR4LCAsIGRyb3AgPSBGQUxTRV0sIG5hLnJtID0gVFJVRSkNCn0pDQphZ2dfam9pbnQgPC0gZG8uY2FsbChyYmluZCwgYWdnX2pvaW50KQ0KY29sbmFtZXMoYWdnX2pvaW50KSA8LSBwYXN0ZTAoInNpbV8iLCAxOm5zaW0pDQphZ2dfZGYgPC0gY2JpbmQoZ3JvdXBzLCBhZ2dfam9pbnQpDQojIC0tLSA1LiBFc3RhdMOtc3RpY2FzIHJlc3VtbyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQptMl9qb2ludF9zdW1tYXJ5IDwtIGFnZ19kZiAlPiUNCiAgdGlkeXI6OnBpdm90X2xvbmdlcihjb2xzID0gc3RhcnRzX3dpdGgoInNpbV8iKSwgdmFsdWVzX3RvID0gImRlbHRhX0ciKSAlPiUNCiAgZ3JvdXBfYnkoWWVhciwgbm9tX3N1YnNpc3RlbWEueCkgJT4lDQogIHN1bW1hcmlzZSgNCiAgICBtZWFuID0gbWVhbihkZWx0YV9HLCBuYS5ybSA9IFRSVUUpLA0KICAgIGx3ciAgPSBxdWFudGlsZShkZWx0YV9HLCAwLjAyNSwgbmEucm0gPSBUUlVFKSwNCiAgICB1cHIgID0gcXVhbnRpbGUoZGVsdGFfRywgMC45NzUsIG5hLnJtID0gVFJVRSksDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApDQoNCmBgYA0KDQoNCmBgYHtyIG0yLWpvaW50LXBsb3QsIGZpZy5oZWlnaHQ9NiwgZmlnLndpZHRoPTEyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbTJfam9pbnRfc3VtbWFyeSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gWWVhciwgeSA9IG1lYW4pKSArDQogIGdlb21fcmliYm9uKGFlcyh5bWluID0gbHdyLCB5bWF4ID0gdXByKSwgZmlsbCA9ICJmaXJlYnJpY2siLCBhbHBoYSA9IDAuMykgKw0KICBnZW9tX2xpbmUoY29sb3IgPSAiYmxhY2siKSArDQogIGZhY2V0X3dyYXAofm5vbV9zdWJzaXN0ZW1hLngsIHNjYWxlcyA9ICJmcmVlX3kiKSArDQogIGxhYnModGl0bGUgPSAiSm9pbnQgcHJvcGFnYXRlZCBjbGltYXRlIHBlbmFsdHkgb24gaHlkcm9wb3dlciBnZW5lcmF0aW9uICjOlEdfaGlkcm8pIiwNCiAgICAgICBzdWJ0aXRsZSA9ICJVbmNlcnRhaW50eSBmdWxseSBwcm9wYWdhdGVkIGZyb20gY2xpbWF0ZSDihpIgc3RvcmFnZSDihpIgZ2VuZXJhdGlvbiIsDQogICAgICAgeSA9ICLOlEdfaGlkcm8gKE1Xwrdtb250aCkiLCB4ID0gIlllYXIiKSArDQogIHRoZW1lX21pbmltYWwoKQ0KYGBgDQoNCg0KYGBge3IgbTItam8gZ2lnaW50LXBsb3QsIGZpZy5oZWlnaHQ9NiwgZmlnLndpZHRoPTEyLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbTJfam9pbnRfc3VtbWFyeSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gWWVhciwgeSA9IG1lYW4vMTAwMCkpICsNCiAgZ2VvbV9yaWJib24oYWVzKHltaW4gPSBsd3IvMTAwMCwgeW1heCA9IHVwci8xMDAwKSwgZmlsbCA9ICJzdGVlbGJsdWUiLCBhbHBoYSA9IDEpICsNCiAgICBnZW9tX3JpYmJvbihhZXMoeW1pbiA9IDAsIHltYXggPSB1cHIvMTAwMCksIGZpbGwgPSAiZmlyZWJyaWNrIiwgYWxwaGEgPSAwLjEpICsNCg0KICBnZW9tX2xpbmUoY29sb3IgPSAiYmxhY2siKSArDQogIGZhY2V0X3dyYXAofm5vbV9zdWJzaXN0ZW1hLngsIHNjYWxlcyA9ICJmcmVlX3kiKSArDQogIGxhYnModGl0bGUgPSAiSm9pbnQgcHJvcGFnYXRlZCBjbGltYXRlIHBlbmFsdHkgb24gaHlkcm9wb3dlciBnZW5lcmF0aW9uICjOlEdfaGlkcm8pIiwNCiAgICAgICBzdWJ0aXRsZSA9ICJVbmNlcnRhaW50eSBmdWxseSBwcm9wYWdhdGVkIGZyb20gY2xpbWF0ZSDihpIgc3RvcmFnZSDihpIgZ2VuZXJhdGlvbiIsDQogICAgICAgeSA9ICLOlEdfaGlkcm8gKEdXwrdtb250aCkiLCB4ID0gIlllYXIiKSArDQogIHRoZW1lX21pbmltYWwoKQ0KYGBgDQoNCkEgRmlndXJhIGFwcmVzZW50YSBhICoqcGVuYWxpZGFkZSBjbGltw6F0aWNhIHNvYnJlIGEgZ2VyYcOnw6NvIGhpZHJlbMOpdHJpY2EgKM6UR1xfaGlkcm8pKiogZXN0aW1hZGEgY29tICoqcHJvcGFnYcOnw6NvIGNvbmp1bnRhIGRlIGluY2VydGV6YSoqIGFvIGxvbmdvIGRlIHRvZGEgYSBjYWRlaWEgY2xpbWF0by1oaWRyb2zDs2dpY2EuIERpZmVyZW50ZW1lbnRlIGRhcyBhYm9yZGFnZW5zIHF1ZSB0cmF0YW0gb3MgbW9kZWxvcyBkZSBmb3JtYSBpbmRlcGVuZGVudGUsIGVzdGEgc2ltdWxhw6fDo28gaW5jb3Jwb3JhIHNpbXVsdGFuZWFtZW50ZSBhIGluY2VydGV6YSBkb3MgY29lZmljaWVudGVzIGRvIG1vZGVsbyBjbGltw6F0aWNvIChFQVIgfiBjbGltYSkgZSBkbyBtb2RlbG8gaGlkcmVsw6l0cmljbyAoZ2VyYcOnw6NvIH4gRUFSKSwgZ2VyYW5kbyB1bWEgZGlzdHJpYnVpw6fDo28gY29uanVudGEgZGUgcmVzdWx0YWRvcy4gQ2FkYSB0cmFqZXTDs3JpYSBNb250ZSBDYXJsbyByZXByZXNlbnRhIHVtYSBjb21iaW5hw6fDo28gcGxhdXPDrXZlbCBkZSBwYXLDom1ldHJvcyBlIGNvbmRpw6fDtWVzIGNsaW3DoXRpY2FzLCBwZXJtaXRpbmRvIGNhcHR1cmFyIGEgdmFyaWFiaWxpZGFkZSBlc3RydXR1cmFsIGUgY2xpbcOhdGljYSBkbyBzaXN0ZW1hLg0KDQpPcyByZXN1bHRhZG9zIG1vc3RyYW0gcXVlIGEgaW5jZXJ0ZXphIHByb3BhZ2FkYSBhbXBsaWEgb3MgaW50ZXJ2YWxvcyBkZSBjb25maWFuw6dhIGRhcyBlc3RpbWF0aXZhcyBhbnVhaXMgZGUgzpRHXF9oaWRybywgcHJpbmNpcGFsbWVudGUgYXDDs3MgMjAxMCwgcXVhbmRvIGEgdmFyaWFiaWxpZGFkZSBjbGltw6F0aWNhIGUgb3BlcmFjaW9uYWwgYXVtZW50YSBzaWduaWZpY2F0aXZhbWVudGUuIE8gKipzdWJzaXN0ZW1hIFN1ZGVzdGUqKiBjb25jZW50cmEgYXMgbWFpb3JlcyBwZXJkYXMgbcOpZGlhcyAoYXTDqSDigJM0LDUgw5cgMTDigbYgTVfCt23DqnMpIGUgYSBtYWlvciBkaXNwZXJzw6NvIGludGVyYW51YWwsIHJlZmxldGluZG8gdGFudG8gYSBtYWduaXR1ZGUgZGUgc3VhIGNhcGFjaWRhZGUgZGUgYXJtYXplbmFtZW50byBxdWFudG8gc3VhIGV4cG9zacOnw6NvIGEgc2VjYXMgcHJvbG9uZ2FkYXMuIE8gKipTdWwqKiBhcHJlc2VudGEgcGVuYWxpZGFkZXMgbWVub3JlcywgbWFzIGNvbSBhbXBsaXR1ZGVzIGRlIGluY2VydGV6YSBlbGV2YWRhcywgY29lcmVudGVzIGNvbSBzdWEgaW5zdGFiaWxpZGFkZSBoaWRyb2zDs2dpY2EuICoqTm9yZGVzdGUqKiBlICoqTm9ydGUqKiBtb3N0cmFtIG1lbm9yZXMgZMOpZmljaXRzIGFic29sdXRvcywgbWFzIGNvbSB0ZW5kw6puY2lhIG5lZ2F0aXZhIGNvbnTDrW51YS4gIA0KRXNzZXMgcmVzdWx0YWRvcyByZXByZXNlbnRhbSBhIGVzdGltYXRpdmEgbWFpcyBjb21wbGV0YSBkZSAqKmltcGFjdG8gY2xpbcOhdGljbyBwcm9wYWdhZG8gbm8gc2lzdGVtYSBlbMOpdHJpY28qKiwgcG9pcyBpbnRlZ3JhbSBpbmNlcnRlemFzIGNsaW3DoXRpY2FzLCBoaWRyb2zDs2dpY2FzIGUgb3BlcmFjaW9uYWlzIGRlbnRybyBkZSB1bWEgbWVzbWEgZXN0cnV0dXJhIHByb2JhYmlsw61zdGljYS4NCg0KDQpgYGB7cn0NCm0yX3N1bW1hcnkgPC0gbTJfam9pbnRfc3VtbWFyeSAlPiUNCiAgZ3JvdXBfYnkobm9tX3N1YnNpc3RlbWEueCkgJT4lDQogIHN1bW1hcmlzZSgNCiAgICBtZWFuX3BlbmFsdHkgPSBtZWFuKG1lYW4sIG5hLnJtID0gVFJVRSksDQogICAgbHdyXzk1ID0gbWVhbihsd3IsIG5hLnJtID0gVFJVRSksDQogICAgdXByXzk1ID0gbWVhbih1cHIsIG5hLnJtID0gVFJVRSksDQogICAgc2RfcGVuYWx0eSA9IHNkKG1lYW4sIG5hLnJtID0gVFJVRSksDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApDQoNCiMgQ29udmVydGVuZG8gcGFyYSBHV2gvYW5vIHBhcmEgaW50ZXJwcmV0YcOnw6NvDQptMl9zdW1tYXJ5IDwtIG0yX3N1bW1hcnkgJT4lDQogIG11dGF0ZSgNCiAgICBtZWFuX0dXaCA9IG1lYW5fcGVuYWx0eSAvIDEwMDAsDQogICAgbHdyX0dXaCAgPSBsd3JfOTUgLyAxMDAwLA0KICAgIHVwcl9HV2ggID0gdXByXzk1IC8gMTAwMCwNCiAgKSAjJT4lIHNlbGVjdCgtbWVhbl9wZW5hbHR5LCAtbHdyXzk1LCAtdXByXzk1KQ0KDQojIFRhYmVsYSBmb3JtYXRhZGEgKHB1YmxpY2HDp8OjbykNCmxpYnJhcnkoZ3QpDQptMl9zdW1tYXJ5WyxjKCJub21fc3Vic2lzdGVtYS54IiwibWVhbl9HV2giLCJsd3JfR1doIiwgInVwcl9HV2giKV0gJT4lIGphbml0b3I6OmFkb3JuX3RvdGFscygpICU+JSANCiAgZ3QoKSAlPiUNCiAgZm10X251bWJlcihjb2x1bW5zID0gMjo0LCBkZWNpbWFscyA9IDEpICU+JQ0KICBjb2xzX2xhYmVsKA0KICAgIG5vbV9zdWJzaXN0ZW1hLnggPSAiU3Vic3lzdGVtIiwNCiAgICBtZWFuX0dXaCA9ICJNZWFuIM6UR19oaWRybyAoR1doKSIsDQogICAgbHdyX0dXaCAgPSAiTG93ZXIgOTUlIiwNCiAgICB1cHJfR1doICA9ICJVcHBlciA5NSUiLA0KICApICU+JQ0KICB0YWJfaGVhZGVyKA0KICAgIHRpdGxlID0gbWQoIioqQWdncmVnYXRlIGNsaW1hdGUgcGVuYWx0eSBvbiBIaWRyaWMgR2VuZXJhdGlvbiAoMjAwMeKAkzIwMTgpKioiKSwNCiAgICBzdWJ0aXRsZSA9ICJTaW11bGF0ZWQgbWVhbiBhbmQgOTUlIGNvbmZpZGVuY2UgaW50ZXJ2YWxzIHBlciBzdWJzeXN0ZW0iDQogICkNCmBgYA0KDQoNCiMgMy4zIE1vZGVsbyAzIOKAlCBHZXJhw6fDo28gVGVybWljYSAgY29tbyBGdW7Dp8OjbyBkYSBHZXJhw6fDo28gSGlkcmVsw6l0cmljYQ0KDQpgYGB7cn0NCmdlciAlPiVtdXRhdGUodXNpbmFfZm9udGU9cGFzdGUwKCJnZXJfIixub21fdGlwb3VzaW5hKSkgJT4lIA0KICBmaWx0ZXIoIW5vbV9zdWJzaXN0ZW1hPT0iUEFSQUdVQUkiKSAlPiUgIywiXyIsbm9tX3RpcG91c2luYSkpICU+JSANCiAgbXV0YXRlKHVzaW5hX2ZvbnRlPWNhc2Vfd2hlbih1c2luYV9mb250ZT09Imdlcl9CT01CRUFNRU5UTyJ+Imdlcl9ISURST0VMw4lUUklDQSIsDQogICAgICAgICAgICAgICAgICAgVFJVRX51c2luYV9mb250ZSkpICU+JSAjLCJfIixub21fdGlwb3VzaW5hKSkgJT4lIA0KDQogIGdyb3VwX2J5KGRhdGUsbm9tX3N1YnNpc3RlbWEsdXNpbmFfZm9udGUsdmFsX2dlcmFjYW9fZGF5X3N1YnNpc3RlbWEpICU+JSANCiAgc3VtbWFyaXNlKGdlcj1zdW0odmFsX2dlcmFjYW8sbmEucm0gPSBUKSkgJT4lIHVuZ3JvdXAoKSAlPiUgDQogIHNwcmVhZCh1c2luYV9mb250ZSxnZXIsZmlsbCA9IDApICU+JSBqYW5pdG9yOjpjbGVhbl9uYW1lcygpICU+JSANCiAgbXV0YXRlKCktPmdlcmFfZW5lcmdfZGF5DQpnZXJhX2VuZXJnX2RheSRkb3kgICAgPC0gbHVicmlkYXRlOjp5ZGF5KGdlcmFfZW5lcmdfZGF5JGRhdGUpDQpnZXJhX2VuZXJnX2RheSRkb3cgICAgPC0gbHVicmlkYXRlOjp3ZGF5KGdlcmFfZW5lcmdfZGF5JGRhdGUsIGxhYmVsPVRSVUUsIGFiYnI9VFJVRSkNCmdlcmFfZW5lcmdfZGF5JG1vbnRoICA8LSBsdWJyaWRhdGU6Om1vbnRoKGdlcmFfZW5lcmdfZGF5JGRhdGUpDQpnZXJhX2VuZXJnX2RheSR0cmVuZCAgPC0gbHVicmlkYXRlOjp5ZWFyKGdlcmFfZW5lcmdfZGF5JGRhdGUpDQpgYGANCg0KTyBNb2RlbG8gMyBlc3RpbWEgYSByZXNwb3N0YSBkYSBnZXJhw6fDo28gdMOpcm1pY2Egw6BzIHZhcmlhw6fDtWVzIG5hIGdlcmHDp8OjbyBoaWRyZWzDqXRyaWNhLCBpbmNvcnBvcmFuZG8gYSBjb21wZXRpw6fDo28gY29tIG91dHJhcyBmb250ZXMgZSBvIGNpY2xvIHNhem9uYWwgZGUgZGVtYW5kYS4gTyBtb2RlbG8gYWRpdGl2byBnZW5lcmFsaXphZG8gKEdBTSkgZm9pIGFqdXN0YWRvIHBhcmEgbyBwZXLDrW9kbyAyMDAw4oCTMjAxOSwgY29tIGVzdHJ1dHVyYSBzZW1pcGFyYW3DqXRyaWNhIHF1ZSBwZXJtaXRlIGNhcHR1cmFyIHJlbGHDp8O1ZXMgbsOjbyBsaW5lYXJlcyBlbnRyZSBhcyBmb250ZXMgZGUgZ2VyYcOnw6NvIGUgc2V1cyBkZXRlcm1pbmFudGVzIHRlbXBvcmFpcy4NCk9zIHJlc3VsdGFkb3MgaW5kaWNhbSB1bWEgcmVsYcOnw6NvIG5lZ2F0aXZhIGUgZXN0YXRpc3RpY2FtZW50ZSBzaWduaWZpY2F0aXZhIGVudHJlIGdlcmHDp8OjbyBoaWRyZWzDqXRyaWNhIGUgdMOpcm1pY2EsIGV2aWRlbmNpYW5kbyBvIHBhcGVsIGRhIHTDqXJtaWNhIGNvbW8gbWVjYW5pc21vIGRlIGNvbXBlbnNhw6fDo28gZHVyYW50ZSBwZXLDrW9kb3MgZGUgZXNjYXNzZXogaMOtZHJpY2EuIE8gZWZlaXRvIG1hcmdpbmFsIGRlIGdlcl9oaWRyb2VsZXRyaWNhIMOpIGZvcnRlbWVudGUgbsOjbyBsaW5lYXIsIGNvbSByZXNwb3N0YXMgbWFpcyBpbnRlbnNhcyBlbSBmYWl4YXMgaW50ZXJtZWRpw6FyaWFzIGRlIHJlZHXDp8OjbywgbyBxdWUgc3VnZXJlIHF1ZSBvIGRlc3BhY2hvIHTDqXJtaWNvIGF0aW5nZSBsaW1pdGVzIGVzdHJ1dHVyYWlzIGRlIGV4cGFuc8OjbyBlbSBhbm9zIGRlIHNlY2Egc2V2ZXJhLg0KDQpgYGB7cn0NCmxpYnJhcnkobWdjdikNCmxpYnJhcnkoZHBseXIpDQoNCiMgLS0tIFByZXBhcmHDp8OjbyBkb3MgZGFkb3MgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpnZXJhX2VuZXJnX2RheSA8LSBnZXJhX2VuZXJnX2RheSAlPiUNCiAgbXV0YXRlKA0KICAgIERlbWFuZGEgPSBnZXJfZW9saWVsZXRyaWNhICsgZ2VyX2ZvdG92b2x0YWljYSArIGdlcl9oaWRyb2VsZXRyaWNhICsgZ2VyX3Rlcm1pY2EgKyBnZXJfbnVjbGVhciwNCiAgICBtb250aCA9IGFzLm51bWVyaWMoZm9ybWF0KGRhdGUsICIlbSIpKSwNCiAgICB0cmVuZCA9IGFzLm51bWVyaWMoZGF0ZSAtIG1pbihkYXRlKSkgLyAzMCAgIyB0ZW5kw6puY2lhIGxpbmVhciBlbSBtZXNlcw0KICApDQoNCiMgLS0tIE1vZGVsbyBHQU0gMzogR2VyYcOnw6NvIFTDqXJtaWNhIGNvbW8gZnVuw6fDo28gZGEgSGlkcm8gKyBvdXRyYXMgZm9udGVzIC0tLS0tDQptM19nYW1fdGVybWljYSA8LSBiYW0oDQogIGdlcl90ZXJtaWNhIH4gDQogICAgcyhnZXJfaGlkcm9lbGV0cmljYSwgayA9IDQpICsgICAgIyBwcmluY2lwYWwgZWZlaXRvIHN1YnN0aXR1dGl2bw0KICAgIHMoZ2VyX2VvbGllbGV0cmljYSwgayA9IDQpICsNCiAgICBzKGdlcl9mb3Rvdm9sdGFpY2EsIGsgPSA0KSArDQogICAgcyhnZXJfbnVjbGVhciwgayA9IDMpICsNCiAgICBzKHRyZW5kLCBrID0gMykgKw0KICAgIHMobW9udGgsIGJzID0gImNjIiwgayA9IDQpICsgICAgICMgcGFkcsOjbyBzYXpvbmFsDQogICAgcyhub21fc3Vic2lzdGVtYSwgYnMgPSAicmUiKSwgICMgZWZlaXRvIGFsZWF0w7NyaW8gcG9yIHN1YnNpc3RlbWENCiAgZGF0YSA9IGdlcmFfZW5lcmdfZGF5LA0KICBtZXRob2QgPSAiZlJFTUwiLA0KICBkaXNjcmV0ZSA9IFRSVUUsDQogIGZhbWlseSA9IGdhdXNzaWFuKCksDQogIG5hLmFjdGlvbiA9IG5hLmV4Y2x1ZGUNCikNCg0Kc3VtbWFyeShtM19nYW1fdGVybWljYSkNCg0KYGBgDQoNCmBgYHtyfQ0Kc3VtbWFyeShtM19nYW1fdGVybWljYSkNCmd0c3VtbWFyeTo6dGJsX3JlZ3Jlc3Npb24obTNfZ2FtX3Rlcm1pY2EpDQpzdW1tYXJ5KG0zX2dhbV90ZXJtaWNhKQ0KZ2FtLmNoZWNrKG0zX2dhbV90ZXJtaWNhKSAgICAgICAgICAjIHJlc8OtZHVvcywgUVEsIGstaW5kZXgNCmNvbmN1cnZpdHkobTNfZ2FtX3Rlcm1pY2EsIGZ1bGw9VFJVRSkNCnBsb3QobTNfZ2FtX3Rlcm1pY2EsIHBhZ2VzPTQsIHNjaGVtZT0xLCBzaGFkZT1UUlVFLCBzZT1UUlVFKQ0KYGBgDQoNCg0KJPCdkZTwnZGS8J2RnyDwnZGh8J2RkvCdkZ/wnZGa8J2RlvCdkZDwnZGOX/CdkaE98J2Rk18xKPCdkZTwnZGSX2jwnZGW8J2RkfCdkZ/wnZGcX/CdkaEpK/CdkZNfMijwnZGU8J2RkvCdkZ9f8J2RkvCdkZzwnZGZ8J2RlvCdkZDwnZGOX/CdkaEpK/CdkZNfMyjwnZGU8J2RkvCdkZ9f8J2RoPCdkZzwnZGZ8J2RjvCdkZ9f8J2RoSkrX/CdkZNfNCjwnZGU8J2RkvCdkZ9f8J2Rm/CdkaLwnZGQ8J2RmfCdkZLwnZGO8J2Rn/CdkaEpK/CdkZNfNSjwnZGh8J2Rn/CdkZLwnZGb8J2RkV/wnZGhKSvwnZGTXzYo8J2RmvCdkZzwnZGb8J2RoeKEjl/wnZGhKSvwnZGi8J2RoPCdkaLwnZGP8J2RoPCdkZbwnZGg8J2RofCdkZLwnZGa8J2RjivwnZyAJA0KKlF1YWxpZGFkZSBkbyBhanVzdGUqDQoNCk8gbW9kZWxvIGFwcmVzZW50YSBSwrIgYWp1c3RhZG8gZGUgMCw2NCBlIGRldmlhbmNlIGV4cGxpY2FkYSBkZSA2NCwxJSwgaW5kaWNhbmRvIGJvYSBjYXBhY2lkYWRlIHByZWRpdGl2YSBkaWFudGUgZGEgYWx0YSB2YXJpYWJpbGlkYWRlIGludGVyZGnDoXJpYS4gVG9kb3Mgb3MgZWZlaXRvcyBzdWF2ZXMgc8OjbyBhbHRhbWVudGUgc2lnbmlmaWNhdGl2b3MgKHAgPCAwLjAwMSksIGNvbSBleGNlw6fDo28gZG8gaW50ZXJjZXB0by4gTyBoaXN0b2dyYW1hIGUgbyBRUS1wbG90IGRvcyByZXPDrWR1b3MgbW9zdHJhbSBkaXN0cmlidWnDp8OjbyBhcHJveGltYWRhbWVudGUgbm9ybWFsLCBjb20gbGV2ZSBhc3NpbWV0cmlhIG5hcyBjYXVkYXMg4oCUIHJlZmxleG8gZGUgcGljb3MgZGUgZGVzcGFjaG8gdMOpcm1pY28gZW0gcGVyw61vZG9zIGRlIHNlY2Egc2V2ZXJhLg0KDQpPIGdyw6FmaWNvIOKAnFJlc8OtZHVvcyB2cy4gVmFsb3JlcyBBanVzdGFkb3PigJ0gcmV2ZWxhIGRpc3BlcnPDo28gY3Jlc2NlbnRlIGNvbSBvIGF1bWVudG8gZGEgZ2VyYcOnw6NvIHByZXZpc3RhLCBzdWdlcmluZG8gaGV0ZXJvY2VkYXN0aWNpZGFkZSBtb2RlcmFkYSBhc3NvY2lhZGEgYSByZWdpbWVzIGRpc3RpbnRvcyBkZSBvcGVyYcOnw6NvIChiYXNlIMOXIHBpY28pLiBBaW5kYSBhc3NpbSwgb3MgcmVzw61kdW9zIHPDo28gY2VudHJhZG9zIGUgc2VtIHBhZHLDo28gc2lzdGVtw6F0aWNvLCBjb25maXJtYW5kbyBhIGFkZXF1YcOnw6NvIGdlcmFsIGRhIGVzcGVjaWZpY2HDp8Ojby4NCg0KKkVmZWl0b3MgcGFyY2lhaXMqDQoNCk9zIGVmZWl0b3MgbWFyZ2luYWlzIGVzdGltYWRvcyBleGliZW0gY29tcG9ydGFtZW50b3MgY29lcmVudGVzIGNvbSBhIGzDs2dpY2EgZsOtc2ljYSBkbyBzaXN0ZW1hOg0KDQotIHMoZ2VyX2hpZHJvZWxldHJpY2EpIOKGkiBmb3J0ZSByZWxhw6fDo28gaW52ZXJzYSBlIG7Do28gbGluZWFyOiByZWR1w6fDtWVzIG5hIGdlcmHDp8OjbyBow61kcmljYSBhdW1lbnRhbSBhIGdlcmHDp8OjbyB0w6lybWljYSwgZXNwZWNpYWxtZW50ZSBlbSBmYWl4YXMgaW50ZXJtZWRpw6FyaWFzIGRlIG9wZXJhw6fDo28gKHN1YnN0aXR1acOnw6NvIGVzdHJ1dHVyYWwpLiBFbSBuw612ZWlzIGV4dHJlbW9zLCBvIGVmZWl0byBzZSBlc3RhYmlsaXphLCBpbmRpY2FuZG8gbGltaXRlIGRlIGRlc3BhY2hvIHTDqXJtaWNvLg0KDQotcyhnZXJfZW9saWVsZXRyaWNhKSBlIHMoZ2VyX2ZvdG92b2x0YWljYSkg4oaSIGFtYmFzIGFwcmVzZW50YW0gZWZlaXRvcyBzdWJzdGl0dXRpdm9zIG5lZ2F0aXZvcywgZXZpZGVuY2lhbmRvIG8gcGFwZWwgZGFzIHJlbm92w6F2ZWlzIG5hIG1pdGlnYcOnw6NvIGRvIHVzbyB0w6lybWljby4NCg0KLSBzKGdlcl9udWNsZWFyKSDihpIgcmVsYcOnw6NvIGxldmVtZW50ZSBjw7RuY2F2YSwgZXN0w6F2ZWwsIHJlZmxldGluZG8gZGVzcGFjaG8gcHJhdGljYW1lbnRlIGZpeG8uDQoNCi0gcyh0cmVuZCkg4oaSIHRlbmTDqm5jaWEgYXNjZW5kZW50ZSwgaW5kaWNhbmRvIGF1bWVudG8gZ3JhZHVhbCBkYSBiYXNlIHTDqXJtaWNhIG5vIGxvbmdvIHByYXpvLCBjb2VyZW50ZSBjb20gYSBleHBhbnPDo28gZGUgdGVybWVsw6l0cmljYXMgZW50cmUgMjAwNeKAkzIwMTUuDQoNCi0gcyhtb250aCkg4oaSIHBhZHLDo28gcXVhc2UgcGxhbm8sIGNvbSBmcmFjYSBzYXpvbmFsaWRhZGUgcmVzaWR1YWwgYXDDs3MgbyBjb250cm9sZSBoaWRyb2zDs2dpY28uDQoNCi0gRWZlaXRvIGFsZWF0w7NyaW8gKG5vbV9zdWJzaXN0ZW1hKSDihpIgbyBhanVzdGUgY29uZmlybWEgZGlmZXJlbsOnYXMgZXN0cnV0dXJhaXMgcmVnaW9uYWlzOiBzdWJzaXN0ZW1hcyBkbyBTdWRlc3RlIGUgU3VsIGV4aWJlbSBtYWlvciBpbnRlbnNpZGFkZSB0w6lybWljYSByZWxhdGl2YSBxdWUgTm9ydGUgZSBOb3JkZXN0ZS4NCg0KKlPDrW50ZXNlKg0KTyBtb2RlbG8gY29uZmlybWEgbyBwYXBlbCBjb250cmFjw61jbGljbyBkYSBnZXJhw6fDo28gdMOpcm1pY2Egbm8gc2lzdGVtYSBlbMOpdHJpY28gYnJhc2lsZWlybzoNCnF1YW5kbyBvIGNsaW1hIHJlZHV6IGEgZ2VyYcOnw6NvIGjDrWRyaWNhLCBhIHJlc3Bvc3RhIHTDqXJtaWNhIGNvbXBlbnNhIHBhcnRlIGRvIGTDqWZpY2l0LCBjb20gc2Vuc2liaWxpZGFkZSBuw6NvIGxpbmVhciBlIGxpbWl0ZXMgb3BlcmFjaW9uYWlzIGRlZmluaWRvcy4NCg0KQSBlc3RydXR1cmEgc3Vhdml6YWRhIGRvcyBlZmVpdG9zIHBlcm1pdGUgcXVhbnRpZmljYXIgYSBlbGFzdGljaWRhZGUgbWFyZ2luYWwgZW50cmUgZm9udGVzLCBxdWUgc2Vyw6EgdXNhZGEgbmEgcHLDs3hpbWEgZXRhcGEgcGFyYSBlc3RpbWFyIGEgcGVuYWxpZGFkZSB0w6lybWljYSBwcm9wYWdhZGEgKM6UR190ZXJtKSByZXN1bHRhbnRlIGRhIHBlbmFsaWRhZGUgaMOtZHJpY2EgKM6UR19oaWRybykgb2J0aWRhIG5vIE1vZGVsbyANCg0KDQojIyBQcmVkacOnw7VlcyBmYWN0dWFsIHZzLiBjb250cmFmYWN0dWFsIChwcm9wYWdhw6fDo28gZGUgaW5jZXJ0ZXphKQ0KDQoNCmBgYHtyfQ0KIyAtLS0gUHJlZGnDp8O1ZXMgZmFjdHVhbCBlIGNvbnRyYWZhY3R1YWwgLS0tDQpzZXQuc2VlZCgyMDI1MTAxMykNCm5zaW0gPC0gMTAwMCAgIyBuw7ptZXJvIGRlIHNpbXVsYcOnw7VlcyBjb25qdW50YXMNCg0KIyAtLS0gMS4gTWF0cml6IGRlIGNvdmFyacOibmNpYSBkZSBjYWRhIG1vZGVsbyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCiMgLS0tIENvdmFyacOibmNpYXMgZSBzb3J0ZWlvcyBkZSBjb2VmaWNpZW50ZXMgLS0tDQpWcDEgPC0gdmNvdihtMV9nYW0pICAgICAgICAgICAgICAgICAgIyBNMTogRUFSIH4gY2xpbWENClZwMiA8LSB2Y292KG0yX2hpZHJvKSAgICAgICAgICAgICAgICAjIE0yOiBHX2hpZHJvIH4gRUFSDQpWcDMgPC0gdmNvdihtM19nYW1fdGVybWljYSkgICAgICAgICAgIyBNMzogR190ZXJtIH4gR19oaWRybyArIGNvbnRyb2xlcw0KDQpiMSA8LSBNQVNTOjptdnJub3JtKG5zaW0sIGNvZWYobTFfZ2FtKSwgICAgICAgICBWcDEpDQpiMiA8LSBNQVNTOjptdnJub3JtKG5zaW0sIGNvZWYobTJfaGlkcm8pLCAgICAgICBWcDIpDQpiMyA8LSBNQVNTOjptdnJub3JtKG5zaW0sIGNvZWYobTNfZ2FtX3Rlcm1pY2EpLCBWcDMpDQojIC0tLSAyLiBNYXRyaXplcyBkZSBkZXNpZ24gZG8gbW9kZWxvIDEgKGNsaW1hIOKGkiBFQVIpIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpYMV9vYnMgPC0gcHJlZGljdChtMV9nYW0sIG5ld2RhdGEgPSBuZF9vYnMsIHR5cGUgPSAibHBtYXRyaXgiKQ0KWDFfY2YgIDwtIHByZWRpY3QobTFfZ2FtLCBuZXdkYXRhID0gbmRfY2YsICB0eXBlID0gImxwbWF0cml4IikNCmRlbHRhX0d0ZXJtX21hdCAgPC0gbWF0cml4KE5BX3JlYWxfLCBucm93ID0gbnJvdyhnZXJhX2VuZXJnX2RheSksIG5jb2wgPSBuc2ltKQ0KDQojIFByZXBhcmEgY2hhdmVzIHBhcmEgYWdyZWdhw6fDo28gTTLihpJNMw0Ka2V5c19tMiA8LSByZXNlcnYgJT4lIHNlbGVjdChkYXRlLCBub21fc3Vic2lzdGVtYS54KSAlPiUgYXMuZGF0YS5mcmFtZSgpDQprZXlzX20zIDwtIGdlcmFfZW5lcmdfZGF5ICU+JSBzZWxlY3QoZGF0ZSwgbm9tX3N1YnNpc3RlbWEpICU+JSBhcy5kYXRhLmZyYW1lKCkNCg0KDQpgYGANCg0KDQpgYGB7cn0NCiMgLS0tIDUuIExvb3AgcHJpbmNpcGFsIGRlIHByb3BhZ2HDp8OjbyBNb250ZSBDYXJsbyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KZm9yIChzIGluIHNlcV9sZW4obnNpbSkpIHsNCiAgIyA9PT09PSAoMSkgRUFSIGZhY3R1YWwgZSBjb250cmFmYWN0dWFsIChNMSkgbm8gbsOtdmVsIGRlIHJlc2VydmF0w7NyaW/Dl2RpYQ0KICBlYXJfZiA8LSBhcy5udW1lcmljKFgxX29icyAlKiUgYjFbcywgXSkNCiAgZWFyX2MgPC0gYXMubnVtZXJpYyhYMV9jZiAgJSolIGIxW3MsIF0pDQoNCiAgIyA9PT09PSAoMikgUHJlZGnDp8OjbyBkZSBHX2hpZHJvIGZhY3R1YWwgZSBjZiAoTTIpIG5vIG7DrXZlbCBkZSByZXNlcnZhdMOzcmlvw5dkaWENCiAgbmQyX2YgPC0gcmVzZXJ2ICU+JSBtdXRhdGUoZWFyX3Jlc2VydmF0b3Jpb19zdWJzaXN0ZW1hX3Byb3ByaW9fbXdtZXMgPSBlYXJfZikNCiAgbmQyX2MgPC0gcmVzZXJ2ICU+JSBtdXRhdGUoZWFyX3Jlc2VydmF0b3Jpb19zdWJzaXN0ZW1hX3Byb3ByaW9fbXdtZXMgPSBlYXJfYykNCg0KICBYMl9mIDwtIHByZWRpY3QobTJfaGlkcm8sIG5ld2RhdGEgPSBuZDJfZiwgdHlwZSA9ICJscG1hdHJpeCIpDQogIFgyX2MgPC0gcHJlZGljdChtMl9oaWRybywgbmV3ZGF0YSA9IG5kMl9jLCB0eXBlID0gImxwbWF0cml4IikNCg0KICBnX2hfZl9yZXMgPC0gYXMubnVtZXJpYyhYMl9mICUqJSBiMltzLCBdKSAgIyBwb3IgcmVzZXJ2YXTDs3Jpb8OXZGlhDQogIGdfaF9jX3JlcyA8LSBhcy5udW1lcmljKFgyX2MgJSolIGIyW3MsIF0pDQoNCiAgIyA9PT09PSAoMykgQWdyZWdhciBHX2hpZHJvIHBvciBzdWJzaXN0ZW1hw5dkaWEgKHBhcmEgYWxpbWVudGFyIE0zKQ0KICBkZl9oIDwtIGRhdGEuZnJhbWUoZGF0ZSA9IGtleXNfbTIkZGF0ZSwNCiAgICAgICAgICAgICAgICAgICAgIHN1YnMgPSBrZXlzX20yJG5vbV9zdWJzaXN0ZW1hLngsDQogICAgICAgICAgICAgICAgICAgICBnX2hfZiA9IGdfaF9mX3JlcywNCiAgICAgICAgICAgICAgICAgICAgIGdfaF9jID0gZ19oX2NfcmVzKQ0KDQogIGdfaF9hZ2cgPC0gZGZfaCB8Pg0KICAgIGdyb3VwX2J5KGRhdGUsIHN1YnMpIHw+DQogICAgc3VtbWFyaXNlKGdfaF9mID0gc3VtKGdfaF9mLCBuYS5ybSA9IFRSVUUpLA0KICAgICAgICAgICAgICBnX2hfYyA9IHN1bShnX2hfYywgbmEucm0gPSBUUlVFKSwgLmdyb3VwcyA9ICJkcm9wIikNCg0KICAjIM6UR19oaWRyb19jbGltYSAoc3Vic2lzdGVtYcOXZGlhKQ0KICBnX2hfYWdnIDwtIGdfaF9hZ2cgfD4NCiAgICBtdXRhdGUoZGVsdGFfZ19oaWRyb19jbGltYSA9IGdfaF9mIC0gZ19oX2MpDQoNCiAgIyA9PT09PSAoNCkgQ29uc3RydWlyIGlucHV0IGRvIE0zDQogICMgZmFjdHVhbDogdXNhIGEgaGlkcmVsw6l0cmljYSBvYnNlcnZhZGEgKGdlcmFfZW5lcmdfZGF5JGdlcl9oaWRyb2VsZXRyaWNhKQ0KICAjIGNvbnRyYWZhY3R1YWw6IG9icyDiiJIgzpRHX2hpZHJvX2NsaW1hDQogIG5kMyA8LSBnZXJhX2VuZXJnX2RheSB8Pg0KICAgIGxlZnRfam9pbihnX2hfYWdnLA0KICAgICAgICAgICAgICBieSA9IGMoImRhdGUiID0gImRhdGUiLCAibm9tX3N1YnNpc3RlbWEiID0gInN1YnMiKSkNCg0KICAjIHNlIGZhbHRhciBzdWJzaXN0ZW1hIGVtIGFsZ3VtIGRpYSwgdHJhdGEgTkEgY29tbyAwIGRlbHRhDQogIG5kMyRkZWx0YV9nX2hpZHJvX2NsaW1hW2lzLm5hKG5kMyRkZWx0YV9nX2hpZHJvX2NsaW1hKV0gPC0gMA0KDQogIGdfaF9vYnMgPC0gbmQzJGdlcl9oaWRyb2VsZXRyaWNhDQogIGdfaF9jZk0zIDwtIHBtYXgoZ19oX29icyAtIG5kMyRkZWx0YV9nX2hpZHJvX2NsaW1hLCAwKSAgIyBjbGlwcGluZyBlbSAwDQoNCiAgbmQzX2YgPC0gbmQzICU+JSBtdXRhdGUoZ2VyX2hpZHJvZWxldHJpY2EgPSBnX2hfb2JzKSAgICMgZmFjdHVhbCAob2JzZXJ2YWRvKQ0KICBuZDNfYyA8LSBuZDMgJT4lIG11dGF0ZShnZXJfaGlkcm9lbGV0cmljYSA9IGdfaF9jZk0zKSAgIyBjb250cmFmYWN0dWFsIChvYnMg4oiSIM6UY2xpbWEpDQoNCiAgIyA9PT09PSAoNSkgUHJlZGnDp8OjbyB0w6lybWljYSBmYWN0dWFsIGUgY2YgKE0zKSBubyBuw612ZWwgc3Vic2lzdGVtYcOXZGlhDQogIFgzX2YgPC0gcHJlZGljdChtM19nYW1fdGVybWljYSwgbmV3ZGF0YSA9IG5kM19mLCB0eXBlID0gImxwbWF0cml4IikNCiAgWDNfYyA8LSBwcmVkaWN0KG0zX2dhbV90ZXJtaWNhLCBuZXdkYXRhID0gbmQzX2MsIHR5cGUgPSAibHBtYXRyaXgiKQ0KDQogIGdfdF9mIDwtIGFzLm51bWVyaWMoWDNfZiAlKiUgYjNbcywgXSkNCiAgZ190X2MgPC0gYXMubnVtZXJpYyhYM19jICUqJSBiM1tzLCBdKQ0KDQogIGRlbHRhX0d0ZXJtX21hdFssIHNdIDwtIGdfdF9mIC0gZ190X2MNCn0NCg0KYGBgDQoNCmBgYHtyfQ0KIyAtLS0gNi4gQWdyZWdhw6fDo28gYW51YWwgcG9yIHN1YnNpc3RlbWEgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQojIC0tLSBBZ3JlZ2HDp8OjbyBhbnVhbCBwb3Igc3Vic2lzdGVtYSAozpRHX3Rlcm0pIC0tLQ0KZHRfdGVybSA8LSBnZXJhX2VuZXJnX2RheSAlPiUgdHJhbnNtdXRlKFllYXIgPSB5ZWFyKGRhdGUpLCBub21fc3Vic2lzdGVtYSkNCmdyb3VwcyA8LSB1bmlxdWUoZHRfdGVybSkNCg0KYWdnX3Rlcm0gPC0gbGFwcGx5KHNlcV9sZW4obnJvdyhncm91cHMpKSwgZnVuY3Rpb24oZyl7DQogIGlkeCA8LSB3aGljaChkdF90ZXJtJFllYXIgPT0gZ3JvdXBzJFllYXJbZ10gJg0KICAgICAgICAgICAgICAgZHRfdGVybSRub21fc3Vic2lzdGVtYSA9PSBncm91cHMkbm9tX3N1YnNpc3RlbWFbZ10pDQogIGNvbFN1bXMoZGVsdGFfR3Rlcm1fbWF0W2lkeCwgLCBkcm9wID0gRkFMU0VdLCBuYS5ybSA9IFRSVUUpDQp9KQ0KYWdnX3Rlcm0gPC0gZG8uY2FsbChyYmluZCwgYWdnX3Rlcm0pDQpjb2xuYW1lcyhhZ2dfdGVybSkgPC0gcGFzdGUwKCJzaW1fIiwgMTpuc2ltKQ0KbTNfdGVybV9zdW1tYXJ5IDwtIGNiaW5kKGdyb3VwcywgYXMuZGF0YS5mcmFtZShhZ2dfdGVybSkpIHw+DQogIHBpdm90X2xvbmdlcihjb2xzID0gc3RhcnRzX3dpdGgoInNpbV8iKSwgdmFsdWVzX3RvID0gImRlbHRhX0dfdGVybSIpIHw+DQogIGdyb3VwX2J5KFllYXIsIG5vbV9zdWJzaXN0ZW1hKSB8Pg0KICBzdW1tYXJpc2UobWVhbiA9IG1lYW4oZGVsdGFfR190ZXJtLCBuYS5ybSA9IFRSVUUpLA0KICAgICAgICAgICAgbHdyICA9IHF1YW50aWxlKGRlbHRhX0dfdGVybSwgMC4wMjUsIG5hLnJtID0gVFJVRSksDQogICAgICAgICAgICB1cHIgID0gcXVhbnRpbGUoZGVsdGFfR190ZXJtLCAwLjk3NSwgbmEucm0gPSBUUlVFKSwNCiAgICAgICAgICAgIC5ncm91cHMgPSAiZHJvcCIpDQoNCmBgYA0KDQoNCmBgYHtyfQ0KIyBWaXN1YWxpemHDp8OjbyBkbyDOlEdfaGlkcm8gcHJvcGFnYWRvDQpnZ3Bsb3QobTNfdGVybV9zdW1tYXJ5LCBhZXMoeCA9IFllYXIsIHkgPSBtZWFuKSkgKw0KICBnZW9tX3JpYmJvbihhZXMoeW1pbiA9IGx3ciwgeW1heCA9IHVwciksIGZpbGwgPSAic3RlZWxibHVlIiwgYWxwaGEgPSAxKSArDQogIGdlb21fcmliYm9uKGFlcyh5bWluID0gMCwgeW1heCA9IHVwciksIGZpbGwgPSAicmVkMyIsIGFscGhhID0gMC4xKSArDQoNCiAgZ2VvbV9saW5lKGNvbG9yID0gImJsYWNrIikgKw0KICBmYWNldF93cmFwKH5ub21fc3Vic2lzdGVtYSwgc2NhbGVzID0gImZyZWVfeSIpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJQcm9wYWdhdGVkIGNsaW1hdGUgcGVuYWx0eSBvbiBoeWRyb3Bvd2VyIGdlbmVyYXRpb24gKM6UR19oaWRybykiLA0KICAgIHN1YnRpdGxlID0gIlVuY2VydGFpbnR5IHByb3BhZ2F0ZWQgZnJvbSBjbGltYXRlIOKGkiBzdG9yYWdlIOKGkiBnZW5lcmF0aW9uIiwNCiAgICB4ID0gIlllYXIiLCB5ID0gIs6UR19oaWRybyAoTVfCt21vbnRoKSINCiAgKSArDQogIHRoZW1lX21pbmltYWwoKQ0KYGBgDQpgYGB7cn0NCm0zX3N1bW1hcnkgIDwtIG0zX3Rlcm1fc3VtbWFyeSAlPiV1bmdyb3VwICU+JSANCiAgI211dGF0ZShZZWFyID0geWVhcihkYXRlKSkgJT4lIHVuZ3JvdXAoKSAlPiUgDQogIGdyb3VwX2J5KCBub21fc3Vic2lzdGVtYSkgJT4lDQogIHN1bW1hcmlzZSgNCiAgICBtZWFuX3BlbmFsdHkgPSBtZWFuKG1lYW4sIG5hLnJtID0gVFJVRSksDQogICAgbHdyID0gbWVhbihsd3IsIG5hLnJtID0gVFJVRSksDQogICAgdXByID0gbWVhbih1cHIsIG5hLnJtID0gVFJVRSksDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApDQoNCmxpYnJhcnkoZ3QpDQptM19zdW1tYXJ5WyxjKCJub21fc3Vic2lzdGVtYSIsIm1lYW5fcGVuYWx0eSIsImx3ciIsICJ1cHIiKV0gJT4lIGphbml0b3I6OmFkb3JuX3RvdGFscygpICU+JSANCiAgZ3QoKSAlPiUNCiAgZm10X251bWJlcihjb2x1bW5zID0gMjo0LCBkZWNpbWFscyA9IDEpICU+JQ0KICBjb2xzX2xhYmVsKA0KICAgIG5vbV9zdWJzaXN0ZW1hID0gIlN1YnN5c3RlbSIsDQogICAgbWVhbl9wZW5hbHR5ID0gIlN1bSDOlGdlciBUZXJtIChNV2gpIiwNCiAgICBsd3IgID0gIkxvd2VyIDk1JSIsDQogICAgdXByICA9ICJVcHBlciA5NSUiLA0KICApICU+JQ0KICB0YWJfaGVhZGVyKA0KICAgIHRpdGxlID0gbWQoIioqQWdncmVnYXRlIGNsaW1hdGUgcGVuYWx0eSBvbiBzdG9yZWQgZW5lcmd5ICgyMDAx4oCTMjAxOCkqKiIpLA0KICAgIHN1YnRpdGxlID0gIlNpbXVsYXRlZCBtZWFuIGFuZCA5NSUgY29uZmlkZW5jZSBpbnRlcnZhbHMgcGVyIHN1YnN5c3RlbSINCiAgKQ0KYGBgDQoNCg0KDQojIE1vZGVsbyAzIFBMRDogQ3VzdG8gcGFyYSBvIHNpc3RlbWENCg0KYGBge3J9DQpwbGQgICAgIDwtIHJlYWQuY3N2KCJwcmVjb19zZW1hbmFsLmNzdiIpICAgICAgICAgICAjIFBMRCBzZW1hbmFsDQpwbGQkZGF0ZSA8LSBhcy5EYXRlKHBsZCRkYXRhcykgICAjIGlkZW0gcGFyYSBhIGJhc2UgZGUgUExEDQpwbGQkd2VlayAgPC0gbHVicmlkYXRlOjppc293ZWVrKHBsZCRkYXRhcykNCnBsZCR5ZWFyICA8LSBsdWJyaWRhdGU6OnllYXIocGxkJGRhdGFzKQ0KYGBgDQoNCmBgYHtyfQ0KDQojcGxkJGRhdGU8LXBsZCREQVRBX0lOSUNJTyAlPiUgYXNfZGF0ZSgpIA0KcGxkICU+JSBzcHJlYWQoU3VibWVyY2FkbyxwcmVjbyktPnBsZA0KcGxkJGRhdGUgJT4lIG1pbigpLT5pbmljaW8NCnBsZCAlPiUgZmlsdGVyKERBVEFfSU5JQ0lPPT1pbmljaW8pDQpkYXRhczwtZ2VyYV9lbmVyZ19kYXkkZGF0ZSAlPiUgdW5pcXVlDQpkYXRhLmZyYW1lKGRhdGFzKSAlPiUgZmlsdGVyKGRhdGFzPmluaWNpby0xKSAlPiUgYXJyYW5nZShkYXRhcykgJT4lIGxlZnRfam9pbihwbGQsYnkgPSBjKCJkYXRhcyI9ImRhdGUiKSktPmRhYXNfY29tcGxldGFzDQpkYWFzX2NvbXBsZXRhcw0KaT0yDQpmb3IgKGkgaW4gMTpsZW5ndGgoZGFhc19jb21wbGV0YXMkQU5PKSkgeyNsZW5ndGgoZGFhc19jb21wbGV0YXMkQU5PKQ0KICBwcmludChpKQ0KICBpZiAoaXMubmEoZGFhc19jb21wbGV0YXMkQU5PW2ldKSkgew0KICAgIGRhYXNfY29tcGxldGFzJEFOT1tpXTwtZGFhc19jb21wbGV0YXMkQU5PW2ktMV0NCiAgICBkYWFzX2NvbXBsZXRhcyRNRVNbaV08LWRhYXNfY29tcGxldGFzJE1FU1tpLTFdDQogICAgZGFhc19jb21wbGV0YXMkU0VNQU5BW2ldPC1kYWFzX2NvbXBsZXRhcyRTRU1BTkFbaS0xXQ0KICAgIGRhYXNfY29tcGxldGFzJERBVEFfRklNW2ldPC1kYWFzX2NvbXBsZXRhcyREQVRBX0ZJTVtpLTFdDQogICAgZGFhc19jb21wbGV0YXMkU1VERVNURVtpXTwtZGFhc19jb21wbGV0YXMkU1VERVNURVtpLTFdDQogICAgZGFhc19jb21wbGV0YXMkU1VMW2ldPC1kYWFzX2NvbXBsZXRhcyRTVUxbaS0xXQ0KICAgIGRhYXNfY29tcGxldGFzJE5PUkRFU1RFW2ldPC1kYWFzX2NvbXBsZXRhcyROT1JERVNURVtpLTFdDQogICAgZGFhc19jb21wbGV0YXMkTk9SVEVbaV08LWRhYXNfY29tcGxldGFzJE5PUlRFW2ktMV0NCg0KICAgIA0KICB9DQogIA0KfSAgDQpkYWFzX2NvbXBsZXRhcyAlPiUgZ2F0aGVyKGtleSA9ICJub21fc3Vic2l0ZW1hIix2YWx1ZSA9ICJwcmVjbyIsYygiTk9SREVTVEUiLCJTVURFU1RFIiwiU1VMIiwiTk9SVEUiKSktPnBsZA0KYGBgDQoNCmBgYHtyfQ0Kc2VyaWUgPC0gZGFhc19jb21wbGV0YXMgJT4lDQogIHB1bGwoTk9SREVTVEUpICU+JQ0KICB0cyhzdGFydCA9ICBjKDIwMDEsIDE4MSksIGZyZXF1ZW5jeSA9IDM2NSkNCnN0bChzZXJpZSxzLndpbmRvdyA9ICJwZXJpb2RpYyIpICU+JSBwbG90DQoNCnNlcmllIDwtIGRhYXNfY29tcGxldGFzICU+JQ0KICBwdWxsKFNVTCkgJT4lDQogIHRzKHN0YXJ0ID0gIGMoMjAwMSwgMTgxKSwgZnJlcXVlbmN5ID0gMzY1KQ0Kc3RsKHNlcmllLHMud2luZG93ID0gInBlcmlvZGljIikgJT4lIHBsb3QNCg0Kc2VyaWUgPC0gZGFhc19jb21wbGV0YXMgJT4lDQogIHB1bGwoU1VERVNURSkgJT4lDQogIHRzKHN0YXJ0ID0gIGMoMjAwMSwgMTgxKSwgZnJlcXVlbmN5ID0gMzY1KQ0Kc3RsKHNlcmllLHMud2luZG93ID0gInBlcmlvZGljIikgJT4lIHBsb3QNCg0Kc2VyaWUgPC0gZGFhc19jb21wbGV0YXMgJT4lDQogIHB1bGwoTk9SVEUpICU+JQ0KICB0cyhzdGFydCA9ICBjKDIwMDEsIDE4MSksIGZyZXF1ZW5jeSA9IDM2NSkNCnN0bChzZXJpZSxzLndpbmRvdyA9ICJwZXJpb2RpYyIpICU+JSBwbG90DQoNCg0KYGBgDQoNCmBgYHtyfQ0KcGxkJFN1Ym1lcmNhZG8gJT4lIHVuaXF1ZSgpDQpnZXJhX2VuZXJnX2RheSRub21fc3Vic2lzdGVtYS54ICU+JSB1bmlxdWUNCg0KI25ld2RhdGFfbTEgJT4lIHdyaXRlLmNzdigiYmFzZSB2YWxvcmVzIHByZXZpc3Rvcy5jc3YiKQ0KI2dlcmFfZW5lcmdfZGF5ICU+JSB3cml0ZS5jc3YoInZhbG9yZXNfcHJldmlzdG9zX2RheS5jc3YiKQ0KYGBgDQoNCmBgYHtyfQ0KZ2VyYV9lbmVyZ19kYXkgJT4lIGlubmVyX2pvaW4ocGxkLGJ5PWMoImRhdGUiLCJub21fc3Vic2lzdGVtYS54Ij0ibm9tX3N1YnNpdGVtYSIpKS0+cGxkX2Z1bGwNCnBsZF9mdWxsICU+JSBzdW1tYXJ5KCkNCmBgYA0KDQoNCiMjIyBDb250cmFmYWN0dWFsIFBMRA0KDQpgYGB7cn0NCmdlcmFfZW5lcmdfZGF5JGdlcl90ZXJtaWNhX3ByZXZpc3RhPC1wcmVkaWN0KG1fZ2FtX2ZvbnRlcywNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG5ld2RhdGEgPSBnZXJhX2VuZXJnX2RheSAlPiUNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbXV0YXRlKA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbm9tX3N1YnNpc3RlbWE9bm9tX3N1YnNpc3RlbWEueCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIERlbWFuZGEgPSBnZXJfZW9saWVsZXRyaWNhK2dlcl9mb3Rvdm9sdGFpY2ErZ2VyX2hpZHJvZWxldHJpY2ErZ2VyX3Rlcm1pY2ErZ2VyX251Y2xlYXIpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICApDQpnZXJhX2VuZXJnX2RheSRnZXJfdGVybWljYV9wcmV2aXN0YV9jZjwtcHJlZGljdChtX2dhbV9mb250ZXMsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBuZXdkYXRhID0gZ2VyYV9lbmVyZ19kYXkgJT4lIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtdXRhdGUoZ2VyX2hpZHJvZWxldHJpY2E9Z2VyX2hpZHJvZWxldHJpY2ErcGVuYWxpZGFkZV9nZXJhw6fDo29faGlkcm8sDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBub21fc3Vic2lzdGVtYT1ub21fc3Vic2lzdGVtYS54LA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgI2dlcl90ZXJtaWNhPWdlcl90ZXJtaWNhLXBlbmFsaWRhZGVfdGVybWljbywNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIERlbWFuZGEgPSBnZXJfZW9saWVsZXRyaWNhK2dlcl9mb3Rvdm9sdGFpY2ErZ2VyX2hpZHJvZWxldHJpY2ErZ2VyX3Rlcm1pY2ErZ2VyX251Y2xlYXIpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAp