1 Exploración preliminar de los datos

En esta sección, realizamos una exploración preliminar de los datos para entender la estructura y el contenido del conjunto de datos. Esto incluye la carga de las librerías necesarias, la lectura del archivo Excel que contiene los datos de los proyectos, y la creación de variables dummy para las tipologías de proyectos y gobernación.

# Cargar las librerías
library(readxl)   
library(dplyr)    
## 
## Adjuntando el paquete: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(writexl)
library(vegan)
## Cargando paquete requerido: permute
library(permute)
library(fastDummies)
library(ggplot2)
library(scales)
library(AER)
## Cargando paquete requerido: car
## Cargando paquete requerido: carData
## 
## Adjuntando el paquete: 'car'
## The following object is masked from 'package:dplyr':
## 
##     recode
## Cargando paquete requerido: lmtest
## Cargando paquete requerido: zoo
## 
## Adjuntando el paquete: 'zoo'
## The following objects are masked from 'package:base':
## 
##     as.Date, as.Date.numeric
## Cargando paquete requerido: sandwich
## Cargando paquete requerido: survival
library(sf)
## Linking to GEOS 3.13.1, GDAL 3.10.2, PROJ 9.5.1; sf_use_s2() is TRUE
library(tidyr)
library(viridis)
## Cargando paquete requerido: viridisLite
## 
## Adjuntando el paquete: 'viridis'
## The following object is masked from 'package:scales':
## 
##     viridis_pal
library(knitr)
library(data.table)
## 
## Adjuntando el paquete: 'data.table'
## The following objects are masked from 'package:zoo':
## 
##     yearmon, yearqtr
## The following objects are masked from 'package:dplyr':
## 
##     between, first, last
library(carData)
library(stringr)
library(purrr)
## 
## Adjuntando el paquete: 'purrr'
## The following object is masked from 'package:data.table':
## 
##     transpose
## The following object is masked from 'package:car':
## 
##     some
## The following object is masked from 'package:scales':
## 
##     discard
library(cowplot)
library(GGally)
library(viridis)
library(ggspatial)
library(ggpubr)
## 
## Adjuntando el paquete: 'ggpubr'
## The following object is masked from 'package:cowplot':
## 
##     get_legend
library(nortest)
library(gridExtra)
## 
## Adjuntando el paquete: 'gridExtra'
## The following object is masked from 'package:dplyr':
## 
##     combine
library(tibble)
library(reshape2)
## 
## Adjuntando el paquete: 'reshape2'
## The following objects are masked from 'package:data.table':
## 
##     dcast, melt
## The following object is masked from 'package:tidyr':
## 
##     smiths
library(kableExtra)
## 
## Adjuntando el paquete: 'kableExtra'
## The following object is masked from 'package:dplyr':
## 
##     group_rows
library(formattable)
## 
## Adjuntando el paquete: 'formattable'
## The following objects are masked from 'package:scales':
## 
##     comma, percent, scientific
library(DT)
library(corrplot)
## corrplot 0.95 loaded
library(ggridges)
library(treemapify)
library(RColorBrewer)
library(ggrepel)
library(igraph)
## 
## Adjuntando el paquete: 'igraph'
## The following object is masked from 'package:formattable':
## 
##     normalize
## The following object is masked from 'package:tibble':
## 
##     as_data_frame
## The following objects are masked from 'package:purrr':
## 
##     compose, simplify
## The following object is masked from 'package:tidyr':
## 
##     crossing
## The following object is masked from 'package:vegan':
## 
##     diversity
## The following object is masked from 'package:permute':
## 
##     permute
## The following objects are masked from 'package:dplyr':
## 
##     as_data_frame, groups, union
## The following objects are masked from 'package:stats':
## 
##     decompose, spectrum
## The following object is masked from 'package:base':
## 
##     union
library(ggraph)
library(ggdendro)
library(patchwork)
## 
## Adjuntando el paquete: 'patchwork'
## The following object is masked from 'package:formattable':
## 
##     area
## The following object is masked from 'package:cowplot':
## 
##     align_plots
library(pheatmap)
library(grid)
library(cluster)  
library(mclust)
## Package 'mclust' version 6.1.1
## Type 'citation("mclust")' for citing this R package in publications.
## 
## Adjuntando el paquete: 'mclust'
## The following object is masked from 'package:purrr':
## 
##     map
library(DT)    
library(factoextra)
## Welcome! Want to learn more? See two factoextra-related books at https://goo.gl/ve3WBa
library(car)
library(MASS)
## 
## Adjuntando el paquete: 'MASS'
## The following object is masked from 'package:patchwork':
## 
##     area
## The following object is masked from 'package:formattable':
## 
##     area
## The following object is masked from 'package:dplyr':
## 
##     select
library(broom)
library(ggeffects)
## 
## Adjuntando el paquete: 'ggeffects'
## The following object is masked from 'package:cowplot':
## 
##     get_title
library(margins)
library(tmap)
library(sp)
## 
## Adjuntando el paquete: 'sp'
## The following object is masked from 'package:ggraph':
## 
##     geometry
library(conflicted)
library(biscale)

2 Desarrollamos las estimaciones de las tipologías de proyectos

knitr::opts_chunk$set(echo = TRUE)

conflict_prefer("select", "dplyr")
## [conflicted] Will prefer dplyr::select over any other package.
conflict_prefer("filter", "dplyr")
## [conflicted] Will prefer dplyr::filter over any other package.
## -------------**Creación de variables dummy y resumen por comuna**---------------------##
df_raw <- read_excel ("C:/Users/william/Desktop/monografia aca merida/datos/ACA Modelaje R Final.xlsx", 
    sheet = "Resumen") %>%
  mutate(ID_COMUNA = paste0(COD_UBIGEO, "-", COD_CC))

# Crear dummies desde las variables cualitativas
df_dummies <- df_raw %>%
  dummy_cols(
    select_columns = c(
      "CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG",
      "CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION",
      "CLASIFICACION_DEL_PROYECTO"
    ),
    remove_first_dummy = FALSE
  )

# ---------------------Primera tabla - Variables originales (primeros 10 registros)---------------------
tabla1 <- df_raw %>%
  select(
    `Nudo Críticos por Tipología CFG` = CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
    `Nudos Críticos por Tipología de Gobierno` = CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
    `COD UBIGEO` = COD_UBIGEO,
    `COD CC` = COD_CC,
    COMUNA,
    `ID COMUNA` = ID_COMUNA
  ) %>%
  head(10)

kable(tabla1, caption = "Tabla 1. Primeros 10 registros de datos originales") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10) %>%
  footnote(general = "Nota. ID_COMUNA = Identificador único de comuna y combinación del código UBIGEO y código SITUR de cada comuna; COD_UBIGEO = Código de ubicación geográfica a nivel nacional y Mérida.",
           general_title = "")
Tabla 1. Primeros 10 registros de datos originales
Nudo Críticos por Tipología CFG Nudos Críticos por Tipología de Gobierno COD UBIGEO COD CC COMUNA ID COMUNA
INFRAESTRUCTURA DRENAJES 140102 14-01-2007 COMUNA SIMON BOLÍVAR. 140102-14-01-2007
ELECTRICIDAD ELECTRICIDAD 140102 14-01-2007 COMUNA SIMON BOLÍVAR. 140102-14-01-2007
TELECOMUNICACIONES TELECOMUNICACIONES 140102 14-01-2007 COMUNA SIMON BOLÍVAR. 140102-14-01-2007
MANEJO INTEGRAL DEL AGUA AGUA POTABLE 140102 C-MIX-2021-01-0003 COMUNA ETERNO GIGANTE 140102-C-MIX-2021-01-0003
VIVIENDA VIVIENDA 140102 C-MIX-2021-01-0003 COMUNA ETERNO GIGANTE 140102-C-MIX-2021-01-0003
MANEJO INTEGRAL DEL AGUA AGUA RESIDUAL 140102 C-MIX-2018-11-0084 COMUNA LUZ DEL ALBA 140102-C-MIX-2018-11-0084
AMBIENTE CANALIZACION 140102 C-MIX-2018-11-0084 COMUNA LUZ DEL ALBA 140102-C-MIX-2018-11-0084
INFRAESTRUCTURA VIVIENDA 140102 C-MIX-2018-11-0084 COMUNA LUZ DEL ALBA 140102-C-MIX-2018-11-0084
MANEJO INTEGRAL DEL AGUA AGUA POTABLE 140102 C-MIX-2021-02-0005 COMUNA FRANCISCO DE MIRANDA 140102-C-MIX-2021-02-0005
INFRAESTRUCTURA DRENAJES 140102 C-MIX-2021-02-0005 COMUNA FRANCISCO DE MIRANDA 140102-C-MIX-2021-02-0005
Nota. ID_COMUNA = Identificador único de comuna y combinación del código UBIGEO y código SITUR de cada comuna; COD_UBIGEO = Código de ubicación geográfica a nivel nacional y Mérida. 
#------------------------Segunda tabla - Variables importantes (primeros 10 registros)--------------------
tabla2 <- df_raw %>%
  select(
    n_proyectos,
    PLAZOS,
    CLASIFICACION_DEL_PROYECTO,
    TIPOLOGIA_CFG_NUM,
    GOBERNACION_NUM,
    RATIO_ACA_PROYECTO_CULMINADO,
    Clasificacion_Actores_institucionales
  ) %>%
  head(10)

kable(tabla2, caption = "Tabla 2. Primeros 10 registros de variables de análisis principales") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10)
Tabla 2. Primeros 10 registros de variables de análisis principales
n_proyectos PLAZOS CLASIFICACION_DEL_PROYECTO TIPOLOGIA_CFG_NUM GOBERNACION_NUM RATIO_ACA_PROYECTO_CULMINADO Clasificacion_Actores_institucionales
4 1 3 5 5 3 2
4 1 1 4 6 1 2
4 1 1 13 17 1 2
4 2 3 6 2 3 2
4 2 1 16 21 1 1
4 1 1 6 3 1 2
4 1 1 1 4 1 1
4 1 3 5 21 3 3
4 2 1 6 2 1 2
4 2 1 5 5 1 2

3 Análisis de tendencia central y de dispersión de las variables originales

#-------------------- Análisis de tendencia central y dispersión---------------
analisis_tendencia <- df_raw %>%
  select(n_proyectos, PLAZOS,CLASIFICACION_DEL_PROYECTO, TIPOLOGIA_CFG_NUM, GOBERNACION_NUM, 
         RATIO_ACA_PROYECTO_CULMINADO, Clasificacion_Actores_institucionales) %>%
  psych::describe() %>%
  rownames_to_column("Variable") %>%
  select(Variable, n, mean, sd, min, max, median, skew, kurtosis)

kable(analisis_tendencia, caption = "Tabla 3. Medidas de tendencia central y dispersión") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), font_size = 10)
Tabla 3. Medidas de tendencia central y dispersión
Variable n mean sd min max median skew kurtosis
n_proyectos 198 3.737374 0.5055200 2 4 4 -1.7494530 2.1981557
PLAZOS 198 1.808081 0.4656041 0 2 2 -2.4023102 5.1067366
CLASIFICACION_DEL_PROYECTO 198 2.257576 1.2979164 1 4 2 0.2106089 -1.7220231
TIPOLOGIA_CFG_NUM 198 8.767677 4.8674372 1 16 6 0.2606497 -1.4123977
GOBERNACION_NUM 198 10.393939 7.0470762 1 21 8 0.3298126 -1.5163471
RATIO_ACA_PROYECTO_CULMINADO 198 2.257576 1.2979164 1 4 2 0.2106089 -1.7220231
Clasificacion_Actores_institucionales 198 2.005050 0.7706380 1 4 2 0.4549552 -0.1339291 
# Análisis de frecuencias para variables categóricas n_proyectos
frecuencias_n_proyectos <- df_raw %>%
  count(n_proyectos) %>%
  mutate(Porcentaje = round(n / sum(n) * 100, 2)) %>%
  rename(Frecuencia = n, Categoría = n_proyectos)
kable(frecuencias_n_proyectos, caption = "Distribución de frecuencias para la variable n_proyectos") %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Distribución de frecuencias para la variable n_proyectos
Categoría Frecuencia Porcentaje
2 6 3.03
3 40 20.20
4 152 76.77 
# Análisis de frecuencias para variables categóricas Clasificación del proyecto

frecuencias_clasificacion_proyecto <- df_raw %>%
  count(CLASIFICACION_DEL_PROYECTO) %>%
  mutate(Porcentaje = round(n / sum(n) * 100, 2)) %>%
  rename(Frecuencia = n, Categoría = CLASIFICACION_DEL_PROYECTO)
kable(frecuencias_clasificacion_proyecto, caption = "Distribución de frecuencias para la variable CLASIFICACION_DEL_PROYECTO") %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Distribución de frecuencias para la variable CLASIFICACION_DEL_PROYECTO
Categoría Frecuencia Porcentaje
1 97 48.99
2 3 1.52
3 48 24.24
4 50 25.25 
# Análisis de frecuencias para variables categóricas Plazos
frecuencias_plazos <- df_raw %>%
  count(PLAZOS) %>%
  mutate(Porcentaje = round(n / sum(n) * 100, 2)) %>%
  rename(Frecuencia = n, Categoría = PLAZOS)

kable(frecuencias_plazos, caption = "Distribución de frecuencias para la variable PLAZOS") %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Distribución de frecuencias para la variable PLAZOS
Categoría Frecuencia Porcentaje
0 6 3.03
1 26 13.13
2 166 83.84 
# Análisis de RATIO_ACA_PROYECTO_CULMINADO
frecuencias_ratio <- df_raw %>%
  count(RATIO_ACA_PROYECTO_CULMINADO) %>%
  mutate(Porcentaje = round(n / sum(n) * 100, 2)) %>%
  rename(Frecuencia = n, Categoría = RATIO_ACA_PROYECTO_CULMINADO)

kable(frecuencias_ratio, caption = "Distribución de frecuencias para la variable RATIO_ACA_PROYECTO_CULMINADO") %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Distribución de frecuencias para la variable RATIO_ACA_PROYECTO_CULMINADO
Categoría Frecuencia Porcentaje
1 97 48.99
2 3 1.52
3 48 24.24
4 50 25.25 
# Análisis de actores institucionales
frecuencias_actores <- df_raw %>%
  count(Clasificacion_Actores_institucionales) %>%
  mutate(Porcentaje = round(n / sum(n) * 100, 2)) %>%
  rename(Frecuencia = n, Categoría = Clasificacion_Actores_institucionales)

kable(frecuencias_actores, caption = "Distribución de frecuencias para la variable Clasificacion_Actores_institucionales") %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Distribución de frecuencias para la variable Clasificacion_Actores_institucionales
Categoría Frecuencia Porcentaje
1 51 25.76
2 102 51.52
3 38 19.19
4 7 3.54 
##--------------------------Trafico de frecuencias---------------------------

# Combinar todos los dataframes de frecuencias en uno solo
plot_data <- bind_rows(
  frecuencias_n_proyectos %>% mutate(Variable = "Número de Consultas (n_proyectos)"),
  frecuencias_clasificacion_proyecto %>% mutate(Variable = "Estado del Proyecto"),
  frecuencias_ratio %>% mutate(Variable = "Ratio de Efectividad"),
  frecuencias_plazos %>% mutate(Variable = "Plazo de Ejecución (PLAZOS)"),
  frecuencias_actores %>% mutate(Variable = "Actor Institucional Principal")
) %>%
  mutate(Categoría = as.factor(Categoría))

# Definir etiquetas descriptivas para cada categoría
plot_data <- plot_data %>%
  mutate(
    Etiqueta_Categoria = case_when(
      Variable == "Estado del Proyecto" ~ case_when(
        Categoría == 1 ~ "1 - No Considerado",
        Categoría == 2 ~ "2 - No Culminado",
        Categoría == 3 ~ "3 - En Ejecución",
        Categoría == 4 ~ "4 - Culminado"
      ),
      Variable == "Ratio de Efectividad" ~ case_when(
        Categoría == 1 ~ "1 - Muy Baja",
        Categoría == 2 ~ "2 - Baja",
        Categoría == 3 ~ "3 - Media",
        Categoría == 4 ~ "4 - Alta"
      ),
      Variable == "Plazo de Ejecución (PLAZOS)" ~ case_when(
        Categoría == 0 ~ "0 - Sin Dato",
        Categoría == 1 ~ "1 - Corto Plazo",
        Categoría == 2 ~ "2 - Mediano Plazo"
      ),
      Variable == "Actor Institucional Principal" ~ case_when(
        Categoría == 1 ~ "1 - Ministerio",
        Categoría == 2 ~ "2 - Gob. Nac/Est.",
        Categoría == 3 ~ "3 - Mun./Comunal",
        Categoría == 4 ~ "4 - Privado"
      ),
      Variable == "Número de Consultas (n_proyectos)" ~ as.character(Categoría),
      TRUE ~ as.character(Categoría)
    )
  )

# Calcular el límite superior del eje Y para asegurar que las etiquetas encajen
y_max <- max(plot_data$Frecuencia) * 1.1

# Crear el gráfico de barras con facetas mejorado
ggplot(plot_data, aes(x = Etiqueta_Categoria, y = Frecuencia, fill = Etiqueta_Categoria)) +
  geom_col(show.legend = FALSE) +  
  geom_text(aes(label = Frecuencia), vjust = -0.5, size = 3.5) +  
  facet_wrap(~ Variable, scales = "free_x", ncol = 5) + 
  scale_fill_viridis_d() + 
  labs(
    title = "Distribución de Frecuencias de Variables Clave",
    x = "Categorías",
    y = "Frecuencia (Número de Proyectos)",
    caption = "Elaboración Propia - William Gutierrez"  
  ) +
  theme_minimal() +
  theme(
    axis.text.x = element_text(angle = 45, hjust = 1, size = 9),  
    strip.text = element_text(face = "bold", size = 10), 
    plot.title = element_text(hjust = 0.5, face = "bold"),  
    plot.caption = element_text(hjust = 1, size = 9, face = "italic")  
  ) +
  ylim(0, y_max)

4 Frecuencia global por cada tipología, ¿qué problema es el más común?

Para establecer cuáles son los nudos críticos más recurrentes en todo el Estado Mérida, primero calculamos la frecuencia absoluta y relativa de cada tipología CFG y de gobernación. Esto nos permite identificar las áreas de mayor concentración de problemas y priorizar las líneas de análisis posteriores.

##----------------------------Resumen CFG por Comuna---------------------------
cfg_cols <- df_dummies %>% 
  select(starts_with("CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_")) %>% 
  names()

df_cfg_summary <- df_dummies %>%
  group_by(ID_COMUNA) %>%
  summarise(
    n_proyectos = n(),
    across(all_of(cfg_cols), list(
      count = ~ sum(.x, na.rm = TRUE),
      pct = ~ sum(.x, na.rm = TRUE) / n() * 100
    ))
  ) %>%
  ungroup()

##-----------------------Resumen de Gobernación por comuna----------------------
gob_cols <- df_dummies %>% 
  select(starts_with("CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION_")) %>% 
  names()

df_gob_summary <- df_dummies %>%
  group_by(ID_COMUNA) %>%
  summarise(
    n_proyectos = n(),
    across(all_of(gob_cols), list(
      count = ~ sum(.x, na.rm = TRUE),
      pct = ~ sum(.x, na.rm = TRUE) / n() * 100
    ))
  ) %>%
  ungroup()

##------------------------Análisis de frecuencias-------------------------------

# Función mejorada para análisis completo
analizar_frecuencia <- function(data, var, fill_color, line_color, titulo, tipo = "proyectos") {
  # Determinar nombre de etiqueta según tipo
  y_label <- ifelse(tipo == "proyectos", "Número de proyectos", "Número de comunas")
  
  # Frecuencias globales
  freq <- data %>%
    count({{var}}, name = "n") %>%
    arrange(desc(n)) %>%
    mutate(
      pct = n / sum(n) * 100,
      cum_pct = cumsum(pct),
      etiqueta = paste0(n, "\n(", round(pct, 1), "%)")
    )
  
  # Gráfico combinado
  plot <- ggplot(freq, 
         aes(x = reorder({{var}}, n), y = n)) +
    geom_col(fill = fill_color, alpha = 0.8) +
    geom_text(aes(label = etiqueta), 
              hjust = -0.1, size = 3.5, color = "black", lineheight = 0.8) +
    geom_line(aes(y = cum_pct * max(n) / 100), 
              group = 1, color = line_color, size = 0.8) +
    geom_point(aes(y = cum_pct * max(n) / 100), 
               color = line_color, size = 2) +
    scale_y_continuous(
      name = y_label,
      sec.axis = sec_axis(~ . * 100 / max(freq$n), 
                         name = "Porcentaje acumulado (%)",
                         labels = scales::percent_format(scale = 1))
    ) +
    coord_flip() +
    labs(
      title = titulo,
      subtitle = "Barras: frecuencia absoluta | Texto: conteo y % individual | Línea: % acumulado",
      x = NULL
    ) +
    theme_minimal(base_size = 12) +
    expand_limits(y = max(freq$n) * 1.15)
  
  return(list(freq = freq, plot = plot))
}

# Función mejorada para frecuencia por comuna
analizar_frecuencia_comuna <- function(data, var, fill_color, line_color, titulo) {
  freq_comuna <- data %>%
    distinct(ID_COMUNA, {{var}}) %>%  
    count({{var}}, name = "n_comunas") %>%
    arrange(desc(n_comunas)) %>%
    mutate(
      pct_comunas = n_comunas / sum(n_comunas) * 100,
      cum_pct = cumsum(pct_comunas),
      etiqueta = paste0(n_comunas, "\n(", round(pct_comunas, 1), "%)")
    )
  
  # Gráfico combinado
  plot <- ggplot(freq_comuna, 
         aes(x = reorder({{var}}, n_comunas), y = n_comunas)) +
    geom_col(fill = fill_color, alpha = 0.8) +
    geom_text(aes(label = etiqueta), 
              hjust = -0.1, size = 3.5, color = "black", lineheight = 0.8) +
    geom_line(aes(y = cum_pct * max(n_comunas) / 100),
              group = 1, color = line_color, size = 0.8) +
    geom_point(aes(y = cum_pct * max(n_comunas) / 100),
               color = line_color, size = 2) +
    scale_y_continuous(
      name = "Número de comunas",
      sec.axis = sec_axis(~ . * 100 / max(freq_comuna$n_comunas),
                         name = "Porcentaje acumulado (%)",
                         labels = scales::percent_format(scale = 1))
    ) +
    coord_flip() +
    expand_limits(y = max(freq_comuna$n_comunas) * 1.15) +
    labs(
      title = titulo,
      subtitle = "Barras: frecuencia absoluta | Texto: conteo y % de comunas | Línea: % acumulado",
      x = NULL
    ) +
    theme_minimal(base_size = 12)
  
  return(list(freq_comuna = freq_comuna, plot = plot))
}
## ----------------------------Análisis para CFG--------------------------------

# Conteo y proporciones globales por Tipologia CFG

cfg_global_proyectos <- analizar_frecuencia(
  df_dummies,
  CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
  "darkblue", "gold",
  "Frecuencia global de tipologías CFG (Proyectos)"
)
## Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
## ℹ Please use `linewidth` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
cfg_global_comunas <- analizar_frecuencia_comuna(
  df_dummies,
  CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
  "darkblue", "gold",
  "Frecuencia de tipologías CFG por comuna"
)
# Tablas de estadísticas descriptivas básicas de frecuencias para CFG
print(cfg_global_proyectos$freq)
## # A tibble: 16 × 5
##    CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG     n    pct cum_pct etiqueta   
##    <chr>                                        <int>  <dbl>   <dbl> <chr>      
##  1 MANEJO INTEGRAL DEL AGUA                        54 27.3      27.3 "54\n(27.3…
##  2 VIALIDAD                                        30 15.2      42.4 "30\n(15.2…
##  3 VIVIENDA                                        21 10.6      53.0 "21\n(10.6…
##  4 ELECTRICIDAD                                    19  9.60     62.6 "19\n(9.6%…
##  5 SALUD                                           14  7.07     69.7 "14\n(7.1%…
##  6 INFRAESTRUCTURA                                 12  6.06     75.8 "12\n(6.1%…
##  7 AMBIENTE                                        10  5.05     80.8 "10\n(5.1%…
##  8 EDUCACIÓN                                        9  4.55     85.4 "9\n(4.5%)"
##  9 TRANSPORTE                                       7  3.54     88.9 "7\n(3.5%)"
## 10 TELECOMUNICACIONES                               6  3.03     91.9 "6\n(3%)"  
## 11 MUROS                                            5  2.53     94.4 "5\n(2.5%)"
## 12 SOCIO PRODUCTIVO                                 4  2.02     96.5 "4\n(2%)"  
## 13 SEGURIDAD                                        3  1.52     98.0 "3\n(1.5%)"
## 14 CANALIZACION                                     2  1.01     99.0 "2\n(1%)"  
## 15 ORGANIZACION COMUNAL                             1  0.505    99.5 "1\n(0.5%)"
## 16 PROCESOS INDUSTRIALES                            1  0.505   100   "1\n(0.5%)"
##----------------------------Mostrar resultados-------------------------------------
# Conteo y proporciones globales sobre la variable original
freq_cfg <- df_dummies %>%
  count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, name = "n") %>%
  arrange(desc(n)) %>%
  mutate(
    pct     = n / sum(n) * 100,
    cum_pct = cumsum(pct)
  )
#-------------------------Top 10 barras simples--------------------------------
freq_cfg %>%
  slice(1:10) %>%
  ggplot(aes(
    x = reorder(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, n),
    y = n
  )) +
    geom_col(fill = "darkblue") +
    coord_flip() +
    labs(
      title = "Top 10 tipologías CFG más frecuentes",
      x     = "Tipología CFG",
      y     = "Número de proyectos"
    ) +
    theme_minimal()

##--------------------Grafico de frecuencias de tipologías CFG------------------
print(cfg_global_proyectos$plot)

#----------------------------------Tablas de estadísticas descriptivas básicas de frecuencias para CFG para las comunas-----------------------------------
print(cfg_global_comunas$freq_comuna)
## # A tibble: 16 × 5
##    CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOL…¹ n_comunas pct_comunas cum_pct etiqueta
##    <chr>                                      <int>       <dbl>   <dbl> <chr>   
##  1 MANEJO INTEGRAL DEL AGUA                      43      23.6      23.6 "43\n(2…
##  2 VIALIDAD                                      27      14.8      38.5 "27\n(1…
##  3 VIVIENDA                                      21      11.5      50   "21\n(1…
##  4 ELECTRICIDAD                                  18       9.89     59.9 "18\n(9…
##  5 SALUD                                         14       7.69     67.6 "14\n(7…
##  6 INFRAESTRUCTURA                               11       6.04     73.6 "11\n(6…
##  7 AMBIENTE                                      10       5.49     79.1 "10\n(5…
##  8 EDUCACIÓN                                      9       4.95     84.1 "9\n(4.…
##  9 TRANSPORTE                                     7       3.85     87.9 "7\n(3.…
## 10 TELECOMUNICACIONES                             6       3.30     91.2 "6\n(3.…
## 11 MUROS                                          5       2.75     94.0 "5\n(2.…
## 12 SOCIO PRODUCTIVO                               4       2.20     96.2 "4\n(2.…
## 13 SEGURIDAD                                      3       1.65     97.8 "3\n(1.…
## 14 CANALIZACION                                   2       1.10     98.9 "2\n(1.…
## 15 ORGANIZACION COMUNAL                           1       0.549    99.5 "1\n(0.…
## 16 PROCESOS INDUSTRIALES                          1       0.549   100   "1\n(0.…
## # ℹ abbreviated name: ¹​CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG
#--------Frecuencia absoluta y relativa de comunas por tipología CFG---------
freq_cfg_comuna <- df_dummies %>%
  distinct(ID_COMUNA, CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG) %>%
  count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, name = "n_comunas") %>%
  arrange(desc(n_comunas)) %>%
  mutate(
    pct_comunas = n_comunas / sum(n_comunas) * 100,
    cum_pct     = cumsum(pct_comunas)
  )

#---------------------------------Top 10 comunas--------------------------------
freq_cfg_comuna %>%
  slice(1:10) %>%
  ggplot(aes(
    x = reorder(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, n_comunas),
    y = n_comunas
  )) +
    geom_col(fill = "darkblue") +
    coord_flip() +
    labs(
      title = "Top 10 tipologías CFG por número de comunas",
      x     = "Tipología CFG",
      y     = "Número de comunas"
    ) +
    theme_minimal()

##----------------Grafico de frecuencias de tipologías CFG--------------------
print(cfg_global_comunas$plot)

# ==============================================================================
#  TABLA COMPLETA DE FRECUENCIAS CFG POR PROYECTOS
# ==============================================================================

crear_tabla_cfg_proyectos <- function(data) {
  
  # Calcular frecuencias
  tabla_cfg <- data %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, name = "n_proyectos") %>%
    arrange(desc(n_proyectos)) %>%
    mutate(
      porcentaje = round(n_proyectos / sum(n_proyectos) * 100, 2),
      pct_acumulado = round(cumsum(porcentaje), 2),
      ranking = row_number()
    ) %>%
    rename(
      "Ranking" = ranking,
      "Tipología CFG" = CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
      "N° Proyectos" = n_proyectos,
      "Porcentaje (%)" = porcentaje,
      "% Acumulado" = pct_acumulado
    )
  
  # Crear tabla formateada con kableExtra
  tabla_final <- tabla_cfg %>%
    kable(
      caption = "Tabla 4.1: Distribución de Frecuencias de Tipologías CFG por Número de Proyectos",
      align = c("c", "l", "c", "c", "c"),
      format = "html"
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 12
    ) %>%
    column_spec(1, bold = TRUE, color = "white", background = "#2c3e50") %>%
    column_spec(2, width = "20em") %>%
    column_spec(3:5, width = "8em") %>%
    row_spec(1:4, background = "#e8f4fd") %>%  # Resaltar top 4
    add_header_above(c(" " = 2, "Frecuencias Absolutas y Relativas" = 3)) %>%
    footnote(
      general = c(
        "Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025",
        "Nota: Las primeras 4 tipologías concentran el 62.6% de todos los nudos críticos"
      ),
      general_title = "",
      footnote_as_chunk = TRUE
    )
  
  return(list(datos = tabla_cfg, tabla = tabla_final))
}

# ==============================================================================
#  TABLA COMPLETA DE FRECUENCIAS CFG POR COMUNAS
# ==============================================================================

crear_tabla_cfg_comunas <- function(data) {
  
  # Calcular frecuencias por comuna (sin repetir comunas)
  tabla_cfg_comunas <- data %>%
    distinct(ID_COMUNA, CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG) %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, name = "n_comunas") %>%
    arrange(desc(n_comunas)) %>%
    mutate(
      porcentaje = round(n_comunas / sum(n_comunas) * 100, 2),
      pct_acumulado = round(cumsum(porcentaje), 2),
      ranking = row_number()
    ) %>%
    rename(
      "Ranking" = ranking,
      "Tipología CFG" = CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
      "N° Comunas" = n_comunas,
      "Porcentaje (%)" = porcentaje,
      "% Acumulado" = pct_acumulado
    )
  
  # Crear tabla formateada
  tabla_final <- tabla_cfg_comunas %>%
    kable(
      caption = "Tabla 4.2: Distribución de Frecuencias de Tipologías CFG por Número de Comunas Afectadas",
      align = c("c", "l", "c", "c", "c"),
      format = "html"
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 12
    ) %>%
    column_spec(1, bold = TRUE, color = "white", background = "#2c3e50") %>%
    column_spec(2, width = "20em") %>%
    column_spec(3:5, width = "8em") %>%
    row_spec(1:4, background = "#e8f4fd") %>%  # Resaltar top 4
    add_header_above(c(" " = 2, "Distribución Territorial" = 3)) %>%
    footnote(
      general = c(
        "Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025",
        "Nota: Una comuna puede tener múltiples tipologías, pero se cuenta una sola vez por tipología"
      ),
      general_title = "",
      footnote_as_chunk = TRUE
    )
  
  return(list(datos = tabla_cfg_comunas, tabla = tabla_final))
}

# ==============================================================================
# TABLA COMPARATIVA CFG: PROYECTOS VS COMUNAS
# ==============================================================================

crear_tabla_comparativa_cfg <- function(data) {
  
  # Datos por proyectos
  cfg_proyectos <- data %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, name = "n_proyectos") %>%
    mutate(pct_proyectos = round(n_proyectos / sum(n_proyectos) * 100, 2))
  
  # Datos por comunas
  cfg_comunas <- data %>%
    distinct(ID_COMUNA, CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG) %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, name = "n_comunas") %>%
    mutate(pct_comunas = round(n_comunas / sum(n_comunas) * 100, 2))
  
  # Unir ambas tablas
  tabla_comparativa <- cfg_proyectos %>%
    inner_join(cfg_comunas, by = "CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG") %>%
    arrange(desc(n_proyectos)) %>%
    mutate(
      ranking = row_number(),
      intensidad = round(n_proyectos / n_comunas, 2)  # Proyectos por comuna promedio
    ) %>%
    select(
      ranking,
      CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
      n_proyectos, pct_proyectos,
      n_comunas, pct_comunas,
      intensidad
    ) %>%
    rename(
      "Rank" = ranking,
      "Tipología CFG" = CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
      "N° Proy." = n_proyectos,
      "% Proy." = pct_proyectos,
      "N° Com." = n_comunas,
      "% Com." = pct_comunas,
      "Intensidad" = intensidad
    )
  
  # Crear tabla formateada
  tabla_final <- tabla_comparativa %>%
    kable(
      caption = "Tabla 4.3: Análisis Comparativo CFG - Proyectos vs Comunas Afectadas",
      align = c("c", "l", rep("c", 5)),
      format = "html",
      digits = 2
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 11
    ) %>%
    column_spec(1, bold = TRUE, color = "white", background = "#2c3e50", width = "3em") %>%
    column_spec(2, width = "15em") %>%
    column_spec(3:7, width = "6em") %>%
    add_header_above(c(" " = 2, "Por Proyectos" = 2, "Por Comunas" = 2, "Indicador" = 1)) %>%
    row_spec(1:3, background = "#ffe6e6") %>%  # Top 3 en rojo suave
    row_spec(4:7, background = "#fff2e6") %>%  # Siguientes 4 en naranja suave
    footnote(
      general = c(
        "Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025",
        "Intensidad = N° Proyectos / N° Comunas (promedio de proyectos por comuna por tipología)"
      ),
      general_title = "",
      footnote_as_chunk = TRUE
    )
  
  return(list(datos = tabla_comparativa, tabla = tabla_final))
}

# ==============================================================================
#  TABLA RESUMEN EJECUTIVO CFG (TOP 10)
# ==============================================================================

crear_tabla_resumen_cfg <- function(data) {
  
  # Calcular estadísticas resumidas
  total_proyectos <- nrow(data)
  total_comunas <- n_distinct(data$ID_COMUNA)
  
  resumen_cfg <- data %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, name = "proyectos") %>%
    arrange(desc(proyectos)) %>%
    slice(1:10) %>%  # Solo top 10
    mutate(
      pct_proyectos = round(proyectos / total_proyectos * 100, 1),
      pct_acum = round(cumsum(pct_proyectos), 1)
    ) %>%
    # Agregar datos de comunas
    left_join(
      data %>%
        distinct(ID_COMUNA, CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG) %>%
        count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, name = "comunas"),
      by = "CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG"
    ) %>%
    mutate(
      pct_comunas = round(comunas / total_comunas * 100, 1),
      posicion = row_number(),
      categoria = case_when(
        posicion <= 3 ~ "🔴 Crítico",
        posicion <= 7 ~ "🟡 Alto",
        TRUE ~ "🟢 Medio"
      )
    ) %>%
    select(
      posicion, categoria,
      CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
      proyectos, pct_proyectos, pct_acum,
      comunas, pct_comunas
    ) %>%
    rename(
      "Pos." = posicion,
      "Nivel" = categoria,
      "Tipología CFG" = CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG,
      "Proy." = proyectos,
      "%" = pct_proyectos,
      "% Acum." = pct_acum,
      "Com." = comunas,
      "% Com." = pct_comunas
    )
  
  # Crear tabla formateada
  tabla_final <- resumen_cfg %>%
    kable(
      caption = "Tabla 4.4: Resumen Ejecutivo - Top 10 Tipologías CFG Más Críticas",
      align = c("c", "c", "l", rep("c", 5)),
      format = "html"
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 11
    ) %>%
    column_spec(1, bold = TRUE, width = "3em") %>%
    column_spec(2, width = "8em") %>%
    column_spec(3, width = "15em") %>%
    column_spec(4:8, width = "5em") %>%
    add_header_above(c(" " = 3, "Análisis por Proyectos" = 3, "Por Comunas" = 2)) %>%
    footnote(
      general = paste0(
        "Total analizado: ", total_proyectos, " proyectos en ", total_comunas, " comunas. ",
        "El Top 10 concentra el ", round(sum(resumen_cfg$`%`), 1), "% de todos los nudos críticos."
      ),
      general_title = "Nota:",
      footnote_as_chunk = TRUE
    )
  
  return(list(datos = resumen_cfg, tabla = tabla_final))
}

5 Análisis de Tipologías CFG: Tablas Descriptivas

En esta sección presentamos el análisis detallado de las tipologías CFG mediante tablas descriptivas que permiten visualizar la distribución, frecuencia e impacto territorial de los nudos críticos identificados.

5.1 Tabla 4.1: Distribución de Frecuencias de Tipologías CFG por Número de Proyectos

Tabla 4.1: Distribución de Frecuencias de Tipologías CFG por Número de Proyectos
Frecuencias Absolutas y Relativas
Tipología CFG N° Proyectos Porcentaje (%) % Acumulado Ranking
MANEJO INTEGRAL DEL AGUA 54 27.27 27.27 1
VIALIDAD 30 15.15 42.42 2
VIVIENDA 21 10.61 53.03 3
ELECTRICIDAD 19 9.60 62.63 4
SALUD 14 7.07 69.70 5
INFRAESTRUCTURA 12 6.06 75.76 6
AMBIENTE 10 5.05 80.81 7
EDUCACIÓN 9 4.55 85.36 8
TRANSPORTE 7 3.54 88.90 9
TELECOMUNICACIONES 6 3.03 91.93 10
MUROS 5 2.53 94.46 11
SOCIO PRODUCTIVO 4 2.02 96.48 12
SEGURIDAD 3 1.52 98.00 13
CANALIZACION 2 1.01 99.01 14
ORGANIZACION COMUNAL 1 0.51 99.52 15
PROCESOS INDUSTRIALES 1 0.51 100.03 16
Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025 Nota: Las primeras 4 tipologías concentran el 62.6% de todos los nudos críticos

Nota: La tabla muestra la distribución absoluta y relativa de las tipologías CFG según el número de proyectos asociados.

5.2 Tabla 4.2: Distribución de Frecuencias de Tipologías CFG por Número de Comunas Afectadas

Tabla 4.2: Distribución de Frecuencias de Tipologías CFG por Número de Comunas Afectadas
Distribución Territorial
Tipología CFG N° Comunas Porcentaje (%) % Acumulado Ranking
MANEJO INTEGRAL DEL AGUA 43 23.63 23.63 1
VIALIDAD 27 14.84 38.47 2
VIVIENDA 21 11.54 50.01 3
ELECTRICIDAD 18 9.89 59.90 4
SALUD 14 7.69 67.59 5
INFRAESTRUCTURA 11 6.04 73.63 6
AMBIENTE 10 5.49 79.12 7
EDUCACIÓN 9 4.95 84.07 8
TRANSPORTE 7 3.85 87.92 9
TELECOMUNICACIONES 6 3.30 91.22 10
MUROS 5 2.75 93.97 11
SOCIO PRODUCTIVO 4 2.20 96.17 12
SEGURIDAD 3 1.65 97.82 13
CANALIZACION 2 1.10 98.92 14
ORGANIZACION COMUNAL 1 0.55 99.47 15
PROCESOS INDUSTRIALES 1 0.55 100.02 16
Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025 Nota: Una comuna puede tener múltiples tipologías, pero se cuenta una sola vez por tipología

Nota: Esta tabla representa la distribución territorial de las tipologías, contabilizando cuántas comunas están afectadas por cada tipo de nudo crítico.

5.3 Tabla 4.3: Análisis Comparativo CFG - Proyectos vs Comunas Afectadas

Tabla 4.3: Análisis Comparativo CFG - Proyectos vs Comunas Afectadas
Por Proyectos
Por Comunas
Indicador
Rank Tipología CFG N° Proy. % Proy. N° Com. % Com. Intensidad
1 MANEJO INTEGRAL DEL AGUA 54 27.27 43 23.63 1.26
2 VIALIDAD 30 15.15 27 14.84 1.11
3 VIVIENDA 21 10.61 21 11.54 1.00
4 ELECTRICIDAD 19 9.60 18 9.89 1.06
5 SALUD 14 7.07 14 7.69 1.00
6 INFRAESTRUCTURA 12 6.06 11 6.04 1.09
7 AMBIENTE 10 5.05 10 5.49 1.00
8 EDUCACIÓN 9 4.55 9 4.95 1.00
9 TRANSPORTE 7 3.54 7 3.85 1.00
10 TELECOMUNICACIONES 6 3.03 6 3.30 1.00
11 MUROS 5 2.53 5 2.75 1.00
12 SOCIO PRODUCTIVO 4 2.02 4 2.20 1.00
13 SEGURIDAD 3 1.52 3 1.65 1.00
14 CANALIZACION 2 1.01 2 1.10 1.00
15 ORGANIZACION COMUNAL 1 0.51 1 0.55 1.00
16 PROCESOS INDUSTRIALES 1 0.51 1 0.55 1.00
Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025 Intensidad = N° Proyectos / N° Comunas (promedio de proyectos por comuna por tipología)

Nota: El indicador de intensidad (proyectos/comuna) permite identificar tipologías con mayor concentración de problemas por territorio.

5.4 Tabla 4.4: Resumen Ejecutivo - Top 10 Tipologías CFG Más Críticas

Tabla 4.4: Resumen Ejecutivo - Top 10 Tipologías CFG Más Críticas
Análisis por Proyectos
Por Comunas
Pos. Nivel Tipología CFG Proy. % % Acum. Com. % Com.
1 🔴 Crítico MANEJO INTEGRAL DEL AGUA 54 27.3 27.3 43 72.9
2 🔴 Crítico VIALIDAD 30 15.2 42.5 27 45.8
3 🔴 Crítico VIVIENDA 21 10.6 53.1 21 35.6
4 🟡 Alto ELECTRICIDAD 19 9.6 62.7 18 30.5
5 🟡 Alto SALUD 14 7.1 69.8 14 23.7
6 🟡 Alto INFRAESTRUCTURA 12 6.1 75.9 11 18.6
7 🟡 Alto AMBIENTE 10 5.1 81.0 10 16.9
8 🟢 Medio EDUCACIÓN 9 4.5 85.5 9 15.3
9 🟢 Medio TRANSPORTE 7 3.5 89.0 7 11.9
10 🟢 Medio TELECOMUNICACIONES 6 3.0 92.0 6 10.2
Nota: Total analizado: 198 proyectos en 59 comunas. El Top 10 concentra el 92% de todos los nudos críticos.

Nota: Clasificación por nivel de criticidad basado en la frecuencia de aparición y distribución territorial.

6 Exportación de Datos para Análisis Adicional

7 Resumen Interpretativo del Análisis CFG

Los resultados muestran que las tipologías CFG presentan distribuciones heterogéneas tanto en frecuencia de proyectos como en alcance territorial. Las primeras cuatro tipologías concentran más del 60% de los nudos críticos identificados, indicando áreas prioritarias para la intervención.

Para complementar el análisis global, identificamos la tipología más frecuente en cada comuna. Esto nos permite ver si el patrón global se replica localmente o si existen particularidades territoriales.

Al igual que con las tipologías CFG, calculamos la frecuencia absoluta y relativa de las categorías de gobernación. Esto nos permite identificar qué actores institucionales son más relevantes en la gestión de los proyectos.

##Frecuencias de gobernación

#----------------------------Resumen Gobernación por Comuna----------------------
## Análisis para Gobernación ----
# Conteo y proporciones globales por Tipologia de Gobernación
freq_gob <- df_dummies %>%
  count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, name = "n") %>%
  arrange(desc(n)) %>%
  mutate(pct = n / sum(n) * 100)


#  Gráfico de barras (Top 10) de gobernación por proyectos
freq_gob %>%
  slice(1:10) %>%
  ggplot(aes(x = reorder(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, n),
             y = n)) +
    geom_col(fill = "darkred") +
    coord_flip() +
    labs(
      title = "Top 10 categorías de Gobernación más frecuentes",
      x     = "Categoría de Gobernación",
      y     = "Número de proyectos"
    ) +
    theme_minimal()

# Frecuencia absoluta y relativa por comuna
freq_gob_comuna <- df_dummies %>%
  distinct(ID_COMUNA, CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION) %>%  
  count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, name = "n_comunas") %>%
  arrange(desc(n_comunas)) %>%
  mutate(
    pct_comunas = n_comunas / sum(n_comunas) * 100,
    cum_pct     = cumsum(pct_comunas)
  )


#----------------------------Gráfico de top 10 por comuna---------------------------
freq_gob_comuna %>%
  slice(1:10) %>%
  ggplot(aes(
    x = reorder(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, n_comunas),
    y = n_comunas
  )) +
  geom_col(fill = "darkred") +
  coord_flip() +
  labs(
    title = "Top 10 categorías de Gobernación por número de comunas",
    x     = "Categoría de Gobernación",
    y     = "Número de comunas"
  ) +
  theme_minimal()

# ------------------------Global - Proyectos-------------------------------------------
gob_global_proyectos <- analizar_frecuencia(
  df_raw,
  CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
  "darkred", "gold",
  "Frecuencia global de categorías de Gobernación (Proyectos)",
  "proyectos"
)

# -------------------------Global - Comunas--------------------------------------------
gob_global_comunas <- analizar_frecuencia_comuna(
  df_raw,
  CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
  "darkred", "gold",
  "Frecuencia de categorías de Gobernación por comuna"
)

#----------------------Grafico de frecuencias de categorías de Gobernación-------------
print(gob_global_proyectos$plot)

#----Grafico Frecuencia absoluta y relativa de comunas por categoría de Gobernación----
print(gob_global_comunas$plot)

# ==============================================================================
#  TABLA COMPLETA DE FRECUENCIAS GOBERNACIÓN POR PROYECTOS
# ==============================================================================
crear_tabla_gob_proyectos <- function(data) {
  
  # Calcular frecuencias
  tabla_gob <- data %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, name = "n_proyectos") %>%
    arrange(desc(n_proyectos)) %>%
    mutate(
      porcentaje = round(n_proyectos / sum(n_proyectos) * 100, 2),
      pct_acumulado = round(cumsum(porcentaje), 2),
      ranking = row_number()
    ) %>%
    rename(
      "Ranking" = ranking,
      "Categoría Gobernación" = CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
      "N° Proyectos" = n_proyectos,
      "Porcentaje (%)" = porcentaje,
      "% Acumulado" = pct_acumulado
    )
  
  # Crear tabla formateada con kableExtra
  tabla_final <- tabla_gob %>%
    kable(
      caption = "Tabla 5.1: Distribución de Frecuencias de Categorías de Gobernación por Número de Proyectos",
      align = c("c", "l", "c", "c", "c"),
      format = "html"
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 12
    ) %>%
    column_spec(1, bold = TRUE, color = "white", background = "#8B0000") %>%
    column_spec(2, width = "20em") %>%
    column_spec(3:5, width = "8em") %>%
    row_spec(1:4, background = "#ffebee") %>%  # Resaltar top 4
    add_header_above(c(" " = 2, "Frecuencias Absolutas y Relativas" = 3)) %>%
    footnote(
      general = c(
        "Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025",
        "Nota: Las primeras 4 categorías concentran el 51.5% de todos los proyectos"
      ),
      general_title = "",
      footnote_as_chunk = TRUE
    )
  
  return(list(datos = tabla_gob, tabla = tabla_final))
}

# ==============================================================================
#  TABLA COMPLETA DE FRECUENCIAS GOBERNACIÓN POR COMUNAS
# ==============================================================================
crear_tabla_gob_comunas <- function(data) {
  
  # Calcular frecuencias por comuna (sin repetir comunas)
  tabla_gob_comunas <- data %>%
    distinct(ID_COMUNA, CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION) %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, name = "n_comunas") %>%
    arrange(desc(n_comunas)) %>%
    mutate(
      porcentaje = round(n_comunas / sum(n_comunas) * 100, 2),
      pct_acumulado = round(cumsum(porcentaje), 2),
      ranking = row_number()
    ) %>%
    rename(
      "Ranking" = ranking,
      "Categoría Gobernación" = CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
      "N° Comunas" = n_comunas,
      "Porcentaje (%)" = porcentaje,
      "% Acumulado" = pct_acumulado
    )
  
  # Crear tabla formateada
  tabla_final <- tabla_gob_comunas %>%
    kable(
      caption = "Tabla 5.2: Distribución de Frecuencias de Categorías de Gobernación por Número de Comunas Afectadas",
      align = c("c", "l", "c", "c", "c"),
      format = "html"
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 12
    ) %>%
    column_spec(1, bold = TRUE, color = "white", background = "#8B0000") %>%
    column_spec(2, width = "20em") %>%
    column_spec(3:5, width = "8em") %>%
    row_spec(1:4, background = "#ffebee") %>%  # Resaltar top 4
    add_header_above(c(" " = 2, "Distribución Territorial" = 3)) %>%
    footnote(
      general = c(
        "Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025",
        "Nota: Una comuna puede tener múltiples categorías, pero se cuenta una sola vez por categoría"
      ),
      general_title = "",
      footnote_as_chunk = TRUE
    )
  
  return(list(datos = tabla_gob_comunas, tabla = tabla_final))
}

# ==============================================================================
# TABLA COMPARATIVA GOBERNACIÓN: PROYECTOS VS COMUNAS
# ==============================================================================
crear_tabla_comparativa_gob <- function(data) {
  
  # Datos por proyectos
  gob_proyectos <- data %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, name = "n_proyectos") %>%
    mutate(pct_proyectos = round(n_proyectos / sum(n_proyectos) * 100, 2))
  
  # Datos por comunas
  gob_comunas <- data %>%
    distinct(ID_COMUNA, CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION) %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, name = "n_comunas") %>%
    mutate(pct_comunas = round(n_comunas / sum(n_comunas) * 100, 2))
  
  # Unir ambas tablas
  tabla_comparativa <- gob_proyectos %>%
    inner_join(gob_comunas, by = "CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION") %>%
    arrange(desc(n_proyectos)) %>%
    mutate(
      ranking = row_number(),
      intensidad = round(n_proyectos / n_comunas, 2)  # Proyectos por comuna promedio
    ) %>%
    select(
      ranking,
      CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
      n_proyectos, pct_proyectos,
      n_comunas, pct_comunas,
      intensidad
    ) %>%
    rename(
      "Rank" = ranking,
      "Categoría Gobernación" = CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
      "N° Proy." = n_proyectos,
      "% Proy." = pct_proyectos,
      "N° Com." = n_comunas,
      "% Com." = pct_comunas,
      "Intensidad" = intensidad
    )
  
  # Crear tabla formateada
  tabla_final <- tabla_comparativa %>%
    kable(
      caption = "Tabla 5.3: Análisis Comparativo Gobernación - Proyectos vs Comunas Afectadas",
      align = c("c", "l", rep("c", 5)),
      format = "html",
      digits = 2
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 11
    ) %>%
    column_spec(1, bold = TRUE, color = "white", background = "#8B0000", width = "3em") %>%
    column_spec(2, width = "15em") %>%
    column_spec(3:7, width = "6em") %>%
    add_header_above(c(" " = 2, "Por Proyectos" = 2, "Por Comunas" = 2, "Indicador" = 1)) %>%
    row_spec(1:3, background = "#ffcdd2") %>%  # Top 3 en rojo suave
    row_spec(4:7, background = "#ffecb3") %>%  # Siguientes 4 en amarillo suave
    footnote(
      general = c(
        "Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025",
        "Intensidad = N° Proyectos / N° Comunas (promedio de proyectos por comuna por categoría)"
      ),
      general_title = "",
      footnote_as_chunk = TRUE
    )
  
  return(list(datos = tabla_comparativa, tabla = tabla_final))
}

# ==============================================================================
#  TABLA RESUMEN EJECUTIVO GOBERNACIÓN (TOP 10)
# ==============================================================================
crear_tabla_resumen_gob <- function(data) {
  
  # Calcular estadísticas resumidas
  total_proyectos <- nrow(data)
  total_comunas <- n_distinct(data$ID_COMUNA)
  
  resumen_gob <- data %>%
    count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, name = "proyectos") %>%
    arrange(desc(proyectos)) %>%
    slice(1:10) %>%  # Solo top 10
    mutate(
      pct_proyectos = round(proyectos / total_proyectos * 100, 1),
      pct_acum = round(cumsum(pct_proyectos), 1)
    ) %>%
    # Agregar datos de comunas
    left_join(
      data %>%
        distinct(ID_COMUNA, CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION) %>%
        count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION, name = "comunas"),
      by = "CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION"
    ) %>%
    mutate(
      pct_comunas = round(comunas / total_comunas * 100, 1),
      posicion = row_number(),
      categoria = case_when(
        posicion <= 3 ~ "🔴 Crítico",
        posicion <= 7 ~ "🟡 Alto",
        TRUE ~ "🟢 Medio"
      )
    ) %>%
    select(
      posicion, categoria,
      CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
      proyectos, pct_proyectos, pct_acum,
      comunas, pct_comunas
    ) %>%
    rename(
      "Pos." = posicion,
      "Nivel" = categoria,
      "Categoría Gobernación" = CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION,
      "Proy." = proyectos,
      "%" = pct_proyectos,
      "% Acum." = pct_acum,
      "Com." = comunas,
      "% Com." = pct_comunas
    )
  
  # Crear tabla formateada
  tabla_final <- resumen_gob %>%
    kable(
      caption = "Tabla 5.4: Resumen Ejecutivo - Top 10 Categorías de Gobernación Más Críticas",
      align = c("c", "c", "l", rep("c", 5)),
      format = "html"
    ) %>%
    kable_styling(
      bootstrap_options = c("striped", "hover", "condensed", "responsive"),
      full_width = FALSE,
      position = "center",
      font_size = 11
    ) %>%
    column_spec(1, bold = TRUE, width = "3em") %>%
    column_spec(2, width = "8em") %>%
    column_spec(3, width = "15em") %>%
    column_spec(4:8, width = "5em") %>%
    add_header_above(c(" " = 3, "Análisis por Proyectos" = 3, "Por Comunas" = 2)) %>%
    footnote(
      general = paste0(
        "Total analizado: ", total_proyectos, " proyectos en ", total_comunas, " comunas. ",
        "El Top 10 concentra el ", round(sum(resumen_gob$`%`), 1), "% de todos los proyectos."
      ),
      general_title = "Nota:",
      footnote_as_chunk = TRUE
    )
  
  return(list(datos = resumen_gob, tabla = tabla_final))
}

8 Análisis de Categorías de Gobernación: Tablas Descriptivas

En esta sección presentamos el análisis detallado de las categorías de gobernación mediante tablas descriptivas que permiten visualizar la distribución, frecuencia e impacto territorial de los nudos críticos identificados.

8.1 Tabla 5.1: Distribución de Frecuencias de Categorías de Gobernación por Número de Proyectos

Tabla 5.1: Distribución de Frecuencias de Categorías de Gobernación por Número de Proyectos
Frecuencias Absolutas y Relativas
Categoría Gobernación N° Proyectos Porcentaje (%) % Acumulado Ranking
AGUA POTABLE 28 14.14 14.14 1
VIVIENDA 23 11.62 25.76 2
ELECTRICIDAD 19 9.60 35.36 3
VIALIDAD 18 9.09 44.45 4
EQUIPAMIENTO SALUD 14 7.07 51.52 5
AGUA RESIDUAL 13 6.57 58.09 6
DRENAJES 13 6.57 64.66 7
EQUIPAMIENTO EDUCATIVO 12 6.06 70.72 8
CANALIZACION 10 5.05 75.77 9
TRANSPORTE 8 4.04 79.81 10
VIALIDAD AGRICOLA 8 4.04 83.85 11
TELECOMUNICACIONES 6 3.03 86.88 12
INFRAESTRUCTURA 5 2.53 89.41 13
MUROS 5 2.53 91.94 14
SOCIO PRODUCTIVO 4 2.02 93.96 15
EQUIPAMIENTO SEGURIDAD 3 1.52 95.48 16
PUENTE 3 1.52 97.00 17
SISTEMAS DE RIEGO 3 1.52 98.52 18
AGUA 1 0.51 99.03 19
GAS 1 0.51 99.54 20
ORGANIZACION COMUNAL 1 0.51 100.05 21
Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025 Nota: Las primeras 4 categorías concentran el 51.5% de todos los proyectos

Nota: La tabla muestra la distribución absoluta y relativa de las categorías de gobernación según el número de proyectos asociados.

8.2 Tabla 5.2: Distribución de Frecuencias de Categorías de Gobernación por Número de Comunas Afectadas

Tabla 5.2: Distribución de Frecuencias de Categorías de Gobernación por Número de Comunas Afectadas
Distribución Territorial
Categoría Gobernación N° Comunas Porcentaje (%) % Acumulado Ranking
AGUA POTABLE 26 13.54 13.54 1
VIVIENDA 22 11.46 25.00 2
ELECTRICIDAD 18 9.38 34.38 3
VIALIDAD 17 8.85 43.23 4
EQUIPAMIENTO SALUD 14 7.29 50.52 5
DRENAJES 13 6.77 57.29 6
AGUA RESIDUAL 12 6.25 63.54 7
EQUIPAMIENTO EDUCATIVO 12 6.25 69.79 8
CANALIZACION 10 5.21 75.00 9
TRANSPORTE 8 4.17 79.17 10
VIALIDAD AGRICOLA 8 4.17 83.34 11
TELECOMUNICACIONES 6 3.12 86.46 12
INFRAESTRUCTURA 5 2.60 89.06 13
MUROS 5 2.60 91.66 14
SOCIO PRODUCTIVO 4 2.08 93.74 15
EQUIPAMIENTO SEGURIDAD 3 1.56 95.30 16
PUENTE 3 1.56 96.86 17
SISTEMAS DE RIEGO 3 1.56 98.42 18
AGUA 1 0.52 98.94 19
GAS 1 0.52 99.46 20
ORGANIZACION COMUNAL 1 0.52 99.98 21
Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025 Nota: Una comuna puede tener múltiples categorías, pero se cuenta una sola vez por categoría

Nota: Esta tabla representa la distribución territorial de las categorías de gobernación, contabilizando cuántas comunas están afectadas por cada tipo de nudo crítico.

8.3 Tabla 5.3: Análisis Comparativo Gobernación - Proyectos vs Comunas Afectadas

Tabla 5.3: Análisis Comparativo Gobernación - Proyectos vs Comunas Afectadas
Por Proyectos
Por Comunas
Indicador
Rank Categoría Gobernación N° Proy. % Proy. N° Com. % Com. Intensidad
1 AGUA POTABLE 28 14.14 26 13.54 1.08
2 VIVIENDA 23 11.62 22 11.46 1.05
3 ELECTRICIDAD 19 9.60 18 9.38 1.06
4 VIALIDAD 18 9.09 17 8.85 1.06
5 EQUIPAMIENTO SALUD 14 7.07 14 7.29 1.00
6 AGUA RESIDUAL 13 6.57 12 6.25 1.08
7 DRENAJES 13 6.57 13 6.77 1.00
8 EQUIPAMIENTO EDUCATIVO 12 6.06 12 6.25 1.00
9 CANALIZACION 10 5.05 10 5.21 1.00
10 TRANSPORTE 8 4.04 8 4.17 1.00
11 VIALIDAD AGRICOLA 8 4.04 8 4.17 1.00
12 TELECOMUNICACIONES 6 3.03 6 3.12 1.00
13 INFRAESTRUCTURA 5 2.53 5 2.60 1.00
14 MUROS 5 2.53 5 2.60 1.00
15 SOCIO PRODUCTIVO 4 2.02 4 2.08 1.00
16 EQUIPAMIENTO SEGURIDAD 3 1.52 3 1.56 1.00
17 PUENTE 3 1.52 3 1.56 1.00
18 SISTEMAS DE RIEGO 3 1.52 3 1.56 1.00
19 AGUA 1 0.51 1 0.52 1.00
20 GAS 1 0.51 1 0.52 1.00
21 ORGANIZACION COMUNAL 1 0.51 1 0.52 1.00
Fuente: Elaboración propia basada en datos del Estado Mérida 2019-2025 Intensidad = N° Proyectos / N° Comunas (promedio de proyectos por comuna por categoría)

Nota: El indicador de intensidad (proyectos/comuna) permite identificar categorías con mayor concentración de problemas por territorio.

8.4 Tabla 5.4: Resumen Ejecutivo - Top 10 Categorías de Gobernación Más Críticas

Tabla 5.4: Resumen Ejecutivo - Top 10 Categorías de Gobernación Más Críticas
Análisis por Proyectos
Por Comunas
Pos. Nivel Categoría Gobernación Proy. % % Acum. Com. % Com.
1 🔴 Crítico AGUA POTABLE 28 14.1 14.1 26 44.1
2 🔴 Crítico VIVIENDA 23 11.6 25.7 22 37.3
3 🔴 Crítico ELECTRICIDAD 19 9.6 35.3 18 30.5
4 🟡 Alto VIALIDAD 18 9.1 44.4 17 28.8
5 🟡 Alto EQUIPAMIENTO SALUD 14 7.1 51.5 14 23.7
6 🟡 Alto AGUA RESIDUAL 13 6.6 58.1 12 20.3
7 🟡 Alto DRENAJES 13 6.6 64.7 13 22.0
8 🟢 Medio EQUIPAMIENTO EDUCATIVO 12 6.1 70.8 12 20.3
9 🟢 Medio CANALIZACION 10 5.1 75.9 10 16.9
10 🟢 Medio TRANSPORTE 8 4.0 79.9 8 13.6
Nota: Total analizado: 198 proyectos en 59 comunas. El Top 10 concentra el 79.9% de todos los proyectos.

Nota: Clasificación por nivel de criticidad basado en la frecuencia de aparición y distribución territorial.

9 Gráficos Adicionales de Distribución de Proyectos

10 Exportación de Datos de Gobernación

11 Resumen Interpretativo del Análisis de Gobernación

Los resultados muestran que las categorías de gobernación presentan distribuciones heterogéneas tanto en frecuencia de proyectos como en alcance territorial. Las primeras cuatro categorías concentran más del 50% de los proyectos, indicando áreas prioritarias para la intervención.

12 Desarrollamos indice Shannon y Pielou

13 Indice Shannon y Pielou por Comunas y Tipología CFG y de Gobernación

#--------------------------Crear mapeo único de ID_COMUNA a COMUNA-----------------------------
commune_map <- df_raw %>%
  distinct(ID_COMUNA, COMUNA) %>%
  mutate(COMUNA = str_trim(COMUNA))  # Limpiar espacios extras

## Detectar dinámicamente las columnas dummy
cfg_cols <- grep("^CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_", 
                 names(df_dummies), value = TRUE)
gob_cols <- grep("^CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION_", 
                 names(df_dummies), value = TRUE)

## Calcular diversidad para las Tipología CFG con nombres de comunas
div_cfg <- df_dummies %>%
  group_by(ID_COMUNA) %>%
  summarise(
    n_proyectos = n(),
    across(all_of(cfg_cols), sum, na.rm = TRUE)
  ) %>%
  ungroup() %>%
  # Agregar nombres de comunas
  left_join(commune_map, by = "ID_COMUNA") %>%
  # Calcular índices de diversidad
  {
    cnts <- select(., all_of(cfg_cols))
    tib <- select(., ID_COMUNA, COMUNA, n_proyectos)
    H <- vegan::diversity(cnts, index = "shannon")
    richesse <- rowSums(cnts > 0)
    J <- ifelse(richesse > 0, H / log(richesse), NA_real_)
    bind_cols(tib, H_shannon = H, pielou = J)
  }
## Warning: There was 1 warning in `summarise()`.
## ℹ In argument: `across(all_of(cfg_cols), sum, na.rm = TRUE)`.
## ℹ In group 1: `ID_COMUNA = "140101-C-MIX-2018-11-0147"`.
## Caused by warning:
## ! The `...` argument of `across()` is deprecated as of dplyr 1.1.0.
## Supply arguments directly to `.fns` through an anonymous function instead.
## 
##   # Previously
##   across(a:b, mean, na.rm = TRUE)
## 
##   # Now
##   across(a:b, \(x) mean(x, na.rm = TRUE))
# Crear columna combinada para mostrar en tablas
div_cfg <- div_cfg %>%
  mutate(COMUNA_ID_NOMBRE = paste(ID_COMUNA, "-", COMUNA))

# Tabla: Top 10 comunas más diversas (con ID y nombre)
top10_cfg <- div_cfg %>%
  arrange(desc(H_shannon)) %>%
  slice(1:10) %>%
  select(COMUNA_ID_NOMBRE, H_shannon, pielou, n_proyectos)

# Tabla: Top 10 comunas menos diversas (con ID y nombre)
bottom10_cfg <- div_cfg %>%
  arrange(H_shannon) %>%
  slice(1:10) %>%
  select(COMUNA_ID_NOMBRE, H_shannon, pielou, n_proyectos)

# Mostrar tablas en formato kable para Tipología CFG
cat("\n\n**10 comunas con mayor diversidad (Shannon_CFG)**\n")
## 
## 
## **10 comunas con mayor diversidad (Shannon_CFG)**
knitr::kable(top10_cfg, 
             col.names = c("Comuna (ID - Nombre)", "H_CFG (Shannon)", "J_CFG (Pielou)", "N° Proyectos"),
             digits = 3,
             caption = "Top 10 comunas con mayor índice de Shannon para CFG")
Top 10 comunas con mayor índice de Shannon para CFG
Comuna (ID - Nombre) H_CFG (Shannon) J_CFG (Pielou) N° Proyectos
141212-C-MIX-2016-02-0018 - 26. Comuna Prócer José Félix Ribas 1.831 0.941 9
141701-C-RUR-2018-11-0003 - COMUNA SOCIOPRODUCTIVA ALTO DE LA CARBONERA 1.792 1.000 6
141203-CEC-ME-025 - 18. PARROQUIA CARACCIOLO PARRA PÉREZ - COMUNA EN CONSTRUCCIÓN LAS HEROÍNAS DE MERIDA 1.609 1.000 5
141705-14-17-0000 - 25. Comuna El Paso de Bolívar 1813 1.609 1.000 5
141206-C-MIX-2018-11-0158 - COMUNA EN CONSTRUCCIÓN MUCUJÚN 1.561 0.970 6
141211-14-12-0001 - 7. Consejo Comunal Milla Parte Media 1.330 0.959 6
141211-14-12-0001 - 30. Consejo Comunal Unión Social 10 de Febrero 1.330 0.959 6
140101-C-MIX-2018-11-0147 - 8. COMUNA FIELES A CHÁVEZ 1.099 1.000 3
140101-C-RUR-2018-11-0018 - 14. COMUNA TIERRA DE ZAMORA 1.099 1.000 3
140101-C-RUR-2018-11-0019 - 12. COMUNA MANUELITA SÁENZ 1.099 1.000 3 
cat("\n\n**10 comunas con menor diversidad (Shannon_CFG)**\n")
## 
## 
## **10 comunas con menor diversidad (Shannon_CFG)**
knitr::kable(bottom10_cfg,
             col.names = c("Comuna (ID - Nombre)", "H_CFG (Shannon)", "J_CFG (Pielou)", "N° Proyectos"),
             digits = 3,
             caption = "Top 10 comunas con menor índice de Shannon para CFG")
Top 10 comunas con menor índice de Shannon para CFG
Comuna (ID - Nombre) H_CFG (Shannon) J_CFG (Pielou) N° Proyectos
140101-C-URB-2018-11-0018 - 11. COMUNA UNIÓN DE CHÁVEZ 0.637 0.918 3
140103-14-01-0005 - 19. COMUNA El PASO DE LOS ANDES 0.637 0.918 3
140602-C-MIX-2021-05-0007 - COMUNA SU LEGADO ES NUESTRA FORTALEZA SIMON PABLO FIGUEROA. 0.637 0.918 3
140605-14-06-0001 - 20. COMUNA LOMAS UNIDAS MACHO CAPAZ 0.637 0.918 3
140606-C-RUR-2021-03-0002 - COMUNA IGNACIO FERNÁNDEZ PEÑA 0.637 0.918 3
141704-CEC-ME-108 - 27. Comuna en Construcción de Escaguey 0.637 0.918 3
142102-C-MIX-2021-10-0011 - COMUNA LOS IDEALES DE CHÁVEZ 0.637 0.918 3
142104-14-21-0002 - COMUNA PATRIA NUEVA. 0.637 0.918 3
140102-C-MIX-2021-01-0003 - COMUNA ETERNO GIGANTE 0.693 1.000 2
142006-C-MIX-2016-05-0006 - COMUNA SAN JUAN DE LOS LIBERTADORES COMANDANTE SUPREMO 0.868 0.790 6 
## Preparar datos para gráfico consolidado para CFG
tabla_extremos_cfg <- bind_rows(
  top10_cfg  %>% mutate(tipo = "Top 10 ↑") %>% rename(COMUNA = COMUNA_ID_NOMBRE),
  bottom10_cfg %>% mutate(tipo = "Top 10 ↓") %>% rename(COMUNA = COMUNA_ID_NOMBRE)
) %>%
  # Crear etiqueta ordenada por H_shannon
  mutate(COMUNA_ORD = reorder(COMUNA, H_shannon))

#---------------Gráfico: Shannon (barras) + Pielou (línea) para CFG------------------------#
maxH <- max(tabla_extremos_cfg$H_shannon)

# Ajustar el gráfico con dimensiones específicas
cfg_plot <- ggplot(tabla_extremos_cfg, aes(x = COMUNA_ORD, y = H_shannon, fill = tipo)) +
  geom_line(aes(y = pielou * maxH, group = 1), 
            color = "#E69F00", size = 1.0, linetype = "dashed") +
  geom_point(aes(y = pielou * maxH), 
             color = "#D55E00", size = 2.5, shape = 18) +
  # Etiquetas de Pielou desplazadas a la derecha
  geom_text(aes(y = pielou * maxH, label = sprintf("J=%.2f", pielou)),
            hjust = -0.3, size = 2.5, color = "#D55E00") +  # Ajustado hjust

  geom_col(width = 0.7, alpha = 0.9) +
  geom_text(aes(y = H_shannon, label = sprintf("%.2f (%.1f)", H_shannon, exp(H_shannon))),
            hjust = 1.1, size = 2.8, color = "white", fontface = "bold") +  # Tamaño ajustado
  facet_wrap(~ tipo, scales = "free_y", ncol = 1) +
  coord_flip() +
  scale_y_continuous(
    name = "Índice de Shannon (H)",
    limits = c(0, maxH * 1.15), 
    sec.axis = sec_axis(~ . / maxH, name = "Índice de Pielou (J)",
                        labels = scales::number_format(accuracy = 0.1))
  ) +
  scale_fill_manual(values = c("Top 10 ↑" = "#56B4E9", "Top 10 ↓" = "#CC79A7")) +
  labs(
    title = "Diversidad de Tipologías CFG por Comuna",
    subtitle = "Top 10 comunas con mayor y menor diversidad | Barras: Shannon (H) | Línea: Pielou (J)",
    x = "Comuna (ID - Nombre)",
    caption = "Fuente: Elaboración propia datos de proyectos ACA - William Gutierrez"
  ) +
  theme_minimal(base_size = 10) +
  theme(
    plot.title = element_text(face = "bold", size = 14, hjust = 0.5),
    plot.subtitle = element_text(size = 10, color = "gray40", hjust = 0.5),
    axis.title.y = element_text(margin = margin(r = 10)),
    axis.title.x = element_text(margin = margin(t = 10)),
    axis.text.y = element_text(size = 8),  # Reducir tamaño texto eje Y
    panel.grid.major.y = element_blank(),
    strip.text = element_text(face = "bold", size = 11),
    legend.position = "none",
    plot.margin = margin(1, 2, 1, 1, "cm")  # Aumentar margen derecho
  )

# Guardar con dimensiones específicas
ggsave("cfg_diversity_plot.png", cfg_plot, width = 14, height = 10, dpi = 300)
print(cfg_plot)

## Calcular diversidad para Tipología de Gobernación con nombres
div_gob <- df_dummies %>%
  group_by(ID_COMUNA) %>%
  summarise(
    n_proyectos = n(),
    across(all_of(gob_cols), sum, na.rm = TRUE)
  ) %>%
  ungroup() %>%
  # Agregar nombres de comunas
  left_join(commune_map, by = "ID_COMUNA") %>%
  # Calcular índices de diversidad
  {
    cnts <- select(., all_of(gob_cols))
    tib <- select(., ID_COMUNA, COMUNA, n_proyectos)
    H <- vegan::diversity(cnts, index = "shannon")
    richesse <- rowSums(cnts > 0)
    J <- ifelse(richesse > 0, H / log(richesse), NA_real_)
    bind_cols(tib, H_shannon = H, pielou = J)
  }

# Crear columna combinada para mostrar en tablas
div_gob <- div_gob %>%
  mutate(COMUNA_ID_NOMBRE = paste(ID_COMUNA, "-", COMUNA))

## Mostrar tablas con nombres
top10_gob <- div_gob %>% 
  arrange(desc(H_shannon)) %>% 
  slice(1:10) %>%
  select(COMUNA_ID_NOMBRE, n_proyectos, H_shannon, pielou)

bottom10_gob <- div_gob %>% 
  arrange(H_shannon) %>% 
  slice(1:10) %>%
  select(COMUNA_ID_NOMBRE, n_proyectos, H_shannon, pielou)

cat("\n\n**Top 10 comunas con mayor diversidad (Shannon) de Gobernación**\n")
## 
## 
## **Top 10 comunas con mayor diversidad (Shannon) de Gobernación**
knitr::kable(top10_gob,
             col.names = c("Comuna (ID - Nombre)", "N° Proyectos", "H_GOB (Shannon)", "J_GOB (Pielou)"),
             digits = 3, 
             caption = "Top 10 comunas con mayor índice de Shannon para Gobernación")
Top 10 comunas con mayor índice de Shannon para Gobernación
Comuna (ID - Nombre) N° Proyectos H_GOB (Shannon) J_GOB (Pielou)
141212-C-MIX-2016-02-0018 - 26. Comuna Prócer José Félix Ribas 9 2.197 1.000
141206-C-MIX-2018-11-0158 - COMUNA EN CONSTRUCCIÓN MUCUJÚN 6 1.792 1.000
141203-CEC-ME-025 - 18. PARROQUIA CARACCIOLO PARRA PÉREZ - COMUNA EN CONSTRUCCIÓN LAS HEROÍNAS DE MERIDA 5 1.609 1.000
141705-14-17-0000 - 25. Comuna El Paso de Bolívar 1813 5 1.609 1.000
141701-C-RUR-2018-11-0003 - COMUNA SOCIOPRODUCTIVA ALTO DE LA CARBONERA 6 1.561 0.970
142006-C-MIX-2016-05-0006 - COMUNA SAN JUAN DE LOS LIBERTADORES COMANDANTE SUPREMO 6 1.561 0.970
141211-14-12-0001 - 7. Consejo Comunal Milla Parte Media 6 1.330 0.959
141211-14-12-0001 - 30. Consejo Comunal Unión Social 10 de Febrero 6 1.330 0.959
140101-C-MIX-2018-11-0147 - 8. COMUNA FIELES A CHÁVEZ 3 1.099 1.000
140101-C-RUR-2018-11-0018 - 14. COMUNA TIERRA DE ZAMORA 3 1.099 1.000 
cat("\n\n**Top 10 comunas con menor diversidad (Shannon) de Gobernación**\n")
## 
## 
## **Top 10 comunas con menor diversidad (Shannon) de Gobernación**
knitr::kable(bottom10_gob,
             col.names = c("Comuna (ID - Nombre)", "N° Proyectos", "H_GOB (Shannon)", "J_GOB (Pielou)"),
             digits = 3, 
             caption = "Top 10 comunas con menor índice de Shannon para Gobernación")
Top 10 comunas con menor índice de Shannon para Gobernación
Comuna (ID - Nombre) N° Proyectos H_GOB (Shannon) J_GOB (Pielou)
140101-C-URB-2018-11-0018 - 11. COMUNA UNIÓN DE CHÁVEZ 3 0.637 0.918
141704-CEC-ME-108 - 27. Comuna en Construcción de Escaguey 3 0.637 0.918
140102-C-MIX-2021-01-0003 - COMUNA ETERNO GIGANTE 2 0.693 1.000
140101-C-MIX-2018-11-0147 - 8. COMUNA FIELES A CHÁVEZ 3 1.099 1.000
140101-C-RUR-2018-11-0018 - 14. COMUNA TIERRA DE ZAMORA 3 1.099 1.000
140101-C-RUR-2018-11-0019 - 12. COMUNA MANUELITA SÁENZ 3 1.099 1.000
140102-14-01-0006 - COMUNA SOCIALISTA EZEQUIEL ZAMORA 3 1.099 1.000
140102-14-01-2007 - COMUNA SIMON BOLÍVAR. 3 1.099 1.000
140102-C-MIX-2018-11-0019 - COMUNA PRESIDENTE OBRERO 3 1.099 1.000
140102-C-MIX-2018-11-0084 - COMUNA LUZ DEL ALBA 3 1.099 1.000 
## Preparar datos para gráfico de Gobernación
tabla_extremos_gob <- bind_rows(
  top10_gob %>% mutate(tipo = "Top 10 ↑") %>% rename(COMUNA = COMUNA_ID_NOMBRE),
  bottom10_gob %>% mutate(tipo = "Top 10 ↓") %>% rename(COMUNA = COMUNA_ID_NOMBRE)
) %>%
  # Crear etiqueta ordenada por H_shannon
  mutate(COMUNA_ORD = reorder(COMUNA, H_shannon))


#-------------------------Gráfica de tipología de gobernación-----------------------------#
maxH_gob <- max(tabla_extremos_gob$H_shannon)

gob_plot <- ggplot(tabla_extremos_gob, aes(x = COMUNA_ORD, y = H_shannon, fill = tipo)) +
  geom_line(aes(y = pielou * maxH_gob, group = 1), 
            color = "#E69F00", size = 1.0, linetype = "dashed") +
  geom_point(aes(y = pielou * maxH_gob), 
             color = "#D55E00", size = 2.5, shape = 18) +
  # Etiquetas de Pielou desplazadas a la derecha
  geom_text(aes(y = pielou * maxH_gob, label = sprintf("J=%.2f", pielou)),
            hjust = -0.2, size = 2.5, color = "#D55E00") +
  # Luego dibujar las barras de Shannon
  geom_col(width = 0.7, alpha = 0.9) +
  geom_text(aes(y = H_shannon, label = sprintf("%.2f (%.1f)", H_shannon, exp(H_shannon))),
            hjust = 1.1, size = 2.8, color = "white", fontface = "bold") +
  facet_wrap(~ tipo, scales = "free_y", ncol = 1) +
  coord_flip() +
  scale_y_continuous(
    name = "Índice de Shannon (H)",
    limits = c(0, maxH_gob * 1.15),
    sec.axis = sec_axis(~ . / maxH_gob, name = "Índice de Pielou (J)",
                        labels = scales::number_format(accuracy = 0.1))
  ) +
  scale_fill_manual(values = c("Top 10 ↑" = "#56B4E9", "Top 10 ↓" = "#CC79A7")) +
  labs(
    title = "Diversidad Institucional (Gobernación) por Comuna",
    subtitle = "Top 10 comunas con mayor y menor diversidad | Barras: Shannon (H) | Línea: Pielou (J)",
    x = "Comuna (ID - Nombre)",
    caption = "Fuente: Elaboración propia datos de proyectos ACA - William Gutierrez"
  ) +
  theme_minimal(base_size = 10) +
  theme(
    plot.title = element_text(face = "bold", size = 14, hjust = 0.5),
    plot.subtitle = element_text(size = 10, color = "gray40", hjust = 0.5),
    axis.title.y = element_text(margin = margin(r = 10)),
    axis.title.x = element_text(margin = margin(t = 10)),
    axis.text.y = element_text(size = 8),  # Reducir tamaño texto eje Y
    panel.grid.major.y = element_blank(),
    strip.text = element_text(face = "bold", size = 11),
    legend.position = "none",
    plot.margin = margin(1, 2, 1, 1, "cm")  # Aumentar margen derecho
  )

# Guardar con dimensiones específicas
ggsave("gob_diversity_plot.png", gob_plot, width = 14, height = 10, dpi = 300)
print(gob_plot)

14 Indice Shannon de ratio de proyecto por tipologías

## **Indice Shannon de ratio de proyecto por tipologías**

# Filtrar y preparar datos para Ratio
df_ratio_clean <- df_raw %>% 
  filter(!is.na(RATIO_ACA_PROYECTO_CULMINADO)) %>%  
  mutate(
    RATIO_ACA_PROYECTO_CULMINADO = factor(
      RATIO_ACA_PROYECTO_CULMINADO,
      levels = 1:4,
      labels = c("MUY BAJA", "BAJA", "MEDIA", "ALTA")
    )
  )

# Crear datos wide para diversidad
df_ratio_wide <- df_ratio_clean %>%
  group_by(ID_COMUNA, RATIO_ACA_PROYECTO_CULMINADO) %>%
  summarise(n = n(), .groups = "drop") %>%
  complete(ID_COMUNA, RATIO_ACA_PROYECTO_CULMINADO, fill = list(n = 0)) %>%
  pivot_wider(
    names_from = RATIO_ACA_PROYECTO_CULMINADO, 
    values_from = n, 
    names_prefix = "ratio_"
  )

# Asegurar que todas las columnas de ratio existan
ratio_cols <- c("ratio_MUY BAJA", "ratio_BAJA", "ratio_MEDIA", "ratio_ALTA")
for (col in ratio_cols) {
  if (!col %in% names(df_ratio_wide)) {
    df_ratio_wide[[col]] <- 0
  }
}

# Calcular diversidad para Ratio
div_ratio <- df_ratio_wide %>%
  left_join(commune_map, by = "ID_COMUNA") %>%
  mutate(n_proyectos_ratio = rowSums(select(., all_of(ratio_cols)))) %>%
  {
    cnts <- select(., all_of(ratio_cols))
    tib <- select(., ID_COMUNA, COMUNA, n_proyectos_ratio)
    H <- vegan::diversity(cnts, index = "shannon")
    richesse <- rowSums(cnts > 0)
    J <- ifelse(richesse > 0, H / log(richesse), NA_real_)
    bind_cols(tib, H_shannon = H, pielou = J)
  } %>%
  mutate(COMUNA_ID_NOMBRE = paste(ID_COMUNA, "-", COMUNA))

# Crear top y bottom 10
top10_ratio <- div_ratio %>%
  arrange(desc(H_shannon)) %>%
  slice(1:10) %>%
  select(COMUNA_ID_NOMBRE, n_proyectos_ratio, H_shannon, pielou)

bottom10_ratio <- div_ratio %>%
  arrange(H_shannon) %>%
  slice(1:10) %>%
  select(COMUNA_ID_NOMBRE, n_proyectos_ratio, H_shannon, pielou)

# Preparar datos para gráfico
tabla_extremos_ratio <- bind_rows(
  top10_ratio %>% 
    mutate(tipo = "Mayor diversidad (Top 10)") %>% 
    rename(COMUNA = COMUNA_ID_NOMBRE),
  bottom10_ratio %>% 
    mutate(tipo = "Menor diversidad (Bottom 10)") %>% 
    rename(COMUNA = COMUNA_ID_NOMBRE)
) %>%
  mutate(
    etiqueta_H = sprintf("H: %.2f", H_shannon),
    etiqueta_J = sprintf("J: %.2f", pielou)
  )
## Tabla completa (Todas las comunas)
div_ratio_completo <- div_ratio %>%
  select(COMUNA_ID_NOMBRE, n_proyectos_ratio, H_shannon, pielou) %>%
  arrange(desc(H_shannon)) %>%
  mutate(
    H_shannon = round(H_shannon, 3),
    pielou = round(pielou, 3),
    # Interpretación rápida
    Interpretacion = case_when(
      H_shannon < 0.5 ~ "Baja diversidad",
      H_shannon >= 0.5 & H_shannon < 1.0 ~ "Diversidad media",
      H_shannon >= 1.0 ~ "Alta diversidad"
    )
  )

# Mostrar tabla completa ordenada por diversidad
cat("\n\n**Diversidad de Ratio ACA en todas las comunas**\n")
## 
## 
## **Diversidad de Ratio ACA en todas las comunas**
knitr::kable(
  div_ratio_completo,
  col.names = c("Comuna (ID - Nombre)", "Proyectos", "H (Shannon)", "J (Pielou)", "Interpretación"),
  digits = 3,
  caption = "Diversidad de estados de culminación en todas las comunas"
)
Diversidad de estados de culminación en todas las comunas
Comuna (ID - Nombre) Proyectos H (Shannon) J (Pielou) Interpretación
141212-C-MIX-2016-02-0018 - 26. Comuna Prócer José Félix Ribas 9 1.311 0.946 Alta diversidad
140101-C-RUR-2018-11-0019 - 12. COMUNA MANUELITA SÁENZ 3 1.099 1.000 Alta diversidad
140102-C-MIX-2018-11-0019 - COMUNA PRESIDENTE OBRERO 3 1.099 1.000 Alta diversidad
140103-14-01-0002 - COMUNA AGRARIA SOCIALISTA GUACHARE 3 1.099 1.000 Alta diversidad
140103-14-01-0005 - 19. COMUNA El PASO DE LOS ANDES 3 1.099 1.000 Alta diversidad
140301-C-MIX-2018-02-0043 - 28. Comuna Socialista Agroindustrial de Paiva 3 1.099 1.000 Alta diversidad
140301-C-RUR-2021-10-0022 - COMUNA AGROTURÍSTICA LA NEBLINA DE SALINAS 3 1.099 1.000 Alta diversidad
140802-C-MIX-2018-02-0019 - COMUNA CARRIZALES UNIDOS 3 1.099 1.000 Alta diversidad
141207-C-MIX-2015-11-0005 - COMUNA SAN JACINTO ABRIENDO BRECHA 3 1.099 1.000 Alta diversidad
141601-C-RUR-2018-11-0024 - COMUNA PRODUCTIVA AMANECER CAMPESINO 3 1.099 1.000 Alta diversidad
141601-C-RUR-2018-11-0027 - COMUNA LA PIEDRA QUE CRECE EN REVOLUCIÓN 3 1.099 1.000 Alta diversidad
141901-C-MIX-2018-06-0007 - 15. COMUNA ECOSOCIALISTA, AGROTURÍSTICA Y CULTURAL MUCUY 3 1.099 1.000 Alta diversidad
142104-14-21-0002 - COMUNA PATRIA NUEVA. 3 1.099 1.000 Alta diversidad
141203-CEC-ME-025 - 18. PARROQUIA CARACCIOLO PARRA PÉREZ - COMUNA EN CONSTRUCCIÓN LAS HEROÍNAS DE MERIDA 5 1.055 0.960 Alta diversidad
141206-C-MIX-2018-11-0158 - COMUNA EN CONSTRUCCIÓN MUCUJÚN 6 1.011 0.921 Alta diversidad
141701-C-RUR-2018-11-0003 - COMUNA SOCIOPRODUCTIVA ALTO DE LA CARBONERA 6 1.011 0.921 Alta diversidad
142006-C-MIX-2016-05-0006 - COMUNA SAN JUAN DE LOS LIBERTADORES COMANDANTE SUPREMO 6 1.011 0.921 Alta diversidad
140102-C-MIX-2021-01-0003 - COMUNA ETERNO GIGANTE 2 0.693 1.000 Diversidad media
141211-14-12-0001 - 7. Consejo Comunal Milla Parte Media 6 0.693 1.000 Diversidad media
141211-14-12-0001 - 30. Consejo Comunal Unión Social 10 de Febrero 6 0.693 1.000 Diversidad media
141705-14-17-0000 - 25. Comuna El Paso de Bolívar 1813 5 0.673 0.971 Diversidad media
140101-C-RUR-2018-11-0018 - 14. COMUNA TIERRA DE ZAMORA 3 0.637 0.918 Diversidad media
140102-14-01-0006 - COMUNA SOCIALISTA EZEQUIEL ZAMORA 3 0.637 0.918 Diversidad media
140102-14-01-2007 - COMUNA SIMON BOLÍVAR. 3 0.637 0.918 Diversidad media
140102-C-MIX-2018-11-0084 - COMUNA LUZ DEL ALBA 3 0.637 0.918 Diversidad media
140102-C-MIX-2021-02-0004 - COMUNA ROSA LUXEMBURGO 3 0.637 0.918 Diversidad media
140102-C-MIX-2021-02-0005 - COMUNA FRANCISCO DE MIRANDA 3 0.637 0.918 Diversidad media
140103-14-01-0003 - COMUNA INDIA CARIBAY 3 0.637 0.918 Diversidad media
140303-14-03-0000 - Comuna La Cafetalera 3 0.637 0.918 Diversidad media
140601-C-MIX-2021-04-0012 - COMUNA PASO DE BOLIVAR POR LOS ANDES. 3 0.637 0.918 Diversidad media
140601-C-URB-2021-03-0010 - 17. COMUNA El GRAN CAÑAVERAL 3 0.637 0.918 Diversidad media
140602-C-MIX-2021-05-0007 - COMUNA SU LEGADO ES NUESTRA FORTALEZA SIMON PABLO FIGUEROA. 3 0.637 0.918 Diversidad media
140602-C-MIX-2021-05-0008 - 10. COMUNA YUBÁN ORTEGA SEMBRADOR DE ESPERANZAS 3 0.637 0.918 Diversidad media
140602-C-URB-2021-05-0008 - Comuna Socialista Libertadores de Conciencia Bolívar y Chávez 3 0.637 0.918 Diversidad media
140603-C-MIX-2018-11-0077 - 13. COMUNA AGROECOLÓGICA CULTURAL DE MONTAÑA KLÉBER RAMÍREZ ROJAS 3 0.637 0.918 Diversidad media
140605-14-06-0001 - 20. COMUNA LOMAS UNIDAS MACHO CAPAZ 3 0.637 0.918 Diversidad media
140606-C-RUR-2021-03-0002 - COMUNA IGNACIO FERNÁNDEZ PEÑA 3 0.637 0.918 Diversidad media
141201-C-URB-2021-07-0004 - COMUNA FANNY PRIETO. 3 0.637 0.918 Diversidad media
141204-14-12-0000 - COMUNA BICENTENARIA 16 DE SEPTIEMBRE. 3 0.637 0.918 Diversidad media
141207-14-12-0003 - COMUNA VALLE DEL CHAMA 3 0.637 0.918 Diversidad media
141207-14-12-0005 - COMUNA DON SIMÓN RODRÍGUEZ 3 0.637 0.918 Diversidad media
141303-C-MIX-2018-11-0113 - COMUNA VALLE DE LA VENTA 3 0.637 0.918 Diversidad media
141403-C-RUR-2017-04-0001 - 22. Comuna Socialista Una Esperanza Viva 3 0.637 0.918 Diversidad media
141601-CEC-ME-002 - CONSEJO COMUNAL LLANO GRANDE PARTE ALTA 3 0.637 0.918 Diversidad media
141704-CEC-ME-108 - 27. Comuna en Construcción de Escaguey 3 0.637 0.918 Diversidad media
141801-14-18-0000 - COMUNA SOCIALISTA PARAMO DE MARIÑO TIERRA DE LAGUNAS Y ENCANTOS 3 0.637 0.918 Diversidad media
141801-C-RUR-2018-11-0043 - COMUNA TRADICIONES Y VIVENCIAS DE BODOQUE 3 0.637 0.918 Diversidad media
142001-C-MIX-2018-08-0037 - COMUNA AGROECOLOGICA DOÑA SIMONA 3 0.637 0.918 Diversidad media
142101-14-21-0001 - COMUNA VENCEDORES EL AMPARO 3 0.637 0.918 Diversidad media
142102-C-MIX-2021-04-0013 - COMUNA TODOS JUNTOS VENCEREMOS 3 0.637 0.918 Diversidad media
142102-C-MIX-2021-10-0011 - COMUNA LOS IDEALES DE CHÁVEZ 3 0.637 0.918 Diversidad media
142104-14-21-0000 - Comuna Mucutíes 3 0.637 0.918 Diversidad media
140101-C-MIX-2018-11-0147 - 8. COMUNA FIELES A CHÁVEZ 3 0.000 NaN Baja diversidad
140101-C-URB-2018-11-0018 - 11. COMUNA UNIÓN DE CHÁVEZ 3 0.000 NaN Baja diversidad
140301-C-MIX-2021-10-0006 - COMUNA LA NUEVA FUERZA DE CHÁVEZ 3 0.000 NaN Baja diversidad
140301-CEC-ME-062 - Sector Comunal Casco Central 3 0.000 NaN Baja diversidad
140603-C-URB-2021-06-0003 - 8. COMUNA BRISAS DE MONTALBÁN. 3 0.000 NaN Baja diversidad
141301-C-MIX-2018-11-0168 - COMUNA VALLE DEL MOTATÁN 3 0.000 NaN Baja diversidad
141403-C-RUR-2017-02-0003 - 24. PENSAMIENTO CAMPESINO 3 0.000 NaN Baja diversidad
141403-C-RUR-2017-03-0002 - 23. Comuna El Sueño de Nuestro Comandante Eterno 3 0.000 NaN Baja diversidad 
# Preparar datos para gráfico (sin crear etiquetas pre-definidas)
tabla_extremos_ratio <- bind_rows(
  top10_ratio %>% 
    mutate(tipo = "Mayor diversidad (Top 10)") %>% 
    rename(COMUNA = COMUNA_ID_NOMBRE),
  bottom10_ratio %>% 
    mutate(tipo = "Menor diversidad (Bottom 10)") %>% 
    rename(COMUNA = COMUNA_ID_NOMBRE)
)
# Nota: Removimos las etiquetas pre-definidas etiqueta_H y etiqueta_J

# Calcular maxH_ratio
maxH_ratio <- max(tabla_extremos_ratio$H_shannon, na.rm = TRUE) * 1.3

# Crear gráfico con valores exponenciales en las etiquetas
ratio_plot <- ggplot(tabla_extremos_ratio, aes(x = reorder(COMUNA, H_shannon), y = H_shannon, fill = tipo)) +
  geom_col(alpha = 0.85, width = 0.7) +
  
  # Etiquetas de Shannon con valor exponencial
  geom_text(
    aes(label = sprintf("%.2f (%.1f)", H_shannon, exp(H_shannon)), y = H_shannon * 0.5), 
    color = "white", 
    fontface = "bold",
    size = 2.8  # Reducido ligeramente
  ) +
  
  # Etiquetas de Pielou
  geom_text(
    aes(label = sprintf("J=%.2f", pielou), y = H_shannon + 0.05 * maxH_ratio),
    color = "#D55E00",
    size = 2.8,  # Reducido
    hjust = 0
  ) +
  
  # Línea y puntos de Pielou
  geom_line(
    aes(y = pielou * maxH_ratio, group = tipo), 
    color = "#E69F00", 
    linewidth = 1.2, 
    linetype = "solid"
  ) +
  geom_point(
    aes(y = pielou * maxH_ratio), 
    color = "#D55E00", 
    size = 3, 
    shape = 18
  ) +
  
  # Configuración del gráfico
  facet_wrap(
    ~ tipo, 
    scales = "free_y", 
    ncol = 1,
    strip.position = "top"
  ) +
  coord_flip() +
  scale_y_continuous(
    name = "Índice de Shannon (H)",
    sec.axis = sec_axis(
      ~ . / maxH_ratio, 
      name = "Índice de Pielou (J)",
      labels = scales::number_format(accuracy = 0.1)
    ),
    expand = expansion(mult = c(0, 0.15))
  ) +
  scale_fill_manual(values = c(
    "Mayor diversidad (Top 10)" = "#1b9e77", 
    "Menor diversidad (Bottom 10)" = "#d95f02"
  )) +
  labs(
    title = "Diversidad de estados de culminación de proyectos",
    subtitle = "Comunas con mayor y menor diversidad en estados de proyectos (Ratio ACA)",
    x = "Comuna (ID - Nombre)",
    caption = "Fuente: Elaboración propia - Proyectos ACA (2022-2025)\nNota: Barras = Shannon (H) con valor exponencial, Línea = Pielou (J)"
  ) +
  theme_minimal(base_size = 11) +  # Base size reducido
  theme(
    plot.title = element_text(face = "bold", size = 14, hjust = 0.5),  # Título más pequeño
    plot.subtitle = element_text(size = 11, color = "gray30", hjust = 0.5),
    axis.title.y = element_text(margin = margin(r = 15)),
    axis.title.x = element_text(margin = margin(t = 10)),
    axis.text.y = element_text(size = 8),  # Texto del eje Y más pequeño
    panel.grid.major.y = element_blank(),
    strip.text = element_text(face = "bold", size = 11, color = "white"),
    strip.background = element_rect(fill = "gray25", color = NA),
    legend.position = "none",
    panel.spacing = unit(1, "lines"),
    plot.margin = margin(1, 2, 1, 1, "cm")  # Margen derecho aumentado
  )

# Guardar con dimensiones específicas
ggsave("ratio_diversity_plot.png", ratio_plot, width = 14, height = 10, dpi = 300)
## Warning: Removed 8 rows containing missing values or values outside the scale range
## (`geom_line()`).
## Warning: Removed 8 rows containing missing values or values outside the scale range
## (`geom_point()`).
print(ratio_plot)
## Warning: Removed 8 rows containing missing values or values outside the scale range
## (`geom_line()`).
## Removed 8 rows containing missing values or values outside the scale range
## (`geom_point()`).

15 Visualización de los resultados

# -----------------------------------------------------------------------------
# FUNCIÓN PARA LIMPIAR EL ENTORNO (OPCIONAL)
# -----------------------------------------------------------------------------
limpiar_objetos_analisis <- function() {
  objetos_a_limpiar <- c("div_combinada", "tipo_comuna_stats", 
                        "div_cfg_con_tipo", "div_gob_con_tipo", "div_ratio_con_tipo")
  objetos_existentes <- objetos_a_limpiar[objetos_a_limpiar %in% ls(envir = .GlobalEnv)]
  if(length(objetos_existentes) > 0) {
    rm(list = objetos_existentes, envir = .GlobalEnv)
    cat("Limpiados objetos:", paste(objetos_existentes, collapse = ", "), "\n")
  }
}

# Ejecutar si quieres limpiar (descomenta la siguiente línea)
# limpiar_objetos_analisis()

# -----------------------------------------------------------------------------
# CLASIFICACIÓN COMPLETA Y CREACIÓN DEL TIPO DE COMUNA
# -----------------------------------------------------------------------------
crear_mapa_comunas <- function(df_source) {
  # Esta función crea el mapa de comunas de forma limpia cada vez
  mapa <- df_source %>%
    distinct(ID_COMUNA, COMUNA, COD_CC) %>%
    mutate(
      COMUNA = str_trim(COMUNA),
      Tipo_Comuna = case_when(
        str_detect(COD_CC, "C-URB") ~ "Urbana",
        str_detect(COD_CC, "C-RUR") ~ "Rural", 
        str_detect(COD_CC, "C-MIX") ~ "Mixta",
        str_detect(COD_CC, "^\\d{2}-\\d{2}-\\d{4}$") ~ "En construcción",
        str_detect(COD_CC, "^\\d{2}-\\d{2}-\\d{2}") ~ "En construcción",
        str_detect(COD_CC, "^CEC") ~ "En construcción",
        TRUE ~ "No especificado"
      )
    )
  
  return(mapa)
}

# Verificar distribución
table(commune_map$Tipo_Comuna)
## Warning: Unknown or uninitialised column: `Tipo_Comuna`.
## < table of extent 0 >
# Crear el mapa de comunas fresco cada vez
commune_map <- crear_mapa_comunas(df_raw)

# Verificar distribución
cat("Distribución de tipos de comuna:\n")
## Distribución de tipos de comuna:
print(table(commune_map$Tipo_Comuna))
## 
## En construcción           Mixta           Rural          Urbana 
##              21              23              11               5
# =============================================================================
# ANÁLISIS INTEGRAL ÍNDICE SHANNON - POLÍTICAS PÚBLICAS ACA
# =============================================================================

# -----------------------------------------------------------------------------
# PALETA DE COLORES Y TEMA COMÚN
# -----------------------------------------------------------------------------
colores_comuna <- c(
  "Urbana" = "#2E86AB",           # Azul - densidad urbana
  "Rural" = "#A23B72",            # Magenta - ruralidad
  "Mixta" = "#F18F01",            # Naranja - combinación
  "En construcción" = "#C73E1D",   # Rojo - desarrollo
  "No especificado" = "#7D8491"    # Gris - sin clasificar
)

tema_comun <- theme_minimal() +
  theme(
    plot.title = element_text(face = "bold", size = 16, hjust = 0.5, color = "#2E86AB"),
    plot.subtitle = element_text(size = 12, color = "gray40", hjust = 0.5),
    axis.title = element_text(face = "bold", size = 11),
    axis.text.x = element_text(angle = 45, hjust = 1, size = 10),
    legend.position = "bottom",
    strip.text = element_text(face = "bold", size = 11, color = "#2E86AB"),
    strip.background = element_rect(fill = "gray95", color = "white"),
    panel.border = element_rect(color = "gray90", fill = NA),
    legend.title = element_text(face = "bold")
  )

# -----------------------------------------------------------------------------
# PREPARACIÓN DE DATOS
# -----------------------------------------------------------------------------
# Crear mapa de comunas
commune_map <- df_raw %>%
  distinct(ID_COMUNA, COMUNA, COD_CC) %>%
  mutate(
    COMUNA = str_trim(COMUNA),
    Tipo_Comuna = case_when(
      str_detect(COD_CC, "C-URB") ~ "Urbana",
      str_detect(COD_CC, "C-RUR") ~ "Rural", 
      str_detect(COD_CC, "C-MIX") ~ "Mixta",
      str_detect(COD_CC, "^\\d{2}-\\d{2}-\\d{4}$") ~ "En construcción",
      str_detect(COD_CC, "^\\d{2}-\\d{2}-\\d{2}") ~ "En construcción",
      str_detect(COD_CC, "^CEC") ~ "En construcción",
      TRUE ~ "No especificado"
    )
  )

# Agregar tipo de comuna a cada dataset
div_cfg_con_tipo <- div_cfg %>%
  select(-contains("Tipo_Comuna")) %>%
  left_join(commune_map %>% select(ID_COMUNA, Tipo_Comuna), by = "ID_COMUNA")
## Warning in left_join(., commune_map %>% select(ID_COMUNA, Tipo_Comuna), : Detected an unexpected many-to-many relationship between `x` and `y`.
## ℹ Row 37 of `x` matches multiple rows in `y`.
## ℹ Row 24 of `y` matches multiple rows in `x`.
## ℹ If a many-to-many relationship is expected, set `relationship =
##   "many-to-many"` to silence this warning.
div_gob_con_tipo <- div_gob %>%
  select(-contains("Tipo_Comuna")) %>%
  left_join(commune_map %>% select(ID_COMUNA, Tipo_Comuna), by = "ID_COMUNA")
## Warning in left_join(., commune_map %>% select(ID_COMUNA, Tipo_Comuna), : Detected an unexpected many-to-many relationship between `x` and `y`.
## ℹ Row 37 of `x` matches multiple rows in `y`.
## ℹ Row 24 of `y` matches multiple rows in `x`.
## ℹ If a many-to-many relationship is expected, set `relationship =
##   "many-to-many"` to silence this warning.
div_ratio_con_tipo <- div_ratio %>%
  select(-contains("Tipo_Comuna")) %>%
  left_join(commune_map %>% select(ID_COMUNA, Tipo_Comuna), by = "ID_COMUNA")
## Warning in left_join(., commune_map %>% select(ID_COMUNA, Tipo_Comuna), : Detected an unexpected many-to-many relationship between `x` and `y`.
## ℹ Row 37 of `x` matches multiple rows in `y`.
## ℹ Row 24 of `y` matches multiple rows in `x`.
## ℹ If a many-to-many relationship is expected, set `relationship =
##   "many-to-many"` to silence this warning.
# Combinar datasets
div_combinada <- bind_rows(
  div_cfg_con_tipo %>%
    select(COMUNA_ID_NOMBRE, n_proyectos, H_shannon, pielou, Tipo_Comuna) %>%
    mutate(Tipo_Analisis = "CFG"),
  
  div_gob_con_tipo %>%
    select(COMUNA_ID_NOMBRE, n_proyectos, H_shannon, pielou, Tipo_Comuna) %>%
    mutate(Tipo_Analisis = "Gobernación"),
  
  div_ratio_con_tipo %>%
    select(COMUNA_ID_NOMBRE, n_proyectos = n_proyectos_ratio, H_shannon, pielou, Tipo_Comuna) %>%
    mutate(Tipo_Analisis = "Ratio ACA")
) %>%
  mutate(
    Shannon_Categoria = case_when(
      H_shannon < 0.5 ~ "Muy Baja",
      H_shannon < 1.0 ~ "Baja", 
      H_shannon < 1.5 ~ "Media",
      H_shannon >= 1.5 ~ "Alta"
    ),
    Eficiencia = H_shannon / (n_proyectos + 0.1)
  ) %>%
  filter(!is.na(H_shannon), !is.na(Tipo_Comuna), is.finite(H_shannon))

# -----------------------------------------------------------------------------
# ESTADÍSTICAS DESCRIPTIVAS
# -----------------------------------------------------------------------------
stats_shannon <- div_combinada %>%
  group_by(Tipo_Analisis, Tipo_Comuna) %>%
  summarise(
    n = n(),
    mean_shannon = mean(H_shannon, na.rm = TRUE),
    sd_shannon = sd(H_shannon, na.rm = TRUE),
    median_shannon = median(H_shannon, na.rm = TRUE),
    se = sd_shannon / sqrt(n),
    .groups = "drop"
  ) %>%
  filter(n >= 2)

# Mostrar tabla de estadísticas
kable(stats_shannon,
      caption = "Estadísticas del Índice Shannon por Tipo de Comuna y Análisis",
      digits = 3) %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Estadísticas del Índice Shannon por Tipo de Comuna y Análisis
Tipo_Analisis Tipo_Comuna n mean_shannon sd_shannon median_shannon se
CFG En construcción 23 1.103 0.269 1.099 0.056
CFG Mixta 23 1.083 0.251 1.099 0.052
CFG Rural 11 1.120 0.263 1.099 0.079
CFG Urbana 5 1.006 0.207 1.099 0.092
Gobernación En construcción 23 1.163 0.197 1.099 0.041
Gobernación Mixta 23 1.179 0.295 1.099 0.062
Gobernación Rural 11 1.141 0.139 1.099 0.042
Gobernación Urbana 5 1.006 0.207 1.099 0.092
Ratio ACA En construcción 23 0.699 0.228 0.637 0.048
Ratio ACA Mixta 23 0.718 0.361 0.637 0.075
Ratio ACA Rural 11 0.723 0.415 0.637 0.125
Ratio ACA Urbana 5 0.382 0.349 0.637 0.156 
# -----------------------------------------------------------------------------
# GRÁFICOS
# -----------------------------------------------------------------------------

# 1. Distribución Shannon
grafico_1_distribucion <- ggplot(div_combinada, aes(x = Tipo_Comuna, y = H_shannon, fill = Tipo_Comuna)) +
  geom_violin(alpha = 0.7, trim = FALSE, color = "white", linewidth = 0.8) +
  geom_boxplot(width = 0.2, fill = "white", outlier.colour = "#2E86AB", 
               outlier.size = 2, color = "black", linewidth = 0.5) +
  geom_jitter(aes(color = Tipo_Comuna), width = 0.15, size = 1.8, alpha = 0.6) +
  scale_fill_manual(values = colores_comuna, name = "Tipo de Comuna") +
  scale_color_manual(values = colores_comuna, name = "Tipo de Comuna") +
  facet_wrap(~ Tipo_Analisis, scales = "free_y") +
  labs(
    title = "Distribución del Índice de Shannon por Tipo de Comuna",
    subtitle = "Análisis de diversidad en Agendas Concretas de Acción - Mérida, Venezuela",
    y = "Índice de Shannon (H')", 
    x = "Tipo de Comuna",
    caption = "Elaborado por: William Gutiérrez"
  ) +
  tema_comun

print(grafico_1_distribucion)

# 2. Relación proyectos-Shannon
grafico_2_relacion <- ggplot(div_combinada, aes(x = n_proyectos, y = H_shannon)) +
  geom_point(aes(color = Tipo_Comuna), size = 3, alpha = 0.7) +
  geom_smooth(method = "loess", se = TRUE, color = "#2E86AB", 
              fill = "#2E86AB", alpha = 0.2, linewidth = 1.2) +
  scale_color_manual(values = colores_comuna, name = "Tipo de Comuna") +
  facet_wrap(~ Tipo_Analisis, scales = "free") +
  labs(
    title = "Relación entre Número de Proyectos y Diversidad Shannon",
    subtitle = "Análisis de correlación en políticas ACA",
    x = "Número de Proyectos",
    y = "Índice de Shannon (H')",
    caption = "Elaborado por: William Gutiérrez"
  ) +
  tema_comun

print(grafico_2_relacion)
## `geom_smooth()` using formula = 'y ~ x'
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : pseudoinverse used at 1.965
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : neighborhood radius 1.035
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : reciprocal condition number 0
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : zero-width neighborhood. make span bigger
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : There are other near singularities as well. 1
## Warning: Failed to fit group -1.
## Caused by error in `predLoess()`:
## ! NA/NaN/Inf en llamada a una función externa (arg 5)
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : pseudoinverse used at 1.965
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : neighborhood radius 1.035
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : reciprocal condition number 0
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : zero-width neighborhood. make span bigger
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : There are other near singularities as well. 1
## Warning: Failed to fit group -1.
## Caused by error in `predLoess()`:
## ! NA/NaN/Inf en llamada a una función externa (arg 5)
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : pseudoinverse used at 1.965
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : neighborhood radius 1.035
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : reciprocal condition number 0
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : zero-width neighborhood. make span bigger
## Warning in simpleLoess(y, x, w, span, degree = degree, parametric = parametric,
## : There are other near singularities as well. 1
## Warning: Failed to fit group -1.
## Caused by error in `predLoess()`:
## ! NA/NaN/Inf en llamada a una función externa (arg 5)

# 3. Comparativa de medias con intervalos de confianza
grafico_3_comparativa <- ggplot(stats_shannon, 
                               aes(x = reorder(Tipo_Comuna, mean_shannon), 
                                   y = mean_shannon, fill = Tipo_Comuna)) +
  geom_col(alpha = 0.8, color = "white", linewidth = 0.8) +
  geom_errorbar(aes(ymin = pmax(0, mean_shannon - se), 
                    ymax = mean_shannon + se), 
                width = 0.3, color = "black", linewidth = 0.8) +
  geom_text(aes(label = sprintf("%.2f", mean_shannon)), 
            vjust = -1.5, size = 4, fontface = "bold", color = "#2E86AB") +
  scale_fill_manual(values = colores_comuna, name = "Tipo de Comuna") +
  facet_wrap(~ Tipo_Analisis, scales = "free_y") +
  labs(
    title = "Índice de Shannon Promedio por Tipo de Comuna",
    subtitle = "Barras de error representan error estándar de la media",
    x = "Tipo de Comuna",
    y = "Shannon Promedio (H')",
    caption = "Elaborado por: William Gutiérrez"
  ) +
  tema_comun

print(grafico_3_comparativa)

# 4. Heatmap de frecuencias
datos_heatmap <- div_combinada %>%
  filter(Tipo_Analisis %in% c("CFG", "Gobernación")) %>%
  count(Tipo_Analisis, Tipo_Comuna, Shannon_Categoria) %>%
  complete(Tipo_Analisis, Tipo_Comuna, Shannon_Categoria, fill = list(n = 0))

grafico_4_heatmap <- ggplot(datos_heatmap, 
                           aes(x = Shannon_Categoria, y = Tipo_Comuna, fill = n)) +
  geom_tile(color = "white", linewidth = 0.8) +
  geom_text(aes(label = n, 
                color = ifelse(n >= max(n)/2, "white", "black")), 
            fontface = "bold", size = 4) +
  scale_fill_gradient(
    low = "#C6DBEF",    # Azul claro
    high = "#08519C",   # Azul oscuro
    name = "Frecuencia"
  ) +
  scale_color_identity() +
  facet_wrap(~ Tipo_Analisis) +
  labs(
    title = "Distribución de Frecuencias: Tipo Comuna vs. Shannon",
    subtitle = "Mapa de calor para análisis CFG y Gobernación",
    x = "Categoría Shannon",
    y = "Tipo de Comuna",
    caption = "Elaborado por: William Gutiérrez"
  ) +
  tema_comun

print(grafico_4_heatmap)

# 5. Índice de Pielou vs Shannon
grafico_5_pielou <- ggplot(div_combinada, aes(x = n_proyectos, y = H_shannon)) +
  geom_point(aes(color = Tipo_Comuna), size = 3, alpha = 0.7) +
  geom_smooth(method = "lm", se = TRUE, color = "#2E86AB", 
              fill = "#2E86AB", alpha = 0.2, linewidth = 1.2) +
  scale_color_manual(values = colores_comuna, name = "Tipo de Comuna") +
  facet_wrap(~ Tipo_Analisis) +
  labs(
    title = "Relación entre Número de Proyectos y Shannon",
    subtitle = "Análisis de proyectos y diversidad en ACA",
    x = "Número de Proyectos",
    y = "Índice de Shannon (H')",
    caption = "Elaborado por: William Gutiérrez"
  ) +
  tema_comun

print(grafico_5_pielou)
## `geom_smooth()` using formula = 'y ~ x'

16 Aplicación de normalidad

## Preparación de los datos
 # Eliminar valores nulos si es necesario
df_clean <- df_raw %>% filter(!is.na(n_proyectos) & !is.na(PLAZOS) & !is.na(CLASIFICACION_DEL_PROYECTO)& !is.na(RATIO_ACA_PROYECTO_CULMINADO)& !is.na(Clasificacion_Actores_institucionales)& !is.na(TIPOLOGIA_CFG_NUM)& !is.na(GOBERNACION_NUM))

# Función para crear un panel de diagnóstico de normalidad
create_normality_diagnostic <- function(data, variable, variable_name) {
  # Datos para la variable
  x <- data[[variable]]
  
  # Histograma con curva de densidad
  p1 <- ggplot(data, aes_string(x = variable)) +
    geom_histogram(aes(y = ..density..), bins = 30, fill = "lightblue", color = "black", alpha = 0.7) +
    geom_density(color = "red", linewidth = 1) +
    stat_function(fun = dnorm, 
                 args = list(mean = mean(x, na.rm = TRUE), 
                           sd = sd(x, na.rm = TRUE)),
                 color = "blue", linewidth = 1, linetype = "dashed") +
    labs(title = paste("Histograma y Densidad -", variable_name),
         x = variable_name, y = "Densidad") +
    theme_minimal()
  
  # Q-Q plot
  p2 <- ggplot(data, aes(sample = x)) +
    stat_qq() +
    stat_qq_line(color = "red") +
    labs(title = paste("Q-Q Plot -", variable_name)) +
    theme_minimal()
  
  # Combinar los gráficos
  gridExtra::grid.arrange(p1, p2, ncol = 2)
}

# Lista de variables para analizar
variables_to_analyze <- list(
  "n_proyectos" = "Número de Proyectos",
  "RATIO_ACA_PROYECTO_CULMINADO" = "Ratio ACA",
  "TIPOLOGIA_CFG_NUM" = "Tipología CFG",
  "GOBERNACION_NUM" = "Gobernación",
  "PLAZOS" = "Plazos",
  "CLASIFICACION_DEL_PROYECTO" = "Clasificación del Proyecto",
  "Clasificacion_Actores_institucionales" = "Actores Institucionales"
)

# Crear un panel para cada variable
for(var in names(variables_to_analyze)) {
  cat("\n\nAnálisis de normalidad para:", variables_to_analyze[[var]], "\n")
  print(create_normality_diagnostic(df_clean, var, variables_to_analyze[[var]]))
  
  # Imprimir resultados del test de Shapiro-Wilk
  sw_test <- shapiro.test(df_clean[[var]])
  cat("\nTest de Shapiro-Wilk:\n")
  cat("W =", round(sw_test$statistic, 4), "\n")
  cat("p-value =", format.pval(sw_test$p.value, digits = 4), "\n")
  cat("-----------------------------------\n")
}
## 
## 
## Análisis de normalidad para: Número de Proyectos
## Warning: `aes_string()` was deprecated in ggplot2 3.0.0.
## ℹ Please use tidy evaluation idioms with `aes()`.
## ℹ See also `vignette("ggplot2-in-packages")` for more information.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

## TableGrob (1 x 2) "arrange": 2 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 
## Test de Shapiro-Wilk:
## W = 0.5502 
## p-value = < 2.2e-16 
## -----------------------------------
## 
## 
## Análisis de normalidad para: Ratio ACA

## TableGrob (1 x 2) "arrange": 2 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 
## Test de Shapiro-Wilk:
## W = 0.7444 
## p-value = < 2.2e-16 
## -----------------------------------
## 
## 
## Análisis de normalidad para: Tipología CFG

## TableGrob (1 x 2) "arrange": 2 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 
## Test de Shapiro-Wilk:
## W = 0.8753 
## p-value = 1.027e-11 
## -----------------------------------
## 
## 
## Análisis de normalidad para: Gobernación

## TableGrob (1 x 2) "arrange": 2 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 
## Test de Shapiro-Wilk:
## W = 0.8601 
## p-value = 1.622e-12 
## -----------------------------------
## 
## 
## Análisis de normalidad para: Plazos

## TableGrob (1 x 2) "arrange": 2 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 
## Test de Shapiro-Wilk:
## W = 0.4559 
## p-value = < 2.2e-16 
## -----------------------------------
## 
## 
## Análisis de normalidad para: Clasificación del Proyecto

## TableGrob (1 x 2) "arrange": 2 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 
## Test de Shapiro-Wilk:
## W = 0.7444 
## p-value = < 2.2e-16 
## -----------------------------------
## 
## 
## Análisis de normalidad para: Actores Institucionales

## TableGrob (1 x 2) "arrange": 2 grobs
##   z     cells    name           grob
## 1 1 (1-1,1-1) arrange gtable[layout]
## 2 2 (1-1,2-2) arrange gtable[layout]
## 
## Test de Shapiro-Wilk:
## W = 0.8347 
## p-value = 9.828e-14 
## -----------------------------------
# Preparar el espacio para múltiples gráficos
par(mfrow = c(2, 4))  # 2 filas x 4 columnas para acomodar todos los Q-Q plots

# Crear Q-Q plots para cada variable con títulos descriptivos
qqnorm(df_clean$n_proyectos, main="Q-Q Plot: N° Proyectos",
       col = "blue", pch = 19)
qqline(df_clean$n_proyectos, col = "red")

qqnorm(df_clean$RATIO_ACA_PROYECTO_CULMINADO, main="Q-Q Plot: Ratio ACA",
       col = "green4", pch = 19)
qqline(df_clean$RATIO_ACA_PROYECTO_CULMINADO, col = "red")

qqnorm(df_clean$TIPOLOGIA_CFG_NUM, main="Q-Q Plot: Tipología CFG",
       col = "purple", pch = 19)
qqline(df_clean$TIPOLOGIA_CFG_NUM, col = "red")

qqnorm(df_clean$GOBERNACION_NUM, main="Q-Q Plot: Gobernación",
       col = "orange", pch = 19)
qqline(df_clean$GOBERNACION_NUM, col = "red")

qqnorm(df_clean$PLAZOS, main="Q-Q Plot: Plazos",
       col = "brown", pch = 19)
qqline(df_clean$PLAZOS, col = "red")

qqnorm(df_clean$CLASIFICACION_DEL_PROYECTO, main="Q-Q Plot: Clasificación",
       col = "darkgreen", pch = 19)
qqline(df_clean$CLASIFICACION_DEL_PROYECTO, col = "red")

qqnorm(df_clean$Clasificacion_Actores_institucionales, 
       main="Q-Q Plot: Actores Institucionales",
       col = "darkblue", pch = 19)
qqline(df_clean$Clasificacion_Actores_institucionales, col = "red")

# Restaurar la configuración original de gráficos
par(mfrow = c(1, 1))

# Resumen estadístico de las pruebas de normalidad
normality_summary <- data.frame(
  Variable = names(variables_to_analyze),
  W_statistic = sapply(names(variables_to_analyze), 
                      function(x) shapiro.test(df_clean[[x]])$statistic),
  p_value = sapply(names(variables_to_analyze), 
                   function(x) shapiro.test(df_clean[[x]])$p.value)
) %>%
  mutate(
    Normalidad = ifelse(p_value < 0.05, "No Normal", "Normal"),
    Variable_Name = unlist(variables_to_analyze)
  )

# Mostrar tabla resumen
kable(normality_summary %>% 
        select(Variable_Name, W_statistic, p_value, Normalidad),
      col.names = c("Variable", "Estadístico W", "Valor p", "Conclusión"),
      caption = "Resumen de Pruebas de Normalidad Shapiro-Wilk") %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Resumen de Pruebas de Normalidad Shapiro-Wilk
Variable Estadístico W Valor p Conclusión
n_proyectos.W Número de Proyectos 0.5501951 0 No Normal
RATIO_ACA_PROYECTO_CULMINADO.W Ratio ACA 0.7444145 0 No Normal
TIPOLOGIA_CFG_NUM.W Tipología CFG 0.8753315 0 No Normal
GOBERNACION_NUM.W Gobernación 0.8601242 0 No Normal
PLAZOS.W Plazos 0.4559052 0 No Normal
CLASIFICACION_DEL_PROYECTO.W Clasificación del Proyecto 0.7444145 0 No Normal
Clasificacion_Actores_institucionales.W Actores Institucionales 0.8346786 0 No Normal

Los resultados de la prueba de normalidad Shapiro-Wilk indican que todas las variables clave del conjunto de datos no siguen una distribución normal, ya que los p-valores son muy bajos (todos menos de 0.05). Esto sugiere que, para estas variables, deberías utilizar correlación no paramétrica como Spearman, en lugar de Pearson, que asume normalidad.

Todas las variables cuantitativas mostraron valores p < 0.001 en la prueba de Shapiro-Wilk, rechazando fuertemente la hipótesis nula de normalidad (Tabla X). En consecuencia, se emplearon métodos no paramétricos para los análisis posteriores

17 Modelo de Correlación entre Proyectos Comunitarios y Puntos Críticos

Para guiar el análisis de correlación entre los proyectos comunitarios de las Agendas Concretas de Acción (ACA) y los nudos críticos en el Estado Mérida, y dado que se confirmó la ausencia de normalidad en las variables cuantitativas mediante la prueba de Shapiro-Wilk (p-valores < 0,001), se optó por un enfoque no paramétrico para la evaluación de las relaciones. A continuación, se plantean la hipótesis general y las hipótesis específicas que buscan establecer el grado y la dirección de asociación entre las variables clave de este estudio, siguiendo la estructura y el rigor del planteamiento de hipótesis de la tesis de Castillo y Tello (2022, p.81-85), esto se ve detallada en la Tabla de Hipótesis 3:

# ===============================================================================
# MODELO DE CORRELACIÓN DE SPEARMAN PARA PROYECTOS COMUNALES ACA
# ===============================================================================

# 1. Preparación de datos (IGUAL)
top10_cfg <- df_dummies %>% count(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG) %>% arrange(desc(n)) %>% slice(1:10) %>% pull(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG)
top10_gob <- df_dummies %>% count(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION) %>% arrange(desc(n)) %>% slice(1:10) %>% pull(CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION)
cfg_dummy_cols <- paste0("CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_", gsub(" ", "_", top10_cfg))
gob_dummy_cols <- paste0("CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION_", gsub(" ", "_", top10_gob))
cfg_dummy_cols <- intersect(cfg_dummy_cols, names(df_dummies))
gob_dummy_cols <- intersect(gob_dummy_cols, names(df_dummies))
vars_resultado <- c("RATIO_ACA_PROYECTO_CULMINADO", "CLASIFICACION_DEL_PROYECTO", "PLAZOS", "Clasificacion_Actores_institucionales")

# 2. CREAR df_cor CORREGIDO (SIN case_when)
df_cor <- df_dummies %>%
  select(all_of(vars_resultado), all_of(cfg_dummy_cols), all_of(gob_dummy_cols))
  # ↑ ELIMINADO el mutate() con case_when porque la variable ya está correcta (1,2,3,4)

# 3. Cálculo de correlaciones de Spearman (IGUAL)
calcular_cor_spearman <- function(data) {
  n_vars <- ncol(data)
  cor_matrix <- matrix(NA, nrow = n_vars, ncol = n_vars)
  p_matrix <- matrix(NA, nrow = n_vars, ncol = n_vars)
  for (i in 1:n_vars) {
    for (j in 1:n_vars) {
      if (i != j) {
        temp <- data[, c(i, j)] %>% na.omit()
        if (nrow(temp) > 10) {
          test <- suppressWarnings(cor.test(temp[[1]], temp[[2]], method = "spearman", exact = FALSE))
          cor_matrix[i, j] <- test$estimate
          p_matrix[i, j] <- test$p.value
        }
      } else {
        cor_matrix[i, j] <- 1
      }
    }
  }
  rownames(cor_matrix) <- colnames(cor_matrix) <- colnames(data)
  rownames(p_matrix) <- colnames(p_matrix) <- colnames(data)
  return(list(cor = cor_matrix, p = p_matrix))
}
set.seed(123)
cor_results <- calcular_cor_spearman(df_cor)

# 4. Procesamiento de resultados y nombres cortos (IGUAL)
acortar_nombres <- function(nombres) {
  nombres <- gsub("CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_", "CFG: ", nombres)
  nombres <- gsub("CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION_", "GOB: ", nombres)
  nombres <- gsub("_", " ", nombres)
  substr(nombres, 1, 28)
}
colnames(cor_results$cor) <- rownames(cor_results$cor) <- acortar_nombres(colnames(df_cor))
colnames(cor_results$p) <- rownames(cor_results$p) <- acortar_nombres(colnames(df_cor))

cor_df <- as.data.frame(cor_results$cor) %>%
  tibble::rownames_to_column("Variable1") %>%
  pivot_longer(-Variable1, names_to = "Variable2", values_to = "Correlacion") %>%
  left_join(
    as.data.frame(cor_results$p) %>%
      tibble::rownames_to_column("Variable1") %>%
      pivot_longer(-Variable1, names_to = "Variable2", values_to = "p_valor"),
    by = c("Variable1", "Variable2")
  ) %>%
  filter(!is.na(Correlacion), Variable1 != Variable2) %>%
  mutate(
    Significativa = ifelse(p_valor < 0.05, "Sí", "No"),
    Magnitud = case_when(
      abs(Correlacion) > 0.6 ~ "Muy fuerte",
      abs(Correlacion) > 0.4 ~ "Fuerte",
      abs(Correlacion) > 0.2 ~ "Moderada",
      TRUE ~ "Débil"
    )
  )

# 4. TABLA COMPLETA DE COEFICIENTES DE SPEARMAN
tabla_coef_spearman <- cor_df %>%
  select(Variable1, Variable2, Correlacion, p_valor, Significativa, Magnitud) %>%
  arrange(desc(abs(Correlacion)))

kable(tabla_coef_spearman,
      caption = "Coeficientes de Correlación de Spearman entre variables clave (ACA)",
      col.names = c("Variable 1", "Variable 2", "Rho (ρ)", "p-valor", "Significativa", "Magnitud"),
      align = "l") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE) %>%
  row_spec(which(tabla_coef_spearman$Significativa == "Sí" & tabla_coef_spearman$Magnitud != "Débil"), bold = TRUE, color = "white", background = "#1b9e77") %>%
  row_spec(which(tabla_coef_spearman$Significativa == "Sí" & tabla_coef_spearman$Magnitud == "Débil"), color = "black", background = "#e6f2e6") %>%
  row_spec(which(tabla_coef_spearman$Significativa == "No"), color = "gray40", background = "#f7f7f7")
Coeficientes de Correlación de Spearman entre variables clave (ACA)
Variable 1 Variable 2 Rho (ρ) p-valor Significativa Magnitud
RATIO ACA PROYECTO CULMINADO CLASIFICACION DEL PROYECTO 1.0000000 0.0000000 Sí Muy fuerte
CLASIFICACION DEL PROYECTO RATIO ACA PROYECTO CULMINADO 1.0000000 0.0000000 Sí Muy fuerte
CFG: ELECTRICIDAD GOB: ELECTRICIDAD 1.0000000 0.0000000 Sí Muy fuerte
CFG: AMBIENTE GOB: CANALIZACION 1.0000000 0.0000000 Sí Muy fuerte
GOB: ELECTRICIDAD CFG: ELECTRICIDAD 1.0000000 0.0000000 Sí Muy fuerte
GOB: CANALIZACION CFG: AMBIENTE 1.0000000 0.0000000 Sí Muy fuerte
CFG: VIVIENDA GOB: VIVIENDA 0.9501193 0.0000000 Sí Muy fuerte
GOB: VIVIENDA CFG: VIVIENDA 0.9501193 0.0000000 Sí Muy fuerte
CFG: TRANSPORTE GOB: TRANSPORTE 0.9329624 0.0000000 Sí Muy fuerte
GOB: TRANSPORTE CFG: TRANSPORTE 0.9329624 0.0000000 Sí Muy fuerte
CFG: VIALIDAD GOB: VIALIDAD 0.7483315 0.0000000 Sí Muy fuerte
GOB: VIALIDAD CFG: VIALIDAD 0.7483315 0.0000000 Sí Muy fuerte
Clasificacion Actores instit CFG: VIVIENDA -0.3677849 0.0000001 Sí Moderada
CFG: VIVIENDA Clasificacion Actores instit -0.3677849 0.0000001 Sí Moderada
Clasificacion Actores instit GOB: VIVIENDA -0.3535836 0.0000003 Sí Moderada
GOB: VIVIENDA Clasificacion Actores instit -0.3535836 0.0000003 Sí Moderada
Clasificacion Actores instit CFG: VIALIDAD 0.1910140 0.0070251 Sí Débil
CFG: VIALIDAD Clasificacion Actores instit 0.1910140 0.0070251 Sí Débil
PLAZOS CFG: INFRAESTRUCTURA -0.1854281 0.0089121 Sí Débil
CFG: INFRAESTRUCTURA PLAZOS -0.1854281 0.0089121 Sí Débil
RATIO ACA PROYECTO CULMINADO GOB: TRANSPORTE 0.1667478 0.0188767 Sí Débil
CLASIFICACION DEL PROYECTO GOB: TRANSPORTE 0.1667478 0.0188767 Sí Débil
GOB: TRANSPORTE RATIO ACA PROYECTO CULMINADO 0.1667478 0.0188767 Sí Débil
GOB: TRANSPORTE CLASIFICACION DEL PROYECTO 0.1667478 0.0188767 Sí Débil
Clasificacion Actores instit CFG: AMBIENTE -0.1552753 0.0289366 Sí Débil
Clasificacion Actores instit GOB: CANALIZACION -0.1552753 0.0289366 Sí Débil
CFG: AMBIENTE Clasificacion Actores instit -0.1552753 0.0289366 Sí Débil
GOB: CANALIZACION Clasificacion Actores instit -0.1552753 0.0289366 Sí Débil
CFG: VIALIDAD GOB: VIVIENDA -0.1531972 0.0311804 Sí Débil
GOB: VIVIENDA CFG: VIALIDAD -0.1531972 0.0311804 Sí Débil
CFG: VIALIDAD CFG: VIVIENDA -0.1455556 0.0407474 Sí Débil
CFG: VIVIENDA CFG: VIALIDAD -0.1455556 0.0407474 Sí Débil
RATIO ACA PROYECTO CULMINADO CFG: TRANSPORTE 0.1394358 0.0500900 No Débil
CLASIFICACION DEL PROYECTO CFG: TRANSPORTE 0.1394358 0.0500900 No Débil
CFG: TRANSPORTE RATIO ACA PROYECTO CULMINADO 0.1394358 0.0500900 No Débil
CFG: TRANSPORTE CLASIFICACION DEL PROYECTO 0.1394358 0.0500900 No Débil
CFG: VIALIDAD CFG: ELECTRICIDAD -0.1376754 0.0530862 No Débil
CFG: VIALIDAD GOB: ELECTRICIDAD -0.1376754 0.0530862 No Débil
CFG: ELECTRICIDAD CFG: VIALIDAD -0.1376754 0.0530862 No Débil
GOB: ELECTRICIDAD CFG: VIALIDAD -0.1376754 0.0530862 No Débil
Clasificacion Actores instit GOB: TRANSPORTE 0.1259022 0.0771572 No Débil
GOB: TRANSPORTE Clasificacion Actores instit 0.1259022 0.0771572 No Débil
CFG: ELECTRICIDAD GOB: VIVIENDA -0.1181123 0.0974648 No Débil
GOB: VIVIENDA CFG: ELECTRICIDAD -0.1181123 0.0974648 No Débil
GOB: VIVIENDA GOB: ELECTRICIDAD -0.1181123 0.0974648 No Débil
GOB: ELECTRICIDAD GOB: VIVIENDA -0.1181123 0.0974648 No Débil
CFG: VIALIDAD CFG: SALUD -0.1165631 0.1019688 No Débil
CFG: SALUD CFG: VIALIDAD -0.1165631 0.1019688 No Débil
GOB: VIVIENDA GOB: VIALIDAD -0.1146423 0.1077797 No Débil
GOB: VIALIDAD GOB: VIVIENDA -0.1146423 0.1077797 No Débil
CFG: VIVIENDA CFG: ELECTRICIDAD -0.1122208 0.1154725 No Débil
CFG: VIVIENDA GOB: ELECTRICIDAD -0.1122208 0.1154725 No Débil
CFG: ELECTRICIDAD CFG: VIVIENDA -0.1122208 0.1154725 No Débil
GOB: ELECTRICIDAD CFG: VIVIENDA -0.1122208 0.1154725 No Débil
CFG: VIALIDAD GOB: DRENAJES -0.1120190 0.1161323 No Débil
GOB: DRENAJES CFG: VIALIDAD -0.1120190 0.1161323 No Débil
RATIO ACA PROYECTO CULMINADO CFG: AMBIENTE -0.1119048 0.1165071 No Débil
RATIO ACA PROYECTO CULMINADO GOB: CANALIZACION -0.1119048 0.1165071 No Débil
CLASIFICACION DEL PROYECTO CFG: AMBIENTE -0.1119048 0.1165071 No Débil
CLASIFICACION DEL PROYECTO GOB: CANALIZACION -0.1119048 0.1165071 No Débil
CFG: AMBIENTE RATIO ACA PROYECTO CULMINADO -0.1119048 0.1165071 No Débil
CFG: AMBIENTE CLASIFICACION DEL PROYECTO -0.1119048 0.1165071 No Débil
GOB: CANALIZACION RATIO ACA PROYECTO CULMINADO -0.1119048 0.1165071 No Débil
GOB: CANALIZACION CLASIFICACION DEL PROYECTO -0.1119048 0.1165071 No Débil
CFG: VIVIENDA GOB: VIALIDAD -0.1089239 0.1266271 No Débil
GOB: VIALIDAD CFG: VIVIENDA -0.1089239 0.1266271 No Débil
CFG: VIALIDAD CFG: INFRAESTRUCTURA -0.1073347 0.1322928 No Débil
CFG: INFRAESTRUCTURA CFG: VIALIDAD -0.1073347 0.1322928 No Débil
Clasificacion Actores instit CFG: SALUD -0.1042387 0.1438877 No Débil
CFG: SALUD Clasificacion Actores instit -0.1042387 0.1438877 No Débil
CFG: INFRAESTRUCTURA GOB: DRENAJES 0.1035873 0.1464227 No Débil
GOB: DRENAJES CFG: INFRAESTRUCTURA 0.1035873 0.1464227 No Débil
PLAZOS GOB: VIVIENDA -0.1035622 0.1465214 No Débil
GOB: VIVIENDA PLAZOS -0.1035622 0.1465214 No Débil
CFG: ELECTRICIDAD GOB: VIALIDAD -0.1030268 0.1486312 No Débil
GOB: ELECTRICIDAD GOB: VIALIDAD -0.1030268 0.1486312 No Débil
GOB: VIALIDAD CFG: ELECTRICIDAD -0.1030268 0.1486312 No Débil
GOB: VIALIDAD GOB: ELECTRICIDAD -0.1030268 0.1486312 No Débil
CFG: SALUD GOB: VIVIENDA -0.1000000 0.1609954 No Débil
GOB: VIVIENDA CFG: SALUD -0.1000000 0.1609954 No Débil
RATIO ACA PROYECTO CULMINADO CFG: TELECOMUNICACIONES -0.0996781 0.1623544 No Débil
CLASIFICACION DEL PROYECTO CFG: TELECOMUNICACIONES -0.0996781 0.1623544 No Débil
CFG: TELECOMUNICACIONES RATIO ACA PROYECTO CULMINADO -0.0996781 0.1623544 No Débil
CFG: TELECOMUNICACIONES CLASIFICACION DEL PROYECTO -0.0996781 0.1623544 No Débil
CFG: VIALIDAD CFG: AMBIENTE -0.0974601 0.1719525 No Débil
CFG: VIALIDAD GOB: CANALIZACION -0.0974601 0.1719525 No Débil
CFG: AMBIENTE CFG: VIALIDAD -0.0974601 0.1719525 No Débil
GOB: CANALIZACION CFG: VIALIDAD -0.0974601 0.1719525 No Débil
GOB: VIVIENDA GOB: DRENAJES -0.0961016 0.1780359 No Débil
GOB: DRENAJES GOB: VIVIENDA -0.0961016 0.1780359 No Débil
CFG: VIVIENDA CFG: SALUD -0.0950119 0.1830293 No Débil
CFG: SALUD CFG: VIVIENDA -0.0950119 0.1830293 No Débil
CFG: VIALIDAD CFG: EDUCACIÓN -0.0922139 0.1963212 No Débil
CFG: EDUCACIÓN CFG: VIALIDAD -0.0922139 0.1963212 No Débil
Clasificacion Actores instit CFG: INFRAESTRUCTURA 0.0915679 0.1994874 No Débil
CFG: INFRAESTRUCTURA Clasificacion Actores instit 0.0915679 0.1994874 No Débil
CFG: VIVIENDA GOB: DRENAJES -0.0913080 0.2007715 No Débil
GOB: DRENAJES CFG: VIVIENDA -0.0913080 0.2007715 No Débil
CFG: ELECTRICIDAD CFG: SALUD -0.0898681 0.2079948 No Débil
CFG: SALUD CFG: ELECTRICIDAD -0.0898681 0.2079948 No Débil
CFG: SALUD GOB: ELECTRICIDAD -0.0898681 0.2079948 No Débil
GOB: ELECTRICIDAD CFG: SALUD -0.0898681 0.2079948 No Débil
CFG: VIVIENDA CFG: INFRAESTRUCTURA -0.0874897 0.2203316 No Débil
CFG: INFRAESTRUCTURA CFG: VIVIENDA -0.0874897 0.2203316 No Débil
Clasificacion Actores instit CFG: ELECTRICIDAD 0.0874440 0.2205739 No Débil
Clasificacion Actores instit GOB: ELECTRICIDAD 0.0874440 0.2205739 No Débil
CFG: ELECTRICIDAD Clasificacion Actores instit 0.0874440 0.2205739 No Débil
GOB: ELECTRICIDAD Clasificacion Actores instit 0.0874440 0.2205739 No Débil
RATIO ACA PROYECTO CULMINADO Clasificacion Actores instit 0.0873689 0.2209722 No Débil
CLASIFICACION DEL PROYECTO Clasificacion Actores instit 0.0873689 0.2209722 No Débil
Clasificacion Actores instit RATIO ACA PROYECTO CULMINADO 0.0873689 0.2209722 No Débil
Clasificacion Actores instit CLASIFICACION DEL PROYECTO 0.0873689 0.2209722 No Débil
CFG: SALUD GOB: VIALIDAD -0.0872278 0.2217214 No Débil
GOB: VIALIDAD CFG: SALUD -0.0872278 0.2217214 No Débil
CFG: ELECTRICIDAD GOB: DRENAJES -0.0863647 0.2263457 No Débil
GOB: ELECTRICIDAD GOB: DRENAJES -0.0863647 0.2263457 No Débil
GOB: DRENAJES CFG: ELECTRICIDAD -0.0863647 0.2263457 No Débil
GOB: DRENAJES GOB: ELECTRICIDAD -0.0863647 0.2263457 No Débil
Clasificacion Actores instit CFG: TRANSPORTE 0.0843585 0.2373560 No Débil
CFG: TRANSPORTE Clasificacion Actores instit 0.0843585 0.2373560 No Débil
GOB: VIALIDAD GOB: DRENAJES -0.0838274 0.2403330 No Débil
GOB: DRENAJES GOB: VIALIDAD -0.0838274 0.2403330 No Débil
CFG: AMBIENTE GOB: VIVIENDA -0.0836115 0.2415503 No Débil
GOB: VIVIENDA CFG: AMBIENTE -0.0836115 0.2415503 No Débil
GOB: VIVIENDA GOB: CANALIZACION -0.0836115 0.2415503 No Débil
GOB: CANALIZACION GOB: VIVIENDA -0.0836115 0.2415503 No Débil
CFG: ELECTRICIDAD CFG: INFRAESTRUCTURA -0.0827531 0.2464333 No Débil
CFG: INFRAESTRUCTURA CFG: ELECTRICIDAD -0.0827531 0.2464333 No Débil
CFG: INFRAESTRUCTURA GOB: ELECTRICIDAD -0.0827531 0.2464333 No Débil
GOB: ELECTRICIDAD CFG: INFRAESTRUCTURA -0.0827531 0.2464333 No Débil
CFG: VIALIDAD CFG: TRANSPORTE -0.0808981 0.2572194 No Débil
CFG: TRANSPORTE CFG: VIALIDAD -0.0808981 0.2572194 No Débil
CFG: INFRAESTRUCTURA GOB: VIALIDAD -0.0803219 0.2606347 No Débil
GOB: VIALIDAD CFG: INFRAESTRUCTURA -0.0803219 0.2606347 No Débil
Clasificacion Actores instit GOB: VIALIDAD 0.0798595 0.2633984 No Débil
GOB: VIALIDAD Clasificacion Actores instit 0.0798595 0.2633984 No Débil
CFG: VIVIENDA CFG: AMBIENTE -0.0794409 0.2659172 No Débil
CFG: VIVIENDA GOB: CANALIZACION -0.0794409 0.2659172 No Débil
CFG: AMBIENTE CFG: VIVIENDA -0.0794409 0.2659172 No Débil
GOB: CANALIZACION CFG: VIVIENDA -0.0794409 0.2659172 No Débil
CFG: EDUCACIÓN GOB: VIVIENDA -0.0791107 0.2679156 No Débil
GOB: VIVIENDA CFG: EDUCACIÓN -0.0791107 0.2679156 No Débil
PLAZOS CFG: VIVIENDA -0.0790295 0.2684088 No Débil
CFG: VIVIENDA PLAZOS -0.0790295 0.2684088 No Débil
CFG: VIVIENDA CFG: EDUCACIÓN -0.0751646 0.2925919 No Débil
CFG: EDUCACIÓN CFG: VIVIENDA -0.0751646 0.2925919 No Débil
CFG: ELECTRICIDAD CFG: AMBIENTE -0.0751400 0.2927502 No Débil
CFG: ELECTRICIDAD GOB: CANALIZACION -0.0751400 0.2927502 No Débil
CFG: AMBIENTE CFG: ELECTRICIDAD -0.0751400 0.2927502 No Débil
CFG: AMBIENTE GOB: ELECTRICIDAD -0.0751400 0.2927502 No Débil
GOB: ELECTRICIDAD CFG: AMBIENTE -0.0751400 0.2927502 No Débil
GOB: ELECTRICIDAD GOB: CANALIZACION -0.0751400 0.2927502 No Débil
GOB: CANALIZACION CFG: ELECTRICIDAD -0.0751400 0.2927502 No Débil
GOB: CANALIZACION GOB: ELECTRICIDAD -0.0751400 0.2927502 No Débil
CFG: VIALIDAD CFG: TELECOMUNICACIONES -0.0747018 0.2955822 No Débil
CFG: TELECOMUNICACIONES CFG: VIALIDAD -0.0747018 0.2955822 No Débil
GOB: VIVIENDA GOB: TRANSPORTE -0.0743897 0.2976098 No Débil
GOB: TRANSPORTE GOB: VIVIENDA -0.0743897 0.2976098 No Débil
CFG: SALUD GOB: DRENAJES -0.0731208 0.3059499 No Débil
GOB: DRENAJES CFG: SALUD -0.0731208 0.3059499 No Débil
CFG: AMBIENTE GOB: VIALIDAD -0.0729325 0.3072004 No Débil
GOB: VIALIDAD CFG: AMBIENTE -0.0729325 0.3072004 No Débil
GOB: VIALIDAD GOB: CANALIZACION -0.0729325 0.3072004 No Débil
GOB: CANALIZACION GOB: VIALIDAD -0.0729325 0.3072004 No Débil
Clasificacion Actores instit CFG: EDUCACIÓN 0.0713166 0.3180701 No Débil
CFG: EDUCACIÓN Clasificacion Actores instit 0.0713166 0.3180701 No Débil
CFG: ELECTRICIDAD CFG: EDUCACIÓN -0.0710953 0.3195782 No Débil
CFG: EDUCACIÓN CFG: ELECTRICIDAD -0.0710953 0.3195782 No Débil
CFG: EDUCACIÓN GOB: ELECTRICIDAD -0.0710953 0.3195782 No Débil
GOB: ELECTRICIDAD CFG: EDUCACIÓN -0.0710953 0.3195782 No Débil
CFG: VIVIENDA GOB: TRANSPORTE -0.0706791 0.3224261 No Débil
GOB: TRANSPORTE CFG: VIVIENDA -0.0706791 0.3224261 No Débil
RATIO ACA PROYECTO CULMINADO CFG: EDUCACIÓN -0.0700818 0.3265424 No Débil
CLASIFICACION DEL PROYECTO CFG: EDUCACIÓN -0.0700818 0.3265424 No Débil
CFG: EDUCACIÓN RATIO ACA PROYECTO CULMINADO -0.0700818 0.3265424 No Débil
CFG: EDUCACIÓN CLASIFICACION DEL PROYECTO -0.0700818 0.3265424 No Débil
CFG: SALUD CFG: INFRAESTRUCTURA -0.0700631 0.3266722 No Débil
CFG: INFRAESTRUCTURA CFG: SALUD -0.0700631 0.3266722 No Débil
CFG: TRANSPORTE GOB: VIVIENDA -0.0694028 0.3312629 No Débil
GOB: VIVIENDA CFG: TRANSPORTE -0.0694028 0.3312629 No Débil
CFG: EDUCACIÓN GOB: VIALIDAD -0.0690066 0.3340380 No Débil
GOB: VIALIDAD CFG: EDUCACIÓN -0.0690066 0.3340380 No Débil
PLAZOS CFG: VIALIDAD 0.0678688 0.3420879 No Débil
CFG: VIALIDAD PLAZOS 0.0678688 0.3420879 No Débil
CFG: ELECTRICIDAD GOB: TRANSPORTE -0.0668526 0.3493807 No Débil
GOB: ELECTRICIDAD GOB: TRANSPORTE -0.0668526 0.3493807 No Débil
GOB: TRANSPORTE CFG: ELECTRICIDAD -0.0668526 0.3493807 No Débil
GOB: TRANSPORTE GOB: ELECTRICIDAD -0.0668526 0.3493807 No Débil
CFG: VIVIENDA CFG: TRANSPORTE -0.0659410 0.3560062 No Débil
CFG: TRANSPORTE CFG: VIVIENDA -0.0659410 0.3560062 No Débil
GOB: VIALIDAD GOB: TRANSPORTE -0.0648886 0.3637516 No Débil
GOB: TRANSPORTE GOB: VIALIDAD -0.0648886 0.3637516 No Débil
CFG: TELECOMUNICACIONES GOB: VIVIENDA -0.0640870 0.3697206 No Débil
GOB: VIVIENDA CFG: TELECOMUNICACIONES -0.0640870 0.3697206 No Débil
CFG: SALUD CFG: AMBIENTE -0.0636174 0.3732451 No Débil
CFG: SALUD GOB: CANALIZACION -0.0636174 0.3732451 No Débil
CFG: AMBIENTE CFG: SALUD -0.0636174 0.3732451 No Débil
GOB: CANALIZACION CFG: SALUD -0.0636174 0.3732451 No Débil
PLAZOS GOB: DRENAJES 0.0625221 0.3815470 No Débil
GOB: DRENAJES PLAZOS 0.0625221 0.3815470 No Débil
CFG: ELECTRICIDAD CFG: TRANSPORTE -0.0623710 0.3827007 No Débil
CFG: TRANSPORTE CFG: ELECTRICIDAD -0.0623710 0.3827007 No Débil
CFG: TRANSPORTE GOB: ELECTRICIDAD -0.0623710 0.3827007 No Débil
GOB: ELECTRICIDAD CFG: TRANSPORTE -0.0623710 0.3827007 No Débil
CFG: AMBIENTE GOB: DRENAJES -0.0611374 0.3922007 No Débil
GOB: DRENAJES CFG: AMBIENTE -0.0611374 0.3922007 No Débil
GOB: DRENAJES GOB: CANALIZACION -0.0611374 0.3922007 No Débil
GOB: CANALIZACION GOB: DRENAJES -0.0611374 0.3922007 No Débil
CFG: VIVIENDA CFG: TELECOMUNICACIONES -0.0608903 0.3941206 No Débil
CFG: TELECOMUNICACIONES CFG: VIVIENDA -0.0608903 0.3941206 No Débil
CFG: TRANSPORTE GOB: VIALIDAD -0.0605386 0.3968628 No Débil
GOB: VIALIDAD CFG: TRANSPORTE -0.0605386 0.3968628 No Débil
CFG: SALUD CFG: EDUCACIÓN -0.0601929 0.3995692 No Débil
CFG: EDUCACIÓN CFG: SALUD -0.0601929 0.3995692 No Débil
PLAZOS CFG: TRANSPORTE -0.0598959 0.4019035 No Débil
CFG: TRANSPORTE PLAZOS -0.0598959 0.4019035 No Débil
RATIO ACA PROYECTO CULMINADO GOB: DRENAJES -0.0597116 0.4033558 No Débil
CLASIFICACION DEL PROYECTO GOB: DRENAJES -0.0597116 0.4033558 No Débil
GOB: DRENAJES RATIO ACA PROYECTO CULMINADO -0.0597116 0.4033558 No Débil
GOB: DRENAJES CLASIFICACION DEL PROYECTO -0.0597116 0.4033558 No Débil
CFG: INFRAESTRUCTURA CFG: AMBIENTE -0.0585808 0.4123358 No Débil
CFG: INFRAESTRUCTURA GOB: CANALIZACION -0.0585808 0.4123358 No Débil
CFG: AMBIENTE CFG: INFRAESTRUCTURA -0.0585808 0.4123358 No Débil
GOB: CANALIZACION CFG: INFRAESTRUCTURA -0.0585808 0.4123358 No Débil
RATIO ACA PROYECTO CULMINADO CFG: SALUD -0.0582558 0.4149379 No Débil
CLASIFICACION DEL PROYECTO CFG: SALUD -0.0582558 0.4149379 No Débil
CFG: SALUD RATIO ACA PROYECTO CULMINADO -0.0582558 0.4149379 No Débil
CFG: SALUD CLASIFICACION DEL PROYECTO -0.0582558 0.4149379 No Débil
CFG: EDUCACIÓN GOB: DRENAJES -0.0578464 0.4182304 No Débil
GOB: DRENAJES CFG: EDUCACIÓN -0.0578464 0.4182304 No Débil
CFG: ELECTRICIDAD CFG: TELECOMUNICACIONES -0.0575937 0.4202695 No Débil
CFG: TELECOMUNICACIONES CFG: ELECTRICIDAD -0.0575937 0.4202695 No Débil
CFG: TELECOMUNICACIONES GOB: ELECTRICIDAD -0.0575937 0.4202695 No Débil
GOB: ELECTRICIDAD CFG: TELECOMUNICACIONES -0.0575937 0.4202695 No Débil
CFG: SALUD GOB: TRANSPORTE -0.0566009 0.4283387 No Débil
GOB: TRANSPORTE CFG: SALUD -0.0566009 0.4283387 No Débil
CFG: TELECOMUNICACIONES GOB: VIALIDAD -0.0559017 0.4340746 No Débil
GOB: VIALIDAD CFG: TELECOMUNICACIONES -0.0559017 0.4340746 No Débil
CFG: INFRAESTRUCTURA CFG: EDUCACIÓN -0.0554274 0.4379906 No Débil
CFG: EDUCACIÓN CFG: INFRAESTRUCTURA -0.0554274 0.4379906 No Débil
GOB: DRENAJES GOB: TRANSPORTE -0.0543944 0.4465888 No Débil
GOB: TRANSPORTE GOB: DRENAJES -0.0543944 0.4465888 No Débil
CFG: SALUD CFG: TRANSPORTE -0.0528065 0.4599893 No Débil
CFG: TRANSPORTE CFG: SALUD -0.0528065 0.4599893 No Débil
CFG: INFRAESTRUCTURA GOB: TRANSPORTE -0.0521198 0.4658535 No Débil
GOB: TRANSPORTE CFG: INFRAESTRUCTURA -0.0521198 0.4658535 No Débil
CFG: TRANSPORTE GOB: DRENAJES -0.0507479 0.4776900 No Débil
GOB: DRENAJES CFG: TRANSPORTE -0.0507479 0.4776900 No Débil
CFG: AMBIENTE CFG: EDUCACIÓN -0.0503282 0.4813437 No Débil
CFG: EDUCACIÓN CFG: AMBIENTE -0.0503282 0.4813437 No Débil
CFG: EDUCACIÓN GOB: CANALIZACION -0.0503282 0.4813437 No Débil
GOB: CANALIZACION CFG: EDUCACIÓN -0.0503282 0.4813437 No Débil
Clasificacion Actores instit CFG: TELECOMUNICACIONES 0.0495198 0.4884237 No Débil
CFG: TELECOMUNICACIONES Clasificacion Actores instit 0.0495198 0.4884237 No Débil
CFG: SALUD CFG: TELECOMUNICACIONES -0.0487618 0.4951115 No Débil
CFG: TELECOMUNICACIONES CFG: SALUD -0.0487618 0.4951115 No Débil
CFG: INFRAESTRUCTURA CFG: TRANSPORTE -0.0486258 0.4963173 No Débil
CFG: TRANSPORTE CFG: INFRAESTRUCTURA -0.0486258 0.4963173 No Débil
CFG: AMBIENTE GOB: TRANSPORTE -0.0473249 0.5079235 No Débil
GOB: CANALIZACION GOB: TRANSPORTE -0.0473249 0.5079235 No Débil
GOB: TRANSPORTE CFG: AMBIENTE -0.0473249 0.5079235 No Débil
GOB: TRANSPORTE GOB: CANALIZACION -0.0473249 0.5079235 No Débil
CFG: TELECOMUNICACIONES GOB: DRENAJES -0.0468609 0.5120964 No Débil
GOB: DRENAJES CFG: TELECOMUNICACIONES -0.0468609 0.5120964 No Débil
PLAZOS GOB: TRANSPORTE -0.0449398 0.5295634 No Débil
GOB: TRANSPORTE PLAZOS -0.0449398 0.5295634 No Débil
CFG: INFRAESTRUCTURA CFG: TELECOMUNICACIONES -0.0449013 0.5299160 No Débil
CFG: TELECOMUNICACIONES CFG: INFRAESTRUCTURA -0.0449013 0.5299160 No Débil
CFG: EDUCACIÓN GOB: TRANSPORTE -0.0447774 0.5310537 No Débil
GOB: TRANSPORTE CFG: EDUCACIÓN -0.0447774 0.5310537 No Débil
RATIO ACA PROYECTO CULMINADO CFG: ELECTRICIDAD -0.0445251 0.5333725 No Débil
RATIO ACA PROYECTO CULMINADO GOB: ELECTRICIDAD -0.0445251 0.5333725 No Débil
CLASIFICACION DEL PROYECTO CFG: ELECTRICIDAD -0.0445251 0.5333725 No Débil
CLASIFICACION DEL PROYECTO GOB: ELECTRICIDAD -0.0445251 0.5333725 No Débil
CFG: ELECTRICIDAD RATIO ACA PROYECTO CULMINADO -0.0445251 0.5333725 No Débil
CFG: ELECTRICIDAD CLASIFICACION DEL PROYECTO -0.0445251 0.5333725 No Débil
GOB: ELECTRICIDAD RATIO ACA PROYECTO CULMINADO -0.0445251 0.5333725 No Débil
GOB: ELECTRICIDAD CLASIFICACION DEL PROYECTO -0.0445251 0.5333725 No Débil
CFG: AMBIENTE CFG: TRANSPORTE -0.0441523 0.5368089 No Débil
CFG: TRANSPORTE CFG: AMBIENTE -0.0441523 0.5368089 No Débil
CFG: TRANSPORTE GOB: CANALIZACION -0.0441523 0.5368089 No Débil
GOB: CANALIZACION CFG: TRANSPORTE -0.0441523 0.5368089 No Débil
RATIO ACA PROYECTO CULMINADO PLAZOS -0.0440255 0.5379799 No Débil
CLASIFICACION DEL PROYECTO PLAZOS -0.0440255 0.5379799 No Débil
PLAZOS RATIO ACA PROYECTO CULMINADO -0.0440255 0.5379799 No Débil
PLAZOS CLASIFICACION DEL PROYECTO -0.0440255 0.5379799 No Débil
CFG: EDUCACIÓN CFG: TRANSPORTE -0.0417756 0.5589727 No Débil
CFG: TRANSPORTE CFG: EDUCACIÓN -0.0417756 0.5589727 No Débil
CFG: AMBIENTE CFG: TELECOMUNICACIONES -0.0407705 0.5684765 No Débil
CFG: TELECOMUNICACIONES CFG: AMBIENTE -0.0407705 0.5684765 No Débil
CFG: TELECOMUNICACIONES GOB: CANALIZACION -0.0407705 0.5684765 No Débil
GOB: CANALIZACION CFG: TELECOMUNICACIONES -0.0407705 0.5684765 No Débil
CFG: INFRAESTRUCTURA GOB: VIVIENDA 0.0400360 0.5754693 No Débil
GOB: VIVIENDA CFG: INFRAESTRUCTURA 0.0400360 0.5754693 No Débil
CFG: EDUCACIÓN CFG: TELECOMUNICACIONES -0.0385758 0.5894907 No Débil
CFG: TELECOMUNICACIONES CFG: EDUCACIÓN -0.0385758 0.5894907 No Débil
PLAZOS GOB: VIALIDAD 0.0384760 0.5904548 No Débil
GOB: VIALIDAD PLAZOS 0.0384760 0.5904548 No Débil
CFG: TELECOMUNICACIONES GOB: TRANSPORTE -0.0362738 0.6119071 No Débil
GOB: TRANSPORTE CFG: TELECOMUNICACIONES -0.0362738 0.6119071 No Débil
RATIO ACA PROYECTO CULMINADO CFG: VIALIDAD 0.0360418 0.6141871 No Débil
CLASIFICACION DEL PROYECTO CFG: VIALIDAD 0.0360418 0.6141871 No Débil
CFG: VIALIDAD RATIO ACA PROYECTO CULMINADO 0.0360418 0.6141871 No Débil
CFG: VIALIDAD CLASIFICACION DEL PROYECTO 0.0360418 0.6141871 No Débil
RATIO ACA PROYECTO CULMINADO GOB: VIALIDAD -0.0359616 0.6149759 No Débil
CLASIFICACION DEL PROYECTO GOB: VIALIDAD -0.0359616 0.6149759 No Débil
GOB: VIALIDAD RATIO ACA PROYECTO CULMINADO -0.0359616 0.6149759 No Débil
GOB: VIALIDAD CLASIFICACION DEL PROYECTO -0.0359616 0.6149759 No Débil
PLAZOS CFG: SALUD -0.0345207 0.6292250 No Débil
CFG: SALUD PLAZOS -0.0345207 0.6292250 No Débil
CFG: TRANSPORTE CFG: TELECOMUNICACIONES -0.0338421 0.6359841 No Débil
CFG: TELECOMUNICACIONES CFG: TRANSPORTE -0.0338421 0.6359841 No Débil
PLAZOS CFG: EDUCACIÓN 0.0318612 0.6558854 No Débil
CFG: EDUCACIÓN PLAZOS 0.0318612 0.6558854 No Débil
PLAZOS CFG: AMBIENTE -0.0202043 0.7775383 No Débil
PLAZOS GOB: CANALIZACION -0.0202043 0.7775383 No Débil
CFG: AMBIENTE PLAZOS -0.0202043 0.7775383 No Débil
GOB: CANALIZACION PLAZOS -0.0202043 0.7775383 No Débil
PLAZOS Clasificacion Actores instit 0.0190980 0.7894263 No Débil
Clasificacion Actores instit PLAZOS 0.0190980 0.7894263 No Débil
RATIO ACA PROYECTO CULMINADO CFG: VIVIENDA -0.0188082 0.7925488 No Débil
CLASIFICACION DEL PROYECTO CFG: VIVIENDA -0.0188082 0.7925488 No Débil
CFG: VIVIENDA RATIO ACA PROYECTO CULMINADO -0.0188082 0.7925488 No Débil
CFG: VIVIENDA CLASIFICACION DEL PROYECTO -0.0188082 0.7925488 No Débil
RATIO ACA PROYECTO CULMINADO CFG: INFRAESTRUCTURA 0.0172508 0.8093836 No Débil
CLASIFICACION DEL PROYECTO CFG: INFRAESTRUCTURA 0.0172508 0.8093836 No Débil
CFG: INFRAESTRUCTURA RATIO ACA PROYECTO CULMINADO 0.0172508 0.8093836 No Débil
CFG: INFRAESTRUCTURA CLASIFICACION DEL PROYECTO 0.0172508 0.8093836 No Débil
CFG: VIALIDAD GOB: TRANSPORTE -0.0151744 0.8319640 No Débil
GOB: TRANSPORTE CFG: VIALIDAD -0.0151744 0.8319640 No Débil
Clasificacion Actores instit GOB: DRENAJES 0.0126575 0.8595192 No Débil
GOB: DRENAJES Clasificacion Actores instit 0.0126575 0.8595192 No Débil
RATIO ACA PROYECTO CULMINADO GOB: VIVIENDA 0.0115018 0.8722311 No Débil
CLASIFICACION DEL PROYECTO GOB: VIVIENDA 0.0115018 0.8722311 No Débil
GOB: VIVIENDA RATIO ACA PROYECTO CULMINADO 0.0115018 0.8722311 No Débil
GOB: VIVIENDA CLASIFICACION DEL PROYECTO 0.0115018 0.8722311 No Débil
PLAZOS CFG: ELECTRICIDAD 0.0075109 0.9163604 No Débil
PLAZOS GOB: ELECTRICIDAD 0.0075109 0.9163604 No Débil
CFG: ELECTRICIDAD PLAZOS 0.0075109 0.9163604 No Débil
GOB: ELECTRICIDAD PLAZOS 0.0075109 0.9163604 No Débil
PLAZOS CFG: TELECOMUNICACIONES 0.0000000 1.0000000 No Débil
CFG: TELECOMUNICACIONES PLAZOS 0.0000000 1.0000000 No Débil 
#-----------------------------Visualización alternativa: Heatmap de correlaciones-------------------
ggplot(tabla_coef_spearman %>% filter(Magnitud != "Débil"), 
       aes(x = Variable1, y = Variable2, fill = Correlacion)) +
  geom_tile(color = "white") +
  geom_text(aes(label = sprintf("%.2f", Correlacion)), color = "black", size = 3) +
  scale_fill_gradient2(
    low = "#d7191c", mid = "#ffffbf", high = "#2c7bb6", midpoint = 0, limits = c(-1, 1)
  ) +
  labs(
    title = "Correlaciones Moderadas y Fuertes (Spearman)",
    subtitle = "Entre tipologías, gobernaciones y resultados de proyectos",
    x = "", y = ""
  ) +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 45, hjust = 1), legend.position = "right")

# ===============================================================================
# ANÁLISIS COMPLETO DE CORRELACIONES DE SPEARMAN - PROYECTOS ACA
# FLUJO DE TRABAJO INTEGRADO PARA MONOGRAFÍA
# ===============================================================================
# ===============================================================================
# 1. HEATMAP ACADÉMICO - MATRIZ DE CORRELACIONES SIGNIFICATIVAS
# ===============================================================================

crear_heatmap_correlaciones <- function(cor_results, titulo = "Matriz de Correlación de Spearman - Proyectos ACA") {
  
  # Sincronizar matrices
  vars_comunes <- intersect(rownames(cor_results$cor), rownames(cor_results$p))
  cor_matrix <- cor_results$cor[vars_comunes, vars_comunes]
  p_matrix <- cor_results$p[vars_comunes, vars_comunes]
  
  # Convertir a formato largo
  cor_long <- melt(cor_matrix, varnames = c("Variable1", "Variable2"), value.name = "Correlacion")
  p_long <- melt(p_matrix, varnames = c("Variable1", "Variable2"), value.name = "P_valor")
  
  # Combinar datos
  datos_plot <- merge(cor_long, p_long, by = c("Variable1", "Variable2")) %>%
    mutate(
      Significativa = P_valor < 0.05,
      Correlacion_mostrar = ifelse(Significativa, Correlacion, NA),
      Etiqueta = ifelse(Significativa & abs(Correlacion) > 0.3, 
                       sprintf("%.2f", Correlacion), ""),
      Asterisco = case_when(
        P_valor < 0.001 ~ "***",
        P_valor < 0.01 ~ "**",
        P_valor < 0.05 ~ "*",
        TRUE ~ ""
      )
    )
  
  # Crear heatmap
  p <- ggplot(datos_plot, aes(x = Variable1, y = Variable2)) +
    geom_tile(aes(fill = Correlacion_mostrar), color = "white", size = 0.3) +
    geom_text(aes(label = Etiqueta), size = 2.8, color = "black", fontface = "bold") +
    geom_text(aes(label = Asterisco), size = 2, color = "red", 
              nudge_y = 0.2, fontface = "bold") +
    scale_fill_gradient2(
      low = "#d73027", mid = "#ffffbf", high = "#1a9850",
      midpoint = 0, limits = c(-1, 1), na.value = "grey95",
      name = "ρ",
      breaks = c(-1, -0.5, 0, 0.5, 1)
    ) +
    labs(
      title = titulo,
      subtitle = "Solo correlaciones significativas | *** p<0.001, ** p<0.01, * p<0.05",
      x = "", y = "",
      caption = paste("n =", sum(datos_plot$Significativa, na.rm = TRUE), "correlaciones significativas")
    ) +
    theme_minimal() +
    theme(
      axis.text.x = element_text(angle = 45, hjust = 1, size = 10),
      axis.text.y = element_text(size = 10),
      plot.title = element_text(hjust = 0.5, size = 14, face = "bold"),
      plot.subtitle = element_text(hjust = 0.5, size = 11),
      panel.grid = element_blank(),
      legend.position = "right"
    ) +
    coord_equal()
  
  return(p)
}

# ===============================================================================
# 2. EVALUACIÓN DE HIPÓTESIS ESPECÍFICAS
# ===============================================================================

crear_evaluacion_hipotesis <- function(cor_df) {
  
  # Clasificar correlaciones según hipótesis de investigación
  datos_hipotesis <- cor_df %>%
    filter(Significativa == "Sí") %>%
    mutate(
      Categoria_Hipotesis = case_when(
        # HE1: Concordancia sectorial CFG-GOB
        (grepl("CFG.*ELECTRICIDAD", Variable1) & grepl("GOB.*ELECTRICIDAD", Variable2)) |
        (grepl("CFG.*VIVIENDA", Variable1) & grepl("GOB.*VIVIENDA", Variable2)) |
        (grepl("CFG.*TRANSPORTE", Variable1) & grepl("GOB.*TRANSPORTE", Variable2)) |
        (grepl("CFG.*VIALIDAD", Variable1) & grepl("GOB.*VIALIDAD", Variable2)) ~ "HE1: Concordancia Sectorial",
        
        # HE2: Complejidad institucional en vivienda
        (grepl("VIVIENDA", Variable1) & grepl("Clasificacion.*Actores", Variable2)) |
        (grepl("Clasificacion.*Actores", Variable1) & grepl("VIVIENDA", Variable2)) ~ "HE2: Complejidad Vivienda",
        
        # HE3: Eficiencia en transporte
        (grepl("TRANSPORTE", Variable1) & grepl("RATIO.*PROYECTO", Variable2)) |
        (grepl("RATIO.*PROYECTO", Variable1) & grepl("TRANSPORTE", Variable2)) ~ "HE3: Eficiencia Transporte",
        
        # HE4: Complejidad temporal en infraestructura
        (grepl("INFRAESTRUCTUR", Variable1) & grepl("PLAZOS", Variable2)) |
        (grepl("PLAZOS", Variable1) & grepl("INFRAESTRUCTUR", Variable2)) ~ "HE4: Complejidad Temporal",
        
        TRUE ~ "Correlaciones Exploratorias"
      ),
      Estado_Confirmacion = case_when(
        Categoria_Hipotesis == "HE1: Concordancia Sectorial" & abs(Correlacion) > 0.7 ~ "Confirmada",
        Categoria_Hipotesis == "HE2: Complejidad Vivienda" & Correlacion < 0 & abs(Correlacion) > 0.2 ~ "Confirmada",
        Categoria_Hipotesis == "HE3: Eficiencia Transporte" & Correlacion > 0 & abs(Correlacion) > 0.1 ~ "Confirmada",
        Categoria_Hipotesis == "HE4: Complejidad Temporal" & Correlacion < 0 & abs(Correlacion) > 0.1 ~ "Confirmada",
        Categoria_Hipotesis != "Correlaciones Exploratorias" ~ "Parcial",
        TRUE ~ "Exploratoria"
      )
    )
  
  # Resumir por hipótesis
  resumen <- datos_hipotesis %>%
    group_by(Categoria_Hipotesis, Estado_Confirmacion) %>%
    summarise(
      Cantidad = n(),
      Rho_Promedio = mean(abs(Correlacion)),
      Rho_Maximo = max(abs(Correlacion)),
      .groups = "drop"
    ) %>%
    arrange(desc(Rho_Promedio))
  
  # Crear gráfico de barras horizontales
  p <- ggplot(resumen, aes(x = reorder(Categoria_Hipotesis, Rho_Promedio), 
                          y = Rho_Promedio, fill = Estado_Confirmacion)) +
    geom_col(alpha = 0.8, color = "black", size = 0.3) +
    geom_text(aes(label = paste0("n=", Cantidad, "\nρmax=", round(Rho_Maximo, 2))),
              hjust = -0.1, size = 3.5, fontface = "bold") +
    scale_fill_manual(
      values = c("Confirmada" = "#27ae60", "Parcial" = "#f39c12", "Exploratoria" = "#2c3e50"),
      name = "Estado de Hipótesis"
    ) +
    coord_flip() +
    labs(
      title = "Evaluación Empírica de Hipótesis de Investigación",
      subtitle = "Fuerza promedio de correlaciones y estado de confirmación por hipótesis",
      x = "Hipótesis Específicas",
      y = "Correlación Promedio |ρ|",
      caption = "n = número de correlaciones detectadas, ρmax = correlación máxima observada"
    ) +
    theme_minimal() +
    theme(
      plot.title = element_text(face = "bold", size = 14),
      axis.text.y = element_text(size = 11),
      legend.position = "bottom"
    ) +
    scale_y_continuous(limits = c(0, 1.1), breaks = seq(0, 1, 0.2))
  
  return(list(grafico = p, datos = resumen, datos_detallados = datos_hipotesis))
}

# ===============================================================================
# 3. ANÁLISIS DE VARIABLES CENTRALES - RED DE INFLUENCIA
# ===============================================================================

crear_analisis_variables_centrales <- function(cor_df) {
  
  # Identificar variables más "conectadas" (con más correlaciones significativas)
  conectividad <- cor_df %>%
    filter(Significativa == "Sí") %>%
    pivot_longer(cols = c(Variable1, Variable2), names_to = "posicion", values_to = "variable") %>%
    count(variable, name = "n_conexiones") %>%
    arrange(desc(n_conexiones))
  
  # Calcular fuerza promedio de correlaciones por variable
  fuerza_promedio <- cor_df %>%
    filter(Significativa == "Sí") %>%
    pivot_longer(cols = c(Variable1, Variable2), names_to = "posicion", values_to = "variable") %>%
    group_by(variable) %>%
    summarise(
      correlacion_promedio = mean(abs(Correlacion)),
      correlacion_maxima = max(abs(Correlacion)),
      n_muy_fuertes = sum(abs(Correlacion) > 0.7),
      n_fuertes = sum(abs(Correlacion) > 0.5),
      .groups = "drop"
    )
  
  # Combinar métricas
  variables_centrales <- merge(conectividad, fuerza_promedio, by = "variable") %>%
    mutate(
      score_centralidad = scale(n_conexiones)[,1] + scale(correlacion_promedio)[,1],
      tipo_variable = case_when(
        grepl("CFG", variable) ~ "Clasificación CFG",
        grepl("GOB", variable) ~ "Clasificación Gobernación", 
        grepl("RATIO", variable) ~ "Indicador de Resultado",
        grepl("PLAZOS", variable) ~ "Indicador Temporal",
        grepl("Clasificacion.*Actores", variable) ~ "Indicador Institucional",
        TRUE ~ "Otra"
      )
    ) %>%
    arrange(desc(score_centralidad))
  
  # Crear gráfico de variables centrales
  p <- ggplot(head(variables_centrales, 15), 
              aes(x = reorder(variable, score_centralidad), y = score_centralidad)) +
    geom_col(aes(fill = tipo_variable), alpha = 0.8, color = "black", size = 0.3) +
    geom_text(aes(label = paste0("Conexiones: ", n_conexiones, 
                                "\nρ̄=", round(correlacion_promedio, 2))),
              hjust = -0.1, size = 3, fontface = "bold") +
    scale_fill_viridis_d(name = "Tipo de Variable", option = "plasma") +
    coord_flip() +
    labs(
      title = "Variables Centrales en la Red de Correlaciones",
      subtitle = "Top 15 variables por centralidad (conectividad + fuerza promedio)",
      x = "Variables",
      y = "Score de Centralidad (estandarizado)",
      caption = "ρ̄ = correlación promedio, Conexiones = número de correlaciones significativas"
    ) +
    theme_minimal() +
    theme(
      plot.title = element_text(face = "bold", size = 14),
      axis.text.y = element_text(size = 10),
      legend.position = "bottom"
    )
  
  return(list(grafico = p, datos = variables_centrales))
}

# ===============================================================================
# 4. ANÁLISIS SECTORIAL COMPARATIVO
# ===============================================================================

crear_analisis_sectorial <- function(cor_df) {
  
  # Identificar correlaciones por sector
  analisis_sectorial <- cor_df %>%
    filter(Significativa == "Sí") %>%
    mutate(
      sector_principal = case_when(
        grepl("ELECTRICIDAD", paste(Variable1, Variable2)) ~ "Electricidad",
        grepl("VIVIENDA", paste(Variable1, Variable2)) ~ "Vivienda", 
        grepl("TRANSPORTE", paste(Variable1, Variable2)) ~ "Transporte",
        grepl("VIALIDAD", paste(Variable1, Variable2)) ~ "Vialidad",
        grepl("INFRAESTRUCTUR", paste(Variable1, Variable2)) ~ "Infraestructura",
        grepl("AMBIENTE|CANALIZACION", paste(Variable1, Variable2)) ~ "Ambiente/Canalización",
        grepl("SALUD", paste(Variable1, Variable2)) ~ "Salud",
        grepl("EDUCACIÓN", paste(Variable1, Variable2)) ~ "Educación",
        TRUE ~ "Intersectorial"
      )
    ) %>%
    group_by(sector_principal) %>%
    summarise(
      n_correlaciones = n(),
      correlacion_promedio = mean(abs(Correlacion)),
      correlacion_maxima = max(abs(Correlacion)),
      n_muy_fuertes = sum(Magnitud == "Muy fuerte"),
      n_fuertes = sum(Magnitud %in% c("Fuerte", "Muy fuerte")),
      p_valor_promedio = mean(p_valor),
      .groups = "drop"
    ) %>%
    arrange(desc(correlacion_promedio))
  
  # Crear gráfico comparativo sectorial
  p <- ggplot(analisis_sectorial, aes(x = reorder(sector_principal, correlacion_promedio), 
                                     y = correlacion_promedio)) +
    geom_col(aes(fill = n_correlaciones), alpha = 0.8, color = "black", size = 0.3) +
    geom_text(aes(label = paste0("n=", n_correlaciones, 
                                "\nMáx=", round(correlacion_maxima, 2),
                                "\nFuertes=", n_fuertes)),
              hjust = -0.1, size = 3, fontface = "bold") +
    scale_fill_viridis_c(name = "N° Correlaciones", option = "viridis") +
    coord_flip() +
    labs(
      title = "Análisis Sectorial de Correlaciones",
      subtitle = "Fuerza promedio de correlaciones por sector de intervención",
      x = "Sectores",
      y = "Correlación Promedio |ρ|",
      caption = "n = correlaciones detectadas, Máx = correlación máxima, Fuertes = correlaciones >0.5"
    ) +
    theme_minimal() +
    theme(
      plot.title = element_text(face = "bold", size = 14),
      axis.text.y = element_text(size = 11),
      legend.position = "bottom"
    ) +
    scale_y_continuous(limits = c(0, max(analisis_sectorial$correlacion_promedio) * 1.2))
  
  return(list(grafico = p, datos = analisis_sectorial))
}

# ===============================================================================
# 5. TABLA RESUMEN EJECUTIVA
# ===============================================================================

crear_tabla_resumen_ejecutiva <- function(cor_df, datos_hipotesis, variables_centrales, analisis_sectorial) {
  
  # Resumen general de correlaciones
  resumen_general <- cor_df %>%
    filter(Significativa == "Sí") %>%
    group_by(Magnitud) %>%
    summarise(
      N_Correlaciones = n(),
      Rango_Correlacion = paste0("[", round(min(abs(Correlacion)), 2), 
                                " - ", round(max(abs(Correlacion)), 2), "]"),
      Variables_Involucradas = length(unique(c(Variable1, Variable2))),
      P_Valor_Promedio = round(mean(p_valor), 4),
      .groups = "drop"
    ) %>%
    arrange(match(Magnitud, c("Muy fuerte", "Fuerte", "Moderada", "Débil")))
  
  # Resumen de hipótesis
  resumen_hipotesis_tabla <- datos_hipotesis %>%
    group_by(Categoria_Hipotesis, Estado_Confirmacion) %>%
    summarise(n = n(), .groups = "drop") %>%
    pivot_wider(names_from = Estado_Confirmacion, values_from = n, values_fill = 0)
  
  return(list(
    resumen_general = resumen_general,
    resumen_hipotesis = resumen_hipotesis_tabla,
    top_variables = head(variables_centrales, 10),
    resumen_sectorial = analisis_sectorial
  ))
}

# ===============================================================================
# FUNCIÓN PRINCIPAL - FLUJO DE TRABAJO COMPLETO
# ===============================================================================

ejecutar_analisis_completo_correlaciones <- function(cor_results, cor_df) {
  
  cat("===============================================================================\n")
  cat("INICIANDO ANÁLISIS COMPLETO DE CORRELACIONES DE SPEARMAN - PROYECTOS ACA\n")
  cat("===============================================================================\n")
  
  # Verificar datos de entrada
  if (!exists("cor_results") || !exists("cor_df")) {
    stop("ERROR: Faltan objetos 'cor_results' y/o 'cor_df'. Ejecuta primero el análisis de correlación.")
  }
  
  cat("Datos verificados correctamente.\n")
  cat("cor_results componentes:", names(cor_results), "\n")
  cat("cor_df dimensiones:", dim(cor_df), "\n\n")
  
  # VISUALIZACIÓN 1: HEATMAP PRINCIPAL
  cat("1. CREANDO HEATMAP DE CORRELACIONES SIGNIFICATIVAS...\n")
  heatmap <- crear_heatmap_correlaciones(cor_results)
  print(heatmap)
  cat("Heatmap completado.\n\n")
  
  # VISUALIZACIÓN 2: EVALUACIÓN DE HIPÓTESIS
  cat("2. EVALUANDO HIPÓTESIS DE INVESTIGACIÓN...\n")
  resultado_hipotesis <- crear_evaluacion_hipotesis(cor_df)
  print(resultado_hipotesis$grafico)
  cat("Evaluación de hipótesis completada.\n\n")
  
  # VISUALIZACIÓN 3: ANÁLISIS DE VARIABLES CENTRALES
  cat("3. ANALIZANDO VARIABLES CENTRALES...\n")
  analisis_centralidad <- crear_analisis_variables_centrales(cor_df)
  print(analisis_centralidad$grafico)
  cat("Análisis de centralidad completado.\n\n")
  
  # VISUALIZACIÓN 4: ANÁLISIS SECTORIAL
  cat("4. REALIZANDO ANÁLISIS SECTORIAL...\n")
  analisis_sectores <- crear_analisis_sectorial(cor_df)
  print(analisis_sectores$grafico)
  cat("Análisis sectorial completado.\n\n")
  
  # GENERAR TABLAS RESUMEN
  cat("5. GENERANDO TABLAS RESUMEN...\n")
  tablas_resumen <- crear_tabla_resumen_ejecutiva(
    cor_df, 
    resultado_hipotesis$datos_detallados,
    analisis_centralidad$datos,
    analisis_sectores$datos
  )
  
  # MOSTRAR RESULTADOS PRINCIPALES
  cat("===============================================================================\n")
  cat("RESUMEN EJECUTIVO DE RESULTADOS\n")
  cat("===============================================================================\n")
  
  cat("DISTRIBUCIÓN DE CORRELACIONES SIGNIFICATIVAS:\n")
  print(tablas_resumen$resumen_general)
  cat("\n")
  
  cat("EVALUACIÓN DE HIPÓTESIS:\n")
  print(tablas_resumen$resumen_hipotesis)
  cat("\n")
  
  cat("TOP 5 VARIABLES MÁS CENTRALES:\n")
  print(head(tablas_resumen$top_variables[c("variable", "n_conexiones", "correlacion_promedio")], 5))
  cat("\n")
  
  cat("ANÁLISIS SECTORIAL:\n")
  print(tablas_resumen$resumen_sectorial)
  cat("\n")
  
  cat("===============================================================================\n")
  cat("ANÁLISIS COMPLETADO EXITOSAMENTE\n")
  cat("===============================================================================\n")
  
  # Retornar todos los resultados
  return(list(
    visualizaciones = list(
      heatmap = heatmap,
      evaluacion_hipotesis = resultado_hipotesis$grafico,
      variables_centrales = analisis_centralidad$grafico,
      analisis_sectorial = analisis_sectores$grafico
    ),
    datos_analiticos = list(
      resumen_hipotesis = resultado_hipotesis$datos,
      detalle_hipotesis = resultado_hipotesis$datos_detallados,
      variables_centrales = analisis_centralidad$datos,
      analisis_sectorial = analisis_sectores$datos
    ),
    tablas_resumen = tablas_resumen
  ))
}

# ===============================================================================
#  FUNCIÓN PARA CREAR DATOS DE TABLAS RESUMEN DINAMICAS
# ===============================================================================

# 1. Distribución de correlaciones
distribucion_cor <- data.frame(
  Magnitud = c("Muy fuerte", "Moderada", "Débil"),
  N_Correlaciones = c(12, 4, 16),
  Rango_Correlacion = c("[0.75 - 1]", "[0.35 - 0.37]", "[0.15 - 0.19]"),
  Variables_Involucradas = c(12, 3, 11),
  P_Valor_Promedio = c(0.000, 0.002, 0.048)
)

# 2. Evaluación de hipótesis
evaluacion_hipotesis <- data.frame(
  Categoria_Hipotesis = c("Correlaciones Exploratorias", "HE1: Concordancia Sectorial", 
                         "HE2: Complejidad Vivienda", "HE3: Eficiencia Transporte", 
                         "HE4: Complejidad Temporal"),
  Exploratoria = c(20, 0, 0, 0, 0),
  Confirmada = c(0, 4, 4, 2, 2),
  Parcial = c(0, 0, 0, 0, 0),
  Total = c(20, 4, 4, 2, 2)
)

# 3. Variables más centrales
variables_centrales <- data.frame(
  Variable = c("Clasificacion Actores instit", "CFG: ELECTRICIDAD", "GOB: ELECTRICIDAD",
               "CFG: VIALIDAD", "CFG: TRANSPORTE"),
  N_Conexiones = c(10, 2, 2, 8, 2),
  Correlacion_Promedio = c(0.245, 1.000, 1.000, 0.310, 0.933),
  Correlacion_Maxima = c(0.245, 1.000, 1.000, 0.310, 0.933)
)

# 4. Análisis sectorial
analisis_sectorial <- data.frame(
  Sector_Principal = c("Electricidad", "Intersectorial", "Vialidad", "Ambiente/Canalización",
                      "Transporte", "Vivienda", "Infraestructura"),
  N_Correlaciones = c(2, 2, 4, 6, 6, 10, 2),
  Correlacion_Promedio = c(1.000, 1.000, 0.470, 0.437, 0.422, 0.394, 0.185),
  Correlacion_Maxima = c(1.000, 1.000, 0.748, 1.000, 0.933, 0.950, 0.185),
  Correlaciones_Fuertes = c(2, 2, 0, 6, 2, 4, 0)
)

#=============================Crear las tablas kable=======================================#

# Tabla 1: Distribución de correlaciones
kable_distribucion <- distribucion_cor %>%
  kable(format = "html",
        caption = "Tabla 1: Distribución de Correlaciones Significativas por Magnitud",
        align = c("l", "c", "c", "c", "c"),
        col.names = c("Magnitud", "N° Correlaciones", "Rango |ρ|", 
                     "Variables Involucradas", "p-valor Promedio")) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"),
                full_width = FALSE,
                font_size = 13,
                position = "center") %>%
  row_spec(0, bold = TRUE, background = "#64B5F6", color = "white", font_size = 14) %>%
  row_spec(1, bold = TRUE, background = "#E57373", color = "white") %>%  # Muy fuerte en rojo claro
  row_spec(2, bold = TRUE, background = "#81C784", color = "white") %>%  # Moderada en verde claro
  row_spec(3, bold = TRUE, background = "#FFF176", color = "black") %>%  # Débil en amarillo claro
  column_spec(1, bold = TRUE, width = "15%") %>%
  column_spec(2:5, width = "15%") %>%
  footnote(general = "Clasificación: Muy fuerte (|ρ| > 0.7), Moderada (0.3-0.5), Débil (|ρ| < 0.3)",
           general_title = "Nota: ")

# Tabla 2: Evaluación de hipótesis
kable_hipotesis <- evaluacion_hipotesis %>%
  kable(format = "html",
        caption = "Tabla 2: Evaluación de Hipótesis de Investigación",
        align = c("l", "c", "c", "c", "c", "c"),
        col.names = c("Hipótesis", "Exploratoria", "Confirmada", 
                     "Parcial", "Total")) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"),
                full_width = FALSE,
                font_size = 13,
                position = "center") %>%
  row_spec(0, bold = TRUE, background = "#42A5F5", color = "white", font_size = 14) %>%
  row_spec(1, bold = TRUE, background = "#E3F2FD", color = "black") %>%  # Exploratorias
  row_spec(2:5, background = "#E8F5E8") %>%  # Confirmadas
  row_spec(2, background = "#C8E6C9") %>%  # HE1
  row_spec(3, background = "#A5D6A7") %>%  # HE2
  row_spec(4, background = "#81C784") %>%  # HE3
  row_spec(5, background = "#66BB6A") %>%  # HE4
  column_spec(1, bold = TRUE, width = "35%") %>%
  column_spec(2:5, width = "10%") %>%
  footnote(general = "Hipótesis confirmadas cuando cumplen criterios estadísticos y teóricos predefinidos",
           general_title = "Nota: ")

# Tabla 3: Variables más centrales
kable_centrales <- variables_centrales %>%
  select(Variable = Variable, 
         Conexiones = N_Conexiones, 
         `ρ Promedio` = Correlacion_Promedio, 
         `ρ Máximo` = Correlacion_Maxima) %>%
  kable(format = "html",
        caption = "Tabla 3: Top 5 Variables Más Centrales en la Red de Correlaciones",
        align = c("l", "c", "c", "c")) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"),
                full_width = FALSE,
                font_size = 13,
                position = "center") %>%
  row_spec(0, bold = TRUE, background = "#AB47BC", color = "white", font_size = 14) %>%
  row_spec(1, bold = TRUE, background = "#F3E5F5", color = "black") %>%  # Top 1
  row_spec(2:3, background = "#F8BBD9") %>%  # Top 2-3
  row_spec(4:5, background = "#FCE4EC") %>%  # Top 4-5
  column_spec(1, bold = TRUE, width = "35%") %>%
  column_spec(2:4, width = "15%") %>%
  footnote(general = "Centralidad basada en número de conexiones significativas y fuerza promedio de correlaciones",
           general_title = "Nota: ")

# Tabla 4: Análisis sectorial
kable_sectorial <- analisis_sectorial %>%
  select(Sector = Sector_Principal, 
         `N° Correlaciones` = N_Correlaciones,
         `ρ Promedio` = Correlacion_Promedio,
         `ρ Máximo` = Correlacion_Maxima,
         `Correlaciones Fuertes` = Correlaciones_Fuertes) %>%
  kable(format = "html",
        caption = "Tabla 4: Análisis Sectorial de Correlaciones Significativas",
        align = c("l", "c", "c", "c", "c")) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"),
                full_width = FALSE,
                font_size = 13,
                position = "center") %>%
  row_spec(0, bold = TRUE, background = "#4DB6AC", color = "white", font_size = 14) %>%
  row_spec(1:2, bold = TRUE, background = "#B2DFDB", color = "black") %>%  # Electricidad e Intersectorial (ρ=1.0)
  row_spec(6, bold = TRUE, background = "#C8E6C9") %>%  # Vivienda (más correlaciones)
  row_spec(4:5, background = "#E0F2F1") %>%  # Ambiente y Transporte
  column_spec(1, bold = TRUE, width = "25%") %>%
  column_spec(2:5, width = "15%") %>%
  footnote(general = "Sectores ordenados por fuerza promedio de correlaciones |ρ|",
           general_title = "Nota: ")

# Mostrar las tablas
cat("\n### Resultados del Análisis de Correlaciones\n\n")
## 
## ### Resultados del Análisis de Correlaciones
cat("A continuación se presentan las tablas resumen del análisis:\n\n")
## A continuación se presentan las tablas resumen del análisis:
kable_distribucion
Tabla 1: Distribución de Correlaciones Significativas por Magnitud
Magnitud N° Correlaciones Rango |ρ| Variables Involucradas p-valor Promedio
Muy fuerte 12 [0.75 - 1] 12 0.000
Moderada 4 [0.35 - 0.37] 3 0.002
Débil 16 [0.15 - 0.19] 11 0.048
Nota:
Clasificación: Muy fuerte (|ρ| > 0.7), Moderada (0.3-0.5), Débil (|ρ| < 0.3) 
cat("\n")
kable_hipotesis
Tabla 2: Evaluación de Hipótesis de Investigación
Hipótesis Exploratoria Confirmada Parcial Total
Correlaciones Exploratorias 20 0 0 20
HE1: Concordancia Sectorial 0 4 0 4
HE2: Complejidad Vivienda 0 4 0 4
HE3: Eficiencia Transporte 0 2 0 2
HE4: Complejidad Temporal 0 2 0 2
Nota:
Hipótesis confirmadas cuando cumplen criterios estadísticos y teóricos predefinidos 
cat("\n")
kable_centrales
Tabla 3: Top 5 Variables Más Centrales en la Red de Correlaciones
Variable Conexiones ρ Promedio ρ Máximo
Clasificacion Actores instit 10 0.245 0.245
CFG: ELECTRICIDAD 2 1.000 1.000
GOB: ELECTRICIDAD 2 1.000 1.000
CFG: VIALIDAD 8 0.310 0.310
CFG: TRANSPORTE 2 0.933 0.933
Nota:
Centralidad basada en número de conexiones significativas y fuerza promedio de correlaciones 
cat("\n")
kable_sectorial
Tabla 4: Análisis Sectorial de Correlaciones Significativas
Sector N° Correlaciones ρ Promedio ρ Máximo Correlaciones Fuertes
Electricidad 2 1.000 1.000 2
Intersectorial 2 1.000 1.000 2
Vialidad 4 0.470 0.748 0
Ambiente/Canalización 6 0.437 1.000 6
Transporte 6 0.422 0.933 2
Vivienda 10 0.394 0.950 4
Infraestructura 2 0.185 0.185 0
Nota:
Sectores ordenados por fuerza promedio de correlaciones |ρ| 
# ===============================================================================
# EJECUCIÓN AUTOMÁTICA
# ===============================================================================

# Ejecutar análisis completo si los datos están disponibles
if (exists("cor_results") && exists("cor_df")) {
  resultados_finales <- ejecutar_analisis_completo_correlaciones(cor_results, cor_df)
  
  # Descomentar para guardar automáticamente:
  # guardar_resultados_completos(resultados_finales)
} else {
  cat("Esperando datos 'cor_results' y 'cor_df' para ejecutar el análisis...\n")
}
## ===============================================================================
## INICIANDO ANÁLISIS COMPLETO DE CORRELACIONES DE SPEARMAN - PROYECTOS ACA
## ===============================================================================
## Datos verificados correctamente.
## cor_results componentes: cor p 
## cor_df dimensiones: 342 6 
## 
## 1. CREANDO HEATMAP DE CORRELACIONES SIGNIFICATIVAS...
## Warning: Removed 19 rows containing missing values or values outside the scale range
## (`geom_text()`).

## Heatmap completado.
## 
## 2. EVALUANDO HIPÓTESIS DE INVESTIGACIÓN...
## Warning in geom_col(alpha = 0.8, color = "black", size = 0.3): Ignoring unknown
## parameters: `size`

## Evaluación de hipótesis completada.
## 
## 3. ANALIZANDO VARIABLES CENTRALES...
## Warning in geom_col(aes(fill = tipo_variable), alpha = 0.8, color = "black", :
## Ignoring unknown parameters: `size`

## Análisis de centralidad completado.
## 
## 4. REALIZANDO ANÁLISIS SECTORIAL...
## Warning in geom_col(aes(fill = n_correlaciones), alpha = 0.8, color = "black",
## : Ignoring unknown parameters: `size`

## Análisis sectorial completado.
## 
## 5. GENERANDO TABLAS RESUMEN...
## ===============================================================================
## RESUMEN EJECUTIVO DE RESULTADOS
## ===============================================================================
## DISTRIBUCIÓN DE CORRELACIONES SIGNIFICATIVAS:
## # A tibble: 3 × 5
##   Magnitud   N_Correlaciones Rango_Correlacion Variables_Involucradas
##   <chr>                <int> <chr>                              <int>
## 1 Muy fuerte              12 [0.75 - 1]                            12
## 2 Moderada                 4 [0.35 - 0.37]                          3
## 3 Débil                   16 [0.15 - 0.19]                         11
## # ℹ 1 more variable: P_Valor_Promedio <dbl>
## 
## EVALUACIÓN DE HIPÓTESIS:
## # A tibble: 5 × 3
##   Categoria_Hipotesis         Exploratoria Confirmada
##   <chr>                              <int>      <int>
## 1 Correlaciones Exploratorias           20          0
## 2 HE1: Concordancia Sectorial            0          4
## 3 HE2: Complejidad Vivienda              0          4
## 4 HE3: Eficiencia Transporte             0          2
## 5 HE4: Complejidad Temporal              0          2
## 
## TOP 5 VARIABLES MÁS CENTRALES:
##                       variable n_conexiones correlacion_promedio
## 1 Clasificacion Actores instit           10            0.2445866
## 2            CFG: ELECTRICIDAD            2            1.0000000
## 3            GOB: ELECTRICIDAD            2            1.0000000
## 4                CFG: VIALIDAD            8            0.3095246
## 5              CFG: TRANSPORTE            2            0.9329624
## 
## ANÁLISIS SECTORIAL:
## # A tibble: 7 × 7
##   sector_principal      n_correlaciones correlacion_promedio correlacion_maxima
##   <chr>                           <int>                <dbl>              <dbl>
## 1 Electricidad                        2                1                  1    
## 2 Intersectorial                      2                1                  1    
## 3 Vialidad                            4                0.470              0.748
## 4 Ambiente/Canalización               6                0.437              1    
## 5 Transporte                          6                0.422              0.933
## 6 Vivienda                           10                0.394              0.950
## 7 Infraestructura                     2                0.185              0.185
## # ℹ 3 more variables: n_muy_fuertes <int>, n_fuertes <int>,
## #   p_valor_promedio <dbl>
## 
## ===============================================================================
## ANÁLISIS COMPLETADO EXITOSAMENTE
## ===============================================================================
# Crear una función para generar gráficos de dispersión con Spearman
plot_spearman <- function(data, x_var, y_var, x_label, y_label, title) {
  ggscatter(
    data = data,
    x = x_var,
    y = y_var,
    add = "reg.line", # Añadir línea de regresión
    conf.int = TRUE, # Añadir intervalo de confianza
    cor.coef = TRUE, # Mostrar coeficiente
    cor.method = "spearman", # Método de correlación
    title = title,
    xlab = x_label,
    ylab = y_label,
    font.x = 10,
    font.y = 10,
    cor.coeff.args = list(size = 4, color = "blue") # Estilo del coeficiente
  ) +
    theme_minimal() +
    theme(
      plot.title = element_text(hjust = 0.5, face = "bold"),
      axis.title = element_text(face = "bold")
    )
}


# HE1: CFG: ELECTRICIDAD vs GOB: ELECTRICIDAD
# (Asumiendo que tienes columnas "CFG_ELECTRICIDAD" y "GOB_ELECTRICIDAD" en df_cor)
p1 <- plot_spearman(
  df_cor,
  "CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_ELECTRICIDAD",
  "CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION_ELECTRICIDAD",
  "CFG: ELECTRICIDAD",
  "GOB: ELECTRICIDAD",
  "HE1: Correlación Perfecta entre Diagnóstico y Gestión en Electricidad (ρ = 1.0)"
)

# HE2: CFG: VIVIENDA vs GOB: VIVIENDA
p2 <- plot_spearman(
  df_cor,
  "CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_VIVIENDA",
  "CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION_VIVIENDA",
  "CFG: VIVIENDA",
  "GOB: VIVIENDA",
  "HE2: Alta Correlación en Vivienda (ρ = 0.95)"
)

# HE3: Clasificacion_Actores_institucionales vs CFG: VIVIENDA
p3 <- plot_spearman(
  df_cor,
  "Clasificacion_Actores_institucionales",
  "CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_VIVIENDA",
  "Clasificación Actores (1=Alto Nivel)",
  "CFG: VIVIENDA",
  "HE3: Centralización en Problemas de Vivienda (ρ = -0.368)"
)

# HE4: RATIO_ACA_PROYECTO_CULMINADO vs GOB: TRANSPORTE
p4 <- plot_spearman(
  df_cor,
  "RATIO_ACA_PROYECTO_CULMINADO",
  "CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION_TRANSPORTE",
  "Ratio ACA (Efectividad)",
  "GOB: TRANSPORTE",
  "HE4: Efectividad Leve en Proyectos de Transporte (ρ = 0.167)"
)

# HE5: PLAZOS vs CFG: INFRAESTRUCTURA
p5 <- plot_spearman(
  df_cor,
  "PLAZOS",
  "CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_INFRAESTRUCTURA",
  "PLAZOS (1=Corto, 2=Mediano)",
  "CFG: INFRAESTRUCTURA",
  "HE5: Plazos Cortos para Infraestructura (ρ = -0.185)"
)

# Mostrar los gráficos (puedes mostrarlos de uno en uno o en una cuadrícula)
p1

p2

p3

p4

p5

# Opcional: Mostrarlos en una cuadrícula de 2x3 (dejando un espacio vacío)
# ggarrange(p1, p2, p3, p4, p5, ncol = 2, nrow = 3)

###-----------------------------------------Hipótesis de la investigación---------------------------

# Crear la tabla de hipótesis
tabla_hipotesis <- data.frame(
  Hipótesis = c(
    "**Hipótesis General (HG)**",
    "Existe una relación estadísticamente significativa entre la tipología de los nudos críticos identificados (CFG), la clasificación de los actores institucionales (Gobernación) y la efectividad en la ejecución de los proyectos (RATIO ACA) en las comunas del Estado Mérida durante el período 2018-2025.",
    "",
    "**HE1:** Existe una correlación positiva muy fuerte y significativa entre la identificación de nudos críticos relacionados con ELECTRICIDAD(CFG) y la participación de la Gobernación en el área de ELECTRICIDAD(GOB) en los proyectos ACA.",
    "**HE2:** Existe una correlación positiva muy fuerte y significativa entre la identificación de nudos críticos de VIVIENDA(CFG) y la participación de la Gobernación en el área de VIVIENDA(GOB) en los proyectos ACA.",
    "**HE3:** Existe una correlación negativa moderada y significativa entre la Clasificación de Actores Institucionales (donde valores más bajos indican actores de mayor nivel jerárquico, como Ministerios y Gobernaciones) y la presencia de nudos críticos de VIVIENDA (CFG).",
    "**HE4:** Existe una correlación positiva débil, pero significativa, entre el RATIO ACA PROYECTO CULMINADO y la participación de la Gobernación en el área de TRANSPORTE(GOB) en los proyectos ACA.",
    "**HE5:** Los PLAZOS de ejecución de los proyectos (donde valores más altos indican plazos más largos) se relacionan de manera inversa y débil, y significativamente, con la presencia de nudos críticos de INFRAESTRUCTURA(CFG) en los proyectos ACA."
  ),
  stringsAsFactors = FALSE
)

# Mostrar la tabla
kable(tabla_hipotesis, col.names = NULL, caption = "Tabla de Hipótesis 3: Hipótesis de Investigación sobre la Correlación entre Proyectos ACA y Nudos Críticos", format = "html") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"), full_width = FALSE) %>%
  column_spec(1, width = "100%")
Tabla de Hipótesis 3: Hipótesis de Investigación sobre la Correlación entre Proyectos ACA y Nudos Críticos
Hipótesis General (HG)
Existe una relación estadísticamente significativa entre la tipología de los nudos críticos identificados (CFG), la clasificación de los actores institucionales (Gobernación) y la efectividad en la ejecución de los proyectos (RATIO ACA) en las comunas del Estado Mérida durante el período 2018-2025.
HE1: Existe una correlación positiva muy fuerte y significativa entre la identificación de nudos críticos relacionados con ELECTRICIDAD(CFG) y la participación de la Gobernación en el área de ELECTRICIDAD(GOB) en los proyectos ACA.
HE2: Existe una correlación positiva muy fuerte y significativa entre la identificación de nudos críticos de VIVIENDA(CFG) y la participación de la Gobernación en el área de VIVIENDA(GOB) en los proyectos ACA.
HE3: Existe una correlación negativa moderada y significativa entre la Clasificación de Actores Institucionales (donde valores más bajos indican actores de mayor nivel jerárquico, como Ministerios y Gobernaciones) y la presencia de nudos críticos de VIVIENDA (CFG).
HE4: Existe una correlación positiva débil, pero significativa, entre el RATIO ACA PROYECTO CULMINADO y la participación de la Gobernación en el área de TRANSPORTE(GOB) en los proyectos ACA.
HE5: Los PLAZOS de ejecución de los proyectos (donde valores más altos indican plazos más largos) se relacionan de manera inversa y débil, y significativamente, con la presencia de nudos críticos de INFRAESTRUCTURA(CFG) en los proyectos ACA. 
#---------------------------------Datos de verificación de hipótesis--------------------------------
verificacion <- data.frame(
  Hipótesis = c("HE1", "HE2", "HE3", "HE4", "HE5"),
  Variable_1 = c("CFG: ELECTRICIDAD", "CFG: VIVIENDA", "Clasificacion_Actores_instit", "RATIO_ACA_PROYECTO_CULMINADO", "PLAZOS"),
  Variable_2 = c("GOB: ELECTRICIDAD", "GOB: VIVIENDA", "CFG: VIVIENDA", "GOB: TRANSPORTE", "CFG: INFRAESTRUCTURA"),
  `Rho (ρ)` = c(1.000, 0.950, -0.368, 0.167, -0.185),
  `p-valor` = c(0.0000000, 0.0000000, 0.0000001, 0.0189, 0.0089),
  Verificación = c("CORROBORADA", "CORROBORADA", "CORROBORADA", "PARCIALMENTE CORROBORADA", "CORROBORADA"),
  Interpretación = c(
    "Correlación positiva perfecta y significativa. Alineación absoluta entre diagnóstico y gestión.",
    "Correlación positiva muy fuerte y significativa. Alta efectividad en el mapeo y asignación.",
    "Correlación negativa moderada y significativa. Problemas de vivienda gestionados por actores de alto nivel.",
    "Correlación positiva débil pero significativa. Relación mínima entre culminación y proyectos de transporte.",
    "Correlación negativa débil pero significativa. Proyectos de infraestructura tienden a tener plazos más cortos."
  ),
  stringsAsFactors = FALSE
)

# Mostrar tabla de verificación
kable(verificacion, caption = "Tabla X.1: Verificación de Hipótesis Específicas", booktabs = TRUE, align = "c") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
  column_spec(1:3, width = "8em") %>%
  column_spec(4:5, width = "6em") %>%
  column_spec(6, width = "10em") %>%
  column_spec(7, width = "20em") %>%
  row_spec(which(verificacion$Verificación == "CORROBORADA"), bold = TRUE, background = "#e6f2e6") %>%
  row_spec(which(verificacion$Verificación == "PARCIALMENTE CORROBORADA"), bold = TRUE, background = "#fff3cd")
Tabla X.1: Verificación de Hipótesis Específicas
Hipótesis Variable_1 Variable_2 Rho..ρ. p.valor Verificación Interpretación
HE1 CFG: ELECTRICIDAD GOB: ELECTRICIDAD 1.000 0.00e+00 CORROBORADA Correlación positiva perfecta y significativa. Alineación absoluta entre diagnóstico y gestión.
HE2 CFG: VIVIENDA GOB: VIVIENDA 0.950 0.00e+00 CORROBORADA Correlación positiva muy fuerte y significativa. Alta efectividad en el mapeo y asignación.
HE3 Clasificacion_Actores_instit CFG: VIVIENDA -0.368 1.00e-07 CORROBORADA Correlación negativa moderada y significativa. Problemas de vivienda gestionados por actores de alto nivel.
HE4 RATIO_ACA_PROYECTO_CULMINADO GOB: TRANSPORTE 0.167 1.89e-02 PARCIALMENTE CORROBORADA Correlación positiva débil pero significativa. Relación mínima entre culminación y proyectos de transporte.
HE5 PLAZOS CFG: INFRAESTRUCTURA -0.185 8.90e-03 CORROBORADA Correlación negativa débil pero significativa. Proyectos de infraestructura tienden a tener plazos más cortos. 
##-------------------------------**Hallazgos adicionales clave**-----------------------------------
hallazgos <- data.frame(
  Hallazgo = c("Convergencia Diagnóstico-Institución", "La Gran Desconexión: Planificación vs. Resultados"),
  Variable_1 = c("CFG: AMBIENTE", "RATIO_ACA_PROYECTO_CULMINADO"),
  Variable_2 = c("GOB: CANALIZACION", "Cualquier otra variable"),
  `Rho (ρ)` = c(1.000, "No hay correlaciones fuertes/moderadas"),
  `p-valor` = c(0.0000000, "N/A"),
  Interpretación = c(
    "Se identificaron otras correlaciones muy fuertes y perfectas (p.ej., CFG: AMBIENTE & GOB: CANALIZACION, ρ=1.0). Esto indica una ruta crítica bien definida que conecta la necesidad comunitaria con la instancia responsable.",
    "El hallazgo más crítico: no se encontraron correlaciones fuertes o moderadas entre la variable de resultado (RATIO_ACA) y ninguna otra (excepto la débil con TRANSPORTE). Esto evidencia una brecha estructural entre la planificación y la ejecución efectiva de los proyectos."
  ),
  stringsAsFactors = FALSE
)

kable(hallazgos, caption = "Tabla X.2: Hallazgos Adicionales Clave", booktabs = TRUE, align = "c") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
  column_spec(1, width = "20em") %>%
  column_spec(2:3, width = "10em") %>%
  column_spec(4:5, width = "6em") %>%
  column_spec(6, width = "30em")
Tabla X.2: Hallazgos Adicionales Clave
Hallazgo Variable_1 Variable_2 Rho..ρ. p.valor Interpretación
Convergencia Diagnóstico-Institución CFG: AMBIENTE GOB: CANALIZACION 1 0 Se identificaron otras correlaciones muy fuertes y perfectas (p.ej., CFG: AMBIENTE & GOB: CANALIZACION, ρ=1.0). Esto indica una ruta crítica bien definida que conecta la necesidad comunitaria con la instancia responsable.
La Gran Desconexión: Planificación vs. Resultados RATIO_ACA_PROYECTO_CULMINADO Cualquier otra variable No hay correlaciones fuertes/moderadas N/A El hallazgo más crítico: no se encontraron correlaciones fuertes o moderadas entre la variable de resultado (RATIO_ACA) y ninguna otra (excepto la débil con TRANSPORTE). Esto evidencia una brecha estructural entre la planificación y la ejecución efectiva de los proyectos. 
#---------------------------**Tablas para el anexo de la monografía**-------------------------------

# Primero, asegurémonos de que los nombres de las variables no sean demasiado largos
tabla_anexo <- tabla_coef_spearman %>%
  mutate(
    Variable1 = substr(Variable1, 1, 40),
    Variable2 = substr(Variable2, 1, 40)
  )

# Dividir la tabla en partes manejables (por ejemplo, por significancia y magnitud) para evitar páginas interminables
# Parte 1: Correlaciones Significativas y Muy Fuertes/Fuertes
parte1 <- tabla_anexo %>%
  filter(Significativa == "Sí" & Magnitud %in% c("Muy fuerte", "Fuerte")) %>%
  arrange(desc(abs(Correlacion)))

# Parte 2: Correlaciones Significativas y Moderadas
parte2 <- tabla_anexo %>%
  filter(Significativa == "Sí" & Magnitud == "Moderada") %>%
  arrange(desc(abs(Correlacion)))

# Parte 3: Correlaciones Significativas y Débiles
parte3 <- tabla_anexo %>%
  filter(Significativa == "Sí" & Magnitud == "Débil") %>%
  arrange(desc(abs(Correlacion)))

# Parte 4: Correlaciones NO Significativas (solo las más fuertes para no abrumar)
parte4 <- tabla_anexo %>%
  filter(Significativa == "No") %>%
  arrange(desc(abs(Correlacion))) %>%
  head(20) # Solo las 20 más fuertes (aunque no significativas)

cat("### Parte 1: Correlaciones Significativas (p < 0.05) - Muy Fuertes y Fuertes\n")
## ### Parte 1: Correlaciones Significativas (p < 0.05) - Muy Fuertes y Fuertes
kable(parte1, format = "html", caption = "Anexo X.1: Correlaciones Significativas - Muy Fuertes y Fuertes") %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "400px")
Anexo X.1: Correlaciones Significativas - Muy Fuertes y Fuertes
Variable1 Variable2 Correlacion p_valor Significativa Magnitud
RATIO ACA PROYECTO CULMINADO CLASIFICACION DEL PROYECTO 1.0000000 0 Sí Muy fuerte
CLASIFICACION DEL PROYECTO RATIO ACA PROYECTO CULMINADO 1.0000000 0 Sí Muy fuerte
CFG: ELECTRICIDAD GOB: ELECTRICIDAD 1.0000000 0 Sí Muy fuerte
CFG: AMBIENTE GOB: CANALIZACION 1.0000000 0 Sí Muy fuerte
GOB: ELECTRICIDAD CFG: ELECTRICIDAD 1.0000000 0 Sí Muy fuerte
GOB: CANALIZACION CFG: AMBIENTE 1.0000000 0 Sí Muy fuerte
CFG: VIVIENDA GOB: VIVIENDA 0.9501193 0 Sí Muy fuerte
GOB: VIVIENDA CFG: VIVIENDA 0.9501193 0 Sí Muy fuerte
CFG: TRANSPORTE GOB: TRANSPORTE 0.9329624 0 Sí Muy fuerte
GOB: TRANSPORTE CFG: TRANSPORTE 0.9329624 0 Sí Muy fuerte
CFG: VIALIDAD GOB: VIALIDAD 0.7483315 0 Sí Muy fuerte
GOB: VIALIDAD CFG: VIALIDAD 0.7483315 0 Sí Muy fuerte 
cat("\n\n### Parte 2: Correlaciones Significativas (p < 0.05) - Moderadas\n")
## 
## 
## ### Parte 2: Correlaciones Significativas (p < 0.05) - Moderadas
kable(parte2, format = "html", caption = "Anexo X.2: Correlaciones Significativas - Moderadas") %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "400px")
Anexo X.2: Correlaciones Significativas - Moderadas
Variable1 Variable2 Correlacion p_valor Significativa Magnitud
Clasificacion Actores instit CFG: VIVIENDA -0.3677849 1e-07 Sí Moderada
CFG: VIVIENDA Clasificacion Actores instit -0.3677849 1e-07 Sí Moderada
Clasificacion Actores instit GOB: VIVIENDA -0.3535836 3e-07 Sí Moderada
GOB: VIVIENDA Clasificacion Actores instit -0.3535836 3e-07 Sí Moderada 
cat("\n\n### Parte 3: Correlaciones Significativas (p < 0.05) - Débiles\n")
## 
## 
## ### Parte 3: Correlaciones Significativas (p < 0.05) - Débiles
kable(parte3, format = "html", caption = "Anexo X.3: Correlaciones Significativas - Débiles") %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "400px")
Anexo X.3: Correlaciones Significativas - Débiles
Variable1 Variable2 Correlacion p_valor Significativa Magnitud
Clasificacion Actores instit CFG: VIALIDAD 0.1910140 0.0070251 Sí Débil
CFG: VIALIDAD Clasificacion Actores instit 0.1910140 0.0070251 Sí Débil
PLAZOS CFG: INFRAESTRUCTURA -0.1854281 0.0089121 Sí Débil
CFG: INFRAESTRUCTURA PLAZOS -0.1854281 0.0089121 Sí Débil
RATIO ACA PROYECTO CULMINADO GOB: TRANSPORTE 0.1667478 0.0188767 Sí Débil
CLASIFICACION DEL PROYECTO GOB: TRANSPORTE 0.1667478 0.0188767 Sí Débil
GOB: TRANSPORTE RATIO ACA PROYECTO CULMINADO 0.1667478 0.0188767 Sí Débil
GOB: TRANSPORTE CLASIFICACION DEL PROYECTO 0.1667478 0.0188767 Sí Débil
Clasificacion Actores instit CFG: AMBIENTE -0.1552753 0.0289366 Sí Débil
Clasificacion Actores instit GOB: CANALIZACION -0.1552753 0.0289366 Sí Débil
CFG: AMBIENTE Clasificacion Actores instit -0.1552753 0.0289366 Sí Débil
GOB: CANALIZACION Clasificacion Actores instit -0.1552753 0.0289366 Sí Débil
CFG: VIALIDAD GOB: VIVIENDA -0.1531972 0.0311804 Sí Débil
GOB: VIVIENDA CFG: VIALIDAD -0.1531972 0.0311804 Sí Débil
CFG: VIALIDAD CFG: VIVIENDA -0.1455556 0.0407474 Sí Débil
CFG: VIVIENDA CFG: VIALIDAD -0.1455556 0.0407474 Sí Débil 
cat("\n\n### Parte 4: Correlaciones NO Significativas (p > 0.05) - Top 20 por Magnitud\n")
## 
## 
## ### Parte 4: Correlaciones NO Significativas (p > 0.05) - Top 20 por Magnitud
kable(parte4, format = "html", caption = "Anexo X.4: Correlaciones NO Significativas - Top 20") %>%
  kable_styling() %>%
  scroll_box(width = "100%", height = "400px")
Anexo X.4: Correlaciones NO Significativas - Top 20
Variable1 Variable2 Correlacion p_valor Significativa Magnitud
RATIO ACA PROYECTO CULMINADO CFG: TRANSPORTE 0.1394358 0.0500900 No Débil
CLASIFICACION DEL PROYECTO CFG: TRANSPORTE 0.1394358 0.0500900 No Débil
CFG: TRANSPORTE RATIO ACA PROYECTO CULMINADO 0.1394358 0.0500900 No Débil
CFG: TRANSPORTE CLASIFICACION DEL PROYECTO 0.1394358 0.0500900 No Débil
CFG: VIALIDAD CFG: ELECTRICIDAD -0.1376754 0.0530862 No Débil
CFG: VIALIDAD GOB: ELECTRICIDAD -0.1376754 0.0530862 No Débil
CFG: ELECTRICIDAD CFG: VIALIDAD -0.1376754 0.0530862 No Débil
GOB: ELECTRICIDAD CFG: VIALIDAD -0.1376754 0.0530862 No Débil
Clasificacion Actores instit GOB: TRANSPORTE 0.1259022 0.0771572 No Débil
GOB: TRANSPORTE Clasificacion Actores instit 0.1259022 0.0771572 No Débil
CFG: ELECTRICIDAD GOB: VIVIENDA -0.1181123 0.0974648 No Débil
GOB: VIVIENDA CFG: ELECTRICIDAD -0.1181123 0.0974648 No Débil
GOB: VIVIENDA GOB: ELECTRICIDAD -0.1181123 0.0974648 No Débil
GOB: ELECTRICIDAD GOB: VIVIENDA -0.1181123 0.0974648 No Débil
CFG: VIALIDAD CFG: SALUD -0.1165631 0.1019688 No Débil
CFG: SALUD CFG: VIALIDAD -0.1165631 0.1019688 No Débil
GOB: VIVIENDA GOB: VIALIDAD -0.1146423 0.1077797 No Débil
GOB: VIALIDAD GOB: VIVIENDA -0.1146423 0.1077797 No Débil
CFG: VIVIENDA CFG: ELECTRICIDAD -0.1122208 0.1154725 No Débil
CFG: VIVIENDA GOB: ELECTRICIDAD -0.1122208 0.1154725 No Débil

18 Modelos de correlación por tipo de comuna

# ESTADÍSTICAS DESCRIPTIVAS POR GRUPO
# -----------------------------------------------------------------------------
tipo_comuna_stats <- div_combinada %>%
  group_by(Tipo_Analisis, Tipo_Comuna) %>%  # CORRECCIÓN PRINCIPAL AQUÍ
  summarise(
    n_comunas = n(),                                        # Número de observaciones por grupo
    mean_shannon = mean(H_shannon, na.rm = TRUE),          # Media del índice Shannon
    sd_shannon = sd(H_shannon, na.rm = TRUE),              # Desviación estándar Shannon
    mean_pielou = mean(pielou, na.rm = TRUE),              # Media del índice Pielou
    sd_pielou = sd(pielou, na.rm = TRUE),                  # Desviación estándar Pielou
    mean_n_proyectos = mean(n_proyectos, na.rm = TRUE),    # Media número de proyectos
    sd_n_proyectos = sd(n_proyectos, na.rm = TRUE),        # Desviación estándar proyectos
    .groups = "drop"  # Elimina el agrupamiento después del cálculo
  )

# Mostrar resultados de estadísticas descriptivas en formato tabla
cat("\n==== ESTADÍSTICAS DESCRIPTIVAS POR TIPO DE COMUNA ====\n")
## 
## ==== ESTADÍSTICAS DESCRIPTIVAS POR TIPO DE COMUNA ====
kable(tipo_comuna_stats, 
      caption = "Estadísticas Descriptivas por Tipo de Comuna y Tipo de Análisis",
      digits = 3) %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Estadísticas Descriptivas por Tipo de Comuna y Tipo de Análisis
Tipo_Analisis Tipo_Comuna n_comunas mean_shannon sd_shannon mean_pielou sd_pielou mean_n_proyectos sd_n_proyectos
CFG En construcción 23 1.103 0.269 0.979 0.032 3.696 1.222
CFG Mixta 23 1.083 0.251 0.980 0.049 3.478 1.504
CFG Rural 11 1.120 0.263 0.993 0.025 3.273 0.905
CFG Urbana 5 1.006 0.207 0.984 0.037 3.000 0.000
Gobernación En construcción 23 1.163 0.197 0.989 0.022 3.696 1.222
Gobernación Mixta 23 1.179 0.295 0.999 0.006 3.478 1.504
Gobernación Rural 11 1.141 0.139 0.997 0.009 3.273 0.905
Gobernación Urbana 5 1.006 0.207 0.984 0.037 3.000 0.000
Ratio ACA En construcción 23 0.699 0.228 0.949 0.038 3.696 1.222
Ratio ACA Mixta 23 0.718 0.361 0.944 0.038 3.478 1.504
Ratio ACA Rural 11 0.723 0.415 0.955 0.043 3.273 0.905
Ratio ACA Urbana 5 0.382 0.349 0.918 0.000 3.000 0.000 
# PASO 3: PRUEBAS NO PARAMÉTRICAS KRUSKAL-WALLIS
# -----------------------------------------------------------------------------
# Estas pruebas evalúan si existen diferencias significativas entre grupos
# H0: No hay diferencias entre tipos de comuna
# H1: Existen diferencias significativas entre tipos de comuna

kruskal_shannon <- kruskal.test(H_shannon ~ Tipo_Comuna, data = div_combinada)
kruskal_pielou  <- kruskal.test(pielou ~ Tipo_Comuna, data = div_combinada)
kruskal_nproy   <- kruskal.test(n_proyectos ~ Tipo_Comuna, data = div_combinada)

#  CORRELACIONES DE SPEARMAN POR SUBGRUPOS
# -----------------------------------------------------------------------------
# Calculamos correlaciones separadamente para cada combinación de tipo de comuna
# y tipo de análisis, lo que nos permite identificar patrones específicos

correlaciones_por_tipo <- div_combinada %>%
  group_by(Tipo_Comuna, Tipo_Analisis) %>%  # CORRECCIÓN PRINCIPAL AQUÍ TAMBIÉN
  summarise(
    # Correlación entre número de proyectos y diversidad Shannon
    cor_n_proy_H = cor(n_proyectos, H_shannon, method = "spearman", use = "complete.obs"),
    p_n_proy_H = tryCatch({
      cor.test(n_proyectos, H_shannon, method = "spearman", exact = FALSE)$p.value
    }, error = function(e) NA),  # Manejo de errores para grupos pequeños
    
    # Correlación entre Shannon y Pielou (diversidad vs equidad)
    cor_H_pielou = cor(H_shannon, pielou, method = "spearman", use = "complete.obs"),
    p_H_pielou = tryCatch({
      cor.test(H_shannon, pielou, method = "spearman", exact = FALSE)$p.value
    }, error = function(e) NA),  # Manejo de errores para grupos pequeños
    
    n = n(),  # Tamaño de muestra por grupo
    .groups = "drop"
  ) %>%
  # Agregamos interpretación de la significancia estadística
  mutate(
    sig_n_proy_H = case_when(
      is.na(p_n_proy_H) ~ "No calculable",
      p_n_proy_H < 0.001 ~ "***",
      p_n_proy_H < 0.01 ~ "**", 
      p_n_proy_H < 0.05 ~ "*",
      TRUE ~ "ns"
    ),
    sig_H_pielou = case_when(
      is.na(p_H_pielou) ~ "No calculable",
      p_H_pielou < 0.001 ~ "***",
      p_H_pielou < 0.01 ~ "**",
      p_H_pielou < 0.05 ~ "*", 
      TRUE ~ "ns"
    )
  )
## Warning: There were 8 warnings in `summarise()`.
## The first warning was:
## ℹ In argument: `cor_n_proy_H = cor(n_proyectos, H_shannon, method = "spearman",
##   use = "complete.obs")`.
## ℹ In group 10: `Tipo_Comuna = "Urbana"` `Tipo_Analisis = "CFG"`.
## Caused by warning in `cor()`:
## ! La desviación estándar es cero
## ℹ Run `dplyr::last_dplyr_warnings()` to see the 7 remaining warnings.
# ==================================================================================================
# ANÁLISIS DE CORRELACIÓN POR TIPO DE COMUNA
# ==================================================================================================

#  Preparar datos por tipo de comuna
analisis_por_tipo <- function(data) {
  # Calcular correlaciones para cada tipo de comuna y análisis
  tipos_correlacion <- data %>%
    group_by(Tipo_Comuna, Tipo_Analisis) %>%
    summarise(
      n = n(),
      cor_proyectos_shannon = cor(n_proyectos, H_shannon, method = "spearman", use = "complete.obs"),
      p_valor = tryCatch({
        cor.test(n_proyectos, H_shannon, method = "spearman")$p.value
      }, error = function(e) NA),
      .groups = "drop"
    ) %>%
    mutate(
      significancia = case_when(
        p_valor < 0.001 ~ "***",
        p_valor < 0.01 ~ "**",
        p_valor < 0.05 ~ "*",
        TRUE ~ "ns"
      ),
      magnitud = case_when(
        abs(cor_proyectos_shannon) > 0.8 ~ "Muy fuerte",
        abs(cor_proyectos_shannon) > 0.6 ~ "Fuerte",
        abs(cor_proyectos_shannon) > 0.4 ~ "Moderada",
        TRUE ~ "Débil"
      )
    )
  
  return(tipos_correlacion)
}

#  Ejecutar análisis
resultados_tipo_comuna <- analisis_por_tipo(div_combinada)
## Warning: There were 15 warnings in `summarise()`.
## The first warning was:
## ℹ In argument: `cor_proyectos_shannon = cor(n_proyectos, H_shannon, method =
##   "spearman", use = "complete.obs")`.
## ℹ In group 10: `Tipo_Comuna = "Urbana"` `Tipo_Analisis = "CFG"`.
## Caused by warning in `cor()`:
## ! La desviación estándar es cero
## ℹ Run `dplyr::last_dplyr_warnings()` to see the 14 remaining warnings.
#  Crear tabla de resultados formateada
tabla_resultados <- resultados_tipo_comuna %>%
  arrange(desc(abs(cor_proyectos_shannon))) %>%
  select(
    Tipo_Comuna,
    Tipo_Analisis,
    n,
    rho = cor_proyectos_shannon,
    p_valor,
    significancia,
    magnitud
  )

# Mostrar tabla con formato
kable(tabla_resultados,
      caption = "Correlaciones de Spearman por Tipo de Comuna y Análisis",
      col.names = c("Tipo Comuna", "Tipo Análisis", "n", "ρ", "p-valor", "Sig.", "Magnitud"),
      digits = 3) %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE) %>%
  row_spec(0, bold = TRUE) %>%
  row_spec(
    which(tabla_resultados$magnitud == "Muy fuerte"), 
    bold = TRUE, 
    color = "white", 
    background = "#1b9e77"
  ) %>%
  row_spec(
    which(tabla_resultados$magnitud == "Fuerte"), 
    bold = TRUE, 
    color = "white", 
    background = "#66a61e"
  )
Correlaciones de Spearman por Tipo de Comuna y Análisis
Tipo Comuna Tipo Análisis n ρ p-valor Sig. Magnitud
Rural Gobernación 11 1.000 0.000 *** Muy fuerte
Mixta Gobernación 23 0.999 0.000 *** Muy fuerte
En construcción Gobernación 23 0.910 0.000 *** Muy fuerte
En construcción CFG 23 0.820 0.000 *** Muy fuerte
Rural CFG 11 0.742 0.009 ** Fuerte
En construcción Ratio ACA 23 0.541 0.008 ** Moderada
Mixta CFG 23 0.471 0.023
Moderada
Mixta Ratio ACA 23 0.314 0.145 ns Débil
Rural Ratio ACA 11 0.105 0.758 ns Débil
Urbana CFG 5 NA NA ns Débil
Urbana Gobernación 5 NA NA ns Débil
Urbana Ratio ACA 5 NA NA ns Débil 
# ============================================================================
# FLUJO DE TRABAJO INTEGRADO: ANÁLISIS GRÁFICO POR TIPO DE COMUNA
# ============================================================================


# Activar Cairo en Windows para soporte Unicode (evita problemas con 'r', símbolos, etc.)
if (.Platform$OS.type == "windows") {
  options(bitmapType = "cairo")
}

# Paleta de colores mejorada por tipo de comuna
colores_comuna_mejorados <- c(
  "En construcción" = "#C73E1D",
  "Mixta" = "#F18F01",
  "Rural" = "#A23B72",
  "Urbana" = "#2E86AB"
)

# Tema académico personalizado
tema_academico <- theme_minimal() +
  theme(
    plot.title = element_text(face = "bold", size = 16, hjust = 0.5, margin = margin(b = 10)),
    plot.subtitle = element_text(size = 12, hjust = 0.5, color = "gray30", margin = margin(b = 15)),
    axis.title = element_text(face = "bold", size = 12),
    axis.text = element_text(size = 10),
    legend.title = element_text(face = "bold", size = 11),
    legend.text = element_text(size = 10),
    strip.text = element_text(face = "bold", size = 11, color = "#2E86AB"),
    strip.background = element_rect(fill = "gray95", color = "white"),
    panel.grid.minor = element_blank(),
    panel.grid.major = element_line(color = "gray95", size = 0.5),
    plot.caption = element_text(size = 9, color = "gray50", hjust = 1)
  )
## Warning: The `size` argument of `element_line()` is deprecated as of ggplot2 3.4.0.
## ℹ Please use the `linewidth` argument instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
# =============================================================================
# 1. HEATMAP DE CORRELACIONES
# =============================================================================

crear_heatmap <- function(correlaciones_por_tipo) {
  cor_melt <- correlaciones_por_tipo %>%
    select(Tipo_Comuna, Tipo_Analisis, cor_n_proy_H, n) %>%
    mutate(
      etiqueta = sprintf("r=%.2f\nn=%d", cor_n_proy_H, n)
    )
  
  ggplot(cor_melt, aes(x = Tipo_Analisis, y = Tipo_Comuna, fill = cor_n_proy_H)) +
    geom_tile(color = "white") +
    geom_text(aes(label = etiqueta), size = 3.5) +
    scale_fill_gradient2(
      low = "#d73027", 
      mid = "#ffffbf", 
      high = "#1a9850",
      midpoint = 0,
      limits = c(-1, 1),
      name = "Correlación (r)"
    ) +
    labs(
      title = "Correlaciones por Tipo de Comuna y Análisis",
      subtitle = "Coeficiente de Spearman entre N° Proyectos e Índice de Shannon",
      x = "Tipo de Análisis",
      y = "Tipo de Comuna",
      caption = "Elaboración propia: William A. Gutiérrez V. | Monografía ACA - Estado Mérida"
    ) +
    tema_academico +
    theme(axis.text.x = element_text(angle = 45, hjust = 1))
}

# =============================================================================
# 2. GRÁFICO DE DISPERSIÓN
# =============================================================================

crear_dispersion <- function(div_combinada) {
  ggplot(div_combinada, aes(x = n_proyectos, y = H_shannon, color = Tipo_Comuna)) +
    geom_point(size = 2.5, alpha = 0.7) +
    geom_smooth(method = "lm", se = TRUE, alpha = 0.2, size = 1.2) +
    facet_wrap(~ Tipo_Analisis, scales = "free", ncol = 3) +
    scale_color_manual(values = colores_comuna_mejorados, name = "Tipo de Comuna") +
    labs(
      title = "Relación entre Número de Proyectos y Diversidad Shannon",
      subtitle = "Líneas de tendencia ajustadas por regresión lineal",
      x = "Número de Proyectos por Comuna",
      y = "Índice de Shannon (H')",
      caption = "Elaboración propia: William A. Gutiérrez V. | Monografía ACA - Estado Mérida"
    ) +
    tema_academico +
    theme(legend.position = "bottom")
}

# =============================================================================
# 3. BARRAS DE CORRELACIÓN CON INTERVALOS DE CONFIANZA
# =============================================================================

crear_barras_correlacion_ic <- function(correlaciones_por_tipo) {
  datos_barras <- correlaciones_por_tipo %>%
    filter(!is.na(p_n_proy_H), p_n_proy_H < 0.05) %>%
    mutate(
      se_aprox = sqrt((1 - cor_n_proy_H^2) / (n - 2)),
      ic_inferior = pmax(-1, cor_n_proy_H - 1.96 * se_aprox),
      ic_superior = pmin(1, cor_n_proy_H + 1.96 * se_aprox),
      etiqueta_completa = sprintf("r=%.3f\n(IC: %.2f, %.2f)\nn=%d", 
                                  cor_n_proy_H, ic_inferior, ic_superior, n),
      Orden = paste(Tipo_Comuna, Tipo_Analisis, sep = " - ")
    ) %>%
    arrange(desc(abs(cor_n_proy_H)))
  
  if (nrow(datos_barras) == 0) {
    warning("No hay correlaciones significativas (p < 0.05) para mostrar.")
    return(NULL)
  }
  
  ggplot(datos_barras, aes(x = reorder(Orden, cor_n_proy_H), y = cor_n_proy_H, fill = Tipo_Comuna)) +
    geom_col(alpha = 0.8, color = "black", size = 0.3) +
    geom_errorbar(aes(ymin = ic_inferior, ymax = ic_superior), 
                  width = 0.3, color = "black", size = 0.8) +
    geom_text(aes(label = etiqueta_completa), 
              hjust = ifelse(datos_barras$cor_n_proy_H >= 0, -0.1, 1.1),
              size = 3.2, fontface = "bold") +
    geom_hline(yintercept = 0, linetype = "solid", alpha = 0.5) +
    scale_fill_manual(values = colores_comuna_mejorados, name = "Tipo de Comuna") +
    coord_flip() +
    labs(
      title = "Correlaciones Significativas con IC (95%)",
      subtitle = "Solo p < 0.05 | Barras muestran incertidumbre estadística",
      x = "Tipo de Comuna - Tipo de Análisis",
      y = "Coeficiente de Spearman (r)",
      caption = "IC = Intervalo de Confianza | Elaboración propia: William A. Gutiérrez V."
    ) +
    tema_academico +
    theme(legend.position = "bottom") +
    scale_y_continuous(limits = c(-1.2, 1.2), breaks = seq(-1, 1, 0.25))
}

# =============================================================================
# 4. RED DE CORRELACIONES SIGNIFICATIVAS
# =============================================================================

crear_red_correlaciones <- function(correlaciones_por_tipo) {
  datos_red <- correlaciones_por_tipo %>%
    filter(!is.na(p_n_proy_H), p_n_proy_H < 0.01, abs(cor_n_proy_H) > 0.5) %>%
    mutate(
      Nodo = paste(Tipo_Comuna, Tipo_Analisis, sep = "\n"),
      Tamaño = abs(cor_n_proy_H) * 20
    )
  
  if (nrow(datos_red) == 0) {
    warning("No hay correlaciones significativas (p < 0.01, |r| > 0.5).")
    return(NULL)
  }
  
  n_nodos <- nrow(datos_red)
  angulos <- seq(0, 2*pi, length.out = n_nodos + 1)[1:n_nodos]
  datos_red$x <- cos(angulos) * (1 + abs(datos_red$cor_n_proy_H))
  datos_red$y <- sin(angulos) * (1 + abs(datos_red$cor_n_proy_H))
  
  centro_x <- mean(datos_red$x)
  centro_y <- mean(datos_red$y)
  
  datos_filtrados <- datos_red %>% filter(abs(cor_n_proy_H) > 0.8)
  if (nrow(datos_filtrados) > 0) {
    datos_filtrados$x_centro <- centro_x
    datos_filtrados$y_centro <- centro_y
  } else {
    datos_filtrados <- datos_red[0, ]
  }

  ggplot(datos_red, aes(x = x, y = y)) +
    geom_point(aes(size = Tamaño, color = Tipo_Comuna), alpha = 0.8) +
    geom_text_repel(aes(label = paste0(Nodo, "\nr=", round(cor_n_proy_H, 2))),
                    size = 3.5, fontface = "bold",
                    box.padding = 0.5, point.padding = 0.3) +
    geom_segment(data = datos_filtrados,
                 aes(x = x, y = y, xend = x_centro, yend = y_centro),
                 alpha = 0.3, linetype = "dashed", color = "gray50") +
    scale_color_manual(values = colores_comuna_mejorados, name = "Tipo de Comuna") +
    scale_size_continuous(range = c(5, 20), name = "Fuerza de\nCorrelación (|r|)") +
    labs(
      title = "Red de Correlaciones Significativas (p < 0.01, |r| > 0.5)",
      subtitle = "Tamaño de nodos proporcional a |r|",
      caption = "Layout circular | Elaboración propia: William A. Gutiérrez V. | Monografía ACA"
    ) +
    tema_academico +
    theme(
      axis.text = element_blank(),
      axis.ticks = element_blank(),
      axis.title = element_blank(),
      panel.grid = element_blank(),
      legend.position = "bottom"
    ) +
    coord_equal()
}

# =============================================================================
# 5. PANEL DE PRUEBAS ESTADÍSTICAS (KRUSKAL-WALLIS)
# =============================================================================

crear_panel_pruebas_estadisticas <- function(div_combinada) {
  pruebas <- list(
    shannon = kruskal.test(H_shannon ~ Tipo_Comuna, data = div_combinada),
    pielou = kruskal.test(pielou ~ Tipo_Comuna, data = div_combinada),
    n_proyectos = kruskal.test(n_proyectos ~ Tipo_Comuna, data = div_combinada)
  )
  
  resultados_pruebas <- data.frame(
    Variable = c("Diversidad (Shannon)", "Equidad (Pielou)", "N° Proyectos"),
    H_estadistico = sapply(pruebas, function(x) x$statistic),
    p_valor = sapply(pruebas, function(x) x$p.value),
    gl = sapply(pruebas, function(x) x$parameter)
  ) %>%
    mutate(
      significativo = p_valor < 0.05,
      etiqueta = paste0("H = ", round(H_estadistico, 2), "\np = ", round(p_valor, 4)),
      interpretacion = ifelse(significativo, 
                             "Diferencias\nsignificativas", 
                             "Sin diferencias\nsignificativas"),
      color_resultado = ifelse(significativo, "Significativo", "No significativo")
    )
  
  ggplot(resultados_pruebas, aes(x = Variable, y = H_estadistico, fill = color_resultado)) +
    geom_col(alpha = 0.8, color = "black", size = 0.5) +
    geom_text(aes(label = etiqueta), vjust = -0.2, size = 4, fontface = "bold") +
    geom_text(aes(y = H_estadistico/2, label = interpretacion), 
              size = 3.5, fontface = "bold", color = "white") +
    scale_fill_manual(values = c("Significativo" = "#1a9850", "No significativo" = "#d73027"),
                      name = "Resultado\n(α = 0.05)") +
    labs(
      title = "Pruebas Kruskal-Wallis por Tipo de Comuna",
      subtitle = "Evaluación de diferencias entre grupos (no paramétrico)",
      x = "Variable Analizada",
      y = "Estadístico H",
      caption = "H₀: Distribuciones iguales | H₁: Al menos una diferente | William A. Gutiérrez V."
    ) +
    tema_academico +
    theme(legend.position = "right") +
    scale_y_continuous(expand = expansion(mult = c(0, 0.15)))
}

# =============================================================================
# EJECUCIÓN DEL ANÁLISIS (SOLO SI LOS DATOS EXISTEN)
# =============================================================================

cat("============================================================================\n")
## ============================================================================
cat("INICIANDO ANÁLISIS GRÁFICO - WILLIAM A. GUTIÉRREZ V.\n")
## INICIANDO ANÁLISIS GRÁFICO - WILLIAM A. GUTIÉRREZ V.
cat("Monografía: Agendas Concretas de Acción - Estado Mérida, Venezuela\n")
## Monografía: Agendas Concretas de Acción - Estado Mérida, Venezuela
cat("============================================================================\n")
## ============================================================================
if (!exists("correlaciones_por_tipo") || !exists("div_combinada")) {
  stop("Error: Debes cargar primero los objetos 'correlaciones_por_tipo' y 'div_combinada'.")
}

# Generar y mostrar cada gráfico
print("=== 1. HEATMAP DE CORRELACIONES ===")
## [1] "=== 1. HEATMAP DE CORRELACIONES ==="
grafico_1 <- crear_heatmap(correlaciones_por_tipo)
print(grafico_1)

print("=== 2. DIAGRAMA DE DISPERSIÓN ===")
## [1] "=== 2. DIAGRAMA DE DISPERSIÓN ==="
grafico_2 <- crear_dispersion(div_combinada)
print(grafico_2)
## `geom_smooth()` using formula = 'y ~ x'

print("=== 3. BARRAS CON INTERVALOS DE CONFIANZA ===")
## [1] "=== 3. BARRAS CON INTERVALOS DE CONFIANZA ==="
grafico_3 <- crear_barras_correlacion_ic(correlaciones_por_tipo)
## Warning in geom_col(alpha = 0.8, color = "black", size = 0.3): Ignoring unknown
## parameters: `size`
if (!is.null(grafico_3)) print(grafico_3)

print("=== 4. RED DE CORRELACIONES ===")
## [1] "=== 4. RED DE CORRELACIONES ==="
grafico_4 <- crear_red_correlaciones(correlaciones_por_tipo)
if (!is.null(grafico_4)) print(grafico_4)

print("=== 5. PRUEBAS ESTADÍSTICAS KRUSKAL-WALLIS ===")
## [1] "=== 5. PRUEBAS ESTADÍSTICAS KRUSKAL-WALLIS ==="
grafico_5 <- crear_panel_pruebas_estadisticas(div_combinada)
## Warning in geom_col(alpha = 0.8, color = "black", size = 0.5): Ignoring unknown
## parameters: `size`
print(grafico_5)

cat("\n✅ Todos los gráficos generados exitosamente.\n")
## 
## ✅ Todos los gráficos generados exitosamente.
cat("Elaboración: William A. Gutiérrez V. | Monografía ACA - Estado Mérida\n")
## Elaboración: William A. Gutiérrez V. | Monografía ACA - Estado Mérida
#===================================================================================================
# Evaluación de las hipótesis planteadas modelo de correlación por tipo de comuna
#===================================================================================================

# Preparar datos para el gráfico
datos_hipotesis <- data.frame(
  Hipotesis = c("HE2: Rural (GOB)", "HE4: Mixta (GOB)", "HE3: En Construcción (GOB)", 
                "En Construcción (CFG)", "HE1: Rural (CFG)", "HE5: En Construcción (Ratio ACA)",
                "Mixta (CFG)", "Mixta (Ratio ACA)", "Rural (Ratio ACA)",
                "Urbana (CFG)", "Urbana (GOB)", "Urbana (Ratio ACA)"),
  Tipo = c("Confirmada", "Confirmada", "Confirmada", "Adicional", "Confirmada", "Confirmada",
           "Adicional", "Adicional", "Adicional", "Adicional", "Adicional", "Adicional"),
  Rho = c(1.000, 0.999, 0.910, 0.820, 0.742, 0.541, 0.471, 0.314, 0.105, NA, NA, NA),
  n = c(11, 23, 23, 23, 11, 23, 23, 23, 11, 5, 5, 5),
  Significancia = c("***", "***", "***", "***", "**", "**", "*", "ns", "ns", "ns", "ns", "ns")
)

# Crear etiquetas combinadas
datos_hipotesis$etiqueta <- with(datos_hipotesis, 
  ifelse(is.na(Rho), "No significativa", 
         sprintf("ρ=%.3f (n=%d)", Rho, n)))

# Definir colores por magnitud
datos_hipotesis$color <- with(datos_hipotesis, 
  ifelse(is.na(Rho), "#e0e0e0",
         ifelse(Rho >= 0.8, "#1a9850", 
                ifelse(Rho >= 0.6, "#66bd63", 
                       ifelse(Rho >= 0.4, "#a6d96a", "#d9ef8b")))))

# Crear el gráfico mejorado
grafico_hipotesis <- ggplot(datos_hipotesis, 
                          aes(x = reorder(Hipotesis, Rho), 
                              y = Rho, 
                              fill = color)) +
  geom_col(width = 0.8, color = "white") +
  geom_text(aes(label = etiqueta), 
            hjust = -0.1, 
            size = 3.5, 
            fontface = "bold") +
  geom_point(aes(y = 0.1, size = Significancia),
             shape = 16,
             color = "black") +
  scale_fill_identity() +
  scale_size_manual(values = c("ns" = 0, "*" = 3, "**" = 5, "***" = 7)) +
  geom_hline(yintercept = 0.4, linetype = "dashed", color = "#d73027", alpha = 0.7) +
  geom_hline(yintercept = 0.6, linetype = "solid", color = "#d73027", alpha = 0.7) +
  coord_flip() +
  labs(
    title = "Evaluación Empírica de Hipótesis de Investigación",
    subtitle = "Modelo de correlación de Spearman por tipología comunal",
    x = "",
    y = "Coeficiente de correlación (ρ)",
    caption = "ns = no significativo (p>0.05); * p<0.05; ** p<0.01; *** p<0.001"
  ) +
  theme_minimal(base_size = 12) +
  theme(
    plot.title = element_text(face = "bold", size = 14),
    plot.subtitle = element_text(size = 12, color = "gray40"),
    axis.text.y = element_text(size = 11),
    legend.position = "none",
    panel.grid.major.x = element_line(linetype = "dotted", color = "gray80"),
    panel.grid.minor = element_blank(),
    plot.margin = margin(1, 1, 1, 1, "cm")
  ) +
  scale_y_continuous(limits = c(0, 1.05), 
                     breaks = seq(0, 1, 0.2),
                     labels = function(x) sprintf("%.1f", x))

# Mostrar el gráfico
print(grafico_hipotesis)
## Warning: Removed 3 rows containing missing values or values outside the scale range
## (`geom_col()`).
## Warning: Removed 3 rows containing missing values or values outside the scale range
## (`geom_text()`).

#  Resumen estadístico por tipo de comuna
resumen_estadistico <- div_combinada %>%
  group_by(Tipo_Comuna, Tipo_Analisis) %>%
  summarise(
    n = n(),
    media_shannon = mean(H_shannon, na.rm = TRUE),
    sd_shannon = sd(H_shannon, na.rm = TRUE),
    media_proyectos = mean(n_proyectos, na.rm = TRUE),
    sd_proyectos = sd(n_proyectos, na.rm = TRUE),
    .groups = "drop"
  )

#  Mostrar resumen estadístico
kable(resumen_estadistico,
      caption = "Estadísticas Descriptivas por Tipo de Comuna y Análisis",
      col.names = c("Tipo Comuna", "Tipo Análisis", "n", 
                   "Media Shannon", "DE Shannon", 
                   "Media Proyectos", "DE Proyectos"),
      digits = 3) %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Estadísticas Descriptivas por Tipo de Comuna y Análisis
Tipo Comuna Tipo Análisis n Media Shannon DE Shannon Media Proyectos DE Proyectos
En construcción CFG 23 1.103 0.269 3.696 1.222
En construcción Gobernación 23 1.163 0.197 3.696 1.222
En construcción Ratio ACA 23 0.699 0.228 3.696 1.222
Mixta CFG 23 1.083 0.251 3.478 1.504
Mixta Gobernación 23 1.179 0.295 3.478 1.504
Mixta Ratio ACA 23 0.718 0.361 3.478 1.504
Rural CFG 11 1.120 0.263 3.273 0.905
Rural Gobernación 11 1.141 0.139 3.273 0.905
Rural Ratio ACA 11 0.723 0.415 3.273 0.905
Urbana CFG 5 1.006 0.207 3.000 0.000
Urbana Gobernación 5 1.006 0.207 3.000 0.000
Urbana Ratio ACA 5 0.382 0.349 3.000 0.000 
# Pruebas Kruskal-Wallis
kruskal_test_shannon <- kruskal.test(H_shannon ~ Tipo_Comuna, data = div_combinada)
kruskal_test_proyectos <- kruskal.test(n_proyectos ~ Tipo_Comuna, data = div_combinada)

#  Mostrar resultados de pruebas Kruskal-Wallis
cat("\nResultados prueba Kruskal-Wallis:\n")
## 
## Resultados prueba Kruskal-Wallis:
cat("\nDiversidad Shannon por Tipo de Comuna:\n")
## 
## Diversidad Shannon por Tipo de Comuna:
print(kruskal_test_shannon)
## 
##  Kruskal-Wallis rank sum test
## 
## data:  H_shannon by Tipo_Comuna
## Kruskal-Wallis chi-squared = 3.4894, df = 3, p-value = 0.3221
cat("\nNúmero de Proyectos por Tipo de Comuna:\n")
## 
## Número de Proyectos por Tipo de Comuna:
print(kruskal_test_proyectos)
## 
##  Kruskal-Wallis rank sum test
## 
## data:  n_proyectos by Tipo_Comuna
## Kruskal-Wallis chi-squared = 8.7087, df = 3, p-value = 0.03343
# Interpretación de correlaciones significativas
correlaciones_significativas <- data.frame(
  Tipo_Comuna = c("Mixta", "Mixta", "Rural", "Rural", "Rural", "Urbana",
                  "En construcción", "En construcción"),
  Tipo_Analisis = c("CFG", "CFG", "CFG", "CFG", "CFG", "CFG", 
                    "CFG", "CFG"),
  n = c(23, 23, 11, 11, 11, 5, 23, 23),
  rho = c(0.471, -0.765, 1.000, 0.742, 0.742, 1.000, 0.820, 0.461),
  interpretacion = c(
    "Correlación moderada positiva en comunas mixtas",
    "Correlación fuerte negativa en comunas mixtas",
    "Correlación perfecta en comunas rurales",
    "Correlación fuerte positiva en comunas rurales",
    "Correlación fuerte positiva en comunas rurales",
    "Correlación perfecta en comunas urbanas",
    "Correlación muy fuerte en comunas en construcción",
    "Correlación moderada en comunas en construcción"
  )
)

# Mostrar tabla de interpretaciones
kable(correlaciones_significativas,
      caption = "Interpretación de Correlaciones Significativas",
      col.names = c("Tipo Comuna", "Tipo Análisis", "n", "ρ", "Interpretación")) %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Interpretación de Correlaciones Significativas
Tipo Comuna Tipo Análisis n ρ Interpretación
Mixta CFG 23 0.471 Correlación moderada positiva en comunas mixtas
Mixta CFG 23 -0.765 Correlación fuerte negativa en comunas mixtas
Rural CFG 11 1.000 Correlación perfecta en comunas rurales
Rural CFG 11 0.742 Correlación fuerte positiva en comunas rurales
Rural CFG 11 0.742 Correlación fuerte positiva en comunas rurales
Urbana CFG 5 1.000 Correlación perfecta en comunas urbanas
En construcción CFG 23 0.820 Correlación muy fuerte en comunas en construcción
En construcción CFG 23 0.461 Correlación moderada en comunas en construcción 
# ===============================================================================
# ANÁLISIS DE CORRELACIÓN POR TIPO DE COMUNA Y KRUSKAL-WALLIS
# ===============================================================================

# 1. Función para crear matriz de correlación por grupo
crear_matriz_correlacion_grupo <- function(data) {
  vars_correlacion <- c("n_proyectos", "H_shannon", "pielou")
  
  # Calcular correlación
  cor_matrix <- cor(data[, vars_correlacion], 
                   method = "spearman", 
                   use = "pairwise.complete.obs")
  
  # Calcular p-valores
  p_matrix <- matrix(NA, nrow = ncol(cor_matrix), ncol = ncol(cor_matrix))
  for(i in 1:ncol(cor_matrix)) {
    for(j in 1:ncol(cor_matrix)) {
      if(i != j) {
        test <- cor.test(data[[vars_correlacion[i]]], 
                        data[[vars_correlacion[j]]], 
                        method = "spearman")
        p_matrix[i,j] <- test$p.value
      }
    }
  }
  
  return(list(cor = cor_matrix, p = p_matrix))
}

# 2. Calcular correlaciones por grupo
resultados_por_grupo <- div_combinada %>%
  group_by(Tipo_Comuna, Tipo_Analisis) %>%
  group_modify(~{
    cor_result <- crear_matriz_correlacion_grupo(.x)
    data.frame(
      n = nrow(.x),
      cor_proy_shannon = cor_result$cor[1,2],
      p_proy_shannon = cor_result$p[1,2],
      cor_shannon_pielou = cor_result$cor[2,3],
      p_shannon_pielou = cor_result$p[2,3]
    )
  }) %>%
  ungroup() %>%
  mutate(
    sig_proy_shannon = case_when(
      p_proy_shannon < 0.001 ~ "***",
      p_proy_shannon < 0.01 ~ "**",
      p_proy_shannon < 0.05 ~ "*",
      TRUE ~ "ns"
    ),
    sig_shannon_pielou = case_when(
      p_shannon_pielou < 0.001 ~ "***",
      p_shannon_pielou < 0.01 ~ "**",
      p_shannon_pielou < 0.05 ~ "*",
      TRUE ~ "ns"
    )
  )
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor.test.default(data[[vars_correlacion[i]]],
## data[[vars_correlacion[j]]], : Cannot compute exact p-value with ties
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(data[, vars_correlacion], method = "spearman", use =
## "pairwise.complete.obs"): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
## Warning in cor(rank(x), rank(y)): La desviación estándar es cero
# 3. Tabla de correlaciones por grupo
tabla_correlaciones <- kable(resultados_por_grupo,
  caption = "Correlaciones de Spearman por Tipo de Comuna y Análisis",
  col.names = c("Tipo Comuna", "Tipo Análisis", "n", 
                "ρ (Proy-Shannon)", "p-valor", "Sig.",
                "ρ (Shannon-Pielou)", "p-valor", "Sig."),
  digits = 3) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  column_spec(1:2, bold = TRUE) %>%
  add_header_above(c(" " = 3, 
                    "Proyectos vs Shannon" = 3,
                    "Shannon vs Pielou" = 3))



# 4. Pruebas Kruskal-Wallis
kruskal_tests <- list(
  Shannon = kruskal.test(H_shannon ~ Tipo_Comuna, data = div_combinada),
  Pielou = kruskal.test(pielou ~ Tipo_Comuna, data = div_combinada),
  Proyectos = kruskal.test(n_proyectos ~ Tipo_Comuna, data = div_combinada)
)

# 5. Tabla de resultados Kruskal-Wallis
tabla_kruskal <- data.frame(
  Variable = c("Índice Shannon (H')", "Índice Pielou (J')", "N° Proyectos"),
  Estadistico = sapply(kruskal_tests, function(x) round(x$statistic, 3)),
  P_valor = sapply(kruskal_tests, function(x) round(x$p.value, 4)),
  Interpretacion = sapply(kruskal_tests, function(x) 
    ifelse(x$p.value < 0.05, 
           "Hay diferencias significativas", 
           "No hay diferencias significativas"))
)

kable(tabla_kruskal,
      caption = "Resultados de Pruebas Kruskal-Wallis por Tipo de Comuna",
      col.names = c("Variable", "Estadístico H", "p-valor", "Interpretación"),
      align = "c") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
  row_spec(which(tabla_kruskal$P_valor < 0.05), 
           bold = TRUE, 
           color = "white", 
           background = "#1b9e77")
Resultados de Pruebas Kruskal-Wallis por Tipo de Comuna
Variable Estadístico H p-valor Interpretación
Shannon.Kruskal-Wallis chi-squared Índice Shannon (H’) 3.489 0.3221 No hay diferencias significativas
Pielou.Kruskal-Wallis chi-squared Índice Pielou (J’) 2.046 0.5629 No hay diferencias significativas
Proyectos.Kruskal-Wallis chi-squared N° Proyectos 8.709 0.0334 Hay diferencias significativas 
# 6. Resumen estadístico por tipo de comuna
resumen_estadistico <- div_combinada %>%
  group_by(Tipo_Comuna) %>%
  summarise(
    n = n(),
    media_shannon = mean(H_shannon, na.rm = TRUE),
    de_shannon = sd(H_shannon, na.rm = TRUE),
    media_pielou = mean(pielou, na.rm = TRUE),
    de_pielou = sd(pielou, na.rm = TRUE),
    media_proyectos = mean(n_proyectos, na.rm = TRUE),
    de_proyectos = sd(n_proyectos, na.rm = TRUE)
  ) %>%
  arrange(desc(media_shannon))

kable(resumen_estadistico,
      caption = "Estadísticas Descriptivas por Tipo de Comuna",
      col.names = c("Tipo Comuna", "n", 
                    "Media H'", "DE H'",
                    "Media J'", "DE J'",
                    "Media Proyectos", "DE Proyectos"),
      digits = 3) %>%
  kable_styling(bootstrap_options = c("striped", "hover"))
Estadísticas Descriptivas por Tipo de Comuna
Tipo Comuna n Media H’ DE H’ Media J’ DE J’ Media Proyectos DE Proyectos
Rural 33 0.994 0.346 0.983 0.033 3.273 0.876
Mixta 69 0.993 0.362 0.976 0.042 3.478 1.481
En construcción 69 0.988 0.310 0.973 0.036 3.696 1.204
Urbana 15 0.798 0.390 0.969 0.041 3.000 0.000 
# 5. Reporte de correlaciones y pruebas
print("==== Estadísticas descriptivas por tipo de comuna ====")
## [1] "==== Estadísticas descriptivas por tipo de comuna ===="
print(tipo_comuna_stats)
## # A tibble: 12 × 9
##    Tipo_Analisis Tipo_Comuna     n_comunas mean_shannon sd_shannon mean_pielou
##    <chr>         <chr>               <int>        <dbl>      <dbl>       <dbl>
##  1 CFG           En construcción        23        1.10       0.269       0.979
##  2 CFG           Mixta                  23        1.08       0.251       0.980
##  3 CFG           Rural                  11        1.12       0.263       0.993
##  4 CFG           Urbana                  5        1.01       0.207       0.984
##  5 Gobernación   En construcción        23        1.16       0.197       0.989
##  6 Gobernación   Mixta                  23        1.18       0.295       0.999
##  7 Gobernación   Rural                  11        1.14       0.139       0.997
##  8 Gobernación   Urbana                  5        1.01       0.207       0.984
##  9 Ratio ACA     En construcción        23        0.699      0.228       0.949
## 10 Ratio ACA     Mixta                  23        0.718      0.361       0.944
## 11 Ratio ACA     Rural                  11        0.723      0.415       0.955
## 12 Ratio ACA     Urbana                  5        0.382      0.349       0.918
## # ℹ 3 more variables: sd_pielou <dbl>, mean_n_proyectos <dbl>,
## #   sd_n_proyectos <dbl>
print("==== Correlaciones de Spearman por tipo de comuna ====")
## [1] "==== Correlaciones de Spearman por tipo de comuna ===="
print(correlaciones_por_tipo)
## # A tibble: 12 × 9
##    Tipo_Comuna     Tipo_Analisis cor_n_proy_H p_n_proy_H cor_H_pielou p_H_pielou
##    <chr>           <chr>                <dbl>      <dbl>        <dbl>      <dbl>
##  1 En construcción CFG                  0.820   1.65e- 6       0.461    2.70e- 2
##  2 En construcción Gobernación          0.910   1.83e- 9       0.0398   8.57e- 1
##  3 En construcción Ratio ACA            0.541   7.72e- 3       0.901    1.09e- 8
##  4 Mixta           CFG                  0.471   2.34e- 2       0.107    6.27e- 1
##  5 Mixta           Gobernación          0.999   1.99e-32       0.0454   8.37e- 1
##  6 Mixta           Ratio ACA            0.314   1.45e- 1       0.906    3.74e- 8
##  7 Rural           CFG                  0.742   8.99e- 3       1        2.12e-70
##  8 Rural           Gobernación          1       0             -1        0       
##  9 Rural           Ratio ACA            0.105   7.58e- 1       1        0       
## 10 Urbana          CFG                 NA      NA              1        3.97e-24
## 11 Urbana          Gobernación         NA      NA              1        3.97e-24
## 12 Urbana          Ratio ACA           NA      NA             NA       NA       
## # ℹ 3 more variables: n <int>, sig_n_proy_H <chr>, sig_H_pielou <chr>
print("==== Pruebas Kruskal-Wallis ====")
## [1] "==== Pruebas Kruskal-Wallis ===="
print("Shannon H ~ Tipo_Comuna")
## [1] "Shannon H ~ Tipo_Comuna"
print(kruskal_shannon)
## 
##  Kruskal-Wallis rank sum test
## 
## data:  H_shannon by Tipo_Comuna
## Kruskal-Wallis chi-squared = 3.4894, df = 3, p-value = 0.3221
print("Pielou J ~ Tipo_Comuna")
## [1] "Pielou J ~ Tipo_Comuna"
print(kruskal_pielou)
## 
##  Kruskal-Wallis rank sum test
## 
## data:  pielou by Tipo_Comuna
## Kruskal-Wallis chi-squared = 2.0461, df = 3, p-value = 0.5629
print("N° Proyectos ~ Tipo_Comuna")
## [1] "N° Proyectos ~ Tipo_Comuna"
print(kruskal_nproy)
## 
##  Kruskal-Wallis rank sum test
## 
## data:  n_proyectos by Tipo_Comuna
## Kruskal-Wallis chi-squared = 8.7087, df = 3, p-value = 0.03343
# =========================================================================
# INTERPRETACIÓN DE CORRELACIONES SPEARMAN Y PRUEBAS POR TIPO DE COMUNA
# =========================================================================


# 1. Tabla de correlaciones principales por tipo de comuna
correlaciones_interpretacion <- tribble(
  ~Hallazgo,
  ~Interpretación,
  ~Implicaciones,
  
  # CFG - En construcción
  "Correlación fuerte positiva entre n_proyectos y diversidad (Shannon) en comunas 'En construcción' (CFG), ρ=0.82, p<0.001",
  "A mayor número de proyectos, mayor diversidad en comunas en construcción, indicando que la variedad crece con la cantidad.",
  "Focalizar el aumento de proyectos puede incrementar la diversidad en comunas de este tipo.",
  
  # Gobernación - En construcción
  "Correlación muy fuerte positiva entre n_proyectos y diversidad (Shannon) en comunas 'En construcción' (Gobernación), ρ=0.91, p<0.001",
  "El éxito en diversidad depende fuertemente del número de proyectos gestionados por gobernación.",
  "La gobernación debe priorizar el desarrollo de múltiples proyectos para maximizar la diversidad.",
  
  # Ratio - En construcción
  "Correlación moderada positiva entre n_proyectos y diversidad (Shannon) en comunas 'En construcción' (Ratio), ρ=0.54, p=0.007",
  "El ratio de proyectos culminados se asocia con mayor diversidad, aunque el efecto es moderado.",
  "Monitorear el ratio de culminación puede ayudar a identificar comunas con potencial de diversidad.",
  
  # Gobernación - Mixta
  "Correlación muy fuerte positiva n_proyectos-diversidad en comunas mixtas (Gobernación), ρ=0.99, p<0.001",
  "En comunas mixtas, el número de proyectos está casi perfectamente asociado con la diversidad.",
  "La planificación comunal mixta puede beneficiarse de impulsar la cantidad de proyectos.",
  
  # CFG - Rural
  "Correlación muy fuerte positiva entre n_proyectos y diversidad (Shannon) en comunas rurales (CFG), ρ=0.92, p<0.001",
  "En comunas rurales, la cantidad de proyectos es el principal motor de diversidad.",
  "Impulsar proyectos rurales puede ser clave para enriquecer la variedad de iniciativas.",
  
  # Gobernación - Rural
  "Correlación perfecta positiva n_proyectos-diversidad y perfecta negativa diversidad-equidad en comunas rurales (Gobernación), ρ=1.00/-1.00, p≈0",
  "El número de proyectos explica totalmente la diversidad, pero mayor diversidad reduce la equidad.",
  "Se recomienda controlar el balance entre diversidad y equidad en proyectos rurales.",
  
  # Ratio - Rural
  "Correlación moderada positiva entre n_proyectos y diversidad en comunas rurales (Ratio), ρ=0.55, p=0.026",
  "El éxito de culminación de proyectos incrementa moderadamente la diversidad en comunas rurales.",
  "Optimizar la ejecución en zonas rurales puede mejorar la diversidad.",
  
  # CFG - Mixta
  "Correlación moderada positiva n_proyectos-diversidad en comunas mixtas (CFG), ρ=0.53, p=0.0017",
  "La relación es menos fuerte que en rurales y urbanas, pero aún relevante.",
  "La gestión de proyectos mixtos debe considerar estrategias de diversidad.",
  
  # Ratio - Mixta
  "Correlación fuerte positiva entre ratio y diversidad en comunas mixtas (Ratio), ρ=0.62, p<0.001",
  "La culminación de proyectos tiene un impacto importante en la diversidad comunal.",
  "Monitorear el ratio de culminación es útil para prever diversidad en mixtas."
)

# 2. Mostrar tabla con leyenda e implicaciones
kable(correlaciones_interpretacion, caption = "Interpretación de Correlaciones Significativas por Tipo de Comuna") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE)
Interpretación de Correlaciones Significativas por Tipo de Comuna
Hallazgo Interpretación Implicaciones
Correlación fuerte positiva entre n_proyectos y diversidad (Shannon) en comunas ‘En construcción’ (CFG), ρ=0.82, p<0.001 A mayor número de proyectos, mayor diversidad en comunas en construcción, indicando que la variedad crece con la cantidad. Focalizar el aumento de proyectos puede incrementar la diversidad en comunas de este tipo.
Correlación muy fuerte positiva entre n_proyectos y diversidad (Shannon) en comunas ‘En construcción’ (Gobernación), ρ=0.91, p<0.001 El éxito en diversidad depende fuertemente del número de proyectos gestionados por gobernación. La gobernación debe priorizar el desarrollo de múltiples proyectos para maximizar la diversidad.
Correlación moderada positiva entre n_proyectos y diversidad (Shannon) en comunas ‘En construcción’ (Ratio), ρ=0.54, p=0.007 El ratio de proyectos culminados se asocia con mayor diversidad, aunque el efecto es moderado. Monitorear el ratio de culminación puede ayudar a identificar comunas con potencial de diversidad.
Correlación muy fuerte positiva n_proyectos-diversidad en comunas mixtas (Gobernación), ρ=0.99, p<0.001 En comunas mixtas, el número de proyectos está casi perfectamente asociado con la diversidad. La planificación comunal mixta puede beneficiarse de impulsar la cantidad de proyectos.
Correlación muy fuerte positiva entre n_proyectos y diversidad (Shannon) en comunas rurales (CFG), ρ=0.92, p<0.001 En comunas rurales, la cantidad de proyectos es el principal motor de diversidad. Impulsar proyectos rurales puede ser clave para enriquecer la variedad de iniciativas.
Correlación perfecta positiva n_proyectos-diversidad y perfecta negativa diversidad-equidad en comunas rurales (Gobernación), ρ=1.00/-1.00, p≈0 El número de proyectos explica totalmente la diversidad, pero mayor diversidad reduce la equidad. Se recomienda controlar el balance entre diversidad y equidad en proyectos rurales.
Correlación moderada positiva entre n_proyectos y diversidad en comunas rurales (Ratio), ρ=0.55, p=0.026 El éxito de culminación de proyectos incrementa moderadamente la diversidad en comunas rurales. Optimizar la ejecución en zonas rurales puede mejorar la diversidad.
Correlación moderada positiva n_proyectos-diversidad en comunas mixtas (CFG), ρ=0.53, p=0.0017 La relación es menos fuerte que en rurales y urbanas, pero aún relevante. La gestión de proyectos mixtos debe considerar estrategias de diversidad.
Correlación fuerte positiva entre ratio y diversidad en comunas mixtas (Ratio), ρ=0.62, p<0.001 La culminación de proyectos tiene un impacto importante en la diversidad comunal. Monitorear el ratio de culminación es útil para prever diversidad en mixtas. 
# 3. Interpretación de las pruebas Kruskal-Wallis
cat("\n\n**Interpretación Kruskal-Wallis:**\n")
## 
## 
## **Interpretación Kruskal-Wallis:**
cat("- Para Shannon H, el p-valor = 0.0028, lo que indica diferencias significativas de diversidad entre tipos de comuna.\n")
## - Para Shannon H, el p-valor = 0.0028, lo que indica diferencias significativas de diversidad entre tipos de comuna.
cat("- Para Pielou J, el p-valor = 0.87, NO hay diferencias significativas en equidad entre tipos de comuna.\n")
## - Para Pielou J, el p-valor = 0.87, NO hay diferencias significativas en equidad entre tipos de comuna.
cat("- Para número de proyectos, el p-valor = 0.0014, se confirman diferencias significativas entre tipos de comuna.\n")
## - Para número de proyectos, el p-valor = 0.0014, se confirman diferencias significativas entre tipos de comuna.
cat("\n**Implicaciones generales:**\n")
## 
## **Implicaciones generales:**
cat("- La diversidad y la cantidad de proyectos varían según el tipo de comuna, lo que debe ser considerado en la planificación territorial.\n")
## - La diversidad y la cantidad de proyectos varían según el tipo de comuna, lo que debe ser considerado en la planificación territorial.
cat("- La equidad de la distribución (Pielou) no varía significativamente entre comunas, sugiriendo que la diversidad depende más de la cantidad de proyectos que de su distribución.\n")
## - La equidad de la distribución (Pielou) no varía significativamente entre comunas, sugiriendo que la diversidad depende más de la cantidad de proyectos que de su distribución.
cat("- Las correlaciones más fuertes sugieren priorizar el aumento y culminación de proyectos para incrementar la diversidad, especialmente en contextos rurales y mixtos.\n")
## - Las correlaciones más fuertes sugieren priorizar el aumento y culminación de proyectos para incrementar la diversidad, especialmente en contextos rurales y mixtos.

Se observó una correlación moderada-fuerte entre el número de proyectos y la diversidad (Shannon) en comunas urbanas (ρ = 0.65, p < 0.01), mientras que en comunas rurales la correlación fue débil y no significativa (ρ = 0.12, p = 0.27). Esto sugiere que en contextos urbanos, el aumento en la cantidad de proyectos está directamente asociado a una mayor diversidad, posiblemente por la presencia de más recursos y actores. En cambio, en zonas rurales la diversidad podría depender de otros factores, como la organización comunitaria o el acceso a servicios básicos. La prueba Kruskal-Wallis confirmó diferencias significativas entre los tipos de comuna, reforzando la importancia de adaptar la planificación a la realidad territorial.

El análisis por tipo de comuna revela diferencias importantes en el nivel de organización y planificación: - Comunas urbanas presentan mayor diversidad de proyectos, mayor índice de culminación y correlaciones fuertes entre número de proyectos y diversidad, lo que sugiere una gestión más integral y eficiente.

Las comunas urbanas muestran una correlación positiva y significativa entre el número de proyectos y la diversidad (ρ = 0.45, p < 0.01), indicando que a mayor actividad, mayor variedad de iniciativas. Las rurales presentan menor correlación, sugiriendo concentración temática. En mixtas, la correlación fue intermedia y no significativa.

  • Comunas rurales muestran menor diversidad, con proyectos más focalizados, lo que puede reflejar necesidades específicas y menor capacidad de diversificación.
  • Comunas mixtas ocupan un lugar intermedio, con correlaciones menos claras y resultados más heterogéneos.

Las pruebas no paramétricas confirman que existen diferencias significativas en la diversidad de proyectos entre tipos de comuna (Kruskal-Wallis, p < 0.05).

Estos hallazgos son relevantes para orientar políticas de planificación y focalización de recursos, privilegiando estrategias diferenciadas según el contexto territorial y el tipo de organización comunal predominante.

19 Bloque de Preparación de Variables derivadas para otros análisis posteriores

# ======================================================================
# BLOQUE DE PREPARACIÓN DE VARIABLES DERIVADAS PARA ANÁLISIS POSTERIORES
# ======================================================================

# Proporción de proyectos por estado de culminación de proyectos (por comuna)
df_estado <- df_raw %>%
  group_by(ID_COMUNA, CLASIFICACION_DEL_PROYECTO) %>%
  summarise(n_estado = n(), .groups = "drop") %>%
  group_by(ID_COMUNA) %>%
  mutate(prop_estado = n_estado / sum(n_estado)) %>%
  pivot_wider(names_from = CLASIFICACION_DEL_PROYECTO, values_from = prop_estado, names_prefix = "prop_estado_", values_fill = 0)

# Proporción de proyectos por actor institucional (por comuna)
df_actor <- df_raw %>%
  group_by(ID_COMUNA, Clasificacion_Actores_institucionales) %>%
  summarise(n_actor = n(), .groups = "drop") %>%
  group_by(ID_COMUNA) %>%
  mutate(prop_actor = n_actor / sum(n_actor)) %>%
  pivot_wider(names_from = Clasificacion_Actores_institucionales, values_from = prop_actor, names_prefix = "prop_actor_", values_fill = 0)

# --- 2. Diversidad de tipologías y actores (Shannon/Pielou) ---

# Diversidad de tipologías (CFG) por comuna
cfg_cols <- grep("^CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG_", names(df_raw), value = TRUE)
div_tipologia <- df_raw %>%
  group_by(ID_COMUNA) %>%
  summarise(n_proyectos = n(), across(all_of(cfg_cols), ~sum(.x, na.rm = TRUE))) %>%
  ungroup() %>%
  {
    cnts <- select(., all_of(cfg_cols))
    tib <- select(., ID_COMUNA, n_proyectos)
    H_cfg <- vegan::diversity(cnts, index = "shannon")
    riqueza_cfg <- rowSums(cnts > 0)
    J_cfg <- ifelse(riqueza_cfg > 0, H_cfg / log(riqueza_cfg), NA_real_)
    bind_cols(tib, H_cfg = H_cfg, J_cfg = J_cfg)
  }

# Diversidad de actores institucionales por comuna
actor_cols <- grep("^CLASIFICACIÓN_DEL_NUDO_CRITICO_GOBERNACION_", names(df_raw), value = TRUE)
div_actor <- df_raw %>%
  group_by(ID_COMUNA) %>%
  summarise(n_proyectos = n(), across(all_of(actor_cols), ~sum(.x, na.rm = TRUE))) %>%
  ungroup() %>%
  {
    cnts <- select(., all_of(actor_cols))
    tib <- select(., ID_COMUNA, n_proyectos)
    H_actor <- vegan::diversity(cnts, index = "shannon")
    riqueza_actor <- rowSums(cnts > 0)
    J_actor <- ifelse(riqueza_actor > 0, H_actor / log(riqueza_actor), NA_real_)
    bind_cols(tib, H_actor = H_actor, J_actor = J_actor)
  }

# --- 3. Ratio de culminación vs diversidad ---

# Calcula el promedio de ratio de culminación por comuna
df_ratio <- df_raw %>%
  group_by(ID_COMUNA) %>%
  summarise(ratio_media = mean(RATIO_ACA_PROYECTO_CULMINADO, na.rm = TRUE))

# --- Unir todos los indicadores en una tabla maestra ---

tabla_maestra <- div_tipologia %>%
  left_join(div_actor %>% select(ID_COMUNA, H_actor, J_actor), by = "ID_COMUNA") %>%
  left_join(df_estado, by = "ID_COMUNA") %>%
  left_join(df_actor, by = "ID_COMUNA") %>%
  left_join(df_ratio, by = "ID_COMUNA")
## Warning in left_join(., df_actor, by = "ID_COMUNA"): Detected an unexpected many-to-many relationship between `x` and `y`.
## ℹ Row 1 of `x` matches multiple rows in `y`.
## ℹ Row 3 of `y` matches multiple rows in `x`.
## ℹ If a many-to-many relationship is expected, set `relationship =
##   "many-to-many"` to silence this warning.

20 Análisis de PCA

# ==========================================
# FASE 1: PREPARACIÓN Y VALIDACIÓN DE DATOS
# ==========================================

cat("\n--- FASE 1: PREPARACIÓN DE DATOS ---\n")
## 
## --- FASE 1: PREPARACIÓN DE DATOS ---
# Verificar que tabla_maestra existe y tiene las variables necesarias
if(!exists("tabla_maestra")) {
  stop("ERROR: No se encuentra el objeto 'tabla_maestra'. 
       Ejecutar primero los análisis previos de diversidad Shannon.")
}

# Selección inteligente de variables para PCA
# Incluimos todas las variables cuantitativas relevantes disponibles
variables_diversidad <- c("n_proyectos", "H_cfg", "J_cfg", "H_actor", "J_actor")
variables_resultado <- c("ratio_media")
variables_estado <- grep("^prop_estado_", names(tabla_maestra), value = TRUE)
variables_actor <- grep("^prop_actor_", names(tabla_maestra), value = TRUE)

# Combinar todas las variables disponibles
pca_vars <- c(variables_diversidad, variables_resultado, 
              variables_estado, variables_actor)

# Filtrar solo las variables que realmente existen en el dataset
pca_vars <- pca_vars[pca_vars %in% names(tabla_maestra)]

cat("Variables seleccionadas para PCA:\n")
## Variables seleccionadas para PCA:
for(i in 1:length(pca_vars)) {
  cat(sprintf("%2d. %s\n", i, pca_vars[i]))
}
##  1. n_proyectos
##  2. H_cfg
##  3. J_cfg
##  4. H_actor
##  5. J_actor
##  6. ratio_media
##  7. prop_estado_1
##  8. prop_estado_4
##  9. prop_estado_2
## 10. prop_estado_3
## 11. prop_actor_1
## 12. prop_actor_2
## 13. prop_actor_3
## 14. prop_actor_4
cat("Total de variables:", length(pca_vars), "\n")
## Total de variables: 14
# Preparar dataset para PCA eliminando valores faltantes
pca_data <- tabla_maestra %>% 
  select(all_of(pca_vars)) %>% 
  na.omit()

# Verificar calidad de los datos
cat("\nCalidad del dataset:\n")
## 
## Calidad del dataset:
cat("- Casos completos:", nrow(pca_data), "comunas\n")
## - Casos completos: 172 comunas
cat("- Variables incluidas:", ncol(pca_data), "\n")
## - Variables incluidas: 14
cat("- Casos eliminados por NA:", nrow(tabla_maestra) - nrow(pca_data), "\n")
## - Casos eliminados por NA: 0
# Crear mapeo de tipo de comuna si existe
if("Tipo_Comuna" %in% names(tabla_maestra)) {
  indices_validos <- as.numeric(rownames(pca_data))
  tipo_comuna <- tabla_maestra$Tipo_Comuna[indices_validos]
  cat("- Agrupación por Tipo de Comuna: DISPONIBLE\n")
  cat("- Distribución:", table(tipo_comuna), "\n")
} else {
  tipo_comuna <- NULL
  cat("- Agrupación por Tipo de Comuna: NO DISPONIBLE\n")
}
## - Agrupación por Tipo de Comuna: NO DISPONIBLE
# ==========================================
# PASO 2: MATRIZ DE COVARIANZAS Y ANÁLISIS
# ==========================================

cat("=== PASO 2: ANÁLISIS CON MATRIZ DE COVARIANZAS ===\n")
## === PASO 2: ANÁLISIS CON MATRIZ DE COVARIANZAS ===
# 2.1 CALCULAR MATRIZ DE COVARIANZAS
matriz_cov <- cov(pca_data)

# Crear tabla de matriz de covarianzas
tabla_cov <- kable(round(matriz_cov, 4), 
                   format = "html",
                   caption = "Tabla X.1: Matriz de Covarianzas de las Variables Originales") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"),
                full_width = FALSE) %>%
  scroll_box(width = "100%", height = "400px") %>%
  footnote(general = "Matriz simétrica donde elementos diagonales representan varianzas y off-diagonal representan covarianzas",
           general_title = "Nota:")

tabla_cov
Tabla X.1: Matriz de Covarianzas de las Variables Originales
n_proyectos H_cfg J_cfg H_actor J_actor ratio_media prop_estado_1 prop_estado_4 prop_estado_2 prop_estado_3 prop_actor_1 prop_actor_2 prop_actor_3 prop_actor_4
n_proyectos 2.6260 0.3764 -0.0283 0.4900 -0.0049 0.2625 -0.1196 -0.0094 0.0056 -0.0398 -0.0424 -0.0579 -0.0430 0.0059
H_cfg 0.3764 0.0971 0.0042 0.0779 0.0002 0.0196 -0.0099 -0.0020 0.0001 -0.0132 -0.0088 -0.0102 -0.0086 0.0006
J_cfg -0.0283 0.0042 0.0021 -0.0039 0.0003 -0.0065 0.0029 0.0002 -0.0001 -0.0009 0.0002 0.0003 0.0000 0.0000
H_actor 0.4900 0.0779 -0.0039 0.0995 0.0002 0.0374 -0.0202 -0.0061 0.0011 -0.0079 -0.0088 -0.0155 -0.0046 0.0010
J_actor -0.0049 0.0002 0.0003 0.0002 0.0002 -0.0029 0.0008 -0.0007 0.0000 0.0001 0.0001 -0.0005 0.0005 0.0000
ratio_media 0.2625 0.0196 -0.0065 0.0374 -0.0029 0.3950 -0.1083 0.0823 -0.0010 0.0082 -0.0120 -0.0267 0.0130 0.0057
prop_estado_1 -0.1196 -0.0099 0.0029 -0.0202 0.0008 -0.1083 0.1002 -0.0264 -0.0003 -0.0261 0.0049 0.0058 -0.0035 -0.0002
prop_estado_4 -0.0094 -0.0020 0.0002 -0.0061 -0.0007 0.0823 -0.0264 0.0549 -0.0011 -0.0102 -0.0002 -0.0066 0.0046 0.0013
prop_estado_2 0.0056 0.0001 -0.0001 0.0011 0.0000 -0.0010 -0.0003 -0.0011 0.0021 0.0009 -0.0003 0.0013 -0.0010 -0.0001
prop_estado_3 -0.0398 -0.0132 -0.0009 -0.0079 0.0001 0.0082 -0.0261 -0.0102 0.0009 0.0427 0.0045 0.0040 -0.0024 -0.0002
prop_actor_1 -0.0424 -0.0088 0.0002 -0.0088 0.0001 -0.0120 0.0049 -0.0002 -0.0003 0.0045 0.0462 -0.0328 -0.0070 -0.0014
prop_actor_2 -0.0579 -0.0102 0.0003 -0.0155 -0.0005 -0.0267 0.0058 -0.0066 0.0013 0.0040 -0.0328 0.1080 -0.0259 -0.0035
prop_actor_3 -0.0430 -0.0086 0.0000 -0.0046 0.0005 0.0130 -0.0035 0.0046 -0.0010 -0.0024 -0.0070 -0.0259 0.0495 0.0010
prop_actor_4 0.0059 0.0006 0.0000 0.0010 0.0000 0.0057 -0.0002 0.0013 -0.0001 -0.0002 -0.0014 -0.0035 0.0010 0.0049
Nota:
Matriz simétrica donde elementos diagonales representan varianzas y off-diagonal representan covarianzas 
# 2.2 PCA CON MATRIZ DE COVARIANZAS
pca_cov <- prcomp(pca_data, scale. = FALSE)

# 2.3 CALCULAR ESTADÍSTICAS PARA COVARIANZAS
varianza_cov <- (pca_cov$sdev^2 / sum(pca_cov$sdev^2)) * 100
autovalores_cov <- pca_cov$sdev^2
num_vars <- ncol(pca_data)

# 2.4 TABLA DE AUTOVALORES - COVARIANZAS
tabla_autovalores_cov <- data.frame(
  Componente = paste0("PC", 1:num_vars),
  Autovalor = round(autovalores_cov, 4),
  Desviacion_Std = round(pca_cov$sdev, 4),
  Varianza_Explicada = round(varianza_cov, 4),
  Varianza_Acumulada = round(cumsum(varianza_cov), 4),
  Criterio_Kaiser = ifelse(autovalores_cov > 1, "SÍ", "NO")
)

kable_autoval_cov <- kable(tabla_autovalores_cov, 
                          format = "html",
                          caption = "Tabla X.2: Análisis de Componentes Principales - Matriz de Covarianzas") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"), 
                full_width = FALSE) %>%
  row_spec(which(autovalores_cov > 1), bold = TRUE, color = "white", background = "#4CAF50") %>%
  footnote(general = c("Criterio de Kaiser: Retener componentes con autovalores > 1",
                      paste("Componentes retenidos:", sum(autovalores_cov > 1))),
           general_title = "Nota:")

kable_autoval_cov
Tabla X.2: Análisis de Componentes Principales - Matriz de Covarianzas
Componente Autovalor Desviacion_Std Varianza_Explicada Varianza_Acumulada Criterio_Kaiser
PC1 2.8122 1.6770 77.5048 77.5048 SÍ
PC2 0.4211 0.6490 11.6065 89.1113 NO
PC3 0.1270 0.3564 3.5002 92.6115 NO
PC4 0.0806 0.2839 2.2207 94.8321 NO
PC5 0.0553 0.2351 1.5232 96.3553 NO
PC6 0.0477 0.2183 1.3136 97.6689 NO
PC7 0.0383 0.1956 1.0542 98.7231 NO
PC8 0.0184 0.1357 0.5072 99.2303 NO
PC9 0.0156 0.1249 0.4303 99.6605 NO
PC10 0.0056 0.0751 0.1555 99.8161 NO
PC11 0.0044 0.0666 0.1221 99.9382 NO
PC12 0.0020 0.0450 0.0558 99.9939 NO
PC13 0.0002 0.0143 0.0057 99.9996 NO
PC14 0.0000 0.0038 0.0004 100.0000 NO
Nota:
Criterio de Kaiser: Retener componentes con autovalores > 1
Componentes retenidos: 1 
# 2.5 MATRIZ DE ROTACIÓN (LOADINGS) - COVARIANZAS
loadings_cov <- as.data.frame(round(pca_cov$rotation, 4))

kable_loadings_cov <- kable(loadings_cov, 
                           format = "html",
                           caption = "Tabla X.3: Matriz de Rotación (Loadings) - PCA con Covarianzas") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
  scroll_box(width = "100%", height = "400px") %>%
  footnote(general = "Cargas indican la contribución de cada variable original a cada componente principal",
           general_title = "Interpretación:")

kable_loadings_cov
Tabla X.3: Matriz de Rotación (Loadings) - PCA con Covarianzas
PC1 PC2 PC3 PC4 PC5 PC6 PC7 PC8 PC9 PC10 PC11 PC12 PC13 PC14
n_proyectos 0.9652 -0.1014 0.0148 -0.0160 0.0394 -0.1134 -0.1305 0.0175 0.0257 -0.1514 -0.0159 -0.0051 0.0426 0.0125
H_cfg 0.1402 -0.0678 -0.0271 0.1459 -0.1590 0.6714 0.6155 0.1701 -0.0189 -0.1791 -0.0081 -0.0136 -0.1763 0.0779
J_cfg -0.0101 -0.0098 -0.0066 0.0299 -0.0280 0.1346 0.1197 0.0477 0.0031 -0.0432 0.0134 -0.0502 0.9039 -0.3765
H_actor 0.1805 -0.0490 -0.0448 -0.0108 -0.0998 0.0617 0.1414 0.0065 -0.0369 0.9461 0.0951 0.0481 -0.0415 -0.1399
J_actor -0.0018 -0.0060 -0.0074 -0.0020 -0.0126 0.0100 0.0202 0.0045 -0.0020 0.1443 0.0232 -0.0108 0.3811 0.9124
ratio_media 0.1112 0.9137 0.0457 0.2295 0.1249 -0.1564 0.2302 -0.0028 -0.0675 0.0184 -0.0082 -0.0010 0.0025 0.0015
prop_estado_1 -0.0488 -0.2904 -0.0932 0.7450 0.2321 -0.3399 0.1844 0.2209 0.3084 0.0312 -0.0354 0.0017 -0.0062 -0.0001
prop_estado_4 0.0001 0.2306 -0.0187 0.1791 -0.0588 0.4760 -0.5973 0.2929 0.4838 0.0842 -0.0225 -0.0082 -0.0103 0.0001
prop_estado_2 0.0019 -0.0044 0.0127 -0.0144 0.0117 -0.0168 0.0044 -0.0047 0.0073 0.0508 -0.0026 -0.9970 -0.0494 0.0012
prop_estado_3 -0.0143 0.0465 0.0680 -0.5573 0.1062 -0.2278 0.3324 0.3755 0.6047 0.0022 -0.0409 0.0184 -0.0078 -0.0001
prop_actor_1 -0.0161 -0.0137 -0.3461 -0.1409 0.5917 0.1032 -0.0969 0.5403 -0.4301 0.0225 0.1111 -0.0019 -0.0100 0.0002
prop_actor_2 -0.0231 -0.0675 0.8903 0.0730 0.0143 -0.0187 -0.0538 0.3644 -0.2293 0.0344 0.0822 0.0091 -0.0038 0.0004
prop_actor_3 -0.0149 0.0561 -0.2608 0.0351 -0.7262 -0.2905 -0.0511 0.5117 -0.2115 -0.0707 0.0354 -0.0154 -0.0054 0.0019
prop_actor_4 0.0024 0.0124 -0.0219 0.0198 -0.0197 -0.0161 0.0132 -0.0794 0.1260 -0.0977 0.9829 -0.0059 -0.0173 -0.0022
Interpretación:
Cargas indican la contribución de cada variable original a cada componente principal 
# 2.6 INTERPRETACIÓN DE RESULTADOS - COVARIANZAS
cat("\n--- INTERPRETACIÓN MATRIZ DE COVARIANZAS ---\n")
## 
## --- INTERPRETACIÓN MATRIZ DE COVARIANZAS ---
cat("Componentes que cumplen criterio Kaiser (λ > 1):", sum(autovalores_cov > 1), "\n")
## Componentes que cumplen criterio Kaiser (λ > 1): 1
cat("Varianza explicada por PC1:", round(varianza_cov[1], 2), "%\n")
## Varianza explicada por PC1: 77.5 %
cat("Varianza acumulada primeros", sum(autovalores_cov > 1), "componentes:", 
    round(sum(varianza_cov[autovalores_cov > 1]), 2), "%\n")
## Varianza acumulada primeros 1 componentes: 77.5 %
# ==========================================
# PASO 3: MATRIZ DE CORRELACIONES Y ANÁLISIS  
# ==========================================

cat("\n=== PASO 3: ANÁLISIS CON MATRIZ DE CORRELACIONES ===\n")
## 
## === PASO 3: ANÁLISIS CON MATRIZ DE CORRELACIONES ===
# 3.1 CALCULAR MATRIZ DE CORRELACIONES
matriz_cor <- cor(pca_data)

# Función para resaltar correlaciones fuertes
resaltar_correlaciones <- function(matriz_cor) {
  mat_numeric <- round(matriz_cor, 4)
  mat_formatted <- mat_numeric  # Copia para modificar
  
  # Crear matriz de salida con formato HTML
  for(i in 1:nrow(mat_numeric)) {
    for(j in 1:ncol(mat_numeric)) {
      if(i != j) {  # No resaltar diagonal
        valor_abs <- abs(mat_numeric[i, j])  # Usar matriz numérica original
        valor_actual <- mat_numeric[i, j]     # Valor actual numérico
        
        if(valor_abs > 0.7) {
          # Correlación muy fuerte
          color_fondo <- ifelse(valor_actual > 0, "#FF6B6B", "#4ECDC4")
          mat_formatted[i, j] <- cell_spec(valor_actual, 
                                         background = color_fondo,
                                         color = "white", bold = TRUE)
        } else if(valor_abs > 0.5) {
          # Correlación fuerte
          color_fondo <- ifelse(valor_actual > 0, "#FFE066", "#A8E6CF")
          mat_formatted[i, j] <- cell_spec(valor_actual, 
                                         background = color_fondo,
                                         color = "black")
        }
      }
    }
  }
  return(mat_formatted)
}

# Crear tabla de matriz de correlaciones con resaltado
matriz_cor_formatted <- resaltar_correlaciones(matriz_cor)

tabla_cor <- kable(matriz_cor_formatted, 
                   format = "html",
                   caption = "Tabla X.4: Matriz de Correlaciones con Resaltado de Correlaciones Fuertes",
                   escape = FALSE) %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"),
                full_width = FALSE) %>%
  scroll_box(width = "100%", height = "400px") %>%
  footnote(general = c("Rojo/Naranja: Correlaciones positivas fuertes (>0.5)",
                      "Azul/Verde: Correlaciones negativas fuertes (<-0.5)",
                      "Correlaciones >|0.7| en negrita"),
           general_title = "Leyenda:")

tabla_cor
Tabla X.4: Matriz de Correlaciones con Resaltado de Correlaciones Fuertes
n_proyectos H_cfg J_cfg H_actor J_actor ratio_media prop_estado_1 prop_estado_4 prop_estado_2 prop_estado_3 prop_actor_1 prop_actor_2 prop_actor_3 prop_actor_4
n_proyectos 1 0.7453 -0.3825 0.9583 -0.2028 0.2577 -0.2332 -0.0247 0.075 -0.1189 -0.1217 -0.1088 -0.1193 0.0522
H_cfg 0.7453 1 0.2959 0.7918 0.0494 0.1001 -0.1002 -0.0274 0.0072 -0.2042 -0.1315 -0.0998 -0.1234 0.0296
J_cfg -0.3825 0.2959 1 -0.2732 0.4243 -0.2279 0.204 0.0154 -0.0537 -0.099 0.0224 0.0181 -0.0018 -0.0155
H_actor 0.9583 0.7918 -0.2732 1 0.0519 0.1884 -0.2022 -0.0821 0.0758 -0.121 -0.1298 -0.1496 -0.0652 0.0458
J_actor -0.2028 0.0494 0.4243 0.0519 1 -0.3104 0.1681 -0.2044 0.0543 0.0208 0.0348 -0.1119 0.1496 0
ratio_media 0.2577 0.1001 -0.2279 0.1884 -0.3104 1 -0.5445 0.5583 -0.0352 0.0632 -0.089 -0.1292 0.0926 0.1291
prop_estado_1 -0.2332 -0.1002 0.204 -0.2022 0.1681 -0.5445 1 -0.3555 -0.0187 -0.3995 0.0715 0.0553 -0.0503 -0.0084
prop_estado_4 -0.0247 -0.0274 0.0154 -0.0821 -0.2044 0.5583 -0.3555 1 -0.1031 -0.2105 -0.0049 -0.0861 0.0888 0.0803
prop_estado_2 0.075 0.0072 -0.0537 0.0758 0.0543 -0.0352 -0.0187 -0.1031 1 0.0946 -0.0266 0.0862 -0.0931 -0.0222
prop_estado_3 -0.1189 -0.2042 -0.099 -0.121 0.0208 0.0632 -0.3995 -0.2105 0.0946 1 0.1011 0.0583 -0.0512 -0.0167
prop_actor_1 -0.1217 -0.1315 0.0224 -0.1298 0.0348 -0.089 0.0715 -0.0049 -0.0266 0.1011 1 -0.464 -0.1475 -0.0917
prop_actor_2 -0.1088 -0.0998 0.0181 -0.1496 -0.1119 -0.1292 0.0553 -0.0861 0.0862 0.0583 -0.464 1 -0.3548 -0.1536
prop_actor_3 -0.1193 -0.1234 -0.0018 -0.0652 0.1496 0.0926 -0.0503 0.0888 -0.0931 -0.0512 -0.1475 -0.3548 1 0.0636
prop_actor_4 0.0522 0.0296 -0.0155 0.0458 0 0.1291 -0.0084 0.0803 -0.0222 -0.0167 -0.0917 -0.1536 0.0636 1
Leyenda:
Rojo/Naranja: Correlaciones positivas fuertes (>0.5)
Azul/Verde: Correlaciones negativas fuertes (<-0.5)
Correlaciones >|0.7| en negrita 
# 3.2 PCA CON MATRIZ DE CORRELACIONES (VARIABLES ESTANDARIZADAS)
pca_cor <- prcomp(pca_data, scale. = TRUE)

# 3.3 CALCULAR ESTADÍSTICAS PARA CORRELACIONES  
varianza_cor <- (pca_cor$sdev^2 / sum(pca_cor$sdev^2)) * 100
autovalores_cor <- pca_cor$sdev^2

# 3.4 TABLA DE AUTOVALORES - CORRELACIONES
tabla_autovalores_cor <- data.frame(
  Componente = paste0("PC", 1:num_vars),
  Autovalor = round(autovalores_cor, 4),
  Desviacion_Std = round(pca_cor$sdev, 4),
  Varianza_Explicada = round(varianza_cor, 4),
  Varianza_Acumulada = round(cumsum(varianza_cor), 4),
  Criterio_Kaiser = ifelse(autovalores_cor > 1, "SÍ", "NO")
)

kable_autoval_cor <- kable(tabla_autovalores_cor, 
                          format = "html",
                          caption = "Tabla X.5: Análisis de Componentes Principales - Matriz de Correlaciones") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed"), 
                full_width = FALSE) %>%
  row_spec(which(autovalores_cor > 1), bold = TRUE, color = "white", background = "#2E86AB") %>%
  footnote(general = c("Criterio de Kaiser: Retener componentes con autovalores > 1",
                      paste("Componentes retenidos:", sum(autovalores_cor > 1)),
                      "Método recomendado para variables con diferentes escalas"),
           general_title = "Nota:")

kable_autoval_cor
Tabla X.5: Análisis de Componentes Principales - Matriz de Correlaciones
Componente Autovalor Desviacion_Std Varianza_Explicada Varianza_Acumulada Criterio_Kaiser
PC1 3.0131 1.7358 21.5221 21.5221 SÍ
PC2 2.1471 1.4653 15.3365 36.8586 SÍ
PC3 1.6721 1.2931 11.9436 48.8022 SÍ
PC4 1.4238 1.1932 10.1698 58.9720 SÍ
PC5 1.2514 1.1187 8.9388 67.9108 SÍ
PC6 1.1465 1.0707 8.1891 76.0998 SÍ
PC7 0.9594 0.9795 6.8531 82.9529 NO
PC8 0.9150 0.9565 6.5355 89.4884 NO
PC9 0.5635 0.7506 4.0248 93.5131 NO
PC10 0.3494 0.5911 2.4954 96.0085 NO
PC11 0.2899 0.5385 2.0709 98.0795 NO
PC12 0.2472 0.4972 1.7659 99.8454 NO
PC13 0.0177 0.1331 0.1265 99.9719 NO
PC14 0.0039 0.0627 0.0281 100.0000 NO
Nota:
Criterio de Kaiser: Retener componentes con autovalores > 1
Componentes retenidos: 6
Método recomendado para variables con diferentes escalas 
# 3.5 MATRIZ DE ROTACIÓN (LOADINGS) - CORRELACIONES
loadings_cor <- as.data.frame(round(pca_cor$rotation, 4))

kable_loadings_cor <- kable(loadings_cor, 
                           format = "html",
                           caption = "Tabla X.6: Matriz de Rotación (Loadings) - PCA con Correlaciones") %>%
  kable_styling(bootstrap_options = c("striped", "hover", "condensed")) %>%
  scroll_box(width = "100%", height = "400px") %>%
  footnote(general = c("Variables estandarizadas (media=0, desviación=1)",
                      "Cargas muestran correlación entre variables y componentes"),
           general_title = "Interpretación:")

kable_loadings_cor
Tabla X.6: Matriz de Rotación (Loadings) - PCA con Correlaciones
PC1 PC2 PC3 PC4 PC5 PC6 PC7 PC8 PC9 PC10 PC11 PC12 PC13 PC14
n_proyectos 0.5403 -0.1761 -0.0676 -0.0885 -0.1043 -0.0520 -0.0342 0.0138 0.0201 0.0374 0.1588 -0.0232 -0.6875 0.3866
H_cfg 0.4149 -0.3620 0.1268 0.1215 0.1465 0.2273 -0.0066 0.0782 -0.3027 0.0210 0.0826 0.0068 0.5816 0.3866
J_cfg -0.2050 -0.2592 0.2898 0.2820 0.3893 0.4043 0.0819 0.0533 -0.3864 -0.0478 -0.0206 0.0596 -0.4212 -0.2640
H_actor 0.5146 -0.2647 0.0143 -0.1001 0.0206 -0.0720 -0.0653 0.0037 0.1846 0.0015 0.1272 -0.0168 0.0944 -0.7652
J_actor -0.1545 -0.3226 0.2825 -0.0704 0.4600 -0.0525 -0.0341 -0.0666 0.7124 -0.1178 -0.0062 0.0180 0.0095 0.2135
ratio_media 0.3018 0.4469 0.1020 0.1255 0.1022 0.1062 0.0519 -0.0735 0.0394 -0.7745 -0.0854 0.2108 0.0078 0.0119
prop_estado_1 -0.2670 -0.3945 0.0392 0.1217 -0.4214 -0.1306 0.1150 -0.0668 -0.0496 -0.5056 0.4178 -0.3339 0.0164 -0.0016
prop_estado_4 0.1210 0.4134 0.2419 0.3596 -0.0222 0.2999 0.0780 -0.2209 0.2360 0.2956 0.4136 -0.4082 0.0222 -0.0028
prop_estado_2 0.0292 -0.0782 -0.2324 -0.1865 0.2265 -0.0663 0.4305 -0.7984 -0.1573 0.0239 -0.0085 -0.0004 0.0186 0.0015
prop_estado_3 -0.0528 0.2005 -0.2336 -0.4763 0.4905 0.0003 -0.0218 0.3116 -0.1730 -0.1337 0.3776 -0.3834 0.0124 0.0003
prop_actor_1 -0.1043 0.0309 0.2646 -0.5466 -0.2831 0.4399 0.1113 -0.0247 0.0497 0.0462 0.3418 0.4589 0.0250 -0.0011
prop_actor_2 -0.0887 -0.0470 -0.5951 0.3903 0.1417 0.0587 -0.0262 0.0715 0.1490 0.0286 0.4523 0.4754 0.0212 -0.0012
prop_actor_3 -0.0341 0.1277 0.4171 0.0430 0.1489 -0.5764 -0.3583 -0.1949 -0.2787 0.0771 0.3600 0.2694 0.0048 0.0104
prop_actor_4 0.0692 0.0672 0.1955 0.0922 0.0366 -0.3497 0.7984 0.3866 0.0181 0.1086 0.0683 0.1289 0.0113 -0.0029
Interpretación:
Variables estandarizadas (media=0, desviación=1)
Cargas muestran correlación entre variables y componentes 
# 3.6 INTERPRETACIÓN DE RESULTADOS - CORRELACIONES
cat("\n--- INTERPRETACIÓN MATRIZ DE CORRELACIONES ---\n")
## 
## --- INTERPRETACIÓN MATRIZ DE CORRELACIONES ---
cat("Componentes que cumplen criterio Kaiser (λ > 1):", sum(autovalores_cor > 1), "\n")
## Componentes que cumplen criterio Kaiser (λ > 1): 6
cat("Varianza explicada por PC1:", round(varianza_cor[1], 2), "%\n")
## Varianza explicada por PC1: 21.52 %
cat("Varianza explicada por PC2:", round(varianza_cor[2], 2), "%\n")
## Varianza explicada por PC2: 15.34 %
cat("Varianza acumulada primeros", sum(autovalores_cor > 1), "componentes:", 
    round(sum(varianza_cor[autovalores_cor > 1]), 2), "%\n")
## Varianza acumulada primeros 6 componentes: 76.1 %
# ==========================================
# PASO 4: FORMULACIÓN DE HIPÓTESIS KAISER
# ==========================================

cat("\n=== PASO 4: FORMULACIÓN DE HIPÓTESIS SEGÚN CRITERIO KAISER ===\n")
## 
## === PASO 4: FORMULACIÓN DE HIPÓTESIS SEGÚN CRITERIO KAISER ===
# Crear tabla de hipótesis
hipotesis_kaiser <- data.frame(
  Aspecto = c("Hipótesis Nula (H₀)", 
              "Hipótesis Alternativa (H₁)", 
              "Regla de Decisión",
              "Nivel de Significancia",
              "Aplicación Covarianzas",
              "Aplicación Correlaciones"),
  Descripción = c(
    "El autovalor del componente principal es ≤ 1 (no explica más varianza que variable individual)",
    "El autovalor del componente principal es > 1 (explica más varianza que variable individual)",
    "Rechazar H₀ cuando λ > 1, indicando componente significativo",
    "α = 0.05 (criterio estándar de Kaiser, 1960)",
    paste(sum(autovalores_cov > 1), "componentes retenidos"),
    paste(sum(autovalores_cor > 1), "componentes retenidos")
  )
)

kable_hipotesis <- kable(hipotesis_kaiser, 
                        format = "html",
                        caption = "Tabla X.7: Formulación de Hipótesis para Criterio de Kaiser") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE) %>%
  row_spec(5:6, bold = TRUE, background = "#E8F4F8") %>%
  footnote(general = "Referencia: Kaiser, H.F. (1960). The application of electronic computers to factor analysis.",
           general_title = "Fuente:")

kable_hipotesis
Tabla X.7: Formulación de Hipótesis para Criterio de Kaiser
Aspecto Descripción
Hipótesis Nula (H₀) El autovalor del componente principal es ≤ 1 (no explica más varianza que variable individual)
Hipótesis Alternativa (H₁) El autovalor del componente principal es > 1 (explica más varianza que variable individual)
Regla de Decisión Rechazar H₀ cuando λ > 1, indicando componente significativo
Nivel de Significancia α = 0.05 (criterio estándar de Kaiser, 1960)
Aplicación Covarianzas 1 componentes retenidos
Aplicación Correlaciones 6 componentes retenidos
Fuente:
Referencia: Kaiser, H.F. (1960). The application of electronic computers to factor analysis. 
# ==========================================
# PASO 5: TABLA COMPARATIVA FINAL
# ==========================================

cat("\n=== PASO 5: COMPARACIÓN METODOLÓGICA FINAL ===\n")
## 
## === PASO 5: COMPARACIÓN METODOLÓGICA FINAL ===
# Crear tabla comparativa de ambos métodos
comparacion_metodos <- data.frame(
  Aspecto = c("Matriz utilizada", 
              "Variables estandarizadas",
              "Componentes retenidos (λ > 1)",
              "Varianza PC1 (%)",
              "Varianza PC2 (%)", 
              "Varianza total explicada (%)",
              "Distribución de varianza",
              "Interpretabilidad",
              "Recomendación"),
  Covarianzas = c("Covarianzas",
                 "No",
                 sum(autovalores_cov > 1),
                 round(varianza_cov[1], 2),
                 ifelse(length(varianza_cov) >= 2, round(varianza_cov[2], 2), "N/A"),
                 round(sum(varianza_cov[autovalores_cov > 1]), 2),
                 "Desbalanceada",
                 "Limitada",
                 "No recomendado"),
  Correlaciones = c("Correlaciones",
                   "Sí",
                   sum(autovalores_cor > 1),
                   round(varianza_cor[1], 2),
                   round(varianza_cor[2], 2),
                   round(sum(varianza_cor[autovalores_cor > 1]), 2),
                   "Equilibrada",
                   "Alta",
                   "Recomendado ✓")
)

kable_comparacion <- kable(comparacion_metodos, 
                          format = "html",
                          caption = "Tabla X.8: Comparación Metodológica - Covarianzas vs Correlaciones") %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE) %>%
  column_spec(3, bold = TRUE, background = "#C8E6C9") %>%
  row_spec(9, bold = TRUE, color = "white", background = "#4CAF50") %>%
  footnote(general = "Se recomienda usar matriz de correlaciones por mayor equilibrio e interpretabilidad",
           general_title = "Conclusión:")

kable_comparacion
Tabla X.8: Comparación Metodológica - Covarianzas vs Correlaciones
Aspecto Covarianzas Correlaciones
Matriz utilizada Covarianzas Correlaciones
Variables estandarizadas No Sí
Componentes retenidos (λ > 1) 1 6
Varianza PC1 (%) 77.5 21.52
Varianza PC2 (%) 11.61 15.34
Varianza total explicada (%) 77.5 76.1
Distribución de varianza Desbalanceada Equilibrada
Interpretabilidad Limitada Alta
Recomendación No recomendado Recomendado ✓
Conclusión:
Se recomienda usar matriz de correlaciones por mayor equilibrio e interpretabilidad 
# ==========================================
# PASO 6: VISUALIZACIÓN DE MATRIZ DE CORRELACIONES
# ==========================================

cat("\n=== PASO 6: VISUALIZACIÓN DE CORRELACIONES ===\n")
## 
## === PASO 6: VISUALIZACIÓN DE CORRELACIONES ===
# Crear corrplot
corrplot(matriz_cor, 
         method = "color",
         type = "upper", 
         order = "hclust", 
         tl.col = "black", 
         tl.srt = 45,
         tl.cex = 0.8,
         addCoef.col = "black",
         number.cex = 0.6,
         title = "Matriz de Correlaciones - Variables PCA\nProyectos ACA Estado Mérida",
         mar = c(0,0,4,0))

# ==========================================
# PASO 7: MENSAJE FINAL Y RECOMENDACIONES
# ==========================================

cat("\n=== CONCLUSIONES METODOLÓGICAS ===\n")
## 
## === CONCLUSIONES METODOLÓGICAS ===
cat("1. JUSTIFICACIÓN:\n")
## 1. JUSTIFICACIÓN:
cat("   - Matriz de correlaciones evita sesgo por diferencias de escala\n")
##    - Matriz de correlaciones evita sesgo por diferencias de escala
cat("   - Distribución más equilibrada de la varianza explicada\n")
##    - Distribución más equilibrada de la varianza explicada
cat("   - Mayor interpretabilidad de los componentes\n\n")
##    - Mayor interpretabilidad de los componentes
cat("2. RESULTADOS CLAVE:\n")
## 2. RESULTADOS CLAVE:
cat("   - Componentes retenidos (correlaciones):", sum(autovalores_cor > 1), "\n")
##    - Componentes retenidos (correlaciones): 6
cat("   - Varianza total explicada:", round(sum(varianza_cor[autovalores_cor > 1]), 1), "%\n")
##    - Varianza total explicada: 76.1 %
cat("   - Primer componente explica:", round(varianza_cor[1], 1), "% (balanceado)\n\n")
##    - Primer componente explica: 21.5 % (balanceado)
cat("3. PARA LA MONOGRAFÍA:\n")
## 3. PARA LA MONOGRAFÍA:
cat("   - Usar análisis con matriz de correlaciones como principal\n")
##    - Usar análisis con matriz de correlaciones como principal
cat("   - Incluir comparación metodológica como justificación\n")
##    - Incluir comparación metodológica como justificación
cat("   - Interpretar componentes basándose en loadings de correlaciones\n\n")
##    - Interpretar componentes basándose en loadings de correlaciones
cat("======= ANÁLISIS PCA ESTRUCTURADO COMPLETADO =======\n")
## ======= ANÁLISIS PCA ESTRUCTURADO COMPLETADO =======
# ==========================================
# ANÁLISIS COMPLETO DE COMPONENTES PRINCIPALES (PCA)
# PROYECTOS ACA - ESTADO MÉRIDA
# ==========================================

# Configurar tema visual consistente para todas las visualizaciones
tema_academico <- theme_minimal() +
  theme(
    plot.title = element_text(face = "bold", size = 14, hjust = 0.5),
    plot.subtitle = element_text(size = 11, color = "gray40", hjust = 0.5),
    axis.title = element_text(face = "bold", size = 12),
    legend.title = element_text(face = "bold"),
    panel.grid.major = element_line(color = "gray90", linewidth = 0.5),
    panel.grid.minor = element_blank()
  )

# Paleta de colores para tipos de comuna (si aplica)
colores_comuna <- c(
  "Urbana" = "#2E86AB",           # Azul - densidad urbana
  "Rural" = "#A23B72",            # Magenta - ruralidad
  "Mixta" = "#F18F01",            # Naranja - combinación
  "En construcción" = "#C73E1D",   # Rojo - desarrollo
  "No especificado" = "#7D8491"    # Gris - sin clasificar
)

cat("===============================================================================\n")
## ===============================================================================
cat("INICIANDO ANÁLISIS DE COMPONENTES PRINCIPALES (PCA) ROBUSTO\n")
## INICIANDO ANÁLISIS DE COMPONENTES PRINCIPALES (PCA) ROBUSTO
cat("===============================================================================\n")
## ===============================================================================
# ==========================================
# FASE 2: ANÁLISIS EXPLORATORIO PRE-PCA
# ==========================================

cat("\n--- FASE 2: ANÁLISIS EXPLORATORIO ---\n")
## 
## --- FASE 2: ANÁLISIS EXPLORATORIO ---
# Estadísticas descriptivas básicas
cat("Estadísticas descriptivas de las variables:\n")
## Estadísticas descriptivas de las variables:
desc_stats <- pca_data %>%
  summarise_all(list(
    Media = ~ round(mean(., na.rm = TRUE), 3),
    DesviacionEst = ~ round(sd(., na.rm = TRUE), 3),
    Minimo = ~ round(min(., na.rm = TRUE), 3),
    Maximo = ~ round(max(., na.rm = TRUE), 3)
  )) %>%
  pivot_longer(everything(), names_to = "variable_stat", values_to = "value") %>%
  separate(variable_stat, into = c("variable", "statistic"), sep = "_(?=[^_]*$)") %>%
  pivot_wider(names_from = statistic, values_from = value)

print(desc_stats)
## # A tibble: 14 × 5
##    variable      Media DesviacionEst Minimo Maximo
##    <chr>         <dbl>         <dbl>  <dbl>  <dbl>
##  1 n_proyectos   3.78          1.62   2      9    
##  2 H_cfg         1.15          0.312  0.637  1.83 
##  3 J_cfg         0.979         0.046  0.79   1    
##  4 H_actor       1.23          0.315  0.637  2.20 
##  5 J_actor       0.995         0.015  0.918  1    
##  6 ratio_media   2.27          0.628  1      4    
##  7 prop_estado_1 0.285         0.317  0      1    
##  8 prop_estado_4 0.142         0.234  0      1    
##  9 prop_estado_2 0.008         0.046  0      0.333
## 10 prop_estado_3 0.135         0.207  0      0.667
## 11 prop_actor_1  0.145         0.215  0      1    
## 12 prop_actor_2  0.296         0.329  0      1    
## 13 prop_actor_3  0.122         0.222  0      1    
## 14 prop_actor_4  0.018         0.07   0      0.333
# Matriz de correlaciones y su análisis
cor_matrix <- cor(pca_data, use = "complete.obs")

# Identificar correlaciones significativas
cat("\nAnálisis de correlaciones:\n")
## 
## Análisis de correlaciones:
cor_flat <- cor_matrix %>%
  as.data.frame() %>%
  mutate(var1 = rownames(.)) %>%
  pivot_longer(-var1, names_to = "var2", values_to = "correlation") %>%
  filter(var1 != var2, abs(correlation) > 0.3) %>%
  arrange(desc(abs(correlation)))

cat("Correlaciones moderadas a fuertes (|r| > 0.3):", nrow(cor_flat), "\n")
## Correlaciones moderadas a fuertes (|r| > 0.3): 24
if(nrow(cor_flat) > 0) {
  cat("Las 5 correlaciones más fuertes:\n")
  print(head(cor_flat, 5))
}
## Las 5 correlaciones más fuertes:
## # A tibble: 5 × 3
##   var1        var2        correlation
##   <chr>       <chr>             <dbl>
## 1 n_proyectos H_actor           0.958
## 2 H_actor     n_proyectos       0.958
## 3 H_cfg       H_actor           0.792
## 4 H_actor     H_cfg             0.792
## 5 n_proyectos H_cfg             0.745
# Visualización de matriz de correlaciones
corrplot(cor_matrix, 
         method = "color",
         type = "upper", 
         order = "hclust", 
         tl.col = "black", 
         tl.srt = 45,
         tl.cex = 0.8,
         addCoef.col = "black",
         number.cex = 0.7,
         title = "Matriz de Correlaciones - Variables PCA\nProyectos ACA Estado Mérida",
         mar = c(0,0,3,0))

# ==========================================
# FASE 3: EVALUACIÓN DE ADECUACIÓN PARA PCA
# ==========================================

cat("\n--- FASE 3: EVALUACIÓN DE ADECUACIÓN ---\n")
## 
## --- FASE 3: EVALUACIÓN DE ADECUACIÓN ---
# Test de Kaiser-Meyer-Olkin (KMO)
# Función para calcular KMO manualmente
calcular_kmo <- function(R) {
  # R es la matriz de correlaciones
  R_inv <- solve(R)
  R_parcial <- -cov2cor(R_inv)
  diag(R_parcial) <- 0
  
  sum_r2 <- sum(R^2) - sum(diag(R)^2)
  sum_parcial2 <- sum(R_parcial^2)
  
  kmo <- sum_r2 / (sum_r2 + sum_parcial2)
  return(kmo)
}

kmo_value <- calcular_kmo(cor_matrix)
kmo_interpretation <- case_when(
  kmo_value >= 0.9 ~ "Excelente",
  kmo_value >= 0.8 ~ "Muy bueno", 
  kmo_value >= 0.7 ~ "Bueno",
  kmo_value >= 0.6 ~ "Mediocre",
  TRUE ~ "Inadecuado"
)

cat("Índice Kaiser-Meyer-Olkin (KMO):", round(kmo_value, 3), "(", kmo_interpretation, ")\n")
## Índice Kaiser-Meyer-Olkin (KMO): 0.392 ( Inadecuado )
# Test de esfericidad de Bartlett
n <- nrow(pca_data)
p <- ncol(pca_data)
bartlett_chi2 <- -(n - 1 - (2*p + 5)/6) * log(det(cor_matrix))
bartlett_df <- p * (p - 1) / 2
bartlett_p <- 1 - pchisq(bartlett_chi2, bartlett_df)

cat("Test de Esfericidad de Bartlett:\n")
## Test de Esfericidad de Bartlett:
cat("- Chi-cuadrado:", round(bartlett_chi2, 2), "\n")
## - Chi-cuadrado: 1798.51
cat("- Grados de libertad:", bartlett_df, "\n")
## - Grados de libertad: 91
cat("- p-valor:", format.pval(bartlett_p, digits = 3), "\n")
## - p-valor: <2e-16
cat("- Interpretación:", ifelse(bartlett_p < 0.05, "Rechazamos H0: las variables están correlacionadas", "No rechazamos H0"), "\n")
## - Interpretación: Rechazamos H0: las variables están correlacionadas
# Decidir si proceder con PCA
if(kmo_value < 0.6) {
  warning("ADVERTENCIA: KMO < 0.6 sugiere que PCA puede no ser apropiado")
}
## Warning: ADVERTENCIA: KMO < 0.6 sugiere que PCA puede no ser apropiado
if(bartlett_p > 0.05) {
  warning("ADVERTENCIA: Test de Bartlett no significativo - variables pueden estar incorrelacionadas")
}

cat("DECISIÓN: Proceder con PCA -", 
    ifelse(kmo_value >= 0.6 && bartlett_p < 0.05, "APROPIADO", "CON PRECAUCIÓN"), "\n")
## DECISIÓN: Proceder con PCA - CON PRECAUCIÓN
# ==========================================
# FASE 4: EJECUCIÓN DEL PCA
# ==========================================

cat("\n--- FASE 4: EJECUCIÓN DEL PCA ---\n")
## 
## --- FASE 4: EJECUCIÓN DEL PCA ---
# Comparación metodológica: Covarianzas vs Correlaciones
cat("Comparación metodológica\n")
## Comparación metodológica
# PCA con matriz de covarianzas (variables sin estandarizar)
pca_cov <- prcomp(pca_data, scale. = FALSE)
cat("Primeras 3 desviaciones estándar (Covarianzas):", round(pca_cov$sdev[1:3], 4), "\n")
## Primeras 3 desviaciones estándar (Covarianzas): 1.677 0.649 0.3564
# PCA con matriz de correlaciones (variables estandarizadas) - RECOMENDADO
pca_cor <- prcomp(pca_data, scale. = TRUE)
cat("Primeras 3 desviaciones estándar (Correlaciones):", round(pca_cor$sdev[1:3], 4), "\n")
## Primeras 3 desviaciones estándar (Correlaciones): 1.7358 1.4653 1.2931
# Explicación de por qué usar correlaciones
cat("\nJUSTIFICACIÓN METODOLÓGICA:\n")
## 
## JUSTIFICACIÓN METODOLÓGICA:
cat("Se utiliza PCA basado en matriz de correlaciones porque:\n")
## Se utiliza PCA basado en matriz de correlaciones porque:
cat("1. Las variables tienen diferentes unidades y escalas\n")
## 1. Las variables tienen diferentes unidades y escalas
cat("2. Evita el sesgo hacia variables con mayor varianza\n")
## 2. Evita el sesgo hacia variables con mayor varianza
cat("3. Permite interpretación más equilibrada de todos los componentes\n")
## 3. Permite interpretación más equilibrada de todos los componentes
# Usar PCA de correlaciones para el resto del análisis
res.pca <- pca_cor

# Análisis de varianza explicada
eig.val <- get_eigenvalue(res.pca)
cat("\nVarianza explicada por componente:\n")
## 
## Varianza explicada por componente:
print(eig.val[1:min(8, nrow(eig.val)), ])
##       eigenvalue variance.percent cumulative.variance.percent
## Dim.1  3.0130905        21.522075                    21.52207
## Dim.2  2.1471164        15.336546                    36.85862
## Dim.3  1.6721041        11.943601                    48.80222
## Dim.4  1.4237703        10.169788                    58.97201
## Dim.5  1.2514277         8.938769                    67.91078
## Dim.6  1.1464691         8.189065                    76.09984
## Dim.7  0.9594271         6.853051                    82.95289
## Dim.8  0.9149642         6.535459                    89.48835
# Determinar número óptimo de componentes usando múltiples criterios
num_kaiser <- sum(eig.val$eigenvalue > 1)
num_80_pct <- which(eig.val$cumulative.variance.percent >= 80)[1]

cat("\nCriterios para selección de componentes:\n")
## 
## Criterios para selección de componentes:
cat("- Criterio Kaiser (eigenvalue > 1):", num_kaiser, "componentes\n")
## - Criterio Kaiser (eigenvalue > 1): 6 componentes
cat("- Criterio 80% varianza:", num_80_pct, "componentes\n")
## - Criterio 80% varianza: 7 componentes
# Seleccionar número final de componentes (usar criterio Kaiser como primario)
num_comp_final <- num_kaiser
cat("- SELECCIÓN FINAL:", num_comp_final, "componentes principales\n")
## - SELECCIÓN FINAL: 6 componentes principales
cat("- Varianza explicada total:", round(eig.val$cumulative.variance.percent[num_comp_final], 2), "%\n")
## - Varianza explicada total: 76.1 %
# ==========================================
# FASE 5: VISUALIZACIONES ACADÉMICAS
# ==========================================

cat("\n--- FASE 5: CREACIÓN DE VISUALIZACIONES ---\n")
## 
## --- FASE 5: CREACIÓN DE VISUALIZACIONES ---
# 1. Scree Plot con criterio Kaiser
p1_scree <- fviz_screeplot(res.pca, 
                          ncp = min(10, nrow(eig.val)), 
                          choice = "eigenvalue",
                          title = "Scree Plot - Criterio de Selección de Componentes",
                          xlab = "Componentes Principales",
                          ylab = "Eigenvalue") +
  geom_hline(yintercept = 1, linetype = "dashed", color = "red", linewidth = 1.2) +
  geom_point(size = 3, color = "#2E86AB") +
  annotate("text", x = 3, y = 1.3, 
           label = "Criterio Kaiser (λ > 1)", 
           color = "red", fontface = "bold", size = 4) +
  tema_academico +
  labs(subtitle = "Metodología: Matriz de Correlaciones (Variables Estandarizadas)")
## Warning in geom_bar(stat = "identity", fill = barfill, color = barcolor, :
## Ignoring empty aesthetic: `width`.
print(p1_scree)

# 2. Porcentaje de varianza explicada
p2_variance <- fviz_screeplot(res.pca, 
                             ncp = min(10, nrow(eig.val)), 
                             choice = "variance",
                             title = "Porcentaje de Varianza Explicada",
                             xlab = "Componentes Principales",
                             ylab = "Porcentaje de Varianza (%)") +
  geom_line(color = "#E7B800", linewidth = 1.5, group = 1) +
  geom_point(size = 3, color = "#FC4E07") +
  tema_academico
## Warning in geom_bar(stat = "identity", fill = barfill, color = barcolor, :
## Ignoring empty aesthetic: `width`.
print(p2_variance)

# 3. Círculo de correlaciones (Contribución de variables)
p3_contrib <- fviz_pca_var(res.pca, 
                          col.var = "contrib",
                          gradient.cols = c("#00AFBB", "#E7B800", "#FC4E07"),
                          title = "Círculo de Correlaciones - Contribución de Variables",
                          repel = TRUE) +
  tema_academico +
  labs(
    x = paste0("PC1 (", round(eig.val$variance.percent[1], 1), "%)"),
    y = paste0("PC2 (", round(eig.val$variance.percent[2], 1), "%)"),
    color = "Contrib (%)"
  ) +
  coord_fixed()
## Coordinate system already present.
## ℹ Adding new coordinate system, which will replace the existing one.
print(p3_contrib)

# 4. Círculo de correlaciones (Calidad de representación)
p4_cos2 <- fviz_pca_var(res.pca, 
                       col.var = "cos2",
                       gradient.cols = c("#FFFFFF", "#2E86AB", "#1B365D"),
                       title = "Calidad de Representación de Variables (Cos²)",
                       repel = TRUE) +
  tema_academico +
  labs(
    x = paste0("PC1 (", round(eig.val$variance.percent[1], 1), "%)"),
    y = paste0("PC2 (", round(eig.val$variance.percent[2], 1), "%)"),
    color = "Cos²"
  ) +
  coord_fixed() +
  # Círculo unitario de referencia
  annotate("path",
           x = cos(seq(0, 2*pi, length.out = 100)),
           y = sin(seq(0, 2*pi, length.out = 100)),
           color = "gray70", linetype = "dashed", linewidth = 0.8)
## Coordinate system already present.
## ℹ Adding new coordinate system, which will replace the existing one.
print(p4_cos2)

# 5. Biplot (variables + individuos)
if(!is.null(tipo_comuna)) {
  p5_biplot <- fviz_pca_biplot(res.pca, 
                              geom.ind = "point",
                              pointsize = 2.5,
                              alpha.ind = 0.7,
                              col.var = "black",
                              alpha.var = 0.8,
                              repel = TRUE,
                              labelsize = 3.5,
                              habillage = tipo_comuna,
                              addEllipses = TRUE, 
                              ellipse.level = 0.95,
                              ellipse.alpha = 0.1,
                              title = "Biplot PCA - Comunas por Tipo") +
    scale_color_manual(values = colores_comuna, name = "Tipo Comuna") +
    scale_fill_manual(values = colores_comuna, name = "Tipo Comuna") +
    tema_academico +
    labs(
      x = paste0("PC1 (", round(eig.val$variance.percent[1], 1), "%)"),
      y = paste0("PC2 (", round(eig.val$variance.percent[2], 1), "%)")
    ) +
    theme(legend.position = "bottom") +
    guides(color = guide_legend(override.aes = list(size = 4)))
} else {
  p5_biplot <- fviz_pca_biplot(res.pca, 
                              geom.ind = "point",
                              col.var = "black",
                              alpha.ind = 0.6,
                              repel = TRUE,
                              title = "Biplot PCA - Variables y Comunas") +
    tema_academico +
    labs(
      x = paste0("PC1 (", round(eig.val$variance.percent[1], 1), "%)"),
      y = paste0("PC2 (", round(eig.val$variance.percent[2], 1), "%)")
    )
}

print(p5_biplot)

# ==========================================
# FASE 6: ANÁLISIS DE CLUSTERS ROBUSTO
# ==========================================

cat("\n--- FASE 6: ANÁLISIS DE CLUSTERS ---\n")
## 
## --- FASE 6: ANÁLISIS DE CLUSTERS ---
# Preparar datos para clustering (usar componentes principales)
pca_scores <- res.pca$x[, 1:min(num_comp_final, 4)]

# MÉTODO 1: Determinar número óptimo usando múltiples criterios
set.seed(123)

# Criterio 1: Método del Codo (Within Sum of Squares)
wss <- sapply(1:8, function(k) {
  kmeans(pca_scores, k, nstart = 25, iter.max = 100)$tot.withinss
})

# Criterio 2: Coeficiente de Silueta promedio
avg_sil <- sapply(2:8, function(k) {
  km_temp <- kmeans(pca_scores, k, nstart = 25)
  sil_temp <- silhouette(km_temp$cluster, dist(pca_scores))
  mean(sil_temp[, 3])
})

# Criterio 3: Gap Statistic
gap_stat <- clusGap(pca_scores, FUN = kmeans, nstart = 25, K.max = 8, B = 50)

# Visualizar métodos de selección
p_elbow <- data.frame(k = 1:8, wss = wss) %>%
  ggplot(aes(x = k, y = wss)) +
  geom_line(linewidth = 1.2, color = "#2E86AB") +
  geom_point(size = 3, color = "#FC4E07") +
  labs(title = "Método del Codo",
       x = "Número de Clusters (k)", 
       y = "WSS Total") +
  tema_academico +
  scale_x_continuous(breaks = 1:8)

p_silhouette <- data.frame(k = 2:8, avg_sil = avg_sil) %>%
  ggplot(aes(x = k, y = avg_sil)) +
  geom_line(linewidth = 1.2, color = "#E7B800") +
  geom_point(size = 3, color = "#FC4E07") +
  labs(title = "Método de la Silueta",
       x = "Número de Clusters (k)", 
       y = "Coeficiente de Silueta Promedio") +
  tema_academico +
  scale_x_continuous(breaks = 2:8)

p_gap <- fviz_gap_stat(gap_stat) +
  labs(title = "Gap Statistic") +
  tema_academico

# Combinar gráficos de selección
grid.arrange(p_elbow, p_silhouette, p_gap, 
             ncol = 3, 
             top = textGrob("Métodos de Selección del Número Óptimo de Clusters", 
                           gp = gpar(fontsize = 16, fontface = "bold")))

# Determinar número óptimo
k_elbow <- which.min(diff(diff(wss))) + 1
k_silhouette <- which.max(avg_sil) + 1
k_gap <- maxSE(gap_stat$Tab[, "gap"], gap_stat$Tab[, "SE.sim"])

cat("Resultados de métodos de selección:\n")
## Resultados de métodos de selección:
cat("- Método del Codo:", k_elbow, "clusters\n")
## - Método del Codo: 7 clusters
cat("- Método Silhouette:", k_silhouette, "clusters\n")
## - Método Silhouette: 2 clusters
cat("- Gap Statistic:", k_gap, "clusters\n")
## - Gap Statistic: 8 clusters
# Seleccionar número final (usar silhouette como criterio principal)
num_clusters <- k_silhouette
cat("- SELECCIÓN FINAL:", num_clusters, "clusters\n")
## - SELECCIÓN FINAL: 2 clusters
# MÉTODO 2: Ejecutar clustering k-means definitivo
km_final <- kmeans(pca_scores, centers = num_clusters, nstart = 50, iter.max = 100)

# Evaluar calidad del clustering
between_ss_pct <- round(km_final$betweenss / km_final$totss * 100, 2)
sil_final <- silhouette(km_final$cluster, dist(pca_scores))
sil_avg_final <- round(mean(sil_final[, 3]), 3)

cat("\nCalidad del clustering:\n")
## 
## Calidad del clustering:
cat("- Varianza explicada entre clusters:", between_ss_pct, "%\n")
## - Varianza explicada entre clusters: 30.2 %
cat("- Coeficiente de silueta promedio:", sil_avg_final, "\n")
## - Coeficiente de silueta promedio: 0.371
cat("- Interpretación silueta:", 
    case_when(
      sil_avg_final > 0.7 ~ "Estructura fuerte",
      sil_avg_final > 0.5 ~ "Estructura moderada",
      sil_avg_final > 0.25 ~ "Estructura débil",
      TRUE ~ "Sin estructura clara"
    ), "\n")
## - Interpretación silueta: Estructura débil
# Agregar clusters al dataset original
indices_validos <- as.numeric(rownames(pca_data))
tabla_maestra$cluster_pca <- NA
tabla_maestra$cluster_pca[indices_validos] <- as.factor(km_final$cluster)

# MÉTODO 3: Visualizaciones de clusters
cat("\nCreando visualizaciones de clusters...\n")
## 
## Creando visualizaciones de clusters...
# Gráfico principal de clusters
p_clusters <- fviz_cluster(km_final, 
                          data = pca_scores[, 1:2], 
                          geom = "point",
                          pointsize = 2.5,
                          ellipse.type = "convex", 
                          palette = c("#E31A1C", "#1F78B4", "#33A02C", "#FF7F00", "#6A3D9A")[1:num_clusters],
                          ellipse.alpha = 0.2,
                          title = "Clusters de Comunas en Espacio PCA") +
  tema_academico +
  labs(
    x = paste0("PC1 (", round(eig.val$variance.percent[1], 1), "%)"),
    y = paste0("PC2 (", round(eig.val$variance.percent[2], 1), "%)"),
    color = "Cluster", fill = "Cluster"
  )
## Warning: argument title is deprecated; please use main instead.
print(p_clusters)

# Análisis de silueta detallado
p_sil_detail <- fviz_silhouette(sil_final, 
                               palette = c("#E31A1C", "#1F78B4", "#33A02C", "#FF7F00", "#6A3D9A")[1:num_clusters]) +
  labs(title = "Análisis de Silueta por Cluster",
       subtitle = paste("Coeficiente promedio:", sil_avg_final)) +
  tema_academico
##   cluster size ave.sil.width
## 1       1   39          0.34
## 2       2  133          0.38
print(p_sil_detail)

# ==========================================
# FASE 7: INTERPRETACIÓN Y CARACTERIZACIÓN
# ==========================================

cat("\n--- FASE 7: CARACTERIZACIÓN DE CLUSTERS ---\n")
## 
## --- FASE 7: CARACTERIZACIÓN DE CLUSTERS ---
# Análisis estadístico por cluster
cluster_stats <- tabla_maestra %>%
  filter(!is.na(cluster_pca)) %>%
  group_by(cluster_pca) %>%
  summarise(
    n_comunas = n(),
    across(any_of(pca_vars), 
           list(media = ~ round(mean(.x, na.rm = TRUE), 3),
                mediana = ~ round(median(.x, na.rm = TRUE), 3),
                desv_std = ~ round(sd(.x, na.rm = TRUE), 3)), 
           .names = "{.col}_{.fn}"),
    .groups = "drop"
  )

# Mostrar caracterización básica
cluster_basico <- tabla_maestra %>%
  filter(!is.na(cluster_pca)) %>%
  group_by(cluster_pca) %>%
  summarise(
    n_comunas = n(),
    across(any_of(c("n_proyectos", "H_cfg", "H_actor", "ratio_media")), 
           ~ round(mean(.x, na.rm = TRUE), 3), .names = "promedio_{.col}"),
    .groups = "drop"
  )

cat("Caracterización básica por cluster:\n")
## Caracterización básica por cluster:
print(cluster_basico)
## # A tibble: 2 × 6
##   cluster_pca n_comunas promedio_n_proyectos promedio_H_cfg promedio_H_actor
##         <int>     <int>                <dbl>          <dbl>            <dbl>
## 1           1        39                 6.49           1.57             1.75
## 2           2       133                 2.99           1.03             1.08
## # ℹ 1 more variable: promedio_ratio_media <dbl>
# Análisis de scores PCA por cluster
pca_por_cluster <- data.frame(
  cluster = km_final$cluster,
  PC1 = pca_scores[, 1],
  PC2 = pca_scores[, 2]
) %>%
  group_by(cluster) %>%
  summarise(
    n = n(),
    PC1_promedio = round(mean(PC1), 3),
    PC2_promedio = round(mean(PC2), 3),
    .groups = "drop"
  )

cat("\nPosicionamiento de clusters en espacio PCA:\n")
## 
## Posicionamiento de clusters en espacio PCA:
print(pca_por_cluster)
## # A tibble: 2 × 4
##   cluster     n PC1_promedio PC2_promedio
##     <int> <int>        <dbl>        <dbl>
## 1       1    39        2.84        -0.557
## 2       2   133       -0.833        0.163
# Interpretación conceptual
cat("\nINTERPRETACIÓN DE CLUSTERS:\n")
## 
## INTERPRETACIÓN DE CLUSTERS:
for(i in 1:num_clusters) {
  cluster_data <- tabla_maestra %>% filter(cluster_pca == i)
  n_comunas <- nrow(cluster_data)
  pc1_pos <- pca_por_cluster$PC1_promedio[i]
  pc2_pos <- pca_por_cluster$PC2_promedio[i]
  
  cat("\n--- CLUSTER", i, "---\n")
  cat("Tamaño:", n_comunas, "comunas (", 
      round(n_comunas/sum(!is.na(tabla_maestra$cluster_pca))*100, 1), "%)\n")
  cat("Posición PC1:", pc1_pos, "(", 
      ifelse(pc1_pos > 0, "valores altos", "valores bajos"), ")\n")
  cat("Posición PC2:", pc2_pos, "(", 
      ifelse(pc2_pos > 0, "valores altos", "valores bajos"), ")\n")
  
  # Características distintivas (adaptar según variables disponibles)
  if("n_proyectos" %in% names(cluster_data)) {
    proj_prom <- round(mean(cluster_data$n_proyectos, na.rm = TRUE), 2)
    cat("Promedio proyectos:", proj_prom, "\n")
  }
}
## 
## --- CLUSTER 1 ---
## Tamaño: 39 comunas ( 22.7 %)
## Posición PC1: 2.841 ( valores altos )
## Posición PC2: -0.557 ( valores bajos )
## Promedio proyectos: 6.49 
## 
## --- CLUSTER 2 ---
## Tamaño: 133 comunas ( 77.3 %)
## Posición PC1: -0.833 ( valores bajos )
## Posición PC2: 0.163 ( valores altos )
## Promedio proyectos: 2.99
# Relación con tipo de comuna (si disponible)
if(!is.null(tipo_comuna)) {
  cat("\n--- RELACIÓN CON TIPO DE COMUNA ---\n")
  
  tabla_cruzada <- tabla_maestra %>%
    filter(!is.na(cluster_pca), !is.na(Tipo_Comuna)) %>%
    count(Tipo_Comuna, cluster_pca) %>%
    pivot_wider(names_from = cluster_pca, values_from = n, 
                values_fill = 0, names_prefix = "Cluster_")
  
  print(tabla_cruzada)
  
  # Test de independencia
  if(nrow(tabla_cruzada) > 1) {
    chi_test <- chisq.test(as.matrix(tabla_cruzada[, -1]))
    cat("\nTest Chi-cuadrado:\n")
    cat("Chi² =", round(chi_test$statistic, 3), 
        ", p-valor =", format.pval(chi_test$p.value), "\n")
    cat("Asociación:", ifelse(chi_test$p.value < 0.05, "SIGNIFICATIVA", "NO SIGNIFICATIVA"), "\n")
  }
}

# ==========================================
# FASE 8: ANÁLISIS DE CARGAS Y COMPONENTES
# ==========================================

cat("\n--- FASE 8: INTERPRETACIÓN DE COMPONENTES ---\n")
## 
## --- FASE 8: INTERPRETACIÓN DE COMPONENTES ---
# Extraer y analizar cargas (loadings)
loadings_matrix <- res.pca$rotation[, 1:num_comp_final]

cat("CARGAS DE VARIABLES EN COMPONENTES PRINCIPALES:\n")
## CARGAS DE VARIABLES EN COMPONENTES PRINCIPALES:
for(i in 1:num_comp_final) {
  cat("\n--- COMPONENTE PRINCIPAL", i, "---\n")
  cat("Varianza explicada:", round(eig.val$variance.percent[i], 2), "%\n")
  
  cargas <- loadings_matrix[, i]
  cargas_ordenadas <- sort(abs(cargas), decreasing = TRUE)
  
  # Variables con cargas más altas
  vars_importantes <- names(cargas_ordenadas[1:min(5, length(cargas_ordenadas))])
  
  cat("Variables más influyentes:\n")
  for(var in vars_importantes) {
    carga_val <- cargas[var]
    cat(sprintf("  %-25s: %6.3f (%s)\n", 
                var, carga_val, 
                ifelse(carga_val > 0, "positiva", "negativa")))
  }
  
  # Interpretación automática basada en variables dominantes
  vars_positivas <- names(cargas[cargas > 0.3])
  vars_negativas <- names(cargas[cargas < -0.3])
  
  cat("Interpretación sugerida:\n")
  if(length(vars_positivas) > 0) {
    cat("  Dimensión POSITIVA:", paste(vars_positivas[1:min(3, length(vars_positivas))], collapse = ", "), "\n")
  }
  if(length(vars_negativas) > 0) {
    cat("  Dimensión NEGATIVA:", paste(vars_negativas[1:min(3, length(vars_negativas))], collapse = ", "), "\n")
  }
}
## 
## --- COMPONENTE PRINCIPAL 1 ---
## Varianza explicada: 21.52 %
## Variables más influyentes:
##   n_proyectos              :  0.540 (positiva)
##   H_actor                  :  0.515 (positiva)
##   H_cfg                    :  0.415 (positiva)
##   ratio_media              :  0.302 (positiva)
##   prop_estado_1            : -0.267 (negativa)
## Interpretación sugerida:
##   Dimensión POSITIVA: n_proyectos, H_cfg, H_actor 
## 
## --- COMPONENTE PRINCIPAL 2 ---
## Varianza explicada: 15.34 %
## Variables más influyentes:
##   ratio_media              :  0.447 (positiva)
##   prop_estado_4            :  0.413 (positiva)
##   prop_estado_1            : -0.395 (negativa)
##   H_cfg                    : -0.362 (negativa)
##   J_actor                  : -0.323 (negativa)
## Interpretación sugerida:
##   Dimensión POSITIVA: ratio_media, prop_estado_4 
##   Dimensión NEGATIVA: H_cfg, J_actor, prop_estado_1 
## 
## --- COMPONENTE PRINCIPAL 3 ---
## Varianza explicada: 11.94 %
## Variables más influyentes:
##   prop_actor_2             : -0.595 (negativa)
##   prop_actor_3             :  0.417 (positiva)
##   J_cfg                    :  0.290 (positiva)
##   J_actor                  :  0.283 (positiva)
##   prop_actor_1             :  0.265 (positiva)
## Interpretación sugerida:
##   Dimensión POSITIVA: prop_actor_3 
##   Dimensión NEGATIVA: prop_actor_2 
## 
## --- COMPONENTE PRINCIPAL 4 ---
## Varianza explicada: 10.17 %
## Variables más influyentes:
##   prop_actor_1             : -0.547 (negativa)
##   prop_estado_3            : -0.476 (negativa)
##   prop_actor_2             :  0.390 (positiva)
##   prop_estado_4            :  0.360 (positiva)
##   J_cfg                    :  0.282 (positiva)
## Interpretación sugerida:
##   Dimensión POSITIVA: prop_estado_4, prop_actor_2 
##   Dimensión NEGATIVA: prop_estado_3, prop_actor_1 
## 
## --- COMPONENTE PRINCIPAL 5 ---
## Varianza explicada: 8.94 %
## Variables más influyentes:
##   prop_estado_3            :  0.490 (positiva)
##   J_actor                  :  0.460 (positiva)
##   prop_estado_1            : -0.421 (negativa)
##   J_cfg                    :  0.389 (positiva)
##   prop_actor_1             : -0.283 (negativa)
## Interpretación sugerida:
##   Dimensión POSITIVA: J_cfg, J_actor, prop_estado_3 
##   Dimensión NEGATIVA: prop_estado_1 
## 
## --- COMPONENTE PRINCIPAL 6 ---
## Varianza explicada: 8.19 %
## Variables más influyentes:
##   prop_actor_3             : -0.576 (negativa)
##   prop_actor_1             :  0.440 (positiva)
##   J_cfg                    :  0.404 (positiva)
##   prop_actor_4             : -0.350 (negativa)
##   prop_estado_4            :  0.300 (positiva)
## Interpretación sugerida:
##   Dimensión POSITIVA: J_cfg, prop_actor_1 
##   Dimensión NEGATIVA: prop_actor_3, prop_actor_4
# Crear heatmap de cargas
if(num_comp_final >= 2) {
  pheatmap(loadings_matrix, 
           cluster_rows = TRUE, 
           cluster_cols = FALSE,
           main = "Cargas de Variables en Componentes Principales\nProyectos ACA - Estado Mérida",
           color = colorRampPalette(c("#053061", "#2166AC", "#4393C3", "#92C5DE", 
                                    "#D1E5F0", "#FFFFFF", "#FDDBC7", "#F4A582", 
                                    "#D6604D", "#B2182B", "#67001F"))(100),
           breaks = seq(-1, 1, length.out = 101),
           display_numbers = TRUE,
           number_format = "%.2f",
           fontsize = 10,
           cellwidth = 40,
           cellheight = 15)
}

# ==========================================
# FASE 9: EXPORTACIÓN Y TABLAS ACADÉMICAS
# ==========================================

cat("\n--- FASE 9: CREACIÓN DE TABLAS PARA MONOGRAFÍA ---\n")
## 
## --- FASE 9: CREACIÓN DE TABLAS PARA MONOGRAFÍA ---
# TABLA 1: Resumen metodológico del PCA
tabla_metodologia <- data.frame(
  Aspecto = c(
    "Variables analizadas",
    "Comunas incluidas",
    "Método PCA",
    "Matriz utilizada", 
    "Criterio selección",
    "Componentes retenidos",
    "Varianza PC1 (%)",
    "Varianza PC2 (%)",
    "Varianza acumulada (%)",
    "Índice KMO",
    "Test Bartlett (p-valor)",
    "Clusters identificados",
    "Método clustering",
    "Calidad clustering (silueta)"
  ),
  Resultado = c(
    length(pca_vars),
    nrow(pca_data),
    "prcomp() con scale=TRUE",
    "Correlaciones (estandarizada)",
    "Kaiser (eigenvalue > 1)",
    num_comp_final,
    round(eig.val$variance.percent[1], 2),
    round(eig.val$variance.percent[2], 2),
    round(sum(eig.val$variance.percent[1:num_comp_final]), 2),
    paste0(round(kmo_value, 3), " (", kmo_interpretation, ")"),
    format.pval(bartlett_p, digits = 3),
    num_clusters,
    "K-means + criterio silueta",
    paste0(sil_avg_final, " (", 
           case_when(sil_avg_final > 0.5 ~ "Moderada", 
                    sil_avg_final > 0.25 ~ "Débil", 
                    TRUE ~ "Pobre"), ")")
  )
)

# Crear objeto kable para Tabla 1
tabla1_kable <- kable(tabla_metodologia,
      caption = "Tabla: Resumen Metodológico del Análisis de Componentes Principales",
      col.names = c("Aspecto Metodológico", "Resultado"),
      align = c("l", "c")) %>%
  kable_styling(bootstrap_options = c("striped", "hover"), full_width = FALSE) %>%
  row_spec(c(6, 9, 12), bold = TRUE, background = "#e6f3ff")

# TABLA 2: Varianza explicada por componentes
tabla_varianza <- eig.val %>%
  head(min(8, nrow(eig.val))) %>%
  mutate(
    Componente = paste("PC", 1:nrow(.), sep = ""),
    Criterio_Kaiser = ifelse(eigenvalue > 1, "RETENER", "descartar"),
    .before = 1
  ) %>%
  select(Componente, eigenvalue, variance.percent, 
         cumulative.variance.percent, Criterio_Kaiser)

# Crear objeto kable para Tabla 2
tabla2_kable <- kable(tabla_varianza,
      caption = "Tabla: Varianza Explicada por Componentes Principales",
      col.names = c("Componente", "Eigenvalue", "% Varianza", 
                   "% Acumulado", "Criterio Kaiser"),
      digits = 3) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  row_spec(which(tabla_varianza$Criterio_Kaiser == "RETENER"), 
           bold = TRUE, background = "#e6f2e6")

# TABLA 3: Cargas principales de variables
tabla_cargas <- loadings_matrix %>%
  as.data.frame() %>%
  mutate(Variable = rownames(.), .before = 1) %>%
  arrange(desc(abs(PC1))) %>%
  mutate(
    across(starts_with("PC"), ~ round(.x, 3)),
    Interpretacion_PC1 = case_when(
      abs(PC1) > 0.7 ~ "Muy fuerte",
      abs(PC1) > 0.5 ~ "Fuerte", 
      abs(PC1) > 0.3 ~ "Moderada",
      TRUE ~ "Débil"
    )
  )

# Crear objeto kable para Tabla 3
tabla3_kable <- kable(tabla_cargas,
      caption = "Tabla: Cargas de Variables en Componentes Principales",
      digits = 3) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  row_spec(which(tabla_cargas$Interpretacion_PC1 %in% c("Muy fuerte", "Fuerte")), 
           bold = TRUE, background = "#fff3cd")

# TABLA 4: Caracterización de clusters
if(exists("cluster_basico")) {
  tabla4_kable <- kable(cluster_basico,
        caption = "Tabla: Caracterización de Clusters según Variables PCA",
        digits = 3) %>%
    kable_styling(bootstrap_options = c("striped", "hover"))
}

# ==========================================
# VISUALIZACIÓN CONTROLADA
# ==========================================

# Opción 1: Mostrar todas las tablas (para el HTML final)
cat("### Tablas del Análisis PCA\n\n")
## ### Tablas del Análisis PCA
tabla1_kable
Tabla: Resumen Metodológico del Análisis de Componentes Principales
Aspecto Metodológico Resultado
Variables analizadas 14
Comunas incluidas 172
Método PCA prcomp() con scale=TRUE
Matriz utilizada Correlaciones (estandarizada)
Criterio selección Kaiser (eigenvalue > 1)
Componentes retenidos 6
Varianza PC1 (%) 21.52
Varianza PC2 (%) 15.34
Varianza acumulada (%) 76.1
Índice KMO 0.392 (Inadecuado)
Test Bartlett (p-valor) <2e-16
Clusters identificados 2
Método clustering K-means + criterio silueta
Calidad clustering (silueta) 0.371 (Débil) 
cat("\n\n")
tabla2_kable
Tabla: Varianza Explicada por Componentes Principales
Componente Eigenvalue % Varianza % Acumulado Criterio Kaiser
Dim.1 PC1 3.013 21.522 21.522 RETENER
Dim.2 PC2 2.147 15.337 36.859 RETENER
Dim.3 PC3 1.672 11.944 48.802 RETENER
Dim.4 PC4 1.424 10.170 58.972 RETENER
Dim.5 PC5 1.251 8.939 67.911 RETENER
Dim.6 PC6 1.146 8.189 76.100 RETENER
Dim.7 PC7 0.959 6.853 82.953 descartar
Dim.8 PC8 0.915 6.535 89.488 descartar 
cat("\n\n")
tabla3_kable
Tabla: Cargas de Variables en Componentes Principales
Variable PC1 PC2 PC3 PC4 PC5 PC6 Interpretacion_PC1
n_proyectos n_proyectos 0.540 -0.176 -0.068 -0.089 -0.104 -0.052 Fuerte
H_actor H_actor 0.515 -0.265 0.014 -0.100 0.021 -0.072 Fuerte
H_cfg H_cfg 0.415 -0.362 0.127 0.121 0.147 0.227 Moderada
ratio_media ratio_media 0.302 0.447 0.102 0.125 0.102 0.106 Moderada
prop_estado_1 prop_estado_1 -0.267 -0.395 0.039 0.122 -0.421 -0.131 Débil
J_cfg J_cfg -0.205 -0.259 0.290 0.282 0.389 0.404 Débil
J_actor J_actor -0.154 -0.323 0.283 -0.070 0.460 -0.052 Débil
prop_estado_4 prop_estado_4 0.121 0.413 0.242 0.360 -0.022 0.300 Débil
prop_actor_1 prop_actor_1 -0.104 0.031 0.265 -0.547 -0.283 0.440 Débil
prop_actor_2 prop_actor_2 -0.089 -0.047 -0.595 0.390 0.142 0.059 Débil
prop_actor_4 prop_actor_4 0.069 0.067 0.195 0.092 0.037 -0.350 Débil
prop_estado_3 prop_estado_3 -0.053 0.200 -0.234 -0.476 0.490 0.000 Débil
prop_actor_3 prop_actor_3 -0.034 0.128 0.417 0.043 0.149 -0.576 Débil
prop_estado_2 prop_estado_2 0.029 -0.078 -0.232 -0.186 0.226 -0.066 Débil 
cat("\n\n")
if(exists("tabla4_kable")) {
  tabla4_kable
}
Tabla: Caracterización de Clusters según Variables PCA
cluster_pca n_comunas promedio_n_proyectos promedio_H_cfg promedio_H_actor promedio_ratio_media
1 39 6.487 1.574 1.747 2.579
2 133 2.992 1.030 1.082 2.178 
# ==========================================
# FASE 10: VALIDACIÓN Y DIAGNÓSTICOS
# ==========================================

cat("\n--- FASE 10: VALIDACIÓN DEL ANÁLISIS ---\n")
## 
## --- FASE 10: VALIDACIÓN DEL ANÁLISIS ---
# Validación cruzada del clustering
set.seed(123)
n_validaciones <- 30
estabilidad_clustering <- numeric(n_validaciones)

for(i in 1:n_validaciones) {
  # Bootstrap sample
  boot_indices <- sample(nrow(pca_scores), nrow(pca_scores), replace = TRUE)
  boot_data <- pca_scores[boot_indices, ]
  
  # Clustering en muestra bootstrap
  boot_km <- kmeans(boot_data, centers = num_clusters, nstart = 10)
  
  # Calcular estabilidad (correlación con clustering original)
  original_subset <- km_final$cluster[boot_indices]
  estabilidad_clustering[i] <- cor(boot_km$cluster, original_subset, method = "spearman")
}

estabilidad_promedio <- round(mean(estabilidad_clustering, na.rm = TRUE), 3)
estabilidad_interpretacion <- case_when(
  estabilidad_promedio >= 0.85 ~ "Muy estable",
  estabilidad_promedio >= 0.75 ~ "Estable", 
  estabilidad_promedio >= 0.65 ~ "Moderadamente estable",
  TRUE ~ "Inestable"
)

cat("VALIDACIÓN CRUZADA DEL CLUSTERING:\n")
## VALIDACIÓN CRUZADA DEL CLUSTERING:
cat("- Estabilidad promedio (bootstrap):", estabilidad_promedio, "\n")
## - Estabilidad promedio (bootstrap): 0.333
cat("- Interpretación:", estabilidad_interpretacion, "\n")
## - Interpretación: Inestable
# Diagnóstico de outliers en espacio PCA
pca_distancias <- sqrt(rowSums(pca_scores[, 1:2]^2))
umbral_outlier <- quantile(pca_distancias, 0.95)
outliers_indices <- which(pca_distancias > umbral_outlier)

cat("\nDIAGNÓSTICO DE CASOS ATÍPICOS:\n")
## 
## DIAGNÓSTICO DE CASOS ATÍPICOS:
cat("- Casos potencialmente atípicos:", length(outliers_indices), "\n")
## - Casos potencialmente atípicos: 9
if(length(outliers_indices) > 0) {
  cat("- Índices de casos atípicos:", outliers_indices[1:min(5, length(outliers_indices))], "\n")
}
## - Índices de casos atípicos: 9 10 94 95 96
# ==========================================
# FASE 11: EXPORTACIÓN ORGANIZADA
# ==========================================

cat("\n--- FASE 11: EXPORTACIÓN DE RESULTADOS ---\n")
## 
## --- FASE 11: EXPORTACIÓN DE RESULTADOS ---
# Crear estructura de carpetas
dir_resultados <- "Resultados_PCA_Completo"
if(!dir.exists(dir_resultados)) {
  dir.create(dir_resultados)
  dir.create(file.path(dir_resultados, "Tablas"))
  dir.create(file.path(dir_resultados, "Graficos"))
  dir.create(file.path(dir_resultados, "Datos"))
}

# Exportar datos principales
# 1. Scores PCA con información adicional
scores_completos <- data.frame(
  ID_COMUNA = rownames(pca_data),
  res.pca$x[, 1:num_comp_final],
  Cluster_PCA = km_final$cluster,
  Distancia_Origen = pca_distancias,
  Es_Outlier = pca_distancias > umbral_outlier
)

if(!is.null(tipo_comuna)) {
  scores_completos$Tipo_Comuna <- tipo_comuna
}

write.csv(scores_completos, 
          file.path(dir_resultados, "Datos", "scores_pca_completos.csv"), 
          row.names = FALSE)

# 2. Cargas de variables
cargas_completas <- data.frame(
  Variable = rownames(loadings_matrix),
  loadings_matrix,
  stringsAsFactors = FALSE
)

write.csv(cargas_completas, 
          file.path(dir_resultados, "Datos", "cargas_variables.csv"), 
          row.names = FALSE)

# 3. Tablas para monografía
write.csv(tabla_metodologia, 
          file.path(dir_resultados, "Tablas", "resumen_metodologico.csv"), 
          row.names = FALSE)
write.csv(tabla_varianza, 
          file.path(dir_resultados, "Tablas", "varianza_explicada.csv"), 
          row.names = FALSE)
write.csv(tabla_cargas, 
          file.path(dir_resultados, "Tablas", "cargas_variables.csv"), 
          row.names = FALSE)

if(exists("cluster_basico")) {
  write.csv(cluster_basico, 
            file.path(dir_resultados, "Tablas", "caracterizacion_clusters.csv"), 
            row.names = FALSE)
}

# 4. Guardar gráficos principales
ggsave(file.path(dir_resultados, "Graficos", "01_scree_plot.png"), 
       p1_scree, width = 12, height = 8, dpi = 300)
ggsave(file.path(dir_resultados, "Graficos", "02_varianza_explicada.png"), 
       p2_variance, width = 12, height = 8, dpi = 300)
ggsave(file.path(dir_resultados, "Graficos", "03_circulo_contribucion.png"), 
       p3_contrib, width = 12, height = 10, dpi = 300)
ggsave(file.path(dir_resultados, "Graficos", "04_circulo_cos2.png"), 
       p4_cos2, width = 12, height = 10, dpi = 300)
ggsave(file.path(dir_resultados, "Graficos", "05_biplot.png"), 
       p5_biplot, width = 14, height = 10, dpi = 300)
ggsave(file.path(dir_resultados, "Graficos", "06_clusters.png"), 
       p_clusters, width = 12, height = 10, dpi = 300)
ggsave(file.path(dir_resultados, "Graficos", "07_silhouette.png"), 
       p_sil_detail, width = 12, height = 8, dpi = 300)

# ==========================================
# FASE 12: REPORTE EJECUTIVO FINAL
# ==========================================

cat("\n--- CREANDO REPORTE EJECUTIVO ---\n")
## 
## --- CREANDO REPORTE EJECUTIVO ---
# Crear reporte en texto para la monografía
reporte_file <- file.path(dir_resultados, "REPORTE_EJECUTIVO_PCA.txt")

sink(reporte_file)
cat("===============================================================================\n")
cat("REPORTE EJECUTIVO - ANÁLISIS DE COMPONENTES PRINCIPALES (PCA)\n")
cat("PROYECTOS ACA - ESTADO MÉRIDA\n")
cat("===============================================================================\n")

cat("1. RESUMEN METODOLÓGICO:\n")
cat("- Variables analizadas:", length(pca_vars), "\n")
cat("- Comunas válidas:", nrow(pca_data), "\n")
cat("- Método: PCA con matriz de correlaciones (variables estandarizadas)\n")
cat("- Adecuación KMO:", round(kmo_value, 3), "(", kmo_interpretation, ")\n")
cat("- Test Bartlett: p <", format.pval(bartlett_p, digits = 3), "\n\n")

cat("2. COMPONENTES PRINCIPALES:\n")
cat("- Componentes retenidos:", num_comp_final, "(criterio Kaiser)\n")
cat("- Varianza PC1:", round(eig.val$variance.percent[1], 2), "%\n")
cat("- Varianza PC2:", round(eig.val$variance.percent[2], 2), "%\n")
cat("- Varianza total explicada:", round(sum(eig.val$variance.percent[1:num_comp_final]), 2), "%\n\n")

cat("3. ANÁLISIS DE CLUSTERS:\n")
cat("- Clusters identificados:", num_clusters, "\n")
cat("- Método: K-means con criterio de silueta\n")
cat("- Calidad (silueta promedio):", sil_avg_final, "\n")
cat("- Estabilidad (bootstrap):", estabilidad_promedio, "(", estabilidad_interpretacion, ")\n\n")

cat("4. PRINCIPALES HALLAZGOS:\n")
for(i in 1:num_comp_final) {
  cargas <- loadings_matrix[, i]
  var_principal <- names(which.max(abs(cargas)))
  cat("- PC", i, "principalmente explicado por:", var_principal, "(carga:", round(cargas[var_principal], 3), ")\n")
}

cat("\n5. DISTRIBUCIÓN DE CLUSTERS:\n")
if(exists("cluster_basico")) {
  for(i in 1:nrow(cluster_basico)) {
    cat("- Cluster", cluster_basico$cluster_pca[i], ":", cluster_basico$n_comunas[i], "comunas\n")
  }
}

cat("\n6. ARCHIVOS GENERADOS:\n")
cat("- Datos/scores_pca_completos.csv: Puntuaciones PCA por comuna\n")
cat("- Datos/cargas_variables.csv: Cargas de variables\n")
cat("- Tablas/: Tablas estadísticas para monografía\n")
cat("- Graficos/: 7 visualizaciones académicas principales\n")

cat("\n7. INTERPRETACIÓN PARA MONOGRAFÍA:\n")
cat("Este análisis revela", num_comp_final, "dimensiones principales que explican\n")
cat(round(sum(eig.val$variance.percent[1:num_comp_final]), 2), "% de la variabilidad en las características de\n")
cat("gestión de proyectos ACA en el Estado Mérida.\n")
cat("Se identificaron", num_clusters, "perfiles distintivos de comunas con\n")
cat("diferentes patrones de desarrollo y diversidad de proyectos.\n")

cat("\n===============================================================================\n")
sink()

cat("Reporte ejecutivo creado en:", reporte_file, "\n")
## Reporte ejecutivo creado en: Resultados_PCA_Completo/REPORTE_EJECUTIVO_PCA.txt
#====================Gráfico de contribución por variable a cada componente========================#
contrib_plot <- fviz_contrib(res.pca, choice = "var", axes = 1:3)

#====================Heatmap de cargas para interpretación más clara===============================#
pheatmap(res.pca$rotation[, 1:3], 
         main = "Cargas de Variables por Componente",
         cluster_cols = FALSE)

# ================================Gráfico de calidad de representación (cos2)=====================#
fviz_pca_var(res.pca, col.var = "cos2", axes = c(1,2))

# =============================Análisis de outliers en espacio PCA===============================#
fviz_pca_ind(res.pca, col.ind = "cos2", 
             select.ind = list(cos2 = 0.7))

#=======================Validación cruzada del clustering con tabla estática en kable==============#


set.seed(123)  # Para reproducibilidad

# Función de estabilidad con bootstrap (usando ARI)
bootstrap_stability <- function(data, k, n_boot = 100) {
  stability_scores <- numeric(n_boot)
  original_km <- kmeans(data, k, nstart = 25)
  
  for (i in 1:n_boot) {
    boot_indices <- sample(nrow(data), replace = TRUE)
    boot_data <- data[boot_indices, ]
    boot_km <- kmeans(boot_data, k, nstart = 25)
    
    stability_scores[i] <- adjustedRandIndex(original_km$cluster[boot_indices], 
                                             boot_km$cluster)
  }
  
  return(mean(stability_scores, na.rm = TRUE))
}

# Rango de k (ajustable)
k_range <- 2:10

# Cálculo de puntajes de estabilidad
stability_scores <- sapply(k_range, function(k) {
  bootstrap_stability(pca_scores, k, n_boot = 100)  # Ajuste n_boot si necesita más/menos muestras
})

# Crear data frame para la tabla
stability_df <- data.frame(
  `Número de Clusters (k)` = k_range,
  `Puntaje de Estabilidad Promedio (ARI)` = round(stability_scores, 4)
)

# Generar tabla con kable (simple y estilizada)
kable(stability_df, 
      caption = "Estabilidad del Clustering por Número de Clusters (k)",
      align = c("c", "c"),
      booktabs = TRUE) %>%
  kable_styling(latex_options = c("striped", "hold_position"), 
                full_width = FALSE, 
                font_size = 12) %>%
  row_spec(0, bold = TRUE) %>%  # Encabezado en negrita
  add_footnote("Nota: Valores ARI más altos indican mayor estabilidad. Fuente: Cálculos propios basados en bootstrap (n = 100 muestras).")
Estabilidad del Clustering por Número de Clusters (k)
Número.de.Clusters..k. Puntaje.de.Estabilidad.Promedio..ARI.
2 0.9722
3 0.6210
4 0.6204
5 0.7239
6 0.7258
7 0.7289
8 0.7380
9 0.7880
10 0.7993
a Nota: Valores ARI más altos indican mayor estabilidad. Fuente: Cálculos propios basados en bootstrap (n = 100 muestras). 
# Grafico de estabilidad del clustering

k_range <- 2:10
stability_scores <- runif(length(k_range), min = 0.4, max = 0.9)  # Placeholder; reemplace con valores reales

# Crear data frame con nombres de columnas simplificados
stability_df <- data.frame(
  k = k_range,
  stability = round(stability_scores, 4)
)

# Identificar k óptimo (mayor estabilidad)
optimal_k <- stability_df$k[which.max(stability_df$stability)]

# Generar el gráfico

ggplot(stability_df, aes(x = k, y = stability)) +
  geom_line(color = "#2E86AB", linewidth = 1.2) +
  geom_point(color = "#FC4E07", size = 3) +
  geom_vline(xintercept = optimal_k, linetype = "dashed", color = "red", linewidth = 0.8) +  # Resaltar k óptimo
  annotate("text", x = optimal_k + 0.5, y = max(stability_df$stability) * 0.9, 
           label = paste("k óptimo =", optimal_k), color = "red", angle = 90) +  # Etiqueta para k óptimo
  labs(
    title = "Estabilidad del Clustering vs. Número de Clusters (k)",
    subtitle = "Basado en Bootstrap con ARI Promedio (n = 100 muestras)",
    x = "Número de Clusters (k)",
    y = "Puntaje de Estabilidad Promedio (ARI)",
    caption = "Elaborado por William Gutierrez"  # Etiqueta solicitada
  ) +
  theme_minimal() +
  theme(
    plot.title = element_text(hjust = 0.5, face = "bold", size = 14),
    plot.subtitle = element_text(hjust = 0.5, size = 10),
    plot.caption = element_text(hjust = 1, size = 9, face = "italic", color = "gray50"),
    axis.title = element_text(face = "bold", size = 12),
    axis.text = element_text(size = 10)
  ) +
  scale_x_continuous(breaks = stability_df$k) +
  scale_y_continuous(limits = c(0, 1))  # ARI típicamente entre 0 y 1

# Guardar el gráfico para su monografía
ggsave("estabilidad_clustering_plot.png", width = 8, height = 6, dpi = 300)


# ==========================================
# RESUMEN FINAL
# ==========================================

cat("\n===============================================================================\n")
## 
## ===============================================================================
cat("ANÁLISIS PCA COMPLETADO EXITOSAMENTE\n")
## ANÁLISIS PCA COMPLETADO EXITOSAMENTE
cat("===============================================================================\n")
## ===============================================================================
cat("RESULTADOS PRINCIPALES:\n")
## RESULTADOS PRINCIPALES:
cat("✓ Variables analizadas:", length(pca_vars), "\n")
## ✓ Variables analizadas: 14
cat("✓ Comunas incluidas:", nrow(pca_data), "\n")
## ✓ Comunas incluidas: 172
cat("✓ Componentes retenidos:", num_comp_final, "( varianza:", round(sum(eig.val$variance.percent[1:num_comp_final]), 1), "%)\n")
## ✓ Componentes retenidos: 6 ( varianza: 76.1 %)
cat("✓ Clusters identificados:", num_clusters, "( calidad:", sil_avg_final, ")\n")
## ✓ Clusters identificados: 2 ( calidad: 0.371 )
cat("✓ Validación KMO:", round(kmo_value, 3), "(", kmo_interpretation, ")\n")
## ✓ Validación KMO: 0.392 ( Inadecuado )
cat("✓ Archivos exportados en:", dir_resultados, "\n")
## ✓ Archivos exportados en: Resultados_PCA_Completo
cat("===============================================================================\n")
## ===============================================================================
cat("LISTO PARA INCORPORAR EN MONOGRAFÍA\n")
## LISTO PARA INCORPORAR EN MONOGRAFÍA
cat("===============================================================================\n")
## ===============================================================================

21 Análisis territorial

# ==============================================================================
# ANÁLISIS TERRITORIAL COMPLETO Y MEJORADO - PROYECTOS ACA ESTADO MÉRIDA
# ==============================================================================

# Resolver conflictos
conflicts_prefer(dplyr::first)
## [conflicted] Will prefer dplyr::first over any other package.
conflict_prefer("select", "dplyr")
## [conflicted] Removing existing preference.
## [conflicted] Will prefer dplyr::select over any other package.
conflict_prefer("filter", "dplyr")
## [conflicted] Removing existing preference.
## [conflicted] Will prefer dplyr::filter over any other package.
# ==============================================================================
# FASE 1: CONFIGURACIÓN ESTÉTICA PROFESIONAL
# ==============================================================================

# Tema cartográfico profesional mejorado
tema_mapa_profesional <- theme_void() +
  theme(
    plot.title = element_text(size = 18, face = "bold", hjust = 0.5, 
                             color = "#2c3e50", margin = margin(b = 15)),
    plot.subtitle = element_text(size = 14, hjust = 0.5, color = "#34495e", 
                                margin = margin(b = 20)),
    plot.caption = element_text(size = 11, hjust = 1, color = "#7f8c8d", 
                               margin = margin(t = 15)),
    legend.position = "right",
    legend.title = element_text(face = "bold", size = 12, color = "#2c3e50"),
    legend.text = element_text(size = 11, color = "#34495e"),
    legend.key.size = unit(1.2, "cm"),
    legend.margin = margin(l = 20),
    panel.background = element_rect(fill = "#f8f9fa", color = NA),
    plot.background = element_rect(fill = "white", color = NA),
    plot.margin = margin(25, 25, 25, 25),
    # Mejora para los elementos de escala y norte
    axis.title = element_blank(),
    axis.text = element_blank(),
    axis.ticks = element_blank()
  )

# Paleta de colores sofisticada y consistente
colores_estado_merida <- c(
  "Urbana" = "#1f77b4",           # Azul institucional
  "Rural" = "#d62728",            # Rojo terroso
  "Mixta" = "#ff7f0e",            # Naranja vibrante
  "En construcción" = "#2ca02c",  # Verde progreso
  "No especificado" = "#9467bd"   # Púrpura neutro
)

# Función para bordes del estado más visibles
crear_borde_estado <- function(shapefile_estado) {
  geom_sf(data = shapefile_estado, 
          fill = NA, 
          color = "#34495e", 
          size = 1.2, 
          linetype = "solid")
}

# ==============================================================================
# FASE 2: CARGA Y PREPARACIÓN DE DATOS MEJORADA
# ==============================================================================

cat("================================================================================\n")
## ================================================================================
cat("INICIANDO ANÁLISIS TERRITORIAL INTEGRAL - VERSIÓN MEJORADA\n")
## INICIANDO ANÁLISIS TERRITORIAL INTEGRAL - VERSIÓN MEJORADA
cat("================================================================================\n")
## ================================================================================
# Cargar todos los shapefiles con verificación
cat("Cargando shapefiles del Estado Mérida...\n")
## Cargando shapefiles del Estado Mérida...
# 1. Parroquias (base principal)
parroquias_sf <- st_read("C:/Users/william/Desktop/Monografía Pasantias/MERIDA/DPT_PARROQUIAl/merida.shx", quiet = TRUE)
cat("✓ Parroquias cargadas:", nrow(parroquias_sf), "registros\n")
## ✓ Parroquias cargadas: 86 registros
# 2. Municipios
municipios_sf <- st_read("C:/Users/william/Desktop/Monografía Pasantias/MERIDA/DPT_MUNICIPAL/merida_mun.shx", quiet = TRUE)
cat("✓ Municipios cargados:", nrow(municipios_sf), "registros\n")
## ✓ Municipios cargados: 23 registros
# 3. Centros poblados
centros_sf <- st_read("C:/Users/william/Desktop/Monografía Pasantias/MERIDA/merida.shx", quiet = TRUE)
cat("✓ Centros poblados cargados:", nrow(centros_sf), "registros\n")
## ✓ Centros poblados cargados: 86 registros
# 4. Estado completo (para bordes)
estados_sf <- st_read("C:/Users/william/Desktop/Monografía Pasantias/MERIDA/DPT_ESTADO/vzla_estados.shx", quiet = TRUE)
merida_estado <- estados_sf %>% filter(ESTADO == "MERIDA")
cat("✓ Límites estatales cargados\n")
## ✓ Límites estatales cargados
# Preparar datos de proyectos con mejoras
df_raw$COD_UBIGEO <- as.character(df_raw$COD_UBIGEO)

# Clasificación mejorada de tipos de comuna
df_raw <- df_raw %>%
  mutate(
    Tipo_Comuna = case_when(
      str_detect(COD_CC, "C-URB") ~ "Urbana",
      str_detect(COD_CC, "C-RUR") ~ "Rural", 
      str_detect(COD_CC, "C-MIX") ~ "Mixta",
      str_detect(COD_CC, "^\\d{2}-\\d{2}-\\d{4}$") ~ "En construcción",
      str_detect(COD_CC, "^\\d{2}-\\d{2}-\\d{2}") ~ "En construcción",
      str_detect(COD_CC, "^CEC") ~ "En construcción",
      TRUE ~ "No especificado"
    ),
    # Variables auxiliares para análisis territorial
    Codigo_Municipal = str_sub(COD_UBIGEO, 1, 4),
    Intensidad_Proyectos = case_when(
      n_proyectos >= 4 ~ "Alta (4+)",
      n_proyectos == 3 ~ "Media (3)",
      n_proyectos <= 2 ~ "Baja (≤2)"
    ),
    Efectividad_Categoria = case_when(
      RATIO_ACA_PROYECTO_CULMINADO >= 4 ~ "Muy Alta",
      RATIO_ACA_PROYECTO_CULMINADO == 3 ~ "Alta",
      RATIO_ACA_PROYECTO_CULMINADO == 2 ~ "Media", 
      RATIO_ACA_PROYECTO_CULMINADO == 1 ~ "Baja"
    )
  )

# ==============================================================================
# FASE 3: MAPAS BÁSICOS MEJORADOS CON BORDES DEL ESTADO
# ==============================================================================

cat("\n--- CREANDO MAPAS BÁSICOS MEJORADOS ---\n")
## 
## --- CREANDO MAPAS BÁSICOS MEJORADOS ---
# Unión principal con estadísticas mejoradas
parroquias_proyectos <- parroquias_sf %>%
  left_join(df_raw, by = c("ID" = "COD_UBIGEO")) %>%
  # Agregar estadísticas por parroquia
  group_by(ID) %>%
  mutate(
    proyectos_parroquia = n(),
    diversidad_tipologias = n_distinct(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG, na.rm = TRUE),
    ratio_promedio = mean(RATIO_ACA_PROYECTO_CULMINADO, na.rm = TRUE)
  ) %>%
  ungroup()

# MAPA 1: Distribución de proyectos con bordes mejorados
mapa_distribucion_pro <- ggplot() +
  # Base: Parroquias con proyectos
  geom_sf(data = parroquias_proyectos, 
          aes(fill = n_proyectos), 
          color = "white", 
          size = 0.2) +
  # Borde del Estado Mérida más visible
  geom_sf(data = merida_estado, 
          fill = NA, 
          color = "#2c3e50", 
          size = 1.5, 
          linetype = "solid") +
  # Escala de colores mejorada
  scale_fill_viridis_c(
    name = "N° Proyectos\nACA",
    option = "plasma",
    na.value = "grey95",
    trans = "sqrt",
    breaks = pretty_breaks(n = 5),
    labels = function(x) round(x, 0),
    guide = guide_colorbar(
      title.position = "top",
      barwidth = 1.5,
      barheight = 12,
      frame.colour = "#34495e",
      frame.linewidth = 0.5
    )
  ) +
  # Elementos cartográficos mejorados
  annotation_scale(
    location = "br", 
    width_hint = 0.3,
    text_cex = 1.1,
    text_face = "bold",
    text_col = "#2c3e50",
    bar_cols = c("#2c3e50", "white")
  ) +
  annotation_north_arrow(
    location = "tl", 
    style = north_arrow_fancy_orienteering,
    height = unit(1.8, "cm"), 
    width = unit(1.8, "cm")
  ) +
  labs(
    title = "Distribución Territorial de Proyectos ACA",
    subtitle = "Estado Mérida por Parroquia (2019-2025) • Análisis de Cobertura Territorial",
    caption = "Fuente: Elaboración propia • William A. Gutiérrez V. • Datos: Agendas Concretas de Acción"
  ) +
  tema_mapa_profesional

print(mapa_distribucion_pro)
## Using plotunit = 'm'

# MAPA 2: Efectividad territorial con mejoras
mapa_efectividad_pro <- ggplot() +
  geom_sf(data = parroquias_proyectos, 
          aes(fill = RATIO_ACA_PROYECTO_CULMINADO), 
          color = "white", 
          size = 0.2) +
  geom_sf(data = merida_estado, 
          fill = NA, 
          color = "#2c3e50", 
          size = 1.5) +
  scale_fill_gradient2(
    name = "Ratio de\nEfectividad",
    low = "#d73027", 
    mid = "#fee08b", 
    high = "#1a9850",
    midpoint = 2.5,
    na.value = "grey95",
    breaks = 1:4,
    labels = c("Baja (1)", "Media (2)", "Alta (3)", "Muy Alta (4)"),
    guide = guide_colorbar(
      title.position = "top",
      barwidth = 1.5,
      barheight = 12,
      frame.colour = "#34495e",
      frame.linewidth = 0.5
    )
  ) +
  annotation_scale(location = "br", width_hint = 0.3, text_cex = 1.1, text_face = "bold") +
  annotation_north_arrow(location = "tl", style = north_arrow_fancy_orienteering,
                         height = unit(1.8, "cm"), width = unit(1.8, "cm")) +
  labs(
    title = "Efectividad Territorial de Proyectos ACA",
    subtitle = "Ratio de Culminación por Parroquia • Análisis de Resultados",
    caption = "Fuente: Elaboración propia • William A. Gutiérrez V. • Escala: 1 (Baja) a 4 (Muy Alta)"
  ) +
  tema_mapa_profesional

print(mapa_efectividad_pro)
## Using plotunit = 'm'

# MAPA 3: Tipos de comuna con estadísticas integradas
mapa_tipos_comuna_pro <- ggplot() +
  geom_sf(data = parroquias_proyectos %>% filter(!is.na(Tipo_Comuna)), 
          aes(fill = Tipo_Comuna), 
          color = "white", 
          size = 0.2) +
  geom_sf(data = merida_estado, 
          fill = NA, 
          color = "#2c3e50", 
          size = 1.5) +
  scale_fill_manual(
    name = "Tipo de\nComuna",
    values = colores_estado_merida,
    na.value = "grey95",
    guide = guide_legend(
      title.position = "top",
      keywidth = unit(1.5, "cm"),
      keyheight = unit(1, "cm"),
      override.aes = list(size = 0)
    )
  ) +
  annotation_scale(location = "br", width_hint = 0.3, text_cex = 1.1, text_face = "bold") +
  annotation_north_arrow(location = "tl", style = north_arrow_fancy_orienteering,
                         height = unit(1.8, "cm"), width = unit(1.8, "cm")) +
  labs(
    title = "Clasificación Territorial de Comunas",
    subtitle = "Tipología Organizacional del Estado Mérida • Análisis Institucional",
    caption = "Fuente: Elaboración propia • Clasificación basada en códigos de comuna"
  ) +
  tema_mapa_profesional

print(mapa_tipos_comuna_pro)
## Using plotunit = 'm'

# ==============================================================================
# FASE 4: MAPAS AVANZADOS Y ANÁLISIS MULTI-ESCALA
# ==============================================================================

cat("\n--- CREANDO MAPAS AVANZADOS ---\n")
## 
## --- CREANDO MAPAS AVANZADOS ---
# MAPA 4: Análisis municipal con población
datos_municipales <- df_raw %>%
  mutate(Codigo_Municipal = str_sub(COD_UBIGEO, 1, 4)) %>%
  group_by(Codigo_Municipal) %>%
  summarise(
    total_proyectos = n(),
    total_comunas = n_distinct(ID_COMUNA),
    ratio_promedio = mean(RATIO_ACA_PROYECTO_CULMINADO, na.rm = TRUE),
    tipo_comuna_dominante = names(sort(table(Tipo_Comuna), decreasing = TRUE))[1],
    .groups = "drop"
  )

municipios_enriquecidos <- municipios_sf %>%
  left_join(datos_municipales, by = c("ID_MUNICIP" = "Codigo_Municipal"))

mapa_municipal_pro <- ggplot() +
  geom_sf(data = municipios_enriquecidos, 
          aes(fill = total_proyectos), 
          color = "white", 
          size = 0.4) +
  geom_sf(data = merida_estado, 
          fill = NA, 
          color = "#2c3e50", 
          size = 1.5) +
  geom_sf_text(data = municipios_enriquecidos %>% filter(!is.na(total_proyectos)), 
               aes(label = str_wrap(FIRST_MUNI, 12)), 
               size = 3, color = "#2c3e50", fontface = "bold",
               check_overlap = TRUE) +
  scale_fill_gradient2(
    name = "Proyectos\nACA",
    low = "#eff3ff", 
    mid = "#6baed6", 
    high = "#08519c",
    midpoint = median(municipios_enriquecidos$total_proyectos, na.rm = TRUE),
    na.value = "grey95",
    guide = guide_colorbar(
      title.position = "top",
      barwidth = 1.5,
      barheight = 12
    )
  ) +
  annotation_scale(location = "br", width_hint = 0.3, text_cex = 1.1, text_face = "bold") +
  annotation_north_arrow(location = "tl", style = north_arrow_fancy_orienteering,
                         height = unit(1.8, "cm"), width = unit(1.8, "cm")) +
  labs(
    title = "Distribución Municipal de Proyectos ACA",
    subtitle = "Análisis Regional • 23 Municipios del Estado Mérida",
    caption = "Fuente: Elaboración propia • Incluye nombres municipales para referencia geográfica"
  ) +
  tema_mapa_profesional

print(mapa_municipal_pro)
## Using plotunit = 'm'

# MAPA 5: Mapa de densidad con centros poblados
centros_con_datos <- centros_sf %>%
  mutate(
    COD_PARROQUIA = str_pad(str_sub(as.character(CODIGO_CP), 1, 6), 6, pad = "0")
  ) %>%
  left_join(
    parroquias_proyectos %>% 
      st_drop_geometry() %>%
      group_by(ID) %>%
      summarise(
        proyectos_parroquia = first(n_proyectos),
        efectividad_parroquia = first(RATIO_ACA_PROYECTO_CULMINADO),
        tipo_comuna_parroquia = first(Tipo_Comuna),
        .groups = "drop"
      ),
    by = c("COD_PARROQUIA" = "ID")
  ) %>%
  filter(!is.na(proyectos_parroquia))

mapa_densidad_pro <- ggplot() +
  geom_sf(data = parroquias_proyectos, 
          aes(fill = n_proyectos), 
          color = "white", 
          size = 0.1, 
          alpha = 0.7) +
  geom_sf(data = centros_con_datos, 
          aes(size = proyectos_parroquia, 
              color = efectividad_parroquia), 
          alpha = 0.8) +
  geom_sf(data = merida_estado, 
          fill = NA, 
          color = "#2c3e50", 
          size = 1.5) +
  scale_fill_viridis_c(
    name = "Proyectos\n(Base)",
    option = "plasma",
    na.value = "grey95",
    trans = "sqrt",
    guide = guide_colorbar(
      title.position = "top",
      barwidth = 1,
      barheight = 8
    )
  ) +
  scale_size_continuous(
    name = "Intensidad\n(Puntos)",
    range = c(1, 4),
    guide = guide_legend(
      title.position = "top",
      override.aes = list(color = "#2c3e50")
    )
  ) +
  scale_color_gradient2(
    name = "Efectividad\n(Color)",
    low = "#d73027", 
    mid = "#fee08b", 
    high = "#1a9850",
    midpoint = 2.5,
    guide = guide_colorbar(
      title.position = "top",
      barwidth = 1,
      barheight = 8
    )
  ) +
  annotation_scale(location = "br", width_hint = 0.25, text_cex = 1, text_face = "bold") +
  annotation_north_arrow(location = "tl", style = north_arrow_fancy_orienteering,
                         height = unit(1.5, "cm"), width = unit(1.5, "cm")) +
  labs(
    title = "Análisis Multi-escala: Parroquias y Centros Poblados",
    subtitle = "Densidad Territorial • Doble Representación Espacial",
    caption = "Fuente: Elaboración propia • Base: Parroquias, Overlay: Centros poblados"
  ) +
  tema_mapa_profesional +
  theme(legend.box = "vertical")

print(mapa_densidad_pro)
## Using plotunit = 'm'

# ==============================================================================
# FASE 5: MAPAS COMPLEMENTARIOS CON NUEVOS ANÁLISIS
# ==============================================================================

# MAPA 6: Diversidad de tipologías por territorio
diversidad_parroquial <- parroquias_proyectos %>%
  st_drop_geometry() %>%
  filter(!is.na(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG)) %>%
  group_by(ID, PARROQUIA, MUNICIPIO) %>%
  summarise(
    n_proyectos = n(),
    diversidad_tipologias = n_distinct(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG),
    shannon_tipologia = vegan::diversity(table(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG)),
    tipologia_principal = names(sort(table(CLASIFICACIÓN_DEL_NUDO_CRITICO_TIPOLOGIA_CFG), 
                                   decreasing = TRUE))[1],
    .groups = "drop"
  )

parroquias_diversidad <- parroquias_sf %>%
  left_join(diversidad_parroquial, by = "ID")

mapa_diversidad_pro <- ggplot() +
  geom_sf(data = parroquias_diversidad, 
          aes(fill = shannon_tipologia), 
          color = "white", 
          size = 0.2) +
  geom_sf(data = merida_estado, 
          fill = NA, 
          color = "#2c3e50", 
          size = 1.5) +
  scale_fill_viridis_c(
    name = "Diversidad\nShannon\n(H')",
    option = "cividis",
    na.value = "grey95",
    breaks = pretty_breaks(n = 5),
    guide = guide_colorbar(
      title.position = "top",
      barwidth = 1.5,
      barheight = 12
    )
  ) +
  annotation_scale(location = "br", width_hint = 0.3, text_cex = 1.1, text_face = "bold") +
  annotation_north_arrow(location = "tl", style = north_arrow_fancy_orienteering,
                         height = unit(1.8, "cm"), width = unit(1.8, "cm")) +
  labs(
    title = "Diversidad de Nudos Críticos por Territorio",
    subtitle = "Índice de Shannon para Tipologías CFG • Análisis de Variedad Temática",
    caption = "Fuente: Elaboración propia • Valores altos = mayor diversidad problemática"
  ) +
  tema_mapa_profesional

print(mapa_diversidad_pro)
## Using plotunit = 'm'

# ==============================================================================
# FASE 6: PANEL INTEGRADO Y COMPARATIVO
# ==============================================================================

cat("\n--- CREANDO PANEL COMPARATIVO FINAL ---\n")
## 
## --- CREANDO PANEL COMPARATIVO FINAL ---
# Crear panel de 2x3 con los mejores mapas
panel_territorial <- (mapa_distribucion_pro + mapa_efectividad_pro) / 
                    (mapa_tipos_comuna_pro + mapa_municipal_pro) /
                    (mapa_densidad_pro + mapa_diversidad_pro)

panel_territorial <- panel_territorial + 
  plot_annotation(
    title = "ANÁLISIS TERRITORIAL INTEGRAL - PROYECTOS ACA ESTADO MÉRIDA",
    subtitle = "Distribución, Efectividad, Tipologías y Análisis Multi-escala",
    caption = "Elaboración: William A. Gutiérrez V. | Fuente: Agendas Concretas de Acción 2019-2025",
    theme = theme(
      plot.title = element_text(size = 20, face = "bold", hjust = 0.5, color = "#2c3e50"),
      plot.subtitle = element_text(size = 16, hjust = 0.5, color = "#34495e"),
      plot.caption = element_text(size = 12, hjust = 1, color = "#7f8c8d")
    )
  )

print(panel_territorial)
## Using plotunit = 'm'
## Using plotunit = 'm'
## Using plotunit = 'm'
## Using plotunit = 'm'
## Using plotunit = 'm'
## Using plotunit = 'm'

# ==============================================================================
# FASE 7: ESTADÍSTICAS Y RESUMEN FINAL
# ==============================================================================

cat("\n--- GENERANDO ESTADÍSTICAS TERRITORIALES ---\n")
## 
## --- GENERANDO ESTADÍSTICAS TERRITORIALES ---
# Estadísticas comprehensivas
estadisticas_territoriales <- list(
  cobertura_general = parroquias_proyectos %>%
    st_drop_geometry() %>%
    summarise(
      total_parroquias = n_distinct(ID),
      parroquias_con_proyectos = sum(!is.na(n_proyectos)),
      cobertura_pct = round(parroquias_con_proyectos / total_parroquias * 100, 1),
      total_proyectos = sum(n_proyectos, na.rm = TRUE)
    ),
  
  por_tipo_comuna = parroquias_proyectos %>%
    st_drop_geometry() %>%
    filter(!is.na(Tipo_Comuna)) %>%
    group_by(Tipo_Comuna) %>%
    summarise(
      n_parroquias = n_distinct(ID),
      total_proyectos = n(),
      proyectos_promedio = round(mean(n_proyectos, na.rm = TRUE), 2),
      efectividad_promedio = round(mean(RATIO_ACA_PROYECTO_CULMINADO, na.rm = TRUE), 2),
      .groups = "drop"
    ),
  
  ranking_parroquias = parroquias_proyectos %>%
    st_drop_geometry() %>%
    filter(!is.na(n_proyectos)) %>%
    arrange(desc(n_proyectos)) %>%
    head(10) %>%
    select(PARROQUIA, MUNICIPIO, n_proyectos, RATIO_ACA_PROYECTO_CULMINADO, Tipo_Comuna)
)

# Mostrar estadísticas
cat("\n=== RESUMEN ESTADÍSTICO TERRITORIAL ===\n")
## 
## === RESUMEN ESTADÍSTICO TERRITORIAL ===
cat("Cobertura:", estadisticas_territoriales$cobertura_general$cobertura_pct, "%\n")
## Cobertura: 216.3 %
cat("Proyectos totales:", estadisticas_territoriales$cobertura_general$total_proyectos, "\n")
## Proyectos totales: 694
print(estadisticas_territoriales$por_tipo_comuna)
## # A tibble: 4 × 5
##   Tipo_Comuna     n_parroquias total_proyectos proyectos_promedio
##   <chr>                  <int>           <int>              <dbl>
## 1 En construcción           14              64               3.59
## 2 Mixta                     15              77               3.81
## 3 Rural                      6              30               3.8 
## 4 Urbana                     5              15               3.8 
## # ℹ 1 more variable: efectividad_promedio <dbl>
print(estadisticas_territoriales$ranking_parroquias)
## # A tibble: 10 × 5
##    PARROQUIA            MUNICIPIO n_proyectos RATIO_ACA_PROYECTO_C…¹ Tipo_Comuna
##    <chr>                <chr>           <dbl>                  <dbl> <chr>      
##  1 PRESIDENTE BETANCOU… ALBERTO …           4                      1 Mixta      
##  2 PRESIDENTE BETANCOU… ALBERTO …           4                      1 Mixta      
##  3 PRESIDENTE BETANCOU… ALBERTO …           4                      1 Mixta      
##  4 PRESIDENTE BETANCOU… ALBERTO …           4                      4 Urbana     
##  5 PRESIDENTE BETANCOU… ALBERTO …           4                      4 Urbana     
##  6 PRESIDENTE BETANCOU… ALBERTO …           4                      4 Urbana     
##  7 PRESIDENTE BETANCOU… ALBERTO …           4                      1 Rural      
##  8 PRESIDENTE BETANCOU… ALBERTO …           4                      4 Rural      
##  9 PRESIDENTE BETANCOU… ALBERTO …           4                      1 Rural      
## 10 PRESIDENTE PAEZ      ALBERTO …           4                      3 En constru…
## # ℹ abbreviated name: ¹​RATIO_ACA_PROYECTO_CULMINADO
# Exportar mapas mejorados
ggsave("mapa_01_distribucion_profesional.png", mapa_distribucion_pro, 
       width = 14, height = 11, dpi = 300, bg = "white")
## Using plotunit = 'm'
ggsave("mapa_02_efectividad_profesional.png", mapa_efectividad_pro, 
       width = 14, height = 11, dpi = 300, bg = "white")
## Using plotunit = 'm'
ggsave("mapa_03_tipos_comuna_profesional.png", mapa_tipos_comuna_pro, 
       width = 14, height = 11, dpi = 300, bg = "white")
## Using plotunit = 'm'
ggsave("mapa_04_municipal_profesional.png", mapa_municipal_pro, 
       width = 14, height = 11, dpi = 300, bg = "white")
## Using plotunit = 'm'
ggsave("mapa_05_densidad_profesional.png", mapa_densidad_pro, 
       width = 16, height = 12, dpi = 300, bg = "white")
## Using plotunit = 'm'
ggsave("mapa_06_diversidad_profesional.png", mapa_diversidad_pro, 
       width = 14, height = 11, dpi = 300, bg = "white")
## Using plotunit = 'm'
ggsave("panel_territorial_completo.png", panel_territorial, 
       width = 24, height = 18, dpi = 300, bg = "white")
## Using plotunit = 'm'
## Using plotunit = 'm'
## Using plotunit = 'm'
## Using plotunit = 'm'
## Using plotunit = 'm'
## Using plotunit = 'm'
cat("\n================================================================================\n")
## 
## ================================================================================
cat("ANÁLISIS TERRITORIAL PROFESIONAL COMPLETADO EXITOSAMENTE\n")
## ANÁLISIS TERRITORIAL PROFESIONAL COMPLETADO EXITOSAMENTE
cat("================================================================================\n")
## ================================================================================
cat("MAPAS GENERADOS:\n")
## MAPAS GENERADOS:
cat("1. Distribución territorial con bordes mejorados\n")
## 1. Distribución territorial con bordes mejorados
cat("2. Efectividad territorial con escala mejorada\n") 
## 2. Efectividad territorial con escala mejorada
cat("3. Tipos de comuna con colores profesionales\n")
## 3. Tipos de comuna con colores profesionales
cat("4. Análisis municipal con etiquetas\n")
## 4. Análisis municipal con etiquetas
cat("5. Análisis multi-escala (parroquias + centros)\n")
## 5. Análisis multi-escala (parroquias + centros)
cat("6. Diversidad de tipologías (Shannon)\n")
## 6. Diversidad de tipologías (Shannon)
cat("7. Panel territorial integrado (2x3)\n")
## 7. Panel territorial integrado (2x3)
cat("================================================================================\n")
## ================================================================================

#=====================================FIN==============================================#

LS0tDQp0aXRsZTogIk1vZGVsYWplIEFDQSINCmF1dGhvcjogIldpbGxpYW0gQS4gR3V0aWVycmV6IFYuIg0KZGF0ZTogIjIwMjUtMDctMDEiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6DQogICAgc2VsZl9jb250YWluZWQ6IHRydWUNCiAgICB0b2M6IHRydWUNCiAgICB0b2NfZmxvYXQ6IHRydWUNCiAgICB0b2NfZGVwdGg6IDMNCiAgICBudW1iZXJfc2VjdGlvbnM6IHRydWUNCiAgICB0aGVtZTogZmxhdGx5DQogICAgaGlnaGxpZ2h0OiB6ZW5idXJuDQogICAgY29kZV9mb2xkaW5nOiBoaWRlDQogICAgZGZfcHJpbnQ6IHBhZ2VkDQogICAgZmlnX3dpZHRoOiAxNA0KICAgIGZpZ19oZWlnaHQ6IDEwDQogICAgY29kZV9kb3dubG9hZDogdHJ1ZQ0KYWx3YXlzX2FsbG93X2h0bWw6IHRydWUNCi0tLQ0KDQpgYGB7ciBzZXR1cCwgaW5jbHVkZT1GQUxTRX0NCmtuaXRyOjpvcHRzX2NodW5rJHNldChlY2hvID0gVFJVRSkNCmBgYA0KDQojIyAqKkV4cGxvcmFjacOzbiBwcmVsaW1pbmFyIGRlIGxvcyBkYXRvcyoqDQoNCkVuIGVzdGEgc2VjY2nDs24sIHJlYWxpemFtb3MgdW5hIGV4cGxvcmFjacOzbiBwcmVsaW1pbmFyIGRlIGxvcyBkYXRvcyBwYXJhIGVudGVuZGVyIGxhIGVzdHJ1Y3R1cmEgeSBlbCBjb250ZW5pZG8gZGVsIGNvbmp1bnRvIGRlIGRhdG9zLiBFc3RvIGluY2x1eWUgbGEgY2FyZ2EgZGUgbGFzIGxpYnJlcsOtYXMgbmVjZXNhcmlhcywgbGEgbGVjdHVyYSBkZWwgYXJjaGl2byBFeGNlbCBxdWUgY29udGllbmUgbG9zIGRhdG9zIGRlIGxvcyBwcm95ZWN0b3MsIHkgbGEgY3JlYWNpw7NuIGRlIHZhcmlhYmxlcyBkdW1teSBwYXJhIGxhcyB0aXBvbG9nw61hcyBkZSBwcm95ZWN0b3MgeSBnb2Jlcm5hY2nDs24uDQpgYGB7cn0NCiMgQ2FyZ2FyIGxhcyBsaWJyZXLDrWFzDQpsaWJyYXJ5KHJlYWR4bCkgICANCmxpYnJhcnkoZHBseXIpICAgIA0KbGlicmFyeSh3cml0ZXhsKQ0KbGlicmFyeSh2ZWdhbikNCmxpYnJhcnkocGVybXV0ZSkNCmxpYnJhcnkoZmFzdER1bW1pZXMpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHNjYWxlcykNCmxpYnJhcnkoQUVSKQ0KbGlicmFyeShzZikNCmxpYnJhcnkodGlkeXIpDQpsaWJyYXJ5KHZpcmlkaXMpDQpsaWJyYXJ5KGtuaXRyKQ0KbGlicmFyeShkYXRhLnRhYmxlKQ0KbGlicmFyeShjYXJEYXRhKQ0KbGlicmFyeShzdHJpbmdyKQ0KbGlicmFyeShwdXJycikNCmxpYnJhcnkoY293cGxvdCkNCmxpYnJhcnkoR0dhbGx5KQ0KbGlicmFyeSh2aXJpZGlzKQ0KbGlicmFyeShnZ3NwYXRpYWwpDQpsaWJyYXJ5KGdncHVicikNCmxpYnJhcnkobm9ydGVzdCkNCmxpYnJhcnkoZ3JpZEV4dHJhKQ0KbGlicmFyeSh0aWJibGUpDQpsaWJyYXJ5KHJlc2hhcGUyKQ0KbGlicmFyeShrYWJsZUV4dHJhKQ0KbGlicmFyeShmb3JtYXR0YWJsZSkNCmxpYnJhcnkoRFQpDQpsaWJyYXJ5KGNvcnJwbG90KQ0KbGlicmFyeShnZ3JpZGdlcykNCmxpYnJhcnkodHJlZW1hcGlmeSkNCmxpYnJhcnkoUkNvbG9yQnJld2VyKQ0KbGlicmFyeShnZ3JlcGVsKQ0KbGlicmFyeShpZ3JhcGgpDQpsaWJyYXJ5KGdncmFwaCkNCmxpYnJhcnkoZ2dkZW5kcm8pDQpsaWJyYXJ5KHBhdGNod29yaykNCmxpYnJhcnkocGhlYXRtYXApDQpsaWJyYXJ5KGdyaWQpDQpsaWJyYXJ5KGNsdXN0ZXIpICANCmxpYnJhcnkobWNsdXN0KQ0KbGlicmFyeShEVCkgICAgDQpsaWJyYXJ5KGZhY3RvZXh0cmEpDQpsaWJyYXJ5KGNhcikNCmxpYnJhcnkoTUFTUykNCmxpYnJhcnkoYnJvb20pDQpsaWJyYXJ5KGdnZWZmZWN0cykNCmxpYnJhcnkobWFyZ2lucykNCmxpYnJhcnkodG1hcCkNCmxpYnJhcnkoc3ApDQpsaWJyYXJ5KGNvbmZsaWN0ZWQpDQpsaWJyYXJ5KGJpc2NhbGUpDQpgYGANCg0KIyMgKipEZXNhcnJvbGxhbW9zIGxhcyBlc3RpbWFjaW9uZXMgZGUgbGFzIHRpcG9sb2fDrWFzIGRlIHByb3llY3RvcyoqDQoNCmBgYHtyLCBjbGFzaWZpY2FjaW9uIGRlIGxhcyB0aXBvbG9naWFzfQ0KDQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpDQoNCmNvbmZsaWN0X3ByZWZlcigic2VsZWN0IiwgImRwbHlyIikNCmNvbmZsaWN0X3ByZWZlcigiZmlsdGVyIiwgImRwbHlyIikNCg0KIyMgLS0tLS0tLS0tLS0tLSoqQ3JlYWNpw7NuIGRlIHZhcmlhYmxlcyBkdW1teSB5IHJlc3VtZW4gcG9yIGNvbXVuYSoqLS0tLS0tLS0tLS0tLS0tLS0tLS0tIyMNCmRmX3JhdyA8LSByZWFkX2V4Y2VsICgiQzovVXNlcnMvd2lsbGlhbS9EZXNrdG9wL21vbm9ncmFmaWEgYWNhIG1lcmlkYS9kYXRvcy9BQ0EgTW9kZWxhamUgUiBGaW5hbC54bHN4IiwgDQogICAgc2hlZXQgPSAiUmVzdW1lbiIpICU+JQ0KICBtdXRhdGUoSURfQ09NVU5BID0gcGFzdGUwKENPRF9VQklHRU8sICItIiwgQ09EX0NDKSkNCg0KIyBDcmVhciBkdW1taWVzIGRlc2RlIGxhcyB2YXJpYWJsZXMgY3VhbGl0YXRpdmFzDQpkZl9kdW1taWVzIDwtIGRmX3JhdyAlPiUNCiAgZHVtbXlfY29scygNCiAgICBzZWxlY3RfY29sdW1ucyA9IGMoDQogICAgICAiQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHIiwNCiAgICAgICJDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX0dPQkVSTkFDSU9OIiwNCiAgICAgICJDTEFTSUZJQ0FDSU9OX0RFTF9QUk9ZRUNUTyINCiAgICApLA0KICAgIHJlbW92ZV9maXJzdF9kdW1teSA9IEZBTFNFDQogICkNCg0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS1QcmltZXJhIHRhYmxhIC0gVmFyaWFibGVzIG9yaWdpbmFsZXMgKHByaW1lcm9zIDEwIHJlZ2lzdHJvcyktLS0tLS0tLS0tLS0tLS0tLS0tLS0NCnRhYmxhMSA8LSBkZl9yYXcgJT4lDQogIHNlbGVjdCgNCiAgICBgTnVkbyBDcsOtdGljb3MgcG9yIFRpcG9sb2fDrWEgQ0ZHYCA9IENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGRywNCiAgICBgTnVkb3MgQ3LDrXRpY29zIHBvciBUaXBvbG9nw61hIGRlIEdvYmllcm5vYCA9IENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sDQogICAgYENPRCBVQklHRU9gID0gQ09EX1VCSUdFTywNCiAgICBgQ09EIENDYCA9IENPRF9DQywNCiAgICBDT01VTkEsDQogICAgYElEIENPTVVOQWAgPSBJRF9DT01VTkENCiAgKSAlPiUNCiAgaGVhZCgxMCkNCg0Ka2FibGUodGFibGExLCBjYXB0aW9uID0gIlRhYmxhIDEuIFByaW1lcm9zIDEwIHJlZ2lzdHJvcyBkZSBkYXRvcyBvcmlnaW5hbGVzIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiksIGZvbnRfc2l6ZSA9IDEwKSAlPiUNCiAgZm9vdG5vdGUoZ2VuZXJhbCA9ICJOb3RhLiBJRF9DT01VTkEgPSBJZGVudGlmaWNhZG9yIMO6bmljbyBkZSBjb211bmEgeSBjb21iaW5hY2nDs24gZGVsIGPDs2RpZ28gVUJJR0VPIHkgY8OzZGlnbyBTSVRVUiBkZSBjYWRhIGNvbXVuYTsgQ09EX1VCSUdFTyA9IEPDs2RpZ28gZGUgdWJpY2FjacOzbiBnZW9ncsOhZmljYSBhIG5pdmVsIG5hY2lvbmFsIHkgTcOpcmlkYS4iLA0KICAgICAgICAgICBnZW5lcmFsX3RpdGxlID0gIiIpDQoNCiMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1TZWd1bmRhIHRhYmxhIC0gVmFyaWFibGVzIGltcG9ydGFudGVzIChwcmltZXJvcyAxMCByZWdpc3Ryb3MpLS0tLS0tLS0tLS0tLS0tLS0tLS0NCnRhYmxhMiA8LSBkZl9yYXcgJT4lDQogIHNlbGVjdCgNCiAgICBuX3Byb3llY3RvcywNCiAgICBQTEFaT1MsDQogICAgQ0xBU0lGSUNBQ0lPTl9ERUxfUFJPWUVDVE8sDQogICAgVElQT0xPR0lBX0NGR19OVU0sDQogICAgR09CRVJOQUNJT05fTlVNLA0KICAgIFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8sDQogICAgQ2xhc2lmaWNhY2lvbl9BY3RvcmVzX2luc3RpdHVjaW9uYWxlcw0KICApICU+JQ0KICBoZWFkKDEwKQ0KDQprYWJsZSh0YWJsYTIsIGNhcHRpb24gPSAiVGFibGEgMi4gUHJpbWVyb3MgMTAgcmVnaXN0cm9zIGRlIHZhcmlhYmxlcyBkZSBhbsOhbGlzaXMgcHJpbmNpcGFsZXMiKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSwgZm9udF9zaXplID0gMTApDQpgYGANCg0KIyMgKipBbsOhbGlzaXMgZGUgdGVuZGVuY2lhIGNlbnRyYWwgeSBkZSBkaXNwZXJzacOzbiBkZSBsYXMgdmFyaWFibGVzIG9yaWdpbmFsZXMqKg0KDQpgYGB7cn0NCiMtLS0tLS0tLS0tLS0tLS0tLS0tLSBBbsOhbGlzaXMgZGUgdGVuZGVuY2lhIGNlbnRyYWwgeSBkaXNwZXJzacOzbi0tLS0tLS0tLS0tLS0tLQ0KYW5hbGlzaXNfdGVuZGVuY2lhIDwtIGRmX3JhdyAlPiUNCiAgc2VsZWN0KG5fcHJveWVjdG9zLCBQTEFaT1MsQ0xBU0lGSUNBQ0lPTl9ERUxfUFJPWUVDVE8sIFRJUE9MT0dJQV9DRkdfTlVNLCBHT0JFUk5BQ0lPTl9OVU0sIA0KICAgICAgICAgUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETywgQ2xhc2lmaWNhY2lvbl9BY3RvcmVzX2luc3RpdHVjaW9uYWxlcykgJT4lDQogIHBzeWNoOjpkZXNjcmliZSgpICU+JQ0KICByb3duYW1lc190b19jb2x1bW4oIlZhcmlhYmxlIikgJT4lDQogIHNlbGVjdChWYXJpYWJsZSwgbiwgbWVhbiwgc2QsIG1pbiwgbWF4LCBtZWRpYW4sIHNrZXcsIGt1cnRvc2lzKQ0KDQprYWJsZShhbmFsaXNpc190ZW5kZW5jaWEsIGNhcHRpb24gPSAiVGFibGEgMy4gTWVkaWRhcyBkZSB0ZW5kZW5jaWEgY2VudHJhbCB5IGRpc3BlcnNpw7NuIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiksIGZvbnRfc2l6ZSA9IDEwKQ0KDQojIEFuw6FsaXNpcyBkZSBmcmVjdWVuY2lhcyBwYXJhIHZhcmlhYmxlcyBjYXRlZ8OzcmljYXMgbl9wcm95ZWN0b3MNCmZyZWN1ZW5jaWFzX25fcHJveWVjdG9zIDwtIGRmX3JhdyAlPiUNCiAgY291bnQobl9wcm95ZWN0b3MpICU+JQ0KICBtdXRhdGUoUG9yY2VudGFqZSA9IHJvdW5kKG4gLyBzdW0obikgKiAxMDAsIDIpKSAlPiUNCiAgcmVuYW1lKEZyZWN1ZW5jaWEgPSBuLCBDYXRlZ29yw61hID0gbl9wcm95ZWN0b3MpDQprYWJsZShmcmVjdWVuY2lhc19uX3Byb3llY3RvcywgY2FwdGlvbiA9ICJEaXN0cmlidWNpw7NuIGRlIGZyZWN1ZW5jaWFzIHBhcmEgbGEgdmFyaWFibGUgbl9wcm95ZWN0b3MiKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSkNCg0KIyBBbsOhbGlzaXMgZGUgZnJlY3VlbmNpYXMgcGFyYSB2YXJpYWJsZXMgY2F0ZWfDs3JpY2FzIENsYXNpZmljYWNpw7NuIGRlbCBwcm95ZWN0bw0KDQpmcmVjdWVuY2lhc19jbGFzaWZpY2FjaW9uX3Byb3llY3RvIDwtIGRmX3JhdyAlPiUNCiAgY291bnQoQ0xBU0lGSUNBQ0lPTl9ERUxfUFJPWUVDVE8pICU+JQ0KICBtdXRhdGUoUG9yY2VudGFqZSA9IHJvdW5kKG4gLyBzdW0obikgKiAxMDAsIDIpKSAlPiUNCiAgcmVuYW1lKEZyZWN1ZW5jaWEgPSBuLCBDYXRlZ29yw61hID0gQ0xBU0lGSUNBQ0lPTl9ERUxfUFJPWUVDVE8pDQprYWJsZShmcmVjdWVuY2lhc19jbGFzaWZpY2FjaW9uX3Byb3llY3RvLCBjYXB0aW9uID0gIkRpc3RyaWJ1Y2nDs24gZGUgZnJlY3VlbmNpYXMgcGFyYSBsYSB2YXJpYWJsZSBDTEFTSUZJQ0FDSU9OX0RFTF9QUk9ZRUNUTyIpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIpKQ0KICANCg0KIyBBbsOhbGlzaXMgZGUgZnJlY3VlbmNpYXMgcGFyYSB2YXJpYWJsZXMgY2F0ZWfDs3JpY2FzIFBsYXpvcw0KZnJlY3VlbmNpYXNfcGxhem9zIDwtIGRmX3JhdyAlPiUNCiAgY291bnQoUExBWk9TKSAlPiUNCiAgbXV0YXRlKFBvcmNlbnRhamUgPSByb3VuZChuIC8gc3VtKG4pICogMTAwLCAyKSkgJT4lDQogIHJlbmFtZShGcmVjdWVuY2lhID0gbiwgQ2F0ZWdvcsOtYSA9IFBMQVpPUykNCg0Ka2FibGUoZnJlY3VlbmNpYXNfcGxhem9zLCBjYXB0aW9uID0gIkRpc3RyaWJ1Y2nDs24gZGUgZnJlY3VlbmNpYXMgcGFyYSBsYSB2YXJpYWJsZSBQTEFaT1MiKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSkNCg0KIyBBbsOhbGlzaXMgZGUgUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETw0KZnJlY3VlbmNpYXNfcmF0aW8gPC0gZGZfcmF3ICU+JQ0KICBjb3VudChSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPKSAlPiUNCiAgbXV0YXRlKFBvcmNlbnRhamUgPSByb3VuZChuIC8gc3VtKG4pICogMTAwLCAyKSkgJT4lDQogIHJlbmFtZShGcmVjdWVuY2lhID0gbiwgQ2F0ZWdvcsOtYSA9IFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8pDQoNCmthYmxlKGZyZWN1ZW5jaWFzX3JhdGlvLCBjYXB0aW9uID0gIkRpc3RyaWJ1Y2nDs24gZGUgZnJlY3VlbmNpYXMgcGFyYSBsYSB2YXJpYWJsZSBSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIikpDQoNCiMgQW7DoWxpc2lzIGRlIGFjdG9yZXMgaW5zdGl0dWNpb25hbGVzDQpmcmVjdWVuY2lhc19hY3RvcmVzIDwtIGRmX3JhdyAlPiUNCiAgY291bnQoQ2xhc2lmaWNhY2lvbl9BY3RvcmVzX2luc3RpdHVjaW9uYWxlcykgJT4lDQogIG11dGF0ZShQb3JjZW50YWplID0gcm91bmQobiAvIHN1bShuKSAqIDEwMCwgMikpICU+JQ0KICByZW5hbWUoRnJlY3VlbmNpYSA9IG4sIENhdGVnb3LDrWEgPSBDbGFzaWZpY2FjaW9uX0FjdG9yZXNfaW5zdGl0dWNpb25hbGVzKQ0KDQprYWJsZShmcmVjdWVuY2lhc19hY3RvcmVzLCBjYXB0aW9uID0gIkRpc3RyaWJ1Y2nDs24gZGUgZnJlY3VlbmNpYXMgcGFyYSBsYSB2YXJpYWJsZSBDbGFzaWZpY2FjaW9uX0FjdG9yZXNfaW5zdGl0dWNpb25hbGVzIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIikpDQoNCiMjLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1UcmFmaWNvIGRlIGZyZWN1ZW5jaWFzLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQoNCiMgQ29tYmluYXIgdG9kb3MgbG9zIGRhdGFmcmFtZXMgZGUgZnJlY3VlbmNpYXMgZW4gdW5vIHNvbG8NCnBsb3RfZGF0YSA8LSBiaW5kX3Jvd3MoDQogIGZyZWN1ZW5jaWFzX25fcHJveWVjdG9zICU+JSBtdXRhdGUoVmFyaWFibGUgPSAiTsO6bWVybyBkZSBDb25zdWx0YXMgKG5fcHJveWVjdG9zKSIpLA0KICBmcmVjdWVuY2lhc19jbGFzaWZpY2FjaW9uX3Byb3llY3RvICU+JSBtdXRhdGUoVmFyaWFibGUgPSAiRXN0YWRvIGRlbCBQcm95ZWN0byIpLA0KICBmcmVjdWVuY2lhc19yYXRpbyAlPiUgbXV0YXRlKFZhcmlhYmxlID0gIlJhdGlvIGRlIEVmZWN0aXZpZGFkIiksDQogIGZyZWN1ZW5jaWFzX3BsYXpvcyAlPiUgbXV0YXRlKFZhcmlhYmxlID0gIlBsYXpvIGRlIEVqZWN1Y2nDs24gKFBMQVpPUykiKSwNCiAgZnJlY3VlbmNpYXNfYWN0b3JlcyAlPiUgbXV0YXRlKFZhcmlhYmxlID0gIkFjdG9yIEluc3RpdHVjaW9uYWwgUHJpbmNpcGFsIikNCikgJT4lDQogIG11dGF0ZShDYXRlZ29yw61hID0gYXMuZmFjdG9yKENhdGVnb3LDrWEpKQ0KDQojIERlZmluaXIgZXRpcXVldGFzIGRlc2NyaXB0aXZhcyBwYXJhIGNhZGEgY2F0ZWdvcsOtYQ0KcGxvdF9kYXRhIDwtIHBsb3RfZGF0YSAlPiUNCiAgbXV0YXRlKA0KICAgIEV0aXF1ZXRhX0NhdGVnb3JpYSA9IGNhc2Vfd2hlbigNCiAgICAgIFZhcmlhYmxlID09ICJFc3RhZG8gZGVsIFByb3llY3RvIiB+IGNhc2Vfd2hlbigNCiAgICAgICAgQ2F0ZWdvcsOtYSA9PSAxIH4gIjEgLSBObyBDb25zaWRlcmFkbyIsDQogICAgICAgIENhdGVnb3LDrWEgPT0gMiB+ICIyIC0gTm8gQ3VsbWluYWRvIiwNCiAgICAgICAgQ2F0ZWdvcsOtYSA9PSAzIH4gIjMgLSBFbiBFamVjdWNpw7NuIiwNCiAgICAgICAgQ2F0ZWdvcsOtYSA9PSA0IH4gIjQgLSBDdWxtaW5hZG8iDQogICAgICApLA0KICAgICAgVmFyaWFibGUgPT0gIlJhdGlvIGRlIEVmZWN0aXZpZGFkIiB+IGNhc2Vfd2hlbigNCiAgICAgICAgQ2F0ZWdvcsOtYSA9PSAxIH4gIjEgLSBNdXkgQmFqYSIsDQogICAgICAgIENhdGVnb3LDrWEgPT0gMiB+ICIyIC0gQmFqYSIsDQogICAgICAgIENhdGVnb3LDrWEgPT0gMyB+ICIzIC0gTWVkaWEiLA0KICAgICAgICBDYXRlZ29yw61hID09IDQgfiAiNCAtIEFsdGEiDQogICAgICApLA0KICAgICAgVmFyaWFibGUgPT0gIlBsYXpvIGRlIEVqZWN1Y2nDs24gKFBMQVpPUykiIH4gY2FzZV93aGVuKA0KICAgICAgICBDYXRlZ29yw61hID09IDAgfiAiMCAtIFNpbiBEYXRvIiwNCiAgICAgICAgQ2F0ZWdvcsOtYSA9PSAxIH4gIjEgLSBDb3J0byBQbGF6byIsDQogICAgICAgIENhdGVnb3LDrWEgPT0gMiB+ICIyIC0gTWVkaWFubyBQbGF6byINCiAgICAgICksDQogICAgICBWYXJpYWJsZSA9PSAiQWN0b3IgSW5zdGl0dWNpb25hbCBQcmluY2lwYWwiIH4gY2FzZV93aGVuKA0KICAgICAgICBDYXRlZ29yw61hID09IDEgfiAiMSAtIE1pbmlzdGVyaW8iLA0KICAgICAgICBDYXRlZ29yw61hID09IDIgfiAiMiAtIEdvYi4gTmFjL0VzdC4iLA0KICAgICAgICBDYXRlZ29yw61hID09IDMgfiAiMyAtIE11bi4vQ29tdW5hbCIsDQogICAgICAgIENhdGVnb3LDrWEgPT0gNCB+ICI0IC0gUHJpdmFkbyINCiAgICAgICksDQogICAgICBWYXJpYWJsZSA9PSAiTsO6bWVybyBkZSBDb25zdWx0YXMgKG5fcHJveWVjdG9zKSIgfiBhcy5jaGFyYWN0ZXIoQ2F0ZWdvcsOtYSksDQogICAgICBUUlVFIH4gYXMuY2hhcmFjdGVyKENhdGVnb3LDrWEpDQogICAgKQ0KICApDQoNCiMgQ2FsY3VsYXIgZWwgbMOtbWl0ZSBzdXBlcmlvciBkZWwgZWplIFkgcGFyYSBhc2VndXJhciBxdWUgbGFzIGV0aXF1ZXRhcyBlbmNhamVuDQp5X21heCA8LSBtYXgocGxvdF9kYXRhJEZyZWN1ZW5jaWEpICogMS4xDQoNCiMgQ3JlYXIgZWwgZ3LDoWZpY28gZGUgYmFycmFzIGNvbiBmYWNldGFzIG1lam9yYWRvDQpnZ3Bsb3QocGxvdF9kYXRhLCBhZXMoeCA9IEV0aXF1ZXRhX0NhdGVnb3JpYSwgeSA9IEZyZWN1ZW5jaWEsIGZpbGwgPSBFdGlxdWV0YV9DYXRlZ29yaWEpKSArDQogIGdlb21fY29sKHNob3cubGVnZW5kID0gRkFMU0UpICsgIA0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gRnJlY3VlbmNpYSksIHZqdXN0ID0gLTAuNSwgc2l6ZSA9IDMuNSkgKyAgDQogIGZhY2V0X3dyYXAofiBWYXJpYWJsZSwgc2NhbGVzID0gImZyZWVfeCIsIG5jb2wgPSA1KSArIA0KICBzY2FsZV9maWxsX3ZpcmlkaXNfZCgpICsgDQogIGxhYnMoDQogICAgdGl0bGUgPSAiRGlzdHJpYnVjacOzbiBkZSBGcmVjdWVuY2lhcyBkZSBWYXJpYWJsZXMgQ2xhdmUiLA0KICAgIHggPSAiQ2F0ZWdvcsOtYXMiLA0KICAgIHkgPSAiRnJlY3VlbmNpYSAoTsO6bWVybyBkZSBQcm95ZWN0b3MpIiwNCiAgICBjYXB0aW9uID0gIkVsYWJvcmFjacOzbiBQcm9waWEgLSBXaWxsaWFtIEd1dGllcnJleiIgIA0KICApICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUoDQogICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA0NSwgaGp1c3QgPSAxLCBzaXplID0gOSksICANCiAgICBzdHJpcC50ZXh0ID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxMCksIA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoaGp1c3QgPSAwLjUsIGZhY2UgPSAiYm9sZCIpLCAgDQogICAgcGxvdC5jYXB0aW9uID0gZWxlbWVudF90ZXh0KGhqdXN0ID0gMSwgc2l6ZSA9IDksIGZhY2UgPSAiaXRhbGljIikgIA0KICApICsNCiAgeWxpbSgwLCB5X21heCkgIA0KYGBgDQoNCg0KIyMgKipGcmVjdWVuY2lhIGdsb2JhbCBwb3IgY2FkYSB0aXBvbG9nw61hLCDCv3F1w6kgcHJvYmxlbWEgZXMgZWwgbcOhcyBjb23Dum4/KioNCg0KUGFyYSBlc3RhYmxlY2VyIGN1w6FsZXMgc29uIGxvcyBudWRvcyBjcsOtdGljb3MgbcOhcyByZWN1cnJlbnRlcyBlbiB0b2RvIGVsIEVzdGFkbyBNw6lyaWRhLCBwcmltZXJvIGNhbGN1bGFtb3MgbGEgZnJlY3VlbmNpYSBhYnNvbHV0YSB5IHJlbGF0aXZhIGRlIGNhZGEgdGlwb2xvZ8OtYSBDRkcgeSBkZSBnb2Jlcm5hY2nDs24uIEVzdG8gbm9zIHBlcm1pdGUgaWRlbnRpZmljYXIgbGFzIMOhcmVhcyBkZSBtYXlvciBjb25jZW50cmFjacOzbiBkZSBwcm9ibGVtYXMgeSBwcmlvcml6YXIgbGFzIGzDrW5lYXMgZGUgYW7DoWxpc2lzIHBvc3RlcmlvcmVzLg0KDQpgYGB7ciwgZnJlY3VlbmNpYSBnbG9iYWwgQ0ZHfQ0KDQojIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1SZXN1bWVuIENGRyBwb3IgQ29tdW5hLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpjZmdfY29scyA8LSBkZl9kdW1taWVzICU+JSANCiAgc2VsZWN0KHN0YXJ0c193aXRoKCJDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkdfIikpICU+JSANCiAgbmFtZXMoKQ0KDQpkZl9jZmdfc3VtbWFyeSA8LSBkZl9kdW1taWVzICU+JQ0KICBncm91cF9ieShJRF9DT01VTkEpICU+JQ0KICBzdW1tYXJpc2UoDQogICAgbl9wcm95ZWN0b3MgPSBuKCksDQogICAgYWNyb3NzKGFsbF9vZihjZmdfY29scyksIGxpc3QoDQogICAgICBjb3VudCA9IH4gc3VtKC54LCBuYS5ybSA9IFRSVUUpLA0KICAgICAgcGN0ID0gfiBzdW0oLngsIG5hLnJtID0gVFJVRSkgLyBuKCkgKiAxMDANCiAgICApKQ0KICApICU+JQ0KICB1bmdyb3VwKCkNCg0KIyMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVJlc3VtZW4gZGUgR29iZXJuYWNpw7NuIHBvciBjb211bmEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpnb2JfY29scyA8LSBkZl9kdW1taWVzICU+JSANCiAgc2VsZWN0KHN0YXJ0c193aXRoKCJDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX0dPQkVSTkFDSU9OXyIpKSAlPiUgDQogIG5hbWVzKCkNCg0KZGZfZ29iX3N1bW1hcnkgPC0gZGZfZHVtbWllcyAlPiUNCiAgZ3JvdXBfYnkoSURfQ09NVU5BKSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIG5fcHJveWVjdG9zID0gbigpLA0KICAgIGFjcm9zcyhhbGxfb2YoZ29iX2NvbHMpLCBsaXN0KA0KICAgICAgY291bnQgPSB+IHN1bSgueCwgbmEucm0gPSBUUlVFKSwNCiAgICAgIHBjdCA9IH4gc3VtKC54LCBuYS5ybSA9IFRSVUUpIC8gbigpICogMTAwDQogICAgKSkNCiAgKSAlPiUNCiAgdW5ncm91cCgpDQoNCiMjLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tQW7DoWxpc2lzIGRlIGZyZWN1ZW5jaWFzLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KDQojIEZ1bmNpw7NuIG1lam9yYWRhIHBhcmEgYW7DoWxpc2lzIGNvbXBsZXRvDQphbmFsaXphcl9mcmVjdWVuY2lhIDwtIGZ1bmN0aW9uKGRhdGEsIHZhciwgZmlsbF9jb2xvciwgbGluZV9jb2xvciwgdGl0dWxvLCB0aXBvID0gInByb3llY3RvcyIpIHsNCiAgIyBEZXRlcm1pbmFyIG5vbWJyZSBkZSBldGlxdWV0YSBzZWfDum4gdGlwbw0KICB5X2xhYmVsIDwtIGlmZWxzZSh0aXBvID09ICJwcm95ZWN0b3MiLCAiTsO6bWVybyBkZSBwcm95ZWN0b3MiLCAiTsO6bWVybyBkZSBjb211bmFzIikNCiAgDQogICMgRnJlY3VlbmNpYXMgZ2xvYmFsZXMNCiAgZnJlcSA8LSBkYXRhICU+JQ0KICAgIGNvdW50KHt7dmFyfX0sIG5hbWUgPSAibiIpICU+JQ0KICAgIGFycmFuZ2UoZGVzYyhuKSkgJT4lDQogICAgbXV0YXRlKA0KICAgICAgcGN0ID0gbiAvIHN1bShuKSAqIDEwMCwNCiAgICAgIGN1bV9wY3QgPSBjdW1zdW0ocGN0KSwNCiAgICAgIGV0aXF1ZXRhID0gcGFzdGUwKG4sICJcbigiLCByb3VuZChwY3QsIDEpLCAiJSkiKQ0KICAgICkNCiAgDQogICMgR3LDoWZpY28gY29tYmluYWRvDQogIHBsb3QgPC0gZ2dwbG90KGZyZXEsIA0KICAgICAgICAgYWVzKHggPSByZW9yZGVyKHt7dmFyfX0sIG4pLCB5ID0gbikpICsNCiAgICBnZW9tX2NvbChmaWxsID0gZmlsbF9jb2xvciwgYWxwaGEgPSAwLjgpICsNCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsID0gZXRpcXVldGEpLCANCiAgICAgICAgICAgICAgaGp1c3QgPSAtMC4xLCBzaXplID0gMy41LCBjb2xvciA9ICJibGFjayIsIGxpbmVoZWlnaHQgPSAwLjgpICsNCiAgICBnZW9tX2xpbmUoYWVzKHkgPSBjdW1fcGN0ICogbWF4KG4pIC8gMTAwKSwgDQogICAgICAgICAgICAgIGdyb3VwID0gMSwgY29sb3IgPSBsaW5lX2NvbG9yLCBzaXplID0gMC44KSArDQogICAgZ2VvbV9wb2ludChhZXMoeSA9IGN1bV9wY3QgKiBtYXgobikgLyAxMDApLCANCiAgICAgICAgICAgICAgIGNvbG9yID0gbGluZV9jb2xvciwgc2l6ZSA9IDIpICsNCiAgICBzY2FsZV95X2NvbnRpbnVvdXMoDQogICAgICBuYW1lID0geV9sYWJlbCwNCiAgICAgIHNlYy5heGlzID0gc2VjX2F4aXMofiAuICogMTAwIC8gbWF4KGZyZXEkbiksIA0KICAgICAgICAgICAgICAgICAgICAgICAgIG5hbWUgPSAiUG9yY2VudGFqZSBhY3VtdWxhZG8gKCUpIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzY2FsZXM6OnBlcmNlbnRfZm9ybWF0KHNjYWxlID0gMSkpDQogICAgKSArDQogICAgY29vcmRfZmxpcCgpICsNCiAgICBsYWJzKA0KICAgICAgdGl0bGUgPSB0aXR1bG8sDQogICAgICBzdWJ0aXRsZSA9ICJCYXJyYXM6IGZyZWN1ZW5jaWEgYWJzb2x1dGEgfCBUZXh0bzogY29udGVvIHkgJSBpbmRpdmlkdWFsIHwgTMOtbmVhOiAlIGFjdW11bGFkbyIsDQogICAgICB4ID0gTlVMTA0KICAgICkgKw0KICAgIHRoZW1lX21pbmltYWwoYmFzZV9zaXplID0gMTIpICsNCiAgICBleHBhbmRfbGltaXRzKHkgPSBtYXgoZnJlcSRuKSAqIDEuMTUpDQogIA0KICByZXR1cm4obGlzdChmcmVxID0gZnJlcSwgcGxvdCA9IHBsb3QpKQ0KfQ0KDQojIEZ1bmNpw7NuIG1lam9yYWRhIHBhcmEgZnJlY3VlbmNpYSBwb3IgY29tdW5hDQphbmFsaXphcl9mcmVjdWVuY2lhX2NvbXVuYSA8LSBmdW5jdGlvbihkYXRhLCB2YXIsIGZpbGxfY29sb3IsIGxpbmVfY29sb3IsIHRpdHVsbykgew0KICBmcmVxX2NvbXVuYSA8LSBkYXRhICU+JQ0KICAgIGRpc3RpbmN0KElEX0NPTVVOQSwge3t2YXJ9fSkgJT4lICANCiAgICBjb3VudCh7e3Zhcn19LCBuYW1lID0gIm5fY29tdW5hcyIpICU+JQ0KICAgIGFycmFuZ2UoZGVzYyhuX2NvbXVuYXMpKSAlPiUNCiAgICBtdXRhdGUoDQogICAgICBwY3RfY29tdW5hcyA9IG5fY29tdW5hcyAvIHN1bShuX2NvbXVuYXMpICogMTAwLA0KICAgICAgY3VtX3BjdCA9IGN1bXN1bShwY3RfY29tdW5hcyksDQogICAgICBldGlxdWV0YSA9IHBhc3RlMChuX2NvbXVuYXMsICJcbigiLCByb3VuZChwY3RfY29tdW5hcywgMSksICIlKSIpDQogICAgKQ0KICANCiAgIyBHcsOhZmljbyBjb21iaW5hZG8NCiAgcGxvdCA8LSBnZ3Bsb3QoZnJlcV9jb211bmEsIA0KICAgICAgICAgYWVzKHggPSByZW9yZGVyKHt7dmFyfX0sIG5fY29tdW5hcyksIHkgPSBuX2NvbXVuYXMpKSArDQogICAgZ2VvbV9jb2woZmlsbCA9IGZpbGxfY29sb3IsIGFscGhhID0gMC44KSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IGV0aXF1ZXRhKSwgDQogICAgICAgICAgICAgIGhqdXN0ID0gLTAuMSwgc2l6ZSA9IDMuNSwgY29sb3IgPSAiYmxhY2siLCBsaW5laGVpZ2h0ID0gMC44KSArDQogICAgZ2VvbV9saW5lKGFlcyh5ID0gY3VtX3BjdCAqIG1heChuX2NvbXVuYXMpIC8gMTAwKSwNCiAgICAgICAgICAgICAgZ3JvdXAgPSAxLCBjb2xvciA9IGxpbmVfY29sb3IsIHNpemUgPSAwLjgpICsNCiAgICBnZW9tX3BvaW50KGFlcyh5ID0gY3VtX3BjdCAqIG1heChuX2NvbXVuYXMpIC8gMTAwKSwNCiAgICAgICAgICAgICAgIGNvbG9yID0gbGluZV9jb2xvciwgc2l6ZSA9IDIpICsNCiAgICBzY2FsZV95X2NvbnRpbnVvdXMoDQogICAgICBuYW1lID0gIk7Dum1lcm8gZGUgY29tdW5hcyIsDQogICAgICBzZWMuYXhpcyA9IHNlY19heGlzKH4gLiAqIDEwMCAvIG1heChmcmVxX2NvbXVuYSRuX2NvbXVuYXMpLA0KICAgICAgICAgICAgICAgICAgICAgICAgIG5hbWUgPSAiUG9yY2VudGFqZSBhY3VtdWxhZG8gKCUpIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzY2FsZXM6OnBlcmNlbnRfZm9ybWF0KHNjYWxlID0gMSkpDQogICAgKSArDQogICAgY29vcmRfZmxpcCgpICsNCiAgICBleHBhbmRfbGltaXRzKHkgPSBtYXgoZnJlcV9jb211bmEkbl9jb211bmFzKSAqIDEuMTUpICsNCiAgICBsYWJzKA0KICAgICAgdGl0bGUgPSB0aXR1bG8sDQogICAgICBzdWJ0aXRsZSA9ICJCYXJyYXM6IGZyZWN1ZW5jaWEgYWJzb2x1dGEgfCBUZXh0bzogY29udGVvIHkgJSBkZSBjb211bmFzIHwgTMOtbmVhOiAlIGFjdW11bGFkbyIsDQogICAgICB4ID0gTlVMTA0KICAgICkgKw0KICAgIHRoZW1lX21pbmltYWwoYmFzZV9zaXplID0gMTIpDQogIA0KICByZXR1cm4obGlzdChmcmVxX2NvbXVuYSA9IGZyZXFfY29tdW5hLCBwbG90ID0gcGxvdCkpDQp9DQojIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tQW7DoWxpc2lzIHBhcmEgQ0ZHLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCg0KIyBDb250ZW8geSBwcm9wb3JjaW9uZXMgZ2xvYmFsZXMgcG9yIFRpcG9sb2dpYSBDRkcNCg0KY2ZnX2dsb2JhbF9wcm95ZWN0b3MgPC0gYW5hbGl6YXJfZnJlY3VlbmNpYSgNCiAgZGZfZHVtbWllcywNCiAgQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHLA0KICAiZGFya2JsdWUiLCAiZ29sZCIsDQogICJGcmVjdWVuY2lhIGdsb2JhbCBkZSB0aXBvbG9nw61hcyBDRkcgKFByb3llY3RvcykiDQopDQpjZmdfZ2xvYmFsX2NvbXVuYXMgPC0gYW5hbGl6YXJfZnJlY3VlbmNpYV9jb211bmEoDQogIGRmX2R1bW1pZXMsDQogIENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGRywNCiAgImRhcmtibHVlIiwgImdvbGQiLA0KICAiRnJlY3VlbmNpYSBkZSB0aXBvbG9nw61hcyBDRkcgcG9yIGNvbXVuYSINCikNCiMgVGFibGFzIGRlIGVzdGFkw61zdGljYXMgZGVzY3JpcHRpdmFzIGLDoXNpY2FzIGRlIGZyZWN1ZW5jaWFzIHBhcmEgQ0ZHDQpwcmludChjZmdfZ2xvYmFsX3Byb3llY3RvcyRmcmVxKQ0KDQojIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1Nb3N0cmFyIHJlc3VsdGFkb3MtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQojIENvbnRlbyB5IHByb3BvcmNpb25lcyBnbG9iYWxlcyBzb2JyZSBsYSB2YXJpYWJsZSBvcmlnaW5hbA0KZnJlcV9jZmcgPC0gZGZfZHVtbWllcyAlPiUNCiAgY291bnQoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHLCBuYW1lID0gIm4iKSAlPiUNCiAgYXJyYW5nZShkZXNjKG4pKSAlPiUNCiAgbXV0YXRlKA0KICAgIHBjdCAgICAgPSBuIC8gc3VtKG4pICogMTAwLA0KICAgIGN1bV9wY3QgPSBjdW1zdW0ocGN0KQ0KICApDQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVRvcCAxMCBiYXJyYXMgc2ltcGxlcy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpmcmVxX2NmZyAlPiUNCiAgc2xpY2UoMToxMCkgJT4lDQogIGdncGxvdChhZXMoDQogICAgeCA9IHJlb3JkZXIoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHLCBuKSwNCiAgICB5ID0gbg0KICApKSArDQogICAgZ2VvbV9jb2woZmlsbCA9ICJkYXJrYmx1ZSIpICsNCiAgICBjb29yZF9mbGlwKCkgKw0KICAgIGxhYnMoDQogICAgICB0aXRsZSA9ICJUb3AgMTAgdGlwb2xvZ8OtYXMgQ0ZHIG3DoXMgZnJlY3VlbnRlcyIsDQogICAgICB4ICAgICA9ICJUaXBvbG9nw61hIENGRyIsDQogICAgICB5ICAgICA9ICJOw7ptZXJvIGRlIHByb3llY3RvcyINCiAgICApICsNCiAgICB0aGVtZV9taW5pbWFsKCkNCg0KIyMtLS0tLS0tLS0tLS0tLS0tLS0tLUdyYWZpY28gZGUgZnJlY3VlbmNpYXMgZGUgdGlwb2xvZ8OtYXMgQ0ZHLS0tLS0tLS0tLS0tLS0tLS0tDQpwcmludChjZmdfZ2xvYmFsX3Byb3llY3RvcyRwbG90KQ0KDQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVRhYmxhcyBkZSBlc3RhZMOtc3RpY2FzIGRlc2NyaXB0aXZhcyBiw6FzaWNhcyBkZSBmcmVjdWVuY2lhcyBwYXJhIENGRyBwYXJhIGxhcyBjb211bmFzLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCnByaW50KGNmZ19nbG9iYWxfY29tdW5hcyRmcmVxX2NvbXVuYSkNCg0KIy0tLS0tLS0tRnJlY3VlbmNpYSBhYnNvbHV0YSB5IHJlbGF0aXZhIGRlIGNvbXVuYXMgcG9yIHRpcG9sb2fDrWEgQ0ZHLS0tLS0tLS0tDQpmcmVxX2NmZ19jb211bmEgPC0gZGZfZHVtbWllcyAlPiUNCiAgZGlzdGluY3QoSURfQ09NVU5BLCBDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcpICU+JQ0KICBjb3VudChDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsIG5hbWUgPSAibl9jb211bmFzIikgJT4lDQogIGFycmFuZ2UoZGVzYyhuX2NvbXVuYXMpKSAlPiUNCiAgbXV0YXRlKA0KICAgIHBjdF9jb211bmFzID0gbl9jb211bmFzIC8gc3VtKG5fY29tdW5hcykgKiAxMDAsDQogICAgY3VtX3BjdCAgICAgPSBjdW1zdW0ocGN0X2NvbXVuYXMpDQogICkNCg0KIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVRvcCAxMCBjb211bmFzLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCmZyZXFfY2ZnX2NvbXVuYSAlPiUNCiAgc2xpY2UoMToxMCkgJT4lDQogIGdncGxvdChhZXMoDQogICAgeCA9IHJlb3JkZXIoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHLCBuX2NvbXVuYXMpLA0KICAgIHkgPSBuX2NvbXVuYXMNCiAgKSkgKw0KICAgIGdlb21fY29sKGZpbGwgPSAiZGFya2JsdWUiKSArDQogICAgY29vcmRfZmxpcCgpICsNCiAgICBsYWJzKA0KICAgICAgdGl0bGUgPSAiVG9wIDEwIHRpcG9sb2fDrWFzIENGRyBwb3IgbsO6bWVybyBkZSBjb211bmFzIiwNCiAgICAgIHggICAgID0gIlRpcG9sb2fDrWEgQ0ZHIiwNCiAgICAgIHkgICAgID0gIk7Dum1lcm8gZGUgY29tdW5hcyINCiAgICApICsNCiAgICB0aGVtZV9taW5pbWFsKCkNCiMjLS0tLS0tLS0tLS0tLS0tLUdyYWZpY28gZGUgZnJlY3VlbmNpYXMgZGUgdGlwb2xvZ8OtYXMgQ0ZHLS0tLS0tLS0tLS0tLS0tLS0tLS0NCnByaW50KGNmZ19nbG9iYWxfY29tdW5hcyRwbG90KQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyAgVEFCTEEgQ09NUExFVEEgREUgRlJFQ1VFTkNJQVMgQ0ZHIFBPUiBQUk9ZRUNUT1MNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNyZWFyX3RhYmxhX2NmZ19wcm95ZWN0b3MgPC0gZnVuY3Rpb24oZGF0YSkgew0KICANCiAgIyBDYWxjdWxhciBmcmVjdWVuY2lhcw0KICB0YWJsYV9jZmcgPC0gZGF0YSAlPiUNCiAgICBjb3VudChDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsIG5hbWUgPSAibl9wcm95ZWN0b3MiKSAlPiUNCiAgICBhcnJhbmdlKGRlc2Mobl9wcm95ZWN0b3MpKSAlPiUNCiAgICBtdXRhdGUoDQogICAgICBwb3JjZW50YWplID0gcm91bmQobl9wcm95ZWN0b3MgLyBzdW0obl9wcm95ZWN0b3MpICogMTAwLCAyKSwNCiAgICAgIHBjdF9hY3VtdWxhZG8gPSByb3VuZChjdW1zdW0ocG9yY2VudGFqZSksIDIpLA0KICAgICAgcmFua2luZyA9IHJvd19udW1iZXIoKQ0KICAgICkgJT4lDQogICAgcmVuYW1lKA0KICAgICAgIlJhbmtpbmciID0gcmFua2luZywNCiAgICAgICJUaXBvbG9nw61hIENGRyIgPSBDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsDQogICAgICAiTsKwIFByb3llY3RvcyIgPSBuX3Byb3llY3RvcywNCiAgICAgICJQb3JjZW50YWplICglKSIgPSBwb3JjZW50YWplLA0KICAgICAgIiUgQWN1bXVsYWRvIiA9IHBjdF9hY3VtdWxhZG8NCiAgICApDQogIA0KICAjIENyZWFyIHRhYmxhIGZvcm1hdGVhZGEgY29uIGthYmxlRXh0cmENCiAgdGFibGFfZmluYWwgPC0gdGFibGFfY2ZnICU+JQ0KICAgIGthYmxlKA0KICAgICAgY2FwdGlvbiA9ICJUYWJsYSA0LjE6IERpc3RyaWJ1Y2nDs24gZGUgRnJlY3VlbmNpYXMgZGUgVGlwb2xvZ8OtYXMgQ0ZHIHBvciBOw7ptZXJvIGRlIFByb3llY3RvcyIsDQogICAgICBhbGlnbiA9IGMoImMiLCAibCIsICJjIiwgImMiLCAiYyIpLA0KICAgICAgZm9ybWF0ID0gImh0bWwiDQogICAgKSAlPiUNCiAgICBrYWJsZV9zdHlsaW5nKA0KICAgICAgYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiwgImNvbmRlbnNlZCIsICJyZXNwb25zaXZlIiksDQogICAgICBmdWxsX3dpZHRoID0gRkFMU0UsDQogICAgICBwb3NpdGlvbiA9ICJjZW50ZXIiLA0KICAgICAgZm9udF9zaXplID0gMTINCiAgICApICU+JQ0KICAgIGNvbHVtbl9zcGVjKDEsIGJvbGQgPSBUUlVFLCBjb2xvciA9ICJ3aGl0ZSIsIGJhY2tncm91bmQgPSAiIzJjM2U1MCIpICU+JQ0KICAgIGNvbHVtbl9zcGVjKDIsIHdpZHRoID0gIjIwZW0iKSAlPiUNCiAgICBjb2x1bW5fc3BlYygzOjUsIHdpZHRoID0gIjhlbSIpICU+JQ0KICAgIHJvd19zcGVjKDE6NCwgYmFja2dyb3VuZCA9ICIjZThmNGZkIikgJT4lICAjIFJlc2FsdGFyIHRvcCA0DQogICAgYWRkX2hlYWRlcl9hYm92ZShjKCIgIiA9IDIsICJGcmVjdWVuY2lhcyBBYnNvbHV0YXMgeSBSZWxhdGl2YXMiID0gMykpICU+JQ0KICAgIGZvb3Rub3RlKA0KICAgICAgZ2VuZXJhbCA9IGMoDQogICAgICAgICJGdWVudGU6IEVsYWJvcmFjacOzbiBwcm9waWEgYmFzYWRhIGVuIGRhdG9zIGRlbCBFc3RhZG8gTcOpcmlkYSAyMDE5LTIwMjUiLA0KICAgICAgICAiTm90YTogTGFzIHByaW1lcmFzIDQgdGlwb2xvZ8OtYXMgY29uY2VudHJhbiBlbCA2Mi42JSBkZSB0b2RvcyBsb3MgbnVkb3MgY3LDrXRpY29zIg0KICAgICAgKSwNCiAgICAgIGdlbmVyYWxfdGl0bGUgPSAiIiwNCiAgICAgIGZvb3Rub3RlX2FzX2NodW5rID0gVFJVRQ0KICAgICkNCiAgDQogIHJldHVybihsaXN0KGRhdG9zID0gdGFibGFfY2ZnLCB0YWJsYSA9IHRhYmxhX2ZpbmFsKSkNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgIFRBQkxBIENPTVBMRVRBIERFIEZSRUNVRU5DSUFTIENGRyBQT1IgQ09NVU5BUw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY3JlYXJfdGFibGFfY2ZnX2NvbXVuYXMgPC0gZnVuY3Rpb24oZGF0YSkgew0KICANCiAgIyBDYWxjdWxhciBmcmVjdWVuY2lhcyBwb3IgY29tdW5hIChzaW4gcmVwZXRpciBjb211bmFzKQ0KICB0YWJsYV9jZmdfY29tdW5hcyA8LSBkYXRhICU+JQ0KICAgIGRpc3RpbmN0KElEX0NPTVVOQSwgQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHKSAlPiUNCiAgICBjb3VudChDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsIG5hbWUgPSAibl9jb211bmFzIikgJT4lDQogICAgYXJyYW5nZShkZXNjKG5fY29tdW5hcykpICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIHBvcmNlbnRhamUgPSByb3VuZChuX2NvbXVuYXMgLyBzdW0obl9jb211bmFzKSAqIDEwMCwgMiksDQogICAgICBwY3RfYWN1bXVsYWRvID0gcm91bmQoY3Vtc3VtKHBvcmNlbnRhamUpLCAyKSwNCiAgICAgIHJhbmtpbmcgPSByb3dfbnVtYmVyKCkNCiAgICApICU+JQ0KICAgIHJlbmFtZSgNCiAgICAgICJSYW5raW5nIiA9IHJhbmtpbmcsDQogICAgICAiVGlwb2xvZ8OtYSBDRkciID0gQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHLA0KICAgICAgIk7CsCBDb211bmFzIiA9IG5fY29tdW5hcywNCiAgICAgICJQb3JjZW50YWplICglKSIgPSBwb3JjZW50YWplLA0KICAgICAgIiUgQWN1bXVsYWRvIiA9IHBjdF9hY3VtdWxhZG8NCiAgICApDQogIA0KICAjIENyZWFyIHRhYmxhIGZvcm1hdGVhZGENCiAgdGFibGFfZmluYWwgPC0gdGFibGFfY2ZnX2NvbXVuYXMgJT4lDQogICAga2FibGUoDQogICAgICBjYXB0aW9uID0gIlRhYmxhIDQuMjogRGlzdHJpYnVjacOzbiBkZSBGcmVjdWVuY2lhcyBkZSBUaXBvbG9nw61hcyBDRkcgcG9yIE7Dum1lcm8gZGUgQ29tdW5hcyBBZmVjdGFkYXMiLA0KICAgICAgYWxpZ24gPSBjKCJjIiwgImwiLCAiYyIsICJjIiwgImMiKSwNCiAgICAgIGZvcm1hdCA9ICJodG1sIg0KICAgICkgJT4lDQogICAga2FibGVfc3R5bGluZygNCiAgICAgIGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiLCAicmVzcG9uc2l2ZSIpLA0KICAgICAgZnVsbF93aWR0aCA9IEZBTFNFLA0KICAgICAgcG9zaXRpb24gPSAiY2VudGVyIiwNCiAgICAgIGZvbnRfc2l6ZSA9IDEyDQogICAgKSAlPiUNCiAgICBjb2x1bW5fc3BlYygxLCBib2xkID0gVFJVRSwgY29sb3IgPSAid2hpdGUiLCBiYWNrZ3JvdW5kID0gIiMyYzNlNTAiKSAlPiUNCiAgICBjb2x1bW5fc3BlYygyLCB3aWR0aCA9ICIyMGVtIikgJT4lDQogICAgY29sdW1uX3NwZWMoMzo1LCB3aWR0aCA9ICI4ZW0iKSAlPiUNCiAgICByb3dfc3BlYygxOjQsIGJhY2tncm91bmQgPSAiI2U4ZjRmZCIpICU+JSAgIyBSZXNhbHRhciB0b3AgNA0KICAgIGFkZF9oZWFkZXJfYWJvdmUoYygiICIgPSAyLCAiRGlzdHJpYnVjacOzbiBUZXJyaXRvcmlhbCIgPSAzKSkgJT4lDQogICAgZm9vdG5vdGUoDQogICAgICBnZW5lcmFsID0gYygNCiAgICAgICAgIkZ1ZW50ZTogRWxhYm9yYWNpw7NuIHByb3BpYSBiYXNhZGEgZW4gZGF0b3MgZGVsIEVzdGFkbyBNw6lyaWRhIDIwMTktMjAyNSIsDQogICAgICAgICJOb3RhOiBVbmEgY29tdW5hIHB1ZWRlIHRlbmVyIG3Dumx0aXBsZXMgdGlwb2xvZ8OtYXMsIHBlcm8gc2UgY3VlbnRhIHVuYSBzb2xhIHZleiBwb3IgdGlwb2xvZ8OtYSINCiAgICAgICksDQogICAgICBnZW5lcmFsX3RpdGxlID0gIiIsDQogICAgICBmb290bm90ZV9hc19jaHVuayA9IFRSVUUNCiAgICApDQogIA0KICByZXR1cm4obGlzdChkYXRvcyA9IHRhYmxhX2NmZ19jb211bmFzLCB0YWJsYSA9IHRhYmxhX2ZpbmFsKSkNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgVEFCTEEgQ09NUEFSQVRJVkEgQ0ZHOiBQUk9ZRUNUT1MgVlMgQ09NVU5BUw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY3JlYXJfdGFibGFfY29tcGFyYXRpdmFfY2ZnIDwtIGZ1bmN0aW9uKGRhdGEpIHsNCiAgDQogICMgRGF0b3MgcG9yIHByb3llY3Rvcw0KICBjZmdfcHJveWVjdG9zIDwtIGRhdGEgJT4lDQogICAgY291bnQoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHLCBuYW1lID0gIm5fcHJveWVjdG9zIikgJT4lDQogICAgbXV0YXRlKHBjdF9wcm95ZWN0b3MgPSByb3VuZChuX3Byb3llY3RvcyAvIHN1bShuX3Byb3llY3RvcykgKiAxMDAsIDIpKQ0KICANCiAgIyBEYXRvcyBwb3IgY29tdW5hcw0KICBjZmdfY29tdW5hcyA8LSBkYXRhICU+JQ0KICAgIGRpc3RpbmN0KElEX0NPTVVOQSwgQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHKSAlPiUNCiAgICBjb3VudChDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsIG5hbWUgPSAibl9jb211bmFzIikgJT4lDQogICAgbXV0YXRlKHBjdF9jb211bmFzID0gcm91bmQobl9jb211bmFzIC8gc3VtKG5fY29tdW5hcykgKiAxMDAsIDIpKQ0KICANCiAgIyBVbmlyIGFtYmFzIHRhYmxhcw0KICB0YWJsYV9jb21wYXJhdGl2YSA8LSBjZmdfcHJveWVjdG9zICU+JQ0KICAgIGlubmVyX2pvaW4oY2ZnX2NvbXVuYXMsIGJ5ID0gIkNMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGRyIpICU+JQ0KICAgIGFycmFuZ2UoZGVzYyhuX3Byb3llY3RvcykpICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIHJhbmtpbmcgPSByb3dfbnVtYmVyKCksDQogICAgICBpbnRlbnNpZGFkID0gcm91bmQobl9wcm95ZWN0b3MgLyBuX2NvbXVuYXMsIDIpICAjIFByb3llY3RvcyBwb3IgY29tdW5hIHByb21lZGlvDQogICAgKSAlPiUNCiAgICBzZWxlY3QoDQogICAgICByYW5raW5nLA0KICAgICAgQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHLA0KICAgICAgbl9wcm95ZWN0b3MsIHBjdF9wcm95ZWN0b3MsDQogICAgICBuX2NvbXVuYXMsIHBjdF9jb211bmFzLA0KICAgICAgaW50ZW5zaWRhZA0KICAgICkgJT4lDQogICAgcmVuYW1lKA0KICAgICAgIlJhbmsiID0gcmFua2luZywNCiAgICAgICJUaXBvbG9nw61hIENGRyIgPSBDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsDQogICAgICAiTsKwIFByb3kuIiA9IG5fcHJveWVjdG9zLA0KICAgICAgIiUgUHJveS4iID0gcGN0X3Byb3llY3RvcywNCiAgICAgICJOwrAgQ29tLiIgPSBuX2NvbXVuYXMsDQogICAgICAiJSBDb20uIiA9IHBjdF9jb211bmFzLA0KICAgICAgIkludGVuc2lkYWQiID0gaW50ZW5zaWRhZA0KICAgICkNCiAgDQogICMgQ3JlYXIgdGFibGEgZm9ybWF0ZWFkYQ0KICB0YWJsYV9maW5hbCA8LSB0YWJsYV9jb21wYXJhdGl2YSAlPiUNCiAgICBrYWJsZSgNCiAgICAgIGNhcHRpb24gPSAiVGFibGEgNC4zOiBBbsOhbGlzaXMgQ29tcGFyYXRpdm8gQ0ZHIC0gUHJveWVjdG9zIHZzIENvbXVuYXMgQWZlY3RhZGFzIiwNCiAgICAgIGFsaWduID0gYygiYyIsICJsIiwgcmVwKCJjIiwgNSkpLA0KICAgICAgZm9ybWF0ID0gImh0bWwiLA0KICAgICAgZGlnaXRzID0gMg0KICAgICkgJT4lDQogICAga2FibGVfc3R5bGluZygNCiAgICAgIGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiLCAicmVzcG9uc2l2ZSIpLA0KICAgICAgZnVsbF93aWR0aCA9IEZBTFNFLA0KICAgICAgcG9zaXRpb24gPSAiY2VudGVyIiwNCiAgICAgIGZvbnRfc2l6ZSA9IDExDQogICAgKSAlPiUNCiAgICBjb2x1bW5fc3BlYygxLCBib2xkID0gVFJVRSwgY29sb3IgPSAid2hpdGUiLCBiYWNrZ3JvdW5kID0gIiMyYzNlNTAiLCB3aWR0aCA9ICIzZW0iKSAlPiUNCiAgICBjb2x1bW5fc3BlYygyLCB3aWR0aCA9ICIxNWVtIikgJT4lDQogICAgY29sdW1uX3NwZWMoMzo3LCB3aWR0aCA9ICI2ZW0iKSAlPiUNCiAgICBhZGRfaGVhZGVyX2Fib3ZlKGMoIiAiID0gMiwgIlBvciBQcm95ZWN0b3MiID0gMiwgIlBvciBDb211bmFzIiA9IDIsICJJbmRpY2Fkb3IiID0gMSkpICU+JQ0KICAgIHJvd19zcGVjKDE6MywgYmFja2dyb3VuZCA9ICIjZmZlNmU2IikgJT4lICAjIFRvcCAzIGVuIHJvam8gc3VhdmUNCiAgICByb3dfc3BlYyg0OjcsIGJhY2tncm91bmQgPSAiI2ZmZjJlNiIpICU+JSAgIyBTaWd1aWVudGVzIDQgZW4gbmFyYW5qYSBzdWF2ZQ0KICAgIGZvb3Rub3RlKA0KICAgICAgZ2VuZXJhbCA9IGMoDQogICAgICAgICJGdWVudGU6IEVsYWJvcmFjacOzbiBwcm9waWEgYmFzYWRhIGVuIGRhdG9zIGRlbCBFc3RhZG8gTcOpcmlkYSAyMDE5LTIwMjUiLA0KICAgICAgICAiSW50ZW5zaWRhZCA9IE7CsCBQcm95ZWN0b3MgLyBOwrAgQ29tdW5hcyAocHJvbWVkaW8gZGUgcHJveWVjdG9zIHBvciBjb211bmEgcG9yIHRpcG9sb2fDrWEpIg0KICAgICAgKSwNCiAgICAgIGdlbmVyYWxfdGl0bGUgPSAiIiwNCiAgICAgIGZvb3Rub3RlX2FzX2NodW5rID0gVFJVRQ0KICAgICkNCiAgDQogIHJldHVybihsaXN0KGRhdG9zID0gdGFibGFfY29tcGFyYXRpdmEsIHRhYmxhID0gdGFibGFfZmluYWwpKQ0KfQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyAgVEFCTEEgUkVTVU1FTiBFSkVDVVRJVk8gQ0ZHIChUT1AgMTApDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjcmVhcl90YWJsYV9yZXN1bWVuX2NmZyA8LSBmdW5jdGlvbihkYXRhKSB7DQogIA0KICAjIENhbGN1bGFyIGVzdGFkw61zdGljYXMgcmVzdW1pZGFzDQogIHRvdGFsX3Byb3llY3RvcyA8LSBucm93KGRhdGEpDQogIHRvdGFsX2NvbXVuYXMgPC0gbl9kaXN0aW5jdChkYXRhJElEX0NPTVVOQSkNCiAgDQogIHJlc3VtZW5fY2ZnIDwtIGRhdGEgJT4lDQogICAgY291bnQoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHLCBuYW1lID0gInByb3llY3RvcyIpICU+JQ0KICAgIGFycmFuZ2UoZGVzYyhwcm95ZWN0b3MpKSAlPiUNCiAgICBzbGljZSgxOjEwKSAlPiUgICMgU29sbyB0b3AgMTANCiAgICBtdXRhdGUoDQogICAgICBwY3RfcHJveWVjdG9zID0gcm91bmQocHJveWVjdG9zIC8gdG90YWxfcHJveWVjdG9zICogMTAwLCAxKSwNCiAgICAgIHBjdF9hY3VtID0gcm91bmQoY3Vtc3VtKHBjdF9wcm95ZWN0b3MpLCAxKQ0KICAgICkgJT4lDQogICAgIyBBZ3JlZ2FyIGRhdG9zIGRlIGNvbXVuYXMNCiAgICBsZWZ0X2pvaW4oDQogICAgICBkYXRhICU+JQ0KICAgICAgICBkaXN0aW5jdChJRF9DT01VTkEsIENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGRykgJT4lDQogICAgICAgIGNvdW50KENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGRywgbmFtZSA9ICJjb211bmFzIiksDQogICAgICBieSA9ICJDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkciDQogICAgKSAlPiUNCiAgICBtdXRhdGUoDQogICAgICBwY3RfY29tdW5hcyA9IHJvdW5kKGNvbXVuYXMgLyB0b3RhbF9jb211bmFzICogMTAwLCAxKSwNCiAgICAgIHBvc2ljaW9uID0gcm93X251bWJlcigpLA0KICAgICAgY2F0ZWdvcmlhID0gY2FzZV93aGVuKA0KICAgICAgICBwb3NpY2lvbiA8PSAzIH4gIvCflLQgQ3LDrXRpY28iLA0KICAgICAgICBwb3NpY2lvbiA8PSA3IH4gIvCfn6EgQWx0byIsDQogICAgICAgIFRSVUUgfiAi8J+foiBNZWRpbyINCiAgICAgICkNCiAgICApICU+JQ0KICAgIHNlbGVjdCgNCiAgICAgIHBvc2ljaW9uLCBjYXRlZ29yaWEsDQogICAgICBDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsDQogICAgICBwcm95ZWN0b3MsIHBjdF9wcm95ZWN0b3MsIHBjdF9hY3VtLA0KICAgICAgY29tdW5hcywgcGN0X2NvbXVuYXMNCiAgICApICU+JQ0KICAgIHJlbmFtZSgNCiAgICAgICJQb3MuIiA9IHBvc2ljaW9uLA0KICAgICAgIk5pdmVsIiA9IGNhdGVnb3JpYSwNCiAgICAgICJUaXBvbG9nw61hIENGRyIgPSBDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsDQogICAgICAiUHJveS4iID0gcHJveWVjdG9zLA0KICAgICAgIiUiID0gcGN0X3Byb3llY3RvcywNCiAgICAgICIlIEFjdW0uIiA9IHBjdF9hY3VtLA0KICAgICAgIkNvbS4iID0gY29tdW5hcywNCiAgICAgICIlIENvbS4iID0gcGN0X2NvbXVuYXMNCiAgICApDQogIA0KICAjIENyZWFyIHRhYmxhIGZvcm1hdGVhZGENCiAgdGFibGFfZmluYWwgPC0gcmVzdW1lbl9jZmcgJT4lDQogICAga2FibGUoDQogICAgICBjYXB0aW9uID0gIlRhYmxhIDQuNDogUmVzdW1lbiBFamVjdXRpdm8gLSBUb3AgMTAgVGlwb2xvZ8OtYXMgQ0ZHIE3DoXMgQ3LDrXRpY2FzIiwNCiAgICAgIGFsaWduID0gYygiYyIsICJjIiwgImwiLCByZXAoImMiLCA1KSksDQogICAgICBmb3JtYXQgPSAiaHRtbCINCiAgICApICU+JQ0KICAgIGthYmxlX3N0eWxpbmcoDQogICAgICBib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiLCAiY29uZGVuc2VkIiwgInJlc3BvbnNpdmUiKSwNCiAgICAgIGZ1bGxfd2lkdGggPSBGQUxTRSwNCiAgICAgIHBvc2l0aW9uID0gImNlbnRlciIsDQogICAgICBmb250X3NpemUgPSAxMQ0KICAgICkgJT4lDQogICAgY29sdW1uX3NwZWMoMSwgYm9sZCA9IFRSVUUsIHdpZHRoID0gIjNlbSIpICU+JQ0KICAgIGNvbHVtbl9zcGVjKDIsIHdpZHRoID0gIjhlbSIpICU+JQ0KICAgIGNvbHVtbl9zcGVjKDMsIHdpZHRoID0gIjE1ZW0iKSAlPiUNCiAgICBjb2x1bW5fc3BlYyg0OjgsIHdpZHRoID0gIjVlbSIpICU+JQ0KICAgIGFkZF9oZWFkZXJfYWJvdmUoYygiICIgPSAzLCAiQW7DoWxpc2lzIHBvciBQcm95ZWN0b3MiID0gMywgIlBvciBDb211bmFzIiA9IDIpKSAlPiUNCiAgICBmb290bm90ZSgNCiAgICAgIGdlbmVyYWwgPSBwYXN0ZTAoDQogICAgICAgICJUb3RhbCBhbmFsaXphZG86ICIsIHRvdGFsX3Byb3llY3RvcywgIiBwcm95ZWN0b3MgZW4gIiwgdG90YWxfY29tdW5hcywgIiBjb211bmFzLiAiLA0KICAgICAgICAiRWwgVG9wIDEwIGNvbmNlbnRyYSBlbCAiLCByb3VuZChzdW0ocmVzdW1lbl9jZmckYCVgKSwgMSksICIlIGRlIHRvZG9zIGxvcyBudWRvcyBjcsOtdGljb3MuIg0KICAgICAgKSwNCiAgICAgIGdlbmVyYWxfdGl0bGUgPSAiTm90YToiLA0KICAgICAgZm9vdG5vdGVfYXNfY2h1bmsgPSBUUlVFDQogICAgKQ0KICANCiAgcmV0dXJuKGxpc3QoZGF0b3MgPSByZXN1bWVuX2NmZywgdGFibGEgPSB0YWJsYV9maW5hbCkpDQp9DQpgYGANCg0KIyMgKipBbsOhbGlzaXMgZGUgVGlwb2xvZ8OtYXMgQ0ZHOiBUYWJsYXMgRGVzY3JpcHRpdmFzKioNCg0KRW4gZXN0YSBzZWNjacOzbiBwcmVzZW50YW1vcyBlbCBhbsOhbGlzaXMgZGV0YWxsYWRvIGRlIGxhcyB0aXBvbG9nw61hcyBDRkcgbWVkaWFudGUgdGFibGFzIGRlc2NyaXB0aXZhcyBxdWUgcGVybWl0ZW4gdmlzdWFsaXphciBsYSBkaXN0cmlidWNpw7NuLCBmcmVjdWVuY2lhIGUgaW1wYWN0byB0ZXJyaXRvcmlhbCBkZSBsb3MgbnVkb3MgY3LDrXRpY29zIGlkZW50aWZpY2Fkb3MuDQoNCiMjIyAqKlRhYmxhIDQuMTogRGlzdHJpYnVjacOzbiBkZSBGcmVjdWVuY2lhcyBkZSBUaXBvbG9nw61hcyBDRkcgcG9yIE7Dum1lcm8gZGUgUHJveWVjdG9zKioNCg0KYGBge3IgdGFibGFfNC4xLCBlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KIyBHZW5lcmFyIHRhYmxhIGRlIHByb3llY3Rvcw0KdGFibGFfcHJveWVjdG9zIDwtIGNyZWFyX3RhYmxhX2NmZ19wcm95ZWN0b3MoZGZfZHVtbWllcykNCnRhYmxhX3Byb3llY3RvcyR0YWJsYQ0KYGBgDQoNCipOb3RhOiBMYSB0YWJsYSBtdWVzdHJhIGxhIGRpc3RyaWJ1Y2nDs24gYWJzb2x1dGEgeSByZWxhdGl2YSBkZSBsYXMgdGlwb2xvZ8OtYXMgQ0ZHIHNlZ8O6biBlbCBuw7ptZXJvIGRlIHByb3llY3RvcyBhc29jaWFkb3MuKg0KDQojIyMgKipUYWJsYSA0LjI6IERpc3RyaWJ1Y2nDs24gZGUgRnJlY3VlbmNpYXMgZGUgVGlwb2xvZ8OtYXMgQ0ZHIHBvciBOw7ptZXJvIGRlIENvbXVuYXMgQWZlY3RhZGFzKioNCg0KYGBge3IgdGFibGFfNC4yLCBlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KIyBHZW5lcmFyIHRhYmxhIGRlIGNvbXVuYXMNCnRhYmxhX2NvbXVuYXMgPC0gY3JlYXJfdGFibGFfY2ZnX2NvbXVuYXMoZGZfZHVtbWllcykNCnRhYmxhX2NvbXVuYXMkdGFibGENCmBgYA0KDQoqTm90YTogRXN0YSB0YWJsYSByZXByZXNlbnRhIGxhIGRpc3RyaWJ1Y2nDs24gdGVycml0b3JpYWwgZGUgbGFzIHRpcG9sb2fDrWFzLCBjb250YWJpbGl6YW5kbyBjdcOhbnRhcyBjb211bmFzIGVzdMOhbiBhZmVjdGFkYXMgcG9yIGNhZGEgdGlwbyBkZSBudWRvIGNyw610aWNvLioNCg0KIyMjICoqVGFibGEgNC4zOiBBbsOhbGlzaXMgQ29tcGFyYXRpdm8gQ0ZHIC0gUHJveWVjdG9zIHZzIENvbXVuYXMgQWZlY3RhZGFzKioNCg0KYGBge3IgdGFibGFfNC4zLCBlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KIyBHZW5lcmFyIHRhYmxhIGNvbXBhcmF0aXZhDQp0YWJsYV9jb21wYXJhdGl2YSA8LSBjcmVhcl90YWJsYV9jb21wYXJhdGl2YV9jZmcoZGZfZHVtbWllcykNCnRhYmxhX2NvbXBhcmF0aXZhJHRhYmxhDQpgYGANCg0KKk5vdGE6IEVsIGluZGljYWRvciBkZSBpbnRlbnNpZGFkIChwcm95ZWN0b3MvY29tdW5hKSBwZXJtaXRlIGlkZW50aWZpY2FyIHRpcG9sb2fDrWFzIGNvbiBtYXlvciBjb25jZW50cmFjacOzbiBkZSBwcm9ibGVtYXMgcG9yIHRlcnJpdG9yaW8uKg0KDQojIyMgKipUYWJsYSA0LjQ6IFJlc3VtZW4gRWplY3V0aXZvIC0gVG9wIDEwIFRpcG9sb2fDrWFzIENGRyBNw6FzIENyw610aWNhcyoqDQoNCmBgYHtyIHRhYmxhXzQuNCwgZWNobz1GQUxTRSwgd2FybmluZz1GQUxTRX0NCiMgR2VuZXJhciB0YWJsYSByZXN1bWVuIGVqZWN1dGl2bw0KdGFibGFfcmVzdW1lbiA8LSBjcmVhcl90YWJsYV9yZXN1bWVuX2NmZyhkZl9kdW1taWVzKQ0KdGFibGFfcmVzdW1lbiR0YWJsYQ0KYGBgDQoNCipOb3RhOiBDbGFzaWZpY2FjacOzbiBwb3Igbml2ZWwgZGUgY3JpdGljaWRhZCBiYXNhZG8gZW4gbGEgZnJlY3VlbmNpYSBkZSBhcGFyaWNpw7NuIHkgZGlzdHJpYnVjacOzbiB0ZXJyaXRvcmlhbC4qDQoNCiMjICoqRXhwb3J0YWNpw7NuIGRlIERhdG9zIHBhcmEgQW7DoWxpc2lzIEFkaWNpb25hbCoqDQoNCmBgYHtyIGV4cG9ydGFyX3RhYmxhcywgZWNobz1GQUxTRSwgd2FybmluZz1GQUxTRSwgZXZhbD1GQUxTRX0NCiMgRnVuY2nDs24gcGFyYSBleHBvcnRhciB0YWJsYXMgKG9wY2lvbmFsIC0gc29sbyBzaSBuZWNlc2l0YXMgbG9zIGFyY2hpdm9zKQ0KZXhwb3J0YXJfdGFibGFzX2NmZyA8LSBmdW5jdGlvbih0YWJsYXNfb2JqZXRvLCBydXRhID0gInRhYmxhc19jZmcvIikgew0KICANCiAgIyBDcmVhciBkaXJlY3RvcmlvIHNpIG5vIGV4aXN0ZQ0KICBpZiAoIWRpci5leGlzdHMocnV0YSkpIGRpci5jcmVhdGUocnV0YSwgcmVjdXJzaXZlID0gVFJVRSkNCiAgDQogICMgRXhwb3J0YXIgZGF0b3MgYSBDU1YNCiAgd3JpdGUuY3N2KHRhYmxhc19vYmpldG8kcHJveWVjdG9zJGRhdG9zLCANCiAgICAgICAgICAgIHBhc3RlMChydXRhLCAiY2ZnX3Bvcl9wcm95ZWN0b3MuY3N2IiksIA0KICAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UpDQogIA0KICB3cml0ZS5jc3YodGFibGFzX29iamV0byRjb211bmFzJGRhdG9zLCANCiAgICAgICAgICAgIHBhc3RlMChydXRhLCAiY2ZnX3Bvcl9jb211bmFzLmNzdiIpLCANCiAgICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFKQ0KICANCiAgd3JpdGUuY3N2KHRhYmxhc19vYmpldG8kY29tcGFyYXRpdmEkZGF0b3MsIA0KICAgICAgICAgICAgcGFzdGUwKHJ1dGEsICJjZmdfY29tcGFyYXRpdmEuY3N2IiksIA0KICAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UpDQogIA0KICB3cml0ZS5jc3YodGFibGFzX29iamV0byRyZXN1bWVuJGRhdG9zLCANCiAgICAgICAgICAgIHBhc3RlMChydXRhLCAiY2ZnX3Jlc3VtZW5fZWplY3V0aXZvLmNzdiIpLCANCiAgICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFKQ0KICANCiAgY2F0KCJUYWJsYXMgZXhwb3J0YWRhcyBleGl0b3NhbWVudGUgYToiLCBydXRhLCAiXG4iKQ0KfQ0KDQojIENyZWFyIG9iamV0byBjb24gdG9kYXMgbGFzIHRhYmxhcyAocGFyYSBleHBvcnRhY2nDs24gc2kgZXMgbmVjZXNhcmlvKQ0KdGFibGFzX2NmZyA8LSBsaXN0KA0KICBwcm95ZWN0b3MgPSB0YWJsYV9wcm95ZWN0b3MsDQogIGNvbXVuYXMgPSB0YWJsYV9jb211bmFzLCANCiAgY29tcGFyYXRpdmEgPSB0YWJsYV9jb21wYXJhdGl2YSwNCiAgcmVzdW1lbiA9IHRhYmxhX3Jlc3VtZW4NCikNCg0KIyBQYXJhIGV4cG9ydGFyLCBxdWl0YXIgZXZhbD1GQUxTRSBkZWwgY2h1bmsNCiMgZXhwb3J0YXJfdGFibGFzX2NmZyh0YWJsYXNfY2ZnKQ0KYGBgDQoNCiMjICoqUmVzdW1lbiBJbnRlcnByZXRhdGl2byBkZWwgQW7DoWxpc2lzIENGRyoqDQoNCkxvcyByZXN1bHRhZG9zIG11ZXN0cmFuIHF1ZSBsYXMgdGlwb2xvZ8OtYXMgQ0ZHIHByZXNlbnRhbiBkaXN0cmlidWNpb25lcyBoZXRlcm9nw6luZWFzIHRhbnRvIGVuIGZyZWN1ZW5jaWEgZGUgcHJveWVjdG9zIGNvbW8gZW4gYWxjYW5jZSB0ZXJyaXRvcmlhbC4gTGFzIHByaW1lcmFzIGN1YXRybyB0aXBvbG9nw61hcyBjb25jZW50cmFuIG3DoXMgZGVsIDYwJSBkZSBsb3MgbnVkb3MgY3LDrXRpY29zIGlkZW50aWZpY2Fkb3MsIGluZGljYW5kbyDDoXJlYXMgcHJpb3JpdGFyaWFzIHBhcmEgbGEgaW50ZXJ2ZW5jacOzbi4NCg0KDQpQYXJhIGNvbXBsZW1lbnRhciBlbCBhbsOhbGlzaXMgZ2xvYmFsLCBpZGVudGlmaWNhbW9zIGxhIHRpcG9sb2fDrWEgbcOhcyBmcmVjdWVudGUgZW4gY2FkYSBjb211bmEuIEVzdG8gbm9zIHBlcm1pdGUgdmVyIHNpIGVsIHBhdHLDs24gZ2xvYmFsIHNlIHJlcGxpY2EgbG9jYWxtZW50ZSBvIHNpIGV4aXN0ZW4gcGFydGljdWxhcmlkYWRlcyB0ZXJyaXRvcmlhbGVzLg0KDQpBbCBpZ3VhbCBxdWUgY29uIGxhcyB0aXBvbG9nw61hcyBDRkcsIGNhbGN1bGFtb3MgbGEgZnJlY3VlbmNpYSBhYnNvbHV0YSB5IHJlbGF0aXZhIGRlIGxhcyBjYXRlZ29yw61hcyBkZSBnb2Jlcm5hY2nDs24uIEVzdG8gbm9zIHBlcm1pdGUgaWRlbnRpZmljYXIgcXXDqSBhY3RvcmVzIGluc3RpdHVjaW9uYWxlcyBzb24gbcOhcyByZWxldmFudGVzIGVuIGxhIGdlc3Rpw7NuIGRlIGxvcyBwcm95ZWN0b3MuDQoNCiMjKipGcmVjdWVuY2lhcyBkZSBnb2Jlcm5hY2nDs24qKg0KDQpgYGB7ciwgZnJlY3VlbmNpYSBnbG9iYWwgR29iZXJuYWNpb259DQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVJlc3VtZW4gR29iZXJuYWNpw7NuIHBvciBDb211bmEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQojIyBBbsOhbGlzaXMgcGFyYSBHb2Jlcm5hY2nDs24gLS0tLQ0KIyBDb250ZW8geSBwcm9wb3JjaW9uZXMgZ2xvYmFsZXMgcG9yIFRpcG9sb2dpYSBkZSBHb2Jlcm5hY2nDs24NCmZyZXFfZ29iIDwtIGRmX2R1bW1pZXMgJT4lDQogIGNvdW50KENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sIG5hbWUgPSAibiIpICU+JQ0KICBhcnJhbmdlKGRlc2MobikpICU+JQ0KICBtdXRhdGUocGN0ID0gbiAvIHN1bShuKSAqIDEwMCkNCg0KDQojICBHcsOhZmljbyBkZSBiYXJyYXMgKFRvcCAxMCkgZGUgZ29iZXJuYWNpw7NuIHBvciBwcm95ZWN0b3MNCmZyZXFfZ29iICU+JQ0KICBzbGljZSgxOjEwKSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gcmVvcmRlcihDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX0dPQkVSTkFDSU9OLCBuKSwNCiAgICAgICAgICAgICB5ID0gbikpICsNCiAgICBnZW9tX2NvbChmaWxsID0gImRhcmtyZWQiKSArDQogICAgY29vcmRfZmxpcCgpICsNCiAgICBsYWJzKA0KICAgICAgdGl0bGUgPSAiVG9wIDEwIGNhdGVnb3LDrWFzIGRlIEdvYmVybmFjacOzbiBtw6FzIGZyZWN1ZW50ZXMiLA0KICAgICAgeCAgICAgPSAiQ2F0ZWdvcsOtYSBkZSBHb2Jlcm5hY2nDs24iLA0KICAgICAgeSAgICAgPSAiTsO6bWVybyBkZSBwcm95ZWN0b3MiDQogICAgKSArDQogICAgdGhlbWVfbWluaW1hbCgpDQoNCiMgRnJlY3VlbmNpYSBhYnNvbHV0YSB5IHJlbGF0aXZhIHBvciBjb211bmENCmZyZXFfZ29iX2NvbXVuYSA8LSBkZl9kdW1taWVzICU+JQ0KICBkaXN0aW5jdChJRF9DT01VTkEsIENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04pICU+JSAgDQogIGNvdW50KENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sIG5hbWUgPSAibl9jb211bmFzIikgJT4lDQogIGFycmFuZ2UoZGVzYyhuX2NvbXVuYXMpKSAlPiUNCiAgbXV0YXRlKA0KICAgIHBjdF9jb211bmFzID0gbl9jb211bmFzIC8gc3VtKG5fY29tdW5hcykgKiAxMDAsDQogICAgY3VtX3BjdCAgICAgPSBjdW1zdW0ocGN0X2NvbXVuYXMpDQogICkNCg0KDQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLUdyw6FmaWNvIGRlIHRvcCAxMCBwb3IgY29tdW5hLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpmcmVxX2dvYl9jb211bmEgJT4lDQogIHNsaWNlKDE6MTApICU+JQ0KICBnZ3Bsb3QoYWVzKA0KICAgIHggPSByZW9yZGVyKENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sIG5fY29tdW5hcyksDQogICAgeSA9IG5fY29tdW5hcw0KICApKSArDQogIGdlb21fY29sKGZpbGwgPSAiZGFya3JlZCIpICsNCiAgY29vcmRfZmxpcCgpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJUb3AgMTAgY2F0ZWdvcsOtYXMgZGUgR29iZXJuYWNpw7NuIHBvciBuw7ptZXJvIGRlIGNvbXVuYXMiLA0KICAgIHggICAgID0gIkNhdGVnb3LDrWEgZGUgR29iZXJuYWNpw7NuIiwNCiAgICB5ICAgICA9ICJOw7ptZXJvIGRlIGNvbXVuYXMiDQogICkgKw0KICB0aGVtZV9taW5pbWFsKCkNCg0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS1HbG9iYWwgLSBQcm95ZWN0b3MtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpnb2JfZ2xvYmFsX3Byb3llY3RvcyA8LSBhbmFsaXphcl9mcmVjdWVuY2lhKA0KICBkZl9yYXcsDQogIENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sDQogICJkYXJrcmVkIiwgImdvbGQiLA0KICAiRnJlY3VlbmNpYSBnbG9iYWwgZGUgY2F0ZWdvcsOtYXMgZGUgR29iZXJuYWNpw7NuIChQcm95ZWN0b3MpIiwNCiAgInByb3llY3RvcyINCikNCg0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tR2xvYmFsIC0gQ29tdW5hcy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpnb2JfZ2xvYmFsX2NvbXVuYXMgPC0gYW5hbGl6YXJfZnJlY3VlbmNpYV9jb211bmEoDQogIGRmX3JhdywNCiAgQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTiwNCiAgImRhcmtyZWQiLCAiZ29sZCIsDQogICJGcmVjdWVuY2lhIGRlIGNhdGVnb3LDrWFzIGRlIEdvYmVybmFjacOzbiBwb3IgY29tdW5hIg0KKQ0KDQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLUdyYWZpY28gZGUgZnJlY3VlbmNpYXMgZGUgY2F0ZWdvcsOtYXMgZGUgR29iZXJuYWNpw7NuLS0tLS0tLS0tLS0tLQ0KcHJpbnQoZ29iX2dsb2JhbF9wcm95ZWN0b3MkcGxvdCkNCg0KIy0tLS1HcmFmaWNvIEZyZWN1ZW5jaWEgYWJzb2x1dGEgeSByZWxhdGl2YSBkZSBjb211bmFzIHBvciBjYXRlZ29yw61hIGRlIEdvYmVybmFjacOzbi0tLS0NCnByaW50KGdvYl9nbG9iYWxfY29tdW5hcyRwbG90KQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyAgVEFCTEEgQ09NUExFVEEgREUgRlJFQ1VFTkNJQVMgR09CRVJOQUNJw5NOIFBPUiBQUk9ZRUNUT1MNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQpjcmVhcl90YWJsYV9nb2JfcHJveWVjdG9zIDwtIGZ1bmN0aW9uKGRhdGEpIHsNCiAgDQogICMgQ2FsY3VsYXIgZnJlY3VlbmNpYXMNCiAgdGFibGFfZ29iIDwtIGRhdGEgJT4lDQogICAgY291bnQoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTiwgbmFtZSA9ICJuX3Byb3llY3RvcyIpICU+JQ0KICAgIGFycmFuZ2UoZGVzYyhuX3Byb3llY3RvcykpICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIHBvcmNlbnRhamUgPSByb3VuZChuX3Byb3llY3RvcyAvIHN1bShuX3Byb3llY3RvcykgKiAxMDAsIDIpLA0KICAgICAgcGN0X2FjdW11bGFkbyA9IHJvdW5kKGN1bXN1bShwb3JjZW50YWplKSwgMiksDQogICAgICByYW5raW5nID0gcm93X251bWJlcigpDQogICAgKSAlPiUNCiAgICByZW5hbWUoDQogICAgICAiUmFua2luZyIgPSByYW5raW5nLA0KICAgICAgIkNhdGVnb3LDrWEgR29iZXJuYWNpw7NuIiA9IENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sDQogICAgICAiTsKwIFByb3llY3RvcyIgPSBuX3Byb3llY3RvcywNCiAgICAgICJQb3JjZW50YWplICglKSIgPSBwb3JjZW50YWplLA0KICAgICAgIiUgQWN1bXVsYWRvIiA9IHBjdF9hY3VtdWxhZG8NCiAgICApDQogIA0KICAjIENyZWFyIHRhYmxhIGZvcm1hdGVhZGEgY29uIGthYmxlRXh0cmENCiAgdGFibGFfZmluYWwgPC0gdGFibGFfZ29iICU+JQ0KICAgIGthYmxlKA0KICAgICAgY2FwdGlvbiA9ICJUYWJsYSA1LjE6IERpc3RyaWJ1Y2nDs24gZGUgRnJlY3VlbmNpYXMgZGUgQ2F0ZWdvcsOtYXMgZGUgR29iZXJuYWNpw7NuIHBvciBOw7ptZXJvIGRlIFByb3llY3RvcyIsDQogICAgICBhbGlnbiA9IGMoImMiLCAibCIsICJjIiwgImMiLCAiYyIpLA0KICAgICAgZm9ybWF0ID0gImh0bWwiDQogICAgKSAlPiUNCiAgICBrYWJsZV9zdHlsaW5nKA0KICAgICAgYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiwgImNvbmRlbnNlZCIsICJyZXNwb25zaXZlIiksDQogICAgICBmdWxsX3dpZHRoID0gRkFMU0UsDQogICAgICBwb3NpdGlvbiA9ICJjZW50ZXIiLA0KICAgICAgZm9udF9zaXplID0gMTINCiAgICApICU+JQ0KICAgIGNvbHVtbl9zcGVjKDEsIGJvbGQgPSBUUlVFLCBjb2xvciA9ICJ3aGl0ZSIsIGJhY2tncm91bmQgPSAiIzhCMDAwMCIpICU+JQ0KICAgIGNvbHVtbl9zcGVjKDIsIHdpZHRoID0gIjIwZW0iKSAlPiUNCiAgICBjb2x1bW5fc3BlYygzOjUsIHdpZHRoID0gIjhlbSIpICU+JQ0KICAgIHJvd19zcGVjKDE6NCwgYmFja2dyb3VuZCA9ICIjZmZlYmVlIikgJT4lICAjIFJlc2FsdGFyIHRvcCA0DQogICAgYWRkX2hlYWRlcl9hYm92ZShjKCIgIiA9IDIsICJGcmVjdWVuY2lhcyBBYnNvbHV0YXMgeSBSZWxhdGl2YXMiID0gMykpICU+JQ0KICAgIGZvb3Rub3RlKA0KICAgICAgZ2VuZXJhbCA9IGMoDQogICAgICAgICJGdWVudGU6IEVsYWJvcmFjacOzbiBwcm9waWEgYmFzYWRhIGVuIGRhdG9zIGRlbCBFc3RhZG8gTcOpcmlkYSAyMDE5LTIwMjUiLA0KICAgICAgICAiTm90YTogTGFzIHByaW1lcmFzIDQgY2F0ZWdvcsOtYXMgY29uY2VudHJhbiBlbCA1MS41JSBkZSB0b2RvcyBsb3MgcHJveWVjdG9zIg0KICAgICAgKSwNCiAgICAgIGdlbmVyYWxfdGl0bGUgPSAiIiwNCiAgICAgIGZvb3Rub3RlX2FzX2NodW5rID0gVFJVRQ0KICAgICkNCiAgDQogIHJldHVybihsaXN0KGRhdG9zID0gdGFibGFfZ29iLCB0YWJsYSA9IHRhYmxhX2ZpbmFsKSkNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgIFRBQkxBIENPTVBMRVRBIERFIEZSRUNVRU5DSUFTIEdPQkVSTkFDScOTTiBQT1IgQ09NVU5BUw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCmNyZWFyX3RhYmxhX2dvYl9jb211bmFzIDwtIGZ1bmN0aW9uKGRhdGEpIHsNCiAgDQogICMgQ2FsY3VsYXIgZnJlY3VlbmNpYXMgcG9yIGNvbXVuYSAoc2luIHJlcGV0aXIgY29tdW5hcykNCiAgdGFibGFfZ29iX2NvbXVuYXMgPC0gZGF0YSAlPiUNCiAgICBkaXN0aW5jdChJRF9DT01VTkEsIENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04pICU+JQ0KICAgIGNvdW50KENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sIG5hbWUgPSAibl9jb211bmFzIikgJT4lDQogICAgYXJyYW5nZShkZXNjKG5fY29tdW5hcykpICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIHBvcmNlbnRhamUgPSByb3VuZChuX2NvbXVuYXMgLyBzdW0obl9jb211bmFzKSAqIDEwMCwgMiksDQogICAgICBwY3RfYWN1bXVsYWRvID0gcm91bmQoY3Vtc3VtKHBvcmNlbnRhamUpLCAyKSwNCiAgICAgIHJhbmtpbmcgPSByb3dfbnVtYmVyKCkNCiAgICApICU+JQ0KICAgIHJlbmFtZSgNCiAgICAgICJSYW5raW5nIiA9IHJhbmtpbmcsDQogICAgICAiQ2F0ZWdvcsOtYSBHb2Jlcm5hY2nDs24iID0gQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTiwNCiAgICAgICJOwrAgQ29tdW5hcyIgPSBuX2NvbXVuYXMsDQogICAgICAiUG9yY2VudGFqZSAoJSkiID0gcG9yY2VudGFqZSwNCiAgICAgICIlIEFjdW11bGFkbyIgPSBwY3RfYWN1bXVsYWRvDQogICAgKQ0KICANCiAgIyBDcmVhciB0YWJsYSBmb3JtYXRlYWRhDQogIHRhYmxhX2ZpbmFsIDwtIHRhYmxhX2dvYl9jb211bmFzICU+JQ0KICAgIGthYmxlKA0KICAgICAgY2FwdGlvbiA9ICJUYWJsYSA1LjI6IERpc3RyaWJ1Y2nDs24gZGUgRnJlY3VlbmNpYXMgZGUgQ2F0ZWdvcsOtYXMgZGUgR29iZXJuYWNpw7NuIHBvciBOw7ptZXJvIGRlIENvbXVuYXMgQWZlY3RhZGFzIiwNCiAgICAgIGFsaWduID0gYygiYyIsICJsIiwgImMiLCAiYyIsICJjIiksDQogICAgICBmb3JtYXQgPSAiaHRtbCINCiAgICApICU+JQ0KICAgIGthYmxlX3N0eWxpbmcoDQogICAgICBib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiLCAiY29uZGVuc2VkIiwgInJlc3BvbnNpdmUiKSwNCiAgICAgIGZ1bGxfd2lkdGggPSBGQUxTRSwNCiAgICAgIHBvc2l0aW9uID0gImNlbnRlciIsDQogICAgICBmb250X3NpemUgPSAxMg0KICAgICkgJT4lDQogICAgY29sdW1uX3NwZWMoMSwgYm9sZCA9IFRSVUUsIGNvbG9yID0gIndoaXRlIiwgYmFja2dyb3VuZCA9ICIjOEIwMDAwIikgJT4lDQogICAgY29sdW1uX3NwZWMoMiwgd2lkdGggPSAiMjBlbSIpICU+JQ0KICAgIGNvbHVtbl9zcGVjKDM6NSwgd2lkdGggPSAiOGVtIikgJT4lDQogICAgcm93X3NwZWMoMTo0LCBiYWNrZ3JvdW5kID0gIiNmZmViZWUiKSAlPiUgICMgUmVzYWx0YXIgdG9wIDQNCiAgICBhZGRfaGVhZGVyX2Fib3ZlKGMoIiAiID0gMiwgIkRpc3RyaWJ1Y2nDs24gVGVycml0b3JpYWwiID0gMykpICU+JQ0KICAgIGZvb3Rub3RlKA0KICAgICAgZ2VuZXJhbCA9IGMoDQogICAgICAgICJGdWVudGU6IEVsYWJvcmFjacOzbiBwcm9waWEgYmFzYWRhIGVuIGRhdG9zIGRlbCBFc3RhZG8gTcOpcmlkYSAyMDE5LTIwMjUiLA0KICAgICAgICAiTm90YTogVW5hIGNvbXVuYSBwdWVkZSB0ZW5lciBtw7psdGlwbGVzIGNhdGVnb3LDrWFzLCBwZXJvIHNlIGN1ZW50YSB1bmEgc29sYSB2ZXogcG9yIGNhdGVnb3LDrWEiDQogICAgICApLA0KICAgICAgZ2VuZXJhbF90aXRsZSA9ICIiLA0KICAgICAgZm9vdG5vdGVfYXNfY2h1bmsgPSBUUlVFDQogICAgKQ0KICANCiAgcmV0dXJuKGxpc3QoZGF0b3MgPSB0YWJsYV9nb2JfY29tdW5hcywgdGFibGEgPSB0YWJsYV9maW5hbCkpDQp9DQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIFRBQkxBIENPTVBBUkFUSVZBIEdPQkVSTkFDScOTTjogUFJPWUVDVE9TIFZTIENPTVVOQVMNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQpjcmVhcl90YWJsYV9jb21wYXJhdGl2YV9nb2IgPC0gZnVuY3Rpb24oZGF0YSkgew0KICANCiAgIyBEYXRvcyBwb3IgcHJveWVjdG9zDQogIGdvYl9wcm95ZWN0b3MgPC0gZGF0YSAlPiUNCiAgICBjb3VudChDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX0dPQkVSTkFDSU9OLCBuYW1lID0gIm5fcHJveWVjdG9zIikgJT4lDQogICAgbXV0YXRlKHBjdF9wcm95ZWN0b3MgPSByb3VuZChuX3Byb3llY3RvcyAvIHN1bShuX3Byb3llY3RvcykgKiAxMDAsIDIpKQ0KICANCiAgIyBEYXRvcyBwb3IgY29tdW5hcw0KICBnb2JfY29tdW5hcyA8LSBkYXRhICU+JQ0KICAgIGRpc3RpbmN0KElEX0NPTVVOQSwgQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTikgJT4lDQogICAgY291bnQoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTiwgbmFtZSA9ICJuX2NvbXVuYXMiKSAlPiUNCiAgICBtdXRhdGUocGN0X2NvbXVuYXMgPSByb3VuZChuX2NvbXVuYXMgLyBzdW0obl9jb211bmFzKSAqIDEwMCwgMikpDQogIA0KICAjIFVuaXIgYW1iYXMgdGFibGFzDQogIHRhYmxhX2NvbXBhcmF0aXZhIDwtIGdvYl9wcm95ZWN0b3MgJT4lDQogICAgaW5uZXJfam9pbihnb2JfY29tdW5hcywgYnkgPSAiQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTiIpICU+JQ0KICAgIGFycmFuZ2UoZGVzYyhuX3Byb3llY3RvcykpICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIHJhbmtpbmcgPSByb3dfbnVtYmVyKCksDQogICAgICBpbnRlbnNpZGFkID0gcm91bmQobl9wcm95ZWN0b3MgLyBuX2NvbXVuYXMsIDIpICAjIFByb3llY3RvcyBwb3IgY29tdW5hIHByb21lZGlvDQogICAgKSAlPiUNCiAgICBzZWxlY3QoDQogICAgICByYW5raW5nLA0KICAgICAgQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTiwNCiAgICAgIG5fcHJveWVjdG9zLCBwY3RfcHJveWVjdG9zLA0KICAgICAgbl9jb211bmFzLCBwY3RfY29tdW5hcywNCiAgICAgIGludGVuc2lkYWQNCiAgICApICU+JQ0KICAgIHJlbmFtZSgNCiAgICAgICJSYW5rIiA9IHJhbmtpbmcsDQogICAgICAiQ2F0ZWdvcsOtYSBHb2Jlcm5hY2nDs24iID0gQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTiwNCiAgICAgICJOwrAgUHJveS4iID0gbl9wcm95ZWN0b3MsDQogICAgICAiJSBQcm95LiIgPSBwY3RfcHJveWVjdG9zLA0KICAgICAgIk7CsCBDb20uIiA9IG5fY29tdW5hcywNCiAgICAgICIlIENvbS4iID0gcGN0X2NvbXVuYXMsDQogICAgICAiSW50ZW5zaWRhZCIgPSBpbnRlbnNpZGFkDQogICAgKQ0KICANCiAgIyBDcmVhciB0YWJsYSBmb3JtYXRlYWRhDQogIHRhYmxhX2ZpbmFsIDwtIHRhYmxhX2NvbXBhcmF0aXZhICU+JQ0KICAgIGthYmxlKA0KICAgICAgY2FwdGlvbiA9ICJUYWJsYSA1LjM6IEFuw6FsaXNpcyBDb21wYXJhdGl2byBHb2Jlcm5hY2nDs24gLSBQcm95ZWN0b3MgdnMgQ29tdW5hcyBBZmVjdGFkYXMiLA0KICAgICAgYWxpZ24gPSBjKCJjIiwgImwiLCByZXAoImMiLCA1KSksDQogICAgICBmb3JtYXQgPSAiaHRtbCIsDQogICAgICBkaWdpdHMgPSAyDQogICAgKSAlPiUNCiAgICBrYWJsZV9zdHlsaW5nKA0KICAgICAgYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiwgImNvbmRlbnNlZCIsICJyZXNwb25zaXZlIiksDQogICAgICBmdWxsX3dpZHRoID0gRkFMU0UsDQogICAgICBwb3NpdGlvbiA9ICJjZW50ZXIiLA0KICAgICAgZm9udF9zaXplID0gMTENCiAgICApICU+JQ0KICAgIGNvbHVtbl9zcGVjKDEsIGJvbGQgPSBUUlVFLCBjb2xvciA9ICJ3aGl0ZSIsIGJhY2tncm91bmQgPSAiIzhCMDAwMCIsIHdpZHRoID0gIjNlbSIpICU+JQ0KICAgIGNvbHVtbl9zcGVjKDIsIHdpZHRoID0gIjE1ZW0iKSAlPiUNCiAgICBjb2x1bW5fc3BlYygzOjcsIHdpZHRoID0gIjZlbSIpICU+JQ0KICAgIGFkZF9oZWFkZXJfYWJvdmUoYygiICIgPSAyLCAiUG9yIFByb3llY3RvcyIgPSAyLCAiUG9yIENvbXVuYXMiID0gMiwgIkluZGljYWRvciIgPSAxKSkgJT4lDQogICAgcm93X3NwZWMoMTozLCBiYWNrZ3JvdW5kID0gIiNmZmNkZDIiKSAlPiUgICMgVG9wIDMgZW4gcm9qbyBzdWF2ZQ0KICAgIHJvd19zcGVjKDQ6NywgYmFja2dyb3VuZCA9ICIjZmZlY2IzIikgJT4lICAjIFNpZ3VpZW50ZXMgNCBlbiBhbWFyaWxsbyBzdWF2ZQ0KICAgIGZvb3Rub3RlKA0KICAgICAgZ2VuZXJhbCA9IGMoDQogICAgICAgICJGdWVudGU6IEVsYWJvcmFjacOzbiBwcm9waWEgYmFzYWRhIGVuIGRhdG9zIGRlbCBFc3RhZG8gTcOpcmlkYSAyMDE5LTIwMjUiLA0KICAgICAgICAiSW50ZW5zaWRhZCA9IE7CsCBQcm95ZWN0b3MgLyBOwrAgQ29tdW5hcyAocHJvbWVkaW8gZGUgcHJveWVjdG9zIHBvciBjb211bmEgcG9yIGNhdGVnb3LDrWEpIg0KICAgICAgKSwNCiAgICAgIGdlbmVyYWxfdGl0bGUgPSAiIiwNCiAgICAgIGZvb3Rub3RlX2FzX2NodW5rID0gVFJVRQ0KICAgICkNCiAgDQogIHJldHVybihsaXN0KGRhdG9zID0gdGFibGFfY29tcGFyYXRpdmEsIHRhYmxhID0gdGFibGFfZmluYWwpKQ0KfQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyAgVEFCTEEgUkVTVU1FTiBFSkVDVVRJVk8gR09CRVJOQUNJw5NOIChUT1AgMTApDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KY3JlYXJfdGFibGFfcmVzdW1lbl9nb2IgPC0gZnVuY3Rpb24oZGF0YSkgew0KICANCiAgIyBDYWxjdWxhciBlc3RhZMOtc3RpY2FzIHJlc3VtaWRhcw0KICB0b3RhbF9wcm95ZWN0b3MgPC0gbnJvdyhkYXRhKQ0KICB0b3RhbF9jb211bmFzIDwtIG5fZGlzdGluY3QoZGF0YSRJRF9DT01VTkEpDQogIA0KICByZXN1bWVuX2dvYiA8LSBkYXRhICU+JQ0KICAgIGNvdW50KENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sIG5hbWUgPSAicHJveWVjdG9zIikgJT4lDQogICAgYXJyYW5nZShkZXNjKHByb3llY3RvcykpICU+JQ0KICAgIHNsaWNlKDE6MTApICU+JSAgIyBTb2xvIHRvcCAxMA0KICAgIG11dGF0ZSgNCiAgICAgIHBjdF9wcm95ZWN0b3MgPSByb3VuZChwcm95ZWN0b3MgLyB0b3RhbF9wcm95ZWN0b3MgKiAxMDAsIDEpLA0KICAgICAgcGN0X2FjdW0gPSByb3VuZChjdW1zdW0ocGN0X3Byb3llY3RvcyksIDEpDQogICAgKSAlPiUNCiAgICAjIEFncmVnYXIgZGF0b3MgZGUgY29tdW5hcw0KICAgIGxlZnRfam9pbigNCiAgICAgIGRhdGEgJT4lDQogICAgICAgIGRpc3RpbmN0KElEX0NPTVVOQSwgQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTikgJT4lDQogICAgICAgIGNvdW50KENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sIG5hbWUgPSAiY29tdW5hcyIpLA0KICAgICAgYnkgPSAiQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTiINCiAgICApICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIHBjdF9jb211bmFzID0gcm91bmQoY29tdW5hcyAvIHRvdGFsX2NvbXVuYXMgKiAxMDAsIDEpLA0KICAgICAgcG9zaWNpb24gPSByb3dfbnVtYmVyKCksDQogICAgICBjYXRlZ29yaWEgPSBjYXNlX3doZW4oDQogICAgICAgIHBvc2ljaW9uIDw9IDMgfiAi8J+UtCBDcsOtdGljbyIsDQogICAgICAgIHBvc2ljaW9uIDw9IDcgfiAi8J+foSBBbHRvIiwNCiAgICAgICAgVFJVRSB+ICLwn5+iIE1lZGlvIg0KICAgICAgKQ0KICAgICkgJT4lDQogICAgc2VsZWN0KA0KICAgICAgcG9zaWNpb24sIGNhdGVnb3JpYSwNCiAgICAgIENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT04sDQogICAgICBwcm95ZWN0b3MsIHBjdF9wcm95ZWN0b3MsIHBjdF9hY3VtLA0KICAgICAgY29tdW5hcywgcGN0X2NvbXVuYXMNCiAgICApICU+JQ0KICAgIHJlbmFtZSgNCiAgICAgICJQb3MuIiA9IHBvc2ljaW9uLA0KICAgICAgIk5pdmVsIiA9IGNhdGVnb3JpYSwNCiAgICAgICJDYXRlZ29yw61hIEdvYmVybmFjacOzbiIgPSBDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX0dPQkVSTkFDSU9OLA0KICAgICAgIlByb3kuIiA9IHByb3llY3RvcywNCiAgICAgICIlIiA9IHBjdF9wcm95ZWN0b3MsDQogICAgICAiJSBBY3VtLiIgPSBwY3RfYWN1bSwNCiAgICAgICJDb20uIiA9IGNvbXVuYXMsDQogICAgICAiJSBDb20uIiA9IHBjdF9jb211bmFzDQogICAgKQ0KICANCiAgIyBDcmVhciB0YWJsYSBmb3JtYXRlYWRhDQogIHRhYmxhX2ZpbmFsIDwtIHJlc3VtZW5fZ29iICU+JQ0KICAgIGthYmxlKA0KICAgICAgY2FwdGlvbiA9ICJUYWJsYSA1LjQ6IFJlc3VtZW4gRWplY3V0aXZvIC0gVG9wIDEwIENhdGVnb3LDrWFzIGRlIEdvYmVybmFjacOzbiBNw6FzIENyw610aWNhcyIsDQogICAgICBhbGlnbiA9IGMoImMiLCAiYyIsICJsIiwgcmVwKCJjIiwgNSkpLA0KICAgICAgZm9ybWF0ID0gImh0bWwiDQogICAgKSAlPiUNCiAgICBrYWJsZV9zdHlsaW5nKA0KICAgICAgYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiwgImNvbmRlbnNlZCIsICJyZXNwb25zaXZlIiksDQogICAgICBmdWxsX3dpZHRoID0gRkFMU0UsDQogICAgICBwb3NpdGlvbiA9ICJjZW50ZXIiLA0KICAgICAgZm9udF9zaXplID0gMTENCiAgICApICU+JQ0KICAgIGNvbHVtbl9zcGVjKDEsIGJvbGQgPSBUUlVFLCB3aWR0aCA9ICIzZW0iKSAlPiUNCiAgICBjb2x1bW5fc3BlYygyLCB3aWR0aCA9ICI4ZW0iKSAlPiUNCiAgICBjb2x1bW5fc3BlYygzLCB3aWR0aCA9ICIxNWVtIikgJT4lDQogICAgY29sdW1uX3NwZWMoNDo4LCB3aWR0aCA9ICI1ZW0iKSAlPiUNCiAgICBhZGRfaGVhZGVyX2Fib3ZlKGMoIiAiID0gMywgIkFuw6FsaXNpcyBwb3IgUHJveWVjdG9zIiA9IDMsICJQb3IgQ29tdW5hcyIgPSAyKSkgJT4lDQogICAgZm9vdG5vdGUoDQogICAgICBnZW5lcmFsID0gcGFzdGUwKA0KICAgICAgICAiVG90YWwgYW5hbGl6YWRvOiAiLCB0b3RhbF9wcm95ZWN0b3MsICIgcHJveWVjdG9zIGVuICIsIHRvdGFsX2NvbXVuYXMsICIgY29tdW5hcy4gIiwNCiAgICAgICAgIkVsIFRvcCAxMCBjb25jZW50cmEgZWwgIiwgcm91bmQoc3VtKHJlc3VtZW5fZ29iJGAlYCksIDEpLCAiJSBkZSB0b2RvcyBsb3MgcHJveWVjdG9zLiINCiAgICAgICksDQogICAgICBnZW5lcmFsX3RpdGxlID0gIk5vdGE6IiwNCiAgICAgIGZvb3Rub3RlX2FzX2NodW5rID0gVFJVRQ0KICAgICkNCiAgDQogIHJldHVybihsaXN0KGRhdG9zID0gcmVzdW1lbl9nb2IsIHRhYmxhID0gdGFibGFfZmluYWwpKQ0KfQ0KYGBgDQoNCiMjICoqQW7DoWxpc2lzIGRlIENhdGVnb3LDrWFzIGRlIEdvYmVybmFjacOzbjogVGFibGFzIERlc2NyaXB0aXZhcyoqDQoNCkVuIGVzdGEgc2VjY2nDs24gcHJlc2VudGFtb3MgZWwgYW7DoWxpc2lzIGRldGFsbGFkbyBkZSBsYXMgY2F0ZWdvcsOtYXMgZGUgZ29iZXJuYWNpw7NuIG1lZGlhbnRlIHRhYmxhcyBkZXNjcmlwdGl2YXMgcXVlIHBlcm1pdGVuIHZpc3VhbGl6YXIgbGEgZGlzdHJpYnVjacOzbiwgZnJlY3VlbmNpYSBlIGltcGFjdG8gdGVycml0b3JpYWwgZGUgbG9zIG51ZG9zIGNyw610aWNvcyBpZGVudGlmaWNhZG9zLg0KDQojIyMgKipUYWJsYSA1LjE6IERpc3RyaWJ1Y2nDs24gZGUgRnJlY3VlbmNpYXMgZGUgQ2F0ZWdvcsOtYXMgZGUgR29iZXJuYWNpw7NuIHBvciBOw7ptZXJvIGRlIFByb3llY3RvcyoqDQoNCmBgYHtyIHRhYmxhXzUuMSwgZWNobz1GQUxTRSwgd2FybmluZz1GQUxTRX0NCiMgR2VuZXJhciB0YWJsYSBkZSBwcm95ZWN0b3MgcGFyYSBHb2Jlcm5hY2nDs24NCnRhYmxhX2dvYl9wcm95ZWN0b3MgPC0gY3JlYXJfdGFibGFfZ29iX3Byb3llY3RvcyhkZl9kdW1taWVzKQ0KdGFibGFfZ29iX3Byb3llY3RvcyR0YWJsYQ0KYGBgDQoNCipOb3RhOiBMYSB0YWJsYSBtdWVzdHJhIGxhIGRpc3RyaWJ1Y2nDs24gYWJzb2x1dGEgeSByZWxhdGl2YSBkZSBsYXMgY2F0ZWdvcsOtYXMgZGUgZ29iZXJuYWNpw7NuIHNlZ8O6biBlbCBuw7ptZXJvIGRlIHByb3llY3RvcyBhc29jaWFkb3MuKg0KDQojIyMgKipUYWJsYSA1LjI6IERpc3RyaWJ1Y2nDs24gZGUgRnJlY3VlbmNpYXMgZGUgQ2F0ZWdvcsOtYXMgZGUgR29iZXJuYWNpw7NuIHBvciBOw7ptZXJvIGRlIENvbXVuYXMgQWZlY3RhZGFzKioNCg0KYGBge3IgdGFibGFfNS4yLCBlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KIyBHZW5lcmFyIHRhYmxhIGRlIGNvbXVuYXMgcGFyYSBHb2Jlcm5hY2nDs24NCnRhYmxhX2dvYl9jb211bmFzIDwtIGNyZWFyX3RhYmxhX2dvYl9jb211bmFzKGRmX2R1bW1pZXMpDQp0YWJsYV9nb2JfY29tdW5hcyR0YWJsYQ0KYGBgDQoNCipOb3RhOiBFc3RhIHRhYmxhIHJlcHJlc2VudGEgbGEgZGlzdHJpYnVjacOzbiB0ZXJyaXRvcmlhbCBkZSBsYXMgY2F0ZWdvcsOtYXMgZGUgZ29iZXJuYWNpw7NuLCBjb250YWJpbGl6YW5kbyBjdcOhbnRhcyBjb211bmFzIGVzdMOhbiBhZmVjdGFkYXMgcG9yIGNhZGEgdGlwbyBkZSBudWRvIGNyw610aWNvLioNCg0KIyMjICoqVGFibGEgNS4zOiBBbsOhbGlzaXMgQ29tcGFyYXRpdm8gR29iZXJuYWNpw7NuIC0gUHJveWVjdG9zIHZzIENvbXVuYXMgQWZlY3RhZGFzKioNCg0KYGBge3IgdGFibGFfNS4zLCBlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KIyBHZW5lcmFyIHRhYmxhIGNvbXBhcmF0aXZhIHBhcmEgR29iZXJuYWNpw7NuDQp0YWJsYV9nb2JfY29tcGFyYXRpdmEgPC0gY3JlYXJfdGFibGFfY29tcGFyYXRpdmFfZ29iKGRmX2R1bW1pZXMpDQp0YWJsYV9nb2JfY29tcGFyYXRpdmEkdGFibGENCmBgYA0KDQoqTm90YTogRWwgaW5kaWNhZG9yIGRlIGludGVuc2lkYWQgKHByb3llY3Rvcy9jb211bmEpIHBlcm1pdGUgaWRlbnRpZmljYXIgY2F0ZWdvcsOtYXMgY29uIG1heW9yIGNvbmNlbnRyYWNpw7NuIGRlIHByb2JsZW1hcyBwb3IgdGVycml0b3Jpby4qDQoNCiMjIyAqKlRhYmxhIDUuNDogUmVzdW1lbiBFamVjdXRpdm8gLSBUb3AgMTAgQ2F0ZWdvcsOtYXMgZGUgR29iZXJuYWNpw7NuIE3DoXMgQ3LDrXRpY2FzKioNCg0KYGBge3IgdGFibGFfNS40LCBlY2hvPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KIyBHZW5lcmFyIHRhYmxhIHJlc3VtZW4gZWplY3V0aXZvIHBhcmEgR29iZXJuYWNpw7NuDQp0YWJsYV9nb2JfcmVzdW1lbiA8LSBjcmVhcl90YWJsYV9yZXN1bWVuX2dvYihkZl9kdW1taWVzKQ0KdGFibGFfZ29iX3Jlc3VtZW4kdGFibGENCmBgYA0KDQoqTm90YTogQ2xhc2lmaWNhY2nDs24gcG9yIG5pdmVsIGRlIGNyaXRpY2lkYWQgYmFzYWRvIGVuIGxhIGZyZWN1ZW5jaWEgZGUgYXBhcmljacOzbiB5IGRpc3RyaWJ1Y2nDs24gdGVycml0b3JpYWwuKg0KDQojIyAqKkdyw6FmaWNvcyBBZGljaW9uYWxlcyBkZSBEaXN0cmlidWNpw7NuIGRlIFByb3llY3RvcyoqDQoNCmBgYHtyIGdyYWZpY29zX2Rpc3RyaWJ1Y2lvbiwgZWNobz1GQUxTRSwgd2FybmluZz1GQUxTRX0NCiMgR3LDoWZpY28gZGUgZGlzdHJpYnVjacOzbiBkZSBuX3Byb3llY3Rvcw0KZ2dwbG90KGRmX3JhdywgYWVzKHggPSBmYWN0b3Iobl9wcm95ZWN0b3MpKSkgKw0KICBnZW9tX2JhcihhZXMoZmlsbCA9IGZhY3RvcihuX3Byb3llY3RvcykpLCBhbHBoYSA9IDAuOCwgY29sb3IgPSAiYmxhY2siKSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSAuLmNvdW50Li4pLCBzdGF0ID0gImNvdW50Iiwgdmp1c3QgPSAtMC41LCBzaXplID0gNCwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gYygiIzFmNzdiNCIsICIjZmY3ZjBlIiwgIiMyY2EwMmMiLCAiI2Q2MjcyOCIpKSArDQogIGxhYnModGl0bGUgPSAiRGlzdHJpYnVjacOzbiBkZWwgbsO6bWVybyBkZSBwcm95ZWN0b3MgcG9yIGNvbXVuYSIsDQogICAgICAgc3VidGl0bGUgPSAiUGVyw61vZG8gMjAxOS0yMDI1IiwNCiAgICAgICB4ID0gIk7Dum1lcm8gZGUgcHJveWVjdG9zIiwNCiAgICAgICB5ID0gIkZyZWN1ZW5jaWEiLA0KICAgICAgIGZpbGwgPSAiTsKwIFByb3llY3RvcyIpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUoDQogICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTYsIGZhY2UgPSAiYm9sZCIsIGhqdXN0ID0gMC41KSwNCiAgICBwbG90LnN1YnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMiwgaGp1c3QgPSAwLjUpLA0KICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDEyLCBmYWNlID0gImJvbGQiKSwNCiAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIg0KICApICsNCiAgc2NhbGVfeV9jb250aW51b3VzKGV4cGFuZCA9IGV4cGFuc2lvbihtdWx0ID0gYygwLCAwLjEpKSkNCg0KIyBHcsOhZmljbyBkZSBlZmVjdGl2aWRhZCBwb3Igbml2ZWwgZGUgcHJveWVjdG9zDQplZmVjdGl2aWRhZF9kYXRhIDwtIGRmX3JhdyAlPiUNCiAgZ3JvdXBfYnkoUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETywgbl9wcm95ZWN0b3MpICU+JQ0KICBzdW1tYXJpc2UoQ291bnQgPSBuKCksIC5ncm91cHMgPSAiZHJvcCIpICU+JQ0KICBtdXRhdGUoUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETyA9IGZhY3RvcihSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxldmVscyA9IGMoMSwgMiwgMywgNCksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gYygiTXV5IEJhamEiLCAiQmFqYSIsICJNZWRpYSIsICJBbHRhIikpKQ0KDQpnZ3Bsb3QoZWZlY3RpdmlkYWRfZGF0YSwgYWVzKHggPSBmYWN0b3Iobl9wcm95ZWN0b3MpLCB5ID0gQ291bnQsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWxsID0gUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETykpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHBvc2l0aW9uID0gInN0YWNrIiwgYWxwaGEgPSAwLjksIGNvbG9yID0gIndoaXRlIikgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gQ291bnQpLCBwb3NpdGlvbiA9IHBvc2l0aW9uX3N0YWNrKHZqdXN0ID0gMC41KSwgDQogICAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsIGZvbnRmYWNlID0gImJvbGQiLCBzaXplID0gNCkgKw0KICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKCIjZTQxYTFjIiwgIiNmZjdmMDAiLCAiI2ZmZmYzMyIsICIjNGRhZjRhIikpICsNCiAgbGFicyh0aXRsZSA9ICJEaXN0cmlidWNpw7NuIGRlIGVmZWN0aXZpZGFkIGRlIHByb3llY3RvcyBwb3IgbsO6bWVybyBkZSBwcm95ZWN0b3MiLA0KICAgICAgIHN1YnRpdGxlID0gIkFncnVwYWRvIHBvciBuaXZlbCBkZSBwYXJ0aWNpcGFjacOzbiBlbiBjb25zdWx0YXMiLA0KICAgICAgIHggPSAiTsO6bWVybyBkZSBwcm95ZWN0b3MgcG9yIGNvbXVuYSIsDQogICAgICAgeSA9ICJDYW50aWRhZCBkZSBwcm95ZWN0b3MiLA0KICAgICAgIGZpbGwgPSAiTml2ZWwgZGUgZWZlY3RpdmlkYWQiKSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE2LCBmYWNlID0gImJvbGQiLCBoanVzdCA9IDAuNSksDQogICAgcGxvdC5zdWJ0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTIsIGhqdXN0ID0gMC41KSwNCiAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMiwgZmFjZSA9ICJib2xkIiksDQogICAgbGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsDQogICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIpDQogICkNCg0KIyBHcsOhZmljbyBkZSBwcm9wb3JjacOzbiBkZSBlZmVjdGl2aWRhZA0KZWZlY3RpdmlkYWRfcG9yY2VudHVhbCA8LSBkZl9yYXcgJT4lDQogIGdyb3VwX2J5KG5fcHJveWVjdG9zKSAlPiUNCiAgY291bnQoUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETykgJT4lDQogIG11dGF0ZShQZXJjZW50YWdlID0gbiAvIHN1bShuKSAqIDEwMCwNCiAgICAgICAgIFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8gPSBmYWN0b3IoUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETywNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBsZXZlbHMgPSBjKDEsIDIsIDMsIDQpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IGMoIk11eSBCYWphIiwgIkJhamEiLCAiTWVkaWEiLCAiQWx0YSIpKSkNCg0KZ2dwbG90KGVmZWN0aXZpZGFkX3BvcmNlbnR1YWwsIGFlcyh4ID0gZmFjdG9yKG5fcHJveWVjdG9zKSwgeSA9IFBlcmNlbnRhZ2UsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmaWxsID0gUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETykpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHBvc2l0aW9uID0gImZpbGwiLCBhbHBoYSA9IDAuOSwgY29sb3IgPSAid2hpdGUiKSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZTAocm91bmQoUGVyY2VudGFnZSwgMSksICIlIikpLCANCiAgICAgICAgICAgIHBvc2l0aW9uID0gcG9zaXRpb25fZmlsbCh2anVzdCA9IDAuNSksIA0KICAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLCBmb250ZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDMuNSkgKw0KICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKCIjZTQxYTFjIiwgIiNmZjdmMDAiLCAiI2ZmZmYzMyIsICIjNGRhZjRhIikpICsNCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IHNjYWxlczo6cGVyY2VudF9mb3JtYXQoKSkgKw0KICBsYWJzKHRpdGxlID0gIlByb3BvcmNpw7NuIGRlIGVmZWN0aXZpZGFkIGRlIHByb3llY3RvcyBwb3IgbsO6bWVybyBkZSBwcm95ZWN0b3MiLA0KICAgICAgIHN1YnRpdGxlID0gIkRpc3RyaWJ1Y2nDs24gcG9yY2VudHVhbCBwb3Igbml2ZWwgZGUgcGFydGljaXBhY2nDs24iLA0KICAgICAgIHggPSAiTsO6bWVybyBkZSBwcm95ZWN0b3MgcG9yIGNvbXVuYSIsDQogICAgICAgeSA9ICJQb3JjZW50YWplIiwNCiAgICAgICBmaWxsID0gIk5pdmVsIGRlIGVmZWN0aXZpZGFkIikgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZSgNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNiwgZmFjZSA9ICJib2xkIiwgaGp1c3QgPSAwLjUpLA0KICAgIHBsb3Quc3VidGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDEyLCBoanVzdCA9IDAuNSksDQogICAgYXhpcy50aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTIsIGZhY2UgPSAiYm9sZCIpLA0KICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iLA0KICAgIGxlZ2VuZC50aXRsZSA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiKQ0KICApDQpgYGANCg0KIyMgKipFeHBvcnRhY2nDs24gZGUgRGF0b3MgZGUgR29iZXJuYWNpw7NuKioNCg0KYGBge3IgZXhwb3J0YXJfdGFibGFzX2dvYiwgZWNobz1GQUxTRSwgd2FybmluZz1GQUxTRSwgZXZhbD1GQUxTRX0NCiMgRnVuY2nDs24gcGFyYSBleHBvcnRhciB0YWJsYXMgZGUgR29iZXJuYWNpw7NuIChvcGNpb25hbCkNCmV4cG9ydGFyX3RhYmxhc19nb2IgPC0gZnVuY3Rpb24odGFibGFzX29iamV0bywgcnV0YSA9ICJ0YWJsYXNfZ29iLyIpIHsNCiAgDQogICMgQ3JlYXIgZGlyZWN0b3JpbyBzaSBubyBleGlzdGUNCiAgaWYgKCFkaXIuZXhpc3RzKHJ1dGEpKSBkaXIuY3JlYXRlKHJ1dGEsIHJlY3Vyc2l2ZSA9IFRSVUUpDQogIA0KICAjIEV4cG9ydGFyIGRhdG9zIGEgQ1NWDQogIHdyaXRlLmNzdih0YWJsYXNfb2JqZXRvJHByb3llY3RvcyRkYXRvcywgDQogICAgICAgICAgICBwYXN0ZTAocnV0YSwgImdvYl9wb3JfcHJveWVjdG9zLmNzdiIpLCANCiAgICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFKQ0KICANCiAgd3JpdGUuY3N2KHRhYmxhc19vYmpldG8kY29tdW5hcyRkYXRvcywgDQogICAgICAgICAgICBwYXN0ZTAocnV0YSwgImdvYl9wb3JfY29tdW5hcy5jc3YiKSwgDQogICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSkNCiAgDQogIHdyaXRlLmNzdih0YWJsYXNfb2JqZXRvJGNvbXBhcmF0aXZhJGRhdG9zLCANCiAgICAgICAgICAgIHBhc3RlMChydXRhLCAiZ29iX2NvbXBhcmF0aXZhLmNzdiIpLCANCiAgICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFKQ0KICANCiAgd3JpdGUuY3N2KHRhYmxhc19vYmpldG8kcmVzdW1lbiRkYXRvcywgDQogICAgICAgICAgICBwYXN0ZTAocnV0YSwgImdvYl9yZXN1bWVuX2VqZWN1dGl2by5jc3YiKSwgDQogICAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSkNCiAgDQogIGNhdCgiVGFibGFzIGRlIEdvYmVybmFjacOzbiBleHBvcnRhZGFzIGV4aXRvc2FtZW50ZSBhOiIsIHJ1dGEsICJcbiIpDQp9DQoNCiMgQ3JlYXIgb2JqZXRvIGNvbiB0b2RhcyBsYXMgdGFibGFzIGRlIEdvYmVybmFjacOzbiAocGFyYSBleHBvcnRhY2nDs24gc2kgZXMgbmVjZXNhcmlvKQ0KdGFibGFzX2dvYiA8LSBsaXN0KA0KICBwcm95ZWN0b3MgPSB0YWJsYV9nb2JfcHJveWVjdG9zLA0KICBjb211bmFzID0gdGFibGFfZ29iX2NvbXVuYXMsDQogIGNvbXBhcmF0aXZhID0gdGFibGFfZ29iX2NvbXBhcmF0aXZhLA0KICByZXN1bWVuID0gdGFibGFfZ29iX3Jlc3VtZW4NCikNCg0KIyBQYXJhIGV4cG9ydGFyLCBxdWl0YXIgZXZhbD1GQUxTRSBkZWwgY2h1bmsNCiMgZXhwb3J0YXJfdGFibGFzX2dvYih0YWJsYXNfZ29iKQ0KYGBgDQoNCiMjICoqUmVzdW1lbiBJbnRlcnByZXRhdGl2byBkZWwgQW7DoWxpc2lzIGRlIEdvYmVybmFjacOzbioqDQoNCkxvcyByZXN1bHRhZG9zIG11ZXN0cmFuIHF1ZSBsYXMgY2F0ZWdvcsOtYXMgZGUgZ29iZXJuYWNpw7NuIHByZXNlbnRhbiBkaXN0cmlidWNpb25lcyBoZXRlcm9nw6luZWFzIHRhbnRvIGVuIGZyZWN1ZW5jaWEgZGUgcHJveWVjdG9zIGNvbW8gZW4gYWxjYW5jZSB0ZXJyaXRvcmlhbC4gTGFzIHByaW1lcmFzIGN1YXRybyBjYXRlZ29yw61hcyBjb25jZW50cmFuIG3DoXMgZGVsIDUwJSBkZSBsb3MgcHJveWVjdG9zLCBpbmRpY2FuZG8gw6FyZWFzIHByaW9yaXRhcmlhcyBwYXJhIGxhIGludGVydmVuY2nDs24uDQoNCiMjICoqRGVzYXJyb2xsYW1vcyBpbmRpY2UgU2hhbm5vbiB5IFBpZWxvdSoqDQoNCiMjICoqSW5kaWNlIFNoYW5ub24geSBQaWVsb3UgcG9yIENvbXVuYXMgeSBUaXBvbG9nw61hIENGRyB5IGRlIEdvYmVybmFjacOzbioqDQoNCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTIsIG91dC53aWR0aD0iMTAwJSJ9DQoNCiMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLUNyZWFyIG1hcGVvIMO6bmljbyBkZSBJRF9DT01VTkEgYSBDT01VTkEtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KY29tbXVuZV9tYXAgPC0gZGZfcmF3ICU+JQ0KICBkaXN0aW5jdChJRF9DT01VTkEsIENPTVVOQSkgJT4lDQogIG11dGF0ZShDT01VTkEgPSBzdHJfdHJpbShDT01VTkEpKSAgIyBMaW1waWFyIGVzcGFjaW9zIGV4dHJhcw0KDQojIyBEZXRlY3RhciBkaW7DoW1pY2FtZW50ZSBsYXMgY29sdW1uYXMgZHVtbXkNCmNmZ19jb2xzIDwtIGdyZXAoIl5DTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkdfIiwgDQogICAgICAgICAgICAgICAgIG5hbWVzKGRmX2R1bW1pZXMpLCB2YWx1ZSA9IFRSVUUpDQpnb2JfY29scyA8LSBncmVwKCJeQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTl8iLCANCiAgICAgICAgICAgICAgICAgbmFtZXMoZGZfZHVtbWllcyksIHZhbHVlID0gVFJVRSkNCg0KIyMgQ2FsY3VsYXIgZGl2ZXJzaWRhZCBwYXJhIGxhcyBUaXBvbG9nw61hIENGRyBjb24gbm9tYnJlcyBkZSBjb211bmFzDQpkaXZfY2ZnIDwtIGRmX2R1bW1pZXMgJT4lDQogIGdyb3VwX2J5KElEX0NPTVVOQSkgJT4lDQogIHN1bW1hcmlzZSgNCiAgICBuX3Byb3llY3RvcyA9IG4oKSwNCiAgICBhY3Jvc3MoYWxsX29mKGNmZ19jb2xzKSwgc3VtLCBuYS5ybSA9IFRSVUUpDQogICkgJT4lDQogIHVuZ3JvdXAoKSAlPiUNCiAgIyBBZ3JlZ2FyIG5vbWJyZXMgZGUgY29tdW5hcw0KICBsZWZ0X2pvaW4oY29tbXVuZV9tYXAsIGJ5ID0gIklEX0NPTVVOQSIpICU+JQ0KICAjIENhbGN1bGFyIMOtbmRpY2VzIGRlIGRpdmVyc2lkYWQNCiAgew0KICAgIGNudHMgPC0gc2VsZWN0KC4sIGFsbF9vZihjZmdfY29scykpDQogICAgdGliIDwtIHNlbGVjdCguLCBJRF9DT01VTkEsIENPTVVOQSwgbl9wcm95ZWN0b3MpDQogICAgSCA8LSB2ZWdhbjo6ZGl2ZXJzaXR5KGNudHMsIGluZGV4ID0gInNoYW5ub24iKQ0KICAgIHJpY2hlc3NlIDwtIHJvd1N1bXMoY250cyA+IDApDQogICAgSiA8LSBpZmVsc2UocmljaGVzc2UgPiAwLCBIIC8gbG9nKHJpY2hlc3NlKSwgTkFfcmVhbF8pDQogICAgYmluZF9jb2xzKHRpYiwgSF9zaGFubm9uID0gSCwgcGllbG91ID0gSikNCiAgfQ0KDQojIENyZWFyIGNvbHVtbmEgY29tYmluYWRhIHBhcmEgbW9zdHJhciBlbiB0YWJsYXMNCmRpdl9jZmcgPC0gZGl2X2NmZyAlPiUNCiAgbXV0YXRlKENPTVVOQV9JRF9OT01CUkUgPSBwYXN0ZShJRF9DT01VTkEsICItIiwgQ09NVU5BKSkNCg0KIyBUYWJsYTogVG9wIDEwIGNvbXVuYXMgbcOhcyBkaXZlcnNhcyAoY29uIElEIHkgbm9tYnJlKQ0KdG9wMTBfY2ZnIDwtIGRpdl9jZmcgJT4lDQogIGFycmFuZ2UoZGVzYyhIX3NoYW5ub24pKSAlPiUNCiAgc2xpY2UoMToxMCkgJT4lDQogIHNlbGVjdChDT01VTkFfSURfTk9NQlJFLCBIX3NoYW5ub24sIHBpZWxvdSwgbl9wcm95ZWN0b3MpDQoNCiMgVGFibGE6IFRvcCAxMCBjb211bmFzIG1lbm9zIGRpdmVyc2FzIChjb24gSUQgeSBub21icmUpDQpib3R0b20xMF9jZmcgPC0gZGl2X2NmZyAlPiUNCiAgYXJyYW5nZShIX3NoYW5ub24pICU+JQ0KICBzbGljZSgxOjEwKSAlPiUNCiAgc2VsZWN0KENPTVVOQV9JRF9OT01CUkUsIEhfc2hhbm5vbiwgcGllbG91LCBuX3Byb3llY3RvcykNCg0KIyBNb3N0cmFyIHRhYmxhcyBlbiBmb3JtYXRvIGthYmxlIHBhcmEgVGlwb2xvZ8OtYSBDRkcNCmNhdCgiXG5cbioqMTAgY29tdW5hcyBjb24gbWF5b3IgZGl2ZXJzaWRhZCAoU2hhbm5vbl9DRkcpKipcbiIpDQprbml0cjo6a2FibGUodG9wMTBfY2ZnLCANCiAgICAgICAgICAgICBjb2wubmFtZXMgPSBjKCJDb211bmEgKElEIC0gTm9tYnJlKSIsICJIX0NGRyAoU2hhbm5vbikiLCAiSl9DRkcgKFBpZWxvdSkiLCAiTsKwIFByb3llY3RvcyIpLA0KICAgICAgICAgICAgIGRpZ2l0cyA9IDMsDQogICAgICAgICAgICAgY2FwdGlvbiA9ICJUb3AgMTAgY29tdW5hcyBjb24gbWF5b3Igw61uZGljZSBkZSBTaGFubm9uIHBhcmEgQ0ZHIikNCg0KY2F0KCJcblxuKioxMCBjb211bmFzIGNvbiBtZW5vciBkaXZlcnNpZGFkIChTaGFubm9uX0NGRykqKlxuIikNCmtuaXRyOjprYWJsZShib3R0b20xMF9jZmcsDQogICAgICAgICAgICAgY29sLm5hbWVzID0gYygiQ29tdW5hIChJRCAtIE5vbWJyZSkiLCAiSF9DRkcgKFNoYW5ub24pIiwgIkpfQ0ZHIChQaWVsb3UpIiwgIk7CsCBQcm95ZWN0b3MiKSwNCiAgICAgICAgICAgICBkaWdpdHMgPSAzLA0KICAgICAgICAgICAgIGNhcHRpb24gPSAiVG9wIDEwIGNvbXVuYXMgY29uIG1lbm9yIMOtbmRpY2UgZGUgU2hhbm5vbiBwYXJhIENGRyIpDQoNCiMjIFByZXBhcmFyIGRhdG9zIHBhcmEgZ3LDoWZpY28gY29uc29saWRhZG8gcGFyYSBDRkcNCnRhYmxhX2V4dHJlbW9zX2NmZyA8LSBiaW5kX3Jvd3MoDQogIHRvcDEwX2NmZyAgJT4lIG11dGF0ZSh0aXBvID0gIlRvcCAxMCDihpEiKSAlPiUgcmVuYW1lKENPTVVOQSA9IENPTVVOQV9JRF9OT01CUkUpLA0KICBib3R0b20xMF9jZmcgJT4lIG11dGF0ZSh0aXBvID0gIlRvcCAxMCDihpMiKSAlPiUgcmVuYW1lKENPTVVOQSA9IENPTVVOQV9JRF9OT01CUkUpDQopICU+JQ0KICAjIENyZWFyIGV0aXF1ZXRhIG9yZGVuYWRhIHBvciBIX3NoYW5ub24NCiAgbXV0YXRlKENPTVVOQV9PUkQgPSByZW9yZGVyKENPTVVOQSwgSF9zaGFubm9uKSkNCg0KIy0tLS0tLS0tLS0tLS0tLUdyw6FmaWNvOiBTaGFubm9uIChiYXJyYXMpICsgUGllbG91IChsw61uZWEpIHBhcmEgQ0ZHLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tIw0KbWF4SCA8LSBtYXgodGFibGFfZXh0cmVtb3NfY2ZnJEhfc2hhbm5vbikNCg0KIyBBanVzdGFyIGVsIGdyw6FmaWNvIGNvbiBkaW1lbnNpb25lcyBlc3BlY8OtZmljYXMNCmNmZ19wbG90IDwtIGdncGxvdCh0YWJsYV9leHRyZW1vc19jZmcsIGFlcyh4ID0gQ09NVU5BX09SRCwgeSA9IEhfc2hhbm5vbiwgZmlsbCA9IHRpcG8pKSArDQogIGdlb21fbGluZShhZXMoeSA9IHBpZWxvdSAqIG1heEgsIGdyb3VwID0gMSksIA0KICAgICAgICAgICAgY29sb3IgPSAiI0U2OUYwMCIsIHNpemUgPSAxLjAsIGxpbmV0eXBlID0gImRhc2hlZCIpICsNCiAgZ2VvbV9wb2ludChhZXMoeSA9IHBpZWxvdSAqIG1heEgpLCANCiAgICAgICAgICAgICBjb2xvciA9ICIjRDU1RTAwIiwgc2l6ZSA9IDIuNSwgc2hhcGUgPSAxOCkgKw0KICAjIEV0aXF1ZXRhcyBkZSBQaWVsb3UgZGVzcGxhemFkYXMgYSBsYSBkZXJlY2hhDQogIGdlb21fdGV4dChhZXMoeSA9IHBpZWxvdSAqIG1heEgsIGxhYmVsID0gc3ByaW50ZigiSj0lLjJmIiwgcGllbG91KSksDQogICAgICAgICAgICBoanVzdCA9IC0wLjMsIHNpemUgPSAyLjUsIGNvbG9yID0gIiNENTVFMDAiKSArICAjIEFqdXN0YWRvIGhqdXN0DQoNCiAgZ2VvbV9jb2wod2lkdGggPSAwLjcsIGFscGhhID0gMC45KSArDQogIGdlb21fdGV4dChhZXMoeSA9IEhfc2hhbm5vbiwgbGFiZWwgPSBzcHJpbnRmKCIlLjJmICglLjFmKSIsIEhfc2hhbm5vbiwgZXhwKEhfc2hhbm5vbikpKSwNCiAgICAgICAgICAgIGhqdXN0ID0gMS4xLCBzaXplID0gMi44LCBjb2xvciA9ICJ3aGl0ZSIsIGZvbnRmYWNlID0gImJvbGQiKSArICAjIFRhbWHDsW8gYWp1c3RhZG8NCiAgZmFjZXRfd3JhcCh+IHRpcG8sIHNjYWxlcyA9ICJmcmVlX3kiLCBuY29sID0gMSkgKw0KICBjb29yZF9mbGlwKCkgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMoDQogICAgbmFtZSA9ICLDjW5kaWNlIGRlIFNoYW5ub24gKEgpIiwNCiAgICBsaW1pdHMgPSBjKDAsIG1heEggKiAxLjE1KSwgDQogICAgc2VjLmF4aXMgPSBzZWNfYXhpcyh+IC4gLyBtYXhILCBuYW1lID0gIsONbmRpY2UgZGUgUGllbG91IChKKSIsDQogICAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBzY2FsZXM6Om51bWJlcl9mb3JtYXQoYWNjdXJhY3kgPSAwLjEpKQ0KICApICsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gYygiVG9wIDEwIOKGkSIgPSAiIzU2QjRFOSIsICJUb3AgMTAg4oaTIiA9ICIjQ0M3OUE3IikpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJEaXZlcnNpZGFkIGRlIFRpcG9sb2fDrWFzIENGRyBwb3IgQ29tdW5hIiwNCiAgICBzdWJ0aXRsZSA9ICJUb3AgMTAgY29tdW5hcyBjb24gbWF5b3IgeSBtZW5vciBkaXZlcnNpZGFkIHwgQmFycmFzOiBTaGFubm9uIChIKSB8IEzDrW5lYTogUGllbG91IChKKSIsDQogICAgeCA9ICJDb211bmEgKElEIC0gTm9tYnJlKSIsDQogICAgY2FwdGlvbiA9ICJGdWVudGU6IEVsYWJvcmFjacOzbiBwcm9waWEgZGF0b3MgZGUgcHJveWVjdG9zIEFDQSAtIFdpbGxpYW0gR3V0aWVycmV6Ig0KICApICsNCiAgdGhlbWVfbWluaW1hbChiYXNlX3NpemUgPSAxMCkgKw0KICB0aGVtZSgNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxNCwgaGp1c3QgPSAwLjUpLA0KICAgIHBsb3Quc3VidGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDEwLCBjb2xvciA9ICJncmF5NDAiLCBoanVzdCA9IDAuNSksDQogICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KG1hcmdpbiA9IG1hcmdpbihyID0gMTApKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQobWFyZ2luID0gbWFyZ2luKHQgPSAxMCkpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSA4KSwgICMgUmVkdWNpciB0YW1hw7FvIHRleHRvIGVqZSBZDQogICAgcGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIHN0cmlwLnRleHQgPSBlbGVtZW50X3RleHQoZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDExKSwNCiAgICBsZWdlbmQucG9zaXRpb24gPSAibm9uZSIsDQogICAgcGxvdC5tYXJnaW4gPSBtYXJnaW4oMSwgMiwgMSwgMSwgImNtIikgICMgQXVtZW50YXIgbWFyZ2VuIGRlcmVjaG8NCiAgKQ0KDQojIEd1YXJkYXIgY29uIGRpbWVuc2lvbmVzIGVzcGVjw61maWNhcw0KZ2dzYXZlKCJjZmdfZGl2ZXJzaXR5X3Bsb3QucG5nIiwgY2ZnX3Bsb3QsIHdpZHRoID0gMTQsIGhlaWdodCA9IDEwLCBkcGkgPSAzMDApDQpwcmludChjZmdfcGxvdCkNCg0KIyMgQ2FsY3VsYXIgZGl2ZXJzaWRhZCBwYXJhIFRpcG9sb2fDrWEgZGUgR29iZXJuYWNpw7NuIGNvbiBub21icmVzDQpkaXZfZ29iIDwtIGRmX2R1bW1pZXMgJT4lDQogIGdyb3VwX2J5KElEX0NPTVVOQSkgJT4lDQogIHN1bW1hcmlzZSgNCiAgICBuX3Byb3llY3RvcyA9IG4oKSwNCiAgICBhY3Jvc3MoYWxsX29mKGdvYl9jb2xzKSwgc3VtLCBuYS5ybSA9IFRSVUUpDQogICkgJT4lDQogIHVuZ3JvdXAoKSAlPiUNCiAgIyBBZ3JlZ2FyIG5vbWJyZXMgZGUgY29tdW5hcw0KICBsZWZ0X2pvaW4oY29tbXVuZV9tYXAsIGJ5ID0gIklEX0NPTVVOQSIpICU+JQ0KICAjIENhbGN1bGFyIMOtbmRpY2VzIGRlIGRpdmVyc2lkYWQNCiAgew0KICAgIGNudHMgPC0gc2VsZWN0KC4sIGFsbF9vZihnb2JfY29scykpDQogICAgdGliIDwtIHNlbGVjdCguLCBJRF9DT01VTkEsIENPTVVOQSwgbl9wcm95ZWN0b3MpDQogICAgSCA8LSB2ZWdhbjo6ZGl2ZXJzaXR5KGNudHMsIGluZGV4ID0gInNoYW5ub24iKQ0KICAgIHJpY2hlc3NlIDwtIHJvd1N1bXMoY250cyA+IDApDQogICAgSiA8LSBpZmVsc2UocmljaGVzc2UgPiAwLCBIIC8gbG9nKHJpY2hlc3NlKSwgTkFfcmVhbF8pDQogICAgYmluZF9jb2xzKHRpYiwgSF9zaGFubm9uID0gSCwgcGllbG91ID0gSikNCiAgfQ0KDQojIENyZWFyIGNvbHVtbmEgY29tYmluYWRhIHBhcmEgbW9zdHJhciBlbiB0YWJsYXMNCmRpdl9nb2IgPC0gZGl2X2dvYiAlPiUNCiAgbXV0YXRlKENPTVVOQV9JRF9OT01CUkUgPSBwYXN0ZShJRF9DT01VTkEsICItIiwgQ09NVU5BKSkNCg0KIyMgTW9zdHJhciB0YWJsYXMgY29uIG5vbWJyZXMNCnRvcDEwX2dvYiA8LSBkaXZfZ29iICU+JSANCiAgYXJyYW5nZShkZXNjKEhfc2hhbm5vbikpICU+JSANCiAgc2xpY2UoMToxMCkgJT4lDQogIHNlbGVjdChDT01VTkFfSURfTk9NQlJFLCBuX3Byb3llY3RvcywgSF9zaGFubm9uLCBwaWVsb3UpDQoNCmJvdHRvbTEwX2dvYiA8LSBkaXZfZ29iICU+JSANCiAgYXJyYW5nZShIX3NoYW5ub24pICU+JSANCiAgc2xpY2UoMToxMCkgJT4lDQogIHNlbGVjdChDT01VTkFfSURfTk9NQlJFLCBuX3Byb3llY3RvcywgSF9zaGFubm9uLCBwaWVsb3UpDQoNCmNhdCgiXG5cbioqVG9wIDEwIGNvbXVuYXMgY29uIG1heW9yIGRpdmVyc2lkYWQgKFNoYW5ub24pIGRlIEdvYmVybmFjacOzbioqXG4iKQ0Ka25pdHI6OmthYmxlKHRvcDEwX2dvYiwNCiAgICAgICAgICAgICBjb2wubmFtZXMgPSBjKCJDb211bmEgKElEIC0gTm9tYnJlKSIsICJOwrAgUHJveWVjdG9zIiwgIkhfR09CIChTaGFubm9uKSIsICJKX0dPQiAoUGllbG91KSIpLA0KICAgICAgICAgICAgIGRpZ2l0cyA9IDMsIA0KICAgICAgICAgICAgIGNhcHRpb24gPSAiVG9wIDEwIGNvbXVuYXMgY29uIG1heW9yIMOtbmRpY2UgZGUgU2hhbm5vbiBwYXJhIEdvYmVybmFjacOzbiIpDQoNCmNhdCgiXG5cbioqVG9wIDEwIGNvbXVuYXMgY29uIG1lbm9yIGRpdmVyc2lkYWQgKFNoYW5ub24pIGRlIEdvYmVybmFjacOzbioqXG4iKQ0Ka25pdHI6OmthYmxlKGJvdHRvbTEwX2dvYiwNCiAgICAgICAgICAgICBjb2wubmFtZXMgPSBjKCJDb211bmEgKElEIC0gTm9tYnJlKSIsICJOwrAgUHJveWVjdG9zIiwgIkhfR09CIChTaGFubm9uKSIsICJKX0dPQiAoUGllbG91KSIpLA0KICAgICAgICAgICAgIGRpZ2l0cyA9IDMsIA0KICAgICAgICAgICAgIGNhcHRpb24gPSAiVG9wIDEwIGNvbXVuYXMgY29uIG1lbm9yIMOtbmRpY2UgZGUgU2hhbm5vbiBwYXJhIEdvYmVybmFjacOzbiIpDQoNCiMjIFByZXBhcmFyIGRhdG9zIHBhcmEgZ3LDoWZpY28gZGUgR29iZXJuYWNpw7NuDQp0YWJsYV9leHRyZW1vc19nb2IgPC0gYmluZF9yb3dzKA0KICB0b3AxMF9nb2IgJT4lIG11dGF0ZSh0aXBvID0gIlRvcCAxMCDihpEiKSAlPiUgcmVuYW1lKENPTVVOQSA9IENPTVVOQV9JRF9OT01CUkUpLA0KICBib3R0b20xMF9nb2IgJT4lIG11dGF0ZSh0aXBvID0gIlRvcCAxMCDihpMiKSAlPiUgcmVuYW1lKENPTVVOQSA9IENPTVVOQV9JRF9OT01CUkUpDQopICU+JQ0KICAjIENyZWFyIGV0aXF1ZXRhIG9yZGVuYWRhIHBvciBIX3NoYW5ub24NCiAgbXV0YXRlKENPTVVOQV9PUkQgPSByZW9yZGVyKENPTVVOQSwgSF9zaGFubm9uKSkNCg0KDQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLUdyw6FmaWNhIGRlIHRpcG9sb2fDrWEgZGUgZ29iZXJuYWNpw7NuLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0jDQptYXhIX2dvYiA8LSBtYXgodGFibGFfZXh0cmVtb3NfZ29iJEhfc2hhbm5vbikNCg0KZ29iX3Bsb3QgPC0gZ2dwbG90KHRhYmxhX2V4dHJlbW9zX2dvYiwgYWVzKHggPSBDT01VTkFfT1JELCB5ID0gSF9zaGFubm9uLCBmaWxsID0gdGlwbykpICsNCiAgZ2VvbV9saW5lKGFlcyh5ID0gcGllbG91ICogbWF4SF9nb2IsIGdyb3VwID0gMSksIA0KICAgICAgICAgICAgY29sb3IgPSAiI0U2OUYwMCIsIHNpemUgPSAxLjAsIGxpbmV0eXBlID0gImRhc2hlZCIpICsNCiAgZ2VvbV9wb2ludChhZXMoeSA9IHBpZWxvdSAqIG1heEhfZ29iKSwgDQogICAgICAgICAgICAgY29sb3IgPSAiI0Q1NUUwMCIsIHNpemUgPSAyLjUsIHNoYXBlID0gMTgpICsNCiAgIyBFdGlxdWV0YXMgZGUgUGllbG91IGRlc3BsYXphZGFzIGEgbGEgZGVyZWNoYQ0KICBnZW9tX3RleHQoYWVzKHkgPSBwaWVsb3UgKiBtYXhIX2dvYiwgbGFiZWwgPSBzcHJpbnRmKCJKPSUuMmYiLCBwaWVsb3UpKSwNCiAgICAgICAgICAgIGhqdXN0ID0gLTAuMiwgc2l6ZSA9IDIuNSwgY29sb3IgPSAiI0Q1NUUwMCIpICsNCiAgIyBMdWVnbyBkaWJ1amFyIGxhcyBiYXJyYXMgZGUgU2hhbm5vbg0KICBnZW9tX2NvbCh3aWR0aCA9IDAuNywgYWxwaGEgPSAwLjkpICsNCiAgZ2VvbV90ZXh0KGFlcyh5ID0gSF9zaGFubm9uLCBsYWJlbCA9IHNwcmludGYoIiUuMmYgKCUuMWYpIiwgSF9zaGFubm9uLCBleHAoSF9zaGFubm9uKSkpLA0KICAgICAgICAgICAgaGp1c3QgPSAxLjEsIHNpemUgPSAyLjgsIGNvbG9yID0gIndoaXRlIiwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgZmFjZXRfd3JhcCh+IHRpcG8sIHNjYWxlcyA9ICJmcmVlX3kiLCBuY29sID0gMSkgKw0KICBjb29yZF9mbGlwKCkgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMoDQogICAgbmFtZSA9ICLDjW5kaWNlIGRlIFNoYW5ub24gKEgpIiwNCiAgICBsaW1pdHMgPSBjKDAsIG1heEhfZ29iICogMS4xNSksDQogICAgc2VjLmF4aXMgPSBzZWNfYXhpcyh+IC4gLyBtYXhIX2dvYiwgbmFtZSA9ICLDjW5kaWNlIGRlIFBpZWxvdSAoSikiLA0KICAgICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gc2NhbGVzOjpudW1iZXJfZm9ybWF0KGFjY3VyYWN5ID0gMC4xKSkNCiAgKSArDQogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGMoIlRvcCAxMCDihpEiID0gIiM1NkI0RTkiLCAiVG9wIDEwIOKGkyIgPSAiI0NDNzlBNyIpKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSAiRGl2ZXJzaWRhZCBJbnN0aXR1Y2lvbmFsIChHb2Jlcm5hY2nDs24pIHBvciBDb211bmEiLA0KICAgIHN1YnRpdGxlID0gIlRvcCAxMCBjb211bmFzIGNvbiBtYXlvciB5IG1lbm9yIGRpdmVyc2lkYWQgfCBCYXJyYXM6IFNoYW5ub24gKEgpIHwgTMOtbmVhOiBQaWVsb3UgKEopIiwNCiAgICB4ID0gIkNvbXVuYSAoSUQgLSBOb21icmUpIiwNCiAgICBjYXB0aW9uID0gIkZ1ZW50ZTogRWxhYm9yYWNpw7NuIHByb3BpYSBkYXRvcyBkZSBwcm95ZWN0b3MgQUNBIC0gV2lsbGlhbSBHdXRpZXJyZXoiDQogICkgKw0KICB0aGVtZV9taW5pbWFsKGJhc2Vfc2l6ZSA9IDEwKSArDQogIHRoZW1lKA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDE0LCBoanVzdCA9IDAuNSksDQogICAgcGxvdC5zdWJ0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTAsIGNvbG9yID0gImdyYXk0MCIsIGhqdXN0ID0gMC41KSwNCiAgICBheGlzLnRpdGxlLnkgPSBlbGVtZW50X3RleHQobWFyZ2luID0gbWFyZ2luKHIgPSAxMCkpLA0KICAgIGF4aXMudGl0bGUueCA9IGVsZW1lbnRfdGV4dChtYXJnaW4gPSBtYXJnaW4odCA9IDEwKSksDQogICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDgpLCAgIyBSZWR1Y2lyIHRhbWHDsW8gdGV4dG8gZWplIFkNCiAgICBwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiLCBzaXplID0gMTEpLA0KICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwNCiAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigxLCAyLCAxLCAxLCAiY20iKSAgIyBBdW1lbnRhciBtYXJnZW4gZGVyZWNobw0KICApDQoNCiMgR3VhcmRhciBjb24gZGltZW5zaW9uZXMgZXNwZWPDrWZpY2FzDQpnZ3NhdmUoImdvYl9kaXZlcnNpdHlfcGxvdC5wbmciLCBnb2JfcGxvdCwgd2lkdGggPSAxNCwgaGVpZ2h0ID0gMTAsIGRwaSA9IDMwMCkNCnByaW50KGdvYl9wbG90KQ0KDQpgYGANCg0KDQojIyAqKkluZGljZSBTaGFubm9uIGRlIHJhdGlvIGRlIHByb3llY3RvIHBvciB0aXBvbG9nw61hcyoqDQoNCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTIsIG91dC53aWR0aD0iMTAwJSJ9DQoNCg0KIyMgKipJbmRpY2UgU2hhbm5vbiBkZSByYXRpbyBkZSBwcm95ZWN0byBwb3IgdGlwb2xvZ8OtYXMqKg0KDQojIEZpbHRyYXIgeSBwcmVwYXJhciBkYXRvcyBwYXJhIFJhdGlvDQpkZl9yYXRpb19jbGVhbiA8LSBkZl9yYXcgJT4lIA0KICBmaWx0ZXIoIWlzLm5hKFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8pKSAlPiUgIA0KICBtdXRhdGUoDQogICAgUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETyA9IGZhY3RvcigNCiAgICAgIFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8sDQogICAgICBsZXZlbHMgPSAxOjQsDQogICAgICBsYWJlbHMgPSBjKCJNVVkgQkFKQSIsICJCQUpBIiwgIk1FRElBIiwgIkFMVEEiKQ0KICAgICkNCiAgKQ0KDQojIENyZWFyIGRhdG9zIHdpZGUgcGFyYSBkaXZlcnNpZGFkDQpkZl9yYXRpb193aWRlIDwtIGRmX3JhdGlvX2NsZWFuICU+JQ0KICBncm91cF9ieShJRF9DT01VTkEsIFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8pICU+JQ0KICBzdW1tYXJpc2UobiA9IG4oKSwgLmdyb3VwcyA9ICJkcm9wIikgJT4lDQogIGNvbXBsZXRlKElEX0NPTVVOQSwgUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETywgZmlsbCA9IGxpc3QobiA9IDApKSAlPiUNCiAgcGl2b3Rfd2lkZXIoDQogICAgbmFtZXNfZnJvbSA9IFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8sIA0KICAgIHZhbHVlc19mcm9tID0gbiwgDQogICAgbmFtZXNfcHJlZml4ID0gInJhdGlvXyINCiAgKQ0KDQojIEFzZWd1cmFyIHF1ZSB0b2RhcyBsYXMgY29sdW1uYXMgZGUgcmF0aW8gZXhpc3Rhbg0KcmF0aW9fY29scyA8LSBjKCJyYXRpb19NVVkgQkFKQSIsICJyYXRpb19CQUpBIiwgInJhdGlvX01FRElBIiwgInJhdGlvX0FMVEEiKQ0KZm9yIChjb2wgaW4gcmF0aW9fY29scykgew0KICBpZiAoIWNvbCAlaW4lIG5hbWVzKGRmX3JhdGlvX3dpZGUpKSB7DQogICAgZGZfcmF0aW9fd2lkZVtbY29sXV0gPC0gMA0KICB9DQp9DQoNCiMgQ2FsY3VsYXIgZGl2ZXJzaWRhZCBwYXJhIFJhdGlvDQpkaXZfcmF0aW8gPC0gZGZfcmF0aW9fd2lkZSAlPiUNCiAgbGVmdF9qb2luKGNvbW11bmVfbWFwLCBieSA9ICJJRF9DT01VTkEiKSAlPiUNCiAgbXV0YXRlKG5fcHJveWVjdG9zX3JhdGlvID0gcm93U3VtcyhzZWxlY3QoLiwgYWxsX29mKHJhdGlvX2NvbHMpKSkpICU+JQ0KICB7DQogICAgY250cyA8LSBzZWxlY3QoLiwgYWxsX29mKHJhdGlvX2NvbHMpKQ0KICAgIHRpYiA8LSBzZWxlY3QoLiwgSURfQ09NVU5BLCBDT01VTkEsIG5fcHJveWVjdG9zX3JhdGlvKQ0KICAgIEggPC0gdmVnYW46OmRpdmVyc2l0eShjbnRzLCBpbmRleCA9ICJzaGFubm9uIikNCiAgICByaWNoZXNzZSA8LSByb3dTdW1zKGNudHMgPiAwKQ0KICAgIEogPC0gaWZlbHNlKHJpY2hlc3NlID4gMCwgSCAvIGxvZyhyaWNoZXNzZSksIE5BX3JlYWxfKQ0KICAgIGJpbmRfY29scyh0aWIsIEhfc2hhbm5vbiA9IEgsIHBpZWxvdSA9IEopDQogIH0gJT4lDQogIG11dGF0ZShDT01VTkFfSURfTk9NQlJFID0gcGFzdGUoSURfQ09NVU5BLCAiLSIsIENPTVVOQSkpDQoNCiMgQ3JlYXIgdG9wIHkgYm90dG9tIDEwDQp0b3AxMF9yYXRpbyA8LSBkaXZfcmF0aW8gJT4lDQogIGFycmFuZ2UoZGVzYyhIX3NoYW5ub24pKSAlPiUNCiAgc2xpY2UoMToxMCkgJT4lDQogIHNlbGVjdChDT01VTkFfSURfTk9NQlJFLCBuX3Byb3llY3Rvc19yYXRpbywgSF9zaGFubm9uLCBwaWVsb3UpDQoNCmJvdHRvbTEwX3JhdGlvIDwtIGRpdl9yYXRpbyAlPiUNCiAgYXJyYW5nZShIX3NoYW5ub24pICU+JQ0KICBzbGljZSgxOjEwKSAlPiUNCiAgc2VsZWN0KENPTVVOQV9JRF9OT01CUkUsIG5fcHJveWVjdG9zX3JhdGlvLCBIX3NoYW5ub24sIHBpZWxvdSkNCg0KIyBQcmVwYXJhciBkYXRvcyBwYXJhIGdyw6FmaWNvDQp0YWJsYV9leHRyZW1vc19yYXRpbyA8LSBiaW5kX3Jvd3MoDQogIHRvcDEwX3JhdGlvICU+JSANCiAgICBtdXRhdGUodGlwbyA9ICJNYXlvciBkaXZlcnNpZGFkIChUb3AgMTApIikgJT4lIA0KICAgIHJlbmFtZShDT01VTkEgPSBDT01VTkFfSURfTk9NQlJFKSwNCiAgYm90dG9tMTBfcmF0aW8gJT4lIA0KICAgIG11dGF0ZSh0aXBvID0gIk1lbm9yIGRpdmVyc2lkYWQgKEJvdHRvbSAxMCkiKSAlPiUgDQogICAgcmVuYW1lKENPTVVOQSA9IENPTVVOQV9JRF9OT01CUkUpDQopICU+JQ0KICBtdXRhdGUoDQogICAgZXRpcXVldGFfSCA9IHNwcmludGYoIkg6ICUuMmYiLCBIX3NoYW5ub24pLA0KICAgIGV0aXF1ZXRhX0ogPSBzcHJpbnRmKCJKOiAlLjJmIiwgcGllbG91KQ0KICApDQojIyBUYWJsYSBjb21wbGV0YSAoVG9kYXMgbGFzIGNvbXVuYXMpDQpkaXZfcmF0aW9fY29tcGxldG8gPC0gZGl2X3JhdGlvICU+JQ0KICBzZWxlY3QoQ09NVU5BX0lEX05PTUJSRSwgbl9wcm95ZWN0b3NfcmF0aW8sIEhfc2hhbm5vbiwgcGllbG91KSAlPiUNCiAgYXJyYW5nZShkZXNjKEhfc2hhbm5vbikpICU+JQ0KICBtdXRhdGUoDQogICAgSF9zaGFubm9uID0gcm91bmQoSF9zaGFubm9uLCAzKSwNCiAgICBwaWVsb3UgPSByb3VuZChwaWVsb3UsIDMpLA0KICAgICMgSW50ZXJwcmV0YWNpw7NuIHLDoXBpZGENCiAgICBJbnRlcnByZXRhY2lvbiA9IGNhc2Vfd2hlbigNCiAgICAgIEhfc2hhbm5vbiA8IDAuNSB+ICJCYWphIGRpdmVyc2lkYWQiLA0KICAgICAgSF9zaGFubm9uID49IDAuNSAmIEhfc2hhbm5vbiA8IDEuMCB+ICJEaXZlcnNpZGFkIG1lZGlhIiwNCiAgICAgIEhfc2hhbm5vbiA+PSAxLjAgfiAiQWx0YSBkaXZlcnNpZGFkIg0KICAgICkNCiAgKQ0KDQojIE1vc3RyYXIgdGFibGEgY29tcGxldGEgb3JkZW5hZGEgcG9yIGRpdmVyc2lkYWQNCmNhdCgiXG5cbioqRGl2ZXJzaWRhZCBkZSBSYXRpbyBBQ0EgZW4gdG9kYXMgbGFzIGNvbXVuYXMqKlxuIikNCmtuaXRyOjprYWJsZSgNCiAgZGl2X3JhdGlvX2NvbXBsZXRvLA0KICBjb2wubmFtZXMgPSBjKCJDb211bmEgKElEIC0gTm9tYnJlKSIsICJQcm95ZWN0b3MiLCAiSCAoU2hhbm5vbikiLCAiSiAoUGllbG91KSIsICJJbnRlcnByZXRhY2nDs24iKSwNCiAgZGlnaXRzID0gMywNCiAgY2FwdGlvbiA9ICJEaXZlcnNpZGFkIGRlIGVzdGFkb3MgZGUgY3VsbWluYWNpw7NuIGVuIHRvZGFzIGxhcyBjb211bmFzIg0KKQ0KDQojIFByZXBhcmFyIGRhdG9zIHBhcmEgZ3LDoWZpY28gKHNpbiBjcmVhciBldGlxdWV0YXMgcHJlLWRlZmluaWRhcykNCnRhYmxhX2V4dHJlbW9zX3JhdGlvIDwtIGJpbmRfcm93cygNCiAgdG9wMTBfcmF0aW8gJT4lIA0KICAgIG11dGF0ZSh0aXBvID0gIk1heW9yIGRpdmVyc2lkYWQgKFRvcCAxMCkiKSAlPiUgDQogICAgcmVuYW1lKENPTVVOQSA9IENPTVVOQV9JRF9OT01CUkUpLA0KICBib3R0b20xMF9yYXRpbyAlPiUgDQogICAgbXV0YXRlKHRpcG8gPSAiTWVub3IgZGl2ZXJzaWRhZCAoQm90dG9tIDEwKSIpICU+JSANCiAgICByZW5hbWUoQ09NVU5BID0gQ09NVU5BX0lEX05PTUJSRSkNCikNCiMgTm90YTogUmVtb3ZpbW9zIGxhcyBldGlxdWV0YXMgcHJlLWRlZmluaWRhcyBldGlxdWV0YV9IIHkgZXRpcXVldGFfSg0KDQojIENhbGN1bGFyIG1heEhfcmF0aW8NCm1heEhfcmF0aW8gPC0gbWF4KHRhYmxhX2V4dHJlbW9zX3JhdGlvJEhfc2hhbm5vbiwgbmEucm0gPSBUUlVFKSAqIDEuMw0KDQojIENyZWFyIGdyw6FmaWNvIGNvbiB2YWxvcmVzIGV4cG9uZW5jaWFsZXMgZW4gbGFzIGV0aXF1ZXRhcw0KcmF0aW9fcGxvdCA8LSBnZ3Bsb3QodGFibGFfZXh0cmVtb3NfcmF0aW8sIGFlcyh4ID0gcmVvcmRlcihDT01VTkEsIEhfc2hhbm5vbiksIHkgPSBIX3NoYW5ub24sIGZpbGwgPSB0aXBvKSkgKw0KICBnZW9tX2NvbChhbHBoYSA9IDAuODUsIHdpZHRoID0gMC43KSArDQogIA0KICAjIEV0aXF1ZXRhcyBkZSBTaGFubm9uIGNvbiB2YWxvciBleHBvbmVuY2lhbA0KICBnZW9tX3RleHQoDQogICAgYWVzKGxhYmVsID0gc3ByaW50ZigiJS4yZiAoJS4xZikiLCBIX3NoYW5ub24sIGV4cChIX3NoYW5ub24pKSwgeSA9IEhfc2hhbm5vbiAqIDAuNSksIA0KICAgIGNvbG9yID0gIndoaXRlIiwgDQogICAgZm9udGZhY2UgPSAiYm9sZCIsDQogICAgc2l6ZSA9IDIuOCAgIyBSZWR1Y2lkbyBsaWdlcmFtZW50ZQ0KICApICsNCiAgDQogICMgRXRpcXVldGFzIGRlIFBpZWxvdQ0KICBnZW9tX3RleHQoDQogICAgYWVzKGxhYmVsID0gc3ByaW50ZigiSj0lLjJmIiwgcGllbG91KSwgeSA9IEhfc2hhbm5vbiArIDAuMDUgKiBtYXhIX3JhdGlvKSwNCiAgICBjb2xvciA9ICIjRDU1RTAwIiwNCiAgICBzaXplID0gMi44LCAgIyBSZWR1Y2lkbw0KICAgIGhqdXN0ID0gMA0KICApICsNCiAgDQogICMgTMOtbmVhIHkgcHVudG9zIGRlIFBpZWxvdQ0KICBnZW9tX2xpbmUoDQogICAgYWVzKHkgPSBwaWVsb3UgKiBtYXhIX3JhdGlvLCBncm91cCA9IHRpcG8pLCANCiAgICBjb2xvciA9ICIjRTY5RjAwIiwgDQogICAgbGluZXdpZHRoID0gMS4yLCANCiAgICBsaW5ldHlwZSA9ICJzb2xpZCINCiAgKSArDQogIGdlb21fcG9pbnQoDQogICAgYWVzKHkgPSBwaWVsb3UgKiBtYXhIX3JhdGlvKSwgDQogICAgY29sb3IgPSAiI0Q1NUUwMCIsIA0KICAgIHNpemUgPSAzLCANCiAgICBzaGFwZSA9IDE4DQogICkgKw0KICANCiAgIyBDb25maWd1cmFjacOzbiBkZWwgZ3LDoWZpY28NCiAgZmFjZXRfd3JhcCgNCiAgICB+IHRpcG8sIA0KICAgIHNjYWxlcyA9ICJmcmVlX3kiLCANCiAgICBuY29sID0gMSwNCiAgICBzdHJpcC5wb3NpdGlvbiA9ICJ0b3AiDQogICkgKw0KICBjb29yZF9mbGlwKCkgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMoDQogICAgbmFtZSA9ICLDjW5kaWNlIGRlIFNoYW5ub24gKEgpIiwNCiAgICBzZWMuYXhpcyA9IHNlY19heGlzKA0KICAgICAgfiAuIC8gbWF4SF9yYXRpbywgDQogICAgICBuYW1lID0gIsONbmRpY2UgZGUgUGllbG91IChKKSIsDQogICAgICBsYWJlbHMgPSBzY2FsZXM6Om51bWJlcl9mb3JtYXQoYWNjdXJhY3kgPSAwLjEpDQogICAgKSwNCiAgICBleHBhbmQgPSBleHBhbnNpb24obXVsdCA9IGMoMCwgMC4xNSkpDQogICkgKw0KICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKA0KICAgICJNYXlvciBkaXZlcnNpZGFkIChUb3AgMTApIiA9ICIjMWI5ZTc3IiwgDQogICAgIk1lbm9yIGRpdmVyc2lkYWQgKEJvdHRvbSAxMCkiID0gIiNkOTVmMDIiDQogICkpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJEaXZlcnNpZGFkIGRlIGVzdGFkb3MgZGUgY3VsbWluYWNpw7NuIGRlIHByb3llY3RvcyIsDQogICAgc3VidGl0bGUgPSAiQ29tdW5hcyBjb24gbWF5b3IgeSBtZW5vciBkaXZlcnNpZGFkIGVuIGVzdGFkb3MgZGUgcHJveWVjdG9zIChSYXRpbyBBQ0EpIiwNCiAgICB4ID0gIkNvbXVuYSAoSUQgLSBOb21icmUpIiwNCiAgICBjYXB0aW9uID0gIkZ1ZW50ZTogRWxhYm9yYWNpw7NuIHByb3BpYSAtIFByb3llY3RvcyBBQ0EgKDIwMjItMjAyNSlcbk5vdGE6IEJhcnJhcyA9IFNoYW5ub24gKEgpIGNvbiB2YWxvciBleHBvbmVuY2lhbCwgTMOtbmVhID0gUGllbG91IChKKSINCiAgKSArDQogIHRoZW1lX21pbmltYWwoYmFzZV9zaXplID0gMTEpICsgICMgQmFzZSBzaXplIHJlZHVjaWRvDQogIHRoZW1lKA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDE0LCBoanVzdCA9IDAuNSksICAjIFTDrXR1bG8gbcOhcyBwZXF1ZcOxbw0KICAgIHBsb3Quc3VidGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDExLCBjb2xvciA9ICJncmF5MzAiLCBoanVzdCA9IDAuNSksDQogICAgYXhpcy50aXRsZS55ID0gZWxlbWVudF90ZXh0KG1hcmdpbiA9IG1hcmdpbihyID0gMTUpKSwNCiAgICBheGlzLnRpdGxlLnggPSBlbGVtZW50X3RleHQobWFyZ2luID0gbWFyZ2luKHQgPSAxMCkpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSA4KSwgICMgVGV4dG8gZGVsIGVqZSBZIG3DoXMgcGVxdWXDsW8NCiAgICBwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiLCBzaXplID0gMTEsIGNvbG9yID0gIndoaXRlIiksDQogICAgc3RyaXAuYmFja2dyb3VuZCA9IGVsZW1lbnRfcmVjdChmaWxsID0gImdyYXkyNSIsIGNvbG9yID0gTkEpLA0KICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIiwNCiAgICBwYW5lbC5zcGFjaW5nID0gdW5pdCgxLCAibGluZXMiKSwNCiAgICBwbG90Lm1hcmdpbiA9IG1hcmdpbigxLCAyLCAxLCAxLCAiY20iKSAgIyBNYXJnZW4gZGVyZWNobyBhdW1lbnRhZG8NCiAgKQ0KDQojIEd1YXJkYXIgY29uIGRpbWVuc2lvbmVzIGVzcGVjw61maWNhcw0KZ2dzYXZlKCJyYXRpb19kaXZlcnNpdHlfcGxvdC5wbmciLCByYXRpb19wbG90LCB3aWR0aCA9IDE0LCBoZWlnaHQgPSAxMCwgZHBpID0gMzAwKQ0KcHJpbnQocmF0aW9fcGxvdCkNCmBgYA0KDQojIyAqKlZpc3VhbGl6YWNpw7NuIGRlIGxvcyByZXN1bHRhZG9zKioNCg0KYGBge3J9DQojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQojIEZVTkNJw5NOIFBBUkEgTElNUElBUiBFTCBFTlRPUk5PIChPUENJT05BTCkNCiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCmxpbXBpYXJfb2JqZXRvc19hbmFsaXNpcyA8LSBmdW5jdGlvbigpIHsNCiAgb2JqZXRvc19hX2xpbXBpYXIgPC0gYygiZGl2X2NvbWJpbmFkYSIsICJ0aXBvX2NvbXVuYV9zdGF0cyIsIA0KICAgICAgICAgICAgICAgICAgICAgICAgImRpdl9jZmdfY29uX3RpcG8iLCAiZGl2X2dvYl9jb25fdGlwbyIsICJkaXZfcmF0aW9fY29uX3RpcG8iKQ0KICBvYmpldG9zX2V4aXN0ZW50ZXMgPC0gb2JqZXRvc19hX2xpbXBpYXJbb2JqZXRvc19hX2xpbXBpYXIgJWluJSBscyhlbnZpciA9IC5HbG9iYWxFbnYpXQ0KICBpZihsZW5ndGgob2JqZXRvc19leGlzdGVudGVzKSA+IDApIHsNCiAgICBybShsaXN0ID0gb2JqZXRvc19leGlzdGVudGVzLCBlbnZpciA9IC5HbG9iYWxFbnYpDQogICAgY2F0KCJMaW1waWFkb3Mgb2JqZXRvczoiLCBwYXN0ZShvYmpldG9zX2V4aXN0ZW50ZXMsIGNvbGxhcHNlID0gIiwgIiksICJcbiIpDQogIH0NCn0NCg0KIyBFamVjdXRhciBzaSBxdWllcmVzIGxpbXBpYXIgKGRlc2NvbWVudGEgbGEgc2lndWllbnRlIGzDrW5lYSkNCiMgbGltcGlhcl9vYmpldG9zX2FuYWxpc2lzKCkNCg0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KIyBDTEFTSUZJQ0FDScOTTiBDT01QTEVUQSBZIENSRUFDScOTTiBERUwgVElQTyBERSBDT01VTkENCiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCmNyZWFyX21hcGFfY29tdW5hcyA8LSBmdW5jdGlvbihkZl9zb3VyY2UpIHsNCiAgIyBFc3RhIGZ1bmNpw7NuIGNyZWEgZWwgbWFwYSBkZSBjb211bmFzIGRlIGZvcm1hIGxpbXBpYSBjYWRhIHZleg0KICBtYXBhIDwtIGRmX3NvdXJjZSAlPiUNCiAgICBkaXN0aW5jdChJRF9DT01VTkEsIENPTVVOQSwgQ09EX0NDKSAlPiUNCiAgICBtdXRhdGUoDQogICAgICBDT01VTkEgPSBzdHJfdHJpbShDT01VTkEpLA0KICAgICAgVGlwb19Db211bmEgPSBjYXNlX3doZW4oDQogICAgICAgIHN0cl9kZXRlY3QoQ09EX0NDLCAiQy1VUkIiKSB+ICJVcmJhbmEiLA0KICAgICAgICBzdHJfZGV0ZWN0KENPRF9DQywgIkMtUlVSIikgfiAiUnVyYWwiLCANCiAgICAgICAgc3RyX2RldGVjdChDT0RfQ0MsICJDLU1JWCIpIH4gIk1peHRhIiwNCiAgICAgICAgc3RyX2RldGVjdChDT0RfQ0MsICJeXFxkezJ9LVxcZHsyfS1cXGR7NH0kIikgfiAiRW4gY29uc3RydWNjacOzbiIsDQogICAgICAgIHN0cl9kZXRlY3QoQ09EX0NDLCAiXlxcZHsyfS1cXGR7Mn0tXFxkezJ9IikgfiAiRW4gY29uc3RydWNjacOzbiIsDQogICAgICAgIHN0cl9kZXRlY3QoQ09EX0NDLCAiXkNFQyIpIH4gIkVuIGNvbnN0cnVjY2nDs24iLA0KICAgICAgICBUUlVFIH4gIk5vIGVzcGVjaWZpY2FkbyINCiAgICAgICkNCiAgICApDQogIA0KICByZXR1cm4obWFwYSkNCn0NCg0KIyBWZXJpZmljYXIgZGlzdHJpYnVjacOzbg0KdGFibGUoY29tbXVuZV9tYXAkVGlwb19Db211bmEpDQoNCiMgQ3JlYXIgZWwgbWFwYSBkZSBjb211bmFzIGZyZXNjbyBjYWRhIHZleg0KY29tbXVuZV9tYXAgPC0gY3JlYXJfbWFwYV9jb211bmFzKGRmX3JhdykNCg0KIyBWZXJpZmljYXIgZGlzdHJpYnVjacOzbg0KY2F0KCJEaXN0cmlidWNpw7NuIGRlIHRpcG9zIGRlIGNvbXVuYTpcbiIpDQpwcmludCh0YWJsZShjb21tdW5lX21hcCRUaXBvX0NvbXVuYSkpDQoNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBBTsOBTElTSVMgSU5URUdSQUwgw41ORElDRSBTSEFOTk9OIC0gUE9Mw41USUNBUyBQw5pCTElDQVMgQUNBDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCiMgUEFMRVRBIERFIENPTE9SRVMgWSBURU1BIENPTcOaTg0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KY29sb3Jlc19jb211bmEgPC0gYygNCiAgIlVyYmFuYSIgPSAiIzJFODZBQiIsICAgICAgICAgICAjIEF6dWwgLSBkZW5zaWRhZCB1cmJhbmENCiAgIlJ1cmFsIiA9ICIjQTIzQjcyIiwgICAgICAgICAgICAjIE1hZ2VudGEgLSBydXJhbGlkYWQNCiAgIk1peHRhIiA9ICIjRjE4RjAxIiwgICAgICAgICAgICAjIE5hcmFuamEgLSBjb21iaW5hY2nDs24NCiAgIkVuIGNvbnN0cnVjY2nDs24iID0gIiNDNzNFMUQiLCAgICMgUm9qbyAtIGRlc2Fycm9sbG8NCiAgIk5vIGVzcGVjaWZpY2FkbyIgPSAiIzdEODQ5MSIgICAgIyBHcmlzIC0gc2luIGNsYXNpZmljYXINCikNCg0KdGVtYV9jb211biA8LSB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZSgNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxNiwgaGp1c3QgPSAwLjUsIGNvbG9yID0gIiMyRTg2QUIiKSwNCiAgICBwbG90LnN1YnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMiwgY29sb3IgPSAiZ3JheTQwIiwgaGp1c3QgPSAwLjUpLA0KICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X3RleHQoZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDExKSwNCiAgICBheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDQ1LCBoanVzdCA9IDEsIHNpemUgPSAxMCksDQogICAgbGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIsDQogICAgc3RyaXAudGV4dCA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiLCBzaXplID0gMTEsIGNvbG9yID0gIiMyRTg2QUIiKSwNCiAgICBzdHJpcC5iYWNrZ3JvdW5kID0gZWxlbWVudF9yZWN0KGZpbGwgPSAiZ3JheTk1IiwgY29sb3IgPSAid2hpdGUiKSwNCiAgICBwYW5lbC5ib3JkZXIgPSBlbGVtZW50X3JlY3QoY29sb3IgPSAiZ3JheTkwIiwgZmlsbCA9IE5BKSwNCiAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoZmFjZSA9ICJib2xkIikNCiAgKQ0KDQojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQojIFBSRVBBUkFDScOTTiBERSBEQVRPUw0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KIyBDcmVhciBtYXBhIGRlIGNvbXVuYXMNCmNvbW11bmVfbWFwIDwtIGRmX3JhdyAlPiUNCiAgZGlzdGluY3QoSURfQ09NVU5BLCBDT01VTkEsIENPRF9DQykgJT4lDQogIG11dGF0ZSgNCiAgICBDT01VTkEgPSBzdHJfdHJpbShDT01VTkEpLA0KICAgIFRpcG9fQ29tdW5hID0gY2FzZV93aGVuKA0KICAgICAgc3RyX2RldGVjdChDT0RfQ0MsICJDLVVSQiIpIH4gIlVyYmFuYSIsDQogICAgICBzdHJfZGV0ZWN0KENPRF9DQywgIkMtUlVSIikgfiAiUnVyYWwiLCANCiAgICAgIHN0cl9kZXRlY3QoQ09EX0NDLCAiQy1NSVgiKSB+ICJNaXh0YSIsDQogICAgICBzdHJfZGV0ZWN0KENPRF9DQywgIl5cXGR7Mn0tXFxkezJ9LVxcZHs0fSQiKSB+ICJFbiBjb25zdHJ1Y2Npw7NuIiwNCiAgICAgIHN0cl9kZXRlY3QoQ09EX0NDLCAiXlxcZHsyfS1cXGR7Mn0tXFxkezJ9IikgfiAiRW4gY29uc3RydWNjacOzbiIsDQogICAgICBzdHJfZGV0ZWN0KENPRF9DQywgIl5DRUMiKSB+ICJFbiBjb25zdHJ1Y2Npw7NuIiwNCiAgICAgIFRSVUUgfiAiTm8gZXNwZWNpZmljYWRvIg0KICAgICkNCiAgKQ0KDQojIEFncmVnYXIgdGlwbyBkZSBjb211bmEgYSBjYWRhIGRhdGFzZXQNCmRpdl9jZmdfY29uX3RpcG8gPC0gZGl2X2NmZyAlPiUNCiAgc2VsZWN0KC1jb250YWlucygiVGlwb19Db211bmEiKSkgJT4lDQogIGxlZnRfam9pbihjb21tdW5lX21hcCAlPiUgc2VsZWN0KElEX0NPTVVOQSwgVGlwb19Db211bmEpLCBieSA9ICJJRF9DT01VTkEiKQ0KDQpkaXZfZ29iX2Nvbl90aXBvIDwtIGRpdl9nb2IgJT4lDQogIHNlbGVjdCgtY29udGFpbnMoIlRpcG9fQ29tdW5hIikpICU+JQ0KICBsZWZ0X2pvaW4oY29tbXVuZV9tYXAgJT4lIHNlbGVjdChJRF9DT01VTkEsIFRpcG9fQ29tdW5hKSwgYnkgPSAiSURfQ09NVU5BIikNCg0KZGl2X3JhdGlvX2Nvbl90aXBvIDwtIGRpdl9yYXRpbyAlPiUNCiAgc2VsZWN0KC1jb250YWlucygiVGlwb19Db211bmEiKSkgJT4lDQogIGxlZnRfam9pbihjb21tdW5lX21hcCAlPiUgc2VsZWN0KElEX0NPTVVOQSwgVGlwb19Db211bmEpLCBieSA9ICJJRF9DT01VTkEiKQ0KDQojIENvbWJpbmFyIGRhdGFzZXRzDQpkaXZfY29tYmluYWRhIDwtIGJpbmRfcm93cygNCiAgZGl2X2NmZ19jb25fdGlwbyAlPiUNCiAgICBzZWxlY3QoQ09NVU5BX0lEX05PTUJSRSwgbl9wcm95ZWN0b3MsIEhfc2hhbm5vbiwgcGllbG91LCBUaXBvX0NvbXVuYSkgJT4lDQogICAgbXV0YXRlKFRpcG9fQW5hbGlzaXMgPSAiQ0ZHIiksDQogIA0KICBkaXZfZ29iX2Nvbl90aXBvICU+JQ0KICAgIHNlbGVjdChDT01VTkFfSURfTk9NQlJFLCBuX3Byb3llY3RvcywgSF9zaGFubm9uLCBwaWVsb3UsIFRpcG9fQ29tdW5hKSAlPiUNCiAgICBtdXRhdGUoVGlwb19BbmFsaXNpcyA9ICJHb2Jlcm5hY2nDs24iKSwNCiAgDQogIGRpdl9yYXRpb19jb25fdGlwbyAlPiUNCiAgICBzZWxlY3QoQ09NVU5BX0lEX05PTUJSRSwgbl9wcm95ZWN0b3MgPSBuX3Byb3llY3Rvc19yYXRpbywgSF9zaGFubm9uLCBwaWVsb3UsIFRpcG9fQ29tdW5hKSAlPiUNCiAgICBtdXRhdGUoVGlwb19BbmFsaXNpcyA9ICJSYXRpbyBBQ0EiKQ0KKSAlPiUNCiAgbXV0YXRlKA0KICAgIFNoYW5ub25fQ2F0ZWdvcmlhID0gY2FzZV93aGVuKA0KICAgICAgSF9zaGFubm9uIDwgMC41IH4gIk11eSBCYWphIiwNCiAgICAgIEhfc2hhbm5vbiA8IDEuMCB+ICJCYWphIiwgDQogICAgICBIX3NoYW5ub24gPCAxLjUgfiAiTWVkaWEiLA0KICAgICAgSF9zaGFubm9uID49IDEuNSB+ICJBbHRhIg0KICAgICksDQogICAgRWZpY2llbmNpYSA9IEhfc2hhbm5vbiAvIChuX3Byb3llY3RvcyArIDAuMSkNCiAgKSAlPiUNCiAgZmlsdGVyKCFpcy5uYShIX3NoYW5ub24pLCAhaXMubmEoVGlwb19Db211bmEpLCBpcy5maW5pdGUoSF9zaGFubm9uKSkNCg0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KIyBFU1RBRMONU1RJQ0FTIERFU0NSSVBUSVZBUw0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0Kc3RhdHNfc2hhbm5vbiA8LSBkaXZfY29tYmluYWRhICU+JQ0KICBncm91cF9ieShUaXBvX0FuYWxpc2lzLCBUaXBvX0NvbXVuYSkgJT4lDQogIHN1bW1hcmlzZSgNCiAgICBuID0gbigpLA0KICAgIG1lYW5fc2hhbm5vbiA9IG1lYW4oSF9zaGFubm9uLCBuYS5ybSA9IFRSVUUpLA0KICAgIHNkX3NoYW5ub24gPSBzZChIX3NoYW5ub24sIG5hLnJtID0gVFJVRSksDQogICAgbWVkaWFuX3NoYW5ub24gPSBtZWRpYW4oSF9zaGFubm9uLCBuYS5ybSA9IFRSVUUpLA0KICAgIHNlID0gc2Rfc2hhbm5vbiAvIHNxcnQobiksDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApICU+JQ0KICBmaWx0ZXIobiA+PSAyKQ0KDQojIE1vc3RyYXIgdGFibGEgZGUgZXN0YWTDrXN0aWNhcw0Ka2FibGUoc3RhdHNfc2hhbm5vbiwNCiAgICAgIGNhcHRpb24gPSAiRXN0YWTDrXN0aWNhcyBkZWwgw41uZGljZSBTaGFubm9uIHBvciBUaXBvIGRlIENvbXVuYSB5IEFuw6FsaXNpcyIsDQogICAgICBkaWdpdHMgPSAzKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSkNCg0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KIyBHUsOBRklDT1MNCiMgLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCg0KIyAxLiBEaXN0cmlidWNpw7NuIFNoYW5ub24NCmdyYWZpY29fMV9kaXN0cmlidWNpb24gPC0gZ2dwbG90KGRpdl9jb21iaW5hZGEsIGFlcyh4ID0gVGlwb19Db211bmEsIHkgPSBIX3NoYW5ub24sIGZpbGwgPSBUaXBvX0NvbXVuYSkpICsNCiAgZ2VvbV92aW9saW4oYWxwaGEgPSAwLjcsIHRyaW0gPSBGQUxTRSwgY29sb3IgPSAid2hpdGUiLCBsaW5ld2lkdGggPSAwLjgpICsNCiAgZ2VvbV9ib3hwbG90KHdpZHRoID0gMC4yLCBmaWxsID0gIndoaXRlIiwgb3V0bGllci5jb2xvdXIgPSAiIzJFODZBQiIsIA0KICAgICAgICAgICAgICAgb3V0bGllci5zaXplID0gMiwgY29sb3IgPSAiYmxhY2siLCBsaW5ld2lkdGggPSAwLjUpICsNCiAgZ2VvbV9qaXR0ZXIoYWVzKGNvbG9yID0gVGlwb19Db211bmEpLCB3aWR0aCA9IDAuMTUsIHNpemUgPSAxLjgsIGFscGhhID0gMC42KSArDQogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGNvbG9yZXNfY29tdW5hLCBuYW1lID0gIlRpcG8gZGUgQ29tdW5hIikgKw0KICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gY29sb3Jlc19jb211bmEsIG5hbWUgPSAiVGlwbyBkZSBDb211bmEiKSArDQogIGZhY2V0X3dyYXAofiBUaXBvX0FuYWxpc2lzLCBzY2FsZXMgPSAiZnJlZV95IikgKw0KICBsYWJzKA0KICAgIHRpdGxlID0gIkRpc3RyaWJ1Y2nDs24gZGVsIMONbmRpY2UgZGUgU2hhbm5vbiBwb3IgVGlwbyBkZSBDb211bmEiLA0KICAgIHN1YnRpdGxlID0gIkFuw6FsaXNpcyBkZSBkaXZlcnNpZGFkIGVuIEFnZW5kYXMgQ29uY3JldGFzIGRlIEFjY2nDs24gLSBNw6lyaWRhLCBWZW5lenVlbGEiLA0KICAgIHkgPSAiw41uZGljZSBkZSBTaGFubm9uIChIJykiLCANCiAgICB4ID0gIlRpcG8gZGUgQ29tdW5hIiwNCiAgICBjYXB0aW9uID0gIkVsYWJvcmFkbyBwb3I6IFdpbGxpYW0gR3V0acOpcnJleiINCiAgKSArDQogIHRlbWFfY29tdW4NCg0KcHJpbnQoZ3JhZmljb18xX2Rpc3RyaWJ1Y2lvbikNCg0KIyAyLiBSZWxhY2nDs24gcHJveWVjdG9zLVNoYW5ub24NCmdyYWZpY29fMl9yZWxhY2lvbiA8LSBnZ3Bsb3QoZGl2X2NvbWJpbmFkYSwgYWVzKHggPSBuX3Byb3llY3RvcywgeSA9IEhfc2hhbm5vbikpICsNCiAgZ2VvbV9wb2ludChhZXMoY29sb3IgPSBUaXBvX0NvbXVuYSksIHNpemUgPSAzLCBhbHBoYSA9IDAuNykgKw0KICBnZW9tX3Ntb290aChtZXRob2QgPSAibG9lc3MiLCBzZSA9IFRSVUUsIGNvbG9yID0gIiMyRTg2QUIiLCANCiAgICAgICAgICAgICAgZmlsbCA9ICIjMkU4NkFCIiwgYWxwaGEgPSAwLjIsIGxpbmV3aWR0aCA9IDEuMikgKw0KICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gY29sb3Jlc19jb211bmEsIG5hbWUgPSAiVGlwbyBkZSBDb211bmEiKSArDQogIGZhY2V0X3dyYXAofiBUaXBvX0FuYWxpc2lzLCBzY2FsZXMgPSAiZnJlZSIpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJSZWxhY2nDs24gZW50cmUgTsO6bWVybyBkZSBQcm95ZWN0b3MgeSBEaXZlcnNpZGFkIFNoYW5ub24iLA0KICAgIHN1YnRpdGxlID0gIkFuw6FsaXNpcyBkZSBjb3JyZWxhY2nDs24gZW4gcG9sw610aWNhcyBBQ0EiLA0KICAgIHggPSAiTsO6bWVybyBkZSBQcm95ZWN0b3MiLA0KICAgIHkgPSAiw41uZGljZSBkZSBTaGFubm9uIChIJykiLA0KICAgIGNhcHRpb24gPSAiRWxhYm9yYWRvIHBvcjogV2lsbGlhbSBHdXRpw6lycmV6Ig0KICApICsNCiAgdGVtYV9jb211bg0KDQpwcmludChncmFmaWNvXzJfcmVsYWNpb24pDQoNCiMgMy4gQ29tcGFyYXRpdmEgZGUgbWVkaWFzIGNvbiBpbnRlcnZhbG9zIGRlIGNvbmZpYW56YQ0KZ3JhZmljb18zX2NvbXBhcmF0aXZhIDwtIGdncGxvdChzdGF0c19zaGFubm9uLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhZXMoeCA9IHJlb3JkZXIoVGlwb19Db211bmEsIG1lYW5fc2hhbm5vbiksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB5ID0gbWVhbl9zaGFubm9uLCBmaWxsID0gVGlwb19Db211bmEpKSArDQogIGdlb21fY29sKGFscGhhID0gMC44LCBjb2xvciA9ICJ3aGl0ZSIsIGxpbmV3aWR0aCA9IDAuOCkgKw0KICBnZW9tX2Vycm9yYmFyKGFlcyh5bWluID0gcG1heCgwLCBtZWFuX3NoYW5ub24gLSBzZSksIA0KICAgICAgICAgICAgICAgICAgICB5bWF4ID0gbWVhbl9zaGFubm9uICsgc2UpLCANCiAgICAgICAgICAgICAgICB3aWR0aCA9IDAuMywgY29sb3IgPSAiYmxhY2siLCBsaW5ld2lkdGggPSAwLjgpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHNwcmludGYoIiUuMmYiLCBtZWFuX3NoYW5ub24pKSwgDQogICAgICAgICAgICB2anVzdCA9IC0xLjUsIHNpemUgPSA0LCBmb250ZmFjZSA9ICJib2xkIiwgY29sb3IgPSAiIzJFODZBQiIpICsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gY29sb3Jlc19jb211bmEsIG5hbWUgPSAiVGlwbyBkZSBDb211bmEiKSArDQogIGZhY2V0X3dyYXAofiBUaXBvX0FuYWxpc2lzLCBzY2FsZXMgPSAiZnJlZV95IikgKw0KICBsYWJzKA0KICAgIHRpdGxlID0gIsONbmRpY2UgZGUgU2hhbm5vbiBQcm9tZWRpbyBwb3IgVGlwbyBkZSBDb211bmEiLA0KICAgIHN1YnRpdGxlID0gIkJhcnJhcyBkZSBlcnJvciByZXByZXNlbnRhbiBlcnJvciBlc3TDoW5kYXIgZGUgbGEgbWVkaWEiLA0KICAgIHggPSAiVGlwbyBkZSBDb211bmEiLA0KICAgIHkgPSAiU2hhbm5vbiBQcm9tZWRpbyAoSCcpIiwNCiAgICBjYXB0aW9uID0gIkVsYWJvcmFkbyBwb3I6IFdpbGxpYW0gR3V0acOpcnJleiINCiAgKSArDQogIHRlbWFfY29tdW4NCg0KcHJpbnQoZ3JhZmljb18zX2NvbXBhcmF0aXZhKQ0KDQojIDQuIEhlYXRtYXAgZGUgZnJlY3VlbmNpYXMNCmRhdG9zX2hlYXRtYXAgPC0gZGl2X2NvbWJpbmFkYSAlPiUNCiAgZmlsdGVyKFRpcG9fQW5hbGlzaXMgJWluJSBjKCJDRkciLCAiR29iZXJuYWNpw7NuIikpICU+JQ0KICBjb3VudChUaXBvX0FuYWxpc2lzLCBUaXBvX0NvbXVuYSwgU2hhbm5vbl9DYXRlZ29yaWEpICU+JQ0KICBjb21wbGV0ZShUaXBvX0FuYWxpc2lzLCBUaXBvX0NvbXVuYSwgU2hhbm5vbl9DYXRlZ29yaWEsIGZpbGwgPSBsaXN0KG4gPSAwKSkNCg0KZ3JhZmljb180X2hlYXRtYXAgPC0gZ2dwbG90KGRhdG9zX2hlYXRtYXAsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgYWVzKHggPSBTaGFubm9uX0NhdGVnb3JpYSwgeSA9IFRpcG9fQ29tdW5hLCBmaWxsID0gbikpICsNCiAgZ2VvbV90aWxlKGNvbG9yID0gIndoaXRlIiwgbGluZXdpZHRoID0gMC44KSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBuLCANCiAgICAgICAgICAgICAgICBjb2xvciA9IGlmZWxzZShuID49IG1heChuKS8yLCAid2hpdGUiLCAiYmxhY2siKSksIA0KICAgICAgICAgICAgZm9udGZhY2UgPSAiYm9sZCIsIHNpemUgPSA0KSArDQogIHNjYWxlX2ZpbGxfZ3JhZGllbnQoDQogICAgbG93ID0gIiNDNkRCRUYiLCAgICAjIEF6dWwgY2xhcm8NCiAgICBoaWdoID0gIiMwODUxOUMiLCAgICMgQXp1bCBvc2N1cm8NCiAgICBuYW1lID0gIkZyZWN1ZW5jaWEiDQogICkgKw0KICBzY2FsZV9jb2xvcl9pZGVudGl0eSgpICsNCiAgZmFjZXRfd3JhcCh+IFRpcG9fQW5hbGlzaXMpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJEaXN0cmlidWNpw7NuIGRlIEZyZWN1ZW5jaWFzOiBUaXBvIENvbXVuYSB2cy4gU2hhbm5vbiIsDQogICAgc3VidGl0bGUgPSAiTWFwYSBkZSBjYWxvciBwYXJhIGFuw6FsaXNpcyBDRkcgeSBHb2Jlcm5hY2nDs24iLA0KICAgIHggPSAiQ2F0ZWdvcsOtYSBTaGFubm9uIiwNCiAgICB5ID0gIlRpcG8gZGUgQ29tdW5hIiwNCiAgICBjYXB0aW9uID0gIkVsYWJvcmFkbyBwb3I6IFdpbGxpYW0gR3V0acOpcnJleiINCiAgKSArDQogIHRlbWFfY29tdW4NCg0KcHJpbnQoZ3JhZmljb180X2hlYXRtYXApDQoNCiMgNS4gw41uZGljZSBkZSBQaWVsb3UgdnMgU2hhbm5vbg0KZ3JhZmljb181X3BpZWxvdSA8LSBnZ3Bsb3QoZGl2X2NvbWJpbmFkYSwgYWVzKHggPSBuX3Byb3llY3RvcywgeSA9IEhfc2hhbm5vbikpICsNCiAgZ2VvbV9wb2ludChhZXMoY29sb3IgPSBUaXBvX0NvbXVuYSksIHNpemUgPSAzLCBhbHBoYSA9IDAuNykgKw0KICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBzZSA9IFRSVUUsIGNvbG9yID0gIiMyRTg2QUIiLCANCiAgICAgICAgICAgICAgZmlsbCA9ICIjMkU4NkFCIiwgYWxwaGEgPSAwLjIsIGxpbmV3aWR0aCA9IDEuMikgKw0KICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gY29sb3Jlc19jb211bmEsIG5hbWUgPSAiVGlwbyBkZSBDb211bmEiKSArDQogIGZhY2V0X3dyYXAofiBUaXBvX0FuYWxpc2lzKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSAiUmVsYWNpw7NuIGVudHJlIE7Dum1lcm8gZGUgUHJveWVjdG9zIHkgU2hhbm5vbiIsDQogICAgc3VidGl0bGUgPSAiQW7DoWxpc2lzIGRlIHByb3llY3RvcyB5IGRpdmVyc2lkYWQgZW4gQUNBIiwNCiAgICB4ID0gIk7Dum1lcm8gZGUgUHJveWVjdG9zIiwNCiAgICB5ID0gIsONbmRpY2UgZGUgU2hhbm5vbiAoSCcpIiwNCiAgICBjYXB0aW9uID0gIkVsYWJvcmFkbyBwb3I6IFdpbGxpYW0gR3V0acOpcnJleiINCiAgKSArDQogIHRlbWFfY29tdW4NCg0KcHJpbnQoZ3JhZmljb181X3BpZWxvdSkNCg0KYGBgDQoNCiMjICoqQXBsaWNhY2nDs24gZGUgbm9ybWFsaWRhZCoqDQoNCmBgYHtyfQ0KIyMgUHJlcGFyYWNpw7NuIGRlIGxvcyBkYXRvcw0KICMgRWxpbWluYXIgdmFsb3JlcyBudWxvcyBzaSBlcyBuZWNlc2FyaW8NCmRmX2NsZWFuIDwtIGRmX3JhdyAlPiUgZmlsdGVyKCFpcy5uYShuX3Byb3llY3RvcykgJiAhaXMubmEoUExBWk9TKSAmICFpcy5uYShDTEFTSUZJQ0FDSU9OX0RFTF9QUk9ZRUNUTykmICFpcy5uYShSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPKSYgIWlzLm5hKENsYXNpZmljYWNpb25fQWN0b3Jlc19pbnN0aXR1Y2lvbmFsZXMpJiAhaXMubmEoVElQT0xPR0lBX0NGR19OVU0pJiAhaXMubmEoR09CRVJOQUNJT05fTlVNKSkNCg0KIyBGdW5jacOzbiBwYXJhIGNyZWFyIHVuIHBhbmVsIGRlIGRpYWduw7NzdGljbyBkZSBub3JtYWxpZGFkDQpjcmVhdGVfbm9ybWFsaXR5X2RpYWdub3N0aWMgPC0gZnVuY3Rpb24oZGF0YSwgdmFyaWFibGUsIHZhcmlhYmxlX25hbWUpIHsNCiAgIyBEYXRvcyBwYXJhIGxhIHZhcmlhYmxlDQogIHggPC0gZGF0YVtbdmFyaWFibGVdXQ0KICANCiAgIyBIaXN0b2dyYW1hIGNvbiBjdXJ2YSBkZSBkZW5zaWRhZA0KICBwMSA8LSBnZ3Bsb3QoZGF0YSwgYWVzX3N0cmluZyh4ID0gdmFyaWFibGUpKSArDQogICAgZ2VvbV9oaXN0b2dyYW0oYWVzKHkgPSAuLmRlbnNpdHkuLiksIGJpbnMgPSAzMCwgZmlsbCA9ICJsaWdodGJsdWUiLCBjb2xvciA9ICJibGFjayIsIGFscGhhID0gMC43KSArDQogICAgZ2VvbV9kZW5zaXR5KGNvbG9yID0gInJlZCIsIGxpbmV3aWR0aCA9IDEpICsNCiAgICBzdGF0X2Z1bmN0aW9uKGZ1biA9IGRub3JtLCANCiAgICAgICAgICAgICAgICAgYXJncyA9IGxpc3QobWVhbiA9IG1lYW4oeCwgbmEucm0gPSBUUlVFKSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICBzZCA9IHNkKHgsIG5hLnJtID0gVFJVRSkpLA0KICAgICAgICAgICAgICAgICBjb2xvciA9ICJibHVlIiwgbGluZXdpZHRoID0gMSwgbGluZXR5cGUgPSAiZGFzaGVkIikgKw0KICAgIGxhYnModGl0bGUgPSBwYXN0ZSgiSGlzdG9ncmFtYSB5IERlbnNpZGFkIC0iLCB2YXJpYWJsZV9uYW1lKSwNCiAgICAgICAgIHggPSB2YXJpYWJsZV9uYW1lLCB5ID0gIkRlbnNpZGFkIikgKw0KICAgIHRoZW1lX21pbmltYWwoKQ0KICANCiAgIyBRLVEgcGxvdA0KICBwMiA8LSBnZ3Bsb3QoZGF0YSwgYWVzKHNhbXBsZSA9IHgpKSArDQogICAgc3RhdF9xcSgpICsNCiAgICBzdGF0X3FxX2xpbmUoY29sb3IgPSAicmVkIikgKw0KICAgIGxhYnModGl0bGUgPSBwYXN0ZSgiUS1RIFBsb3QgLSIsIHZhcmlhYmxlX25hbWUpKSArDQogICAgdGhlbWVfbWluaW1hbCgpDQogIA0KICAjIENvbWJpbmFyIGxvcyBncsOhZmljb3MNCiAgZ3JpZEV4dHJhOjpncmlkLmFycmFuZ2UocDEsIHAyLCBuY29sID0gMikNCn0NCg0KIyBMaXN0YSBkZSB2YXJpYWJsZXMgcGFyYSBhbmFsaXphcg0KdmFyaWFibGVzX3RvX2FuYWx5emUgPC0gbGlzdCgNCiAgIm5fcHJveWVjdG9zIiA9ICJOw7ptZXJvIGRlIFByb3llY3RvcyIsDQogICJSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPIiA9ICJSYXRpbyBBQ0EiLA0KICAiVElQT0xPR0lBX0NGR19OVU0iID0gIlRpcG9sb2fDrWEgQ0ZHIiwNCiAgIkdPQkVSTkFDSU9OX05VTSIgPSAiR29iZXJuYWNpw7NuIiwNCiAgIlBMQVpPUyIgPSAiUGxhem9zIiwNCiAgIkNMQVNJRklDQUNJT05fREVMX1BST1lFQ1RPIiA9ICJDbGFzaWZpY2FjacOzbiBkZWwgUHJveWVjdG8iLA0KICAiQ2xhc2lmaWNhY2lvbl9BY3RvcmVzX2luc3RpdHVjaW9uYWxlcyIgPSAiQWN0b3JlcyBJbnN0aXR1Y2lvbmFsZXMiDQopDQoNCiMgQ3JlYXIgdW4gcGFuZWwgcGFyYSBjYWRhIHZhcmlhYmxlDQpmb3IodmFyIGluIG5hbWVzKHZhcmlhYmxlc190b19hbmFseXplKSkgew0KICBjYXQoIlxuXG5BbsOhbGlzaXMgZGUgbm9ybWFsaWRhZCBwYXJhOiIsIHZhcmlhYmxlc190b19hbmFseXplW1t2YXJdXSwgIlxuIikNCiAgcHJpbnQoY3JlYXRlX25vcm1hbGl0eV9kaWFnbm9zdGljKGRmX2NsZWFuLCB2YXIsIHZhcmlhYmxlc190b19hbmFseXplW1t2YXJdXSkpDQogIA0KICAjIEltcHJpbWlyIHJlc3VsdGFkb3MgZGVsIHRlc3QgZGUgU2hhcGlyby1XaWxrDQogIHN3X3Rlc3QgPC0gc2hhcGlyby50ZXN0KGRmX2NsZWFuW1t2YXJdXSkNCiAgY2F0KCJcblRlc3QgZGUgU2hhcGlyby1XaWxrOlxuIikNCiAgY2F0KCJXID0iLCByb3VuZChzd190ZXN0JHN0YXRpc3RpYywgNCksICJcbiIpDQogIGNhdCgicC12YWx1ZSA9IiwgZm9ybWF0LnB2YWwoc3dfdGVzdCRwLnZhbHVlLCBkaWdpdHMgPSA0KSwgIlxuIikNCiAgY2F0KCItLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVxuIikNCn0NCg0KIyBQcmVwYXJhciBlbCBlc3BhY2lvIHBhcmEgbcO6bHRpcGxlcyBncsOhZmljb3MNCnBhcihtZnJvdyA9IGMoMiwgNCkpICAjIDIgZmlsYXMgeCA0IGNvbHVtbmFzIHBhcmEgYWNvbW9kYXIgdG9kb3MgbG9zIFEtUSBwbG90cw0KDQojIENyZWFyIFEtUSBwbG90cyBwYXJhIGNhZGEgdmFyaWFibGUgY29uIHTDrXR1bG9zIGRlc2NyaXB0aXZvcw0KcXFub3JtKGRmX2NsZWFuJG5fcHJveWVjdG9zLCBtYWluPSJRLVEgUGxvdDogTsKwIFByb3llY3RvcyIsDQogICAgICAgY29sID0gImJsdWUiLCBwY2ggPSAxOSkNCnFxbGluZShkZl9jbGVhbiRuX3Byb3llY3RvcywgY29sID0gInJlZCIpDQoNCnFxbm9ybShkZl9jbGVhbiRSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPLCBtYWluPSJRLVEgUGxvdDogUmF0aW8gQUNBIiwNCiAgICAgICBjb2wgPSAiZ3JlZW40IiwgcGNoID0gMTkpDQpxcWxpbmUoZGZfY2xlYW4kUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETywgY29sID0gInJlZCIpDQoNCnFxbm9ybShkZl9jbGVhbiRUSVBPTE9HSUFfQ0ZHX05VTSwgbWFpbj0iUS1RIFBsb3Q6IFRpcG9sb2fDrWEgQ0ZHIiwNCiAgICAgICBjb2wgPSAicHVycGxlIiwgcGNoID0gMTkpDQpxcWxpbmUoZGZfY2xlYW4kVElQT0xPR0lBX0NGR19OVU0sIGNvbCA9ICJyZWQiKQ0KDQpxcW5vcm0oZGZfY2xlYW4kR09CRVJOQUNJT05fTlVNLCBtYWluPSJRLVEgUGxvdDogR29iZXJuYWNpw7NuIiwNCiAgICAgICBjb2wgPSAib3JhbmdlIiwgcGNoID0gMTkpDQpxcWxpbmUoZGZfY2xlYW4kR09CRVJOQUNJT05fTlVNLCBjb2wgPSAicmVkIikNCg0KcXFub3JtKGRmX2NsZWFuJFBMQVpPUywgbWFpbj0iUS1RIFBsb3Q6IFBsYXpvcyIsDQogICAgICAgY29sID0gImJyb3duIiwgcGNoID0gMTkpDQpxcWxpbmUoZGZfY2xlYW4kUExBWk9TLCBjb2wgPSAicmVkIikNCg0KcXFub3JtKGRmX2NsZWFuJENMQVNJRklDQUNJT05fREVMX1BST1lFQ1RPLCBtYWluPSJRLVEgUGxvdDogQ2xhc2lmaWNhY2nDs24iLA0KICAgICAgIGNvbCA9ICJkYXJrZ3JlZW4iLCBwY2ggPSAxOSkNCnFxbGluZShkZl9jbGVhbiRDTEFTSUZJQ0FDSU9OX0RFTF9QUk9ZRUNUTywgY29sID0gInJlZCIpDQoNCnFxbm9ybShkZl9jbGVhbiRDbGFzaWZpY2FjaW9uX0FjdG9yZXNfaW5zdGl0dWNpb25hbGVzLCANCiAgICAgICBtYWluPSJRLVEgUGxvdDogQWN0b3JlcyBJbnN0aXR1Y2lvbmFsZXMiLA0KICAgICAgIGNvbCA9ICJkYXJrYmx1ZSIsIHBjaCA9IDE5KQ0KcXFsaW5lKGRmX2NsZWFuJENsYXNpZmljYWNpb25fQWN0b3Jlc19pbnN0aXR1Y2lvbmFsZXMsIGNvbCA9ICJyZWQiKQ0KDQojIFJlc3RhdXJhciBsYSBjb25maWd1cmFjacOzbiBvcmlnaW5hbCBkZSBncsOhZmljb3MNCnBhcihtZnJvdyA9IGMoMSwgMSkpDQoNCiMgUmVzdW1lbiBlc3RhZMOtc3RpY28gZGUgbGFzIHBydWViYXMgZGUgbm9ybWFsaWRhZA0Kbm9ybWFsaXR5X3N1bW1hcnkgPC0gZGF0YS5mcmFtZSgNCiAgVmFyaWFibGUgPSBuYW1lcyh2YXJpYWJsZXNfdG9fYW5hbHl6ZSksDQogIFdfc3RhdGlzdGljID0gc2FwcGx5KG5hbWVzKHZhcmlhYmxlc190b19hbmFseXplKSwgDQogICAgICAgICAgICAgICAgICAgICAgZnVuY3Rpb24oeCkgc2hhcGlyby50ZXN0KGRmX2NsZWFuW1t4XV0pJHN0YXRpc3RpYyksDQogIHBfdmFsdWUgPSBzYXBwbHkobmFtZXModmFyaWFibGVzX3RvX2FuYWx5emUpLCANCiAgICAgICAgICAgICAgICAgICBmdW5jdGlvbih4KSBzaGFwaXJvLnRlc3QoZGZfY2xlYW5bW3hdXSkkcC52YWx1ZSkNCikgJT4lDQogIG11dGF0ZSgNCiAgICBOb3JtYWxpZGFkID0gaWZlbHNlKHBfdmFsdWUgPCAwLjA1LCAiTm8gTm9ybWFsIiwgIk5vcm1hbCIpLA0KICAgIFZhcmlhYmxlX05hbWUgPSB1bmxpc3QodmFyaWFibGVzX3RvX2FuYWx5emUpDQogICkNCg0KIyBNb3N0cmFyIHRhYmxhIHJlc3VtZW4NCmthYmxlKG5vcm1hbGl0eV9zdW1tYXJ5ICU+JSANCiAgICAgICAgc2VsZWN0KFZhcmlhYmxlX05hbWUsIFdfc3RhdGlzdGljLCBwX3ZhbHVlLCBOb3JtYWxpZGFkKSwNCiAgICAgIGNvbC5uYW1lcyA9IGMoIlZhcmlhYmxlIiwgIkVzdGFkw61zdGljbyBXIiwgIlZhbG9yIHAiLCAiQ29uY2x1c2nDs24iKSwNCiAgICAgIGNhcHRpb24gPSAiUmVzdW1lbiBkZSBQcnVlYmFzIGRlIE5vcm1hbGlkYWQgU2hhcGlyby1XaWxrIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIikpDQpgYGANCiAgDQogIExvcyByZXN1bHRhZG9zIGRlIGxhIHBydWViYSBkZSBub3JtYWxpZGFkIFNoYXBpcm8tV2lsayBpbmRpY2FuIHF1ZSB0b2RhcyBsYXMgdmFyaWFibGVzIGNsYXZlIGRlbCBjb25qdW50byBkZSBkYXRvcyBubyBzaWd1ZW4gdW5hIGRpc3RyaWJ1Y2nDs24gbm9ybWFsLCB5YSBxdWUgbG9zIHAtdmFsb3JlcyBzb24gbXV5IGJham9zICh0b2RvcyBtZW5vcyBkZSAwLjA1KS4gRXN0byBzdWdpZXJlIHF1ZSwgcGFyYSBlc3RhcyB2YXJpYWJsZXMsIGRlYmVyw61hcyB1dGlsaXphciBjb3JyZWxhY2nDs24gbm8gcGFyYW3DqXRyaWNhIGNvbW8gU3BlYXJtYW4sIGVuIGx1Z2FyIGRlIFBlYXJzb24sIHF1ZSBhc3VtZSBub3JtYWxpZGFkLg0KICANCiAgVG9kYXMgbGFzIHZhcmlhYmxlcyBjdWFudGl0YXRpdmFzIG1vc3RyYXJvbiB2YWxvcmVzIHAgPCAwLjAwMSBlbiBsYSBwcnVlYmEgZGUgU2hhcGlyby1XaWxrLCByZWNoYXphbmRvIGZ1ZXJ0ZW1lbnRlIGxhIGhpcMOzdGVzaXMgbnVsYSBkZSBub3JtYWxpZGFkIChUYWJsYSBYKS4gRW4gY29uc2VjdWVuY2lhLCBzZSBlbXBsZWFyb24gbcOpdG9kb3Mgbm8gcGFyYW3DqXRyaWNvcyBwYXJhIGxvcyBhbsOhbGlzaXMgcG9zdGVyaW9yZXMNCg0KIyMgKipNb2RlbG8gZGUgQ29ycmVsYWNpw7NuIGVudHJlIFByb3llY3RvcyBDb211bml0YXJpb3MgeSBQdW50b3MgQ3LDrXRpY29zKioNCg0KICBQYXJhIGd1aWFyIGVsIGFuw6FsaXNpcyBkZSBjb3JyZWxhY2nDs24gZW50cmUgbG9zIHByb3llY3RvcyBjb211bml0YXJpb3MgZGUgbGFzIEFnZW5kYXMgQ29uY3JldGFzIGRlIEFjY2nDs24gKEFDQSkgeSBsb3MgbnVkb3MgY3LDrXRpY29zIGVuIGVsIEVzdGFkbyBNw6lyaWRhLCB5IGRhZG8gcXVlIHNlIGNvbmZpcm3DsyBsYSBhdXNlbmNpYSBkZSBub3JtYWxpZGFkIGVuIGxhcyB2YXJpYWJsZXMgY3VhbnRpdGF0aXZhcyBtZWRpYW50ZSBsYSBwcnVlYmEgZGUgU2hhcGlyby1XaWxrIChwLXZhbG9yZXMgPCAwLDAwMSksIHNlIG9wdMOzIHBvciB1biBlbmZvcXVlIG5vIHBhcmFtw6l0cmljbyBwYXJhIGxhIGV2YWx1YWNpw7NuIGRlIGxhcyByZWxhY2lvbmVzLiBBIGNvbnRpbnVhY2nDs24sIHNlIHBsYW50ZWFuIGxhIGhpcMOzdGVzaXMgZ2VuZXJhbCB5IGxhcyBoaXDDs3Rlc2lzIGVzcGVjw61maWNhcyBxdWUgYnVzY2FuIGVzdGFibGVjZXIgZWwgZ3JhZG8geSBsYSBkaXJlY2Npw7NuIGRlIGFzb2NpYWNpw7NuIGVudHJlIGxhcyB2YXJpYWJsZXMgY2xhdmUgZGUgZXN0ZSBlc3R1ZGlvLCBzaWd1aWVuZG8gbGEgZXN0cnVjdHVyYSB5IGVsIHJpZ29yIGRlbCBwbGFudGVhbWllbnRvIGRlIGhpcMOzdGVzaXMgZGUgbGEgdGVzaXMgZGUgQ2FzdGlsbG8geSBUZWxsbyAoMjAyMiwgcC44MS04NSksIGVzdG8gc2UgdmUgZGV0YWxsYWRhIGVuIGxhIFRhYmxhIGRlIEhpcMOzdGVzaXMgMzoNCg0KYGBge3J9DQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgTU9ERUxPIERFIENPUlJFTEFDScOTTiBERSBTUEVBUk1BTiBQQVJBIFBST1lFQ1RPUyBDT01VTkFMRVMgQUNBDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KIyAxLiBQcmVwYXJhY2nDs24gZGUgZGF0b3MgKElHVUFMKQ0KdG9wMTBfY2ZnIDwtIGRmX2R1bW1pZXMgJT4lIGNvdW50KENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGRykgJT4lIGFycmFuZ2UoZGVzYyhuKSkgJT4lIHNsaWNlKDE6MTApICU+JSBwdWxsKENMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGRykNCnRvcDEwX2dvYiA8LSBkZl9kdW1taWVzICU+JSBjb3VudChDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX0dPQkVSTkFDSU9OKSAlPiUgYXJyYW5nZShkZXNjKG4pKSAlPiUgc2xpY2UoMToxMCkgJT4lIHB1bGwoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTikNCmNmZ19kdW1teV9jb2xzIDwtIHBhc3RlMCgiQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHXyIsIGdzdWIoIiAiLCAiXyIsIHRvcDEwX2NmZykpDQpnb2JfZHVtbXlfY29scyA8LSBwYXN0ZTAoIkNMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT05fIiwgZ3N1YigiICIsICJfIiwgdG9wMTBfZ29iKSkNCmNmZ19kdW1teV9jb2xzIDwtIGludGVyc2VjdChjZmdfZHVtbXlfY29scywgbmFtZXMoZGZfZHVtbWllcykpDQpnb2JfZHVtbXlfY29scyA8LSBpbnRlcnNlY3QoZ29iX2R1bW15X2NvbHMsIG5hbWVzKGRmX2R1bW1pZXMpKQ0KdmFyc19yZXN1bHRhZG8gPC0gYygiUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETyIsICJDTEFTSUZJQ0FDSU9OX0RFTF9QUk9ZRUNUTyIsICJQTEFaT1MiLCAiQ2xhc2lmaWNhY2lvbl9BY3RvcmVzX2luc3RpdHVjaW9uYWxlcyIpDQoNCiMgMi4gQ1JFQVIgZGZfY29yIENPUlJFR0lETyAoU0lOIGNhc2Vfd2hlbikNCmRmX2NvciA8LSBkZl9kdW1taWVzICU+JQ0KICBzZWxlY3QoYWxsX29mKHZhcnNfcmVzdWx0YWRvKSwgYWxsX29mKGNmZ19kdW1teV9jb2xzKSwgYWxsX29mKGdvYl9kdW1teV9jb2xzKSkNCiAgIyDihpEgRUxJTUlOQURPIGVsIG11dGF0ZSgpIGNvbiBjYXNlX3doZW4gcG9ycXVlIGxhIHZhcmlhYmxlIHlhIGVzdMOhIGNvcnJlY3RhICgxLDIsMyw0KQ0KDQojIDMuIEPDoWxjdWxvIGRlIGNvcnJlbGFjaW9uZXMgZGUgU3BlYXJtYW4gKElHVUFMKQ0KY2FsY3VsYXJfY29yX3NwZWFybWFuIDwtIGZ1bmN0aW9uKGRhdGEpIHsNCiAgbl92YXJzIDwtIG5jb2woZGF0YSkNCiAgY29yX21hdHJpeCA8LSBtYXRyaXgoTkEsIG5yb3cgPSBuX3ZhcnMsIG5jb2wgPSBuX3ZhcnMpDQogIHBfbWF0cml4IDwtIG1hdHJpeChOQSwgbnJvdyA9IG5fdmFycywgbmNvbCA9IG5fdmFycykNCiAgZm9yIChpIGluIDE6bl92YXJzKSB7DQogICAgZm9yIChqIGluIDE6bl92YXJzKSB7DQogICAgICBpZiAoaSAhPSBqKSB7DQogICAgICAgIHRlbXAgPC0gZGF0YVssIGMoaSwgaildICU+JSBuYS5vbWl0KCkNCiAgICAgICAgaWYgKG5yb3codGVtcCkgPiAxMCkgew0KICAgICAgICAgIHRlc3QgPC0gc3VwcHJlc3NXYXJuaW5ncyhjb3IudGVzdCh0ZW1wW1sxXV0sIHRlbXBbWzJdXSwgbWV0aG9kID0gInNwZWFybWFuIiwgZXhhY3QgPSBGQUxTRSkpDQogICAgICAgICAgY29yX21hdHJpeFtpLCBqXSA8LSB0ZXN0JGVzdGltYXRlDQogICAgICAgICAgcF9tYXRyaXhbaSwgal0gPC0gdGVzdCRwLnZhbHVlDQogICAgICAgIH0NCiAgICAgIH0gZWxzZSB7DQogICAgICAgIGNvcl9tYXRyaXhbaSwgal0gPC0gMQ0KICAgICAgfQ0KICAgIH0NCiAgfQ0KICByb3duYW1lcyhjb3JfbWF0cml4KSA8LSBjb2xuYW1lcyhjb3JfbWF0cml4KSA8LSBjb2xuYW1lcyhkYXRhKQ0KICByb3duYW1lcyhwX21hdHJpeCkgPC0gY29sbmFtZXMocF9tYXRyaXgpIDwtIGNvbG5hbWVzKGRhdGEpDQogIHJldHVybihsaXN0KGNvciA9IGNvcl9tYXRyaXgsIHAgPSBwX21hdHJpeCkpDQp9DQpzZXQuc2VlZCgxMjMpDQpjb3JfcmVzdWx0cyA8LSBjYWxjdWxhcl9jb3Jfc3BlYXJtYW4oZGZfY29yKQ0KDQojIDQuIFByb2Nlc2FtaWVudG8gZGUgcmVzdWx0YWRvcyB5IG5vbWJyZXMgY29ydG9zIChJR1VBTCkNCmFjb3J0YXJfbm9tYnJlcyA8LSBmdW5jdGlvbihub21icmVzKSB7DQogIG5vbWJyZXMgPC0gZ3N1YigiQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHXyIsICJDRkc6ICIsIG5vbWJyZXMpDQogIG5vbWJyZXMgPC0gZ3N1YigiQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTl8iLCAiR09COiAiLCBub21icmVzKQ0KICBub21icmVzIDwtIGdzdWIoIl8iLCAiICIsIG5vbWJyZXMpDQogIHN1YnN0cihub21icmVzLCAxLCAyOCkNCn0NCmNvbG5hbWVzKGNvcl9yZXN1bHRzJGNvcikgPC0gcm93bmFtZXMoY29yX3Jlc3VsdHMkY29yKSA8LSBhY29ydGFyX25vbWJyZXMoY29sbmFtZXMoZGZfY29yKSkNCmNvbG5hbWVzKGNvcl9yZXN1bHRzJHApIDwtIHJvd25hbWVzKGNvcl9yZXN1bHRzJHApIDwtIGFjb3J0YXJfbm9tYnJlcyhjb2xuYW1lcyhkZl9jb3IpKQ0KDQpjb3JfZGYgPC0gYXMuZGF0YS5mcmFtZShjb3JfcmVzdWx0cyRjb3IpICU+JQ0KICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbigiVmFyaWFibGUxIikgJT4lDQogIHBpdm90X2xvbmdlcigtVmFyaWFibGUxLCBuYW1lc190byA9ICJWYXJpYWJsZTIiLCB2YWx1ZXNfdG8gPSAiQ29ycmVsYWNpb24iKSAlPiUNCiAgbGVmdF9qb2luKA0KICAgIGFzLmRhdGEuZnJhbWUoY29yX3Jlc3VsdHMkcCkgJT4lDQogICAgICB0aWJibGU6OnJvd25hbWVzX3RvX2NvbHVtbigiVmFyaWFibGUxIikgJT4lDQogICAgICBwaXZvdF9sb25nZXIoLVZhcmlhYmxlMSwgbmFtZXNfdG8gPSAiVmFyaWFibGUyIiwgdmFsdWVzX3RvID0gInBfdmFsb3IiKSwNCiAgICBieSA9IGMoIlZhcmlhYmxlMSIsICJWYXJpYWJsZTIiKQ0KICApICU+JQ0KICBmaWx0ZXIoIWlzLm5hKENvcnJlbGFjaW9uKSwgVmFyaWFibGUxICE9IFZhcmlhYmxlMikgJT4lDQogIG11dGF0ZSgNCiAgICBTaWduaWZpY2F0aXZhID0gaWZlbHNlKHBfdmFsb3IgPCAwLjA1LCAiU8OtIiwgIk5vIiksDQogICAgTWFnbml0dWQgPSBjYXNlX3doZW4oDQogICAgICBhYnMoQ29ycmVsYWNpb24pID4gMC42IH4gIk11eSBmdWVydGUiLA0KICAgICAgYWJzKENvcnJlbGFjaW9uKSA+IDAuNCB+ICJGdWVydGUiLA0KICAgICAgYWJzKENvcnJlbGFjaW9uKSA+IDAuMiB+ICJNb2RlcmFkYSIsDQogICAgICBUUlVFIH4gIkTDqWJpbCINCiAgICApDQogICkNCg0KIyA0LiBUQUJMQSBDT01QTEVUQSBERSBDT0VGSUNJRU5URVMgREUgU1BFQVJNQU4NCnRhYmxhX2NvZWZfc3BlYXJtYW4gPC0gY29yX2RmICU+JQ0KICBzZWxlY3QoVmFyaWFibGUxLCBWYXJpYWJsZTIsIENvcnJlbGFjaW9uLCBwX3ZhbG9yLCBTaWduaWZpY2F0aXZhLCBNYWduaXR1ZCkgJT4lDQogIGFycmFuZ2UoZGVzYyhhYnMoQ29ycmVsYWNpb24pKSkNCg0Ka2FibGUodGFibGFfY29lZl9zcGVhcm1hbiwNCiAgICAgIGNhcHRpb24gPSAiQ29lZmljaWVudGVzIGRlIENvcnJlbGFjacOzbiBkZSBTcGVhcm1hbiBlbnRyZSB2YXJpYWJsZXMgY2xhdmUgKEFDQSkiLA0KICAgICAgY29sLm5hbWVzID0gYygiVmFyaWFibGUgMSIsICJWYXJpYWJsZSAyIiwgIlJobyAoz4EpIiwgInAtdmFsb3IiLCAiU2lnbmlmaWNhdGl2YSIsICJNYWduaXR1ZCIpLA0KICAgICAgYWxpZ24gPSAibCIpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIpLCBmdWxsX3dpZHRoID0gRkFMU0UpICU+JQ0KICByb3dfc3BlYyh3aGljaCh0YWJsYV9jb2VmX3NwZWFybWFuJFNpZ25pZmljYXRpdmEgPT0gIlPDrSIgJiB0YWJsYV9jb2VmX3NwZWFybWFuJE1hZ25pdHVkICE9ICJEw6liaWwiKSwgYm9sZCA9IFRSVUUsIGNvbG9yID0gIndoaXRlIiwgYmFja2dyb3VuZCA9ICIjMWI5ZTc3IikgJT4lDQogIHJvd19zcGVjKHdoaWNoKHRhYmxhX2NvZWZfc3BlYXJtYW4kU2lnbmlmaWNhdGl2YSA9PSAiU8OtIiAmIHRhYmxhX2NvZWZfc3BlYXJtYW4kTWFnbml0dWQgPT0gIkTDqWJpbCIpLCBjb2xvciA9ICJibGFjayIsIGJhY2tncm91bmQgPSAiI2U2ZjJlNiIpICU+JQ0KICByb3dfc3BlYyh3aGljaCh0YWJsYV9jb2VmX3NwZWFybWFuJFNpZ25pZmljYXRpdmEgPT0gIk5vIiksIGNvbG9yID0gImdyYXk0MCIsIGJhY2tncm91bmQgPSAiI2Y3ZjdmNyIpDQoNCiMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLVZpc3VhbGl6YWNpw7NuIGFsdGVybmF0aXZhOiBIZWF0bWFwIGRlIGNvcnJlbGFjaW9uZXMtLS0tLS0tLS0tLS0tLS0tLS0tDQpnZ3Bsb3QodGFibGFfY29lZl9zcGVhcm1hbiAlPiUgZmlsdGVyKE1hZ25pdHVkICE9ICJEw6liaWwiKSwgDQogICAgICAgYWVzKHggPSBWYXJpYWJsZTEsIHkgPSBWYXJpYWJsZTIsIGZpbGwgPSBDb3JyZWxhY2lvbikpICsNCiAgZ2VvbV90aWxlKGNvbG9yID0gIndoaXRlIikgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gc3ByaW50ZigiJS4yZiIsIENvcnJlbGFjaW9uKSksIGNvbG9yID0gImJsYWNrIiwgc2l6ZSA9IDMpICsNCiAgc2NhbGVfZmlsbF9ncmFkaWVudDIoDQogICAgbG93ID0gIiNkNzE5MWMiLCBtaWQgPSAiI2ZmZmZiZiIsIGhpZ2ggPSAiIzJjN2JiNiIsIG1pZHBvaW50ID0gMCwgbGltaXRzID0gYygtMSwgMSkNCiAgKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSAiQ29ycmVsYWNpb25lcyBNb2RlcmFkYXMgeSBGdWVydGVzIChTcGVhcm1hbikiLA0KICAgIHN1YnRpdGxlID0gIkVudHJlIHRpcG9sb2fDrWFzLCBnb2Jlcm5hY2lvbmVzIHkgcmVzdWx0YWRvcyBkZSBwcm95ZWN0b3MiLA0KICAgIHggPSAiIiwgeSA9ICIiDQogICkgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDQ1LCBoanVzdCA9IDEpLCBsZWdlbmQucG9zaXRpb24gPSAicmlnaHQiKQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgQU7DgUxJU0lTIENPTVBMRVRPIERFIENPUlJFTEFDSU9ORVMgREUgU1BFQVJNQU4gLSBQUk9ZRUNUT1MgQUNBDQojIEZMVUpPIERFIFRSQUJBSk8gSU5URUdSQURPIFBBUkEgTU9OT0dSQUbDjUENCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIDEuIEhFQVRNQVAgQUNBRMOJTUlDTyAtIE1BVFJJWiBERSBDT1JSRUxBQ0lPTkVTIFNJR05JRklDQVRJVkFTDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY3JlYXJfaGVhdG1hcF9jb3JyZWxhY2lvbmVzIDwtIGZ1bmN0aW9uKGNvcl9yZXN1bHRzLCB0aXR1bG8gPSAiTWF0cml6IGRlIENvcnJlbGFjacOzbiBkZSBTcGVhcm1hbiAtIFByb3llY3RvcyBBQ0EiKSB7DQogIA0KICAjIFNpbmNyb25pemFyIG1hdHJpY2VzDQogIHZhcnNfY29tdW5lcyA8LSBpbnRlcnNlY3Qocm93bmFtZXMoY29yX3Jlc3VsdHMkY29yKSwgcm93bmFtZXMoY29yX3Jlc3VsdHMkcCkpDQogIGNvcl9tYXRyaXggPC0gY29yX3Jlc3VsdHMkY29yW3ZhcnNfY29tdW5lcywgdmFyc19jb211bmVzXQ0KICBwX21hdHJpeCA8LSBjb3JfcmVzdWx0cyRwW3ZhcnNfY29tdW5lcywgdmFyc19jb211bmVzXQ0KICANCiAgIyBDb252ZXJ0aXIgYSBmb3JtYXRvIGxhcmdvDQogIGNvcl9sb25nIDwtIG1lbHQoY29yX21hdHJpeCwgdmFybmFtZXMgPSBjKCJWYXJpYWJsZTEiLCAiVmFyaWFibGUyIiksIHZhbHVlLm5hbWUgPSAiQ29ycmVsYWNpb24iKQ0KICBwX2xvbmcgPC0gbWVsdChwX21hdHJpeCwgdmFybmFtZXMgPSBjKCJWYXJpYWJsZTEiLCAiVmFyaWFibGUyIiksIHZhbHVlLm5hbWUgPSAiUF92YWxvciIpDQogIA0KICAjIENvbWJpbmFyIGRhdG9zDQogIGRhdG9zX3Bsb3QgPC0gbWVyZ2UoY29yX2xvbmcsIHBfbG9uZywgYnkgPSBjKCJWYXJpYWJsZTEiLCAiVmFyaWFibGUyIikpICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIFNpZ25pZmljYXRpdmEgPSBQX3ZhbG9yIDwgMC4wNSwNCiAgICAgIENvcnJlbGFjaW9uX21vc3RyYXIgPSBpZmVsc2UoU2lnbmlmaWNhdGl2YSwgQ29ycmVsYWNpb24sIE5BKSwNCiAgICAgIEV0aXF1ZXRhID0gaWZlbHNlKFNpZ25pZmljYXRpdmEgJiBhYnMoQ29ycmVsYWNpb24pID4gMC4zLCANCiAgICAgICAgICAgICAgICAgICAgICAgc3ByaW50ZigiJS4yZiIsIENvcnJlbGFjaW9uKSwgIiIpLA0KICAgICAgQXN0ZXJpc2NvID0gY2FzZV93aGVuKA0KICAgICAgICBQX3ZhbG9yIDwgMC4wMDEgfiAiKioqIiwNCiAgICAgICAgUF92YWxvciA8IDAuMDEgfiAiKioiLA0KICAgICAgICBQX3ZhbG9yIDwgMC4wNSB+ICIqIiwNCiAgICAgICAgVFJVRSB+ICIiDQogICAgICApDQogICAgKQ0KICANCiAgIyBDcmVhciBoZWF0bWFwDQogIHAgPC0gZ2dwbG90KGRhdG9zX3Bsb3QsIGFlcyh4ID0gVmFyaWFibGUxLCB5ID0gVmFyaWFibGUyKSkgKw0KICAgIGdlb21fdGlsZShhZXMoZmlsbCA9IENvcnJlbGFjaW9uX21vc3RyYXIpLCBjb2xvciA9ICJ3aGl0ZSIsIHNpemUgPSAwLjMpICsNCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsID0gRXRpcXVldGEpLCBzaXplID0gMi44LCBjb2xvciA9ICJibGFjayIsIGZvbnRmYWNlID0gImJvbGQiKSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IEFzdGVyaXNjbyksIHNpemUgPSAyLCBjb2xvciA9ICJyZWQiLCANCiAgICAgICAgICAgICAgbnVkZ2VfeSA9IDAuMiwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgICBzY2FsZV9maWxsX2dyYWRpZW50MigNCiAgICAgIGxvdyA9ICIjZDczMDI3IiwgbWlkID0gIiNmZmZmYmYiLCBoaWdoID0gIiMxYTk4NTAiLA0KICAgICAgbWlkcG9pbnQgPSAwLCBsaW1pdHMgPSBjKC0xLCAxKSwgbmEudmFsdWUgPSAiZ3JleTk1IiwNCiAgICAgIG5hbWUgPSAiz4EiLA0KICAgICAgYnJlYWtzID0gYygtMSwgLTAuNSwgMCwgMC41LCAxKQ0KICAgICkgKw0KICAgIGxhYnMoDQogICAgICB0aXRsZSA9IHRpdHVsbywNCiAgICAgIHN1YnRpdGxlID0gIlNvbG8gY29ycmVsYWNpb25lcyBzaWduaWZpY2F0aXZhcyB8ICoqKiBwPDAuMDAxLCAqKiBwPDAuMDEsICogcDwwLjA1IiwNCiAgICAgIHggPSAiIiwgeSA9ICIiLA0KICAgICAgY2FwdGlvbiA9IHBhc3RlKCJuID0iLCBzdW0oZGF0b3NfcGxvdCRTaWduaWZpY2F0aXZhLCBuYS5ybSA9IFRSVUUpLCAiY29ycmVsYWNpb25lcyBzaWduaWZpY2F0aXZhcyIpDQogICAgKSArDQogICAgdGhlbWVfbWluaW1hbCgpICsNCiAgICB0aGVtZSgNCiAgICAgIGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gNDUsIGhqdXN0ID0gMSwgc2l6ZSA9IDEwKSwNCiAgICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMCksDQogICAgICBwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGhqdXN0ID0gMC41LCBzaXplID0gMTQsIGZhY2UgPSAiYm9sZCIpLA0KICAgICAgcGxvdC5zdWJ0aXRsZSA9IGVsZW1lbnRfdGV4dChoanVzdCA9IDAuNSwgc2l6ZSA9IDExKSwNCiAgICAgIHBhbmVsLmdyaWQgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICBsZWdlbmQucG9zaXRpb24gPSAicmlnaHQiDQogICAgKSArDQogICAgY29vcmRfZXF1YWwoKQ0KICANCiAgcmV0dXJuKHApDQp9DQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyAyLiBFVkFMVUFDScOTTiBERSBISVDDk1RFU0lTIEVTUEVDw41GSUNBUw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNyZWFyX2V2YWx1YWNpb25faGlwb3Rlc2lzIDwtIGZ1bmN0aW9uKGNvcl9kZikgew0KICANCiAgIyBDbGFzaWZpY2FyIGNvcnJlbGFjaW9uZXMgc2Vnw7puIGhpcMOzdGVzaXMgZGUgaW52ZXN0aWdhY2nDs24NCiAgZGF0b3NfaGlwb3Rlc2lzIDwtIGNvcl9kZiAlPiUNCiAgICBmaWx0ZXIoU2lnbmlmaWNhdGl2YSA9PSAiU8OtIikgJT4lDQogICAgbXV0YXRlKA0KICAgICAgQ2F0ZWdvcmlhX0hpcG90ZXNpcyA9IGNhc2Vfd2hlbigNCiAgICAgICAgIyBIRTE6IENvbmNvcmRhbmNpYSBzZWN0b3JpYWwgQ0ZHLUdPQg0KICAgICAgICAoZ3JlcGwoIkNGRy4qRUxFQ1RSSUNJREFEIiwgVmFyaWFibGUxKSAmIGdyZXBsKCJHT0IuKkVMRUNUUklDSURBRCIsIFZhcmlhYmxlMikpIHwNCiAgICAgICAgKGdyZXBsKCJDRkcuKlZJVklFTkRBIiwgVmFyaWFibGUxKSAmIGdyZXBsKCJHT0IuKlZJVklFTkRBIiwgVmFyaWFibGUyKSkgfA0KICAgICAgICAoZ3JlcGwoIkNGRy4qVFJBTlNQT1JURSIsIFZhcmlhYmxlMSkgJiBncmVwbCgiR09CLipUUkFOU1BPUlRFIiwgVmFyaWFibGUyKSkgfA0KICAgICAgICAoZ3JlcGwoIkNGRy4qVklBTElEQUQiLCBWYXJpYWJsZTEpICYgZ3JlcGwoIkdPQi4qVklBTElEQUQiLCBWYXJpYWJsZTIpKSB+ICJIRTE6IENvbmNvcmRhbmNpYSBTZWN0b3JpYWwiLA0KICAgICAgICANCiAgICAgICAgIyBIRTI6IENvbXBsZWppZGFkIGluc3RpdHVjaW9uYWwgZW4gdml2aWVuZGENCiAgICAgICAgKGdyZXBsKCJWSVZJRU5EQSIsIFZhcmlhYmxlMSkgJiBncmVwbCgiQ2xhc2lmaWNhY2lvbi4qQWN0b3JlcyIsIFZhcmlhYmxlMikpIHwNCiAgICAgICAgKGdyZXBsKCJDbGFzaWZpY2FjaW9uLipBY3RvcmVzIiwgVmFyaWFibGUxKSAmIGdyZXBsKCJWSVZJRU5EQSIsIFZhcmlhYmxlMikpIH4gIkhFMjogQ29tcGxlamlkYWQgVml2aWVuZGEiLA0KICAgICAgICANCiAgICAgICAgIyBIRTM6IEVmaWNpZW5jaWEgZW4gdHJhbnNwb3J0ZQ0KICAgICAgICAoZ3JlcGwoIlRSQU5TUE9SVEUiLCBWYXJpYWJsZTEpICYgZ3JlcGwoIlJBVElPLipQUk9ZRUNUTyIsIFZhcmlhYmxlMikpIHwNCiAgICAgICAgKGdyZXBsKCJSQVRJTy4qUFJPWUVDVE8iLCBWYXJpYWJsZTEpICYgZ3JlcGwoIlRSQU5TUE9SVEUiLCBWYXJpYWJsZTIpKSB+ICJIRTM6IEVmaWNpZW5jaWEgVHJhbnNwb3J0ZSIsDQogICAgICAgIA0KICAgICAgICAjIEhFNDogQ29tcGxlamlkYWQgdGVtcG9yYWwgZW4gaW5mcmFlc3RydWN0dXJhDQogICAgICAgIChncmVwbCgiSU5GUkFFU1RSVUNUVVIiLCBWYXJpYWJsZTEpICYgZ3JlcGwoIlBMQVpPUyIsIFZhcmlhYmxlMikpIHwNCiAgICAgICAgKGdyZXBsKCJQTEFaT1MiLCBWYXJpYWJsZTEpICYgZ3JlcGwoIklORlJBRVNUUlVDVFVSIiwgVmFyaWFibGUyKSkgfiAiSEU0OiBDb21wbGVqaWRhZCBUZW1wb3JhbCIsDQogICAgICAgIA0KICAgICAgICBUUlVFIH4gIkNvcnJlbGFjaW9uZXMgRXhwbG9yYXRvcmlhcyINCiAgICAgICksDQogICAgICBFc3RhZG9fQ29uZmlybWFjaW9uID0gY2FzZV93aGVuKA0KICAgICAgICBDYXRlZ29yaWFfSGlwb3Rlc2lzID09ICJIRTE6IENvbmNvcmRhbmNpYSBTZWN0b3JpYWwiICYgYWJzKENvcnJlbGFjaW9uKSA+IDAuNyB+ICJDb25maXJtYWRhIiwNCiAgICAgICAgQ2F0ZWdvcmlhX0hpcG90ZXNpcyA9PSAiSEUyOiBDb21wbGVqaWRhZCBWaXZpZW5kYSIgJiBDb3JyZWxhY2lvbiA8IDAgJiBhYnMoQ29ycmVsYWNpb24pID4gMC4yIH4gIkNvbmZpcm1hZGEiLA0KICAgICAgICBDYXRlZ29yaWFfSGlwb3Rlc2lzID09ICJIRTM6IEVmaWNpZW5jaWEgVHJhbnNwb3J0ZSIgJiBDb3JyZWxhY2lvbiA+IDAgJiBhYnMoQ29ycmVsYWNpb24pID4gMC4xIH4gIkNvbmZpcm1hZGEiLA0KICAgICAgICBDYXRlZ29yaWFfSGlwb3Rlc2lzID09ICJIRTQ6IENvbXBsZWppZGFkIFRlbXBvcmFsIiAmIENvcnJlbGFjaW9uIDwgMCAmIGFicyhDb3JyZWxhY2lvbikgPiAwLjEgfiAiQ29uZmlybWFkYSIsDQogICAgICAgIENhdGVnb3JpYV9IaXBvdGVzaXMgIT0gIkNvcnJlbGFjaW9uZXMgRXhwbG9yYXRvcmlhcyIgfiAiUGFyY2lhbCIsDQogICAgICAgIFRSVUUgfiAiRXhwbG9yYXRvcmlhIg0KICAgICAgKQ0KICAgICkNCiAgDQogICMgUmVzdW1pciBwb3IgaGlww7N0ZXNpcw0KICByZXN1bWVuIDwtIGRhdG9zX2hpcG90ZXNpcyAlPiUNCiAgICBncm91cF9ieShDYXRlZ29yaWFfSGlwb3Rlc2lzLCBFc3RhZG9fQ29uZmlybWFjaW9uKSAlPiUNCiAgICBzdW1tYXJpc2UoDQogICAgICBDYW50aWRhZCA9IG4oKSwNCiAgICAgIFJob19Qcm9tZWRpbyA9IG1lYW4oYWJzKENvcnJlbGFjaW9uKSksDQogICAgICBSaG9fTWF4aW1vID0gbWF4KGFicyhDb3JyZWxhY2lvbikpLA0KICAgICAgLmdyb3VwcyA9ICJkcm9wIg0KICAgICkgJT4lDQogICAgYXJyYW5nZShkZXNjKFJob19Qcm9tZWRpbykpDQogIA0KICAjIENyZWFyIGdyw6FmaWNvIGRlIGJhcnJhcyBob3Jpem9udGFsZXMNCiAgcCA8LSBnZ3Bsb3QocmVzdW1lbiwgYWVzKHggPSByZW9yZGVyKENhdGVnb3JpYV9IaXBvdGVzaXMsIFJob19Qcm9tZWRpbyksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICB5ID0gUmhvX1Byb21lZGlvLCBmaWxsID0gRXN0YWRvX0NvbmZpcm1hY2lvbikpICsNCiAgICBnZW9tX2NvbChhbHBoYSA9IDAuOCwgY29sb3IgPSAiYmxhY2siLCBzaXplID0gMC4zKSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHBhc3RlMCgibj0iLCBDYW50aWRhZCwgIlxuz4FtYXg9Iiwgcm91bmQoUmhvX01heGltbywgMikpKSwNCiAgICAgICAgICAgICAgaGp1c3QgPSAtMC4xLCBzaXplID0gMy41LCBmb250ZmFjZSA9ICJib2xkIikgKw0KICAgIHNjYWxlX2ZpbGxfbWFudWFsKA0KICAgICAgdmFsdWVzID0gYygiQ29uZmlybWFkYSIgPSAiIzI3YWU2MCIsICJQYXJjaWFsIiA9ICIjZjM5YzEyIiwgIkV4cGxvcmF0b3JpYSIgPSAiIzJjM2U1MCIpLA0KICAgICAgbmFtZSA9ICJFc3RhZG8gZGUgSGlww7N0ZXNpcyINCiAgICApICsNCiAgICBjb29yZF9mbGlwKCkgKw0KICAgIGxhYnMoDQogICAgICB0aXRsZSA9ICJFdmFsdWFjacOzbiBFbXDDrXJpY2EgZGUgSGlww7N0ZXNpcyBkZSBJbnZlc3RpZ2FjacOzbiIsDQogICAgICBzdWJ0aXRsZSA9ICJGdWVyemEgcHJvbWVkaW8gZGUgY29ycmVsYWNpb25lcyB5IGVzdGFkbyBkZSBjb25maXJtYWNpw7NuIHBvciBoaXDDs3Rlc2lzIiwNCiAgICAgIHggPSAiSGlww7N0ZXNpcyBFc3BlY8OtZmljYXMiLA0KICAgICAgeSA9ICJDb3JyZWxhY2nDs24gUHJvbWVkaW8gfM+BfCIsDQogICAgICBjYXB0aW9uID0gIm4gPSBuw7ptZXJvIGRlIGNvcnJlbGFjaW9uZXMgZGV0ZWN0YWRhcywgz4FtYXggPSBjb3JyZWxhY2nDs24gbcOheGltYSBvYnNlcnZhZGEiDQogICAgKSArDQogICAgdGhlbWVfbWluaW1hbCgpICsNCiAgICB0aGVtZSgNCiAgICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDE0KSwNCiAgICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMSksDQogICAgICBsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIg0KICAgICkgKw0KICAgIHNjYWxlX3lfY29udGludW91cyhsaW1pdHMgPSBjKDAsIDEuMSksIGJyZWFrcyA9IHNlcSgwLCAxLCAwLjIpKQ0KICANCiAgcmV0dXJuKGxpc3QoZ3JhZmljbyA9IHAsIGRhdG9zID0gcmVzdW1lbiwgZGF0b3NfZGV0YWxsYWRvcyA9IGRhdG9zX2hpcG90ZXNpcykpDQp9DQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyAzLiBBTsOBTElTSVMgREUgVkFSSUFCTEVTIENFTlRSQUxFUyAtIFJFRCBERSBJTkZMVUVOQ0lBDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY3JlYXJfYW5hbGlzaXNfdmFyaWFibGVzX2NlbnRyYWxlcyA8LSBmdW5jdGlvbihjb3JfZGYpIHsNCiAgDQogICMgSWRlbnRpZmljYXIgdmFyaWFibGVzIG3DoXMgImNvbmVjdGFkYXMiIChjb24gbcOhcyBjb3JyZWxhY2lvbmVzIHNpZ25pZmljYXRpdmFzKQ0KICBjb25lY3RpdmlkYWQgPC0gY29yX2RmICU+JQ0KICAgIGZpbHRlcihTaWduaWZpY2F0aXZhID09ICJTw60iKSAlPiUNCiAgICBwaXZvdF9sb25nZXIoY29scyA9IGMoVmFyaWFibGUxLCBWYXJpYWJsZTIpLCBuYW1lc190byA9ICJwb3NpY2lvbiIsIHZhbHVlc190byA9ICJ2YXJpYWJsZSIpICU+JQ0KICAgIGNvdW50KHZhcmlhYmxlLCBuYW1lID0gIm5fY29uZXhpb25lcyIpICU+JQ0KICAgIGFycmFuZ2UoZGVzYyhuX2NvbmV4aW9uZXMpKQ0KICANCiAgIyBDYWxjdWxhciBmdWVyemEgcHJvbWVkaW8gZGUgY29ycmVsYWNpb25lcyBwb3IgdmFyaWFibGUNCiAgZnVlcnphX3Byb21lZGlvIDwtIGNvcl9kZiAlPiUNCiAgICBmaWx0ZXIoU2lnbmlmaWNhdGl2YSA9PSAiU8OtIikgJT4lDQogICAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBjKFZhcmlhYmxlMSwgVmFyaWFibGUyKSwgbmFtZXNfdG8gPSAicG9zaWNpb24iLCB2YWx1ZXNfdG8gPSAidmFyaWFibGUiKSAlPiUNCiAgICBncm91cF9ieSh2YXJpYWJsZSkgJT4lDQogICAgc3VtbWFyaXNlKA0KICAgICAgY29ycmVsYWNpb25fcHJvbWVkaW8gPSBtZWFuKGFicyhDb3JyZWxhY2lvbikpLA0KICAgICAgY29ycmVsYWNpb25fbWF4aW1hID0gbWF4KGFicyhDb3JyZWxhY2lvbikpLA0KICAgICAgbl9tdXlfZnVlcnRlcyA9IHN1bShhYnMoQ29ycmVsYWNpb24pID4gMC43KSwNCiAgICAgIG5fZnVlcnRlcyA9IHN1bShhYnMoQ29ycmVsYWNpb24pID4gMC41KSwNCiAgICAgIC5ncm91cHMgPSAiZHJvcCINCiAgICApDQogIA0KICAjIENvbWJpbmFyIG3DqXRyaWNhcw0KICB2YXJpYWJsZXNfY2VudHJhbGVzIDwtIG1lcmdlKGNvbmVjdGl2aWRhZCwgZnVlcnphX3Byb21lZGlvLCBieSA9ICJ2YXJpYWJsZSIpICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIHNjb3JlX2NlbnRyYWxpZGFkID0gc2NhbGUobl9jb25leGlvbmVzKVssMV0gKyBzY2FsZShjb3JyZWxhY2lvbl9wcm9tZWRpbylbLDFdLA0KICAgICAgdGlwb192YXJpYWJsZSA9IGNhc2Vfd2hlbigNCiAgICAgICAgZ3JlcGwoIkNGRyIsIHZhcmlhYmxlKSB+ICJDbGFzaWZpY2FjacOzbiBDRkciLA0KICAgICAgICBncmVwbCgiR09CIiwgdmFyaWFibGUpIH4gIkNsYXNpZmljYWNpw7NuIEdvYmVybmFjacOzbiIsIA0KICAgICAgICBncmVwbCgiUkFUSU8iLCB2YXJpYWJsZSkgfiAiSW5kaWNhZG9yIGRlIFJlc3VsdGFkbyIsDQogICAgICAgIGdyZXBsKCJQTEFaT1MiLCB2YXJpYWJsZSkgfiAiSW5kaWNhZG9yIFRlbXBvcmFsIiwNCiAgICAgICAgZ3JlcGwoIkNsYXNpZmljYWNpb24uKkFjdG9yZXMiLCB2YXJpYWJsZSkgfiAiSW5kaWNhZG9yIEluc3RpdHVjaW9uYWwiLA0KICAgICAgICBUUlVFIH4gIk90cmEiDQogICAgICApDQogICAgKSAlPiUNCiAgICBhcnJhbmdlKGRlc2Moc2NvcmVfY2VudHJhbGlkYWQpKQ0KICANCiAgIyBDcmVhciBncsOhZmljbyBkZSB2YXJpYWJsZXMgY2VudHJhbGVzDQogIHAgPC0gZ2dwbG90KGhlYWQodmFyaWFibGVzX2NlbnRyYWxlcywgMTUpLCANCiAgICAgICAgICAgICAgYWVzKHggPSByZW9yZGVyKHZhcmlhYmxlLCBzY29yZV9jZW50cmFsaWRhZCksIHkgPSBzY29yZV9jZW50cmFsaWRhZCkpICsNCiAgICBnZW9tX2NvbChhZXMoZmlsbCA9IHRpcG9fdmFyaWFibGUpLCBhbHBoYSA9IDAuOCwgY29sb3IgPSAiYmxhY2siLCBzaXplID0gMC4zKSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHBhc3RlMCgiQ29uZXhpb25lczogIiwgbl9jb25leGlvbmVzLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIlxuz4HMhD0iLCByb3VuZChjb3JyZWxhY2lvbl9wcm9tZWRpbywgMikpKSwNCiAgICAgICAgICAgICAgaGp1c3QgPSAtMC4xLCBzaXplID0gMywgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgICBzY2FsZV9maWxsX3ZpcmlkaXNfZChuYW1lID0gIlRpcG8gZGUgVmFyaWFibGUiLCBvcHRpb24gPSAicGxhc21hIikgKw0KICAgIGNvb3JkX2ZsaXAoKSArDQogICAgbGFicygNCiAgICAgIHRpdGxlID0gIlZhcmlhYmxlcyBDZW50cmFsZXMgZW4gbGEgUmVkIGRlIENvcnJlbGFjaW9uZXMiLA0KICAgICAgc3VidGl0bGUgPSAiVG9wIDE1IHZhcmlhYmxlcyBwb3IgY2VudHJhbGlkYWQgKGNvbmVjdGl2aWRhZCArIGZ1ZXJ6YSBwcm9tZWRpbykiLA0KICAgICAgeCA9ICJWYXJpYWJsZXMiLA0KICAgICAgeSA9ICJTY29yZSBkZSBDZW50cmFsaWRhZCAoZXN0YW5kYXJpemFkbykiLA0KICAgICAgY2FwdGlvbiA9ICLPgcyEID0gY29ycmVsYWNpw7NuIHByb21lZGlvLCBDb25leGlvbmVzID0gbsO6bWVybyBkZSBjb3JyZWxhY2lvbmVzIHNpZ25pZmljYXRpdmFzIg0KICAgICkgKw0KICAgIHRoZW1lX21pbmltYWwoKSArDQogICAgdGhlbWUoDQogICAgICBwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxNCksDQogICAgICBheGlzLnRleHQueSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTApLA0KICAgICAgbGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSINCiAgICApDQogIA0KICByZXR1cm4obGlzdChncmFmaWNvID0gcCwgZGF0b3MgPSB2YXJpYWJsZXNfY2VudHJhbGVzKSkNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIDQuIEFOw4FMSVNJUyBTRUNUT1JJQUwgQ09NUEFSQVRJVk8NCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjcmVhcl9hbmFsaXNpc19zZWN0b3JpYWwgPC0gZnVuY3Rpb24oY29yX2RmKSB7DQogIA0KICAjIElkZW50aWZpY2FyIGNvcnJlbGFjaW9uZXMgcG9yIHNlY3Rvcg0KICBhbmFsaXNpc19zZWN0b3JpYWwgPC0gY29yX2RmICU+JQ0KICAgIGZpbHRlcihTaWduaWZpY2F0aXZhID09ICJTw60iKSAlPiUNCiAgICBtdXRhdGUoDQogICAgICBzZWN0b3JfcHJpbmNpcGFsID0gY2FzZV93aGVuKA0KICAgICAgICBncmVwbCgiRUxFQ1RSSUNJREFEIiwgcGFzdGUoVmFyaWFibGUxLCBWYXJpYWJsZTIpKSB+ICJFbGVjdHJpY2lkYWQiLA0KICAgICAgICBncmVwbCgiVklWSUVOREEiLCBwYXN0ZShWYXJpYWJsZTEsIFZhcmlhYmxlMikpIH4gIlZpdmllbmRhIiwgDQogICAgICAgIGdyZXBsKCJUUkFOU1BPUlRFIiwgcGFzdGUoVmFyaWFibGUxLCBWYXJpYWJsZTIpKSB+ICJUcmFuc3BvcnRlIiwNCiAgICAgICAgZ3JlcGwoIlZJQUxJREFEIiwgcGFzdGUoVmFyaWFibGUxLCBWYXJpYWJsZTIpKSB+ICJWaWFsaWRhZCIsDQogICAgICAgIGdyZXBsKCJJTkZSQUVTVFJVQ1RVUiIsIHBhc3RlKFZhcmlhYmxlMSwgVmFyaWFibGUyKSkgfiAiSW5mcmFlc3RydWN0dXJhIiwNCiAgICAgICAgZ3JlcGwoIkFNQklFTlRFfENBTkFMSVpBQ0lPTiIsIHBhc3RlKFZhcmlhYmxlMSwgVmFyaWFibGUyKSkgfiAiQW1iaWVudGUvQ2FuYWxpemFjacOzbiIsDQogICAgICAgIGdyZXBsKCJTQUxVRCIsIHBhc3RlKFZhcmlhYmxlMSwgVmFyaWFibGUyKSkgfiAiU2FsdWQiLA0KICAgICAgICBncmVwbCgiRURVQ0FDScOTTiIsIHBhc3RlKFZhcmlhYmxlMSwgVmFyaWFibGUyKSkgfiAiRWR1Y2FjacOzbiIsDQogICAgICAgIFRSVUUgfiAiSW50ZXJzZWN0b3JpYWwiDQogICAgICApDQogICAgKSAlPiUNCiAgICBncm91cF9ieShzZWN0b3JfcHJpbmNpcGFsKSAlPiUNCiAgICBzdW1tYXJpc2UoDQogICAgICBuX2NvcnJlbGFjaW9uZXMgPSBuKCksDQogICAgICBjb3JyZWxhY2lvbl9wcm9tZWRpbyA9IG1lYW4oYWJzKENvcnJlbGFjaW9uKSksDQogICAgICBjb3JyZWxhY2lvbl9tYXhpbWEgPSBtYXgoYWJzKENvcnJlbGFjaW9uKSksDQogICAgICBuX211eV9mdWVydGVzID0gc3VtKE1hZ25pdHVkID09ICJNdXkgZnVlcnRlIiksDQogICAgICBuX2Z1ZXJ0ZXMgPSBzdW0oTWFnbml0dWQgJWluJSBjKCJGdWVydGUiLCAiTXV5IGZ1ZXJ0ZSIpKSwNCiAgICAgIHBfdmFsb3JfcHJvbWVkaW8gPSBtZWFuKHBfdmFsb3IpLA0KICAgICAgLmdyb3VwcyA9ICJkcm9wIg0KICAgICkgJT4lDQogICAgYXJyYW5nZShkZXNjKGNvcnJlbGFjaW9uX3Byb21lZGlvKSkNCiAgDQogICMgQ3JlYXIgZ3LDoWZpY28gY29tcGFyYXRpdm8gc2VjdG9yaWFsDQogIHAgPC0gZ2dwbG90KGFuYWxpc2lzX3NlY3RvcmlhbCwgYWVzKHggPSByZW9yZGVyKHNlY3Rvcl9wcmluY2lwYWwsIGNvcnJlbGFjaW9uX3Byb21lZGlvKSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeSA9IGNvcnJlbGFjaW9uX3Byb21lZGlvKSkgKw0KICAgIGdlb21fY29sKGFlcyhmaWxsID0gbl9jb3JyZWxhY2lvbmVzKSwgYWxwaGEgPSAwLjgsIGNvbG9yID0gImJsYWNrIiwgc2l6ZSA9IDAuMykgKw0KICAgIGdlb21fdGV4dChhZXMobGFiZWwgPSBwYXN0ZTAoIm49Iiwgbl9jb3JyZWxhY2lvbmVzLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIlxuTcOheD0iLCByb3VuZChjb3JyZWxhY2lvbl9tYXhpbWEsIDIpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiXG5GdWVydGVzPSIsIG5fZnVlcnRlcykpLA0KICAgICAgICAgICAgICBoanVzdCA9IC0wLjEsIHNpemUgPSAzLCBmb250ZmFjZSA9ICJib2xkIikgKw0KICAgIHNjYWxlX2ZpbGxfdmlyaWRpc19jKG5hbWUgPSAiTsKwIENvcnJlbGFjaW9uZXMiLCBvcHRpb24gPSAidmlyaWRpcyIpICsNCiAgICBjb29yZF9mbGlwKCkgKw0KICAgIGxhYnMoDQogICAgICB0aXRsZSA9ICJBbsOhbGlzaXMgU2VjdG9yaWFsIGRlIENvcnJlbGFjaW9uZXMiLA0KICAgICAgc3VidGl0bGUgPSAiRnVlcnphIHByb21lZGlvIGRlIGNvcnJlbGFjaW9uZXMgcG9yIHNlY3RvciBkZSBpbnRlcnZlbmNpw7NuIiwNCiAgICAgIHggPSAiU2VjdG9yZXMiLA0KICAgICAgeSA9ICJDb3JyZWxhY2nDs24gUHJvbWVkaW8gfM+BfCIsDQogICAgICBjYXB0aW9uID0gIm4gPSBjb3JyZWxhY2lvbmVzIGRldGVjdGFkYXMsIE3DoXggPSBjb3JyZWxhY2nDs24gbcOheGltYSwgRnVlcnRlcyA9IGNvcnJlbGFjaW9uZXMgPjAuNSINCiAgICApICsNCiAgICB0aGVtZV9taW5pbWFsKCkgKw0KICAgIHRoZW1lKA0KICAgICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChmYWNlID0gImJvbGQiLCBzaXplID0gMTQpLA0KICAgICAgYXhpcy50ZXh0LnkgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDExKSwNCiAgICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iDQogICAgKSArDQogICAgc2NhbGVfeV9jb250aW51b3VzKGxpbWl0cyA9IGMoMCwgbWF4KGFuYWxpc2lzX3NlY3RvcmlhbCRjb3JyZWxhY2lvbl9wcm9tZWRpbykgKiAxLjIpKQ0KICANCiAgcmV0dXJuKGxpc3QoZ3JhZmljbyA9IHAsIGRhdG9zID0gYW5hbGlzaXNfc2VjdG9yaWFsKSkNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIDUuIFRBQkxBIFJFU1VNRU4gRUpFQ1VUSVZBDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY3JlYXJfdGFibGFfcmVzdW1lbl9lamVjdXRpdmEgPC0gZnVuY3Rpb24oY29yX2RmLCBkYXRvc19oaXBvdGVzaXMsIHZhcmlhYmxlc19jZW50cmFsZXMsIGFuYWxpc2lzX3NlY3RvcmlhbCkgew0KICANCiAgIyBSZXN1bWVuIGdlbmVyYWwgZGUgY29ycmVsYWNpb25lcw0KICByZXN1bWVuX2dlbmVyYWwgPC0gY29yX2RmICU+JQ0KICAgIGZpbHRlcihTaWduaWZpY2F0aXZhID09ICJTw60iKSAlPiUNCiAgICBncm91cF9ieShNYWduaXR1ZCkgJT4lDQogICAgc3VtbWFyaXNlKA0KICAgICAgTl9Db3JyZWxhY2lvbmVzID0gbigpLA0KICAgICAgUmFuZ29fQ29ycmVsYWNpb24gPSBwYXN0ZTAoIlsiLCByb3VuZChtaW4oYWJzKENvcnJlbGFjaW9uKSksIDIpLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIiAtICIsIHJvdW5kKG1heChhYnMoQ29ycmVsYWNpb24pKSwgMiksICJdIiksDQogICAgICBWYXJpYWJsZXNfSW52b2x1Y3JhZGFzID0gbGVuZ3RoKHVuaXF1ZShjKFZhcmlhYmxlMSwgVmFyaWFibGUyKSkpLA0KICAgICAgUF9WYWxvcl9Qcm9tZWRpbyA9IHJvdW5kKG1lYW4ocF92YWxvciksIDQpLA0KICAgICAgLmdyb3VwcyA9ICJkcm9wIg0KICAgICkgJT4lDQogICAgYXJyYW5nZShtYXRjaChNYWduaXR1ZCwgYygiTXV5IGZ1ZXJ0ZSIsICJGdWVydGUiLCAiTW9kZXJhZGEiLCAiRMOpYmlsIikpKQ0KICANCiAgIyBSZXN1bWVuIGRlIGhpcMOzdGVzaXMNCiAgcmVzdW1lbl9oaXBvdGVzaXNfdGFibGEgPC0gZGF0b3NfaGlwb3Rlc2lzICU+JQ0KICAgIGdyb3VwX2J5KENhdGVnb3JpYV9IaXBvdGVzaXMsIEVzdGFkb19Db25maXJtYWNpb24pICU+JQ0KICAgIHN1bW1hcmlzZShuID0gbigpLCAuZ3JvdXBzID0gImRyb3AiKSAlPiUNCiAgICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gRXN0YWRvX0NvbmZpcm1hY2lvbiwgdmFsdWVzX2Zyb20gPSBuLCB2YWx1ZXNfZmlsbCA9IDApDQogIA0KICByZXR1cm4obGlzdCgNCiAgICByZXN1bWVuX2dlbmVyYWwgPSByZXN1bWVuX2dlbmVyYWwsDQogICAgcmVzdW1lbl9oaXBvdGVzaXMgPSByZXN1bWVuX2hpcG90ZXNpc190YWJsYSwNCiAgICB0b3BfdmFyaWFibGVzID0gaGVhZCh2YXJpYWJsZXNfY2VudHJhbGVzLCAxMCksDQogICAgcmVzdW1lbl9zZWN0b3JpYWwgPSBhbmFsaXNpc19zZWN0b3JpYWwNCiAgKSkNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEZVTkNJw5NOIFBSSU5DSVBBTCAtIEZMVUpPIERFIFRSQUJBSk8gQ09NUExFVE8NCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQplamVjdXRhcl9hbmFsaXNpc19jb21wbGV0b19jb3JyZWxhY2lvbmVzIDwtIGZ1bmN0aW9uKGNvcl9yZXN1bHRzLCBjb3JfZGYpIHsNCiAgDQogIGNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxuIikNCiAgY2F0KCJJTklDSUFORE8gQU7DgUxJU0lTIENPTVBMRVRPIERFIENPUlJFTEFDSU9ORVMgREUgU1BFQVJNQU4gLSBQUk9ZRUNUT1MgQUNBXG4iKQ0KICBjYXQoIj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQogIA0KICAjIFZlcmlmaWNhciBkYXRvcyBkZSBlbnRyYWRhDQogIGlmICghZXhpc3RzKCJjb3JfcmVzdWx0cyIpIHx8ICFleGlzdHMoImNvcl9kZiIpKSB7DQogICAgc3RvcCgiRVJST1I6IEZhbHRhbiBvYmpldG9zICdjb3JfcmVzdWx0cycgeS9vICdjb3JfZGYnLiBFamVjdXRhIHByaW1lcm8gZWwgYW7DoWxpc2lzIGRlIGNvcnJlbGFjacOzbi4iKQ0KICB9DQogIA0KICBjYXQoIkRhdG9zIHZlcmlmaWNhZG9zIGNvcnJlY3RhbWVudGUuXG4iKQ0KICBjYXQoImNvcl9yZXN1bHRzIGNvbXBvbmVudGVzOiIsIG5hbWVzKGNvcl9yZXN1bHRzKSwgIlxuIikNCiAgY2F0KCJjb3JfZGYgZGltZW5zaW9uZXM6IiwgZGltKGNvcl9kZiksICJcblxuIikNCiAgDQogICMgVklTVUFMSVpBQ0nDk04gMTogSEVBVE1BUCBQUklOQ0lQQUwNCiAgY2F0KCIxLiBDUkVBTkRPIEhFQVRNQVAgREUgQ09SUkVMQUNJT05FUyBTSUdOSUZJQ0FUSVZBUy4uLlxuIikNCiAgaGVhdG1hcCA8LSBjcmVhcl9oZWF0bWFwX2NvcnJlbGFjaW9uZXMoY29yX3Jlc3VsdHMpDQogIHByaW50KGhlYXRtYXApDQogIGNhdCgiSGVhdG1hcCBjb21wbGV0YWRvLlxuXG4iKQ0KICANCiAgIyBWSVNVQUxJWkFDScOTTiAyOiBFVkFMVUFDScOTTiBERSBISVDDk1RFU0lTDQogIGNhdCgiMi4gRVZBTFVBTkRPIEhJUMOTVEVTSVMgREUgSU5WRVNUSUdBQ0nDk04uLi5cbiIpDQogIHJlc3VsdGFkb19oaXBvdGVzaXMgPC0gY3JlYXJfZXZhbHVhY2lvbl9oaXBvdGVzaXMoY29yX2RmKQ0KICBwcmludChyZXN1bHRhZG9faGlwb3Rlc2lzJGdyYWZpY28pDQogIGNhdCgiRXZhbHVhY2nDs24gZGUgaGlww7N0ZXNpcyBjb21wbGV0YWRhLlxuXG4iKQ0KICANCiAgIyBWSVNVQUxJWkFDScOTTiAzOiBBTsOBTElTSVMgREUgVkFSSUFCTEVTIENFTlRSQUxFUw0KICBjYXQoIjMuIEFOQUxJWkFORE8gVkFSSUFCTEVTIENFTlRSQUxFUy4uLlxuIikNCiAgYW5hbGlzaXNfY2VudHJhbGlkYWQgPC0gY3JlYXJfYW5hbGlzaXNfdmFyaWFibGVzX2NlbnRyYWxlcyhjb3JfZGYpDQogIHByaW50KGFuYWxpc2lzX2NlbnRyYWxpZGFkJGdyYWZpY28pDQogIGNhdCgiQW7DoWxpc2lzIGRlIGNlbnRyYWxpZGFkIGNvbXBsZXRhZG8uXG5cbiIpDQogIA0KICAjIFZJU1VBTElaQUNJw5NOIDQ6IEFOw4FMSVNJUyBTRUNUT1JJQUwNCiAgY2F0KCI0LiBSRUFMSVpBTkRPIEFOw4FMSVNJUyBTRUNUT1JJQUwuLi5cbiIpDQogIGFuYWxpc2lzX3NlY3RvcmVzIDwtIGNyZWFyX2FuYWxpc2lzX3NlY3RvcmlhbChjb3JfZGYpDQogIHByaW50KGFuYWxpc2lzX3NlY3RvcmVzJGdyYWZpY28pDQogIGNhdCgiQW7DoWxpc2lzIHNlY3RvcmlhbCBjb21wbGV0YWRvLlxuXG4iKQ0KICANCiAgIyBHRU5FUkFSIFRBQkxBUyBSRVNVTUVODQogIGNhdCgiNS4gR0VORVJBTkRPIFRBQkxBUyBSRVNVTUVOLi4uXG4iKQ0KICB0YWJsYXNfcmVzdW1lbiA8LSBjcmVhcl90YWJsYV9yZXN1bWVuX2VqZWN1dGl2YSgNCiAgICBjb3JfZGYsIA0KICAgIHJlc3VsdGFkb19oaXBvdGVzaXMkZGF0b3NfZGV0YWxsYWRvcywNCiAgICBhbmFsaXNpc19jZW50cmFsaWRhZCRkYXRvcywNCiAgICBhbmFsaXNpc19zZWN0b3JlcyRkYXRvcw0KICApDQogIA0KICAjIE1PU1RSQVIgUkVTVUxUQURPUyBQUklOQ0lQQUxFUw0KICBjYXQoIj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQogIGNhdCgiUkVTVU1FTiBFSkVDVVRJVk8gREUgUkVTVUxUQURPU1xuIikNCiAgY2F0KCI9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09XG4iKQ0KICANCiAgY2F0KCJESVNUUklCVUNJw5NOIERFIENPUlJFTEFDSU9ORVMgU0lHTklGSUNBVElWQVM6XG4iKQ0KICBwcmludCh0YWJsYXNfcmVzdW1lbiRyZXN1bWVuX2dlbmVyYWwpDQogIGNhdCgiXG4iKQ0KICANCiAgY2F0KCJFVkFMVUFDScOTTiBERSBISVDDk1RFU0lTOlxuIikNCiAgcHJpbnQodGFibGFzX3Jlc3VtZW4kcmVzdW1lbl9oaXBvdGVzaXMpDQogIGNhdCgiXG4iKQ0KICANCiAgY2F0KCJUT1AgNSBWQVJJQUJMRVMgTcOBUyBDRU5UUkFMRVM6XG4iKQ0KICBwcmludChoZWFkKHRhYmxhc19yZXN1bWVuJHRvcF92YXJpYWJsZXNbYygidmFyaWFibGUiLCAibl9jb25leGlvbmVzIiwgImNvcnJlbGFjaW9uX3Byb21lZGlvIildLCA1KSkNCiAgY2F0KCJcbiIpDQogIA0KICBjYXQoIkFOw4FMSVNJUyBTRUNUT1JJQUw6XG4iKQ0KICBwcmludCh0YWJsYXNfcmVzdW1lbiRyZXN1bWVuX3NlY3RvcmlhbCkNCiAgY2F0KCJcbiIpDQogIA0KICBjYXQoIj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQogIGNhdCgiQU7DgUxJU0lTIENPTVBMRVRBRE8gRVhJVE9TQU1FTlRFXG4iKQ0KICBjYXQoIj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQogIA0KICAjIFJldG9ybmFyIHRvZG9zIGxvcyByZXN1bHRhZG9zDQogIHJldHVybihsaXN0KA0KICAgIHZpc3VhbGl6YWNpb25lcyA9IGxpc3QoDQogICAgICBoZWF0bWFwID0gaGVhdG1hcCwNCiAgICAgIGV2YWx1YWNpb25faGlwb3Rlc2lzID0gcmVzdWx0YWRvX2hpcG90ZXNpcyRncmFmaWNvLA0KICAgICAgdmFyaWFibGVzX2NlbnRyYWxlcyA9IGFuYWxpc2lzX2NlbnRyYWxpZGFkJGdyYWZpY28sDQogICAgICBhbmFsaXNpc19zZWN0b3JpYWwgPSBhbmFsaXNpc19zZWN0b3JlcyRncmFmaWNvDQogICAgKSwNCiAgICBkYXRvc19hbmFsaXRpY29zID0gbGlzdCgNCiAgICAgIHJlc3VtZW5faGlwb3Rlc2lzID0gcmVzdWx0YWRvX2hpcG90ZXNpcyRkYXRvcywNCiAgICAgIGRldGFsbGVfaGlwb3Rlc2lzID0gcmVzdWx0YWRvX2hpcG90ZXNpcyRkYXRvc19kZXRhbGxhZG9zLA0KICAgICAgdmFyaWFibGVzX2NlbnRyYWxlcyA9IGFuYWxpc2lzX2NlbnRyYWxpZGFkJGRhdG9zLA0KICAgICAgYW5hbGlzaXNfc2VjdG9yaWFsID0gYW5hbGlzaXNfc2VjdG9yZXMkZGF0b3MNCiAgICApLA0KICAgIHRhYmxhc19yZXN1bWVuID0gdGFibGFzX3Jlc3VtZW4NCiAgKSkNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojICBGVU5DScOTTiBQQVJBIENSRUFSIERBVE9TIERFIFRBQkxBUyBSRVNVTUVOIERJTkFNSUNBUw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCiMgMS4gRGlzdHJpYnVjacOzbiBkZSBjb3JyZWxhY2lvbmVzDQpkaXN0cmlidWNpb25fY29yIDwtIGRhdGEuZnJhbWUoDQogIE1hZ25pdHVkID0gYygiTXV5IGZ1ZXJ0ZSIsICJNb2RlcmFkYSIsICJEw6liaWwiKSwNCiAgTl9Db3JyZWxhY2lvbmVzID0gYygxMiwgNCwgMTYpLA0KICBSYW5nb19Db3JyZWxhY2lvbiA9IGMoIlswLjc1IC0gMV0iLCAiWzAuMzUgLSAwLjM3XSIsICJbMC4xNSAtIDAuMTldIiksDQogIFZhcmlhYmxlc19JbnZvbHVjcmFkYXMgPSBjKDEyLCAzLCAxMSksDQogIFBfVmFsb3JfUHJvbWVkaW8gPSBjKDAuMDAwLCAwLjAwMiwgMC4wNDgpDQopDQoNCiMgMi4gRXZhbHVhY2nDs24gZGUgaGlww7N0ZXNpcw0KZXZhbHVhY2lvbl9oaXBvdGVzaXMgPC0gZGF0YS5mcmFtZSgNCiAgQ2F0ZWdvcmlhX0hpcG90ZXNpcyA9IGMoIkNvcnJlbGFjaW9uZXMgRXhwbG9yYXRvcmlhcyIsICJIRTE6IENvbmNvcmRhbmNpYSBTZWN0b3JpYWwiLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAiSEUyOiBDb21wbGVqaWRhZCBWaXZpZW5kYSIsICJIRTM6IEVmaWNpZW5jaWEgVHJhbnNwb3J0ZSIsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICJIRTQ6IENvbXBsZWppZGFkIFRlbXBvcmFsIiksDQogIEV4cGxvcmF0b3JpYSA9IGMoMjAsIDAsIDAsIDAsIDApLA0KICBDb25maXJtYWRhID0gYygwLCA0LCA0LCAyLCAyKSwNCiAgUGFyY2lhbCA9IGMoMCwgMCwgMCwgMCwgMCksDQogIFRvdGFsID0gYygyMCwgNCwgNCwgMiwgMikNCikNCg0KIyAzLiBWYXJpYWJsZXMgbcOhcyBjZW50cmFsZXMNCnZhcmlhYmxlc19jZW50cmFsZXMgPC0gZGF0YS5mcmFtZSgNCiAgVmFyaWFibGUgPSBjKCJDbGFzaWZpY2FjaW9uIEFjdG9yZXMgaW5zdGl0IiwgIkNGRzogRUxFQ1RSSUNJREFEIiwgIkdPQjogRUxFQ1RSSUNJREFEIiwNCiAgICAgICAgICAgICAgICJDRkc6IFZJQUxJREFEIiwgIkNGRzogVFJBTlNQT1JURSIpLA0KICBOX0NvbmV4aW9uZXMgPSBjKDEwLCAyLCAyLCA4LCAyKSwNCiAgQ29ycmVsYWNpb25fUHJvbWVkaW8gPSBjKDAuMjQ1LCAxLjAwMCwgMS4wMDAsIDAuMzEwLCAwLjkzMyksDQogIENvcnJlbGFjaW9uX01heGltYSA9IGMoMC4yNDUsIDEuMDAwLCAxLjAwMCwgMC4zMTAsIDAuOTMzKQ0KKQ0KDQojIDQuIEFuw6FsaXNpcyBzZWN0b3JpYWwNCmFuYWxpc2lzX3NlY3RvcmlhbCA8LSBkYXRhLmZyYW1lKA0KICBTZWN0b3JfUHJpbmNpcGFsID0gYygiRWxlY3RyaWNpZGFkIiwgIkludGVyc2VjdG9yaWFsIiwgIlZpYWxpZGFkIiwgIkFtYmllbnRlL0NhbmFsaXphY2nDs24iLA0KICAgICAgICAgICAgICAgICAgICAgICJUcmFuc3BvcnRlIiwgIlZpdmllbmRhIiwgIkluZnJhZXN0cnVjdHVyYSIpLA0KICBOX0NvcnJlbGFjaW9uZXMgPSBjKDIsIDIsIDQsIDYsIDYsIDEwLCAyKSwNCiAgQ29ycmVsYWNpb25fUHJvbWVkaW8gPSBjKDEuMDAwLCAxLjAwMCwgMC40NzAsIDAuNDM3LCAwLjQyMiwgMC4zOTQsIDAuMTg1KSwNCiAgQ29ycmVsYWNpb25fTWF4aW1hID0gYygxLjAwMCwgMS4wMDAsIDAuNzQ4LCAxLjAwMCwgMC45MzMsIDAuOTUwLCAwLjE4NSksDQogIENvcnJlbGFjaW9uZXNfRnVlcnRlcyA9IGMoMiwgMiwgMCwgNiwgMiwgNCwgMCkNCikNCg0KIz09PT09PT09PT09PT09PT09PT09PT09PT09PT09Q3JlYXIgbGFzIHRhYmxhcyBrYWJsZT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PSMNCg0KIyBUYWJsYSAxOiBEaXN0cmlidWNpw7NuIGRlIGNvcnJlbGFjaW9uZXMNCmthYmxlX2Rpc3RyaWJ1Y2lvbiA8LSBkaXN0cmlidWNpb25fY29yICU+JQ0KICBrYWJsZShmb3JtYXQgPSAiaHRtbCIsDQogICAgICAgIGNhcHRpb24gPSAiVGFibGEgMTogRGlzdHJpYnVjacOzbiBkZSBDb3JyZWxhY2lvbmVzIFNpZ25pZmljYXRpdmFzIHBvciBNYWduaXR1ZCIsDQogICAgICAgIGFsaWduID0gYygibCIsICJjIiwgImMiLCAiYyIsICJjIiksDQogICAgICAgIGNvbC5uYW1lcyA9IGMoIk1hZ25pdHVkIiwgIk7CsCBDb3JyZWxhY2lvbmVzIiwgIlJhbmdvIHzPgXwiLCANCiAgICAgICAgICAgICAgICAgICAgICJWYXJpYWJsZXMgSW52b2x1Y3JhZGFzIiwgInAtdmFsb3IgUHJvbWVkaW8iKSkgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiwgImNvbmRlbnNlZCIsICJyZXNwb25zaXZlIiksDQogICAgICAgICAgICAgICAgZnVsbF93aWR0aCA9IEZBTFNFLA0KICAgICAgICAgICAgICAgIGZvbnRfc2l6ZSA9IDEzLA0KICAgICAgICAgICAgICAgIHBvc2l0aW9uID0gImNlbnRlciIpICU+JQ0KICByb3dfc3BlYygwLCBib2xkID0gVFJVRSwgYmFja2dyb3VuZCA9ICIjNjRCNUY2IiwgY29sb3IgPSAid2hpdGUiLCBmb250X3NpemUgPSAxNCkgJT4lDQogIHJvd19zcGVjKDEsIGJvbGQgPSBUUlVFLCBiYWNrZ3JvdW5kID0gIiNFNTczNzMiLCBjb2xvciA9ICJ3aGl0ZSIpICU+JSAgIyBNdXkgZnVlcnRlIGVuIHJvam8gY2xhcm8NCiAgcm93X3NwZWMoMiwgYm9sZCA9IFRSVUUsIGJhY2tncm91bmQgPSAiIzgxQzc4NCIsIGNvbG9yID0gIndoaXRlIikgJT4lICAjIE1vZGVyYWRhIGVuIHZlcmRlIGNsYXJvDQogIHJvd19zcGVjKDMsIGJvbGQgPSBUUlVFLCBiYWNrZ3JvdW5kID0gIiNGRkYxNzYiLCBjb2xvciA9ICJibGFjayIpICU+JSAgIyBEw6liaWwgZW4gYW1hcmlsbG8gY2xhcm8NCiAgY29sdW1uX3NwZWMoMSwgYm9sZCA9IFRSVUUsIHdpZHRoID0gIjE1JSIpICU+JQ0KICBjb2x1bW5fc3BlYygyOjUsIHdpZHRoID0gIjE1JSIpICU+JQ0KICBmb290bm90ZShnZW5lcmFsID0gIkNsYXNpZmljYWNpw7NuOiBNdXkgZnVlcnRlICh8z4F8ID4gMC43KSwgTW9kZXJhZGEgKDAuMy0wLjUpLCBEw6liaWwgKHzPgXwgPCAwLjMpIiwNCiAgICAgICAgICAgZ2VuZXJhbF90aXRsZSA9ICJOb3RhOiAiKQ0KDQojIFRhYmxhIDI6IEV2YWx1YWNpw7NuIGRlIGhpcMOzdGVzaXMNCmthYmxlX2hpcG90ZXNpcyA8LSBldmFsdWFjaW9uX2hpcG90ZXNpcyAlPiUNCiAga2FibGUoZm9ybWF0ID0gImh0bWwiLA0KICAgICAgICBjYXB0aW9uID0gIlRhYmxhIDI6IEV2YWx1YWNpw7NuIGRlIEhpcMOzdGVzaXMgZGUgSW52ZXN0aWdhY2nDs24iLA0KICAgICAgICBhbGlnbiA9IGMoImwiLCAiYyIsICJjIiwgImMiLCAiYyIsICJjIiksDQogICAgICAgIGNvbC5uYW1lcyA9IGMoIkhpcMOzdGVzaXMiLCAiRXhwbG9yYXRvcmlhIiwgIkNvbmZpcm1hZGEiLCANCiAgICAgICAgICAgICAgICAgICAgICJQYXJjaWFsIiwgIlRvdGFsIikpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiLCAicmVzcG9uc2l2ZSIpLA0KICAgICAgICAgICAgICAgIGZ1bGxfd2lkdGggPSBGQUxTRSwNCiAgICAgICAgICAgICAgICBmb250X3NpemUgPSAxMywNCiAgICAgICAgICAgICAgICBwb3NpdGlvbiA9ICJjZW50ZXIiKSAlPiUNCiAgcm93X3NwZWMoMCwgYm9sZCA9IFRSVUUsIGJhY2tncm91bmQgPSAiIzQyQTVGNSIsIGNvbG9yID0gIndoaXRlIiwgZm9udF9zaXplID0gMTQpICU+JQ0KICByb3dfc3BlYygxLCBib2xkID0gVFJVRSwgYmFja2dyb3VuZCA9ICIjRTNGMkZEIiwgY29sb3IgPSAiYmxhY2siKSAlPiUgICMgRXhwbG9yYXRvcmlhcw0KICByb3dfc3BlYygyOjUsIGJhY2tncm91bmQgPSAiI0U4RjVFOCIpICU+JSAgIyBDb25maXJtYWRhcw0KICByb3dfc3BlYygyLCBiYWNrZ3JvdW5kID0gIiNDOEU2QzkiKSAlPiUgICMgSEUxDQogIHJvd19zcGVjKDMsIGJhY2tncm91bmQgPSAiI0E1RDZBNyIpICU+JSAgIyBIRTINCiAgcm93X3NwZWMoNCwgYmFja2dyb3VuZCA9ICIjODFDNzg0IikgJT4lICAjIEhFMw0KICByb3dfc3BlYyg1LCBiYWNrZ3JvdW5kID0gIiM2NkJCNkEiKSAlPiUgICMgSEU0DQogIGNvbHVtbl9zcGVjKDEsIGJvbGQgPSBUUlVFLCB3aWR0aCA9ICIzNSUiKSAlPiUNCiAgY29sdW1uX3NwZWMoMjo1LCB3aWR0aCA9ICIxMCUiKSAlPiUNCiAgZm9vdG5vdGUoZ2VuZXJhbCA9ICJIaXDDs3Rlc2lzIGNvbmZpcm1hZGFzIGN1YW5kbyBjdW1wbGVuIGNyaXRlcmlvcyBlc3RhZMOtc3RpY29zIHkgdGXDs3JpY29zIHByZWRlZmluaWRvcyIsDQogICAgICAgICAgIGdlbmVyYWxfdGl0bGUgPSAiTm90YTogIikNCg0KIyBUYWJsYSAzOiBWYXJpYWJsZXMgbcOhcyBjZW50cmFsZXMNCmthYmxlX2NlbnRyYWxlcyA8LSB2YXJpYWJsZXNfY2VudHJhbGVzICU+JQ0KICBzZWxlY3QoVmFyaWFibGUgPSBWYXJpYWJsZSwgDQogICAgICAgICBDb25leGlvbmVzID0gTl9Db25leGlvbmVzLCANCiAgICAgICAgIGDPgSBQcm9tZWRpb2AgPSBDb3JyZWxhY2lvbl9Qcm9tZWRpbywgDQogICAgICAgICBgz4EgTcOheGltb2AgPSBDb3JyZWxhY2lvbl9NYXhpbWEpICU+JQ0KICBrYWJsZShmb3JtYXQgPSAiaHRtbCIsDQogICAgICAgIGNhcHRpb24gPSAiVGFibGEgMzogVG9wIDUgVmFyaWFibGVzIE3DoXMgQ2VudHJhbGVzIGVuIGxhIFJlZCBkZSBDb3JyZWxhY2lvbmVzIiwNCiAgICAgICAgYWxpZ24gPSBjKCJsIiwgImMiLCAiYyIsICJjIikpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiLCAicmVzcG9uc2l2ZSIpLA0KICAgICAgICAgICAgICAgIGZ1bGxfd2lkdGggPSBGQUxTRSwNCiAgICAgICAgICAgICAgICBmb250X3NpemUgPSAxMywNCiAgICAgICAgICAgICAgICBwb3NpdGlvbiA9ICJjZW50ZXIiKSAlPiUNCiAgcm93X3NwZWMoMCwgYm9sZCA9IFRSVUUsIGJhY2tncm91bmQgPSAiI0FCNDdCQyIsIGNvbG9yID0gIndoaXRlIiwgZm9udF9zaXplID0gMTQpICU+JQ0KICByb3dfc3BlYygxLCBib2xkID0gVFJVRSwgYmFja2dyb3VuZCA9ICIjRjNFNUY1IiwgY29sb3IgPSAiYmxhY2siKSAlPiUgICMgVG9wIDENCiAgcm93X3NwZWMoMjozLCBiYWNrZ3JvdW5kID0gIiNGOEJCRDkiKSAlPiUgICMgVG9wIDItMw0KICByb3dfc3BlYyg0OjUsIGJhY2tncm91bmQgPSAiI0ZDRTRFQyIpICU+JSAgIyBUb3AgNC01DQogIGNvbHVtbl9zcGVjKDEsIGJvbGQgPSBUUlVFLCB3aWR0aCA9ICIzNSUiKSAlPiUNCiAgY29sdW1uX3NwZWMoMjo0LCB3aWR0aCA9ICIxNSUiKSAlPiUNCiAgZm9vdG5vdGUoZ2VuZXJhbCA9ICJDZW50cmFsaWRhZCBiYXNhZGEgZW4gbsO6bWVybyBkZSBjb25leGlvbmVzIHNpZ25pZmljYXRpdmFzIHkgZnVlcnphIHByb21lZGlvIGRlIGNvcnJlbGFjaW9uZXMiLA0KICAgICAgICAgICBnZW5lcmFsX3RpdGxlID0gIk5vdGE6ICIpDQoNCiMgVGFibGEgNDogQW7DoWxpc2lzIHNlY3RvcmlhbA0Ka2FibGVfc2VjdG9yaWFsIDwtIGFuYWxpc2lzX3NlY3RvcmlhbCAlPiUNCiAgc2VsZWN0KFNlY3RvciA9IFNlY3Rvcl9QcmluY2lwYWwsIA0KICAgICAgICAgYE7CsCBDb3JyZWxhY2lvbmVzYCA9IE5fQ29ycmVsYWNpb25lcywNCiAgICAgICAgIGDPgSBQcm9tZWRpb2AgPSBDb3JyZWxhY2lvbl9Qcm9tZWRpbywNCiAgICAgICAgIGDPgSBNw6F4aW1vYCA9IENvcnJlbGFjaW9uX01heGltYSwNCiAgICAgICAgIGBDb3JyZWxhY2lvbmVzIEZ1ZXJ0ZXNgID0gQ29ycmVsYWNpb25lc19GdWVydGVzKSAlPiUNCiAga2FibGUoZm9ybWF0ID0gImh0bWwiLA0KICAgICAgICBjYXB0aW9uID0gIlRhYmxhIDQ6IEFuw6FsaXNpcyBTZWN0b3JpYWwgZGUgQ29ycmVsYWNpb25lcyBTaWduaWZpY2F0aXZhcyIsDQogICAgICAgIGFsaWduID0gYygibCIsICJjIiwgImMiLCAiYyIsICJjIikpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiLCAicmVzcG9uc2l2ZSIpLA0KICAgICAgICAgICAgICAgIGZ1bGxfd2lkdGggPSBGQUxTRSwNCiAgICAgICAgICAgICAgICBmb250X3NpemUgPSAxMywNCiAgICAgICAgICAgICAgICBwb3NpdGlvbiA9ICJjZW50ZXIiKSAlPiUNCiAgcm93X3NwZWMoMCwgYm9sZCA9IFRSVUUsIGJhY2tncm91bmQgPSAiIzREQjZBQyIsIGNvbG9yID0gIndoaXRlIiwgZm9udF9zaXplID0gMTQpICU+JQ0KICByb3dfc3BlYygxOjIsIGJvbGQgPSBUUlVFLCBiYWNrZ3JvdW5kID0gIiNCMkRGREIiLCBjb2xvciA9ICJibGFjayIpICU+JSAgIyBFbGVjdHJpY2lkYWQgZSBJbnRlcnNlY3RvcmlhbCAoz4E9MS4wKQ0KICByb3dfc3BlYyg2LCBib2xkID0gVFJVRSwgYmFja2dyb3VuZCA9ICIjQzhFNkM5IikgJT4lICAjIFZpdmllbmRhIChtw6FzIGNvcnJlbGFjaW9uZXMpDQogIHJvd19zcGVjKDQ6NSwgYmFja2dyb3VuZCA9ICIjRTBGMkYxIikgJT4lICAjIEFtYmllbnRlIHkgVHJhbnNwb3J0ZQ0KICBjb2x1bW5fc3BlYygxLCBib2xkID0gVFJVRSwgd2lkdGggPSAiMjUlIikgJT4lDQogIGNvbHVtbl9zcGVjKDI6NSwgd2lkdGggPSAiMTUlIikgJT4lDQogIGZvb3Rub3RlKGdlbmVyYWwgPSAiU2VjdG9yZXMgb3JkZW5hZG9zIHBvciBmdWVyemEgcHJvbWVkaW8gZGUgY29ycmVsYWNpb25lcyB8z4F8IiwNCiAgICAgICAgICAgZ2VuZXJhbF90aXRsZSA9ICJOb3RhOiAiKQ0KDQojIE1vc3RyYXIgbGFzIHRhYmxhcw0KY2F0KCJcbiMjIyBSZXN1bHRhZG9zIGRlbCBBbsOhbGlzaXMgZGUgQ29ycmVsYWNpb25lc1xuXG4iKQ0KY2F0KCJBIGNvbnRpbnVhY2nDs24gc2UgcHJlc2VudGFuIGxhcyB0YWJsYXMgcmVzdW1lbiBkZWwgYW7DoWxpc2lzOlxuXG4iKQ0KDQprYWJsZV9kaXN0cmlidWNpb24NCmNhdCgiXG4iKQ0Ka2FibGVfaGlwb3Rlc2lzDQpjYXQoIlxuIikNCmthYmxlX2NlbnRyYWxlcw0KY2F0KCJcbiIpDQprYWJsZV9zZWN0b3JpYWwNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEVKRUNVQ0nDk04gQVVUT03DgVRJQ0ENCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQojIEVqZWN1dGFyIGFuw6FsaXNpcyBjb21wbGV0byBzaSBsb3MgZGF0b3MgZXN0w6FuIGRpc3BvbmlibGVzDQppZiAoZXhpc3RzKCJjb3JfcmVzdWx0cyIpICYmIGV4aXN0cygiY29yX2RmIikpIHsNCiAgcmVzdWx0YWRvc19maW5hbGVzIDwtIGVqZWN1dGFyX2FuYWxpc2lzX2NvbXBsZXRvX2NvcnJlbGFjaW9uZXMoY29yX3Jlc3VsdHMsIGNvcl9kZikNCiAgDQogICMgRGVzY29tZW50YXIgcGFyYSBndWFyZGFyIGF1dG9tw6F0aWNhbWVudGU6DQogICMgZ3VhcmRhcl9yZXN1bHRhZG9zX2NvbXBsZXRvcyhyZXN1bHRhZG9zX2ZpbmFsZXMpDQp9IGVsc2Ugew0KICBjYXQoIkVzcGVyYW5kbyBkYXRvcyAnY29yX3Jlc3VsdHMnIHkgJ2Nvcl9kZicgcGFyYSBlamVjdXRhciBlbCBhbsOhbGlzaXMuLi5cbiIpDQp9DQoNCiMgQ3JlYXIgdW5hIGZ1bmNpw7NuIHBhcmEgZ2VuZXJhciBncsOhZmljb3MgZGUgZGlzcGVyc2nDs24gY29uIFNwZWFybWFuDQpwbG90X3NwZWFybWFuIDwtIGZ1bmN0aW9uKGRhdGEsIHhfdmFyLCB5X3ZhciwgeF9sYWJlbCwgeV9sYWJlbCwgdGl0bGUpIHsNCiAgZ2dzY2F0dGVyKA0KICAgIGRhdGEgPSBkYXRhLA0KICAgIHggPSB4X3ZhciwNCiAgICB5ID0geV92YXIsDQogICAgYWRkID0gInJlZy5saW5lIiwgIyBBw7FhZGlyIGzDrW5lYSBkZSByZWdyZXNpw7NuDQogICAgY29uZi5pbnQgPSBUUlVFLCAjIEHDsWFkaXIgaW50ZXJ2YWxvIGRlIGNvbmZpYW56YQ0KICAgIGNvci5jb2VmID0gVFJVRSwgIyBNb3N0cmFyIGNvZWZpY2llbnRlDQogICAgY29yLm1ldGhvZCA9ICJzcGVhcm1hbiIsICMgTcOpdG9kbyBkZSBjb3JyZWxhY2nDs24NCiAgICB0aXRsZSA9IHRpdGxlLA0KICAgIHhsYWIgPSB4X2xhYmVsLA0KICAgIHlsYWIgPSB5X2xhYmVsLA0KICAgIGZvbnQueCA9IDEwLA0KICAgIGZvbnQueSA9IDEwLA0KICAgIGNvci5jb2VmZi5hcmdzID0gbGlzdChzaXplID0gNCwgY29sb3IgPSAiYmx1ZSIpICMgRXN0aWxvIGRlbCBjb2VmaWNpZW50ZQ0KICApICsNCiAgICB0aGVtZV9taW5pbWFsKCkgKw0KICAgIHRoZW1lKA0KICAgICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChoanVzdCA9IDAuNSwgZmFjZSA9ICJib2xkIiksDQogICAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIpDQogICAgKQ0KfQ0KDQoNCiMgSEUxOiBDRkc6IEVMRUNUUklDSURBRCB2cyBHT0I6IEVMRUNUUklDSURBRA0KIyAoQXN1bWllbmRvIHF1ZSB0aWVuZXMgY29sdW1uYXMgIkNGR19FTEVDVFJJQ0lEQUQiIHkgIkdPQl9FTEVDVFJJQ0lEQUQiIGVuIGRmX2NvcikNCnAxIDwtIHBsb3Rfc3BlYXJtYW4oDQogIGRmX2NvciwNCiAgIkNMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGR19FTEVDVFJJQ0lEQUQiLA0KICAiQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19HT0JFUk5BQ0lPTl9FTEVDVFJJQ0lEQUQiLA0KICAiQ0ZHOiBFTEVDVFJJQ0lEQUQiLA0KICAiR09COiBFTEVDVFJJQ0lEQUQiLA0KICAiSEUxOiBDb3JyZWxhY2nDs24gUGVyZmVjdGEgZW50cmUgRGlhZ27Ds3N0aWNvIHkgR2VzdGnDs24gZW4gRWxlY3RyaWNpZGFkICjPgSA9IDEuMCkiDQopDQoNCiMgSEUyOiBDRkc6IFZJVklFTkRBIHZzIEdPQjogVklWSUVOREENCnAyIDwtIHBsb3Rfc3BlYXJtYW4oDQogIGRmX2NvciwNCiAgIkNMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGR19WSVZJRU5EQSIsDQogICJDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX0dPQkVSTkFDSU9OX1ZJVklFTkRBIiwNCiAgIkNGRzogVklWSUVOREEiLA0KICAiR09COiBWSVZJRU5EQSIsDQogICJIRTI6IEFsdGEgQ29ycmVsYWNpw7NuIGVuIFZpdmllbmRhICjPgSA9IDAuOTUpIg0KKQ0KDQojIEhFMzogQ2xhc2lmaWNhY2lvbl9BY3RvcmVzX2luc3RpdHVjaW9uYWxlcyB2cyBDRkc6IFZJVklFTkRBDQpwMyA8LSBwbG90X3NwZWFybWFuKA0KICBkZl9jb3IsDQogICJDbGFzaWZpY2FjaW9uX0FjdG9yZXNfaW5zdGl0dWNpb25hbGVzIiwNCiAgIkNMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fVElQT0xPR0lBX0NGR19WSVZJRU5EQSIsDQogICJDbGFzaWZpY2FjacOzbiBBY3RvcmVzICgxPUFsdG8gTml2ZWwpIiwNCiAgIkNGRzogVklWSUVOREEiLA0KICAiSEUzOiBDZW50cmFsaXphY2nDs24gZW4gUHJvYmxlbWFzIGRlIFZpdmllbmRhICjPgSA9IC0wLjM2OCkiDQopDQoNCiMgSEU0OiBSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPIHZzIEdPQjogVFJBTlNQT1JURQ0KcDQgPC0gcGxvdF9zcGVhcm1hbigNCiAgZGZfY29yLA0KICAiUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETyIsDQogICJDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX0dPQkVSTkFDSU9OX1RSQU5TUE9SVEUiLA0KICAiUmF0aW8gQUNBIChFZmVjdGl2aWRhZCkiLA0KICAiR09COiBUUkFOU1BPUlRFIiwNCiAgIkhFNDogRWZlY3RpdmlkYWQgTGV2ZSBlbiBQcm95ZWN0b3MgZGUgVHJhbnNwb3J0ZSAoz4EgPSAwLjE2NykiDQopDQoNCiMgSEU1OiBQTEFaT1MgdnMgQ0ZHOiBJTkZSQUVTVFJVQ1RVUkENCnA1IDwtIHBsb3Rfc3BlYXJtYW4oDQogIGRmX2NvciwNCiAgIlBMQVpPUyIsDQogICJDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkdfSU5GUkFFU1RSVUNUVVJBIiwNCiAgIlBMQVpPUyAoMT1Db3J0bywgMj1NZWRpYW5vKSIsDQogICJDRkc6IElORlJBRVNUUlVDVFVSQSIsDQogICJIRTU6IFBsYXpvcyBDb3J0b3MgcGFyYSBJbmZyYWVzdHJ1Y3R1cmEgKM+BID0gLTAuMTg1KSINCikNCg0KIyBNb3N0cmFyIGxvcyBncsOhZmljb3MgKHB1ZWRlcyBtb3N0cmFybG9zIGRlIHVubyBlbiB1bm8gbyBlbiB1bmEgY3VhZHLDrWN1bGEpDQpwMQ0KcDINCnAzDQpwNA0KcDUNCg0KIyBPcGNpb25hbDogTW9zdHJhcmxvcyBlbiB1bmEgY3VhZHLDrWN1bGEgZGUgMngzIChkZWphbmRvIHVuIGVzcGFjaW8gdmFjw61vKQ0KIyBnZ2FycmFuZ2UocDEsIHAyLCBwMywgcDQsIHA1LCBuY29sID0gMiwgbnJvdyA9IDMpDQoNCiMjIy0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tSGlww7N0ZXNpcyBkZSBsYSBpbnZlc3RpZ2FjacOzbi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KDQojIENyZWFyIGxhIHRhYmxhIGRlIGhpcMOzdGVzaXMNCnRhYmxhX2hpcG90ZXNpcyA8LSBkYXRhLmZyYW1lKA0KICBIaXDDs3Rlc2lzID0gYygNCiAgICAiKipIaXDDs3Rlc2lzIEdlbmVyYWwgKEhHKSoqIiwNCiAgICAiRXhpc3RlIHVuYSByZWxhY2nDs24gZXN0YWTDrXN0aWNhbWVudGUgc2lnbmlmaWNhdGl2YSBlbnRyZSBsYSB0aXBvbG9nw61hIGRlIGxvcyBudWRvcyBjcsOtdGljb3MgaWRlbnRpZmljYWRvcyAoQ0ZHKSwgbGEgY2xhc2lmaWNhY2nDs24gZGUgbG9zIGFjdG9yZXMgaW5zdGl0dWNpb25hbGVzIChHb2Jlcm5hY2nDs24pIHkgbGEgZWZlY3RpdmlkYWQgZW4gbGEgZWplY3VjacOzbiBkZSBsb3MgcHJveWVjdG9zIChSQVRJTyBBQ0EpIGVuIGxhcyBjb211bmFzIGRlbCBFc3RhZG8gTcOpcmlkYSBkdXJhbnRlIGVsIHBlcsOtb2RvIDIwMTgtMjAyNS4iLA0KICAgICIiLA0KICAgICIqKkhFMToqKiBFeGlzdGUgdW5hIGNvcnJlbGFjacOzbiBwb3NpdGl2YSBtdXkgZnVlcnRlIHkgc2lnbmlmaWNhdGl2YSBlbnRyZSBsYSBpZGVudGlmaWNhY2nDs24gZGUgbnVkb3MgY3LDrXRpY29zIHJlbGFjaW9uYWRvcyBjb24gRUxFQ1RSSUNJREFEKENGRykgeSBsYSBwYXJ0aWNpcGFjacOzbiBkZSBsYSBHb2Jlcm5hY2nDs24gZW4gZWwgw6FyZWEgZGUgRUxFQ1RSSUNJREFEKEdPQikgZW4gbG9zIHByb3llY3RvcyBBQ0EuIiwNCiAgICAiKipIRTI6KiogRXhpc3RlIHVuYSBjb3JyZWxhY2nDs24gcG9zaXRpdmEgbXV5IGZ1ZXJ0ZSB5IHNpZ25pZmljYXRpdmEgZW50cmUgbGEgaWRlbnRpZmljYWNpw7NuIGRlIG51ZG9zIGNyw610aWNvcyBkZSBWSVZJRU5EQShDRkcpIHkgbGEgcGFydGljaXBhY2nDs24gZGUgbGEgR29iZXJuYWNpw7NuIGVuIGVsIMOhcmVhIGRlIFZJVklFTkRBKEdPQikgZW4gbG9zIHByb3llY3RvcyBBQ0EuIiwNCiAgICAiKipIRTM6KiogRXhpc3RlIHVuYSBjb3JyZWxhY2nDs24gbmVnYXRpdmEgbW9kZXJhZGEgeSBzaWduaWZpY2F0aXZhIGVudHJlIGxhIENsYXNpZmljYWNpw7NuIGRlIEFjdG9yZXMgSW5zdGl0dWNpb25hbGVzIChkb25kZSB2YWxvcmVzIG3DoXMgYmFqb3MgaW5kaWNhbiBhY3RvcmVzIGRlIG1heW9yIG5pdmVsIGplcsOhcnF1aWNvLCBjb21vIE1pbmlzdGVyaW9zIHkgR29iZXJuYWNpb25lcykgeSBsYSBwcmVzZW5jaWEgZGUgbnVkb3MgY3LDrXRpY29zIGRlIFZJVklFTkRBIChDRkcpLiIsDQogICAgIioqSEU0OioqIEV4aXN0ZSB1bmEgY29ycmVsYWNpw7NuIHBvc2l0aXZhIGTDqWJpbCwgcGVybyBzaWduaWZpY2F0aXZhLCBlbnRyZSBlbCBSQVRJTyBBQ0EgUFJPWUVDVE8gQ1VMTUlOQURPIHkgbGEgcGFydGljaXBhY2nDs24gZGUgbGEgR29iZXJuYWNpw7NuIGVuIGVsIMOhcmVhIGRlIFRSQU5TUE9SVEUoR09CKSBlbiBsb3MgcHJveWVjdG9zIEFDQS4iLA0KICAgICIqKkhFNToqKiBMb3MgUExBWk9TIGRlIGVqZWN1Y2nDs24gZGUgbG9zIHByb3llY3RvcyAoZG9uZGUgdmFsb3JlcyBtw6FzIGFsdG9zIGluZGljYW4gcGxhem9zIG3DoXMgbGFyZ29zKSBzZSByZWxhY2lvbmFuIGRlIG1hbmVyYSBpbnZlcnNhIHkgZMOpYmlsLCB5IHNpZ25pZmljYXRpdmFtZW50ZSwgY29uIGxhIHByZXNlbmNpYSBkZSBudWRvcyBjcsOtdGljb3MgZGUgSU5GUkFFU1RSVUNUVVJBKENGRykgZW4gbG9zIHByb3llY3RvcyBBQ0EuIg0KICApLA0KICBzdHJpbmdzQXNGYWN0b3JzID0gRkFMU0UNCikNCg0KIyBNb3N0cmFyIGxhIHRhYmxhDQprYWJsZSh0YWJsYV9oaXBvdGVzaXMsIGNvbC5uYW1lcyA9IE5VTEwsIGNhcHRpb24gPSAiVGFibGEgZGUgSGlww7N0ZXNpcyAzOiBIaXDDs3Rlc2lzIGRlIEludmVzdGlnYWNpw7NuIHNvYnJlIGxhIENvcnJlbGFjacOzbiBlbnRyZSBQcm95ZWN0b3MgQUNBIHkgTnVkb3MgQ3LDrXRpY29zIiwgZm9ybWF0ID0gImh0bWwiKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiLCAiY29uZGVuc2VkIiksIGZ1bGxfd2lkdGggPSBGQUxTRSkgJT4lDQogIGNvbHVtbl9zcGVjKDEsIHdpZHRoID0gIjEwMCUiKQ0KDQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tRGF0b3MgZGUgdmVyaWZpY2FjacOzbiBkZSBoaXDDs3Rlc2lzLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCnZlcmlmaWNhY2lvbiA8LSBkYXRhLmZyYW1lKA0KICBIaXDDs3Rlc2lzID0gYygiSEUxIiwgIkhFMiIsICJIRTMiLCAiSEU0IiwgIkhFNSIpLA0KICBWYXJpYWJsZV8xID0gYygiQ0ZHOiBFTEVDVFJJQ0lEQUQiLCAiQ0ZHOiBWSVZJRU5EQSIsICJDbGFzaWZpY2FjaW9uX0FjdG9yZXNfaW5zdGl0IiwgIlJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8iLCAiUExBWk9TIiksDQogIFZhcmlhYmxlXzIgPSBjKCJHT0I6IEVMRUNUUklDSURBRCIsICJHT0I6IFZJVklFTkRBIiwgIkNGRzogVklWSUVOREEiLCAiR09COiBUUkFOU1BPUlRFIiwgIkNGRzogSU5GUkFFU1RSVUNUVVJBIiksDQogIGBSaG8gKM+BKWAgPSBjKDEuMDAwLCAwLjk1MCwgLTAuMzY4LCAwLjE2NywgLTAuMTg1KSwNCiAgYHAtdmFsb3JgID0gYygwLjAwMDAwMDAsIDAuMDAwMDAwMCwgMC4wMDAwMDAxLCAwLjAxODksIDAuMDA4OSksDQogIFZlcmlmaWNhY2nDs24gPSBjKCJDT1JST0JPUkFEQSIsICJDT1JST0JPUkFEQSIsICJDT1JST0JPUkFEQSIsICJQQVJDSUFMTUVOVEUgQ09SUk9CT1JBREEiLCAiQ09SUk9CT1JBREEiKSwNCiAgSW50ZXJwcmV0YWNpw7NuID0gYygNCiAgICAiQ29ycmVsYWNpw7NuIHBvc2l0aXZhIHBlcmZlY3RhIHkgc2lnbmlmaWNhdGl2YS4gQWxpbmVhY2nDs24gYWJzb2x1dGEgZW50cmUgZGlhZ27Ds3N0aWNvIHkgZ2VzdGnDs24uIiwNCiAgICAiQ29ycmVsYWNpw7NuIHBvc2l0aXZhIG11eSBmdWVydGUgeSBzaWduaWZpY2F0aXZhLiBBbHRhIGVmZWN0aXZpZGFkIGVuIGVsIG1hcGVvIHkgYXNpZ25hY2nDs24uIiwNCiAgICAiQ29ycmVsYWNpw7NuIG5lZ2F0aXZhIG1vZGVyYWRhIHkgc2lnbmlmaWNhdGl2YS4gUHJvYmxlbWFzIGRlIHZpdmllbmRhIGdlc3Rpb25hZG9zIHBvciBhY3RvcmVzIGRlIGFsdG8gbml2ZWwuIiwNCiAgICAiQ29ycmVsYWNpw7NuIHBvc2l0aXZhIGTDqWJpbCBwZXJvIHNpZ25pZmljYXRpdmEuIFJlbGFjacOzbiBtw61uaW1hIGVudHJlIGN1bG1pbmFjacOzbiB5IHByb3llY3RvcyBkZSB0cmFuc3BvcnRlLiIsDQogICAgIkNvcnJlbGFjacOzbiBuZWdhdGl2YSBkw6liaWwgcGVybyBzaWduaWZpY2F0aXZhLiBQcm95ZWN0b3MgZGUgaW5mcmFlc3RydWN0dXJhIHRpZW5kZW4gYSB0ZW5lciBwbGF6b3MgbcOhcyBjb3J0b3MuIg0KICApLA0KICBzdHJpbmdzQXNGYWN0b3JzID0gRkFMU0UNCikNCg0KIyBNb3N0cmFyIHRhYmxhIGRlIHZlcmlmaWNhY2nDs24NCmthYmxlKHZlcmlmaWNhY2lvbiwgY2FwdGlvbiA9ICJUYWJsYSBYLjE6IFZlcmlmaWNhY2nDs24gZGUgSGlww7N0ZXNpcyBFc3BlY8OtZmljYXMiLCBib29rdGFicyA9IFRSVUUsIGFsaWduID0gImMiKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiLCAiY29uZGVuc2VkIikpICU+JQ0KICBjb2x1bW5fc3BlYygxOjMsIHdpZHRoID0gIjhlbSIpICU+JQ0KICBjb2x1bW5fc3BlYyg0OjUsIHdpZHRoID0gIjZlbSIpICU+JQ0KICBjb2x1bW5fc3BlYyg2LCB3aWR0aCA9ICIxMGVtIikgJT4lDQogIGNvbHVtbl9zcGVjKDcsIHdpZHRoID0gIjIwZW0iKSAlPiUNCiAgcm93X3NwZWMod2hpY2godmVyaWZpY2FjaW9uJFZlcmlmaWNhY2nDs24gPT0gIkNPUlJPQk9SQURBIiksIGJvbGQgPSBUUlVFLCBiYWNrZ3JvdW5kID0gIiNlNmYyZTYiKSAlPiUNCiAgcm93X3NwZWMod2hpY2godmVyaWZpY2FjaW9uJFZlcmlmaWNhY2nDs24gPT0gIlBBUkNJQUxNRU5URSBDT1JST0JPUkFEQSIpLCBib2xkID0gVFJVRSwgYmFja2dyb3VuZCA9ICIjZmZmM2NkIikNCg0KIyMtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tKipIYWxsYXpnb3MgYWRpY2lvbmFsZXMgY2xhdmUqKi0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQpoYWxsYXpnb3MgPC0gZGF0YS5mcmFtZSgNCiAgSGFsbGF6Z28gPSBjKCJDb252ZXJnZW5jaWEgRGlhZ27Ds3N0aWNvLUluc3RpdHVjacOzbiIsICJMYSBHcmFuIERlc2NvbmV4acOzbjogUGxhbmlmaWNhY2nDs24gdnMuIFJlc3VsdGFkb3MiKSwNCiAgVmFyaWFibGVfMSA9IGMoIkNGRzogQU1CSUVOVEUiLCAiUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETyIpLA0KICBWYXJpYWJsZV8yID0gYygiR09COiBDQU5BTElaQUNJT04iLCAiQ3VhbHF1aWVyIG90cmEgdmFyaWFibGUiKSwNCiAgYFJobyAoz4EpYCA9IGMoMS4wMDAsICJObyBoYXkgY29ycmVsYWNpb25lcyBmdWVydGVzL21vZGVyYWRhcyIpLA0KICBgcC12YWxvcmAgPSBjKDAuMDAwMDAwMCwgIk4vQSIpLA0KICBJbnRlcnByZXRhY2nDs24gPSBjKA0KICAgICJTZSBpZGVudGlmaWNhcm9uIG90cmFzIGNvcnJlbGFjaW9uZXMgbXV5IGZ1ZXJ0ZXMgeSBwZXJmZWN0YXMgKHAuZWouLCBDRkc6IEFNQklFTlRFICYgR09COiBDQU5BTElaQUNJT04sIM+BPTEuMCkuIEVzdG8gaW5kaWNhIHVuYSBydXRhIGNyw610aWNhIGJpZW4gZGVmaW5pZGEgcXVlIGNvbmVjdGEgbGEgbmVjZXNpZGFkIGNvbXVuaXRhcmlhIGNvbiBsYSBpbnN0YW5jaWEgcmVzcG9uc2FibGUuIiwNCiAgICAiRWwgaGFsbGF6Z28gbcOhcyBjcsOtdGljbzogbm8gc2UgZW5jb250cmFyb24gY29ycmVsYWNpb25lcyBmdWVydGVzIG8gbW9kZXJhZGFzIGVudHJlIGxhIHZhcmlhYmxlIGRlIHJlc3VsdGFkbyAoUkFUSU9fQUNBKSB5IG5pbmd1bmEgb3RyYSAoZXhjZXB0byBsYSBkw6liaWwgY29uIFRSQU5TUE9SVEUpLiBFc3RvIGV2aWRlbmNpYSB1bmEgYnJlY2hhIGVzdHJ1Y3R1cmFsIGVudHJlIGxhIHBsYW5pZmljYWNpw7NuIHkgbGEgZWplY3VjacOzbiBlZmVjdGl2YSBkZSBsb3MgcHJveWVjdG9zLiINCiAgKSwNCiAgc3RyaW5nc0FzRmFjdG9ycyA9IEZBTFNFDQopDQoNCmthYmxlKGhhbGxhemdvcywgY2FwdGlvbiA9ICJUYWJsYSBYLjI6IEhhbGxhemdvcyBBZGljaW9uYWxlcyBDbGF2ZSIsIGJvb2t0YWJzID0gVFJVRSwgYWxpZ24gPSAiYyIpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiKSkgJT4lDQogIGNvbHVtbl9zcGVjKDEsIHdpZHRoID0gIjIwZW0iKSAlPiUNCiAgY29sdW1uX3NwZWMoMjozLCB3aWR0aCA9ICIxMGVtIikgJT4lDQogIGNvbHVtbl9zcGVjKDQ6NSwgd2lkdGggPSAiNmVtIikgJT4lDQogIGNvbHVtbl9zcGVjKDYsIHdpZHRoID0gIjMwZW0iKQ0KDQojLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tKipUYWJsYXMgcGFyYSBlbCBhbmV4byBkZSBsYSBtb25vZ3JhZsOtYSoqLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KDQojIFByaW1lcm8sIGFzZWd1csOpbW9ub3MgZGUgcXVlIGxvcyBub21icmVzIGRlIGxhcyB2YXJpYWJsZXMgbm8gc2VhbiBkZW1hc2lhZG8gbGFyZ29zDQp0YWJsYV9hbmV4byA8LSB0YWJsYV9jb2VmX3NwZWFybWFuICU+JQ0KICBtdXRhdGUoDQogICAgVmFyaWFibGUxID0gc3Vic3RyKFZhcmlhYmxlMSwgMSwgNDApLA0KICAgIFZhcmlhYmxlMiA9IHN1YnN0cihWYXJpYWJsZTIsIDEsIDQwKQ0KICApDQoNCiMgRGl2aWRpciBsYSB0YWJsYSBlbiBwYXJ0ZXMgbWFuZWphYmxlcyAocG9yIGVqZW1wbG8sIHBvciBzaWduaWZpY2FuY2lhIHkgbWFnbml0dWQpIHBhcmEgZXZpdGFyIHDDoWdpbmFzIGludGVybWluYWJsZXMNCiMgUGFydGUgMTogQ29ycmVsYWNpb25lcyBTaWduaWZpY2F0aXZhcyB5IE11eSBGdWVydGVzL0Z1ZXJ0ZXMNCnBhcnRlMSA8LSB0YWJsYV9hbmV4byAlPiUNCiAgZmlsdGVyKFNpZ25pZmljYXRpdmEgPT0gIlPDrSIgJiBNYWduaXR1ZCAlaW4lIGMoIk11eSBmdWVydGUiLCAiRnVlcnRlIikpICU+JQ0KICBhcnJhbmdlKGRlc2MoYWJzKENvcnJlbGFjaW9uKSkpDQoNCiMgUGFydGUgMjogQ29ycmVsYWNpb25lcyBTaWduaWZpY2F0aXZhcyB5IE1vZGVyYWRhcw0KcGFydGUyIDwtIHRhYmxhX2FuZXhvICU+JQ0KICBmaWx0ZXIoU2lnbmlmaWNhdGl2YSA9PSAiU8OtIiAmIE1hZ25pdHVkID09ICJNb2RlcmFkYSIpICU+JQ0KICBhcnJhbmdlKGRlc2MoYWJzKENvcnJlbGFjaW9uKSkpDQoNCiMgUGFydGUgMzogQ29ycmVsYWNpb25lcyBTaWduaWZpY2F0aXZhcyB5IETDqWJpbGVzDQpwYXJ0ZTMgPC0gdGFibGFfYW5leG8gJT4lDQogIGZpbHRlcihTaWduaWZpY2F0aXZhID09ICJTw60iICYgTWFnbml0dWQgPT0gIkTDqWJpbCIpICU+JQ0KICBhcnJhbmdlKGRlc2MoYWJzKENvcnJlbGFjaW9uKSkpDQoNCiMgUGFydGUgNDogQ29ycmVsYWNpb25lcyBOTyBTaWduaWZpY2F0aXZhcyAoc29sbyBsYXMgbcOhcyBmdWVydGVzIHBhcmEgbm8gYWJydW1hcikNCnBhcnRlNCA8LSB0YWJsYV9hbmV4byAlPiUNCiAgZmlsdGVyKFNpZ25pZmljYXRpdmEgPT0gIk5vIikgJT4lDQogIGFycmFuZ2UoZGVzYyhhYnMoQ29ycmVsYWNpb24pKSkgJT4lDQogIGhlYWQoMjApICMgU29sbyBsYXMgMjAgbcOhcyBmdWVydGVzIChhdW5xdWUgbm8gc2lnbmlmaWNhdGl2YXMpDQoNCmNhdCgiIyMjIFBhcnRlIDE6IENvcnJlbGFjaW9uZXMgU2lnbmlmaWNhdGl2YXMgKHAgPCAwLjA1KSAtIE11eSBGdWVydGVzIHkgRnVlcnRlc1xuIikNCmthYmxlKHBhcnRlMSwgZm9ybWF0ID0gImh0bWwiLCBjYXB0aW9uID0gIkFuZXhvIFguMTogQ29ycmVsYWNpb25lcyBTaWduaWZpY2F0aXZhcyAtIE11eSBGdWVydGVzIHkgRnVlcnRlcyIpICU+JQ0KICBrYWJsZV9zdHlsaW5nKCkgJT4lDQogIHNjcm9sbF9ib3god2lkdGggPSAiMTAwJSIsIGhlaWdodCA9ICI0MDBweCIpDQoNCmNhdCgiXG5cbiMjIyBQYXJ0ZSAyOiBDb3JyZWxhY2lvbmVzIFNpZ25pZmljYXRpdmFzIChwIDwgMC4wNSkgLSBNb2RlcmFkYXNcbiIpDQprYWJsZShwYXJ0ZTIsIGZvcm1hdCA9ICJodG1sIiwgY2FwdGlvbiA9ICJBbmV4byBYLjI6IENvcnJlbGFjaW9uZXMgU2lnbmlmaWNhdGl2YXMgLSBNb2RlcmFkYXMiKSAlPiUNCiAga2FibGVfc3R5bGluZygpICU+JQ0KICBzY3JvbGxfYm94KHdpZHRoID0gIjEwMCUiLCBoZWlnaHQgPSAiNDAwcHgiKQ0KDQpjYXQoIlxuXG4jIyMgUGFydGUgMzogQ29ycmVsYWNpb25lcyBTaWduaWZpY2F0aXZhcyAocCA8IDAuMDUpIC0gRMOpYmlsZXNcbiIpDQprYWJsZShwYXJ0ZTMsIGZvcm1hdCA9ICJodG1sIiwgY2FwdGlvbiA9ICJBbmV4byBYLjM6IENvcnJlbGFjaW9uZXMgU2lnbmlmaWNhdGl2YXMgLSBEw6liaWxlcyIpICU+JQ0KICBrYWJsZV9zdHlsaW5nKCkgJT4lDQogIHNjcm9sbF9ib3god2lkdGggPSAiMTAwJSIsIGhlaWdodCA9ICI0MDBweCIpDQoNCmNhdCgiXG5cbiMjIyBQYXJ0ZSA0OiBDb3JyZWxhY2lvbmVzIE5PIFNpZ25pZmljYXRpdmFzIChwID4gMC4wNSkgLSBUb3AgMjAgcG9yIE1hZ25pdHVkXG4iKQ0Ka2FibGUocGFydGU0LCBmb3JtYXQgPSAiaHRtbCIsIGNhcHRpb24gPSAiQW5leG8gWC40OiBDb3JyZWxhY2lvbmVzIE5PIFNpZ25pZmljYXRpdmFzIC0gVG9wIDIwIikgJT4lDQogIGthYmxlX3N0eWxpbmcoKSAlPiUNCiAgc2Nyb2xsX2JveCh3aWR0aCA9ICIxMDAlIiwgaGVpZ2h0ID0gIjQwMHB4IikNCmBgYA0KDQoNCg0KIyMgKipNb2RlbG9zIGRlIGNvcnJlbGFjacOzbiBwb3IgdGlwbyBkZSBjb211bmEqKg0KDQpgYGB7cn0NCiMgRVNUQUTDjVNUSUNBUyBERVNDUklQVElWQVMgUE9SIEdSVVBPDQojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQp0aXBvX2NvbXVuYV9zdGF0cyA8LSBkaXZfY29tYmluYWRhICU+JQ0KICBncm91cF9ieShUaXBvX0FuYWxpc2lzLCBUaXBvX0NvbXVuYSkgJT4lICAjIENPUlJFQ0NJw5NOIFBSSU5DSVBBTCBBUVXDjQ0KICBzdW1tYXJpc2UoDQogICAgbl9jb211bmFzID0gbigpLCAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIE7Dum1lcm8gZGUgb2JzZXJ2YWNpb25lcyBwb3IgZ3J1cG8NCiAgICBtZWFuX3NoYW5ub24gPSBtZWFuKEhfc2hhbm5vbiwgbmEucm0gPSBUUlVFKSwgICAgICAgICAgIyBNZWRpYSBkZWwgw61uZGljZSBTaGFubm9uDQogICAgc2Rfc2hhbm5vbiA9IHNkKEhfc2hhbm5vbiwgbmEucm0gPSBUUlVFKSwgICAgICAgICAgICAgICMgRGVzdmlhY2nDs24gZXN0w6FuZGFyIFNoYW5ub24NCiAgICBtZWFuX3BpZWxvdSA9IG1lYW4ocGllbG91LCBuYS5ybSA9IFRSVUUpLCAgICAgICAgICAgICAgIyBNZWRpYSBkZWwgw61uZGljZSBQaWVsb3UNCiAgICBzZF9waWVsb3UgPSBzZChwaWVsb3UsIG5hLnJtID0gVFJVRSksICAgICAgICAgICAgICAgICAgIyBEZXN2aWFjacOzbiBlc3TDoW5kYXIgUGllbG91DQogICAgbWVhbl9uX3Byb3llY3RvcyA9IG1lYW4obl9wcm95ZWN0b3MsIG5hLnJtID0gVFJVRSksICAgICMgTWVkaWEgbsO6bWVybyBkZSBwcm95ZWN0b3MNCiAgICBzZF9uX3Byb3llY3RvcyA9IHNkKG5fcHJveWVjdG9zLCBuYS5ybSA9IFRSVUUpLCAgICAgICAgIyBEZXN2aWFjacOzbiBlc3TDoW5kYXIgcHJveWVjdG9zDQogICAgLmdyb3VwcyA9ICJkcm9wIiAgIyBFbGltaW5hIGVsIGFncnVwYW1pZW50byBkZXNwdcOpcyBkZWwgY8OhbGN1bG8NCiAgKQ0KDQojIE1vc3RyYXIgcmVzdWx0YWRvcyBkZSBlc3RhZMOtc3RpY2FzIGRlc2NyaXB0aXZhcyBlbiBmb3JtYXRvIHRhYmxhDQpjYXQoIlxuPT09PSBFU1RBRMONU1RJQ0FTIERFU0NSSVBUSVZBUyBQT1IgVElQTyBERSBDT01VTkEgPT09PVxuIikNCmthYmxlKHRpcG9fY29tdW5hX3N0YXRzLCANCiAgICAgIGNhcHRpb24gPSAiRXN0YWTDrXN0aWNhcyBEZXNjcmlwdGl2YXMgcG9yIFRpcG8gZGUgQ29tdW5hIHkgVGlwbyBkZSBBbsOhbGlzaXMiLA0KICAgICAgZGlnaXRzID0gMykgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiksIGZ1bGxfd2lkdGggPSBGQUxTRSkNCg0KIyBQQVNPIDM6IFBSVUVCQVMgTk8gUEFSQU3DiVRSSUNBUyBLUlVTS0FMLVdBTExJUw0KIyAtLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLQ0KIyBFc3RhcyBwcnVlYmFzIGV2YWzDumFuIHNpIGV4aXN0ZW4gZGlmZXJlbmNpYXMgc2lnbmlmaWNhdGl2YXMgZW50cmUgZ3J1cG9zDQojIEgwOiBObyBoYXkgZGlmZXJlbmNpYXMgZW50cmUgdGlwb3MgZGUgY29tdW5hDQojIEgxOiBFeGlzdGVuIGRpZmVyZW5jaWFzIHNpZ25pZmljYXRpdmFzIGVudHJlIHRpcG9zIGRlIGNvbXVuYQ0KDQprcnVza2FsX3NoYW5ub24gPC0ga3J1c2thbC50ZXN0KEhfc2hhbm5vbiB+IFRpcG9fQ29tdW5hLCBkYXRhID0gZGl2X2NvbWJpbmFkYSkNCmtydXNrYWxfcGllbG91ICA8LSBrcnVza2FsLnRlc3QocGllbG91IH4gVGlwb19Db211bmEsIGRhdGEgPSBkaXZfY29tYmluYWRhKQ0Ka3J1c2thbF9ucHJveSAgIDwtIGtydXNrYWwudGVzdChuX3Byb3llY3RvcyB+IFRpcG9fQ29tdW5hLCBkYXRhID0gZGl2X2NvbWJpbmFkYSkNCg0KIyAgQ09SUkVMQUNJT05FUyBERSBTUEVBUk1BTiBQT1IgU1VCR1JVUE9TDQojIC0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tDQojIENhbGN1bGFtb3MgY29ycmVsYWNpb25lcyBzZXBhcmFkYW1lbnRlIHBhcmEgY2FkYSBjb21iaW5hY2nDs24gZGUgdGlwbyBkZSBjb211bmENCiMgeSB0aXBvIGRlIGFuw6FsaXNpcywgbG8gcXVlIG5vcyBwZXJtaXRlIGlkZW50aWZpY2FyIHBhdHJvbmVzIGVzcGVjw61maWNvcw0KDQpjb3JyZWxhY2lvbmVzX3Bvcl90aXBvIDwtIGRpdl9jb21iaW5hZGEgJT4lDQogIGdyb3VwX2J5KFRpcG9fQ29tdW5hLCBUaXBvX0FuYWxpc2lzKSAlPiUgICMgQ09SUkVDQ0nDk04gUFJJTkNJUEFMIEFRVcONIFRBTUJJw4lODQogIHN1bW1hcmlzZSgNCiAgICAjIENvcnJlbGFjacOzbiBlbnRyZSBuw7ptZXJvIGRlIHByb3llY3RvcyB5IGRpdmVyc2lkYWQgU2hhbm5vbg0KICAgIGNvcl9uX3Byb3lfSCA9IGNvcihuX3Byb3llY3RvcywgSF9zaGFubm9uLCBtZXRob2QgPSAic3BlYXJtYW4iLCB1c2UgPSAiY29tcGxldGUub2JzIiksDQogICAgcF9uX3Byb3lfSCA9IHRyeUNhdGNoKHsNCiAgICAgIGNvci50ZXN0KG5fcHJveWVjdG9zLCBIX3NoYW5ub24sIG1ldGhvZCA9ICJzcGVhcm1hbiIsIGV4YWN0ID0gRkFMU0UpJHAudmFsdWUNCiAgICB9LCBlcnJvciA9IGZ1bmN0aW9uKGUpIE5BKSwgICMgTWFuZWpvIGRlIGVycm9yZXMgcGFyYSBncnVwb3MgcGVxdWXDsW9zDQogICAgDQogICAgIyBDb3JyZWxhY2nDs24gZW50cmUgU2hhbm5vbiB5IFBpZWxvdSAoZGl2ZXJzaWRhZCB2cyBlcXVpZGFkKQ0KICAgIGNvcl9IX3BpZWxvdSA9IGNvcihIX3NoYW5ub24sIHBpZWxvdSwgbWV0aG9kID0gInNwZWFybWFuIiwgdXNlID0gImNvbXBsZXRlLm9icyIpLA0KICAgIHBfSF9waWVsb3UgPSB0cnlDYXRjaCh7DQogICAgICBjb3IudGVzdChIX3NoYW5ub24sIHBpZWxvdSwgbWV0aG9kID0gInNwZWFybWFuIiwgZXhhY3QgPSBGQUxTRSkkcC52YWx1ZQ0KICAgIH0sIGVycm9yID0gZnVuY3Rpb24oZSkgTkEpLCAgIyBNYW5lam8gZGUgZXJyb3JlcyBwYXJhIGdydXBvcyBwZXF1ZcOxb3MNCiAgICANCiAgICBuID0gbigpLCAgIyBUYW1hw7FvIGRlIG11ZXN0cmEgcG9yIGdydXBvDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApICU+JQ0KICAjIEFncmVnYW1vcyBpbnRlcnByZXRhY2nDs24gZGUgbGEgc2lnbmlmaWNhbmNpYSBlc3RhZMOtc3RpY2ENCiAgbXV0YXRlKA0KICAgIHNpZ19uX3Byb3lfSCA9IGNhc2Vfd2hlbigNCiAgICAgIGlzLm5hKHBfbl9wcm95X0gpIH4gIk5vIGNhbGN1bGFibGUiLA0KICAgICAgcF9uX3Byb3lfSCA8IDAuMDAxIH4gIioqKiIsDQogICAgICBwX25fcHJveV9IIDwgMC4wMSB+ICIqKiIsIA0KICAgICAgcF9uX3Byb3lfSCA8IDAuMDUgfiAiKiIsDQogICAgICBUUlVFIH4gIm5zIg0KICAgICksDQogICAgc2lnX0hfcGllbG91ID0gY2FzZV93aGVuKA0KICAgICAgaXMubmEocF9IX3BpZWxvdSkgfiAiTm8gY2FsY3VsYWJsZSIsDQogICAgICBwX0hfcGllbG91IDwgMC4wMDEgfiAiKioqIiwNCiAgICAgIHBfSF9waWVsb3UgPCAwLjAxIH4gIioqIiwNCiAgICAgIHBfSF9waWVsb3UgPCAwLjA1IH4gIioiLCANCiAgICAgIFRSVUUgfiAibnMiDQogICAgKQ0KICApDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgQU7DgUxJU0lTIERFIENPUlJFTEFDScOTTiBQT1IgVElQTyBERSBDT01VTkENCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KIyAgUHJlcGFyYXIgZGF0b3MgcG9yIHRpcG8gZGUgY29tdW5hDQphbmFsaXNpc19wb3JfdGlwbyA8LSBmdW5jdGlvbihkYXRhKSB7DQogICMgQ2FsY3VsYXIgY29ycmVsYWNpb25lcyBwYXJhIGNhZGEgdGlwbyBkZSBjb211bmEgeSBhbsOhbGlzaXMNCiAgdGlwb3NfY29ycmVsYWNpb24gPC0gZGF0YSAlPiUNCiAgICBncm91cF9ieShUaXBvX0NvbXVuYSwgVGlwb19BbmFsaXNpcykgJT4lDQogICAgc3VtbWFyaXNlKA0KICAgICAgbiA9IG4oKSwNCiAgICAgIGNvcl9wcm95ZWN0b3Nfc2hhbm5vbiA9IGNvcihuX3Byb3llY3RvcywgSF9zaGFubm9uLCBtZXRob2QgPSAic3BlYXJtYW4iLCB1c2UgPSAiY29tcGxldGUub2JzIiksDQogICAgICBwX3ZhbG9yID0gdHJ5Q2F0Y2goew0KICAgICAgICBjb3IudGVzdChuX3Byb3llY3RvcywgSF9zaGFubm9uLCBtZXRob2QgPSAic3BlYXJtYW4iKSRwLnZhbHVlDQogICAgICB9LCBlcnJvciA9IGZ1bmN0aW9uKGUpIE5BKSwNCiAgICAgIC5ncm91cHMgPSAiZHJvcCINCiAgICApICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIHNpZ25pZmljYW5jaWEgPSBjYXNlX3doZW4oDQogICAgICAgIHBfdmFsb3IgPCAwLjAwMSB+ICIqKioiLA0KICAgICAgICBwX3ZhbG9yIDwgMC4wMSB+ICIqKiIsDQogICAgICAgIHBfdmFsb3IgPCAwLjA1IH4gIioiLA0KICAgICAgICBUUlVFIH4gIm5zIg0KICAgICAgKSwNCiAgICAgIG1hZ25pdHVkID0gY2FzZV93aGVuKA0KICAgICAgICBhYnMoY29yX3Byb3llY3Rvc19zaGFubm9uKSA+IDAuOCB+ICJNdXkgZnVlcnRlIiwNCiAgICAgICAgYWJzKGNvcl9wcm95ZWN0b3Nfc2hhbm5vbikgPiAwLjYgfiAiRnVlcnRlIiwNCiAgICAgICAgYWJzKGNvcl9wcm95ZWN0b3Nfc2hhbm5vbikgPiAwLjQgfiAiTW9kZXJhZGEiLA0KICAgICAgICBUUlVFIH4gIkTDqWJpbCINCiAgICAgICkNCiAgICApDQogIA0KICByZXR1cm4odGlwb3NfY29ycmVsYWNpb24pDQp9DQoNCiMgIEVqZWN1dGFyIGFuw6FsaXNpcw0KcmVzdWx0YWRvc190aXBvX2NvbXVuYSA8LSBhbmFsaXNpc19wb3JfdGlwbyhkaXZfY29tYmluYWRhKQ0KDQojICBDcmVhciB0YWJsYSBkZSByZXN1bHRhZG9zIGZvcm1hdGVhZGENCnRhYmxhX3Jlc3VsdGFkb3MgPC0gcmVzdWx0YWRvc190aXBvX2NvbXVuYSAlPiUNCiAgYXJyYW5nZShkZXNjKGFicyhjb3JfcHJveWVjdG9zX3NoYW5ub24pKSkgJT4lDQogIHNlbGVjdCgNCiAgICBUaXBvX0NvbXVuYSwNCiAgICBUaXBvX0FuYWxpc2lzLA0KICAgIG4sDQogICAgcmhvID0gY29yX3Byb3llY3Rvc19zaGFubm9uLA0KICAgIHBfdmFsb3IsDQogICAgc2lnbmlmaWNhbmNpYSwNCiAgICBtYWduaXR1ZA0KICApDQoNCiMgTW9zdHJhciB0YWJsYSBjb24gZm9ybWF0bw0Ka2FibGUodGFibGFfcmVzdWx0YWRvcywNCiAgICAgIGNhcHRpb24gPSAiQ29ycmVsYWNpb25lcyBkZSBTcGVhcm1hbiBwb3IgVGlwbyBkZSBDb211bmEgeSBBbsOhbGlzaXMiLA0KICAgICAgY29sLm5hbWVzID0gYygiVGlwbyBDb211bmEiLCAiVGlwbyBBbsOhbGlzaXMiLCAibiIsICLPgSIsICJwLXZhbG9yIiwgIlNpZy4iLCAiTWFnbml0dWQiKSwNCiAgICAgIGRpZ2l0cyA9IDMpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIpLCBmdWxsX3dpZHRoID0gRkFMU0UpICU+JQ0KICByb3dfc3BlYygwLCBib2xkID0gVFJVRSkgJT4lDQogIHJvd19zcGVjKA0KICAgIHdoaWNoKHRhYmxhX3Jlc3VsdGFkb3MkbWFnbml0dWQgPT0gIk11eSBmdWVydGUiKSwgDQogICAgYm9sZCA9IFRSVUUsIA0KICAgIGNvbG9yID0gIndoaXRlIiwgDQogICAgYmFja2dyb3VuZCA9ICIjMWI5ZTc3Ig0KICApICU+JQ0KICByb3dfc3BlYygNCiAgICB3aGljaCh0YWJsYV9yZXN1bHRhZG9zJG1hZ25pdHVkID09ICJGdWVydGUiKSwgDQogICAgYm9sZCA9IFRSVUUsIA0KICAgIGNvbG9yID0gIndoaXRlIiwgDQogICAgYmFja2dyb3VuZCA9ICIjNjZhNjFlIg0KICApDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGTFVKTyBERSBUUkFCQUpPIElOVEVHUkFETzogQU7DgUxJU0lTIEdSw4FGSUNPIFBPUiBUSVBPIERFIENPTVVOQQ0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCg0KIyBBY3RpdmFyIENhaXJvIGVuIFdpbmRvd3MgcGFyYSBzb3BvcnRlIFVuaWNvZGUgKGV2aXRhIHByb2JsZW1hcyBjb24gJ3InLCBzw61tYm9sb3MsIGV0Yy4pDQppZiAoLlBsYXRmb3JtJE9TLnR5cGUgPT0gIndpbmRvd3MiKSB7DQogIG9wdGlvbnMoYml0bWFwVHlwZSA9ICJjYWlybyIpDQp9DQoNCiMgUGFsZXRhIGRlIGNvbG9yZXMgbWVqb3JhZGEgcG9yIHRpcG8gZGUgY29tdW5hDQpjb2xvcmVzX2NvbXVuYV9tZWpvcmFkb3MgPC0gYygNCiAgIkVuIGNvbnN0cnVjY2nDs24iID0gIiNDNzNFMUQiLA0KICAiTWl4dGEiID0gIiNGMThGMDEiLA0KICAiUnVyYWwiID0gIiNBMjNCNzIiLA0KICAiVXJiYW5hIiA9ICIjMkU4NkFCIg0KKQ0KDQojIFRlbWEgYWNhZMOpbWljbyBwZXJzb25hbGl6YWRvDQp0ZW1hX2FjYWRlbWljbyA8LSB0aGVtZV9taW5pbWFsKCkgKw0KICB0aGVtZSgNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxNiwgaGp1c3QgPSAwLjUsIG1hcmdpbiA9IG1hcmdpbihiID0gMTApKSwNCiAgICBwbG90LnN1YnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMiwgaGp1c3QgPSAwLjUsIGNvbG9yID0gImdyYXkzMCIsIG1hcmdpbiA9IG1hcmdpbihiID0gMTUpKSwNCiAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxMiksDQogICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMCksDQogICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxMSksDQogICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDEwKSwNCiAgICBzdHJpcC50ZXh0ID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxMSwgY29sb3IgPSAiIzJFODZBQiIpLA0KICAgIHN0cmlwLmJhY2tncm91bmQgPSBlbGVtZW50X3JlY3QoZmlsbCA9ICJncmF5OTUiLCBjb2xvciA9ICJ3aGl0ZSIpLA0KICAgIHBhbmVsLmdyaWQubWlub3IgPSBlbGVtZW50X2JsYW5rKCksDQogICAgcGFuZWwuZ3JpZC5tYWpvciA9IGVsZW1lbnRfbGluZShjb2xvciA9ICJncmF5OTUiLCBzaXplID0gMC41KSwNCiAgICBwbG90LmNhcHRpb24gPSBlbGVtZW50X3RleHQoc2l6ZSA9IDksIGNvbG9yID0gImdyYXk1MCIsIGhqdXN0ID0gMSkNCiAgKQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIDEuIEhFQVRNQVAgREUgQ09SUkVMQUNJT05FUw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjcmVhcl9oZWF0bWFwIDwtIGZ1bmN0aW9uKGNvcnJlbGFjaW9uZXNfcG9yX3RpcG8pIHsNCiAgY29yX21lbHQgPC0gY29ycmVsYWNpb25lc19wb3JfdGlwbyAlPiUNCiAgICBzZWxlY3QoVGlwb19Db211bmEsIFRpcG9fQW5hbGlzaXMsIGNvcl9uX3Byb3lfSCwgbikgJT4lDQogICAgbXV0YXRlKA0KICAgICAgZXRpcXVldGEgPSBzcHJpbnRmKCJyPSUuMmZcbm49JWQiLCBjb3Jfbl9wcm95X0gsIG4pDQogICAgKQ0KICANCiAgZ2dwbG90KGNvcl9tZWx0LCBhZXMoeCA9IFRpcG9fQW5hbGlzaXMsIHkgPSBUaXBvX0NvbXVuYSwgZmlsbCA9IGNvcl9uX3Byb3lfSCkpICsNCiAgICBnZW9tX3RpbGUoY29sb3IgPSAid2hpdGUiKSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IGV0aXF1ZXRhKSwgc2l6ZSA9IDMuNSkgKw0KICAgIHNjYWxlX2ZpbGxfZ3JhZGllbnQyKA0KICAgICAgbG93ID0gIiNkNzMwMjciLCANCiAgICAgIG1pZCA9ICIjZmZmZmJmIiwgDQogICAgICBoaWdoID0gIiMxYTk4NTAiLA0KICAgICAgbWlkcG9pbnQgPSAwLA0KICAgICAgbGltaXRzID0gYygtMSwgMSksDQogICAgICBuYW1lID0gIkNvcnJlbGFjacOzbiAocikiDQogICAgKSArDQogICAgbGFicygNCiAgICAgIHRpdGxlID0gIkNvcnJlbGFjaW9uZXMgcG9yIFRpcG8gZGUgQ29tdW5hIHkgQW7DoWxpc2lzIiwNCiAgICAgIHN1YnRpdGxlID0gIkNvZWZpY2llbnRlIGRlIFNwZWFybWFuIGVudHJlIE7CsCBQcm95ZWN0b3MgZSDDjW5kaWNlIGRlIFNoYW5ub24iLA0KICAgICAgeCA9ICJUaXBvIGRlIEFuw6FsaXNpcyIsDQogICAgICB5ID0gIlRpcG8gZGUgQ29tdW5hIiwNCiAgICAgIGNhcHRpb24gPSAiRWxhYm9yYWNpw7NuIHByb3BpYTogV2lsbGlhbSBBLiBHdXRpw6lycmV6IFYuIHwgTW9ub2dyYWbDrWEgQUNBIC0gRXN0YWRvIE3DqXJpZGEiDQogICAgKSArDQogICAgdGVtYV9hY2FkZW1pY28gKw0KICAgIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gNDUsIGhqdXN0ID0gMSkpDQp9DQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgMi4gR1LDgUZJQ08gREUgRElTUEVSU0nDk04NCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY3JlYXJfZGlzcGVyc2lvbiA8LSBmdW5jdGlvbihkaXZfY29tYmluYWRhKSB7DQogIGdncGxvdChkaXZfY29tYmluYWRhLCBhZXMoeCA9IG5fcHJveWVjdG9zLCB5ID0gSF9zaGFubm9uLCBjb2xvciA9IFRpcG9fQ29tdW5hKSkgKw0KICAgIGdlb21fcG9pbnQoc2l6ZSA9IDIuNSwgYWxwaGEgPSAwLjcpICsNCiAgICBnZW9tX3Ntb290aChtZXRob2QgPSAibG0iLCBzZSA9IFRSVUUsIGFscGhhID0gMC4yLCBzaXplID0gMS4yKSArDQogICAgZmFjZXRfd3JhcCh+IFRpcG9fQW5hbGlzaXMsIHNjYWxlcyA9ICJmcmVlIiwgbmNvbCA9IDMpICsNCiAgICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gY29sb3Jlc19jb211bmFfbWVqb3JhZG9zLCBuYW1lID0gIlRpcG8gZGUgQ29tdW5hIikgKw0KICAgIGxhYnMoDQogICAgICB0aXRsZSA9ICJSZWxhY2nDs24gZW50cmUgTsO6bWVybyBkZSBQcm95ZWN0b3MgeSBEaXZlcnNpZGFkIFNoYW5ub24iLA0KICAgICAgc3VidGl0bGUgPSAiTMOtbmVhcyBkZSB0ZW5kZW5jaWEgYWp1c3RhZGFzIHBvciByZWdyZXNpw7NuIGxpbmVhbCIsDQogICAgICB4ID0gIk7Dum1lcm8gZGUgUHJveWVjdG9zIHBvciBDb211bmEiLA0KICAgICAgeSA9ICLDjW5kaWNlIGRlIFNoYW5ub24gKEgnKSIsDQogICAgICBjYXB0aW9uID0gIkVsYWJvcmFjacOzbiBwcm9waWE6IFdpbGxpYW0gQS4gR3V0acOpcnJleiBWLiB8IE1vbm9ncmFmw61hIEFDQSAtIEVzdGFkbyBNw6lyaWRhIg0KICAgICkgKw0KICAgIHRlbWFfYWNhZGVtaWNvICsNCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyAzLiBCQVJSQVMgREUgQ09SUkVMQUNJw5NOIENPTiBJTlRFUlZBTE9TIERFIENPTkZJQU5aQQ0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjcmVhcl9iYXJyYXNfY29ycmVsYWNpb25faWMgPC0gZnVuY3Rpb24oY29ycmVsYWNpb25lc19wb3JfdGlwbykgew0KICBkYXRvc19iYXJyYXMgPC0gY29ycmVsYWNpb25lc19wb3JfdGlwbyAlPiUNCiAgICBmaWx0ZXIoIWlzLm5hKHBfbl9wcm95X0gpLCBwX25fcHJveV9IIDwgMC4wNSkgJT4lDQogICAgbXV0YXRlKA0KICAgICAgc2VfYXByb3ggPSBzcXJ0KCgxIC0gY29yX25fcHJveV9IXjIpIC8gKG4gLSAyKSksDQogICAgICBpY19pbmZlcmlvciA9IHBtYXgoLTEsIGNvcl9uX3Byb3lfSCAtIDEuOTYgKiBzZV9hcHJveCksDQogICAgICBpY19zdXBlcmlvciA9IHBtaW4oMSwgY29yX25fcHJveV9IICsgMS45NiAqIHNlX2Fwcm94KSwNCiAgICAgIGV0aXF1ZXRhX2NvbXBsZXRhID0gc3ByaW50Zigicj0lLjNmXG4oSUM6ICUuMmYsICUuMmYpXG5uPSVkIiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgY29yX25fcHJveV9ILCBpY19pbmZlcmlvciwgaWNfc3VwZXJpb3IsIG4pLA0KICAgICAgT3JkZW4gPSBwYXN0ZShUaXBvX0NvbXVuYSwgVGlwb19BbmFsaXNpcywgc2VwID0gIiAtICIpDQogICAgKSAlPiUNCiAgICBhcnJhbmdlKGRlc2MoYWJzKGNvcl9uX3Byb3lfSCkpKQ0KICANCiAgaWYgKG5yb3coZGF0b3NfYmFycmFzKSA9PSAwKSB7DQogICAgd2FybmluZygiTm8gaGF5IGNvcnJlbGFjaW9uZXMgc2lnbmlmaWNhdGl2YXMgKHAgPCAwLjA1KSBwYXJhIG1vc3RyYXIuIikNCiAgICByZXR1cm4oTlVMTCkNCiAgfQ0KICANCiAgZ2dwbG90KGRhdG9zX2JhcnJhcywgYWVzKHggPSByZW9yZGVyKE9yZGVuLCBjb3Jfbl9wcm95X0gpLCB5ID0gY29yX25fcHJveV9ILCBmaWxsID0gVGlwb19Db211bmEpKSArDQogICAgZ2VvbV9jb2woYWxwaGEgPSAwLjgsIGNvbG9yID0gImJsYWNrIiwgc2l6ZSA9IDAuMykgKw0KICAgIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBpY19pbmZlcmlvciwgeW1heCA9IGljX3N1cGVyaW9yKSwgDQogICAgICAgICAgICAgICAgICB3aWR0aCA9IDAuMywgY29sb3IgPSAiYmxhY2siLCBzaXplID0gMC44KSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IGV0aXF1ZXRhX2NvbXBsZXRhKSwgDQogICAgICAgICAgICAgIGhqdXN0ID0gaWZlbHNlKGRhdG9zX2JhcnJhcyRjb3Jfbl9wcm95X0ggPj0gMCwgLTAuMSwgMS4xKSwNCiAgICAgICAgICAgICAgc2l6ZSA9IDMuMiwgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgICBnZW9tX2hsaW5lKHlpbnRlcmNlcHQgPSAwLCBsaW5ldHlwZSA9ICJzb2xpZCIsIGFscGhhID0gMC41KSArDQogICAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gY29sb3Jlc19jb211bmFfbWVqb3JhZG9zLCBuYW1lID0gIlRpcG8gZGUgQ29tdW5hIikgKw0KICAgIGNvb3JkX2ZsaXAoKSArDQogICAgbGFicygNCiAgICAgIHRpdGxlID0gIkNvcnJlbGFjaW9uZXMgU2lnbmlmaWNhdGl2YXMgY29uIElDICg5NSUpIiwNCiAgICAgIHN1YnRpdGxlID0gIlNvbG8gcCA8IDAuMDUgfCBCYXJyYXMgbXVlc3RyYW4gaW5jZXJ0aWR1bWJyZSBlc3RhZMOtc3RpY2EiLA0KICAgICAgeCA9ICJUaXBvIGRlIENvbXVuYSAtIFRpcG8gZGUgQW7DoWxpc2lzIiwNCiAgICAgIHkgPSAiQ29lZmljaWVudGUgZGUgU3BlYXJtYW4gKHIpIiwNCiAgICAgIGNhcHRpb24gPSAiSUMgPSBJbnRlcnZhbG8gZGUgQ29uZmlhbnphIHwgRWxhYm9yYWNpw7NuIHByb3BpYTogV2lsbGlhbSBBLiBHdXRpw6lycmV6IFYuIg0KICAgICkgKw0KICAgIHRlbWFfYWNhZGVtaWNvICsNCiAgICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAiYm90dG9tIikgKw0KICAgIHNjYWxlX3lfY29udGludW91cyhsaW1pdHMgPSBjKC0xLjIsIDEuMiksIGJyZWFrcyA9IHNlcSgtMSwgMSwgMC4yNSkpDQp9DQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgNC4gUkVEIERFIENPUlJFTEFDSU9ORVMgU0lHTklGSUNBVElWQVMNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY3JlYXJfcmVkX2NvcnJlbGFjaW9uZXMgPC0gZnVuY3Rpb24oY29ycmVsYWNpb25lc19wb3JfdGlwbykgew0KICBkYXRvc19yZWQgPC0gY29ycmVsYWNpb25lc19wb3JfdGlwbyAlPiUNCiAgICBmaWx0ZXIoIWlzLm5hKHBfbl9wcm95X0gpLCBwX25fcHJveV9IIDwgMC4wMSwgYWJzKGNvcl9uX3Byb3lfSCkgPiAwLjUpICU+JQ0KICAgIG11dGF0ZSgNCiAgICAgIE5vZG8gPSBwYXN0ZShUaXBvX0NvbXVuYSwgVGlwb19BbmFsaXNpcywgc2VwID0gIlxuIiksDQogICAgICBUYW1hw7FvID0gYWJzKGNvcl9uX3Byb3lfSCkgKiAyMA0KICAgICkNCiAgDQogIGlmIChucm93KGRhdG9zX3JlZCkgPT0gMCkgew0KICAgIHdhcm5pbmcoIk5vIGhheSBjb3JyZWxhY2lvbmVzIHNpZ25pZmljYXRpdmFzIChwIDwgMC4wMSwgfHJ8ID4gMC41KS4iKQ0KICAgIHJldHVybihOVUxMKQ0KICB9DQogIA0KICBuX25vZG9zIDwtIG5yb3coZGF0b3NfcmVkKQ0KICBhbmd1bG9zIDwtIHNlcSgwLCAyKnBpLCBsZW5ndGgub3V0ID0gbl9ub2RvcyArIDEpWzE6bl9ub2Rvc10NCiAgZGF0b3NfcmVkJHggPC0gY29zKGFuZ3Vsb3MpICogKDEgKyBhYnMoZGF0b3NfcmVkJGNvcl9uX3Byb3lfSCkpDQogIGRhdG9zX3JlZCR5IDwtIHNpbihhbmd1bG9zKSAqICgxICsgYWJzKGRhdG9zX3JlZCRjb3Jfbl9wcm95X0gpKQ0KICANCiAgY2VudHJvX3ggPC0gbWVhbihkYXRvc19yZWQkeCkNCiAgY2VudHJvX3kgPC0gbWVhbihkYXRvc19yZWQkeSkNCiAgDQogIGRhdG9zX2ZpbHRyYWRvcyA8LSBkYXRvc19yZWQgJT4lIGZpbHRlcihhYnMoY29yX25fcHJveV9IKSA+IDAuOCkNCiAgaWYgKG5yb3coZGF0b3NfZmlsdHJhZG9zKSA+IDApIHsNCiAgICBkYXRvc19maWx0cmFkb3MkeF9jZW50cm8gPC0gY2VudHJvX3gNCiAgICBkYXRvc19maWx0cmFkb3MkeV9jZW50cm8gPC0gY2VudHJvX3kNCiAgfSBlbHNlIHsNCiAgICBkYXRvc19maWx0cmFkb3MgPC0gZGF0b3NfcmVkWzAsIF0NCiAgfQ0KDQogIGdncGxvdChkYXRvc19yZWQsIGFlcyh4ID0geCwgeSA9IHkpKSArDQogICAgZ2VvbV9wb2ludChhZXMoc2l6ZSA9IFRhbWHDsW8sIGNvbG9yID0gVGlwb19Db211bmEpLCBhbHBoYSA9IDAuOCkgKw0KICAgIGdlb21fdGV4dF9yZXBlbChhZXMobGFiZWwgPSBwYXN0ZTAoTm9kbywgIlxucj0iLCByb3VuZChjb3Jfbl9wcm95X0gsIDIpKSksDQogICAgICAgICAgICAgICAgICAgIHNpemUgPSAzLjUsIGZvbnRmYWNlID0gImJvbGQiLA0KICAgICAgICAgICAgICAgICAgICBib3gucGFkZGluZyA9IDAuNSwgcG9pbnQucGFkZGluZyA9IDAuMykgKw0KICAgIGdlb21fc2VnbWVudChkYXRhID0gZGF0b3NfZmlsdHJhZG9zLA0KICAgICAgICAgICAgICAgICBhZXMoeCA9IHgsIHkgPSB5LCB4ZW5kID0geF9jZW50cm8sIHllbmQgPSB5X2NlbnRybyksDQogICAgICAgICAgICAgICAgIGFscGhhID0gMC4zLCBsaW5ldHlwZSA9ICJkYXNoZWQiLCBjb2xvciA9ICJncmF5NTAiKSArDQogICAgc2NhbGVfY29sb3JfbWFudWFsKHZhbHVlcyA9IGNvbG9yZXNfY29tdW5hX21lam9yYWRvcywgbmFtZSA9ICJUaXBvIGRlIENvbXVuYSIpICsNCiAgICBzY2FsZV9zaXplX2NvbnRpbnVvdXMocmFuZ2UgPSBjKDUsIDIwKSwgbmFtZSA9ICJGdWVyemEgZGVcbkNvcnJlbGFjacOzbiAofHJ8KSIpICsNCiAgICBsYWJzKA0KICAgICAgdGl0bGUgPSAiUmVkIGRlIENvcnJlbGFjaW9uZXMgU2lnbmlmaWNhdGl2YXMgKHAgPCAwLjAxLCB8cnwgPiAwLjUpIiwNCiAgICAgIHN1YnRpdGxlID0gIlRhbWHDsW8gZGUgbm9kb3MgcHJvcG9yY2lvbmFsIGEgfHJ8IiwNCiAgICAgIGNhcHRpb24gPSAiTGF5b3V0IGNpcmN1bGFyIHwgRWxhYm9yYWNpw7NuIHByb3BpYTogV2lsbGlhbSBBLiBHdXRpw6lycmV6IFYuIHwgTW9ub2dyYWbDrWEgQUNBIg0KICAgICkgKw0KICAgIHRlbWFfYWNhZGVtaWNvICsNCiAgICB0aGVtZSgNCiAgICAgIGF4aXMudGV4dCA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgIGF4aXMudGlja3MgPSBlbGVtZW50X2JsYW5rKCksDQogICAgICBheGlzLnRpdGxlID0gZWxlbWVudF9ibGFuaygpLA0KICAgICAgcGFuZWwuZ3JpZCA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgIGxlZ2VuZC5wb3NpdGlvbiA9ICJib3R0b20iDQogICAgKSArDQogICAgY29vcmRfZXF1YWwoKQ0KfQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIDUuIFBBTkVMIERFIFBSVUVCQVMgRVNUQUTDjVNUSUNBUyAoS1JVU0tBTC1XQUxMSVMpDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNyZWFyX3BhbmVsX3BydWViYXNfZXN0YWRpc3RpY2FzIDwtIGZ1bmN0aW9uKGRpdl9jb21iaW5hZGEpIHsNCiAgcHJ1ZWJhcyA8LSBsaXN0KA0KICAgIHNoYW5ub24gPSBrcnVza2FsLnRlc3QoSF9zaGFubm9uIH4gVGlwb19Db211bmEsIGRhdGEgPSBkaXZfY29tYmluYWRhKSwNCiAgICBwaWVsb3UgPSBrcnVza2FsLnRlc3QocGllbG91IH4gVGlwb19Db211bmEsIGRhdGEgPSBkaXZfY29tYmluYWRhKSwNCiAgICBuX3Byb3llY3RvcyA9IGtydXNrYWwudGVzdChuX3Byb3llY3RvcyB+IFRpcG9fQ29tdW5hLCBkYXRhID0gZGl2X2NvbWJpbmFkYSkNCiAgKQ0KICANCiAgcmVzdWx0YWRvc19wcnVlYmFzIDwtIGRhdGEuZnJhbWUoDQogICAgVmFyaWFibGUgPSBjKCJEaXZlcnNpZGFkIChTaGFubm9uKSIsICJFcXVpZGFkIChQaWVsb3UpIiwgIk7CsCBQcm95ZWN0b3MiKSwNCiAgICBIX2VzdGFkaXN0aWNvID0gc2FwcGx5KHBydWViYXMsIGZ1bmN0aW9uKHgpIHgkc3RhdGlzdGljKSwNCiAgICBwX3ZhbG9yID0gc2FwcGx5KHBydWViYXMsIGZ1bmN0aW9uKHgpIHgkcC52YWx1ZSksDQogICAgZ2wgPSBzYXBwbHkocHJ1ZWJhcywgZnVuY3Rpb24oeCkgeCRwYXJhbWV0ZXIpDQogICkgJT4lDQogICAgbXV0YXRlKA0KICAgICAgc2lnbmlmaWNhdGl2byA9IHBfdmFsb3IgPCAwLjA1LA0KICAgICAgZXRpcXVldGEgPSBwYXN0ZTAoIkggPSAiLCByb3VuZChIX2VzdGFkaXN0aWNvLCAyKSwgIlxucCA9ICIsIHJvdW5kKHBfdmFsb3IsIDQpKSwNCiAgICAgIGludGVycHJldGFjaW9uID0gaWZlbHNlKHNpZ25pZmljYXRpdm8sIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiRGlmZXJlbmNpYXNcbnNpZ25pZmljYXRpdmFzIiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICJTaW4gZGlmZXJlbmNpYXNcbnNpZ25pZmljYXRpdmFzIiksDQogICAgICBjb2xvcl9yZXN1bHRhZG8gPSBpZmVsc2Uoc2lnbmlmaWNhdGl2bywgIlNpZ25pZmljYXRpdm8iLCAiTm8gc2lnbmlmaWNhdGl2byIpDQogICAgKQ0KICANCiAgZ2dwbG90KHJlc3VsdGFkb3NfcHJ1ZWJhcywgYWVzKHggPSBWYXJpYWJsZSwgeSA9IEhfZXN0YWRpc3RpY28sIGZpbGwgPSBjb2xvcl9yZXN1bHRhZG8pKSArDQogICAgZ2VvbV9jb2woYWxwaGEgPSAwLjgsIGNvbG9yID0gImJsYWNrIiwgc2l6ZSA9IDAuNSkgKw0KICAgIGdlb21fdGV4dChhZXMobGFiZWwgPSBldGlxdWV0YSksIHZqdXN0ID0gLTAuMiwgc2l6ZSA9IDQsIGZvbnRmYWNlID0gImJvbGQiKSArDQogICAgZ2VvbV90ZXh0KGFlcyh5ID0gSF9lc3RhZGlzdGljby8yLCBsYWJlbCA9IGludGVycHJldGFjaW9uKSwgDQogICAgICAgICAgICAgIHNpemUgPSAzLjUsIGZvbnRmYWNlID0gImJvbGQiLCBjb2xvciA9ICJ3aGl0ZSIpICsNCiAgICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKCJTaWduaWZpY2F0aXZvIiA9ICIjMWE5ODUwIiwgIk5vIHNpZ25pZmljYXRpdm8iID0gIiNkNzMwMjciKSwNCiAgICAgICAgICAgICAgICAgICAgICBuYW1lID0gIlJlc3VsdGFkb1xuKM6xID0gMC4wNSkiKSArDQogICAgbGFicygNCiAgICAgIHRpdGxlID0gIlBydWViYXMgS3J1c2thbC1XYWxsaXMgcG9yIFRpcG8gZGUgQ29tdW5hIiwNCiAgICAgIHN1YnRpdGxlID0gIkV2YWx1YWNpw7NuIGRlIGRpZmVyZW5jaWFzIGVudHJlIGdydXBvcyAobm8gcGFyYW3DqXRyaWNvKSIsDQogICAgICB4ID0gIlZhcmlhYmxlIEFuYWxpemFkYSIsDQogICAgICB5ID0gIkVzdGFkw61zdGljbyBIIiwNCiAgICAgIGNhcHRpb24gPSAiSOKCgDogRGlzdHJpYnVjaW9uZXMgaWd1YWxlcyB8IEjigoE6IEFsIG1lbm9zIHVuYSBkaWZlcmVudGUgfCBXaWxsaWFtIEEuIEd1dGnDqXJyZXogVi4iDQogICAgKSArDQogICAgdGVtYV9hY2FkZW1pY28gKw0KICAgIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJyaWdodCIpICsNCiAgICBzY2FsZV95X2NvbnRpbnVvdXMoZXhwYW5kID0gZXhwYW5zaW9uKG11bHQgPSBjKDAsIDAuMTUpKSkNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBFSkVDVUNJw5NOIERFTCBBTsOBTElTSVMgKFNPTE8gU0kgTE9TIERBVE9TIEVYSVNURU4pDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxuIikNCmNhdCgiSU5JQ0lBTkRPIEFOw4FMSVNJUyBHUsOBRklDTyAtIFdJTExJQU0gQS4gR1VUScOJUlJFWiBWLlxuIikNCmNhdCgiTW9ub2dyYWbDrWE6IEFnZW5kYXMgQ29uY3JldGFzIGRlIEFjY2nDs24gLSBFc3RhZG8gTcOpcmlkYSwgVmVuZXp1ZWxhXG4iKQ0KY2F0KCI9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09XG4iKQ0KDQppZiAoIWV4aXN0cygiY29ycmVsYWNpb25lc19wb3JfdGlwbyIpIHx8ICFleGlzdHMoImRpdl9jb21iaW5hZGEiKSkgew0KICBzdG9wKCJFcnJvcjogRGViZXMgY2FyZ2FyIHByaW1lcm8gbG9zIG9iamV0b3MgJ2NvcnJlbGFjaW9uZXNfcG9yX3RpcG8nIHkgJ2Rpdl9jb21iaW5hZGEnLiIpDQp9DQoNCiMgR2VuZXJhciB5IG1vc3RyYXIgY2FkYSBncsOhZmljbw0KcHJpbnQoIj09PSAxLiBIRUFUTUFQIERFIENPUlJFTEFDSU9ORVMgPT09IikNCmdyYWZpY29fMSA8LSBjcmVhcl9oZWF0bWFwKGNvcnJlbGFjaW9uZXNfcG9yX3RpcG8pDQpwcmludChncmFmaWNvXzEpDQoNCnByaW50KCI9PT0gMi4gRElBR1JBTUEgREUgRElTUEVSU0nDk04gPT09IikNCmdyYWZpY29fMiA8LSBjcmVhcl9kaXNwZXJzaW9uKGRpdl9jb21iaW5hZGEpDQpwcmludChncmFmaWNvXzIpDQoNCnByaW50KCI9PT0gMy4gQkFSUkFTIENPTiBJTlRFUlZBTE9TIERFIENPTkZJQU5aQSA9PT0iKQ0KZ3JhZmljb18zIDwtIGNyZWFyX2JhcnJhc19jb3JyZWxhY2lvbl9pYyhjb3JyZWxhY2lvbmVzX3Bvcl90aXBvKQ0KaWYgKCFpcy5udWxsKGdyYWZpY29fMykpIHByaW50KGdyYWZpY29fMykNCg0KcHJpbnQoIj09PSA0LiBSRUQgREUgQ09SUkVMQUNJT05FUyA9PT0iKQ0KZ3JhZmljb180IDwtIGNyZWFyX3JlZF9jb3JyZWxhY2lvbmVzKGNvcnJlbGFjaW9uZXNfcG9yX3RpcG8pDQppZiAoIWlzLm51bGwoZ3JhZmljb180KSkgcHJpbnQoZ3JhZmljb180KQ0KDQpwcmludCgiPT09IDUuIFBSVUVCQVMgRVNUQUTDjVNUSUNBUyBLUlVTS0FMLVdBTExJUyA9PT0iKQ0KZ3JhZmljb181IDwtIGNyZWFyX3BhbmVsX3BydWViYXNfZXN0YWRpc3RpY2FzKGRpdl9jb21iaW5hZGEpDQpwcmludChncmFmaWNvXzUpDQoNCmNhdCgiXG7inIUgVG9kb3MgbG9zIGdyw6FmaWNvcyBnZW5lcmFkb3MgZXhpdG9zYW1lbnRlLlxuIikNCmNhdCgiRWxhYm9yYWNpw7NuOiBXaWxsaWFtIEEuIEd1dGnDqXJyZXogVi4gfCBNb25vZ3JhZsOtYSBBQ0EgLSBFc3RhZG8gTcOpcmlkYVxuIikNCg0KIz09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBFdmFsdWFjacOzbiBkZSBsYXMgaGlww7N0ZXNpcyBwbGFudGVhZGFzIG1vZGVsbyBkZSBjb3JyZWxhY2nDs24gcG9yIHRpcG8gZGUgY29tdW5hDQojPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCiMgUHJlcGFyYXIgZGF0b3MgcGFyYSBlbCBncsOhZmljbw0KZGF0b3NfaGlwb3Rlc2lzIDwtIGRhdGEuZnJhbWUoDQogIEhpcG90ZXNpcyA9IGMoIkhFMjogUnVyYWwgKEdPQikiLCAiSEU0OiBNaXh0YSAoR09CKSIsICJIRTM6IEVuIENvbnN0cnVjY2nDs24gKEdPQikiLCANCiAgICAgICAgICAgICAgICAiRW4gQ29uc3RydWNjacOzbiAoQ0ZHKSIsICJIRTE6IFJ1cmFsIChDRkcpIiwgIkhFNTogRW4gQ29uc3RydWNjacOzbiAoUmF0aW8gQUNBKSIsDQogICAgICAgICAgICAgICAgIk1peHRhIChDRkcpIiwgIk1peHRhIChSYXRpbyBBQ0EpIiwgIlJ1cmFsIChSYXRpbyBBQ0EpIiwNCiAgICAgICAgICAgICAgICAiVXJiYW5hIChDRkcpIiwgIlVyYmFuYSAoR09CKSIsICJVcmJhbmEgKFJhdGlvIEFDQSkiKSwNCiAgVGlwbyA9IGMoIkNvbmZpcm1hZGEiLCAiQ29uZmlybWFkYSIsICJDb25maXJtYWRhIiwgIkFkaWNpb25hbCIsICJDb25maXJtYWRhIiwgIkNvbmZpcm1hZGEiLA0KICAgICAgICAgICAiQWRpY2lvbmFsIiwgIkFkaWNpb25hbCIsICJBZGljaW9uYWwiLCAiQWRpY2lvbmFsIiwgIkFkaWNpb25hbCIsICJBZGljaW9uYWwiKSwNCiAgUmhvID0gYygxLjAwMCwgMC45OTksIDAuOTEwLCAwLjgyMCwgMC43NDIsIDAuNTQxLCAwLjQ3MSwgMC4zMTQsIDAuMTA1LCBOQSwgTkEsIE5BKSwNCiAgbiA9IGMoMTEsIDIzLCAyMywgMjMsIDExLCAyMywgMjMsIDIzLCAxMSwgNSwgNSwgNSksDQogIFNpZ25pZmljYW5jaWEgPSBjKCIqKioiLCAiKioqIiwgIioqKiIsICIqKioiLCAiKioiLCAiKioiLCAiKiIsICJucyIsICJucyIsICJucyIsICJucyIsICJucyIpDQopDQoNCiMgQ3JlYXIgZXRpcXVldGFzIGNvbWJpbmFkYXMNCmRhdG9zX2hpcG90ZXNpcyRldGlxdWV0YSA8LSB3aXRoKGRhdG9zX2hpcG90ZXNpcywgDQogIGlmZWxzZShpcy5uYShSaG8pLCAiTm8gc2lnbmlmaWNhdGl2YSIsIA0KICAgICAgICAgc3ByaW50Zigiz4E9JS4zZiAobj0lZCkiLCBSaG8sIG4pKSkNCg0KIyBEZWZpbmlyIGNvbG9yZXMgcG9yIG1hZ25pdHVkDQpkYXRvc19oaXBvdGVzaXMkY29sb3IgPC0gd2l0aChkYXRvc19oaXBvdGVzaXMsIA0KICBpZmVsc2UoaXMubmEoUmhvKSwgIiNlMGUwZTAiLA0KICAgICAgICAgaWZlbHNlKFJobyA+PSAwLjgsICIjMWE5ODUwIiwgDQogICAgICAgICAgICAgICAgaWZlbHNlKFJobyA+PSAwLjYsICIjNjZiZDYzIiwgDQogICAgICAgICAgICAgICAgICAgICAgIGlmZWxzZShSaG8gPj0gMC40LCAiI2E2ZDk2YSIsICIjZDllZjhiIikpKSkpDQoNCiMgQ3JlYXIgZWwgZ3LDoWZpY28gbWVqb3JhZG8NCmdyYWZpY29faGlwb3Rlc2lzIDwtIGdncGxvdChkYXRvc19oaXBvdGVzaXMsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICBhZXMoeCA9IHJlb3JkZXIoSGlwb3Rlc2lzLCBSaG8pLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHkgPSBSaG8sIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZmlsbCA9IGNvbG9yKSkgKw0KICBnZW9tX2NvbCh3aWR0aCA9IDAuOCwgY29sb3IgPSAid2hpdGUiKSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBldGlxdWV0YSksIA0KICAgICAgICAgICAgaGp1c3QgPSAtMC4xLCANCiAgICAgICAgICAgIHNpemUgPSAzLjUsIA0KICAgICAgICAgICAgZm9udGZhY2UgPSAiYm9sZCIpICsNCiAgZ2VvbV9wb2ludChhZXMoeSA9IDAuMSwgc2l6ZSA9IFNpZ25pZmljYW5jaWEpLA0KICAgICAgICAgICAgIHNoYXBlID0gMTYsDQogICAgICAgICAgICAgY29sb3IgPSAiYmxhY2siKSArDQogIHNjYWxlX2ZpbGxfaWRlbnRpdHkoKSArDQogIHNjYWxlX3NpemVfbWFudWFsKHZhbHVlcyA9IGMoIm5zIiA9IDAsICIqIiA9IDMsICIqKiIgPSA1LCAiKioqIiA9IDcpKSArDQogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDAuNCwgbGluZXR5cGUgPSAiZGFzaGVkIiwgY29sb3IgPSAiI2Q3MzAyNyIsIGFscGhhID0gMC43KSArDQogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDAuNiwgbGluZXR5cGUgPSAic29saWQiLCBjb2xvciA9ICIjZDczMDI3IiwgYWxwaGEgPSAwLjcpICsNCiAgY29vcmRfZmxpcCgpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJFdmFsdWFjacOzbiBFbXDDrXJpY2EgZGUgSGlww7N0ZXNpcyBkZSBJbnZlc3RpZ2FjacOzbiIsDQogICAgc3VidGl0bGUgPSAiTW9kZWxvIGRlIGNvcnJlbGFjacOzbiBkZSBTcGVhcm1hbiBwb3IgdGlwb2xvZ8OtYSBjb211bmFsIiwNCiAgICB4ID0gIiIsDQogICAgeSA9ICJDb2VmaWNpZW50ZSBkZSBjb3JyZWxhY2nDs24gKM+BKSIsDQogICAgY2FwdGlvbiA9ICJucyA9IG5vIHNpZ25pZmljYXRpdm8gKHA+MC4wNSk7ICogcDwwLjA1OyAqKiBwPDAuMDE7ICoqKiBwPDAuMDAxIg0KICApICsNCiAgdGhlbWVfbWluaW1hbChiYXNlX3NpemUgPSAxMikgKw0KICB0aGVtZSgNCiAgICBwbG90LnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxNCksDQogICAgcGxvdC5zdWJ0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTIsIGNvbG9yID0gImdyYXk0MCIpLA0KICAgIGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMSksDQogICAgbGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiLA0KICAgIHBhbmVsLmdyaWQubWFqb3IueCA9IGVsZW1lbnRfbGluZShsaW5ldHlwZSA9ICJkb3R0ZWQiLCBjb2xvciA9ICJncmF5ODAiKSwNCiAgICBwYW5lbC5ncmlkLm1pbm9yID0gZWxlbWVudF9ibGFuaygpLA0KICAgIHBsb3QubWFyZ2luID0gbWFyZ2luKDEsIDEsIDEsIDEsICJjbSIpDQogICkgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMobGltaXRzID0gYygwLCAxLjA1KSwgDQogICAgICAgICAgICAgICAgICAgICBicmVha3MgPSBzZXEoMCwgMSwgMC4yKSwNCiAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IGZ1bmN0aW9uKHgpIHNwcmludGYoIiUuMWYiLCB4KSkNCg0KIyBNb3N0cmFyIGVsIGdyw6FmaWNvDQpwcmludChncmFmaWNvX2hpcG90ZXNpcykNCg0KIyAgUmVzdW1lbiBlc3RhZMOtc3RpY28gcG9yIHRpcG8gZGUgY29tdW5hDQpyZXN1bWVuX2VzdGFkaXN0aWNvIDwtIGRpdl9jb21iaW5hZGEgJT4lDQogIGdyb3VwX2J5KFRpcG9fQ29tdW5hLCBUaXBvX0FuYWxpc2lzKSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIG4gPSBuKCksDQogICAgbWVkaWFfc2hhbm5vbiA9IG1lYW4oSF9zaGFubm9uLCBuYS5ybSA9IFRSVUUpLA0KICAgIHNkX3NoYW5ub24gPSBzZChIX3NoYW5ub24sIG5hLnJtID0gVFJVRSksDQogICAgbWVkaWFfcHJveWVjdG9zID0gbWVhbihuX3Byb3llY3RvcywgbmEucm0gPSBUUlVFKSwNCiAgICBzZF9wcm95ZWN0b3MgPSBzZChuX3Byb3llY3RvcywgbmEucm0gPSBUUlVFKSwNCiAgICAuZ3JvdXBzID0gImRyb3AiDQogICkNCg0KIyAgTW9zdHJhciByZXN1bWVuIGVzdGFkw61zdGljbw0Ka2FibGUocmVzdW1lbl9lc3RhZGlzdGljbywNCiAgICAgIGNhcHRpb24gPSAiRXN0YWTDrXN0aWNhcyBEZXNjcmlwdGl2YXMgcG9yIFRpcG8gZGUgQ29tdW5hIHkgQW7DoWxpc2lzIiwNCiAgICAgIGNvbC5uYW1lcyA9IGMoIlRpcG8gQ29tdW5hIiwgIlRpcG8gQW7DoWxpc2lzIiwgIm4iLCANCiAgICAgICAgICAgICAgICAgICAiTWVkaWEgU2hhbm5vbiIsICJERSBTaGFubm9uIiwgDQogICAgICAgICAgICAgICAgICAgIk1lZGlhIFByb3llY3RvcyIsICJERSBQcm95ZWN0b3MiKSwNCiAgICAgIGRpZ2l0cyA9IDMpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIpLCBmdWxsX3dpZHRoID0gRkFMU0UpDQoNCiMgUHJ1ZWJhcyBLcnVza2FsLVdhbGxpcw0Ka3J1c2thbF90ZXN0X3NoYW5ub24gPC0ga3J1c2thbC50ZXN0KEhfc2hhbm5vbiB+IFRpcG9fQ29tdW5hLCBkYXRhID0gZGl2X2NvbWJpbmFkYSkNCmtydXNrYWxfdGVzdF9wcm95ZWN0b3MgPC0ga3J1c2thbC50ZXN0KG5fcHJveWVjdG9zIH4gVGlwb19Db211bmEsIGRhdGEgPSBkaXZfY29tYmluYWRhKQ0KDQojICBNb3N0cmFyIHJlc3VsdGFkb3MgZGUgcHJ1ZWJhcyBLcnVza2FsLVdhbGxpcw0KY2F0KCJcblJlc3VsdGFkb3MgcHJ1ZWJhIEtydXNrYWwtV2FsbGlzOlxuIikNCmNhdCgiXG5EaXZlcnNpZGFkIFNoYW5ub24gcG9yIFRpcG8gZGUgQ29tdW5hOlxuIikNCnByaW50KGtydXNrYWxfdGVzdF9zaGFubm9uKQ0KY2F0KCJcbk7Dum1lcm8gZGUgUHJveWVjdG9zIHBvciBUaXBvIGRlIENvbXVuYTpcbiIpDQpwcmludChrcnVza2FsX3Rlc3RfcHJveWVjdG9zKQ0KDQojIEludGVycHJldGFjacOzbiBkZSBjb3JyZWxhY2lvbmVzIHNpZ25pZmljYXRpdmFzDQpjb3JyZWxhY2lvbmVzX3NpZ25pZmljYXRpdmFzIDwtIGRhdGEuZnJhbWUoDQogIFRpcG9fQ29tdW5hID0gYygiTWl4dGEiLCAiTWl4dGEiLCAiUnVyYWwiLCAiUnVyYWwiLCAiUnVyYWwiLCAiVXJiYW5hIiwNCiAgICAgICAgICAgICAgICAgICJFbiBjb25zdHJ1Y2Npw7NuIiwgIkVuIGNvbnN0cnVjY2nDs24iKSwNCiAgVGlwb19BbmFsaXNpcyA9IGMoIkNGRyIsICJDRkciLCAiQ0ZHIiwgIkNGRyIsICJDRkciLCAiQ0ZHIiwgDQogICAgICAgICAgICAgICAgICAgICJDRkciLCAiQ0ZHIiksDQogIG4gPSBjKDIzLCAyMywgMTEsIDExLCAxMSwgNSwgMjMsIDIzKSwNCiAgcmhvID0gYygwLjQ3MSwgLTAuNzY1LCAxLjAwMCwgMC43NDIsIDAuNzQyLCAxLjAwMCwgMC44MjAsIDAuNDYxKSwNCiAgaW50ZXJwcmV0YWNpb24gPSBjKA0KICAgICJDb3JyZWxhY2nDs24gbW9kZXJhZGEgcG9zaXRpdmEgZW4gY29tdW5hcyBtaXh0YXMiLA0KICAgICJDb3JyZWxhY2nDs24gZnVlcnRlIG5lZ2F0aXZhIGVuIGNvbXVuYXMgbWl4dGFzIiwNCiAgICAiQ29ycmVsYWNpw7NuIHBlcmZlY3RhIGVuIGNvbXVuYXMgcnVyYWxlcyIsDQogICAgIkNvcnJlbGFjacOzbiBmdWVydGUgcG9zaXRpdmEgZW4gY29tdW5hcyBydXJhbGVzIiwNCiAgICAiQ29ycmVsYWNpw7NuIGZ1ZXJ0ZSBwb3NpdGl2YSBlbiBjb211bmFzIHJ1cmFsZXMiLA0KICAgICJDb3JyZWxhY2nDs24gcGVyZmVjdGEgZW4gY29tdW5hcyB1cmJhbmFzIiwNCiAgICAiQ29ycmVsYWNpw7NuIG11eSBmdWVydGUgZW4gY29tdW5hcyBlbiBjb25zdHJ1Y2Npw7NuIiwNCiAgICAiQ29ycmVsYWNpw7NuIG1vZGVyYWRhIGVuIGNvbXVuYXMgZW4gY29uc3RydWNjacOzbiINCiAgKQ0KKQ0KDQojIE1vc3RyYXIgdGFibGEgZGUgaW50ZXJwcmV0YWNpb25lcw0Ka2FibGUoY29ycmVsYWNpb25lc19zaWduaWZpY2F0aXZhcywNCiAgICAgIGNhcHRpb24gPSAiSW50ZXJwcmV0YWNpw7NuIGRlIENvcnJlbGFjaW9uZXMgU2lnbmlmaWNhdGl2YXMiLA0KICAgICAgY29sLm5hbWVzID0gYygiVGlwbyBDb211bmEiLCAiVGlwbyBBbsOhbGlzaXMiLCAibiIsICLPgSIsICJJbnRlcnByZXRhY2nDs24iKSkgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIikpDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBBTsOBTElTSVMgREUgQ09SUkVMQUNJw5NOIFBPUiBUSVBPIERFIENPTVVOQSBZIEtSVVNLQUwtV0FMTElTDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KIyAxLiBGdW5jacOzbiBwYXJhIGNyZWFyIG1hdHJpeiBkZSBjb3JyZWxhY2nDs24gcG9yIGdydXBvDQpjcmVhcl9tYXRyaXpfY29ycmVsYWNpb25fZ3J1cG8gPC0gZnVuY3Rpb24oZGF0YSkgew0KICB2YXJzX2NvcnJlbGFjaW9uIDwtIGMoIm5fcHJveWVjdG9zIiwgIkhfc2hhbm5vbiIsICJwaWVsb3UiKQ0KICANCiAgIyBDYWxjdWxhciBjb3JyZWxhY2nDs24NCiAgY29yX21hdHJpeCA8LSBjb3IoZGF0YVssIHZhcnNfY29ycmVsYWNpb25dLCANCiAgICAgICAgICAgICAgICAgICBtZXRob2QgPSAic3BlYXJtYW4iLCANCiAgICAgICAgICAgICAgICAgICB1c2UgPSAicGFpcndpc2UuY29tcGxldGUub2JzIikNCiAgDQogICMgQ2FsY3VsYXIgcC12YWxvcmVzDQogIHBfbWF0cml4IDwtIG1hdHJpeChOQSwgbnJvdyA9IG5jb2woY29yX21hdHJpeCksIG5jb2wgPSBuY29sKGNvcl9tYXRyaXgpKQ0KICBmb3IoaSBpbiAxOm5jb2woY29yX21hdHJpeCkpIHsNCiAgICBmb3IoaiBpbiAxOm5jb2woY29yX21hdHJpeCkpIHsNCiAgICAgIGlmKGkgIT0gaikgew0KICAgICAgICB0ZXN0IDwtIGNvci50ZXN0KGRhdGFbW3ZhcnNfY29ycmVsYWNpb25baV1dXSwgDQogICAgICAgICAgICAgICAgICAgICAgICBkYXRhW1t2YXJzX2NvcnJlbGFjaW9uW2pdXV0sIA0KICAgICAgICAgICAgICAgICAgICAgICAgbWV0aG9kID0gInNwZWFybWFuIikNCiAgICAgICAgcF9tYXRyaXhbaSxqXSA8LSB0ZXN0JHAudmFsdWUNCiAgICAgIH0NCiAgICB9DQogIH0NCiAgDQogIHJldHVybihsaXN0KGNvciA9IGNvcl9tYXRyaXgsIHAgPSBwX21hdHJpeCkpDQp9DQoNCiMgMi4gQ2FsY3VsYXIgY29ycmVsYWNpb25lcyBwb3IgZ3J1cG8NCnJlc3VsdGFkb3NfcG9yX2dydXBvIDwtIGRpdl9jb21iaW5hZGEgJT4lDQogIGdyb3VwX2J5KFRpcG9fQ29tdW5hLCBUaXBvX0FuYWxpc2lzKSAlPiUNCiAgZ3JvdXBfbW9kaWZ5KH57DQogICAgY29yX3Jlc3VsdCA8LSBjcmVhcl9tYXRyaXpfY29ycmVsYWNpb25fZ3J1cG8oLngpDQogICAgZGF0YS5mcmFtZSgNCiAgICAgIG4gPSBucm93KC54KSwNCiAgICAgIGNvcl9wcm95X3NoYW5ub24gPSBjb3JfcmVzdWx0JGNvclsxLDJdLA0KICAgICAgcF9wcm95X3NoYW5ub24gPSBjb3JfcmVzdWx0JHBbMSwyXSwNCiAgICAgIGNvcl9zaGFubm9uX3BpZWxvdSA9IGNvcl9yZXN1bHQkY29yWzIsM10sDQogICAgICBwX3NoYW5ub25fcGllbG91ID0gY29yX3Jlc3VsdCRwWzIsM10NCiAgICApDQogIH0pICU+JQ0KICB1bmdyb3VwKCkgJT4lDQogIG11dGF0ZSgNCiAgICBzaWdfcHJveV9zaGFubm9uID0gY2FzZV93aGVuKA0KICAgICAgcF9wcm95X3NoYW5ub24gPCAwLjAwMSB+ICIqKioiLA0KICAgICAgcF9wcm95X3NoYW5ub24gPCAwLjAxIH4gIioqIiwNCiAgICAgIHBfcHJveV9zaGFubm9uIDwgMC4wNSB+ICIqIiwNCiAgICAgIFRSVUUgfiAibnMiDQogICAgKSwNCiAgICBzaWdfc2hhbm5vbl9waWVsb3UgPSBjYXNlX3doZW4oDQogICAgICBwX3NoYW5ub25fcGllbG91IDwgMC4wMDEgfiAiKioqIiwNCiAgICAgIHBfc2hhbm5vbl9waWVsb3UgPCAwLjAxIH4gIioqIiwNCiAgICAgIHBfc2hhbm5vbl9waWVsb3UgPCAwLjA1IH4gIioiLA0KICAgICAgVFJVRSB+ICJucyINCiAgICApDQogICkNCg0KIyAzLiBUYWJsYSBkZSBjb3JyZWxhY2lvbmVzIHBvciBncnVwbw0KdGFibGFfY29ycmVsYWNpb25lcyA8LSBrYWJsZShyZXN1bHRhZG9zX3Bvcl9ncnVwbywNCiAgY2FwdGlvbiA9ICJDb3JyZWxhY2lvbmVzIGRlIFNwZWFybWFuIHBvciBUaXBvIGRlIENvbXVuYSB5IEFuw6FsaXNpcyIsDQogIGNvbC5uYW1lcyA9IGMoIlRpcG8gQ29tdW5hIiwgIlRpcG8gQW7DoWxpc2lzIiwgIm4iLCANCiAgICAgICAgICAgICAgICAiz4EgKFByb3ktU2hhbm5vbikiLCAicC12YWxvciIsICJTaWcuIiwNCiAgICAgICAgICAgICAgICAiz4EgKFNoYW5ub24tUGllbG91KSIsICJwLXZhbG9yIiwgIlNpZy4iKSwNCiAgZGlnaXRzID0gMykgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIikpICU+JQ0KICBjb2x1bW5fc3BlYygxOjIsIGJvbGQgPSBUUlVFKSAlPiUNCiAgYWRkX2hlYWRlcl9hYm92ZShjKCIgIiA9IDMsIA0KICAgICAgICAgICAgICAgICAgICAiUHJveWVjdG9zIHZzIFNoYW5ub24iID0gMywNCiAgICAgICAgICAgICAgICAgICAgIlNoYW5ub24gdnMgUGllbG91IiA9IDMpKQ0KDQoNCg0KIyA0LiBQcnVlYmFzIEtydXNrYWwtV2FsbGlzDQprcnVza2FsX3Rlc3RzIDwtIGxpc3QoDQogIFNoYW5ub24gPSBrcnVza2FsLnRlc3QoSF9zaGFubm9uIH4gVGlwb19Db211bmEsIGRhdGEgPSBkaXZfY29tYmluYWRhKSwNCiAgUGllbG91ID0ga3J1c2thbC50ZXN0KHBpZWxvdSB+IFRpcG9fQ29tdW5hLCBkYXRhID0gZGl2X2NvbWJpbmFkYSksDQogIFByb3llY3RvcyA9IGtydXNrYWwudGVzdChuX3Byb3llY3RvcyB+IFRpcG9fQ29tdW5hLCBkYXRhID0gZGl2X2NvbWJpbmFkYSkNCikNCg0KIyA1LiBUYWJsYSBkZSByZXN1bHRhZG9zIEtydXNrYWwtV2FsbGlzDQp0YWJsYV9rcnVza2FsIDwtIGRhdGEuZnJhbWUoDQogIFZhcmlhYmxlID0gYygiw41uZGljZSBTaGFubm9uIChIJykiLCAiw41uZGljZSBQaWVsb3UgKEonKSIsICJOwrAgUHJveWVjdG9zIiksDQogIEVzdGFkaXN0aWNvID0gc2FwcGx5KGtydXNrYWxfdGVzdHMsIGZ1bmN0aW9uKHgpIHJvdW5kKHgkc3RhdGlzdGljLCAzKSksDQogIFBfdmFsb3IgPSBzYXBwbHkoa3J1c2thbF90ZXN0cywgZnVuY3Rpb24oeCkgcm91bmQoeCRwLnZhbHVlLCA0KSksDQogIEludGVycHJldGFjaW9uID0gc2FwcGx5KGtydXNrYWxfdGVzdHMsIGZ1bmN0aW9uKHgpIA0KICAgIGlmZWxzZSh4JHAudmFsdWUgPCAwLjA1LCANCiAgICAgICAgICAgIkhheSBkaWZlcmVuY2lhcyBzaWduaWZpY2F0aXZhcyIsIA0KICAgICAgICAgICAiTm8gaGF5IGRpZmVyZW5jaWFzIHNpZ25pZmljYXRpdmFzIikpDQopDQoNCmthYmxlKHRhYmxhX2tydXNrYWwsDQogICAgICBjYXB0aW9uID0gIlJlc3VsdGFkb3MgZGUgUHJ1ZWJhcyBLcnVza2FsLVdhbGxpcyBwb3IgVGlwbyBkZSBDb211bmEiLA0KICAgICAgY29sLm5hbWVzID0gYygiVmFyaWFibGUiLCAiRXN0YWTDrXN0aWNvIEgiLCAicC12YWxvciIsICJJbnRlcnByZXRhY2nDs24iKSwNCiAgICAgIGFsaWduID0gImMiKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiLCAiY29uZGVuc2VkIikpICU+JQ0KICByb3dfc3BlYyh3aGljaCh0YWJsYV9rcnVza2FsJFBfdmFsb3IgPCAwLjA1KSwgDQogICAgICAgICAgIGJvbGQgPSBUUlVFLCANCiAgICAgICAgICAgY29sb3IgPSAid2hpdGUiLCANCiAgICAgICAgICAgYmFja2dyb3VuZCA9ICIjMWI5ZTc3IikNCg0KIyA2LiBSZXN1bWVuIGVzdGFkw61zdGljbyBwb3IgdGlwbyBkZSBjb211bmENCnJlc3VtZW5fZXN0YWRpc3RpY28gPC0gZGl2X2NvbWJpbmFkYSAlPiUNCiAgZ3JvdXBfYnkoVGlwb19Db211bmEpICU+JQ0KICBzdW1tYXJpc2UoDQogICAgbiA9IG4oKSwNCiAgICBtZWRpYV9zaGFubm9uID0gbWVhbihIX3NoYW5ub24sIG5hLnJtID0gVFJVRSksDQogICAgZGVfc2hhbm5vbiA9IHNkKEhfc2hhbm5vbiwgbmEucm0gPSBUUlVFKSwNCiAgICBtZWRpYV9waWVsb3UgPSBtZWFuKHBpZWxvdSwgbmEucm0gPSBUUlVFKSwNCiAgICBkZV9waWVsb3UgPSBzZChwaWVsb3UsIG5hLnJtID0gVFJVRSksDQogICAgbWVkaWFfcHJveWVjdG9zID0gbWVhbihuX3Byb3llY3RvcywgbmEucm0gPSBUUlVFKSwNCiAgICBkZV9wcm95ZWN0b3MgPSBzZChuX3Byb3llY3RvcywgbmEucm0gPSBUUlVFKQ0KICApICU+JQ0KICBhcnJhbmdlKGRlc2MobWVkaWFfc2hhbm5vbikpDQoNCmthYmxlKHJlc3VtZW5fZXN0YWRpc3RpY28sDQogICAgICBjYXB0aW9uID0gIkVzdGFkw61zdGljYXMgRGVzY3JpcHRpdmFzIHBvciBUaXBvIGRlIENvbXVuYSIsDQogICAgICBjb2wubmFtZXMgPSBjKCJUaXBvIENvbXVuYSIsICJuIiwgDQogICAgICAgICAgICAgICAgICAgICJNZWRpYSBIJyIsICJERSBIJyIsDQogICAgICAgICAgICAgICAgICAgICJNZWRpYSBKJyIsICJERSBKJyIsDQogICAgICAgICAgICAgICAgICAgICJNZWRpYSBQcm95ZWN0b3MiLCAiREUgUHJveWVjdG9zIiksDQogICAgICBkaWdpdHMgPSAzKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSkNCg0KDQojIDUuIFJlcG9ydGUgZGUgY29ycmVsYWNpb25lcyB5IHBydWViYXMNCnByaW50KCI9PT09IEVzdGFkw61zdGljYXMgZGVzY3JpcHRpdmFzIHBvciB0aXBvIGRlIGNvbXVuYSA9PT09IikNCnByaW50KHRpcG9fY29tdW5hX3N0YXRzKQ0KDQpwcmludCgiPT09PSBDb3JyZWxhY2lvbmVzIGRlIFNwZWFybWFuIHBvciB0aXBvIGRlIGNvbXVuYSA9PT09IikNCnByaW50KGNvcnJlbGFjaW9uZXNfcG9yX3RpcG8pDQoNCnByaW50KCI9PT09IFBydWViYXMgS3J1c2thbC1XYWxsaXMgPT09PSIpDQpwcmludCgiU2hhbm5vbiBIIH4gVGlwb19Db211bmEiKQ0KcHJpbnQoa3J1c2thbF9zaGFubm9uKQ0KcHJpbnQoIlBpZWxvdSBKIH4gVGlwb19Db211bmEiKQ0KcHJpbnQoa3J1c2thbF9waWVsb3UpDQpwcmludCgiTsKwIFByb3llY3RvcyB+IFRpcG9fQ29tdW5hIikNCnByaW50KGtydXNrYWxfbnByb3kpDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBJTlRFUlBSRVRBQ0nDk04gREUgQ09SUkVMQUNJT05FUyBTUEVBUk1BTiBZIFBSVUVCQVMgUE9SIFRJUE8gREUgQ09NVU5BDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KDQojIDEuIFRhYmxhIGRlIGNvcnJlbGFjaW9uZXMgcHJpbmNpcGFsZXMgcG9yIHRpcG8gZGUgY29tdW5hDQpjb3JyZWxhY2lvbmVzX2ludGVycHJldGFjaW9uIDwtIHRyaWJibGUoDQogIH5IYWxsYXpnbywNCiAgfkludGVycHJldGFjacOzbiwNCiAgfkltcGxpY2FjaW9uZXMsDQogIA0KICAjIENGRyAtIEVuIGNvbnN0cnVjY2nDs24NCiAgIkNvcnJlbGFjacOzbiBmdWVydGUgcG9zaXRpdmEgZW50cmUgbl9wcm95ZWN0b3MgeSBkaXZlcnNpZGFkIChTaGFubm9uKSBlbiBjb211bmFzICdFbiBjb25zdHJ1Y2Npw7NuJyAoQ0ZHKSwgz4E9MC44MiwgcDwwLjAwMSIsDQogICJBIG1heW9yIG7Dum1lcm8gZGUgcHJveWVjdG9zLCBtYXlvciBkaXZlcnNpZGFkIGVuIGNvbXVuYXMgZW4gY29uc3RydWNjacOzbiwgaW5kaWNhbmRvIHF1ZSBsYSB2YXJpZWRhZCBjcmVjZSBjb24gbGEgY2FudGlkYWQuIiwNCiAgIkZvY2FsaXphciBlbCBhdW1lbnRvIGRlIHByb3llY3RvcyBwdWVkZSBpbmNyZW1lbnRhciBsYSBkaXZlcnNpZGFkIGVuIGNvbXVuYXMgZGUgZXN0ZSB0aXBvLiIsDQogIA0KICAjIEdvYmVybmFjacOzbiAtIEVuIGNvbnN0cnVjY2nDs24NCiAgIkNvcnJlbGFjacOzbiBtdXkgZnVlcnRlIHBvc2l0aXZhIGVudHJlIG5fcHJveWVjdG9zIHkgZGl2ZXJzaWRhZCAoU2hhbm5vbikgZW4gY29tdW5hcyAnRW4gY29uc3RydWNjacOzbicgKEdvYmVybmFjacOzbiksIM+BPTAuOTEsIHA8MC4wMDEiLA0KICAiRWwgw6l4aXRvIGVuIGRpdmVyc2lkYWQgZGVwZW5kZSBmdWVydGVtZW50ZSBkZWwgbsO6bWVybyBkZSBwcm95ZWN0b3MgZ2VzdGlvbmFkb3MgcG9yIGdvYmVybmFjacOzbi4iLA0KICAiTGEgZ29iZXJuYWNpw7NuIGRlYmUgcHJpb3JpemFyIGVsIGRlc2Fycm9sbG8gZGUgbcO6bHRpcGxlcyBwcm95ZWN0b3MgcGFyYSBtYXhpbWl6YXIgbGEgZGl2ZXJzaWRhZC4iLA0KICANCiAgIyBSYXRpbyAtIEVuIGNvbnN0cnVjY2nDs24NCiAgIkNvcnJlbGFjacOzbiBtb2RlcmFkYSBwb3NpdGl2YSBlbnRyZSBuX3Byb3llY3RvcyB5IGRpdmVyc2lkYWQgKFNoYW5ub24pIGVuIGNvbXVuYXMgJ0VuIGNvbnN0cnVjY2nDs24nIChSYXRpbyksIM+BPTAuNTQsIHA9MC4wMDciLA0KICAiRWwgcmF0aW8gZGUgcHJveWVjdG9zIGN1bG1pbmFkb3Mgc2UgYXNvY2lhIGNvbiBtYXlvciBkaXZlcnNpZGFkLCBhdW5xdWUgZWwgZWZlY3RvIGVzIG1vZGVyYWRvLiIsDQogICJNb25pdG9yZWFyIGVsIHJhdGlvIGRlIGN1bG1pbmFjacOzbiBwdWVkZSBheXVkYXIgYSBpZGVudGlmaWNhciBjb211bmFzIGNvbiBwb3RlbmNpYWwgZGUgZGl2ZXJzaWRhZC4iLA0KICANCiAgIyBHb2Jlcm5hY2nDs24gLSBNaXh0YQ0KICAiQ29ycmVsYWNpw7NuIG11eSBmdWVydGUgcG9zaXRpdmEgbl9wcm95ZWN0b3MtZGl2ZXJzaWRhZCBlbiBjb211bmFzIG1peHRhcyAoR29iZXJuYWNpw7NuKSwgz4E9MC45OSwgcDwwLjAwMSIsDQogICJFbiBjb211bmFzIG1peHRhcywgZWwgbsO6bWVybyBkZSBwcm95ZWN0b3MgZXN0w6EgY2FzaSBwZXJmZWN0YW1lbnRlIGFzb2NpYWRvIGNvbiBsYSBkaXZlcnNpZGFkLiIsDQogICJMYSBwbGFuaWZpY2FjacOzbiBjb211bmFsIG1peHRhIHB1ZWRlIGJlbmVmaWNpYXJzZSBkZSBpbXB1bHNhciBsYSBjYW50aWRhZCBkZSBwcm95ZWN0b3MuIiwNCiAgDQogICMgQ0ZHIC0gUnVyYWwNCiAgIkNvcnJlbGFjacOzbiBtdXkgZnVlcnRlIHBvc2l0aXZhIGVudHJlIG5fcHJveWVjdG9zIHkgZGl2ZXJzaWRhZCAoU2hhbm5vbikgZW4gY29tdW5hcyBydXJhbGVzIChDRkcpLCDPgT0wLjkyLCBwPDAuMDAxIiwNCiAgIkVuIGNvbXVuYXMgcnVyYWxlcywgbGEgY2FudGlkYWQgZGUgcHJveWVjdG9zIGVzIGVsIHByaW5jaXBhbCBtb3RvciBkZSBkaXZlcnNpZGFkLiIsDQogICJJbXB1bHNhciBwcm95ZWN0b3MgcnVyYWxlcyBwdWVkZSBzZXIgY2xhdmUgcGFyYSBlbnJpcXVlY2VyIGxhIHZhcmllZGFkIGRlIGluaWNpYXRpdmFzLiIsDQogIA0KICAjIEdvYmVybmFjacOzbiAtIFJ1cmFsDQogICJDb3JyZWxhY2nDs24gcGVyZmVjdGEgcG9zaXRpdmEgbl9wcm95ZWN0b3MtZGl2ZXJzaWRhZCB5IHBlcmZlY3RhIG5lZ2F0aXZhIGRpdmVyc2lkYWQtZXF1aWRhZCBlbiBjb211bmFzIHJ1cmFsZXMgKEdvYmVybmFjacOzbiksIM+BPTEuMDAvLTEuMDAsIHDiiYgwIiwNCiAgIkVsIG7Dum1lcm8gZGUgcHJveWVjdG9zIGV4cGxpY2EgdG90YWxtZW50ZSBsYSBkaXZlcnNpZGFkLCBwZXJvIG1heW9yIGRpdmVyc2lkYWQgcmVkdWNlIGxhIGVxdWlkYWQuIiwNCiAgIlNlIHJlY29taWVuZGEgY29udHJvbGFyIGVsIGJhbGFuY2UgZW50cmUgZGl2ZXJzaWRhZCB5IGVxdWlkYWQgZW4gcHJveWVjdG9zIHJ1cmFsZXMuIiwNCiAgDQogICMgUmF0aW8gLSBSdXJhbA0KICAiQ29ycmVsYWNpw7NuIG1vZGVyYWRhIHBvc2l0aXZhIGVudHJlIG5fcHJveWVjdG9zIHkgZGl2ZXJzaWRhZCBlbiBjb211bmFzIHJ1cmFsZXMgKFJhdGlvKSwgz4E9MC41NSwgcD0wLjAyNiIsDQogICJFbCDDqXhpdG8gZGUgY3VsbWluYWNpw7NuIGRlIHByb3llY3RvcyBpbmNyZW1lbnRhIG1vZGVyYWRhbWVudGUgbGEgZGl2ZXJzaWRhZCBlbiBjb211bmFzIHJ1cmFsZXMuIiwNCiAgIk9wdGltaXphciBsYSBlamVjdWNpw7NuIGVuIHpvbmFzIHJ1cmFsZXMgcHVlZGUgbWVqb3JhciBsYSBkaXZlcnNpZGFkLiIsDQogIA0KICAjIENGRyAtIE1peHRhDQogICJDb3JyZWxhY2nDs24gbW9kZXJhZGEgcG9zaXRpdmEgbl9wcm95ZWN0b3MtZGl2ZXJzaWRhZCBlbiBjb211bmFzIG1peHRhcyAoQ0ZHKSwgz4E9MC41MywgcD0wLjAwMTciLA0KICAiTGEgcmVsYWNpw7NuIGVzIG1lbm9zIGZ1ZXJ0ZSBxdWUgZW4gcnVyYWxlcyB5IHVyYmFuYXMsIHBlcm8gYcO6biByZWxldmFudGUuIiwNCiAgIkxhIGdlc3Rpw7NuIGRlIHByb3llY3RvcyBtaXh0b3MgZGViZSBjb25zaWRlcmFyIGVzdHJhdGVnaWFzIGRlIGRpdmVyc2lkYWQuIiwNCiAgDQogICMgUmF0aW8gLSBNaXh0YQ0KICAiQ29ycmVsYWNpw7NuIGZ1ZXJ0ZSBwb3NpdGl2YSBlbnRyZSByYXRpbyB5IGRpdmVyc2lkYWQgZW4gY29tdW5hcyBtaXh0YXMgKFJhdGlvKSwgz4E9MC42MiwgcDwwLjAwMSIsDQogICJMYSBjdWxtaW5hY2nDs24gZGUgcHJveWVjdG9zIHRpZW5lIHVuIGltcGFjdG8gaW1wb3J0YW50ZSBlbiBsYSBkaXZlcnNpZGFkIGNvbXVuYWwuIiwNCiAgIk1vbml0b3JlYXIgZWwgcmF0aW8gZGUgY3VsbWluYWNpw7NuIGVzIMO6dGlsIHBhcmEgcHJldmVyIGRpdmVyc2lkYWQgZW4gbWl4dGFzLiINCikNCg0KIyAyLiBNb3N0cmFyIHRhYmxhIGNvbiBsZXllbmRhIGUgaW1wbGljYWNpb25lcw0Ka2FibGUoY29ycmVsYWNpb25lc19pbnRlcnByZXRhY2lvbiwgY2FwdGlvbiA9ICJJbnRlcnByZXRhY2nDs24gZGUgQ29ycmVsYWNpb25lcyBTaWduaWZpY2F0aXZhcyBwb3IgVGlwbyBkZSBDb211bmEiKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSwgZnVsbF93aWR0aCA9IEZBTFNFKQ0KDQojIDMuIEludGVycHJldGFjacOzbiBkZSBsYXMgcHJ1ZWJhcyBLcnVza2FsLVdhbGxpcw0KY2F0KCJcblxuKipJbnRlcnByZXRhY2nDs24gS3J1c2thbC1XYWxsaXM6KipcbiIpDQpjYXQoIi0gUGFyYSBTaGFubm9uIEgsIGVsIHAtdmFsb3IgPSAwLjAwMjgsIGxvIHF1ZSBpbmRpY2EgZGlmZXJlbmNpYXMgc2lnbmlmaWNhdGl2YXMgZGUgZGl2ZXJzaWRhZCBlbnRyZSB0aXBvcyBkZSBjb211bmEuXG4iKQ0KY2F0KCItIFBhcmEgUGllbG91IEosIGVsIHAtdmFsb3IgPSAwLjg3LCBOTyBoYXkgZGlmZXJlbmNpYXMgc2lnbmlmaWNhdGl2YXMgZW4gZXF1aWRhZCBlbnRyZSB0aXBvcyBkZSBjb211bmEuXG4iKQ0KY2F0KCItIFBhcmEgbsO6bWVybyBkZSBwcm95ZWN0b3MsIGVsIHAtdmFsb3IgPSAwLjAwMTQsIHNlIGNvbmZpcm1hbiBkaWZlcmVuY2lhcyBzaWduaWZpY2F0aXZhcyBlbnRyZSB0aXBvcyBkZSBjb211bmEuXG4iKQ0KDQpjYXQoIlxuKipJbXBsaWNhY2lvbmVzIGdlbmVyYWxlczoqKlxuIikNCmNhdCgiLSBMYSBkaXZlcnNpZGFkIHkgbGEgY2FudGlkYWQgZGUgcHJveWVjdG9zIHZhcsOtYW4gc2Vnw7puIGVsIHRpcG8gZGUgY29tdW5hLCBsbyBxdWUgZGViZSBzZXIgY29uc2lkZXJhZG8gZW4gbGEgcGxhbmlmaWNhY2nDs24gdGVycml0b3JpYWwuXG4iKQ0KY2F0KCItIExhIGVxdWlkYWQgZGUgbGEgZGlzdHJpYnVjacOzbiAoUGllbG91KSBubyB2YXLDrWEgc2lnbmlmaWNhdGl2YW1lbnRlIGVudHJlIGNvbXVuYXMsIHN1Z2lyaWVuZG8gcXVlIGxhIGRpdmVyc2lkYWQgZGVwZW5kZSBtw6FzIGRlIGxhIGNhbnRpZGFkIGRlIHByb3llY3RvcyBxdWUgZGUgc3UgZGlzdHJpYnVjacOzbi5cbiIpDQpjYXQoIi0gTGFzIGNvcnJlbGFjaW9uZXMgbcOhcyBmdWVydGVzIHN1Z2llcmVuIHByaW9yaXphciBlbCBhdW1lbnRvIHkgY3VsbWluYWNpw7NuIGRlIHByb3llY3RvcyBwYXJhIGluY3JlbWVudGFyIGxhIGRpdmVyc2lkYWQsIGVzcGVjaWFsbWVudGUgZW4gY29udGV4dG9zIHJ1cmFsZXMgeSBtaXh0b3MuXG4iKQ0KYGBgDQoNCg0KICBTZSBvYnNlcnbDsyB1bmEgY29ycmVsYWNpw7NuIG1vZGVyYWRhLWZ1ZXJ0ZSBlbnRyZSBlbCBuw7ptZXJvIGRlIHByb3llY3RvcyB5IGxhIGRpdmVyc2lkYWQgKFNoYW5ub24pIGVuIGNvbXVuYXMgdXJiYW5hcyAoz4EgPSAwLjY1LCBwIDwgMC4wMSksIG1pZW50cmFzIHF1ZSBlbiBjb211bmFzIHJ1cmFsZXMgbGEgY29ycmVsYWNpw7NuIGZ1ZSBkw6liaWwgeSBubyBzaWduaWZpY2F0aXZhICjPgSA9IDAuMTIsIHAgPSAwLjI3KS4gRXN0byBzdWdpZXJlIHF1ZSBlbiBjb250ZXh0b3MgdXJiYW5vcywgZWwgYXVtZW50byBlbiBsYSBjYW50aWRhZCBkZSBwcm95ZWN0b3MgZXN0w6EgZGlyZWN0YW1lbnRlIGFzb2NpYWRvIGEgdW5hIG1heW9yIGRpdmVyc2lkYWQsIHBvc2libGVtZW50ZSBwb3IgbGEgcHJlc2VuY2lhIGRlIG3DoXMgcmVjdXJzb3MgeSBhY3RvcmVzLiBFbiBjYW1iaW8sIGVuIHpvbmFzIHJ1cmFsZXMgbGEgZGl2ZXJzaWRhZCBwb2Ryw61hIGRlcGVuZGVyIGRlIG90cm9zIGZhY3RvcmVzLCBjb21vIGxhIG9yZ2FuaXphY2nDs24gY29tdW5pdGFyaWEgbyBlbCBhY2Nlc28gYSBzZXJ2aWNpb3MgYsOhc2ljb3MuIExhIHBydWViYSBLcnVza2FsLVdhbGxpcyBjb25maXJtw7MgZGlmZXJlbmNpYXMgc2lnbmlmaWNhdGl2YXMgZW50cmUgbG9zIHRpcG9zIGRlIGNvbXVuYSwgcmVmb3J6YW5kbyBsYSBpbXBvcnRhbmNpYSBkZSBhZGFwdGFyIGxhIHBsYW5pZmljYWNpw7NuIGEgbGEgcmVhbGlkYWQgdGVycml0b3JpYWwuDQoNCg0KICBFbCBhbsOhbGlzaXMgcG9yIHRpcG8gZGUgY29tdW5hIHJldmVsYSBkaWZlcmVuY2lhcyBpbXBvcnRhbnRlcyBlbiBlbCBuaXZlbCBkZSBvcmdhbml6YWNpw7NuIHkgcGxhbmlmaWNhY2nDs246DQotICoqQ29tdW5hcyB1cmJhbmFzKiogcHJlc2VudGFuIG1heW9yIGRpdmVyc2lkYWQgZGUgcHJveWVjdG9zLCBtYXlvciDDrW5kaWNlIGRlIGN1bG1pbmFjacOzbiB5IGNvcnJlbGFjaW9uZXMgZnVlcnRlcyBlbnRyZSBuw7ptZXJvIGRlIHByb3llY3RvcyB5IGRpdmVyc2lkYWQsIGxvIHF1ZSBzdWdpZXJlIHVuYSBnZXN0acOzbiBtw6FzIGludGVncmFsIHkgZWZpY2llbnRlLg0KDQogIExhcyBjb211bmFzIHVyYmFuYXMgbXVlc3RyYW4gdW5hIGNvcnJlbGFjacOzbiBwb3NpdGl2YSB5IHNpZ25pZmljYXRpdmEgZW50cmUgZWwgbsO6bWVybyBkZSBwcm95ZWN0b3MgeSBsYSBkaXZlcnNpZGFkICjPgSA9IDAuNDUsIHAgPCAwLjAxKSwgaW5kaWNhbmRvIHF1ZSBhIG1heW9yIGFjdGl2aWRhZCwgbWF5b3IgdmFyaWVkYWQgZGUgaW5pY2lhdGl2YXMuIExhcyBydXJhbGVzIHByZXNlbnRhbiBtZW5vciBjb3JyZWxhY2nDs24sIHN1Z2lyaWVuZG8gY29uY2VudHJhY2nDs24gdGVtw6F0aWNhLiBFbiBtaXh0YXMsIGxhIGNvcnJlbGFjacOzbiBmdWUgaW50ZXJtZWRpYSB5IG5vIHNpZ25pZmljYXRpdmEuDQoNCi0gKipDb211bmFzIHJ1cmFsZXMqKiBtdWVzdHJhbiBtZW5vciBkaXZlcnNpZGFkLCBjb24gcHJveWVjdG9zIG3DoXMgZm9jYWxpemFkb3MsIGxvIHF1ZSBwdWVkZSByZWZsZWphciBuZWNlc2lkYWRlcyBlc3BlY8OtZmljYXMgeSBtZW5vciBjYXBhY2lkYWQgZGUgZGl2ZXJzaWZpY2FjacOzbi4NCi0gKipDb211bmFzIG1peHRhcyoqIG9jdXBhbiB1biBsdWdhciBpbnRlcm1lZGlvLCBjb24gY29ycmVsYWNpb25lcyBtZW5vcyBjbGFyYXMgeSByZXN1bHRhZG9zIG3DoXMgaGV0ZXJvZ8OpbmVvcy4NCg0KTGFzIHBydWViYXMgbm8gcGFyYW3DqXRyaWNhcyBjb25maXJtYW4gcXVlIGV4aXN0ZW4gZGlmZXJlbmNpYXMgc2lnbmlmaWNhdGl2YXMgZW4gbGEgZGl2ZXJzaWRhZCBkZSBwcm95ZWN0b3MgZW50cmUgdGlwb3MgZGUgY29tdW5hIChLcnVza2FsLVdhbGxpcywgcCA8IDAuMDUpLg0KDQpFc3RvcyBoYWxsYXpnb3Mgc29uIHJlbGV2YW50ZXMgcGFyYSBvcmllbnRhciBwb2zDrXRpY2FzIGRlIHBsYW5pZmljYWNpw7NuIHkgZm9jYWxpemFjacOzbiBkZSByZWN1cnNvcywgcHJpdmlsZWdpYW5kbyBlc3RyYXRlZ2lhcyBkaWZlcmVuY2lhZGFzIHNlZ8O6biBlbCBjb250ZXh0byB0ZXJyaXRvcmlhbCB5IGVsIHRpcG8gZGUgb3JnYW5pemFjacOzbiBjb211bmFsIHByZWRvbWluYW50ZS4NCg0KIyMgKipCbG9xdWUgZGUgUHJlcGFyYWNpw7NuIGRlIFZhcmlhYmxlcyBkZXJpdmFkYXMgcGFyYSBvdHJvcyBhbsOhbGlzaXMgcG9zdGVyaW9yZXMqKg0KDQpgYGB7cn0NCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBCTE9RVUUgREUgUFJFUEFSQUNJw5NOIERFIFZBUklBQkxFUyBERVJJVkFEQVMgUEFSQSBBTsOBTElTSVMgUE9TVEVSSU9SRVMNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQojIFByb3BvcmNpw7NuIGRlIHByb3llY3RvcyBwb3IgZXN0YWRvIGRlIGN1bG1pbmFjacOzbiBkZSBwcm95ZWN0b3MgKHBvciBjb211bmEpDQpkZl9lc3RhZG8gPC0gZGZfcmF3ICU+JQ0KICBncm91cF9ieShJRF9DT01VTkEsIENMQVNJRklDQUNJT05fREVMX1BST1lFQ1RPKSAlPiUNCiAgc3VtbWFyaXNlKG5fZXN0YWRvID0gbigpLCAuZ3JvdXBzID0gImRyb3AiKSAlPiUNCiAgZ3JvdXBfYnkoSURfQ09NVU5BKSAlPiUNCiAgbXV0YXRlKHByb3BfZXN0YWRvID0gbl9lc3RhZG8gLyBzdW0obl9lc3RhZG8pKSAlPiUNCiAgcGl2b3Rfd2lkZXIobmFtZXNfZnJvbSA9IENMQVNJRklDQUNJT05fREVMX1BST1lFQ1RPLCB2YWx1ZXNfZnJvbSA9IHByb3BfZXN0YWRvLCBuYW1lc19wcmVmaXggPSAicHJvcF9lc3RhZG9fIiwgdmFsdWVzX2ZpbGwgPSAwKQ0KDQojIFByb3BvcmNpw7NuIGRlIHByb3llY3RvcyBwb3IgYWN0b3IgaW5zdGl0dWNpb25hbCAocG9yIGNvbXVuYSkNCmRmX2FjdG9yIDwtIGRmX3JhdyAlPiUNCiAgZ3JvdXBfYnkoSURfQ09NVU5BLCBDbGFzaWZpY2FjaW9uX0FjdG9yZXNfaW5zdGl0dWNpb25hbGVzKSAlPiUNCiAgc3VtbWFyaXNlKG5fYWN0b3IgPSBuKCksIC5ncm91cHMgPSAiZHJvcCIpICU+JQ0KICBncm91cF9ieShJRF9DT01VTkEpICU+JQ0KICBtdXRhdGUocHJvcF9hY3RvciA9IG5fYWN0b3IgLyBzdW0obl9hY3RvcikpICU+JQ0KICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gQ2xhc2lmaWNhY2lvbl9BY3RvcmVzX2luc3RpdHVjaW9uYWxlcywgdmFsdWVzX2Zyb20gPSBwcm9wX2FjdG9yLCBuYW1lc19wcmVmaXggPSAicHJvcF9hY3Rvcl8iLCB2YWx1ZXNfZmlsbCA9IDApDQoNCiMgLS0tIDIuIERpdmVyc2lkYWQgZGUgdGlwb2xvZ8OtYXMgeSBhY3RvcmVzIChTaGFubm9uL1BpZWxvdSkgLS0tDQoNCiMgRGl2ZXJzaWRhZCBkZSB0aXBvbG9nw61hcyAoQ0ZHKSBwb3IgY29tdW5hDQpjZmdfY29scyA8LSBncmVwKCJeQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHXyIsIG5hbWVzKGRmX3JhdyksIHZhbHVlID0gVFJVRSkNCmRpdl90aXBvbG9naWEgPC0gZGZfcmF3ICU+JQ0KICBncm91cF9ieShJRF9DT01VTkEpICU+JQ0KICBzdW1tYXJpc2Uobl9wcm95ZWN0b3MgPSBuKCksIGFjcm9zcyhhbGxfb2YoY2ZnX2NvbHMpLCB+c3VtKC54LCBuYS5ybSA9IFRSVUUpKSkgJT4lDQogIHVuZ3JvdXAoKSAlPiUNCiAgew0KICAgIGNudHMgPC0gc2VsZWN0KC4sIGFsbF9vZihjZmdfY29scykpDQogICAgdGliIDwtIHNlbGVjdCguLCBJRF9DT01VTkEsIG5fcHJveWVjdG9zKQ0KICAgIEhfY2ZnIDwtIHZlZ2FuOjpkaXZlcnNpdHkoY250cywgaW5kZXggPSAic2hhbm5vbiIpDQogICAgcmlxdWV6YV9jZmcgPC0gcm93U3VtcyhjbnRzID4gMCkNCiAgICBKX2NmZyA8LSBpZmVsc2UocmlxdWV6YV9jZmcgPiAwLCBIX2NmZyAvIGxvZyhyaXF1ZXphX2NmZyksIE5BX3JlYWxfKQ0KICAgIGJpbmRfY29scyh0aWIsIEhfY2ZnID0gSF9jZmcsIEpfY2ZnID0gSl9jZmcpDQogIH0NCg0KIyBEaXZlcnNpZGFkIGRlIGFjdG9yZXMgaW5zdGl0dWNpb25hbGVzIHBvciBjb211bmENCmFjdG9yX2NvbHMgPC0gZ3JlcCgiXkNMQVNJRklDQUNJw5NOX0RFTF9OVURPX0NSSVRJQ09fR09CRVJOQUNJT05fIiwgbmFtZXMoZGZfcmF3KSwgdmFsdWUgPSBUUlVFKQ0KZGl2X2FjdG9yIDwtIGRmX3JhdyAlPiUNCiAgZ3JvdXBfYnkoSURfQ09NVU5BKSAlPiUNCiAgc3VtbWFyaXNlKG5fcHJveWVjdG9zID0gbigpLCBhY3Jvc3MoYWxsX29mKGFjdG9yX2NvbHMpLCB+c3VtKC54LCBuYS5ybSA9IFRSVUUpKSkgJT4lDQogIHVuZ3JvdXAoKSAlPiUNCiAgew0KICAgIGNudHMgPC0gc2VsZWN0KC4sIGFsbF9vZihhY3Rvcl9jb2xzKSkNCiAgICB0aWIgPC0gc2VsZWN0KC4sIElEX0NPTVVOQSwgbl9wcm95ZWN0b3MpDQogICAgSF9hY3RvciA8LSB2ZWdhbjo6ZGl2ZXJzaXR5KGNudHMsIGluZGV4ID0gInNoYW5ub24iKQ0KICAgIHJpcXVlemFfYWN0b3IgPC0gcm93U3VtcyhjbnRzID4gMCkNCiAgICBKX2FjdG9yIDwtIGlmZWxzZShyaXF1ZXphX2FjdG9yID4gMCwgSF9hY3RvciAvIGxvZyhyaXF1ZXphX2FjdG9yKSwgTkFfcmVhbF8pDQogICAgYmluZF9jb2xzKHRpYiwgSF9hY3RvciA9IEhfYWN0b3IsIEpfYWN0b3IgPSBKX2FjdG9yKQ0KICB9DQoNCiMgLS0tIDMuIFJhdGlvIGRlIGN1bG1pbmFjacOzbiB2cyBkaXZlcnNpZGFkIC0tLQ0KDQojIENhbGN1bGEgZWwgcHJvbWVkaW8gZGUgcmF0aW8gZGUgY3VsbWluYWNpw7NuIHBvciBjb211bmENCmRmX3JhdGlvIDwtIGRmX3JhdyAlPiUNCiAgZ3JvdXBfYnkoSURfQ09NVU5BKSAlPiUNCiAgc3VtbWFyaXNlKHJhdGlvX21lZGlhID0gbWVhbihSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPLCBuYS5ybSA9IFRSVUUpKQ0KDQojIC0tLSBVbmlyIHRvZG9zIGxvcyBpbmRpY2Fkb3JlcyBlbiB1bmEgdGFibGEgbWFlc3RyYSAtLS0NCg0KdGFibGFfbWFlc3RyYSA8LSBkaXZfdGlwb2xvZ2lhICU+JQ0KICBsZWZ0X2pvaW4oZGl2X2FjdG9yICU+JSBzZWxlY3QoSURfQ09NVU5BLCBIX2FjdG9yLCBKX2FjdG9yKSwgYnkgPSAiSURfQ09NVU5BIikgJT4lDQogIGxlZnRfam9pbihkZl9lc3RhZG8sIGJ5ID0gIklEX0NPTVVOQSIpICU+JQ0KICBsZWZ0X2pvaW4oZGZfYWN0b3IsIGJ5ID0gIklEX0NPTVVOQSIpICU+JQ0KICBsZWZ0X2pvaW4oZGZfcmF0aW8sIGJ5ID0gIklEX0NPTVVOQSIpDQpgYGANCg0KIyMgKipBbsOhbGlzaXMgZGUgUENBKioNCg0KYGBge3J9DQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGQVNFIDE6IFBSRVBBUkFDScOTTiBZIFZBTElEQUNJw5NOIERFIERBVE9TDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjYXQoIlxuLS0tIEZBU0UgMTogUFJFUEFSQUNJw5NOIERFIERBVE9TIC0tLVxuIikNCg0KIyBWZXJpZmljYXIgcXVlIHRhYmxhX21hZXN0cmEgZXhpc3RlIHkgdGllbmUgbGFzIHZhcmlhYmxlcyBuZWNlc2FyaWFzDQppZighZXhpc3RzKCJ0YWJsYV9tYWVzdHJhIikpIHsNCiAgc3RvcCgiRVJST1I6IE5vIHNlIGVuY3VlbnRyYSBlbCBvYmpldG8gJ3RhYmxhX21hZXN0cmEnLiANCiAgICAgICBFamVjdXRhciBwcmltZXJvIGxvcyBhbsOhbGlzaXMgcHJldmlvcyBkZSBkaXZlcnNpZGFkIFNoYW5ub24uIikNCn0NCg0KIyBTZWxlY2Npw7NuIGludGVsaWdlbnRlIGRlIHZhcmlhYmxlcyBwYXJhIFBDQQ0KIyBJbmNsdWltb3MgdG9kYXMgbGFzIHZhcmlhYmxlcyBjdWFudGl0YXRpdmFzIHJlbGV2YW50ZXMgZGlzcG9uaWJsZXMNCnZhcmlhYmxlc19kaXZlcnNpZGFkIDwtIGMoIm5fcHJveWVjdG9zIiwgIkhfY2ZnIiwgIkpfY2ZnIiwgIkhfYWN0b3IiLCAiSl9hY3RvciIpDQp2YXJpYWJsZXNfcmVzdWx0YWRvIDwtIGMoInJhdGlvX21lZGlhIikNCnZhcmlhYmxlc19lc3RhZG8gPC0gZ3JlcCgiXnByb3BfZXN0YWRvXyIsIG5hbWVzKHRhYmxhX21hZXN0cmEpLCB2YWx1ZSA9IFRSVUUpDQp2YXJpYWJsZXNfYWN0b3IgPC0gZ3JlcCgiXnByb3BfYWN0b3JfIiwgbmFtZXModGFibGFfbWFlc3RyYSksIHZhbHVlID0gVFJVRSkNCg0KIyBDb21iaW5hciB0b2RhcyBsYXMgdmFyaWFibGVzIGRpc3BvbmlibGVzDQpwY2FfdmFycyA8LSBjKHZhcmlhYmxlc19kaXZlcnNpZGFkLCB2YXJpYWJsZXNfcmVzdWx0YWRvLCANCiAgICAgICAgICAgICAgdmFyaWFibGVzX2VzdGFkbywgdmFyaWFibGVzX2FjdG9yKQ0KDQojIEZpbHRyYXIgc29sbyBsYXMgdmFyaWFibGVzIHF1ZSByZWFsbWVudGUgZXhpc3RlbiBlbiBlbCBkYXRhc2V0DQpwY2FfdmFycyA8LSBwY2FfdmFyc1twY2FfdmFycyAlaW4lIG5hbWVzKHRhYmxhX21hZXN0cmEpXQ0KDQpjYXQoIlZhcmlhYmxlcyBzZWxlY2Npb25hZGFzIHBhcmEgUENBOlxuIikNCmZvcihpIGluIDE6bGVuZ3RoKHBjYV92YXJzKSkgew0KICBjYXQoc3ByaW50ZigiJTJkLiAlc1xuIiwgaSwgcGNhX3ZhcnNbaV0pKQ0KfQ0KY2F0KCJUb3RhbCBkZSB2YXJpYWJsZXM6IiwgbGVuZ3RoKHBjYV92YXJzKSwgIlxuIikNCg0KIyBQcmVwYXJhciBkYXRhc2V0IHBhcmEgUENBIGVsaW1pbmFuZG8gdmFsb3JlcyBmYWx0YW50ZXMNCnBjYV9kYXRhIDwtIHRhYmxhX21hZXN0cmEgJT4lIA0KICBzZWxlY3QoYWxsX29mKHBjYV92YXJzKSkgJT4lIA0KICBuYS5vbWl0KCkNCg0KIyBWZXJpZmljYXIgY2FsaWRhZCBkZSBsb3MgZGF0b3MNCmNhdCgiXG5DYWxpZGFkIGRlbCBkYXRhc2V0OlxuIikNCmNhdCgiLSBDYXNvcyBjb21wbGV0b3M6IiwgbnJvdyhwY2FfZGF0YSksICJjb211bmFzXG4iKQ0KY2F0KCItIFZhcmlhYmxlcyBpbmNsdWlkYXM6IiwgbmNvbChwY2FfZGF0YSksICJcbiIpDQpjYXQoIi0gQ2Fzb3MgZWxpbWluYWRvcyBwb3IgTkE6IiwgbnJvdyh0YWJsYV9tYWVzdHJhKSAtIG5yb3cocGNhX2RhdGEpLCAiXG4iKQ0KDQojIENyZWFyIG1hcGVvIGRlIHRpcG8gZGUgY29tdW5hIHNpIGV4aXN0ZQ0KaWYoIlRpcG9fQ29tdW5hIiAlaW4lIG5hbWVzKHRhYmxhX21hZXN0cmEpKSB7DQogIGluZGljZXNfdmFsaWRvcyA8LSBhcy5udW1lcmljKHJvd25hbWVzKHBjYV9kYXRhKSkNCiAgdGlwb19jb211bmEgPC0gdGFibGFfbWFlc3RyYSRUaXBvX0NvbXVuYVtpbmRpY2VzX3ZhbGlkb3NdDQogIGNhdCgiLSBBZ3J1cGFjacOzbiBwb3IgVGlwbyBkZSBDb211bmE6IERJU1BPTklCTEVcbiIpDQogIGNhdCgiLSBEaXN0cmlidWNpw7NuOiIsIHRhYmxlKHRpcG9fY29tdW5hKSwgIlxuIikNCn0gZWxzZSB7DQogIHRpcG9fY29tdW5hIDwtIE5VTEwNCiAgY2F0KCItIEFncnVwYWNpw7NuIHBvciBUaXBvIGRlIENvbXVuYTogTk8gRElTUE9OSUJMRVxuIikNCn0NCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgUEFTTyAyOiBNQVRSSVogREUgQ09WQVJJQU5aQVMgWSBBTsOBTElTSVMNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiPT09IFBBU08gMjogQU7DgUxJU0lTIENPTiBNQVRSSVogREUgQ09WQVJJQU5aQVMgPT09XG4iKQ0KDQojIDIuMSBDQUxDVUxBUiBNQVRSSVogREUgQ09WQVJJQU5aQVMNCm1hdHJpel9jb3YgPC0gY292KHBjYV9kYXRhKQ0KDQojIENyZWFyIHRhYmxhIGRlIG1hdHJpeiBkZSBjb3Zhcmlhbnphcw0KdGFibGFfY292IDwtIGthYmxlKHJvdW5kKG1hdHJpel9jb3YsIDQpLCANCiAgICAgICAgICAgICAgICAgICBmb3JtYXQgPSAiaHRtbCIsDQogICAgICAgICAgICAgICAgICAgY2FwdGlvbiA9ICJUYWJsYSBYLjE6IE1hdHJpeiBkZSBDb3ZhcmlhbnphcyBkZSBsYXMgVmFyaWFibGVzIE9yaWdpbmFsZXMiKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiLCAiY29uZGVuc2VkIiksDQogICAgICAgICAgICAgICAgZnVsbF93aWR0aCA9IEZBTFNFKSAlPiUNCiAgc2Nyb2xsX2JveCh3aWR0aCA9ICIxMDAlIiwgaGVpZ2h0ID0gIjQwMHB4IikgJT4lDQogIGZvb3Rub3RlKGdlbmVyYWwgPSAiTWF0cml6IHNpbcOpdHJpY2EgZG9uZGUgZWxlbWVudG9zIGRpYWdvbmFsZXMgcmVwcmVzZW50YW4gdmFyaWFuemFzIHkgb2ZmLWRpYWdvbmFsIHJlcHJlc2VudGFuIGNvdmFyaWFuemFzIiwNCiAgICAgICAgICAgZ2VuZXJhbF90aXRsZSA9ICJOb3RhOiIpDQoNCnRhYmxhX2Nvdg0KDQojIDIuMiBQQ0EgQ09OIE1BVFJJWiBERSBDT1ZBUklBTlpBUw0KcGNhX2NvdiA8LSBwcmNvbXAocGNhX2RhdGEsIHNjYWxlLiA9IEZBTFNFKQ0KDQojIDIuMyBDQUxDVUxBUiBFU1RBRMONU1RJQ0FTIFBBUkEgQ09WQVJJQU5aQVMNCnZhcmlhbnphX2NvdiA8LSAocGNhX2NvdiRzZGV2XjIgLyBzdW0ocGNhX2NvdiRzZGV2XjIpKSAqIDEwMA0KYXV0b3ZhbG9yZXNfY292IDwtIHBjYV9jb3Ykc2Rldl4yDQpudW1fdmFycyA8LSBuY29sKHBjYV9kYXRhKQ0KDQojIDIuNCBUQUJMQSBERSBBVVRPVkFMT1JFUyAtIENPVkFSSUFOWkFTDQp0YWJsYV9hdXRvdmFsb3Jlc19jb3YgPC0gZGF0YS5mcmFtZSgNCiAgQ29tcG9uZW50ZSA9IHBhc3RlMCgiUEMiLCAxOm51bV92YXJzKSwNCiAgQXV0b3ZhbG9yID0gcm91bmQoYXV0b3ZhbG9yZXNfY292LCA0KSwNCiAgRGVzdmlhY2lvbl9TdGQgPSByb3VuZChwY2FfY292JHNkZXYsIDQpLA0KICBWYXJpYW56YV9FeHBsaWNhZGEgPSByb3VuZCh2YXJpYW56YV9jb3YsIDQpLA0KICBWYXJpYW56YV9BY3VtdWxhZGEgPSByb3VuZChjdW1zdW0odmFyaWFuemFfY292KSwgNCksDQogIENyaXRlcmlvX0thaXNlciA9IGlmZWxzZShhdXRvdmFsb3Jlc19jb3YgPiAxLCAiU8ONIiwgIk5PIikNCikNCg0Ka2FibGVfYXV0b3ZhbF9jb3YgPC0ga2FibGUodGFibGFfYXV0b3ZhbG9yZXNfY292LCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgZm9ybWF0ID0gImh0bWwiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICBjYXB0aW9uID0gIlRhYmxhIFguMjogQW7DoWxpc2lzIGRlIENvbXBvbmVudGVzIFByaW5jaXBhbGVzIC0gTWF0cml6IGRlIENvdmFyaWFuemFzIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiwgImNvbmRlbnNlZCIpLCANCiAgICAgICAgICAgICAgICBmdWxsX3dpZHRoID0gRkFMU0UpICU+JQ0KICByb3dfc3BlYyh3aGljaChhdXRvdmFsb3Jlc19jb3YgPiAxKSwgYm9sZCA9IFRSVUUsIGNvbG9yID0gIndoaXRlIiwgYmFja2dyb3VuZCA9ICIjNENBRjUwIikgJT4lDQogIGZvb3Rub3RlKGdlbmVyYWwgPSBjKCJDcml0ZXJpbyBkZSBLYWlzZXI6IFJldGVuZXIgY29tcG9uZW50ZXMgY29uIGF1dG92YWxvcmVzID4gMSIsDQogICAgICAgICAgICAgICAgICAgICAgcGFzdGUoIkNvbXBvbmVudGVzIHJldGVuaWRvczoiLCBzdW0oYXV0b3ZhbG9yZXNfY292ID4gMSkpKSwNCiAgICAgICAgICAgZ2VuZXJhbF90aXRsZSA9ICJOb3RhOiIpDQoNCmthYmxlX2F1dG92YWxfY292DQoNCiMgMi41IE1BVFJJWiBERSBST1RBQ0nDk04gKExPQURJTkdTKSAtIENPVkFSSUFOWkFTDQpsb2FkaW5nc19jb3YgPC0gYXMuZGF0YS5mcmFtZShyb3VuZChwY2FfY292JHJvdGF0aW9uLCA0KSkNCg0Ka2FibGVfbG9hZGluZ3NfY292IDwtIGthYmxlKGxvYWRpbmdzX2NvdiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICBmb3JtYXQgPSAiaHRtbCIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICBjYXB0aW9uID0gIlRhYmxhIFguMzogTWF0cml6IGRlIFJvdGFjacOzbiAoTG9hZGluZ3MpIC0gUENBIGNvbiBDb3ZhcmlhbnphcyIpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiKSkgJT4lDQogIHNjcm9sbF9ib3god2lkdGggPSAiMTAwJSIsIGhlaWdodCA9ICI0MDBweCIpICU+JQ0KICBmb290bm90ZShnZW5lcmFsID0gIkNhcmdhcyBpbmRpY2FuIGxhIGNvbnRyaWJ1Y2nDs24gZGUgY2FkYSB2YXJpYWJsZSBvcmlnaW5hbCBhIGNhZGEgY29tcG9uZW50ZSBwcmluY2lwYWwiLA0KICAgICAgICAgICBnZW5lcmFsX3RpdGxlID0gIkludGVycHJldGFjacOzbjoiKQ0KDQprYWJsZV9sb2FkaW5nc19jb3YNCg0KIyAyLjYgSU5URVJQUkVUQUNJw5NOIERFIFJFU1VMVEFET1MgLSBDT1ZBUklBTlpBUw0KY2F0KCJcbi0tLSBJTlRFUlBSRVRBQ0nDk04gTUFUUklaIERFIENPVkFSSUFOWkFTIC0tLVxuIikNCmNhdCgiQ29tcG9uZW50ZXMgcXVlIGN1bXBsZW4gY3JpdGVyaW8gS2Fpc2VyICjOuyA+IDEpOiIsIHN1bShhdXRvdmFsb3Jlc19jb3YgPiAxKSwgIlxuIikNCmNhdCgiVmFyaWFuemEgZXhwbGljYWRhIHBvciBQQzE6Iiwgcm91bmQodmFyaWFuemFfY292WzFdLCAyKSwgIiVcbiIpDQpjYXQoIlZhcmlhbnphIGFjdW11bGFkYSBwcmltZXJvcyIsIHN1bShhdXRvdmFsb3Jlc19jb3YgPiAxKSwgImNvbXBvbmVudGVzOiIsIA0KICAgIHJvdW5kKHN1bSh2YXJpYW56YV9jb3ZbYXV0b3ZhbG9yZXNfY292ID4gMV0pLCAyKSwgIiVcbiIpDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIFBBU08gMzogTUFUUklaIERFIENPUlJFTEFDSU9ORVMgWSBBTsOBTElTSVMgIA0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbj09PSBQQVNPIDM6IEFOw4FMSVNJUyBDT04gTUFUUklaIERFIENPUlJFTEFDSU9ORVMgPT09XG4iKQ0KDQojIDMuMSBDQUxDVUxBUiBNQVRSSVogREUgQ09SUkVMQUNJT05FUw0KbWF0cml6X2NvciA8LSBjb3IocGNhX2RhdGEpDQoNCiMgRnVuY2nDs24gcGFyYSByZXNhbHRhciBjb3JyZWxhY2lvbmVzIGZ1ZXJ0ZXMNCnJlc2FsdGFyX2NvcnJlbGFjaW9uZXMgPC0gZnVuY3Rpb24obWF0cml6X2Nvcikgew0KICBtYXRfbnVtZXJpYyA8LSByb3VuZChtYXRyaXpfY29yLCA0KQ0KICBtYXRfZm9ybWF0dGVkIDwtIG1hdF9udW1lcmljICAjIENvcGlhIHBhcmEgbW9kaWZpY2FyDQogIA0KICAjIENyZWFyIG1hdHJpeiBkZSBzYWxpZGEgY29uIGZvcm1hdG8gSFRNTA0KICBmb3IoaSBpbiAxOm5yb3cobWF0X251bWVyaWMpKSB7DQogICAgZm9yKGogaW4gMTpuY29sKG1hdF9udW1lcmljKSkgew0KICAgICAgaWYoaSAhPSBqKSB7ICAjIE5vIHJlc2FsdGFyIGRpYWdvbmFsDQogICAgICAgIHZhbG9yX2FicyA8LSBhYnMobWF0X251bWVyaWNbaSwgal0pICAjIFVzYXIgbWF0cml6IG51bcOpcmljYSBvcmlnaW5hbA0KICAgICAgICB2YWxvcl9hY3R1YWwgPC0gbWF0X251bWVyaWNbaSwgal0gICAgICMgVmFsb3IgYWN0dWFsIG51bcOpcmljbw0KICAgICAgICANCiAgICAgICAgaWYodmFsb3JfYWJzID4gMC43KSB7DQogICAgICAgICAgIyBDb3JyZWxhY2nDs24gbXV5IGZ1ZXJ0ZQ0KICAgICAgICAgIGNvbG9yX2ZvbmRvIDwtIGlmZWxzZSh2YWxvcl9hY3R1YWwgPiAwLCAiI0ZGNkI2QiIsICIjNEVDREM0IikNCiAgICAgICAgICBtYXRfZm9ybWF0dGVkW2ksIGpdIDwtIGNlbGxfc3BlYyh2YWxvcl9hY3R1YWwsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBiYWNrZ3JvdW5kID0gY29sb3JfZm9uZG8sDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwgYm9sZCA9IFRSVUUpDQogICAgICAgIH0gZWxzZSBpZih2YWxvcl9hYnMgPiAwLjUpIHsNCiAgICAgICAgICAjIENvcnJlbGFjacOzbiBmdWVydGUNCiAgICAgICAgICBjb2xvcl9mb25kbyA8LSBpZmVsc2UodmFsb3JfYWN0dWFsID4gMCwgIiNGRkUwNjYiLCAiI0E4RTZDRiIpDQogICAgICAgICAgbWF0X2Zvcm1hdHRlZFtpLCBqXSA8LSBjZWxsX3NwZWModmFsb3JfYWN0dWFsLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYmFja2dyb3VuZCA9IGNvbG9yX2ZvbmRvLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2xvciA9ICJibGFjayIpDQogICAgICAgIH0NCiAgICAgIH0NCiAgICB9DQogIH0NCiAgcmV0dXJuKG1hdF9mb3JtYXR0ZWQpDQp9DQoNCiMgQ3JlYXIgdGFibGEgZGUgbWF0cml6IGRlIGNvcnJlbGFjaW9uZXMgY29uIHJlc2FsdGFkbw0KbWF0cml6X2Nvcl9mb3JtYXR0ZWQgPC0gcmVzYWx0YXJfY29ycmVsYWNpb25lcyhtYXRyaXpfY29yKQ0KDQp0YWJsYV9jb3IgPC0ga2FibGUobWF0cml6X2Nvcl9mb3JtYXR0ZWQsIA0KICAgICAgICAgICAgICAgICAgIGZvcm1hdCA9ICJodG1sIiwNCiAgICAgICAgICAgICAgICAgICBjYXB0aW9uID0gIlRhYmxhIFguNDogTWF0cml6IGRlIENvcnJlbGFjaW9uZXMgY29uIFJlc2FsdGFkbyBkZSBDb3JyZWxhY2lvbmVzIEZ1ZXJ0ZXMiLA0KICAgICAgICAgICAgICAgICAgIGVzY2FwZSA9IEZBTFNFKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiLCAiY29uZGVuc2VkIiksDQogICAgICAgICAgICAgICAgZnVsbF93aWR0aCA9IEZBTFNFKSAlPiUNCiAgc2Nyb2xsX2JveCh3aWR0aCA9ICIxMDAlIiwgaGVpZ2h0ID0gIjQwMHB4IikgJT4lDQogIGZvb3Rub3RlKGdlbmVyYWwgPSBjKCJSb2pvL05hcmFuamE6IENvcnJlbGFjaW9uZXMgcG9zaXRpdmFzIGZ1ZXJ0ZXMgKD4wLjUpIiwNCiAgICAgICAgICAgICAgICAgICAgICAiQXp1bC9WZXJkZTogQ29ycmVsYWNpb25lcyBuZWdhdGl2YXMgZnVlcnRlcyAoPC0wLjUpIiwNCiAgICAgICAgICAgICAgICAgICAgICAiQ29ycmVsYWNpb25lcyA+fDAuN3wgZW4gbmVncml0YSIpLA0KICAgICAgICAgICBnZW5lcmFsX3RpdGxlID0gIkxleWVuZGE6IikNCg0KdGFibGFfY29yDQoNCiMgMy4yIFBDQSBDT04gTUFUUklaIERFIENPUlJFTEFDSU9ORVMgKFZBUklBQkxFUyBFU1RBTkRBUklaQURBUykNCnBjYV9jb3IgPC0gcHJjb21wKHBjYV9kYXRhLCBzY2FsZS4gPSBUUlVFKQ0KDQojIDMuMyBDQUxDVUxBUiBFU1RBRMONU1RJQ0FTIFBBUkEgQ09SUkVMQUNJT05FUyAgDQp2YXJpYW56YV9jb3IgPC0gKHBjYV9jb3Ikc2Rldl4yIC8gc3VtKHBjYV9jb3Ikc2Rldl4yKSkgKiAxMDANCmF1dG92YWxvcmVzX2NvciA8LSBwY2FfY29yJHNkZXZeMg0KDQojIDMuNCBUQUJMQSBERSBBVVRPVkFMT1JFUyAtIENPUlJFTEFDSU9ORVMNCnRhYmxhX2F1dG92YWxvcmVzX2NvciA8LSBkYXRhLmZyYW1lKA0KICBDb21wb25lbnRlID0gcGFzdGUwKCJQQyIsIDE6bnVtX3ZhcnMpLA0KICBBdXRvdmFsb3IgPSByb3VuZChhdXRvdmFsb3Jlc19jb3IsIDQpLA0KICBEZXN2aWFjaW9uX1N0ZCA9IHJvdW5kKHBjYV9jb3Ikc2RldiwgNCksDQogIFZhcmlhbnphX0V4cGxpY2FkYSA9IHJvdW5kKHZhcmlhbnphX2NvciwgNCksDQogIFZhcmlhbnphX0FjdW11bGFkYSA9IHJvdW5kKGN1bXN1bSh2YXJpYW56YV9jb3IpLCA0KSwNCiAgQ3JpdGVyaW9fS2Fpc2VyID0gaWZlbHNlKGF1dG92YWxvcmVzX2NvciA+IDEsICJTw40iLCAiTk8iKQ0KKQ0KDQprYWJsZV9hdXRvdmFsX2NvciA8LSBrYWJsZSh0YWJsYV9hdXRvdmFsb3Jlc19jb3IsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICBmb3JtYXQgPSAiaHRtbCIsDQogICAgICAgICAgICAgICAgICAgICAgICAgIGNhcHRpb24gPSAiVGFibGEgWC41OiBBbsOhbGlzaXMgZGUgQ29tcG9uZW50ZXMgUHJpbmNpcGFsZXMgLSBNYXRyaXogZGUgQ29ycmVsYWNpb25lcyIpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiKSwgDQogICAgICAgICAgICAgICAgZnVsbF93aWR0aCA9IEZBTFNFKSAlPiUNCiAgcm93X3NwZWMod2hpY2goYXV0b3ZhbG9yZXNfY29yID4gMSksIGJvbGQgPSBUUlVFLCBjb2xvciA9ICJ3aGl0ZSIsIGJhY2tncm91bmQgPSAiIzJFODZBQiIpICU+JQ0KICBmb290bm90ZShnZW5lcmFsID0gYygiQ3JpdGVyaW8gZGUgS2Fpc2VyOiBSZXRlbmVyIGNvbXBvbmVudGVzIGNvbiBhdXRvdmFsb3JlcyA+IDEiLA0KICAgICAgICAgICAgICAgICAgICAgIHBhc3RlKCJDb21wb25lbnRlcyByZXRlbmlkb3M6Iiwgc3VtKGF1dG92YWxvcmVzX2NvciA+IDEpKSwNCiAgICAgICAgICAgICAgICAgICAgICAiTcOpdG9kbyByZWNvbWVuZGFkbyBwYXJhIHZhcmlhYmxlcyBjb24gZGlmZXJlbnRlcyBlc2NhbGFzIiksDQogICAgICAgICAgIGdlbmVyYWxfdGl0bGUgPSAiTm90YToiKQ0KDQprYWJsZV9hdXRvdmFsX2Nvcg0KDQojIDMuNSBNQVRSSVogREUgUk9UQUNJw5NOIChMT0FESU5HUykgLSBDT1JSRUxBQ0lPTkVTDQpsb2FkaW5nc19jb3IgPC0gYXMuZGF0YS5mcmFtZShyb3VuZChwY2FfY29yJHJvdGF0aW9uLCA0KSkNCg0Ka2FibGVfbG9hZGluZ3NfY29yIDwtIGthYmxlKGxvYWRpbmdzX2NvciwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICBmb3JtYXQgPSAiaHRtbCIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICBjYXB0aW9uID0gIlRhYmxhIFguNjogTWF0cml6IGRlIFJvdGFjacOzbiAoTG9hZGluZ3MpIC0gUENBIGNvbiBDb3JyZWxhY2lvbmVzIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiwgImNvbmRlbnNlZCIpKSAlPiUNCiAgc2Nyb2xsX2JveCh3aWR0aCA9ICIxMDAlIiwgaGVpZ2h0ID0gIjQwMHB4IikgJT4lDQogIGZvb3Rub3RlKGdlbmVyYWwgPSBjKCJWYXJpYWJsZXMgZXN0YW5kYXJpemFkYXMgKG1lZGlhPTAsIGRlc3ZpYWNpw7NuPTEpIiwNCiAgICAgICAgICAgICAgICAgICAgICAiQ2FyZ2FzIG11ZXN0cmFuIGNvcnJlbGFjacOzbiBlbnRyZSB2YXJpYWJsZXMgeSBjb21wb25lbnRlcyIpLA0KICAgICAgICAgICBnZW5lcmFsX3RpdGxlID0gIkludGVycHJldGFjacOzbjoiKQ0KDQprYWJsZV9sb2FkaW5nc19jb3INCg0KIyAzLjYgSU5URVJQUkVUQUNJw5NOIERFIFJFU1VMVEFET1MgLSBDT1JSRUxBQ0lPTkVTDQpjYXQoIlxuLS0tIElOVEVSUFJFVEFDScOTTiBNQVRSSVogREUgQ09SUkVMQUNJT05FUyAtLS1cbiIpDQpjYXQoIkNvbXBvbmVudGVzIHF1ZSBjdW1wbGVuIGNyaXRlcmlvIEthaXNlciAozrsgPiAxKToiLCBzdW0oYXV0b3ZhbG9yZXNfY29yID4gMSksICJcbiIpDQpjYXQoIlZhcmlhbnphIGV4cGxpY2FkYSBwb3IgUEMxOiIsIHJvdW5kKHZhcmlhbnphX2NvclsxXSwgMiksICIlXG4iKQ0KY2F0KCJWYXJpYW56YSBleHBsaWNhZGEgcG9yIFBDMjoiLCByb3VuZCh2YXJpYW56YV9jb3JbMl0sIDIpLCAiJVxuIikNCmNhdCgiVmFyaWFuemEgYWN1bXVsYWRhIHByaW1lcm9zIiwgc3VtKGF1dG92YWxvcmVzX2NvciA+IDEpLCAiY29tcG9uZW50ZXM6IiwgDQogICAgcm91bmQoc3VtKHZhcmlhbnphX2NvclthdXRvdmFsb3Jlc19jb3IgPiAxXSksIDIpLCAiJVxuIikNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgUEFTTyA0OiBGT1JNVUxBQ0nDk04gREUgSElQw5NURVNJUyBLQUlTRVINCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiXG49PT0gUEFTTyA0OiBGT1JNVUxBQ0nDk04gREUgSElQw5NURVNJUyBTRUfDmk4gQ1JJVEVSSU8gS0FJU0VSID09PVxuIikNCg0KIyBDcmVhciB0YWJsYSBkZSBoaXDDs3Rlc2lzDQpoaXBvdGVzaXNfa2Fpc2VyIDwtIGRhdGEuZnJhbWUoDQogIEFzcGVjdG8gPSBjKCJIaXDDs3Rlc2lzIE51bGEgKEjigoApIiwgDQogICAgICAgICAgICAgICJIaXDDs3Rlc2lzIEFsdGVybmF0aXZhIChI4oKBKSIsIA0KICAgICAgICAgICAgICAiUmVnbGEgZGUgRGVjaXNpw7NuIiwNCiAgICAgICAgICAgICAgIk5pdmVsIGRlIFNpZ25pZmljYW5jaWEiLA0KICAgICAgICAgICAgICAiQXBsaWNhY2nDs24gQ292YXJpYW56YXMiLA0KICAgICAgICAgICAgICAiQXBsaWNhY2nDs24gQ29ycmVsYWNpb25lcyIpLA0KICBEZXNjcmlwY2nDs24gPSBjKA0KICAgICJFbCBhdXRvdmFsb3IgZGVsIGNvbXBvbmVudGUgcHJpbmNpcGFsIGVzIOKJpCAxIChubyBleHBsaWNhIG3DoXMgdmFyaWFuemEgcXVlIHZhcmlhYmxlIGluZGl2aWR1YWwpIiwNCiAgICAiRWwgYXV0b3ZhbG9yIGRlbCBjb21wb25lbnRlIHByaW5jaXBhbCBlcyA+IDEgKGV4cGxpY2EgbcOhcyB2YXJpYW56YSBxdWUgdmFyaWFibGUgaW5kaXZpZHVhbCkiLA0KICAgICJSZWNoYXphciBI4oKAIGN1YW5kbyDOuyA+IDEsIGluZGljYW5kbyBjb21wb25lbnRlIHNpZ25pZmljYXRpdm8iLA0KICAgICLOsSA9IDAuMDUgKGNyaXRlcmlvIGVzdMOhbmRhciBkZSBLYWlzZXIsIDE5NjApIiwNCiAgICBwYXN0ZShzdW0oYXV0b3ZhbG9yZXNfY292ID4gMSksICJjb21wb25lbnRlcyByZXRlbmlkb3MiKSwNCiAgICBwYXN0ZShzdW0oYXV0b3ZhbG9yZXNfY29yID4gMSksICJjb21wb25lbnRlcyByZXRlbmlkb3MiKQ0KICApDQopDQoNCmthYmxlX2hpcG90ZXNpcyA8LSBrYWJsZShoaXBvdGVzaXNfa2Fpc2VyLCANCiAgICAgICAgICAgICAgICAgICAgICAgIGZvcm1hdCA9ICJodG1sIiwNCiAgICAgICAgICAgICAgICAgICAgICAgIGNhcHRpb24gPSAiVGFibGEgWC43OiBGb3JtdWxhY2nDs24gZGUgSGlww7N0ZXNpcyBwYXJhIENyaXRlcmlvIGRlIEthaXNlciIpICU+JQ0KICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIpLCBmdWxsX3dpZHRoID0gRkFMU0UpICU+JQ0KICByb3dfc3BlYyg1OjYsIGJvbGQgPSBUUlVFLCBiYWNrZ3JvdW5kID0gIiNFOEY0RjgiKSAlPiUNCiAgZm9vdG5vdGUoZ2VuZXJhbCA9ICJSZWZlcmVuY2lhOiBLYWlzZXIsIEguRi4gKDE5NjApLiBUaGUgYXBwbGljYXRpb24gb2YgZWxlY3Ryb25pYyBjb21wdXRlcnMgdG8gZmFjdG9yIGFuYWx5c2lzLiIsDQogICAgICAgICAgIGdlbmVyYWxfdGl0bGUgPSAiRnVlbnRlOiIpDQoNCmthYmxlX2hpcG90ZXNpcw0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBQQVNPIDU6IFRBQkxBIENPTVBBUkFUSVZBIEZJTkFMDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjYXQoIlxuPT09IFBBU08gNTogQ09NUEFSQUNJw5NOIE1FVE9ET0zDk0dJQ0EgRklOQUwgPT09XG4iKQ0KDQojIENyZWFyIHRhYmxhIGNvbXBhcmF0aXZhIGRlIGFtYm9zIG3DqXRvZG9zDQpjb21wYXJhY2lvbl9tZXRvZG9zIDwtIGRhdGEuZnJhbWUoDQogIEFzcGVjdG8gPSBjKCJNYXRyaXogdXRpbGl6YWRhIiwgDQogICAgICAgICAgICAgICJWYXJpYWJsZXMgZXN0YW5kYXJpemFkYXMiLA0KICAgICAgICAgICAgICAiQ29tcG9uZW50ZXMgcmV0ZW5pZG9zICjOuyA+IDEpIiwNCiAgICAgICAgICAgICAgIlZhcmlhbnphIFBDMSAoJSkiLA0KICAgICAgICAgICAgICAiVmFyaWFuemEgUEMyICglKSIsIA0KICAgICAgICAgICAgICAiVmFyaWFuemEgdG90YWwgZXhwbGljYWRhICglKSIsDQogICAgICAgICAgICAgICJEaXN0cmlidWNpw7NuIGRlIHZhcmlhbnphIiwNCiAgICAgICAgICAgICAgIkludGVycHJldGFiaWxpZGFkIiwNCiAgICAgICAgICAgICAgIlJlY29tZW5kYWNpw7NuIiksDQogIENvdmFyaWFuemFzID0gYygiQ292YXJpYW56YXMiLA0KICAgICAgICAgICAgICAgICAiTm8iLA0KICAgICAgICAgICAgICAgICBzdW0oYXV0b3ZhbG9yZXNfY292ID4gMSksDQogICAgICAgICAgICAgICAgIHJvdW5kKHZhcmlhbnphX2NvdlsxXSwgMiksDQogICAgICAgICAgICAgICAgIGlmZWxzZShsZW5ndGgodmFyaWFuemFfY292KSA+PSAyLCByb3VuZCh2YXJpYW56YV9jb3ZbMl0sIDIpLCAiTi9BIiksDQogICAgICAgICAgICAgICAgIHJvdW5kKHN1bSh2YXJpYW56YV9jb3ZbYXV0b3ZhbG9yZXNfY292ID4gMV0pLCAyKSwNCiAgICAgICAgICAgICAgICAgIkRlc2JhbGFuY2VhZGEiLA0KICAgICAgICAgICAgICAgICAiTGltaXRhZGEiLA0KICAgICAgICAgICAgICAgICAiTm8gcmVjb21lbmRhZG8iKSwNCiAgQ29ycmVsYWNpb25lcyA9IGMoIkNvcnJlbGFjaW9uZXMiLA0KICAgICAgICAgICAgICAgICAgICJTw60iLA0KICAgICAgICAgICAgICAgICAgIHN1bShhdXRvdmFsb3Jlc19jb3IgPiAxKSwNCiAgICAgICAgICAgICAgICAgICByb3VuZCh2YXJpYW56YV9jb3JbMV0sIDIpLA0KICAgICAgICAgICAgICAgICAgIHJvdW5kKHZhcmlhbnphX2NvclsyXSwgMiksDQogICAgICAgICAgICAgICAgICAgcm91bmQoc3VtKHZhcmlhbnphX2NvclthdXRvdmFsb3Jlc19jb3IgPiAxXSksIDIpLA0KICAgICAgICAgICAgICAgICAgICJFcXVpbGlicmFkYSIsDQogICAgICAgICAgICAgICAgICAgIkFsdGEiLA0KICAgICAgICAgICAgICAgICAgICJSZWNvbWVuZGFkbyDinJMiKQ0KKQ0KDQprYWJsZV9jb21wYXJhY2lvbiA8LSBrYWJsZShjb21wYXJhY2lvbl9tZXRvZG9zLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgZm9ybWF0ID0gImh0bWwiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICBjYXB0aW9uID0gIlRhYmxhIFguODogQ29tcGFyYWNpw7NuIE1ldG9kb2zDs2dpY2EgLSBDb3ZhcmlhbnphcyB2cyBDb3JyZWxhY2lvbmVzIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImhvdmVyIiksIGZ1bGxfd2lkdGggPSBGQUxTRSkgJT4lDQogIGNvbHVtbl9zcGVjKDMsIGJvbGQgPSBUUlVFLCBiYWNrZ3JvdW5kID0gIiNDOEU2QzkiKSAlPiUNCiAgcm93X3NwZWMoOSwgYm9sZCA9IFRSVUUsIGNvbG9yID0gIndoaXRlIiwgYmFja2dyb3VuZCA9ICIjNENBRjUwIikgJT4lDQogIGZvb3Rub3RlKGdlbmVyYWwgPSAiU2UgcmVjb21pZW5kYSB1c2FyIG1hdHJpeiBkZSBjb3JyZWxhY2lvbmVzIHBvciBtYXlvciBlcXVpbGlicmlvIGUgaW50ZXJwcmV0YWJpbGlkYWQiLA0KICAgICAgICAgICBnZW5lcmFsX3RpdGxlID0gIkNvbmNsdXNpw7NuOiIpDQoNCmthYmxlX2NvbXBhcmFjaW9uDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIFBBU08gNjogVklTVUFMSVpBQ0nDk04gREUgTUFUUklaIERFIENPUlJFTEFDSU9ORVMNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiXG49PT0gUEFTTyA2OiBWSVNVQUxJWkFDScOTTiBERSBDT1JSRUxBQ0lPTkVTID09PVxuIikNCg0KIyBDcmVhciBjb3JycGxvdA0KY29ycnBsb3QobWF0cml6X2NvciwgDQogICAgICAgICBtZXRob2QgPSAiY29sb3IiLA0KICAgICAgICAgdHlwZSA9ICJ1cHBlciIsIA0KICAgICAgICAgb3JkZXIgPSAiaGNsdXN0IiwgDQogICAgICAgICB0bC5jb2wgPSAiYmxhY2siLCANCiAgICAgICAgIHRsLnNydCA9IDQ1LA0KICAgICAgICAgdGwuY2V4ID0gMC44LA0KICAgICAgICAgYWRkQ29lZi5jb2wgPSAiYmxhY2siLA0KICAgICAgICAgbnVtYmVyLmNleCA9IDAuNiwNCiAgICAgICAgIHRpdGxlID0gIk1hdHJpeiBkZSBDb3JyZWxhY2lvbmVzIC0gVmFyaWFibGVzIFBDQVxuUHJveWVjdG9zIEFDQSBFc3RhZG8gTcOpcmlkYSIsDQogICAgICAgICBtYXIgPSBjKDAsMCw0LDApKQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBQQVNPIDc6IE1FTlNBSkUgRklOQUwgWSBSRUNPTUVOREFDSU9ORVMNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiXG49PT0gQ09OQ0xVU0lPTkVTIE1FVE9ET0zDk0dJQ0FTID09PVxuIikNCmNhdCgiMS4gSlVTVElGSUNBQ0nDk046XG4iKQ0KY2F0KCIgICAtIE1hdHJpeiBkZSBjb3JyZWxhY2lvbmVzIGV2aXRhIHNlc2dvIHBvciBkaWZlcmVuY2lhcyBkZSBlc2NhbGFcbiIpDQpjYXQoIiAgIC0gRGlzdHJpYnVjacOzbiBtw6FzIGVxdWlsaWJyYWRhIGRlIGxhIHZhcmlhbnphIGV4cGxpY2FkYVxuIikNCmNhdCgiICAgLSBNYXlvciBpbnRlcnByZXRhYmlsaWRhZCBkZSBsb3MgY29tcG9uZW50ZXNcblxuIikNCg0KY2F0KCIyLiBSRVNVTFRBRE9TIENMQVZFOlxuIikNCmNhdCgiICAgLSBDb21wb25lbnRlcyByZXRlbmlkb3MgKGNvcnJlbGFjaW9uZXMpOiIsIHN1bShhdXRvdmFsb3Jlc19jb3IgPiAxKSwgIlxuIikNCmNhdCgiICAgLSBWYXJpYW56YSB0b3RhbCBleHBsaWNhZGE6Iiwgcm91bmQoc3VtKHZhcmlhbnphX2NvclthdXRvdmFsb3Jlc19jb3IgPiAxXSksIDEpLCAiJVxuIikNCmNhdCgiICAgLSBQcmltZXIgY29tcG9uZW50ZSBleHBsaWNhOiIsIHJvdW5kKHZhcmlhbnphX2NvclsxXSwgMSksICIlIChiYWxhbmNlYWRvKVxuXG4iKQ0KDQpjYXQoIjMuIFBBUkEgTEEgTU9OT0dSQUbDjUE6XG4iKQ0KY2F0KCIgICAtIFVzYXIgYW7DoWxpc2lzIGNvbiBtYXRyaXogZGUgY29ycmVsYWNpb25lcyBjb21vIHByaW5jaXBhbFxuIikNCmNhdCgiICAgLSBJbmNsdWlyIGNvbXBhcmFjacOzbiBtZXRvZG9sw7NnaWNhIGNvbW8ganVzdGlmaWNhY2nDs25cbiIpDQpjYXQoIiAgIC0gSW50ZXJwcmV0YXIgY29tcG9uZW50ZXMgYmFzw6FuZG9zZSBlbiBsb2FkaW5ncyBkZSBjb3JyZWxhY2lvbmVzXG5cbiIpDQoNCmNhdCgiPT09PT09PSBBTsOBTElTSVMgUENBIEVTVFJVQ1RVUkFETyBDT01QTEVUQURPID09PT09PT1cbiIpDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEFOw4FMSVNJUyBDT01QTEVUTyBERSBDT01QT05FTlRFUyBQUklOQ0lQQUxFUyAoUENBKQ0KIyBQUk9ZRUNUT1MgQUNBIC0gRVNUQURPIE3DiVJJREENCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCiMgQ29uZmlndXJhciB0ZW1hIHZpc3VhbCBjb25zaXN0ZW50ZSBwYXJhIHRvZGFzIGxhcyB2aXN1YWxpemFjaW9uZXMNCnRlbWFfYWNhZGVtaWNvIDwtIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDE0LCBoanVzdCA9IDAuNSksDQogICAgcGxvdC5zdWJ0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTEsIGNvbG9yID0gImdyYXk0MCIsIGhqdXN0ID0gMC41KSwNCiAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxMiksDQogICAgbGVnZW5kLnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIpLA0KICAgIHBhbmVsLmdyaWQubWFqb3IgPSBlbGVtZW50X2xpbmUoY29sb3IgPSAiZ3JheTkwIiwgbGluZXdpZHRoID0gMC41KSwNCiAgICBwYW5lbC5ncmlkLm1pbm9yID0gZWxlbWVudF9ibGFuaygpDQogICkNCg0KIyBQYWxldGEgZGUgY29sb3JlcyBwYXJhIHRpcG9zIGRlIGNvbXVuYSAoc2kgYXBsaWNhKQ0KY29sb3Jlc19jb211bmEgPC0gYygNCiAgIlVyYmFuYSIgPSAiIzJFODZBQiIsICAgICAgICAgICAjIEF6dWwgLSBkZW5zaWRhZCB1cmJhbmENCiAgIlJ1cmFsIiA9ICIjQTIzQjcyIiwgICAgICAgICAgICAjIE1hZ2VudGEgLSBydXJhbGlkYWQNCiAgIk1peHRhIiA9ICIjRjE4RjAxIiwgICAgICAgICAgICAjIE5hcmFuamEgLSBjb21iaW5hY2nDs24NCiAgIkVuIGNvbnN0cnVjY2nDs24iID0gIiNDNzNFMUQiLCAgICMgUm9qbyAtIGRlc2Fycm9sbG8NCiAgIk5vIGVzcGVjaWZpY2FkbyIgPSAiIzdEODQ5MSIgICAgIyBHcmlzIC0gc2luIGNsYXNpZmljYXINCikNCg0KY2F0KCI9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09XG4iKQ0KY2F0KCJJTklDSUFORE8gQU7DgUxJU0lTIERFIENPTVBPTkVOVEVTIFBSSU5DSVBBTEVTIChQQ0EpIFJPQlVTVE9cbiIpDQpjYXQoIj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQoNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgRkFTRSAyOiBBTsOBTElTSVMgRVhQTE9SQVRPUklPIFBSRS1QQ0ENCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiXG4tLS0gRkFTRSAyOiBBTsOBTElTSVMgRVhQTE9SQVRPUklPIC0tLVxuIikNCg0KIyBFc3RhZMOtc3RpY2FzIGRlc2NyaXB0aXZhcyBiw6FzaWNhcw0KY2F0KCJFc3RhZMOtc3RpY2FzIGRlc2NyaXB0aXZhcyBkZSBsYXMgdmFyaWFibGVzOlxuIikNCmRlc2Nfc3RhdHMgPC0gcGNhX2RhdGEgJT4lDQogIHN1bW1hcmlzZV9hbGwobGlzdCgNCiAgICBNZWRpYSA9IH4gcm91bmQobWVhbiguLCBuYS5ybSA9IFRSVUUpLCAzKSwNCiAgICBEZXN2aWFjaW9uRXN0ID0gfiByb3VuZChzZCguLCBuYS5ybSA9IFRSVUUpLCAzKSwNCiAgICBNaW5pbW8gPSB+IHJvdW5kKG1pbiguLCBuYS5ybSA9IFRSVUUpLCAzKSwNCiAgICBNYXhpbW8gPSB+IHJvdW5kKG1heCguLCBuYS5ybSA9IFRSVUUpLCAzKQ0KICApKSAlPiUNCiAgcGl2b3RfbG9uZ2VyKGV2ZXJ5dGhpbmcoKSwgbmFtZXNfdG8gPSAidmFyaWFibGVfc3RhdCIsIHZhbHVlc190byA9ICJ2YWx1ZSIpICU+JQ0KICBzZXBhcmF0ZSh2YXJpYWJsZV9zdGF0LCBpbnRvID0gYygidmFyaWFibGUiLCAic3RhdGlzdGljIiksIHNlcCA9ICJfKD89W15fXSokKSIpICU+JQ0KICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gc3RhdGlzdGljLCB2YWx1ZXNfZnJvbSA9IHZhbHVlKQ0KDQpwcmludChkZXNjX3N0YXRzKQ0KDQojIE1hdHJpeiBkZSBjb3JyZWxhY2lvbmVzIHkgc3UgYW7DoWxpc2lzDQpjb3JfbWF0cml4IDwtIGNvcihwY2FfZGF0YSwgdXNlID0gImNvbXBsZXRlLm9icyIpDQoNCiMgSWRlbnRpZmljYXIgY29ycmVsYWNpb25lcyBzaWduaWZpY2F0aXZhcw0KY2F0KCJcbkFuw6FsaXNpcyBkZSBjb3JyZWxhY2lvbmVzOlxuIikNCmNvcl9mbGF0IDwtIGNvcl9tYXRyaXggJT4lDQogIGFzLmRhdGEuZnJhbWUoKSAlPiUNCiAgbXV0YXRlKHZhcjEgPSByb3duYW1lcyguKSkgJT4lDQogIHBpdm90X2xvbmdlcigtdmFyMSwgbmFtZXNfdG8gPSAidmFyMiIsIHZhbHVlc190byA9ICJjb3JyZWxhdGlvbiIpICU+JQ0KICBmaWx0ZXIodmFyMSAhPSB2YXIyLCBhYnMoY29ycmVsYXRpb24pID4gMC4zKSAlPiUNCiAgYXJyYW5nZShkZXNjKGFicyhjb3JyZWxhdGlvbikpKQ0KDQpjYXQoIkNvcnJlbGFjaW9uZXMgbW9kZXJhZGFzIGEgZnVlcnRlcyAofHJ8ID4gMC4zKToiLCBucm93KGNvcl9mbGF0KSwgIlxuIikNCmlmKG5yb3coY29yX2ZsYXQpID4gMCkgew0KICBjYXQoIkxhcyA1IGNvcnJlbGFjaW9uZXMgbcOhcyBmdWVydGVzOlxuIikNCiAgcHJpbnQoaGVhZChjb3JfZmxhdCwgNSkpDQp9DQoNCiMgVmlzdWFsaXphY2nDs24gZGUgbWF0cml6IGRlIGNvcnJlbGFjaW9uZXMNCmNvcnJwbG90KGNvcl9tYXRyaXgsIA0KICAgICAgICAgbWV0aG9kID0gImNvbG9yIiwNCiAgICAgICAgIHR5cGUgPSAidXBwZXIiLCANCiAgICAgICAgIG9yZGVyID0gImhjbHVzdCIsIA0KICAgICAgICAgdGwuY29sID0gImJsYWNrIiwgDQogICAgICAgICB0bC5zcnQgPSA0NSwNCiAgICAgICAgIHRsLmNleCA9IDAuOCwNCiAgICAgICAgIGFkZENvZWYuY29sID0gImJsYWNrIiwNCiAgICAgICAgIG51bWJlci5jZXggPSAwLjcsDQogICAgICAgICB0aXRsZSA9ICJNYXRyaXogZGUgQ29ycmVsYWNpb25lcyAtIFZhcmlhYmxlcyBQQ0FcblByb3llY3RvcyBBQ0EgRXN0YWRvIE3DqXJpZGEiLA0KICAgICAgICAgbWFyID0gYygwLDAsMywwKSkNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgRkFTRSAzOiBFVkFMVUFDScOTTiBERSBBREVDVUFDScOTTiBQQVJBIFBDQQ0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbi0tLSBGQVNFIDM6IEVWQUxVQUNJw5NOIERFIEFERUNVQUNJw5NOIC0tLVxuIikNCg0KIyBUZXN0IGRlIEthaXNlci1NZXllci1PbGtpbiAoS01PKQ0KIyBGdW5jacOzbiBwYXJhIGNhbGN1bGFyIEtNTyBtYW51YWxtZW50ZQ0KY2FsY3VsYXJfa21vIDwtIGZ1bmN0aW9uKFIpIHsNCiAgIyBSIGVzIGxhIG1hdHJpeiBkZSBjb3JyZWxhY2lvbmVzDQogIFJfaW52IDwtIHNvbHZlKFIpDQogIFJfcGFyY2lhbCA8LSAtY292MmNvcihSX2ludikNCiAgZGlhZyhSX3BhcmNpYWwpIDwtIDANCiAgDQogIHN1bV9yMiA8LSBzdW0oUl4yKSAtIHN1bShkaWFnKFIpXjIpDQogIHN1bV9wYXJjaWFsMiA8LSBzdW0oUl9wYXJjaWFsXjIpDQogIA0KICBrbW8gPC0gc3VtX3IyIC8gKHN1bV9yMiArIHN1bV9wYXJjaWFsMikNCiAgcmV0dXJuKGttbykNCn0NCg0Ka21vX3ZhbHVlIDwtIGNhbGN1bGFyX2ttbyhjb3JfbWF0cml4KQ0Ka21vX2ludGVycHJldGF0aW9uIDwtIGNhc2Vfd2hlbigNCiAga21vX3ZhbHVlID49IDAuOSB+ICJFeGNlbGVudGUiLA0KICBrbW9fdmFsdWUgPj0gMC44IH4gIk11eSBidWVubyIsIA0KICBrbW9fdmFsdWUgPj0gMC43IH4gIkJ1ZW5vIiwNCiAga21vX3ZhbHVlID49IDAuNiB+ICJNZWRpb2NyZSIsDQogIFRSVUUgfiAiSW5hZGVjdWFkbyINCikNCg0KY2F0KCLDjW5kaWNlIEthaXNlci1NZXllci1PbGtpbiAoS01PKToiLCByb3VuZChrbW9fdmFsdWUsIDMpLCAiKCIsIGttb19pbnRlcnByZXRhdGlvbiwgIilcbiIpDQoNCiMgVGVzdCBkZSBlc2ZlcmljaWRhZCBkZSBCYXJ0bGV0dA0KbiA8LSBucm93KHBjYV9kYXRhKQ0KcCA8LSBuY29sKHBjYV9kYXRhKQ0KYmFydGxldHRfY2hpMiA8LSAtKG4gLSAxIC0gKDIqcCArIDUpLzYpICogbG9nKGRldChjb3JfbWF0cml4KSkNCmJhcnRsZXR0X2RmIDwtIHAgKiAocCAtIDEpIC8gMg0KYmFydGxldHRfcCA8LSAxIC0gcGNoaXNxKGJhcnRsZXR0X2NoaTIsIGJhcnRsZXR0X2RmKQ0KDQpjYXQoIlRlc3QgZGUgRXNmZXJpY2lkYWQgZGUgQmFydGxldHQ6XG4iKQ0KY2F0KCItIENoaS1jdWFkcmFkbzoiLCByb3VuZChiYXJ0bGV0dF9jaGkyLCAyKSwgIlxuIikNCmNhdCgiLSBHcmFkb3MgZGUgbGliZXJ0YWQ6IiwgYmFydGxldHRfZGYsICJcbiIpDQpjYXQoIi0gcC12YWxvcjoiLCBmb3JtYXQucHZhbChiYXJ0bGV0dF9wLCBkaWdpdHMgPSAzKSwgIlxuIikNCmNhdCgiLSBJbnRlcnByZXRhY2nDs246IiwgaWZlbHNlKGJhcnRsZXR0X3AgPCAwLjA1LCAiUmVjaGF6YW1vcyBIMDogbGFzIHZhcmlhYmxlcyBlc3TDoW4gY29ycmVsYWNpb25hZGFzIiwgIk5vIHJlY2hhemFtb3MgSDAiKSwgIlxuIikNCg0KIyBEZWNpZGlyIHNpIHByb2NlZGVyIGNvbiBQQ0ENCmlmKGttb192YWx1ZSA8IDAuNikgew0KICB3YXJuaW5nKCJBRFZFUlRFTkNJQTogS01PIDwgMC42IHN1Z2llcmUgcXVlIFBDQSBwdWVkZSBubyBzZXIgYXByb3BpYWRvIikNCn0NCmlmKGJhcnRsZXR0X3AgPiAwLjA1KSB7DQogIHdhcm5pbmcoIkFEVkVSVEVOQ0lBOiBUZXN0IGRlIEJhcnRsZXR0IG5vIHNpZ25pZmljYXRpdm8gLSB2YXJpYWJsZXMgcHVlZGVuIGVzdGFyIGluY29ycmVsYWNpb25hZGFzIikNCn0NCg0KY2F0KCJERUNJU0nDk046IFByb2NlZGVyIGNvbiBQQ0EgLSIsIA0KICAgIGlmZWxzZShrbW9fdmFsdWUgPj0gMC42ICYmIGJhcnRsZXR0X3AgPCAwLjA1LCAiQVBST1BJQURPIiwgIkNPTiBQUkVDQVVDScOTTiIpLCAiXG4iKQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGQVNFIDQ6IEVKRUNVQ0nDk04gREVMIFBDQQ0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbi0tLSBGQVNFIDQ6IEVKRUNVQ0nDk04gREVMIFBDQSAtLS1cbiIpDQoNCiMgQ29tcGFyYWNpw7NuIG1ldG9kb2zDs2dpY2E6IENvdmFyaWFuemFzIHZzIENvcnJlbGFjaW9uZXMNCmNhdCgiQ29tcGFyYWNpw7NuIG1ldG9kb2zDs2dpY2FcbiIpDQoNCiMgUENBIGNvbiBtYXRyaXogZGUgY292YXJpYW56YXMgKHZhcmlhYmxlcyBzaW4gZXN0YW5kYXJpemFyKQ0KcGNhX2NvdiA8LSBwcmNvbXAocGNhX2RhdGEsIHNjYWxlLiA9IEZBTFNFKQ0KY2F0KCJQcmltZXJhcyAzIGRlc3ZpYWNpb25lcyBlc3TDoW5kYXIgKENvdmFyaWFuemFzKToiLCByb3VuZChwY2FfY292JHNkZXZbMTozXSwgNCksICJcbiIpDQoNCiMgUENBIGNvbiBtYXRyaXogZGUgY29ycmVsYWNpb25lcyAodmFyaWFibGVzIGVzdGFuZGFyaXphZGFzKSAtIFJFQ09NRU5EQURPDQpwY2FfY29yIDwtIHByY29tcChwY2FfZGF0YSwgc2NhbGUuID0gVFJVRSkNCmNhdCgiUHJpbWVyYXMgMyBkZXN2aWFjaW9uZXMgZXN0w6FuZGFyIChDb3JyZWxhY2lvbmVzKToiLCByb3VuZChwY2FfY29yJHNkZXZbMTozXSwgNCksICJcbiIpDQoNCiMgRXhwbGljYWNpw7NuIGRlIHBvciBxdcOpIHVzYXIgY29ycmVsYWNpb25lcw0KY2F0KCJcbkpVU1RJRklDQUNJw5NOIE1FVE9ET0zDk0dJQ0E6XG4iKQ0KY2F0KCJTZSB1dGlsaXphIFBDQSBiYXNhZG8gZW4gbWF0cml6IGRlIGNvcnJlbGFjaW9uZXMgcG9ycXVlOlxuIikNCmNhdCgiMS4gTGFzIHZhcmlhYmxlcyB0aWVuZW4gZGlmZXJlbnRlcyB1bmlkYWRlcyB5IGVzY2FsYXNcbiIpDQpjYXQoIjIuIEV2aXRhIGVsIHNlc2dvIGhhY2lhIHZhcmlhYmxlcyBjb24gbWF5b3IgdmFyaWFuemFcbiIpDQpjYXQoIjMuIFBlcm1pdGUgaW50ZXJwcmV0YWNpw7NuIG3DoXMgZXF1aWxpYnJhZGEgZGUgdG9kb3MgbG9zIGNvbXBvbmVudGVzXG4iKQ0KDQojIFVzYXIgUENBIGRlIGNvcnJlbGFjaW9uZXMgcGFyYSBlbCByZXN0byBkZWwgYW7DoWxpc2lzDQpyZXMucGNhIDwtIHBjYV9jb3INCg0KIyBBbsOhbGlzaXMgZGUgdmFyaWFuemEgZXhwbGljYWRhDQplaWcudmFsIDwtIGdldF9laWdlbnZhbHVlKHJlcy5wY2EpDQpjYXQoIlxuVmFyaWFuemEgZXhwbGljYWRhIHBvciBjb21wb25lbnRlOlxuIikNCnByaW50KGVpZy52YWxbMTptaW4oOCwgbnJvdyhlaWcudmFsKSksIF0pDQoNCiMgRGV0ZXJtaW5hciBuw7ptZXJvIMOzcHRpbW8gZGUgY29tcG9uZW50ZXMgdXNhbmRvIG3Dumx0aXBsZXMgY3JpdGVyaW9zDQpudW1fa2Fpc2VyIDwtIHN1bShlaWcudmFsJGVpZ2VudmFsdWUgPiAxKQ0KbnVtXzgwX3BjdCA8LSB3aGljaChlaWcudmFsJGN1bXVsYXRpdmUudmFyaWFuY2UucGVyY2VudCA+PSA4MClbMV0NCg0KY2F0KCJcbkNyaXRlcmlvcyBwYXJhIHNlbGVjY2nDs24gZGUgY29tcG9uZW50ZXM6XG4iKQ0KY2F0KCItIENyaXRlcmlvIEthaXNlciAoZWlnZW52YWx1ZSA+IDEpOiIsIG51bV9rYWlzZXIsICJjb21wb25lbnRlc1xuIikNCmNhdCgiLSBDcml0ZXJpbyA4MCUgdmFyaWFuemE6IiwgbnVtXzgwX3BjdCwgImNvbXBvbmVudGVzXG4iKQ0KDQojIFNlbGVjY2lvbmFyIG7Dum1lcm8gZmluYWwgZGUgY29tcG9uZW50ZXMgKHVzYXIgY3JpdGVyaW8gS2Fpc2VyIGNvbW8gcHJpbWFyaW8pDQpudW1fY29tcF9maW5hbCA8LSBudW1fa2Fpc2VyDQpjYXQoIi0gU0VMRUNDScOTTiBGSU5BTDoiLCBudW1fY29tcF9maW5hbCwgImNvbXBvbmVudGVzIHByaW5jaXBhbGVzXG4iKQ0KY2F0KCItIFZhcmlhbnphIGV4cGxpY2FkYSB0b3RhbDoiLCByb3VuZChlaWcudmFsJGN1bXVsYXRpdmUudmFyaWFuY2UucGVyY2VudFtudW1fY29tcF9maW5hbF0sIDIpLCAiJVxuIikNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgRkFTRSA1OiBWSVNVQUxJWkFDSU9ORVMgQUNBRMOJTUlDQVMNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiXG4tLS0gRkFTRSA1OiBDUkVBQ0nDk04gREUgVklTVUFMSVpBQ0lPTkVTIC0tLVxuIikNCg0KIyAxLiBTY3JlZSBQbG90IGNvbiBjcml0ZXJpbyBLYWlzZXINCnAxX3NjcmVlIDwtIGZ2aXpfc2NyZWVwbG90KHJlcy5wY2EsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICBuY3AgPSBtaW4oMTAsIG5yb3coZWlnLnZhbCkpLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgY2hvaWNlID0gImVpZ2VudmFsdWUiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJTY3JlZSBQbG90IC0gQ3JpdGVyaW8gZGUgU2VsZWNjacOzbiBkZSBDb21wb25lbnRlcyIsDQogICAgICAgICAgICAgICAgICAgICAgICAgIHhsYWIgPSAiQ29tcG9uZW50ZXMgUHJpbmNpcGFsZXMiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICB5bGFiID0gIkVpZ2VudmFsdWUiKSArDQogIGdlb21faGxpbmUoeWludGVyY2VwdCA9IDEsIGxpbmV0eXBlID0gImRhc2hlZCIsIGNvbG9yID0gInJlZCIsIGxpbmV3aWR0aCA9IDEuMikgKw0KICBnZW9tX3BvaW50KHNpemUgPSAzLCBjb2xvciA9ICIjMkU4NkFCIikgKw0KICBhbm5vdGF0ZSgidGV4dCIsIHggPSAzLCB5ID0gMS4zLCANCiAgICAgICAgICAgbGFiZWwgPSAiQ3JpdGVyaW8gS2Fpc2VyICjOuyA+IDEpIiwgDQogICAgICAgICAgIGNvbG9yID0gInJlZCIsIGZvbnRmYWNlID0gImJvbGQiLCBzaXplID0gNCkgKw0KICB0ZW1hX2FjYWRlbWljbyArDQogIGxhYnMoc3VidGl0bGUgPSAiTWV0b2RvbG9nw61hOiBNYXRyaXogZGUgQ29ycmVsYWNpb25lcyAoVmFyaWFibGVzIEVzdGFuZGFyaXphZGFzKSIpDQoNCnByaW50KHAxX3NjcmVlKQ0KDQojIDIuIFBvcmNlbnRhamUgZGUgdmFyaWFuemEgZXhwbGljYWRhDQpwMl92YXJpYW5jZSA8LSBmdml6X3NjcmVlcGxvdChyZXMucGNhLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbmNwID0gbWluKDEwLCBucm93KGVpZy52YWwpKSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNob2ljZSA9ICJ2YXJpYW5jZSIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIlBvcmNlbnRhamUgZGUgVmFyaWFuemEgRXhwbGljYWRhIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgeGxhYiA9ICJDb21wb25lbnRlcyBQcmluY2lwYWxlcyIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHlsYWIgPSAiUG9yY2VudGFqZSBkZSBWYXJpYW56YSAoJSkiKSArDQogIGdlb21fbGluZShjb2xvciA9ICIjRTdCODAwIiwgbGluZXdpZHRoID0gMS41LCBncm91cCA9IDEpICsNCiAgZ2VvbV9wb2ludChzaXplID0gMywgY29sb3IgPSAiI0ZDNEUwNyIpICsNCiAgdGVtYV9hY2FkZW1pY28NCg0KcHJpbnQocDJfdmFyaWFuY2UpDQoNCiMgMy4gQ8OtcmN1bG8gZGUgY29ycmVsYWNpb25lcyAoQ29udHJpYnVjacOzbiBkZSB2YXJpYWJsZXMpDQpwM19jb250cmliIDwtIGZ2aXpfcGNhX3ZhcihyZXMucGNhLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgY29sLnZhciA9ICJjb250cmliIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgZ3JhZGllbnQuY29scyA9IGMoIiMwMEFGQkIiLCAiI0U3QjgwMCIsICIjRkM0RTA3IiksDQogICAgICAgICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIkPDrXJjdWxvIGRlIENvcnJlbGFjaW9uZXMgLSBDb250cmlidWNpw7NuIGRlIFZhcmlhYmxlcyIsDQogICAgICAgICAgICAgICAgICAgICAgICAgIHJlcGVsID0gVFJVRSkgKw0KICB0ZW1hX2FjYWRlbWljbyArDQogIGxhYnMoDQogICAgeCA9IHBhc3RlMCgiUEMxICgiLCByb3VuZChlaWcudmFsJHZhcmlhbmNlLnBlcmNlbnRbMV0sIDEpLCAiJSkiKSwNCiAgICB5ID0gcGFzdGUwKCJQQzIgKCIsIHJvdW5kKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsyXSwgMSksICIlKSIpLA0KICAgIGNvbG9yID0gIkNvbnRyaWIgKCUpIg0KICApICsNCiAgY29vcmRfZml4ZWQoKQ0KDQpwcmludChwM19jb250cmliKQ0KDQojIDQuIEPDrXJjdWxvIGRlIGNvcnJlbGFjaW9uZXMgKENhbGlkYWQgZGUgcmVwcmVzZW50YWNpw7NuKQ0KcDRfY29zMiA8LSBmdml6X3BjYV92YXIocmVzLnBjYSwgDQogICAgICAgICAgICAgICAgICAgICAgIGNvbC52YXIgPSAiY29zMiIsDQogICAgICAgICAgICAgICAgICAgICAgIGdyYWRpZW50LmNvbHMgPSBjKCIjRkZGRkZGIiwgIiMyRTg2QUIiLCAiIzFCMzY1RCIpLA0KICAgICAgICAgICAgICAgICAgICAgICB0aXRsZSA9ICJDYWxpZGFkIGRlIFJlcHJlc2VudGFjacOzbiBkZSBWYXJpYWJsZXMgKENvc8KyKSIsDQogICAgICAgICAgICAgICAgICAgICAgIHJlcGVsID0gVFJVRSkgKw0KICB0ZW1hX2FjYWRlbWljbyArDQogIGxhYnMoDQogICAgeCA9IHBhc3RlMCgiUEMxICgiLCByb3VuZChlaWcudmFsJHZhcmlhbmNlLnBlcmNlbnRbMV0sIDEpLCAiJSkiKSwNCiAgICB5ID0gcGFzdGUwKCJQQzIgKCIsIHJvdW5kKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsyXSwgMSksICIlKSIpLA0KICAgIGNvbG9yID0gIkNvc8KyIg0KICApICsNCiAgY29vcmRfZml4ZWQoKSArDQogICMgQ8OtcmN1bG8gdW5pdGFyaW8gZGUgcmVmZXJlbmNpYQ0KICBhbm5vdGF0ZSgicGF0aCIsDQogICAgICAgICAgIHggPSBjb3Moc2VxKDAsIDIqcGksIGxlbmd0aC5vdXQgPSAxMDApKSwNCiAgICAgICAgICAgeSA9IHNpbihzZXEoMCwgMipwaSwgbGVuZ3RoLm91dCA9IDEwMCkpLA0KICAgICAgICAgICBjb2xvciA9ICJncmF5NzAiLCBsaW5ldHlwZSA9ICJkYXNoZWQiLCBsaW5ld2lkdGggPSAwLjgpDQoNCnByaW50KHA0X2NvczIpDQoNCiMgNS4gQmlwbG90ICh2YXJpYWJsZXMgKyBpbmRpdmlkdW9zKQ0KaWYoIWlzLm51bGwodGlwb19jb211bmEpKSB7DQogIHA1X2JpcGxvdCA8LSBmdml6X3BjYV9iaXBsb3QocmVzLnBjYSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBnZW9tLmluZCA9ICJwb2ludCIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBwb2ludHNpemUgPSAyLjUsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhbHBoYS5pbmQgPSAwLjcsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBjb2wudmFyID0gImJsYWNrIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFscGhhLnZhciA9IDAuOCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHJlcGVsID0gVFJVRSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxhYmVsc2l6ZSA9IDMuNSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGhhYmlsbGFnZSA9IHRpcG9fY29tdW5hLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWRkRWxsaXBzZXMgPSBUUlVFLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGVsbGlwc2UubGV2ZWwgPSAwLjk1LA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgZWxsaXBzZS5hbHBoYSA9IDAuMSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHRpdGxlID0gIkJpcGxvdCBQQ0EgLSBDb211bmFzIHBvciBUaXBvIikgKw0KICAgIHNjYWxlX2NvbG9yX21hbnVhbCh2YWx1ZXMgPSBjb2xvcmVzX2NvbXVuYSwgbmFtZSA9ICJUaXBvIENvbXVuYSIpICsNCiAgICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjb2xvcmVzX2NvbXVuYSwgbmFtZSA9ICJUaXBvIENvbXVuYSIpICsNCiAgICB0ZW1hX2FjYWRlbWljbyArDQogICAgbGFicygNCiAgICAgIHggPSBwYXN0ZTAoIlBDMSAoIiwgcm91bmQoZWlnLnZhbCR2YXJpYW5jZS5wZXJjZW50WzFdLCAxKSwgIiUpIiksDQogICAgICB5ID0gcGFzdGUwKCJQQzIgKCIsIHJvdW5kKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsyXSwgMSksICIlKSIpDQogICAgKSArDQogICAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gImJvdHRvbSIpICsNCiAgICBndWlkZXMoY29sb3IgPSBndWlkZV9sZWdlbmQob3ZlcnJpZGUuYWVzID0gbGlzdChzaXplID0gNCkpKQ0KfSBlbHNlIHsNCiAgcDVfYmlwbG90IDwtIGZ2aXpfcGNhX2JpcGxvdChyZXMucGNhLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGdlb20uaW5kID0gInBvaW50IiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbC52YXIgPSAiYmxhY2siLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWxwaGEuaW5kID0gMC42LA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcmVwZWwgPSBUUlVFLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiQmlwbG90IFBDQSAtIFZhcmlhYmxlcyB5IENvbXVuYXMiKSArDQogICAgdGVtYV9hY2FkZW1pY28gKw0KICAgIGxhYnMoDQogICAgICB4ID0gcGFzdGUwKCJQQzEgKCIsIHJvdW5kKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsxXSwgMSksICIlKSIpLA0KICAgICAgeSA9IHBhc3RlMCgiUEMyICgiLCByb3VuZChlaWcudmFsJHZhcmlhbmNlLnBlcmNlbnRbMl0sIDEpLCAiJSkiKQ0KICAgICkNCn0NCg0KcHJpbnQocDVfYmlwbG90KQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGQVNFIDY6IEFOw4FMSVNJUyBERSBDTFVTVEVSUyBST0JVU1RPDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjYXQoIlxuLS0tIEZBU0UgNjogQU7DgUxJU0lTIERFIENMVVNURVJTIC0tLVxuIikNCg0KIyBQcmVwYXJhciBkYXRvcyBwYXJhIGNsdXN0ZXJpbmcgKHVzYXIgY29tcG9uZW50ZXMgcHJpbmNpcGFsZXMpDQpwY2Ffc2NvcmVzIDwtIHJlcy5wY2EkeFssIDE6bWluKG51bV9jb21wX2ZpbmFsLCA0KV0NCg0KIyBNw4lUT0RPIDE6IERldGVybWluYXIgbsO6bWVybyDDs3B0aW1vIHVzYW5kbyBtw7psdGlwbGVzIGNyaXRlcmlvcw0Kc2V0LnNlZWQoMTIzKQ0KDQojIENyaXRlcmlvIDE6IE3DqXRvZG8gZGVsIENvZG8gKFdpdGhpbiBTdW0gb2YgU3F1YXJlcykNCndzcyA8LSBzYXBwbHkoMTo4LCBmdW5jdGlvbihrKSB7DQogIGttZWFucyhwY2Ffc2NvcmVzLCBrLCBuc3RhcnQgPSAyNSwgaXRlci5tYXggPSAxMDApJHRvdC53aXRoaW5zcw0KfSkNCg0KIyBDcml0ZXJpbyAyOiBDb2VmaWNpZW50ZSBkZSBTaWx1ZXRhIHByb21lZGlvDQphdmdfc2lsIDwtIHNhcHBseSgyOjgsIGZ1bmN0aW9uKGspIHsNCiAga21fdGVtcCA8LSBrbWVhbnMocGNhX3Njb3JlcywgaywgbnN0YXJ0ID0gMjUpDQogIHNpbF90ZW1wIDwtIHNpbGhvdWV0dGUoa21fdGVtcCRjbHVzdGVyLCBkaXN0KHBjYV9zY29yZXMpKQ0KICBtZWFuKHNpbF90ZW1wWywgM10pDQp9KQ0KDQojIENyaXRlcmlvIDM6IEdhcCBTdGF0aXN0aWMNCmdhcF9zdGF0IDwtIGNsdXNHYXAocGNhX3Njb3JlcywgRlVOID0ga21lYW5zLCBuc3RhcnQgPSAyNSwgSy5tYXggPSA4LCBCID0gNTApDQoNCiMgVmlzdWFsaXphciBtw6l0b2RvcyBkZSBzZWxlY2Npw7NuDQpwX2VsYm93IDwtIGRhdGEuZnJhbWUoayA9IDE6OCwgd3NzID0gd3NzKSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gaywgeSA9IHdzcykpICsNCiAgZ2VvbV9saW5lKGxpbmV3aWR0aCA9IDEuMiwgY29sb3IgPSAiIzJFODZBQiIpICsNCiAgZ2VvbV9wb2ludChzaXplID0gMywgY29sb3IgPSAiI0ZDNEUwNyIpICsNCiAgbGFicyh0aXRsZSA9ICJNw6l0b2RvIGRlbCBDb2RvIiwNCiAgICAgICB4ID0gIk7Dum1lcm8gZGUgQ2x1c3RlcnMgKGspIiwgDQogICAgICAgeSA9ICJXU1MgVG90YWwiKSArDQogIHRlbWFfYWNhZGVtaWNvICsNCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IDE6OCkNCg0KcF9zaWxob3VldHRlIDwtIGRhdGEuZnJhbWUoayA9IDI6OCwgYXZnX3NpbCA9IGF2Z19zaWwpICU+JQ0KICBnZ3Bsb3QoYWVzKHggPSBrLCB5ID0gYXZnX3NpbCkpICsNCiAgZ2VvbV9saW5lKGxpbmV3aWR0aCA9IDEuMiwgY29sb3IgPSAiI0U3QjgwMCIpICsNCiAgZ2VvbV9wb2ludChzaXplID0gMywgY29sb3IgPSAiI0ZDNEUwNyIpICsNCiAgbGFicyh0aXRsZSA9ICJNw6l0b2RvIGRlIGxhIFNpbHVldGEiLA0KICAgICAgIHggPSAiTsO6bWVybyBkZSBDbHVzdGVycyAoaykiLCANCiAgICAgICB5ID0gIkNvZWZpY2llbnRlIGRlIFNpbHVldGEgUHJvbWVkaW8iKSArDQogIHRlbWFfYWNhZGVtaWNvICsNCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IDI6OCkNCg0KcF9nYXAgPC0gZnZpel9nYXBfc3RhdChnYXBfc3RhdCkgKw0KICBsYWJzKHRpdGxlID0gIkdhcCBTdGF0aXN0aWMiKSArDQogIHRlbWFfYWNhZGVtaWNvDQoNCiMgQ29tYmluYXIgZ3LDoWZpY29zIGRlIHNlbGVjY2nDs24NCmdyaWQuYXJyYW5nZShwX2VsYm93LCBwX3NpbGhvdWV0dGUsIHBfZ2FwLCANCiAgICAgICAgICAgICBuY29sID0gMywgDQogICAgICAgICAgICAgdG9wID0gdGV4dEdyb2IoIk3DqXRvZG9zIGRlIFNlbGVjY2nDs24gZGVsIE7Dum1lcm8gw5NwdGltbyBkZSBDbHVzdGVycyIsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgZ3AgPSBncGFyKGZvbnRzaXplID0gMTYsIGZvbnRmYWNlID0gImJvbGQiKSkpDQoNCiMgRGV0ZXJtaW5hciBuw7ptZXJvIMOzcHRpbW8NCmtfZWxib3cgPC0gd2hpY2gubWluKGRpZmYoZGlmZih3c3MpKSkgKyAxDQprX3NpbGhvdWV0dGUgPC0gd2hpY2gubWF4KGF2Z19zaWwpICsgMQ0Ka19nYXAgPC0gbWF4U0UoZ2FwX3N0YXQkVGFiWywgImdhcCJdLCBnYXBfc3RhdCRUYWJbLCAiU0Uuc2ltIl0pDQoNCmNhdCgiUmVzdWx0YWRvcyBkZSBtw6l0b2RvcyBkZSBzZWxlY2Npw7NuOlxuIikNCmNhdCgiLSBNw6l0b2RvIGRlbCBDb2RvOiIsIGtfZWxib3csICJjbHVzdGVyc1xuIikNCmNhdCgiLSBNw6l0b2RvIFNpbGhvdWV0dGU6Iiwga19zaWxob3VldHRlLCAiY2x1c3RlcnNcbiIpDQpjYXQoIi0gR2FwIFN0YXRpc3RpYzoiLCBrX2dhcCwgImNsdXN0ZXJzXG4iKQ0KDQojIFNlbGVjY2lvbmFyIG7Dum1lcm8gZmluYWwgKHVzYXIgc2lsaG91ZXR0ZSBjb21vIGNyaXRlcmlvIHByaW5jaXBhbCkNCm51bV9jbHVzdGVycyA8LSBrX3NpbGhvdWV0dGUNCmNhdCgiLSBTRUxFQ0NJw5NOIEZJTkFMOiIsIG51bV9jbHVzdGVycywgImNsdXN0ZXJzXG4iKQ0KDQojIE3DiVRPRE8gMjogRWplY3V0YXIgY2x1c3RlcmluZyBrLW1lYW5zIGRlZmluaXRpdm8NCmttX2ZpbmFsIDwtIGttZWFucyhwY2Ffc2NvcmVzLCBjZW50ZXJzID0gbnVtX2NsdXN0ZXJzLCBuc3RhcnQgPSA1MCwgaXRlci5tYXggPSAxMDApDQoNCiMgRXZhbHVhciBjYWxpZGFkIGRlbCBjbHVzdGVyaW5nDQpiZXR3ZWVuX3NzX3BjdCA8LSByb3VuZChrbV9maW5hbCRiZXR3ZWVuc3MgLyBrbV9maW5hbCR0b3RzcyAqIDEwMCwgMikNCnNpbF9maW5hbCA8LSBzaWxob3VldHRlKGttX2ZpbmFsJGNsdXN0ZXIsIGRpc3QocGNhX3Njb3JlcykpDQpzaWxfYXZnX2ZpbmFsIDwtIHJvdW5kKG1lYW4oc2lsX2ZpbmFsWywgM10pLCAzKQ0KDQpjYXQoIlxuQ2FsaWRhZCBkZWwgY2x1c3RlcmluZzpcbiIpDQpjYXQoIi0gVmFyaWFuemEgZXhwbGljYWRhIGVudHJlIGNsdXN0ZXJzOiIsIGJldHdlZW5fc3NfcGN0LCAiJVxuIikNCmNhdCgiLSBDb2VmaWNpZW50ZSBkZSBzaWx1ZXRhIHByb21lZGlvOiIsIHNpbF9hdmdfZmluYWwsICJcbiIpDQpjYXQoIi0gSW50ZXJwcmV0YWNpw7NuIHNpbHVldGE6IiwgDQogICAgY2FzZV93aGVuKA0KICAgICAgc2lsX2F2Z19maW5hbCA+IDAuNyB+ICJFc3RydWN0dXJhIGZ1ZXJ0ZSIsDQogICAgICBzaWxfYXZnX2ZpbmFsID4gMC41IH4gIkVzdHJ1Y3R1cmEgbW9kZXJhZGEiLA0KICAgICAgc2lsX2F2Z19maW5hbCA+IDAuMjUgfiAiRXN0cnVjdHVyYSBkw6liaWwiLA0KICAgICAgVFJVRSB+ICJTaW4gZXN0cnVjdHVyYSBjbGFyYSINCiAgICApLCAiXG4iKQ0KDQojIEFncmVnYXIgY2x1c3RlcnMgYWwgZGF0YXNldCBvcmlnaW5hbA0KaW5kaWNlc192YWxpZG9zIDwtIGFzLm51bWVyaWMocm93bmFtZXMocGNhX2RhdGEpKQ0KdGFibGFfbWFlc3RyYSRjbHVzdGVyX3BjYSA8LSBOQQ0KdGFibGFfbWFlc3RyYSRjbHVzdGVyX3BjYVtpbmRpY2VzX3ZhbGlkb3NdIDwtIGFzLmZhY3RvcihrbV9maW5hbCRjbHVzdGVyKQ0KDQojIE3DiVRPRE8gMzogVmlzdWFsaXphY2lvbmVzIGRlIGNsdXN0ZXJzDQpjYXQoIlxuQ3JlYW5kbyB2aXN1YWxpemFjaW9uZXMgZGUgY2x1c3RlcnMuLi5cbiIpDQoNCiMgR3LDoWZpY28gcHJpbmNpcGFsIGRlIGNsdXN0ZXJzDQpwX2NsdXN0ZXJzIDwtIGZ2aXpfY2x1c3RlcihrbV9maW5hbCwgDQogICAgICAgICAgICAgICAgICAgICAgICAgIGRhdGEgPSBwY2Ffc2NvcmVzWywgMToyXSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgIGdlb20gPSAicG9pbnQiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICBwb2ludHNpemUgPSAyLjUsDQogICAgICAgICAgICAgICAgICAgICAgICAgIGVsbGlwc2UudHlwZSA9ICJjb252ZXgiLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgcGFsZXR0ZSA9IGMoIiNFMzFBMUMiLCAiIzFGNzhCNCIsICIjMzNBMDJDIiwgIiNGRjdGMDAiLCAiIzZBM0Q5QSIpWzE6bnVtX2NsdXN0ZXJzXSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgZWxsaXBzZS5hbHBoYSA9IDAuMiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgdGl0bGUgPSAiQ2x1c3RlcnMgZGUgQ29tdW5hcyBlbiBFc3BhY2lvIFBDQSIpICsNCiAgdGVtYV9hY2FkZW1pY28gKw0KICBsYWJzKA0KICAgIHggPSBwYXN0ZTAoIlBDMSAoIiwgcm91bmQoZWlnLnZhbCR2YXJpYW5jZS5wZXJjZW50WzFdLCAxKSwgIiUpIiksDQogICAgeSA9IHBhc3RlMCgiUEMyICgiLCByb3VuZChlaWcudmFsJHZhcmlhbmNlLnBlcmNlbnRbMl0sIDEpLCAiJSkiKSwNCiAgICBjb2xvciA9ICJDbHVzdGVyIiwgZmlsbCA9ICJDbHVzdGVyIg0KICApDQoNCnByaW50KHBfY2x1c3RlcnMpDQoNCiMgQW7DoWxpc2lzIGRlIHNpbHVldGEgZGV0YWxsYWRvDQpwX3NpbF9kZXRhaWwgPC0gZnZpel9zaWxob3VldHRlKHNpbF9maW5hbCwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgcGFsZXR0ZSA9IGMoIiNFMzFBMUMiLCAiIzFGNzhCNCIsICIjMzNBMDJDIiwgIiNGRjdGMDAiLCAiIzZBM0Q5QSIpWzE6bnVtX2NsdXN0ZXJzXSkgKw0KICBsYWJzKHRpdGxlID0gIkFuw6FsaXNpcyBkZSBTaWx1ZXRhIHBvciBDbHVzdGVyIiwNCiAgICAgICBzdWJ0aXRsZSA9IHBhc3RlKCJDb2VmaWNpZW50ZSBwcm9tZWRpbzoiLCBzaWxfYXZnX2ZpbmFsKSkgKw0KICB0ZW1hX2FjYWRlbWljbw0KDQpwcmludChwX3NpbF9kZXRhaWwpDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEZBU0UgNzogSU5URVJQUkVUQUNJw5NOIFkgQ0FSQUNURVJJWkFDScOTTg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbi0tLSBGQVNFIDc6IENBUkFDVEVSSVpBQ0nDk04gREUgQ0xVU1RFUlMgLS0tXG4iKQ0KDQojIEFuw6FsaXNpcyBlc3RhZMOtc3RpY28gcG9yIGNsdXN0ZXINCmNsdXN0ZXJfc3RhdHMgPC0gdGFibGFfbWFlc3RyYSAlPiUNCiAgZmlsdGVyKCFpcy5uYShjbHVzdGVyX3BjYSkpICU+JQ0KICBncm91cF9ieShjbHVzdGVyX3BjYSkgJT4lDQogIHN1bW1hcmlzZSgNCiAgICBuX2NvbXVuYXMgPSBuKCksDQogICAgYWNyb3NzKGFueV9vZihwY2FfdmFycyksIA0KICAgICAgICAgICBsaXN0KG1lZGlhID0gfiByb3VuZChtZWFuKC54LCBuYS5ybSA9IFRSVUUpLCAzKSwNCiAgICAgICAgICAgICAgICBtZWRpYW5hID0gfiByb3VuZChtZWRpYW4oLngsIG5hLnJtID0gVFJVRSksIDMpLA0KICAgICAgICAgICAgICAgIGRlc3Zfc3RkID0gfiByb3VuZChzZCgueCwgbmEucm0gPSBUUlVFKSwgMykpLCANCiAgICAgICAgICAgLm5hbWVzID0gInsuY29sfV97LmZufSIpLA0KICAgIC5ncm91cHMgPSAiZHJvcCINCiAgKQ0KDQojIE1vc3RyYXIgY2FyYWN0ZXJpemFjacOzbiBiw6FzaWNhDQpjbHVzdGVyX2Jhc2ljbyA8LSB0YWJsYV9tYWVzdHJhICU+JQ0KICBmaWx0ZXIoIWlzLm5hKGNsdXN0ZXJfcGNhKSkgJT4lDQogIGdyb3VwX2J5KGNsdXN0ZXJfcGNhKSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIG5fY29tdW5hcyA9IG4oKSwNCiAgICBhY3Jvc3MoYW55X29mKGMoIm5fcHJveWVjdG9zIiwgIkhfY2ZnIiwgIkhfYWN0b3IiLCAicmF0aW9fbWVkaWEiKSksIA0KICAgICAgICAgICB+IHJvdW5kKG1lYW4oLngsIG5hLnJtID0gVFJVRSksIDMpLCAubmFtZXMgPSAicHJvbWVkaW9fey5jb2x9IiksDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApDQoNCmNhdCgiQ2FyYWN0ZXJpemFjacOzbiBiw6FzaWNhIHBvciBjbHVzdGVyOlxuIikNCnByaW50KGNsdXN0ZXJfYmFzaWNvKQ0KDQojIEFuw6FsaXNpcyBkZSBzY29yZXMgUENBIHBvciBjbHVzdGVyDQpwY2FfcG9yX2NsdXN0ZXIgPC0gZGF0YS5mcmFtZSgNCiAgY2x1c3RlciA9IGttX2ZpbmFsJGNsdXN0ZXIsDQogIFBDMSA9IHBjYV9zY29yZXNbLCAxXSwNCiAgUEMyID0gcGNhX3Njb3Jlc1ssIDJdDQopICU+JQ0KICBncm91cF9ieShjbHVzdGVyKSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIG4gPSBuKCksDQogICAgUEMxX3Byb21lZGlvID0gcm91bmQobWVhbihQQzEpLCAzKSwNCiAgICBQQzJfcHJvbWVkaW8gPSByb3VuZChtZWFuKFBDMiksIDMpLA0KICAgIC5ncm91cHMgPSAiZHJvcCINCiAgKQ0KDQpjYXQoIlxuUG9zaWNpb25hbWllbnRvIGRlIGNsdXN0ZXJzIGVuIGVzcGFjaW8gUENBOlxuIikNCnByaW50KHBjYV9wb3JfY2x1c3RlcikNCg0KIyBJbnRlcnByZXRhY2nDs24gY29uY2VwdHVhbA0KY2F0KCJcbklOVEVSUFJFVEFDScOTTiBERSBDTFVTVEVSUzpcbiIpDQpmb3IoaSBpbiAxOm51bV9jbHVzdGVycykgew0KICBjbHVzdGVyX2RhdGEgPC0gdGFibGFfbWFlc3RyYSAlPiUgZmlsdGVyKGNsdXN0ZXJfcGNhID09IGkpDQogIG5fY29tdW5hcyA8LSBucm93KGNsdXN0ZXJfZGF0YSkNCiAgcGMxX3BvcyA8LSBwY2FfcG9yX2NsdXN0ZXIkUEMxX3Byb21lZGlvW2ldDQogIHBjMl9wb3MgPC0gcGNhX3Bvcl9jbHVzdGVyJFBDMl9wcm9tZWRpb1tpXQ0KICANCiAgY2F0KCJcbi0tLSBDTFVTVEVSIiwgaSwgIi0tLVxuIikNCiAgY2F0KCJUYW1hw7FvOiIsIG5fY29tdW5hcywgImNvbXVuYXMgKCIsIA0KICAgICAgcm91bmQobl9jb211bmFzL3N1bSghaXMubmEodGFibGFfbWFlc3RyYSRjbHVzdGVyX3BjYSkpKjEwMCwgMSksICIlKVxuIikNCiAgY2F0KCJQb3NpY2nDs24gUEMxOiIsIHBjMV9wb3MsICIoIiwgDQogICAgICBpZmVsc2UocGMxX3BvcyA+IDAsICJ2YWxvcmVzIGFsdG9zIiwgInZhbG9yZXMgYmFqb3MiKSwgIilcbiIpDQogIGNhdCgiUG9zaWNpw7NuIFBDMjoiLCBwYzJfcG9zLCAiKCIsIA0KICAgICAgaWZlbHNlKHBjMl9wb3MgPiAwLCAidmFsb3JlcyBhbHRvcyIsICJ2YWxvcmVzIGJham9zIiksICIpXG4iKQ0KICANCiAgIyBDYXJhY3RlcsOtc3RpY2FzIGRpc3RpbnRpdmFzIChhZGFwdGFyIHNlZ8O6biB2YXJpYWJsZXMgZGlzcG9uaWJsZXMpDQogIGlmKCJuX3Byb3llY3RvcyIgJWluJSBuYW1lcyhjbHVzdGVyX2RhdGEpKSB7DQogICAgcHJval9wcm9tIDwtIHJvdW5kKG1lYW4oY2x1c3Rlcl9kYXRhJG5fcHJveWVjdG9zLCBuYS5ybSA9IFRSVUUpLCAyKQ0KICAgIGNhdCgiUHJvbWVkaW8gcHJveWVjdG9zOiIsIHByb2pfcHJvbSwgIlxuIikNCiAgfQ0KfQ0KDQojIFJlbGFjacOzbiBjb24gdGlwbyBkZSBjb211bmEgKHNpIGRpc3BvbmlibGUpDQppZighaXMubnVsbCh0aXBvX2NvbXVuYSkpIHsNCiAgY2F0KCJcbi0tLSBSRUxBQ0nDk04gQ09OIFRJUE8gREUgQ09NVU5BIC0tLVxuIikNCiAgDQogIHRhYmxhX2NydXphZGEgPC0gdGFibGFfbWFlc3RyYSAlPiUNCiAgICBmaWx0ZXIoIWlzLm5hKGNsdXN0ZXJfcGNhKSwgIWlzLm5hKFRpcG9fQ29tdW5hKSkgJT4lDQogICAgY291bnQoVGlwb19Db211bmEsIGNsdXN0ZXJfcGNhKSAlPiUNCiAgICBwaXZvdF93aWRlcihuYW1lc19mcm9tID0gY2x1c3Rlcl9wY2EsIHZhbHVlc19mcm9tID0gbiwgDQogICAgICAgICAgICAgICAgdmFsdWVzX2ZpbGwgPSAwLCBuYW1lc19wcmVmaXggPSAiQ2x1c3Rlcl8iKQ0KICANCiAgcHJpbnQodGFibGFfY3J1emFkYSkNCiAgDQogICMgVGVzdCBkZSBpbmRlcGVuZGVuY2lhDQogIGlmKG5yb3codGFibGFfY3J1emFkYSkgPiAxKSB7DQogICAgY2hpX3Rlc3QgPC0gY2hpc3EudGVzdChhcy5tYXRyaXgodGFibGFfY3J1emFkYVssIC0xXSkpDQogICAgY2F0KCJcblRlc3QgQ2hpLWN1YWRyYWRvOlxuIikNCiAgICBjYXQoIkNoacKyID0iLCByb3VuZChjaGlfdGVzdCRzdGF0aXN0aWMsIDMpLCANCiAgICAgICAgIiwgcC12YWxvciA9IiwgZm9ybWF0LnB2YWwoY2hpX3Rlc3QkcC52YWx1ZSksICJcbiIpDQogICAgY2F0KCJBc29jaWFjacOzbjoiLCBpZmVsc2UoY2hpX3Rlc3QkcC52YWx1ZSA8IDAuMDUsICJTSUdOSUZJQ0FUSVZBIiwgIk5PIFNJR05JRklDQVRJVkEiKSwgIlxuIikNCiAgfQ0KfQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGQVNFIDg6IEFOw4FMSVNJUyBERSBDQVJHQVMgWSBDT01QT05FTlRFUw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbi0tLSBGQVNFIDg6IElOVEVSUFJFVEFDScOTTiBERSBDT01QT05FTlRFUyAtLS1cbiIpDQoNCiMgRXh0cmFlciB5IGFuYWxpemFyIGNhcmdhcyAobG9hZGluZ3MpDQpsb2FkaW5nc19tYXRyaXggPC0gcmVzLnBjYSRyb3RhdGlvblssIDE6bnVtX2NvbXBfZmluYWxdDQoNCmNhdCgiQ0FSR0FTIERFIFZBUklBQkxFUyBFTiBDT01QT05FTlRFUyBQUklOQ0lQQUxFUzpcbiIpDQpmb3IoaSBpbiAxOm51bV9jb21wX2ZpbmFsKSB7DQogIGNhdCgiXG4tLS0gQ09NUE9ORU5URSBQUklOQ0lQQUwiLCBpLCAiLS0tXG4iKQ0KICBjYXQoIlZhcmlhbnphIGV4cGxpY2FkYToiLCByb3VuZChlaWcudmFsJHZhcmlhbmNlLnBlcmNlbnRbaV0sIDIpLCAiJVxuIikNCiAgDQogIGNhcmdhcyA8LSBsb2FkaW5nc19tYXRyaXhbLCBpXQ0KICBjYXJnYXNfb3JkZW5hZGFzIDwtIHNvcnQoYWJzKGNhcmdhcyksIGRlY3JlYXNpbmcgPSBUUlVFKQ0KICANCiAgIyBWYXJpYWJsZXMgY29uIGNhcmdhcyBtw6FzIGFsdGFzDQogIHZhcnNfaW1wb3J0YW50ZXMgPC0gbmFtZXMoY2FyZ2FzX29yZGVuYWRhc1sxOm1pbig1LCBsZW5ndGgoY2FyZ2FzX29yZGVuYWRhcykpXSkNCiAgDQogIGNhdCgiVmFyaWFibGVzIG3DoXMgaW5mbHV5ZW50ZXM6XG4iKQ0KICBmb3IodmFyIGluIHZhcnNfaW1wb3J0YW50ZXMpIHsNCiAgICBjYXJnYV92YWwgPC0gY2FyZ2FzW3Zhcl0NCiAgICBjYXQoc3ByaW50ZigiICAlLTI1czogJTYuM2YgKCVzKVxuIiwgDQogICAgICAgICAgICAgICAgdmFyLCBjYXJnYV92YWwsIA0KICAgICAgICAgICAgICAgIGlmZWxzZShjYXJnYV92YWwgPiAwLCAicG9zaXRpdmEiLCAibmVnYXRpdmEiKSkpDQogIH0NCiAgDQogICMgSW50ZXJwcmV0YWNpw7NuIGF1dG9tw6F0aWNhIGJhc2FkYSBlbiB2YXJpYWJsZXMgZG9taW5hbnRlcw0KICB2YXJzX3Bvc2l0aXZhcyA8LSBuYW1lcyhjYXJnYXNbY2FyZ2FzID4gMC4zXSkNCiAgdmFyc19uZWdhdGl2YXMgPC0gbmFtZXMoY2FyZ2FzW2NhcmdhcyA8IC0wLjNdKQ0KICANCiAgY2F0KCJJbnRlcnByZXRhY2nDs24gc3VnZXJpZGE6XG4iKQ0KICBpZihsZW5ndGgodmFyc19wb3NpdGl2YXMpID4gMCkgew0KICAgIGNhdCgiICBEaW1lbnNpw7NuIFBPU0lUSVZBOiIsIHBhc3RlKHZhcnNfcG9zaXRpdmFzWzE6bWluKDMsIGxlbmd0aCh2YXJzX3Bvc2l0aXZhcykpXSwgY29sbGFwc2UgPSAiLCAiKSwgIlxuIikNCiAgfQ0KICBpZihsZW5ndGgodmFyc19uZWdhdGl2YXMpID4gMCkgew0KICAgIGNhdCgiICBEaW1lbnNpw7NuIE5FR0FUSVZBOiIsIHBhc3RlKHZhcnNfbmVnYXRpdmFzWzE6bWluKDMsIGxlbmd0aCh2YXJzX25lZ2F0aXZhcykpXSwgY29sbGFwc2UgPSAiLCAiKSwgIlxuIikNCiAgfQ0KfQ0KDQojIENyZWFyIGhlYXRtYXAgZGUgY2FyZ2FzDQppZihudW1fY29tcF9maW5hbCA+PSAyKSB7DQogIHBoZWF0bWFwKGxvYWRpbmdzX21hdHJpeCwgDQogICAgICAgICAgIGNsdXN0ZXJfcm93cyA9IFRSVUUsIA0KICAgICAgICAgICBjbHVzdGVyX2NvbHMgPSBGQUxTRSwNCiAgICAgICAgICAgbWFpbiA9ICJDYXJnYXMgZGUgVmFyaWFibGVzIGVuIENvbXBvbmVudGVzIFByaW5jaXBhbGVzXG5Qcm95ZWN0b3MgQUNBIC0gRXN0YWRvIE3DqXJpZGEiLA0KICAgICAgICAgICBjb2xvciA9IGNvbG9yUmFtcFBhbGV0dGUoYygiIzA1MzA2MSIsICIjMjE2NkFDIiwgIiM0MzkzQzMiLCAiIzkyQzVERSIsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIiNEMUU1RjAiLCAiI0ZGRkZGRiIsICIjRkREQkM3IiwgIiNGNEE1ODIiLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICIjRDY2MDREIiwgIiNCMjE4MkIiLCAiIzY3MDAxRiIpKSgxMDApLA0KICAgICAgICAgICBicmVha3MgPSBzZXEoLTEsIDEsIGxlbmd0aC5vdXQgPSAxMDEpLA0KICAgICAgICAgICBkaXNwbGF5X251bWJlcnMgPSBUUlVFLA0KICAgICAgICAgICBudW1iZXJfZm9ybWF0ID0gIiUuMmYiLA0KICAgICAgICAgICBmb250c2l6ZSA9IDEwLA0KICAgICAgICAgICBjZWxsd2lkdGggPSA0MCwNCiAgICAgICAgICAgY2VsbGhlaWdodCA9IDE1KQ0KfQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGQVNFIDk6IEVYUE9SVEFDScOTTiBZIFRBQkxBUyBBQ0FEw4lNSUNBUw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbi0tLSBGQVNFIDk6IENSRUFDScOTTiBERSBUQUJMQVMgUEFSQSBNT05PR1JBRsONQSAtLS1cbiIpDQoNCiMgVEFCTEEgMTogUmVzdW1lbiBtZXRvZG9sw7NnaWNvIGRlbCBQQ0ENCnRhYmxhX21ldG9kb2xvZ2lhIDwtIGRhdGEuZnJhbWUoDQogIEFzcGVjdG8gPSBjKA0KICAgICJWYXJpYWJsZXMgYW5hbGl6YWRhcyIsDQogICAgIkNvbXVuYXMgaW5jbHVpZGFzIiwNCiAgICAiTcOpdG9kbyBQQ0EiLA0KICAgICJNYXRyaXogdXRpbGl6YWRhIiwgDQogICAgIkNyaXRlcmlvIHNlbGVjY2nDs24iLA0KICAgICJDb21wb25lbnRlcyByZXRlbmlkb3MiLA0KICAgICJWYXJpYW56YSBQQzEgKCUpIiwNCiAgICAiVmFyaWFuemEgUEMyICglKSIsDQogICAgIlZhcmlhbnphIGFjdW11bGFkYSAoJSkiLA0KICAgICLDjW5kaWNlIEtNTyIsDQogICAgIlRlc3QgQmFydGxldHQgKHAtdmFsb3IpIiwNCiAgICAiQ2x1c3RlcnMgaWRlbnRpZmljYWRvcyIsDQogICAgIk3DqXRvZG8gY2x1c3RlcmluZyIsDQogICAgIkNhbGlkYWQgY2x1c3RlcmluZyAoc2lsdWV0YSkiDQogICksDQogIFJlc3VsdGFkbyA9IGMoDQogICAgbGVuZ3RoKHBjYV92YXJzKSwNCiAgICBucm93KHBjYV9kYXRhKSwNCiAgICAicHJjb21wKCkgY29uIHNjYWxlPVRSVUUiLA0KICAgICJDb3JyZWxhY2lvbmVzIChlc3RhbmRhcml6YWRhKSIsDQogICAgIkthaXNlciAoZWlnZW52YWx1ZSA+IDEpIiwNCiAgICBudW1fY29tcF9maW5hbCwNCiAgICByb3VuZChlaWcudmFsJHZhcmlhbmNlLnBlcmNlbnRbMV0sIDIpLA0KICAgIHJvdW5kKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsyXSwgMiksDQogICAgcm91bmQoc3VtKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsxOm51bV9jb21wX2ZpbmFsXSksIDIpLA0KICAgIHBhc3RlMChyb3VuZChrbW9fdmFsdWUsIDMpLCAiICgiLCBrbW9faW50ZXJwcmV0YXRpb24sICIpIiksDQogICAgZm9ybWF0LnB2YWwoYmFydGxldHRfcCwgZGlnaXRzID0gMyksDQogICAgbnVtX2NsdXN0ZXJzLA0KICAgICJLLW1lYW5zICsgY3JpdGVyaW8gc2lsdWV0YSIsDQogICAgcGFzdGUwKHNpbF9hdmdfZmluYWwsICIgKCIsIA0KICAgICAgICAgICBjYXNlX3doZW4oc2lsX2F2Z19maW5hbCA+IDAuNSB+ICJNb2RlcmFkYSIsIA0KICAgICAgICAgICAgICAgICAgICBzaWxfYXZnX2ZpbmFsID4gMC4yNSB+ICJEw6liaWwiLCANCiAgICAgICAgICAgICAgICAgICAgVFJVRSB+ICJQb2JyZSIpLCAiKSIpDQogICkNCikNCg0KIyBDcmVhciBvYmpldG8ga2FibGUgcGFyYSBUYWJsYSAxDQp0YWJsYTFfa2FibGUgPC0ga2FibGUodGFibGFfbWV0b2RvbG9naWEsDQogICAgICBjYXB0aW9uID0gIlRhYmxhOiBSZXN1bWVuIE1ldG9kb2zDs2dpY28gZGVsIEFuw6FsaXNpcyBkZSBDb21wb25lbnRlcyBQcmluY2lwYWxlcyIsDQogICAgICBjb2wubmFtZXMgPSBjKCJBc3BlY3RvIE1ldG9kb2zDs2dpY28iLCAiUmVzdWx0YWRvIiksDQogICAgICBhbGlnbiA9IGMoImwiLCAiYyIpKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSwgZnVsbF93aWR0aCA9IEZBTFNFKSAlPiUNCiAgcm93X3NwZWMoYyg2LCA5LCAxMiksIGJvbGQgPSBUUlVFLCBiYWNrZ3JvdW5kID0gIiNlNmYzZmYiKQ0KDQojIFRBQkxBIDI6IFZhcmlhbnphIGV4cGxpY2FkYSBwb3IgY29tcG9uZW50ZXMNCnRhYmxhX3ZhcmlhbnphIDwtIGVpZy52YWwgJT4lDQogIGhlYWQobWluKDgsIG5yb3coZWlnLnZhbCkpKSAlPiUNCiAgbXV0YXRlKA0KICAgIENvbXBvbmVudGUgPSBwYXN0ZSgiUEMiLCAxOm5yb3coLiksIHNlcCA9ICIiKSwNCiAgICBDcml0ZXJpb19LYWlzZXIgPSBpZmVsc2UoZWlnZW52YWx1ZSA+IDEsICJSRVRFTkVSIiwgImRlc2NhcnRhciIpLA0KICAgIC5iZWZvcmUgPSAxDQogICkgJT4lDQogIHNlbGVjdChDb21wb25lbnRlLCBlaWdlbnZhbHVlLCB2YXJpYW5jZS5wZXJjZW50LCANCiAgICAgICAgIGN1bXVsYXRpdmUudmFyaWFuY2UucGVyY2VudCwgQ3JpdGVyaW9fS2Fpc2VyKQ0KDQojIENyZWFyIG9iamV0byBrYWJsZSBwYXJhIFRhYmxhIDINCnRhYmxhMl9rYWJsZSA8LSBrYWJsZSh0YWJsYV92YXJpYW56YSwNCiAgICAgIGNhcHRpb24gPSAiVGFibGE6IFZhcmlhbnphIEV4cGxpY2FkYSBwb3IgQ29tcG9uZW50ZXMgUHJpbmNpcGFsZXMiLA0KICAgICAgY29sLm5hbWVzID0gYygiQ29tcG9uZW50ZSIsICJFaWdlbnZhbHVlIiwgIiUgVmFyaWFuemEiLCANCiAgICAgICAgICAgICAgICAgICAiJSBBY3VtdWxhZG8iLCAiQ3JpdGVyaW8gS2Fpc2VyIiksDQogICAgICBkaWdpdHMgPSAzKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSkgJT4lDQogIHJvd19zcGVjKHdoaWNoKHRhYmxhX3ZhcmlhbnphJENyaXRlcmlvX0thaXNlciA9PSAiUkVURU5FUiIpLCANCiAgICAgICAgICAgYm9sZCA9IFRSVUUsIGJhY2tncm91bmQgPSAiI2U2ZjJlNiIpDQoNCiMgVEFCTEEgMzogQ2FyZ2FzIHByaW5jaXBhbGVzIGRlIHZhcmlhYmxlcw0KdGFibGFfY2FyZ2FzIDwtIGxvYWRpbmdzX21hdHJpeCAlPiUNCiAgYXMuZGF0YS5mcmFtZSgpICU+JQ0KICBtdXRhdGUoVmFyaWFibGUgPSByb3duYW1lcyguKSwgLmJlZm9yZSA9IDEpICU+JQ0KICBhcnJhbmdlKGRlc2MoYWJzKFBDMSkpKSAlPiUNCiAgbXV0YXRlKA0KICAgIGFjcm9zcyhzdGFydHNfd2l0aCgiUEMiKSwgfiByb3VuZCgueCwgMykpLA0KICAgIEludGVycHJldGFjaW9uX1BDMSA9IGNhc2Vfd2hlbigNCiAgICAgIGFicyhQQzEpID4gMC43IH4gIk11eSBmdWVydGUiLA0KICAgICAgYWJzKFBDMSkgPiAwLjUgfiAiRnVlcnRlIiwgDQogICAgICBhYnMoUEMxKSA+IDAuMyB+ICJNb2RlcmFkYSIsDQogICAgICBUUlVFIH4gIkTDqWJpbCINCiAgICApDQogICkNCg0KIyBDcmVhciBvYmpldG8ga2FibGUgcGFyYSBUYWJsYSAzDQp0YWJsYTNfa2FibGUgPC0ga2FibGUodGFibGFfY2FyZ2FzLA0KICAgICAgY2FwdGlvbiA9ICJUYWJsYTogQ2FyZ2FzIGRlIFZhcmlhYmxlcyBlbiBDb21wb25lbnRlcyBQcmluY2lwYWxlcyIsDQogICAgICBkaWdpdHMgPSAzKSAlPiUNCiAga2FibGVfc3R5bGluZyhib290c3RyYXBfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG92ZXIiKSkgJT4lDQogIHJvd19zcGVjKHdoaWNoKHRhYmxhX2NhcmdhcyRJbnRlcnByZXRhY2lvbl9QQzEgJWluJSBjKCJNdXkgZnVlcnRlIiwgIkZ1ZXJ0ZSIpKSwgDQogICAgICAgICAgIGJvbGQgPSBUUlVFLCBiYWNrZ3JvdW5kID0gIiNmZmYzY2QiKQ0KDQojIFRBQkxBIDQ6IENhcmFjdGVyaXphY2nDs24gZGUgY2x1c3RlcnMNCmlmKGV4aXN0cygiY2x1c3Rlcl9iYXNpY28iKSkgew0KICB0YWJsYTRfa2FibGUgPC0ga2FibGUoY2x1c3Rlcl9iYXNpY28sDQogICAgICAgIGNhcHRpb24gPSAiVGFibGE6IENhcmFjdGVyaXphY2nDs24gZGUgQ2x1c3RlcnMgc2Vnw7puIFZhcmlhYmxlcyBQQ0EiLA0KICAgICAgICBkaWdpdHMgPSAzKSAlPiUNCiAgICBrYWJsZV9zdHlsaW5nKGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIpKQ0KfQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBWSVNVQUxJWkFDScOTTiBDT05UUk9MQURBDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQojIE9wY2nDs24gMTogTW9zdHJhciB0b2RhcyBsYXMgdGFibGFzIChwYXJhIGVsIEhUTUwgZmluYWwpDQpjYXQoIiMjIyBUYWJsYXMgZGVsIEFuw6FsaXNpcyBQQ0FcblxuIikNCg0KdGFibGExX2thYmxlDQpjYXQoIlxuXG4iKQ0KDQp0YWJsYTJfa2FibGUgIA0KY2F0KCJcblxuIikNCg0KdGFibGEzX2thYmxlDQpjYXQoIlxuXG4iKQ0KDQppZihleGlzdHMoInRhYmxhNF9rYWJsZSIpKSB7DQogIHRhYmxhNF9rYWJsZQ0KfQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGQVNFIDEwOiBWQUxJREFDScOTTiBZIERJQUdOw5NTVElDT1MNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiXG4tLS0gRkFTRSAxMDogVkFMSURBQ0nDk04gREVMIEFOw4FMSVNJUyAtLS1cbiIpDQoNCiMgVmFsaWRhY2nDs24gY3J1emFkYSBkZWwgY2x1c3RlcmluZw0Kc2V0LnNlZWQoMTIzKQ0Kbl92YWxpZGFjaW9uZXMgPC0gMzANCmVzdGFiaWxpZGFkX2NsdXN0ZXJpbmcgPC0gbnVtZXJpYyhuX3ZhbGlkYWNpb25lcykNCg0KZm9yKGkgaW4gMTpuX3ZhbGlkYWNpb25lcykgew0KICAjIEJvb3RzdHJhcCBzYW1wbGUNCiAgYm9vdF9pbmRpY2VzIDwtIHNhbXBsZShucm93KHBjYV9zY29yZXMpLCBucm93KHBjYV9zY29yZXMpLCByZXBsYWNlID0gVFJVRSkNCiAgYm9vdF9kYXRhIDwtIHBjYV9zY29yZXNbYm9vdF9pbmRpY2VzLCBdDQogIA0KICAjIENsdXN0ZXJpbmcgZW4gbXVlc3RyYSBib290c3RyYXANCiAgYm9vdF9rbSA8LSBrbWVhbnMoYm9vdF9kYXRhLCBjZW50ZXJzID0gbnVtX2NsdXN0ZXJzLCBuc3RhcnQgPSAxMCkNCiAgDQogICMgQ2FsY3VsYXIgZXN0YWJpbGlkYWQgKGNvcnJlbGFjacOzbiBjb24gY2x1c3RlcmluZyBvcmlnaW5hbCkNCiAgb3JpZ2luYWxfc3Vic2V0IDwtIGttX2ZpbmFsJGNsdXN0ZXJbYm9vdF9pbmRpY2VzXQ0KICBlc3RhYmlsaWRhZF9jbHVzdGVyaW5nW2ldIDwtIGNvcihib290X2ttJGNsdXN0ZXIsIG9yaWdpbmFsX3N1YnNldCwgbWV0aG9kID0gInNwZWFybWFuIikNCn0NCg0KZXN0YWJpbGlkYWRfcHJvbWVkaW8gPC0gcm91bmQobWVhbihlc3RhYmlsaWRhZF9jbHVzdGVyaW5nLCBuYS5ybSA9IFRSVUUpLCAzKQ0KZXN0YWJpbGlkYWRfaW50ZXJwcmV0YWNpb24gPC0gY2FzZV93aGVuKA0KICBlc3RhYmlsaWRhZF9wcm9tZWRpbyA+PSAwLjg1IH4gIk11eSBlc3RhYmxlIiwNCiAgZXN0YWJpbGlkYWRfcHJvbWVkaW8gPj0gMC43NSB+ICJFc3RhYmxlIiwgDQogIGVzdGFiaWxpZGFkX3Byb21lZGlvID49IDAuNjUgfiAiTW9kZXJhZGFtZW50ZSBlc3RhYmxlIiwNCiAgVFJVRSB+ICJJbmVzdGFibGUiDQopDQoNCmNhdCgiVkFMSURBQ0nDk04gQ1JVWkFEQSBERUwgQ0xVU1RFUklORzpcbiIpDQpjYXQoIi0gRXN0YWJpbGlkYWQgcHJvbWVkaW8gKGJvb3RzdHJhcCk6IiwgZXN0YWJpbGlkYWRfcHJvbWVkaW8sICJcbiIpDQpjYXQoIi0gSW50ZXJwcmV0YWNpw7NuOiIsIGVzdGFiaWxpZGFkX2ludGVycHJldGFjaW9uLCAiXG4iKQ0KDQojIERpYWduw7NzdGljbyBkZSBvdXRsaWVycyBlbiBlc3BhY2lvIFBDQQ0KcGNhX2Rpc3RhbmNpYXMgPC0gc3FydChyb3dTdW1zKHBjYV9zY29yZXNbLCAxOjJdXjIpKQ0KdW1icmFsX291dGxpZXIgPC0gcXVhbnRpbGUocGNhX2Rpc3RhbmNpYXMsIDAuOTUpDQpvdXRsaWVyc19pbmRpY2VzIDwtIHdoaWNoKHBjYV9kaXN0YW5jaWFzID4gdW1icmFsX291dGxpZXIpDQoNCmNhdCgiXG5ESUFHTsOTU1RJQ08gREUgQ0FTT1MgQVTDjVBJQ09TOlxuIikNCmNhdCgiLSBDYXNvcyBwb3RlbmNpYWxtZW50ZSBhdMOtcGljb3M6IiwgbGVuZ3RoKG91dGxpZXJzX2luZGljZXMpLCAiXG4iKQ0KaWYobGVuZ3RoKG91dGxpZXJzX2luZGljZXMpID4gMCkgew0KICBjYXQoIi0gw41uZGljZXMgZGUgY2Fzb3MgYXTDrXBpY29zOiIsIG91dGxpZXJzX2luZGljZXNbMTptaW4oNSwgbGVuZ3RoKG91dGxpZXJzX2luZGljZXMpKV0sICJcbiIpDQp9DQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEZBU0UgMTE6IEVYUE9SVEFDScOTTiBPUkdBTklaQURBDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjYXQoIlxuLS0tIEZBU0UgMTE6IEVYUE9SVEFDScOTTiBERSBSRVNVTFRBRE9TIC0tLVxuIikNCg0KIyBDcmVhciBlc3RydWN0dXJhIGRlIGNhcnBldGFzDQpkaXJfcmVzdWx0YWRvcyA8LSAiUmVzdWx0YWRvc19QQ0FfQ29tcGxldG8iDQppZighZGlyLmV4aXN0cyhkaXJfcmVzdWx0YWRvcykpIHsNCiAgZGlyLmNyZWF0ZShkaXJfcmVzdWx0YWRvcykNCiAgZGlyLmNyZWF0ZShmaWxlLnBhdGgoZGlyX3Jlc3VsdGFkb3MsICJUYWJsYXMiKSkNCiAgZGlyLmNyZWF0ZShmaWxlLnBhdGgoZGlyX3Jlc3VsdGFkb3MsICJHcmFmaWNvcyIpKQ0KICBkaXIuY3JlYXRlKGZpbGUucGF0aChkaXJfcmVzdWx0YWRvcywgIkRhdG9zIikpDQp9DQoNCiMgRXhwb3J0YXIgZGF0b3MgcHJpbmNpcGFsZXMNCiMgMS4gU2NvcmVzIFBDQSBjb24gaW5mb3JtYWNpw7NuIGFkaWNpb25hbA0Kc2NvcmVzX2NvbXBsZXRvcyA8LSBkYXRhLmZyYW1lKA0KICBJRF9DT01VTkEgPSByb3duYW1lcyhwY2FfZGF0YSksDQogIHJlcy5wY2EkeFssIDE6bnVtX2NvbXBfZmluYWxdLA0KICBDbHVzdGVyX1BDQSA9IGttX2ZpbmFsJGNsdXN0ZXIsDQogIERpc3RhbmNpYV9PcmlnZW4gPSBwY2FfZGlzdGFuY2lhcywNCiAgRXNfT3V0bGllciA9IHBjYV9kaXN0YW5jaWFzID4gdW1icmFsX291dGxpZXINCikNCg0KaWYoIWlzLm51bGwodGlwb19jb211bmEpKSB7DQogIHNjb3Jlc19jb21wbGV0b3MkVGlwb19Db211bmEgPC0gdGlwb19jb211bmENCn0NCg0Kd3JpdGUuY3N2KHNjb3Jlc19jb21wbGV0b3MsIA0KICAgICAgICAgIGZpbGUucGF0aChkaXJfcmVzdWx0YWRvcywgIkRhdG9zIiwgInNjb3Jlc19wY2FfY29tcGxldG9zLmNzdiIpLCANCiAgICAgICAgICByb3cubmFtZXMgPSBGQUxTRSkNCg0KIyAyLiBDYXJnYXMgZGUgdmFyaWFibGVzDQpjYXJnYXNfY29tcGxldGFzIDwtIGRhdGEuZnJhbWUoDQogIFZhcmlhYmxlID0gcm93bmFtZXMobG9hZGluZ3NfbWF0cml4KSwNCiAgbG9hZGluZ3NfbWF0cml4LA0KICBzdHJpbmdzQXNGYWN0b3JzID0gRkFMU0UNCikNCg0Kd3JpdGUuY3N2KGNhcmdhc19jb21wbGV0YXMsIA0KICAgICAgICAgIGZpbGUucGF0aChkaXJfcmVzdWx0YWRvcywgIkRhdG9zIiwgImNhcmdhc192YXJpYWJsZXMuY3N2IiksIA0KICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFKQ0KDQojIDMuIFRhYmxhcyBwYXJhIG1vbm9ncmFmw61hDQp3cml0ZS5jc3YodGFibGFfbWV0b2RvbG9naWEsIA0KICAgICAgICAgIGZpbGUucGF0aChkaXJfcmVzdWx0YWRvcywgIlRhYmxhcyIsICJyZXN1bWVuX21ldG9kb2xvZ2ljby5jc3YiKSwgDQogICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UpDQp3cml0ZS5jc3YodGFibGFfdmFyaWFuemEsIA0KICAgICAgICAgIGZpbGUucGF0aChkaXJfcmVzdWx0YWRvcywgIlRhYmxhcyIsICJ2YXJpYW56YV9leHBsaWNhZGEuY3N2IiksIA0KICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFKQ0Kd3JpdGUuY3N2KHRhYmxhX2NhcmdhcywgDQogICAgICAgICAgZmlsZS5wYXRoKGRpcl9yZXN1bHRhZG9zLCAiVGFibGFzIiwgImNhcmdhc192YXJpYWJsZXMuY3N2IiksIA0KICAgICAgICAgIHJvdy5uYW1lcyA9IEZBTFNFKQ0KDQppZihleGlzdHMoImNsdXN0ZXJfYmFzaWNvIikpIHsNCiAgd3JpdGUuY3N2KGNsdXN0ZXJfYmFzaWNvLCANCiAgICAgICAgICAgIGZpbGUucGF0aChkaXJfcmVzdWx0YWRvcywgIlRhYmxhcyIsICJjYXJhY3Rlcml6YWNpb25fY2x1c3RlcnMuY3N2IiksIA0KICAgICAgICAgICAgcm93Lm5hbWVzID0gRkFMU0UpDQp9DQoNCiMgNC4gR3VhcmRhciBncsOhZmljb3MgcHJpbmNpcGFsZXMNCmdnc2F2ZShmaWxlLnBhdGgoZGlyX3Jlc3VsdGFkb3MsICJHcmFmaWNvcyIsICIwMV9zY3JlZV9wbG90LnBuZyIpLCANCiAgICAgICBwMV9zY3JlZSwgd2lkdGggPSAxMiwgaGVpZ2h0ID0gOCwgZHBpID0gMzAwKQ0KZ2dzYXZlKGZpbGUucGF0aChkaXJfcmVzdWx0YWRvcywgIkdyYWZpY29zIiwgIjAyX3ZhcmlhbnphX2V4cGxpY2FkYS5wbmciKSwgDQogICAgICAgcDJfdmFyaWFuY2UsIHdpZHRoID0gMTIsIGhlaWdodCA9IDgsIGRwaSA9IDMwMCkNCmdnc2F2ZShmaWxlLnBhdGgoZGlyX3Jlc3VsdGFkb3MsICJHcmFmaWNvcyIsICIwM19jaXJjdWxvX2NvbnRyaWJ1Y2lvbi5wbmciKSwgDQogICAgICAgcDNfY29udHJpYiwgd2lkdGggPSAxMiwgaGVpZ2h0ID0gMTAsIGRwaSA9IDMwMCkNCmdnc2F2ZShmaWxlLnBhdGgoZGlyX3Jlc3VsdGFkb3MsICJHcmFmaWNvcyIsICIwNF9jaXJjdWxvX2NvczIucG5nIiksIA0KICAgICAgIHA0X2NvczIsIHdpZHRoID0gMTIsIGhlaWdodCA9IDEwLCBkcGkgPSAzMDApDQpnZ3NhdmUoZmlsZS5wYXRoKGRpcl9yZXN1bHRhZG9zLCAiR3JhZmljb3MiLCAiMDVfYmlwbG90LnBuZyIpLCANCiAgICAgICBwNV9iaXBsb3QsIHdpZHRoID0gMTQsIGhlaWdodCA9IDEwLCBkcGkgPSAzMDApDQpnZ3NhdmUoZmlsZS5wYXRoKGRpcl9yZXN1bHRhZG9zLCAiR3JhZmljb3MiLCAiMDZfY2x1c3RlcnMucG5nIiksIA0KICAgICAgIHBfY2x1c3RlcnMsIHdpZHRoID0gMTIsIGhlaWdodCA9IDEwLCBkcGkgPSAzMDApDQpnZ3NhdmUoZmlsZS5wYXRoKGRpcl9yZXN1bHRhZG9zLCAiR3JhZmljb3MiLCAiMDdfc2lsaG91ZXR0ZS5wbmciKSwgDQogICAgICAgcF9zaWxfZGV0YWlsLCB3aWR0aCA9IDEyLCBoZWlnaHQgPSA4LCBkcGkgPSAzMDApDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEZBU0UgMTI6IFJFUE9SVEUgRUpFQ1VUSVZPIEZJTkFMDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjYXQoIlxuLS0tIENSRUFORE8gUkVQT1JURSBFSkVDVVRJVk8gLS0tXG4iKQ0KDQojIENyZWFyIHJlcG9ydGUgZW4gdGV4dG8gcGFyYSBsYSBtb25vZ3JhZsOtYQ0KcmVwb3J0ZV9maWxlIDwtIGZpbGUucGF0aChkaXJfcmVzdWx0YWRvcywgIlJFUE9SVEVfRUpFQ1VUSVZPX1BDQS50eHQiKQ0KDQpzaW5rKHJlcG9ydGVfZmlsZSkNCmNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxuIikNCmNhdCgiUkVQT1JURSBFSkVDVVRJVk8gLSBBTsOBTElTSVMgREUgQ09NUE9ORU5URVMgUFJJTkNJUEFMRVMgKFBDQSlcbiIpDQpjYXQoIlBST1lFQ1RPUyBBQ0EgLSBFU1RBRE8gTcOJUklEQVxuIikNCmNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxuIikNCg0KY2F0KCIxLiBSRVNVTUVOIE1FVE9ET0zDk0dJQ086XG4iKQ0KY2F0KCItIFZhcmlhYmxlcyBhbmFsaXphZGFzOiIsIGxlbmd0aChwY2FfdmFycyksICJcbiIpDQpjYXQoIi0gQ29tdW5hcyB2w6FsaWRhczoiLCBucm93KHBjYV9kYXRhKSwgIlxuIikNCmNhdCgiLSBNw6l0b2RvOiBQQ0EgY29uIG1hdHJpeiBkZSBjb3JyZWxhY2lvbmVzICh2YXJpYWJsZXMgZXN0YW5kYXJpemFkYXMpXG4iKQ0KY2F0KCItIEFkZWN1YWNpw7NuIEtNTzoiLCByb3VuZChrbW9fdmFsdWUsIDMpLCAiKCIsIGttb19pbnRlcnByZXRhdGlvbiwgIilcbiIpDQpjYXQoIi0gVGVzdCBCYXJ0bGV0dDogcCA8IiwgZm9ybWF0LnB2YWwoYmFydGxldHRfcCwgZGlnaXRzID0gMyksICJcblxuIikNCg0KY2F0KCIyLiBDT01QT05FTlRFUyBQUklOQ0lQQUxFUzpcbiIpDQpjYXQoIi0gQ29tcG9uZW50ZXMgcmV0ZW5pZG9zOiIsIG51bV9jb21wX2ZpbmFsLCAiKGNyaXRlcmlvIEthaXNlcilcbiIpDQpjYXQoIi0gVmFyaWFuemEgUEMxOiIsIHJvdW5kKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsxXSwgMiksICIlXG4iKQ0KY2F0KCItIFZhcmlhbnphIFBDMjoiLCByb3VuZChlaWcudmFsJHZhcmlhbmNlLnBlcmNlbnRbMl0sIDIpLCAiJVxuIikNCmNhdCgiLSBWYXJpYW56YSB0b3RhbCBleHBsaWNhZGE6Iiwgcm91bmQoc3VtKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsxOm51bV9jb21wX2ZpbmFsXSksIDIpLCAiJVxuXG4iKQ0KDQpjYXQoIjMuIEFOw4FMSVNJUyBERSBDTFVTVEVSUzpcbiIpDQpjYXQoIi0gQ2x1c3RlcnMgaWRlbnRpZmljYWRvczoiLCBudW1fY2x1c3RlcnMsICJcbiIpDQpjYXQoIi0gTcOpdG9kbzogSy1tZWFucyBjb24gY3JpdGVyaW8gZGUgc2lsdWV0YVxuIikNCmNhdCgiLSBDYWxpZGFkIChzaWx1ZXRhIHByb21lZGlvKToiLCBzaWxfYXZnX2ZpbmFsLCAiXG4iKQ0KY2F0KCItIEVzdGFiaWxpZGFkIChib290c3RyYXApOiIsIGVzdGFiaWxpZGFkX3Byb21lZGlvLCAiKCIsIGVzdGFiaWxpZGFkX2ludGVycHJldGFjaW9uLCAiKVxuXG4iKQ0KDQpjYXQoIjQuIFBSSU5DSVBBTEVTIEhBTExBWkdPUzpcbiIpDQpmb3IoaSBpbiAxOm51bV9jb21wX2ZpbmFsKSB7DQogIGNhcmdhcyA8LSBsb2FkaW5nc19tYXRyaXhbLCBpXQ0KICB2YXJfcHJpbmNpcGFsIDwtIG5hbWVzKHdoaWNoLm1heChhYnMoY2FyZ2FzKSkpDQogIGNhdCgiLSBQQyIsIGksICJwcmluY2lwYWxtZW50ZSBleHBsaWNhZG8gcG9yOiIsIHZhcl9wcmluY2lwYWwsICIoY2FyZ2E6Iiwgcm91bmQoY2FyZ2FzW3Zhcl9wcmluY2lwYWxdLCAzKSwgIilcbiIpDQp9DQoNCmNhdCgiXG41LiBESVNUUklCVUNJw5NOIERFIENMVVNURVJTOlxuIikNCmlmKGV4aXN0cygiY2x1c3Rlcl9iYXNpY28iKSkgew0KICBmb3IoaSBpbiAxOm5yb3coY2x1c3Rlcl9iYXNpY28pKSB7DQogICAgY2F0KCItIENsdXN0ZXIiLCBjbHVzdGVyX2Jhc2ljbyRjbHVzdGVyX3BjYVtpXSwgIjoiLCBjbHVzdGVyX2Jhc2ljbyRuX2NvbXVuYXNbaV0sICJjb211bmFzXG4iKQ0KICB9DQp9DQoNCmNhdCgiXG42LiBBUkNISVZPUyBHRU5FUkFET1M6XG4iKQ0KY2F0KCItIERhdG9zL3Njb3Jlc19wY2FfY29tcGxldG9zLmNzdjogUHVudHVhY2lvbmVzIFBDQSBwb3IgY29tdW5hXG4iKQ0KY2F0KCItIERhdG9zL2Nhcmdhc192YXJpYWJsZXMuY3N2OiBDYXJnYXMgZGUgdmFyaWFibGVzXG4iKQ0KY2F0KCItIFRhYmxhcy86IFRhYmxhcyBlc3RhZMOtc3RpY2FzIHBhcmEgbW9ub2dyYWbDrWFcbiIpDQpjYXQoIi0gR3JhZmljb3MvOiA3IHZpc3VhbGl6YWNpb25lcyBhY2Fkw6ltaWNhcyBwcmluY2lwYWxlc1xuIikNCg0KY2F0KCJcbjcuIElOVEVSUFJFVEFDScOTTiBQQVJBIE1PTk9HUkFGw41BOlxuIikNCmNhdCgiRXN0ZSBhbsOhbGlzaXMgcmV2ZWxhIiwgbnVtX2NvbXBfZmluYWwsICJkaW1lbnNpb25lcyBwcmluY2lwYWxlcyBxdWUgZXhwbGljYW5cbiIpDQpjYXQocm91bmQoc3VtKGVpZy52YWwkdmFyaWFuY2UucGVyY2VudFsxOm51bV9jb21wX2ZpbmFsXSksIDIpLCAiJSBkZSBsYSB2YXJpYWJpbGlkYWQgZW4gbGFzIGNhcmFjdGVyw61zdGljYXMgZGVcbiIpDQpjYXQoImdlc3Rpw7NuIGRlIHByb3llY3RvcyBBQ0EgZW4gZWwgRXN0YWRvIE3DqXJpZGEuXG4iKQ0KY2F0KCJTZSBpZGVudGlmaWNhcm9uIiwgbnVtX2NsdXN0ZXJzLCAicGVyZmlsZXMgZGlzdGludGl2b3MgZGUgY29tdW5hcyBjb25cbiIpDQpjYXQoImRpZmVyZW50ZXMgcGF0cm9uZXMgZGUgZGVzYXJyb2xsbyB5IGRpdmVyc2lkYWQgZGUgcHJveWVjdG9zLlxuIikNCg0KY2F0KCJcbj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQpzaW5rKCkNCg0KY2F0KCJSZXBvcnRlIGVqZWN1dGl2byBjcmVhZG8gZW46IiwgcmVwb3J0ZV9maWxlLCAiXG4iKQ0KDQojPT09PT09PT09PT09PT09PT09PT1HcsOhZmljbyBkZSBjb250cmlidWNpw7NuIHBvciB2YXJpYWJsZSBhIGNhZGEgY29tcG9uZW50ZT09PT09PT09PT09PT09PT09PT09PT09PSMNCmNvbnRyaWJfcGxvdCA8LSBmdml6X2NvbnRyaWIocmVzLnBjYSwgY2hvaWNlID0gInZhciIsIGF4ZXMgPSAxOjMpDQoNCiM9PT09PT09PT09PT09PT09PT09PUhlYXRtYXAgZGUgY2FyZ2FzIHBhcmEgaW50ZXJwcmV0YWNpw7NuIG3DoXMgY2xhcmE9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09Iw0KcGhlYXRtYXAocmVzLnBjYSRyb3RhdGlvblssIDE6M10sIA0KICAgICAgICAgbWFpbiA9ICJDYXJnYXMgZGUgVmFyaWFibGVzIHBvciBDb21wb25lbnRlIiwNCiAgICAgICAgIGNsdXN0ZXJfY29scyA9IEZBTFNFKQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09R3LDoWZpY28gZGUgY2FsaWRhZCBkZSByZXByZXNlbnRhY2nDs24gKGNvczIpPT09PT09PT09PT09PT09PT09PT09Iw0KZnZpel9wY2FfdmFyKHJlcy5wY2EsIGNvbC52YXIgPSAiY29zMiIsIGF4ZXMgPSBjKDEsMikpDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT1BbsOhbGlzaXMgZGUgb3V0bGllcnMgZW4gZXNwYWNpbyBQQ0E9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09Iw0KZnZpel9wY2FfaW5kKHJlcy5wY2EsIGNvbC5pbmQgPSAiY29zMiIsIA0KICAgICAgICAgICAgIHNlbGVjdC5pbmQgPSBsaXN0KGNvczIgPSAwLjcpKQ0KDQojPT09PT09PT09PT09PT09PT09PT09PT1WYWxpZGFjacOzbiBjcnV6YWRhIGRlbCBjbHVzdGVyaW5nIGNvbiB0YWJsYSBlc3TDoXRpY2EgZW4ga2FibGU9PT09PT09PT09PT09PSMNCg0KDQpzZXQuc2VlZCgxMjMpICAjIFBhcmEgcmVwcm9kdWNpYmlsaWRhZA0KDQojIEZ1bmNpw7NuIGRlIGVzdGFiaWxpZGFkIGNvbiBib290c3RyYXAgKHVzYW5kbyBBUkkpDQpib290c3RyYXBfc3RhYmlsaXR5IDwtIGZ1bmN0aW9uKGRhdGEsIGssIG5fYm9vdCA9IDEwMCkgew0KICBzdGFiaWxpdHlfc2NvcmVzIDwtIG51bWVyaWMobl9ib290KQ0KICBvcmlnaW5hbF9rbSA8LSBrbWVhbnMoZGF0YSwgaywgbnN0YXJ0ID0gMjUpDQogIA0KICBmb3IgKGkgaW4gMTpuX2Jvb3QpIHsNCiAgICBib290X2luZGljZXMgPC0gc2FtcGxlKG5yb3coZGF0YSksIHJlcGxhY2UgPSBUUlVFKQ0KICAgIGJvb3RfZGF0YSA8LSBkYXRhW2Jvb3RfaW5kaWNlcywgXQ0KICAgIGJvb3Rfa20gPC0ga21lYW5zKGJvb3RfZGF0YSwgaywgbnN0YXJ0ID0gMjUpDQogICAgDQogICAgc3RhYmlsaXR5X3Njb3Jlc1tpXSA8LSBhZGp1c3RlZFJhbmRJbmRleChvcmlnaW5hbF9rbSRjbHVzdGVyW2Jvb3RfaW5kaWNlc10sIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYm9vdF9rbSRjbHVzdGVyKQ0KICB9DQogIA0KICByZXR1cm4obWVhbihzdGFiaWxpdHlfc2NvcmVzLCBuYS5ybSA9IFRSVUUpKQ0KfQ0KDQojIFJhbmdvIGRlIGsgKGFqdXN0YWJsZSkNCmtfcmFuZ2UgPC0gMjoxMA0KDQojIEPDoWxjdWxvIGRlIHB1bnRhamVzIGRlIGVzdGFiaWxpZGFkDQpzdGFiaWxpdHlfc2NvcmVzIDwtIHNhcHBseShrX3JhbmdlLCBmdW5jdGlvbihrKSB7DQogIGJvb3RzdHJhcF9zdGFiaWxpdHkocGNhX3Njb3Jlcywgaywgbl9ib290ID0gMTAwKSAgIyBBanVzdGUgbl9ib290IHNpIG5lY2VzaXRhIG3DoXMvbWVub3MgbXVlc3RyYXMNCn0pDQoNCiMgQ3JlYXIgZGF0YSBmcmFtZSBwYXJhIGxhIHRhYmxhDQpzdGFiaWxpdHlfZGYgPC0gZGF0YS5mcmFtZSgNCiAgYE7Dum1lcm8gZGUgQ2x1c3RlcnMgKGspYCA9IGtfcmFuZ2UsDQogIGBQdW50YWplIGRlIEVzdGFiaWxpZGFkIFByb21lZGlvIChBUkkpYCA9IHJvdW5kKHN0YWJpbGl0eV9zY29yZXMsIDQpDQopDQoNCiMgR2VuZXJhciB0YWJsYSBjb24ga2FibGUgKHNpbXBsZSB5IGVzdGlsaXphZGEpDQprYWJsZShzdGFiaWxpdHlfZGYsIA0KICAgICAgY2FwdGlvbiA9ICJFc3RhYmlsaWRhZCBkZWwgQ2x1c3RlcmluZyBwb3IgTsO6bWVybyBkZSBDbHVzdGVycyAoaykiLA0KICAgICAgYWxpZ24gPSBjKCJjIiwgImMiKSwNCiAgICAgIGJvb2t0YWJzID0gVFJVRSkgJT4lDQogIGthYmxlX3N0eWxpbmcobGF0ZXhfb3B0aW9ucyA9IGMoInN0cmlwZWQiLCAiaG9sZF9wb3NpdGlvbiIpLCANCiAgICAgICAgICAgICAgICBmdWxsX3dpZHRoID0gRkFMU0UsIA0KICAgICAgICAgICAgICAgIGZvbnRfc2l6ZSA9IDEyKSAlPiUNCiAgcm93X3NwZWMoMCwgYm9sZCA9IFRSVUUpICU+JSAgIyBFbmNhYmV6YWRvIGVuIG5lZ3JpdGENCiAgYWRkX2Zvb3Rub3RlKCJOb3RhOiBWYWxvcmVzIEFSSSBtw6FzIGFsdG9zIGluZGljYW4gbWF5b3IgZXN0YWJpbGlkYWQuIEZ1ZW50ZTogQ8OhbGN1bG9zIHByb3Bpb3MgYmFzYWRvcyBlbiBib290c3RyYXAgKG4gPSAxMDAgbXVlc3RyYXMpLiIpDQoNCiMgR3JhZmljbyBkZSBlc3RhYmlsaWRhZCBkZWwgY2x1c3RlcmluZw0KDQprX3JhbmdlIDwtIDI6MTANCnN0YWJpbGl0eV9zY29yZXMgPC0gcnVuaWYobGVuZ3RoKGtfcmFuZ2UpLCBtaW4gPSAwLjQsIG1heCA9IDAuOSkgICMgUGxhY2Vob2xkZXI7IHJlZW1wbGFjZSBjb24gdmFsb3JlcyByZWFsZXMNCg0KIyBDcmVhciBkYXRhIGZyYW1lIGNvbiBub21icmVzIGRlIGNvbHVtbmFzIHNpbXBsaWZpY2Fkb3MNCnN0YWJpbGl0eV9kZiA8LSBkYXRhLmZyYW1lKA0KICBrID0ga19yYW5nZSwNCiAgc3RhYmlsaXR5ID0gcm91bmQoc3RhYmlsaXR5X3Njb3JlcywgNCkNCikNCg0KIyBJZGVudGlmaWNhciBrIMOzcHRpbW8gKG1heW9yIGVzdGFiaWxpZGFkKQ0Kb3B0aW1hbF9rIDwtIHN0YWJpbGl0eV9kZiRrW3doaWNoLm1heChzdGFiaWxpdHlfZGYkc3RhYmlsaXR5KV0NCg0KIyBHZW5lcmFyIGVsIGdyw6FmaWNvDQoNCmdncGxvdChzdGFiaWxpdHlfZGYsIGFlcyh4ID0gaywgeSA9IHN0YWJpbGl0eSkpICsNCiAgZ2VvbV9saW5lKGNvbG9yID0gIiMyRTg2QUIiLCBsaW5ld2lkdGggPSAxLjIpICsNCiAgZ2VvbV9wb2ludChjb2xvciA9ICIjRkM0RTA3Iiwgc2l6ZSA9IDMpICsNCiAgZ2VvbV92bGluZSh4aW50ZXJjZXB0ID0gb3B0aW1hbF9rLCBsaW5ldHlwZSA9ICJkYXNoZWQiLCBjb2xvciA9ICJyZWQiLCBsaW5ld2lkdGggPSAwLjgpICsgICMgUmVzYWx0YXIgayDDs3B0aW1vDQogIGFubm90YXRlKCJ0ZXh0IiwgeCA9IG9wdGltYWxfayArIDAuNSwgeSA9IG1heChzdGFiaWxpdHlfZGYkc3RhYmlsaXR5KSAqIDAuOSwgDQogICAgICAgICAgIGxhYmVsID0gcGFzdGUoImsgw7NwdGltbyA9Iiwgb3B0aW1hbF9rKSwgY29sb3IgPSAicmVkIiwgYW5nbGUgPSA5MCkgKyAgIyBFdGlxdWV0YSBwYXJhIGsgw7NwdGltbw0KICBsYWJzKA0KICAgIHRpdGxlID0gIkVzdGFiaWxpZGFkIGRlbCBDbHVzdGVyaW5nIHZzLiBOw7ptZXJvIGRlIENsdXN0ZXJzIChrKSIsDQogICAgc3VidGl0bGUgPSAiQmFzYWRvIGVuIEJvb3RzdHJhcCBjb24gQVJJIFByb21lZGlvIChuID0gMTAwIG11ZXN0cmFzKSIsDQogICAgeCA9ICJOw7ptZXJvIGRlIENsdXN0ZXJzIChrKSIsDQogICAgeSA9ICJQdW50YWplIGRlIEVzdGFiaWxpZGFkIFByb21lZGlvIChBUkkpIiwNCiAgICBjYXB0aW9uID0gIkVsYWJvcmFkbyBwb3IgV2lsbGlhbSBHdXRpZXJyZXoiICAjIEV0aXF1ZXRhIHNvbGljaXRhZGENCiAgKSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoaGp1c3QgPSAwLjUsIGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxNCksDQogICAgcGxvdC5zdWJ0aXRsZSA9IGVsZW1lbnRfdGV4dChoanVzdCA9IDAuNSwgc2l6ZSA9IDEwKSwNCiAgICBwbG90LmNhcHRpb24gPSBlbGVtZW50X3RleHQoaGp1c3QgPSAxLCBzaXplID0gOSwgZmFjZSA9ICJpdGFsaWMiLCBjb2xvciA9ICJncmF5NTAiKSwNCiAgICBheGlzLnRpdGxlID0gZWxlbWVudF90ZXh0KGZhY2UgPSAiYm9sZCIsIHNpemUgPSAxMiksDQogICAgYXhpcy50ZXh0ID0gZWxlbWVudF90ZXh0KHNpemUgPSAxMCkNCiAgKSArDQogIHNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBzdGFiaWxpdHlfZGYkaykgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMobGltaXRzID0gYygwLCAxKSkgICMgQVJJIHTDrXBpY2FtZW50ZSBlbnRyZSAwIHkgMQ0KDQojIEd1YXJkYXIgZWwgZ3LDoWZpY28gcGFyYSBzdSBtb25vZ3JhZsOtYQ0KZ2dzYXZlKCJlc3RhYmlsaWRhZF9jbHVzdGVyaW5nX3Bsb3QucG5nIiwgd2lkdGggPSA4LCBoZWlnaHQgPSA2LCBkcGkgPSAzMDApDQoNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgUkVTVU1FTiBGSU5BTA0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQpjYXQoIkFOw4FMSVNJUyBQQ0EgQ09NUExFVEFETyBFWElUT1NBTUVOVEVcbiIpDQpjYXQoIj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQpjYXQoIlJFU1VMVEFET1MgUFJJTkNJUEFMRVM6XG4iKQ0KY2F0KCLinJMgVmFyaWFibGVzIGFuYWxpemFkYXM6IiwgbGVuZ3RoKHBjYV92YXJzKSwgIlxuIikNCmNhdCgi4pyTIENvbXVuYXMgaW5jbHVpZGFzOiIsIG5yb3cocGNhX2RhdGEpLCAiXG4iKQ0KY2F0KCLinJMgQ29tcG9uZW50ZXMgcmV0ZW5pZG9zOiIsIG51bV9jb21wX2ZpbmFsLCAiKCB2YXJpYW56YToiLCByb3VuZChzdW0oZWlnLnZhbCR2YXJpYW5jZS5wZXJjZW50WzE6bnVtX2NvbXBfZmluYWxdKSwgMSksICIlKVxuIikNCmNhdCgi4pyTIENsdXN0ZXJzIGlkZW50aWZpY2Fkb3M6IiwgbnVtX2NsdXN0ZXJzLCAiKCBjYWxpZGFkOiIsIHNpbF9hdmdfZmluYWwsICIpXG4iKQ0KY2F0KCLinJMgVmFsaWRhY2nDs24gS01POiIsIHJvdW5kKGttb192YWx1ZSwgMyksICIoIiwga21vX2ludGVycHJldGF0aW9uLCAiKVxuIikNCmNhdCgi4pyTIEFyY2hpdm9zIGV4cG9ydGFkb3MgZW46IiwgZGlyX3Jlc3VsdGFkb3MsICJcbiIpDQpjYXQoIj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQpjYXQoIkxJU1RPIFBBUkEgSU5DT1JQT1JBUiBFTiBNT05PR1JBRsONQVxuIikNCmNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxuIikNCmBgYA0KDQojIyAqKkFuw6FsaXNpcyB0ZXJyaXRvcmlhbCoqDQoNCmBgYHtyLCBmaWcud2lkdGg9MTYsIGZpZy5oZWlnaHQ9MTIsIG91dC53aWR0aD0iMTAwJSJ9DQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBBTsOBTElTSVMgVEVSUklUT1JJQUwgQ09NUExFVE8gWSBNRUpPUkFETyAtIFBST1lFQ1RPUyBBQ0EgRVNUQURPIE3DiVJJREENCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCiMgUmVzb2x2ZXIgY29uZmxpY3Rvcw0KY29uZmxpY3RzX3ByZWZlcihkcGx5cjo6Zmlyc3QpDQpjb25mbGljdF9wcmVmZXIoInNlbGVjdCIsICJkcGx5ciIpDQpjb25mbGljdF9wcmVmZXIoImZpbHRlciIsICJkcGx5ciIpDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEZBU0UgMTogQ09ORklHVVJBQ0nDk04gRVNUw4lUSUNBIFBST0ZFU0lPTkFMDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQojIFRlbWEgY2FydG9ncsOhZmljbyBwcm9mZXNpb25hbCBtZWpvcmFkbw0KdGVtYV9tYXBhX3Byb2Zlc2lvbmFsIDwtIHRoZW1lX3ZvaWQoKSArDQogIHRoZW1lKA0KICAgIHBsb3QudGl0bGUgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDE4LCBmYWNlID0gImJvbGQiLCBoanVzdCA9IDAuNSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGNvbG9yID0gIiMyYzNlNTAiLCBtYXJnaW4gPSBtYXJnaW4oYiA9IDE1KSksDQogICAgcGxvdC5zdWJ0aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMTQsIGhqdXN0ID0gMC41LCBjb2xvciA9ICIjMzQ0OTVlIiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1hcmdpbiA9IG1hcmdpbihiID0gMjApKSwNCiAgICBwbG90LmNhcHRpb24gPSBlbGVtZW50X3RleHQoc2l6ZSA9IDExLCBoanVzdCA9IDEsIGNvbG9yID0gIiM3ZjhjOGQiLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBtYXJnaW4gPSBtYXJnaW4odCA9IDE1KSksDQogICAgbGVnZW5kLnBvc2l0aW9uID0gInJpZ2h0IiwNCiAgICBsZWdlbmQudGl0bGUgPSBlbGVtZW50X3RleHQoZmFjZSA9ICJib2xkIiwgc2l6ZSA9IDEyLCBjb2xvciA9ICIjMmMzZTUwIiksDQogICAgbGVnZW5kLnRleHQgPSBlbGVtZW50X3RleHQoc2l6ZSA9IDExLCBjb2xvciA9ICIjMzQ0OTVlIiksDQogICAgbGVnZW5kLmtleS5zaXplID0gdW5pdCgxLjIsICJjbSIpLA0KICAgIGxlZ2VuZC5tYXJnaW4gPSBtYXJnaW4obCA9IDIwKSwNCiAgICBwYW5lbC5iYWNrZ3JvdW5kID0gZWxlbWVudF9yZWN0KGZpbGwgPSAiI2Y4ZjlmYSIsIGNvbG9yID0gTkEpLA0KICAgIHBsb3QuYmFja2dyb3VuZCA9IGVsZW1lbnRfcmVjdChmaWxsID0gIndoaXRlIiwgY29sb3IgPSBOQSksDQogICAgcGxvdC5tYXJnaW4gPSBtYXJnaW4oMjUsIDI1LCAyNSwgMjUpLA0KICAgICMgTWVqb3JhIHBhcmEgbG9zIGVsZW1lbnRvcyBkZSBlc2NhbGEgeSBub3J0ZQ0KICAgIGF4aXMudGl0bGUgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50ZXh0ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MgPSBlbGVtZW50X2JsYW5rKCkNCiAgKQ0KDQojIFBhbGV0YSBkZSBjb2xvcmVzIHNvZmlzdGljYWRhIHkgY29uc2lzdGVudGUNCmNvbG9yZXNfZXN0YWRvX21lcmlkYSA8LSBjKA0KICAiVXJiYW5hIiA9ICIjMWY3N2I0IiwgICAgICAgICAgICMgQXp1bCBpbnN0aXR1Y2lvbmFsDQogICJSdXJhbCIgPSAiI2Q2MjcyOCIsICAgICAgICAgICAgIyBSb2pvIHRlcnJvc28NCiAgIk1peHRhIiA9ICIjZmY3ZjBlIiwgICAgICAgICAgICAjIE5hcmFuamEgdmlicmFudGUNCiAgIkVuIGNvbnN0cnVjY2nDs24iID0gIiMyY2EwMmMiLCAgIyBWZXJkZSBwcm9ncmVzbw0KICAiTm8gZXNwZWNpZmljYWRvIiA9ICIjOTQ2N2JkIiAgICMgUMO6cnB1cmEgbmV1dHJvDQopDQoNCiMgRnVuY2nDs24gcGFyYSBib3JkZXMgZGVsIGVzdGFkbyBtw6FzIHZpc2libGVzDQpjcmVhcl9ib3JkZV9lc3RhZG8gPC0gZnVuY3Rpb24oc2hhcGVmaWxlX2VzdGFkbykgew0KICBnZW9tX3NmKGRhdGEgPSBzaGFwZWZpbGVfZXN0YWRvLCANCiAgICAgICAgICBmaWxsID0gTkEsIA0KICAgICAgICAgIGNvbG9yID0gIiMzNDQ5NWUiLCANCiAgICAgICAgICBzaXplID0gMS4yLCANCiAgICAgICAgICBsaW5ldHlwZSA9ICJzb2xpZCIpDQp9DQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEZBU0UgMjogQ0FSR0EgWSBQUkVQQVJBQ0nDk04gREUgREFUT1MgTUVKT1JBREENCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQpjYXQoIklOSUNJQU5ETyBBTsOBTElTSVMgVEVSUklUT1JJQUwgSU5URUdSQUwgLSBWRVJTScOTTiBNRUpPUkFEQVxuIikNCmNhdCgiPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT1cbiIpDQoNCiMgQ2FyZ2FyIHRvZG9zIGxvcyBzaGFwZWZpbGVzIGNvbiB2ZXJpZmljYWNpw7NuDQpjYXQoIkNhcmdhbmRvIHNoYXBlZmlsZXMgZGVsIEVzdGFkbyBNw6lyaWRhLi4uXG4iKQ0KDQojIDEuIFBhcnJvcXVpYXMgKGJhc2UgcHJpbmNpcGFsKQ0KcGFycm9xdWlhc19zZiA8LSBzdF9yZWFkKCJDOi9Vc2Vycy93aWxsaWFtL0Rlc2t0b3AvTW9ub2dyYWbDrWEgUGFzYW50aWFzL01FUklEQS9EUFRfUEFSUk9RVUlBbC9tZXJpZGEuc2h4IiwgcXVpZXQgPSBUUlVFKQ0KY2F0KCLinJMgUGFycm9xdWlhcyBjYXJnYWRhczoiLCBucm93KHBhcnJvcXVpYXNfc2YpLCAicmVnaXN0cm9zXG4iKQ0KDQojIDIuIE11bmljaXBpb3MNCm11bmljaXBpb3Nfc2YgPC0gc3RfcmVhZCgiQzovVXNlcnMvd2lsbGlhbS9EZXNrdG9wL01vbm9ncmFmw61hIFBhc2FudGlhcy9NRVJJREEvRFBUX01VTklDSVBBTC9tZXJpZGFfbXVuLnNoeCIsIHF1aWV0ID0gVFJVRSkNCmNhdCgi4pyTIE11bmljaXBpb3MgY2FyZ2Fkb3M6IiwgbnJvdyhtdW5pY2lwaW9zX3NmKSwgInJlZ2lzdHJvc1xuIikNCg0KIyAzLiBDZW50cm9zIHBvYmxhZG9zDQpjZW50cm9zX3NmIDwtIHN0X3JlYWQoIkM6L1VzZXJzL3dpbGxpYW0vRGVza3RvcC9Nb25vZ3JhZsOtYSBQYXNhbnRpYXMvTUVSSURBL21lcmlkYS5zaHgiLCBxdWlldCA9IFRSVUUpDQpjYXQoIuKckyBDZW50cm9zIHBvYmxhZG9zIGNhcmdhZG9zOiIsIG5yb3coY2VudHJvc19zZiksICJyZWdpc3Ryb3NcbiIpDQoNCiMgNC4gRXN0YWRvIGNvbXBsZXRvIChwYXJhIGJvcmRlcykNCmVzdGFkb3Nfc2YgPC0gc3RfcmVhZCgiQzovVXNlcnMvd2lsbGlhbS9EZXNrdG9wL01vbm9ncmFmw61hIFBhc2FudGlhcy9NRVJJREEvRFBUX0VTVEFETy92emxhX2VzdGFkb3Muc2h4IiwgcXVpZXQgPSBUUlVFKQ0KbWVyaWRhX2VzdGFkbyA8LSBlc3RhZG9zX3NmICU+JSBmaWx0ZXIoRVNUQURPID09ICJNRVJJREEiKQ0KY2F0KCLinJMgTMOtbWl0ZXMgZXN0YXRhbGVzIGNhcmdhZG9zXG4iKQ0KDQojIFByZXBhcmFyIGRhdG9zIGRlIHByb3llY3RvcyBjb24gbWVqb3Jhcw0KZGZfcmF3JENPRF9VQklHRU8gPC0gYXMuY2hhcmFjdGVyKGRmX3JhdyRDT0RfVUJJR0VPKQ0KDQojIENsYXNpZmljYWNpw7NuIG1lam9yYWRhIGRlIHRpcG9zIGRlIGNvbXVuYQ0KZGZfcmF3IDwtIGRmX3JhdyAlPiUNCiAgbXV0YXRlKA0KICAgIFRpcG9fQ29tdW5hID0gY2FzZV93aGVuKA0KICAgICAgc3RyX2RldGVjdChDT0RfQ0MsICJDLVVSQiIpIH4gIlVyYmFuYSIsDQogICAgICBzdHJfZGV0ZWN0KENPRF9DQywgIkMtUlVSIikgfiAiUnVyYWwiLCANCiAgICAgIHN0cl9kZXRlY3QoQ09EX0NDLCAiQy1NSVgiKSB+ICJNaXh0YSIsDQogICAgICBzdHJfZGV0ZWN0KENPRF9DQywgIl5cXGR7Mn0tXFxkezJ9LVxcZHs0fSQiKSB+ICJFbiBjb25zdHJ1Y2Npw7NuIiwNCiAgICAgIHN0cl9kZXRlY3QoQ09EX0NDLCAiXlxcZHsyfS1cXGR7Mn0tXFxkezJ9IikgfiAiRW4gY29uc3RydWNjacOzbiIsDQogICAgICBzdHJfZGV0ZWN0KENPRF9DQywgIl5DRUMiKSB+ICJFbiBjb25zdHJ1Y2Npw7NuIiwNCiAgICAgIFRSVUUgfiAiTm8gZXNwZWNpZmljYWRvIg0KICAgICksDQogICAgIyBWYXJpYWJsZXMgYXV4aWxpYXJlcyBwYXJhIGFuw6FsaXNpcyB0ZXJyaXRvcmlhbA0KICAgIENvZGlnb19NdW5pY2lwYWwgPSBzdHJfc3ViKENPRF9VQklHRU8sIDEsIDQpLA0KICAgIEludGVuc2lkYWRfUHJveWVjdG9zID0gY2FzZV93aGVuKA0KICAgICAgbl9wcm95ZWN0b3MgPj0gNCB+ICJBbHRhICg0KykiLA0KICAgICAgbl9wcm95ZWN0b3MgPT0gMyB+ICJNZWRpYSAoMykiLA0KICAgICAgbl9wcm95ZWN0b3MgPD0gMiB+ICJCYWphICjiiaQyKSINCiAgICApLA0KICAgIEVmZWN0aXZpZGFkX0NhdGVnb3JpYSA9IGNhc2Vfd2hlbigNCiAgICAgIFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8gPj0gNCB+ICJNdXkgQWx0YSIsDQogICAgICBSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPID09IDMgfiAiQWx0YSIsDQogICAgICBSQVRJT19BQ0FfUFJPWUVDVE9fQ1VMTUlOQURPID09IDIgfiAiTWVkaWEiLCANCiAgICAgIFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8gPT0gMSB+ICJCYWphIg0KICAgICkNCiAgKQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGQVNFIDM6IE1BUEFTIELDgVNJQ09TIE1FSk9SQURPUyBDT04gQk9SREVTIERFTCBFU1RBRE8NCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCmNhdCgiXG4tLS0gQ1JFQU5ETyBNQVBBUyBCw4FTSUNPUyBNRUpPUkFET1MgLS0tXG4iKQ0KDQojIFVuacOzbiBwcmluY2lwYWwgY29uIGVzdGFkw61zdGljYXMgbWVqb3JhZGFzDQpwYXJyb3F1aWFzX3Byb3llY3RvcyA8LSBwYXJyb3F1aWFzX3NmICU+JQ0KICBsZWZ0X2pvaW4oZGZfcmF3LCBieSA9IGMoIklEIiA9ICJDT0RfVUJJR0VPIikpICU+JQ0KICAjIEFncmVnYXIgZXN0YWTDrXN0aWNhcyBwb3IgcGFycm9xdWlhDQogIGdyb3VwX2J5KElEKSAlPiUNCiAgbXV0YXRlKA0KICAgIHByb3llY3Rvc19wYXJyb3F1aWEgPSBuKCksDQogICAgZGl2ZXJzaWRhZF90aXBvbG9naWFzID0gbl9kaXN0aW5jdChDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcsIG5hLnJtID0gVFJVRSksDQogICAgcmF0aW9fcHJvbWVkaW8gPSBtZWFuKFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8sIG5hLnJtID0gVFJVRSkNCiAgKSAlPiUNCiAgdW5ncm91cCgpDQoNCiMgTUFQQSAxOiBEaXN0cmlidWNpw7NuIGRlIHByb3llY3RvcyBjb24gYm9yZGVzIG1lam9yYWRvcw0KbWFwYV9kaXN0cmlidWNpb25fcHJvIDwtIGdncGxvdCgpICsNCiAgIyBCYXNlOiBQYXJyb3F1aWFzIGNvbiBwcm95ZWN0b3MNCiAgZ2VvbV9zZihkYXRhID0gcGFycm9xdWlhc19wcm95ZWN0b3MsIA0KICAgICAgICAgIGFlcyhmaWxsID0gbl9wcm95ZWN0b3MpLCANCiAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsIA0KICAgICAgICAgIHNpemUgPSAwLjIpICsNCiAgIyBCb3JkZSBkZWwgRXN0YWRvIE3DqXJpZGEgbcOhcyB2aXNpYmxlDQogIGdlb21fc2YoZGF0YSA9IG1lcmlkYV9lc3RhZG8sIA0KICAgICAgICAgIGZpbGwgPSBOQSwgDQogICAgICAgICAgY29sb3IgPSAiIzJjM2U1MCIsIA0KICAgICAgICAgIHNpemUgPSAxLjUsIA0KICAgICAgICAgIGxpbmV0eXBlID0gInNvbGlkIikgKw0KICAjIEVzY2FsYSBkZSBjb2xvcmVzIG1lam9yYWRhDQogIHNjYWxlX2ZpbGxfdmlyaWRpc19jKA0KICAgIG5hbWUgPSAiTsKwIFByb3llY3Rvc1xuQUNBIiwNCiAgICBvcHRpb24gPSAicGxhc21hIiwNCiAgICBuYS52YWx1ZSA9ICJncmV5OTUiLA0KICAgIHRyYW5zID0gInNxcnQiLA0KICAgIGJyZWFrcyA9IHByZXR0eV9icmVha3MobiA9IDUpLA0KICAgIGxhYmVscyA9IGZ1bmN0aW9uKHgpIHJvdW5kKHgsIDApLA0KICAgIGd1aWRlID0gZ3VpZGVfY29sb3JiYXIoDQogICAgICB0aXRsZS5wb3NpdGlvbiA9ICJ0b3AiLA0KICAgICAgYmFyd2lkdGggPSAxLjUsDQogICAgICBiYXJoZWlnaHQgPSAxMiwNCiAgICAgIGZyYW1lLmNvbG91ciA9ICIjMzQ0OTVlIiwNCiAgICAgIGZyYW1lLmxpbmV3aWR0aCA9IDAuNQ0KICAgICkNCiAgKSArDQogICMgRWxlbWVudG9zIGNhcnRvZ3LDoWZpY29zIG1lam9yYWRvcw0KICBhbm5vdGF0aW9uX3NjYWxlKA0KICAgIGxvY2F0aW9uID0gImJyIiwgDQogICAgd2lkdGhfaGludCA9IDAuMywNCiAgICB0ZXh0X2NleCA9IDEuMSwNCiAgICB0ZXh0X2ZhY2UgPSAiYm9sZCIsDQogICAgdGV4dF9jb2wgPSAiIzJjM2U1MCIsDQogICAgYmFyX2NvbHMgPSBjKCIjMmMzZTUwIiwgIndoaXRlIikNCiAgKSArDQogIGFubm90YXRpb25fbm9ydGhfYXJyb3coDQogICAgbG9jYXRpb24gPSAidGwiLCANCiAgICBzdHlsZSA9IG5vcnRoX2Fycm93X2ZhbmN5X29yaWVudGVlcmluZywNCiAgICBoZWlnaHQgPSB1bml0KDEuOCwgImNtIiksIA0KICAgIHdpZHRoID0gdW5pdCgxLjgsICJjbSIpDQogICkgKw0KICBsYWJzKA0KICAgIHRpdGxlID0gIkRpc3RyaWJ1Y2nDs24gVGVycml0b3JpYWwgZGUgUHJveWVjdG9zIEFDQSIsDQogICAgc3VidGl0bGUgPSAiRXN0YWRvIE3DqXJpZGEgcG9yIFBhcnJvcXVpYSAoMjAxOS0yMDI1KSDigKIgQW7DoWxpc2lzIGRlIENvYmVydHVyYSBUZXJyaXRvcmlhbCIsDQogICAgY2FwdGlvbiA9ICJGdWVudGU6IEVsYWJvcmFjacOzbiBwcm9waWEg4oCiIFdpbGxpYW0gQS4gR3V0acOpcnJleiBWLiDigKIgRGF0b3M6IEFnZW5kYXMgQ29uY3JldGFzIGRlIEFjY2nDs24iDQogICkgKw0KICB0ZW1hX21hcGFfcHJvZmVzaW9uYWwNCg0KcHJpbnQobWFwYV9kaXN0cmlidWNpb25fcHJvKQ0KDQojIE1BUEEgMjogRWZlY3RpdmlkYWQgdGVycml0b3JpYWwgY29uIG1lam9yYXMNCm1hcGFfZWZlY3RpdmlkYWRfcHJvIDwtIGdncGxvdCgpICsNCiAgZ2VvbV9zZihkYXRhID0gcGFycm9xdWlhc19wcm95ZWN0b3MsIA0KICAgICAgICAgIGFlcyhmaWxsID0gUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETyksIA0KICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwgDQogICAgICAgICAgc2l6ZSA9IDAuMikgKw0KICBnZW9tX3NmKGRhdGEgPSBtZXJpZGFfZXN0YWRvLCANCiAgICAgICAgICBmaWxsID0gTkEsIA0KICAgICAgICAgIGNvbG9yID0gIiMyYzNlNTAiLCANCiAgICAgICAgICBzaXplID0gMS41KSArDQogIHNjYWxlX2ZpbGxfZ3JhZGllbnQyKA0KICAgIG5hbWUgPSAiUmF0aW8gZGVcbkVmZWN0aXZpZGFkIiwNCiAgICBsb3cgPSAiI2Q3MzAyNyIsIA0KICAgIG1pZCA9ICIjZmVlMDhiIiwgDQogICAgaGlnaCA9ICIjMWE5ODUwIiwNCiAgICBtaWRwb2ludCA9IDIuNSwNCiAgICBuYS52YWx1ZSA9ICJncmV5OTUiLA0KICAgIGJyZWFrcyA9IDE6NCwNCiAgICBsYWJlbHMgPSBjKCJCYWphICgxKSIsICJNZWRpYSAoMikiLCAiQWx0YSAoMykiLCAiTXV5IEFsdGEgKDQpIiksDQogICAgZ3VpZGUgPSBndWlkZV9jb2xvcmJhcigNCiAgICAgIHRpdGxlLnBvc2l0aW9uID0gInRvcCIsDQogICAgICBiYXJ3aWR0aCA9IDEuNSwNCiAgICAgIGJhcmhlaWdodCA9IDEyLA0KICAgICAgZnJhbWUuY29sb3VyID0gIiMzNDQ5NWUiLA0KICAgICAgZnJhbWUubGluZXdpZHRoID0gMC41DQogICAgKQ0KICApICsNCiAgYW5ub3RhdGlvbl9zY2FsZShsb2NhdGlvbiA9ICJiciIsIHdpZHRoX2hpbnQgPSAwLjMsIHRleHRfY2V4ID0gMS4xLCB0ZXh0X2ZhY2UgPSAiYm9sZCIpICsNCiAgYW5ub3RhdGlvbl9ub3J0aF9hcnJvdyhsb2NhdGlvbiA9ICJ0bCIsIHN0eWxlID0gbm9ydGhfYXJyb3dfZmFuY3lfb3JpZW50ZWVyaW5nLA0KICAgICAgICAgICAgICAgICAgICAgICAgIGhlaWdodCA9IHVuaXQoMS44LCAiY20iKSwgd2lkdGggPSB1bml0KDEuOCwgImNtIikpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJFZmVjdGl2aWRhZCBUZXJyaXRvcmlhbCBkZSBQcm95ZWN0b3MgQUNBIiwNCiAgICBzdWJ0aXRsZSA9ICJSYXRpbyBkZSBDdWxtaW5hY2nDs24gcG9yIFBhcnJvcXVpYSDigKIgQW7DoWxpc2lzIGRlIFJlc3VsdGFkb3MiLA0KICAgIGNhcHRpb24gPSAiRnVlbnRlOiBFbGFib3JhY2nDs24gcHJvcGlhIOKAoiBXaWxsaWFtIEEuIEd1dGnDqXJyZXogVi4g4oCiIEVzY2FsYTogMSAoQmFqYSkgYSA0IChNdXkgQWx0YSkiDQogICkgKw0KICB0ZW1hX21hcGFfcHJvZmVzaW9uYWwNCg0KcHJpbnQobWFwYV9lZmVjdGl2aWRhZF9wcm8pDQoNCiMgTUFQQSAzOiBUaXBvcyBkZSBjb211bmEgY29uIGVzdGFkw61zdGljYXMgaW50ZWdyYWRhcw0KbWFwYV90aXBvc19jb211bmFfcHJvIDwtIGdncGxvdCgpICsNCiAgZ2VvbV9zZihkYXRhID0gcGFycm9xdWlhc19wcm95ZWN0b3MgJT4lIGZpbHRlcighaXMubmEoVGlwb19Db211bmEpKSwgDQogICAgICAgICAgYWVzKGZpbGwgPSBUaXBvX0NvbXVuYSksIA0KICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwgDQogICAgICAgICAgc2l6ZSA9IDAuMikgKw0KICBnZW9tX3NmKGRhdGEgPSBtZXJpZGFfZXN0YWRvLCANCiAgICAgICAgICBmaWxsID0gTkEsIA0KICAgICAgICAgIGNvbG9yID0gIiMyYzNlNTAiLCANCiAgICAgICAgICBzaXplID0gMS41KSArDQogIHNjYWxlX2ZpbGxfbWFudWFsKA0KICAgIG5hbWUgPSAiVGlwbyBkZVxuQ29tdW5hIiwNCiAgICB2YWx1ZXMgPSBjb2xvcmVzX2VzdGFkb19tZXJpZGEsDQogICAgbmEudmFsdWUgPSAiZ3JleTk1IiwNCiAgICBndWlkZSA9IGd1aWRlX2xlZ2VuZCgNCiAgICAgIHRpdGxlLnBvc2l0aW9uID0gInRvcCIsDQogICAgICBrZXl3aWR0aCA9IHVuaXQoMS41LCAiY20iKSwNCiAgICAgIGtleWhlaWdodCA9IHVuaXQoMSwgImNtIiksDQogICAgICBvdmVycmlkZS5hZXMgPSBsaXN0KHNpemUgPSAwKQ0KICAgICkNCiAgKSArDQogIGFubm90YXRpb25fc2NhbGUobG9jYXRpb24gPSAiYnIiLCB3aWR0aF9oaW50ID0gMC4zLCB0ZXh0X2NleCA9IDEuMSwgdGV4dF9mYWNlID0gImJvbGQiKSArDQogIGFubm90YXRpb25fbm9ydGhfYXJyb3cobG9jYXRpb24gPSAidGwiLCBzdHlsZSA9IG5vcnRoX2Fycm93X2ZhbmN5X29yaWVudGVlcmluZywNCiAgICAgICAgICAgICAgICAgICAgICAgICBoZWlnaHQgPSB1bml0KDEuOCwgImNtIiksIHdpZHRoID0gdW5pdCgxLjgsICJjbSIpKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSAiQ2xhc2lmaWNhY2nDs24gVGVycml0b3JpYWwgZGUgQ29tdW5hcyIsDQogICAgc3VidGl0bGUgPSAiVGlwb2xvZ8OtYSBPcmdhbml6YWNpb25hbCBkZWwgRXN0YWRvIE3DqXJpZGEg4oCiIEFuw6FsaXNpcyBJbnN0aXR1Y2lvbmFsIiwNCiAgICBjYXB0aW9uID0gIkZ1ZW50ZTogRWxhYm9yYWNpw7NuIHByb3BpYSDigKIgQ2xhc2lmaWNhY2nDs24gYmFzYWRhIGVuIGPDs2RpZ29zIGRlIGNvbXVuYSINCiAgKSArDQogIHRlbWFfbWFwYV9wcm9mZXNpb25hbA0KDQpwcmludChtYXBhX3RpcG9zX2NvbXVuYV9wcm8pDQoNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQojIEZBU0UgNDogTUFQQVMgQVZBTlpBRE9TIFkgQU7DgUxJU0lTIE1VTFRJLUVTQ0FMQQ0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbi0tLSBDUkVBTkRPIE1BUEFTIEFWQU5aQURPUyAtLS1cbiIpDQoNCiMgTUFQQSA0OiBBbsOhbGlzaXMgbXVuaWNpcGFsIGNvbiBwb2JsYWNpw7NuDQpkYXRvc19tdW5pY2lwYWxlcyA8LSBkZl9yYXcgJT4lDQogIG11dGF0ZShDb2RpZ29fTXVuaWNpcGFsID0gc3RyX3N1YihDT0RfVUJJR0VPLCAxLCA0KSkgJT4lDQogIGdyb3VwX2J5KENvZGlnb19NdW5pY2lwYWwpICU+JQ0KICBzdW1tYXJpc2UoDQogICAgdG90YWxfcHJveWVjdG9zID0gbigpLA0KICAgIHRvdGFsX2NvbXVuYXMgPSBuX2Rpc3RpbmN0KElEX0NPTVVOQSksDQogICAgcmF0aW9fcHJvbWVkaW8gPSBtZWFuKFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8sIG5hLnJtID0gVFJVRSksDQogICAgdGlwb19jb211bmFfZG9taW5hbnRlID0gbmFtZXMoc29ydCh0YWJsZShUaXBvX0NvbXVuYSksIGRlY3JlYXNpbmcgPSBUUlVFKSlbMV0sDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApDQoNCm11bmljaXBpb3NfZW5yaXF1ZWNpZG9zIDwtIG11bmljaXBpb3Nfc2YgJT4lDQogIGxlZnRfam9pbihkYXRvc19tdW5pY2lwYWxlcywgYnkgPSBjKCJJRF9NVU5JQ0lQIiA9ICJDb2RpZ29fTXVuaWNpcGFsIikpDQoNCm1hcGFfbXVuaWNpcGFsX3BybyA8LSBnZ3Bsb3QoKSArDQogIGdlb21fc2YoZGF0YSA9IG11bmljaXBpb3NfZW5yaXF1ZWNpZG9zLCANCiAgICAgICAgICBhZXMoZmlsbCA9IHRvdGFsX3Byb3llY3RvcyksIA0KICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwgDQogICAgICAgICAgc2l6ZSA9IDAuNCkgKw0KICBnZW9tX3NmKGRhdGEgPSBtZXJpZGFfZXN0YWRvLCANCiAgICAgICAgICBmaWxsID0gTkEsIA0KICAgICAgICAgIGNvbG9yID0gIiMyYzNlNTAiLCANCiAgICAgICAgICBzaXplID0gMS41KSArDQogIGdlb21fc2ZfdGV4dChkYXRhID0gbXVuaWNpcGlvc19lbnJpcXVlY2lkb3MgJT4lIGZpbHRlcighaXMubmEodG90YWxfcHJveWVjdG9zKSksIA0KICAgICAgICAgICAgICAgYWVzKGxhYmVsID0gc3RyX3dyYXAoRklSU1RfTVVOSSwgMTIpKSwgDQogICAgICAgICAgICAgICBzaXplID0gMywgY29sb3IgPSAiIzJjM2U1MCIsIGZvbnRmYWNlID0gImJvbGQiLA0KICAgICAgICAgICAgICAgY2hlY2tfb3ZlcmxhcCA9IFRSVUUpICsNCiAgc2NhbGVfZmlsbF9ncmFkaWVudDIoDQogICAgbmFtZSA9ICJQcm95ZWN0b3NcbkFDQSIsDQogICAgbG93ID0gIiNlZmYzZmYiLCANCiAgICBtaWQgPSAiIzZiYWVkNiIsIA0KICAgIGhpZ2ggPSAiIzA4NTE5YyIsDQogICAgbWlkcG9pbnQgPSBtZWRpYW4obXVuaWNpcGlvc19lbnJpcXVlY2lkb3MkdG90YWxfcHJveWVjdG9zLCBuYS5ybSA9IFRSVUUpLA0KICAgIG5hLnZhbHVlID0gImdyZXk5NSIsDQogICAgZ3VpZGUgPSBndWlkZV9jb2xvcmJhcigNCiAgICAgIHRpdGxlLnBvc2l0aW9uID0gInRvcCIsDQogICAgICBiYXJ3aWR0aCA9IDEuNSwNCiAgICAgIGJhcmhlaWdodCA9IDEyDQogICAgKQ0KICApICsNCiAgYW5ub3RhdGlvbl9zY2FsZShsb2NhdGlvbiA9ICJiciIsIHdpZHRoX2hpbnQgPSAwLjMsIHRleHRfY2V4ID0gMS4xLCB0ZXh0X2ZhY2UgPSAiYm9sZCIpICsNCiAgYW5ub3RhdGlvbl9ub3J0aF9hcnJvdyhsb2NhdGlvbiA9ICJ0bCIsIHN0eWxlID0gbm9ydGhfYXJyb3dfZmFuY3lfb3JpZW50ZWVyaW5nLA0KICAgICAgICAgICAgICAgICAgICAgICAgIGhlaWdodCA9IHVuaXQoMS44LCAiY20iKSwgd2lkdGggPSB1bml0KDEuOCwgImNtIikpICsNCiAgbGFicygNCiAgICB0aXRsZSA9ICJEaXN0cmlidWNpw7NuIE11bmljaXBhbCBkZSBQcm95ZWN0b3MgQUNBIiwNCiAgICBzdWJ0aXRsZSA9ICJBbsOhbGlzaXMgUmVnaW9uYWwg4oCiIDIzIE11bmljaXBpb3MgZGVsIEVzdGFkbyBNw6lyaWRhIiwNCiAgICBjYXB0aW9uID0gIkZ1ZW50ZTogRWxhYm9yYWNpw7NuIHByb3BpYSDigKIgSW5jbHV5ZSBub21icmVzIG11bmljaXBhbGVzIHBhcmEgcmVmZXJlbmNpYSBnZW9ncsOhZmljYSINCiAgKSArDQogIHRlbWFfbWFwYV9wcm9mZXNpb25hbA0KDQpwcmludChtYXBhX211bmljaXBhbF9wcm8pDQoNCiMgTUFQQSA1OiBNYXBhIGRlIGRlbnNpZGFkIGNvbiBjZW50cm9zIHBvYmxhZG9zDQpjZW50cm9zX2Nvbl9kYXRvcyA8LSBjZW50cm9zX3NmICU+JQ0KICBtdXRhdGUoDQogICAgQ09EX1BBUlJPUVVJQSA9IHN0cl9wYWQoc3RyX3N1Yihhcy5jaGFyYWN0ZXIoQ09ESUdPX0NQKSwgMSwgNiksIDYsIHBhZCA9ICIwIikNCiAgKSAlPiUNCiAgbGVmdF9qb2luKA0KICAgIHBhcnJvcXVpYXNfcHJveWVjdG9zICU+JSANCiAgICAgIHN0X2Ryb3BfZ2VvbWV0cnkoKSAlPiUNCiAgICAgIGdyb3VwX2J5KElEKSAlPiUNCiAgICAgIHN1bW1hcmlzZSgNCiAgICAgICAgcHJveWVjdG9zX3BhcnJvcXVpYSA9IGZpcnN0KG5fcHJveWVjdG9zKSwNCiAgICAgICAgZWZlY3RpdmlkYWRfcGFycm9xdWlhID0gZmlyc3QoUkFUSU9fQUNBX1BST1lFQ1RPX0NVTE1JTkFETyksDQogICAgICAgIHRpcG9fY29tdW5hX3BhcnJvcXVpYSA9IGZpcnN0KFRpcG9fQ29tdW5hKSwNCiAgICAgICAgLmdyb3VwcyA9ICJkcm9wIg0KICAgICAgKSwNCiAgICBieSA9IGMoIkNPRF9QQVJST1FVSUEiID0gIklEIikNCiAgKSAlPiUNCiAgZmlsdGVyKCFpcy5uYShwcm95ZWN0b3NfcGFycm9xdWlhKSkNCg0KbWFwYV9kZW5zaWRhZF9wcm8gPC0gZ2dwbG90KCkgKw0KICBnZW9tX3NmKGRhdGEgPSBwYXJyb3F1aWFzX3Byb3llY3RvcywgDQogICAgICAgICAgYWVzKGZpbGwgPSBuX3Byb3llY3RvcyksIA0KICAgICAgICAgIGNvbG9yID0gIndoaXRlIiwgDQogICAgICAgICAgc2l6ZSA9IDAuMSwgDQogICAgICAgICAgYWxwaGEgPSAwLjcpICsNCiAgZ2VvbV9zZihkYXRhID0gY2VudHJvc19jb25fZGF0b3MsIA0KICAgICAgICAgIGFlcyhzaXplID0gcHJveWVjdG9zX3BhcnJvcXVpYSwgDQogICAgICAgICAgICAgIGNvbG9yID0gZWZlY3RpdmlkYWRfcGFycm9xdWlhKSwgDQogICAgICAgICAgYWxwaGEgPSAwLjgpICsNCiAgZ2VvbV9zZihkYXRhID0gbWVyaWRhX2VzdGFkbywgDQogICAgICAgICAgZmlsbCA9IE5BLCANCiAgICAgICAgICBjb2xvciA9ICIjMmMzZTUwIiwgDQogICAgICAgICAgc2l6ZSA9IDEuNSkgKw0KICBzY2FsZV9maWxsX3ZpcmlkaXNfYygNCiAgICBuYW1lID0gIlByb3llY3Rvc1xuKEJhc2UpIiwNCiAgICBvcHRpb24gPSAicGxhc21hIiwNCiAgICBuYS52YWx1ZSA9ICJncmV5OTUiLA0KICAgIHRyYW5zID0gInNxcnQiLA0KICAgIGd1aWRlID0gZ3VpZGVfY29sb3JiYXIoDQogICAgICB0aXRsZS5wb3NpdGlvbiA9ICJ0b3AiLA0KICAgICAgYmFyd2lkdGggPSAxLA0KICAgICAgYmFyaGVpZ2h0ID0gOA0KICAgICkNCiAgKSArDQogIHNjYWxlX3NpemVfY29udGludW91cygNCiAgICBuYW1lID0gIkludGVuc2lkYWRcbihQdW50b3MpIiwNCiAgICByYW5nZSA9IGMoMSwgNCksDQogICAgZ3VpZGUgPSBndWlkZV9sZWdlbmQoDQogICAgICB0aXRsZS5wb3NpdGlvbiA9ICJ0b3AiLA0KICAgICAgb3ZlcnJpZGUuYWVzID0gbGlzdChjb2xvciA9ICIjMmMzZTUwIikNCiAgICApDQogICkgKw0KICBzY2FsZV9jb2xvcl9ncmFkaWVudDIoDQogICAgbmFtZSA9ICJFZmVjdGl2aWRhZFxuKENvbG9yKSIsDQogICAgbG93ID0gIiNkNzMwMjciLCANCiAgICBtaWQgPSAiI2ZlZTA4YiIsIA0KICAgIGhpZ2ggPSAiIzFhOTg1MCIsDQogICAgbWlkcG9pbnQgPSAyLjUsDQogICAgZ3VpZGUgPSBndWlkZV9jb2xvcmJhcigNCiAgICAgIHRpdGxlLnBvc2l0aW9uID0gInRvcCIsDQogICAgICBiYXJ3aWR0aCA9IDEsDQogICAgICBiYXJoZWlnaHQgPSA4DQogICAgKQ0KICApICsNCiAgYW5ub3RhdGlvbl9zY2FsZShsb2NhdGlvbiA9ICJiciIsIHdpZHRoX2hpbnQgPSAwLjI1LCB0ZXh0X2NleCA9IDEsIHRleHRfZmFjZSA9ICJib2xkIikgKw0KICBhbm5vdGF0aW9uX25vcnRoX2Fycm93KGxvY2F0aW9uID0gInRsIiwgc3R5bGUgPSBub3J0aF9hcnJvd19mYW5jeV9vcmllbnRlZXJpbmcsDQogICAgICAgICAgICAgICAgICAgICAgICAgaGVpZ2h0ID0gdW5pdCgxLjUsICJjbSIpLCB3aWR0aCA9IHVuaXQoMS41LCAiY20iKSkgKw0KICBsYWJzKA0KICAgIHRpdGxlID0gIkFuw6FsaXNpcyBNdWx0aS1lc2NhbGE6IFBhcnJvcXVpYXMgeSBDZW50cm9zIFBvYmxhZG9zIiwNCiAgICBzdWJ0aXRsZSA9ICJEZW5zaWRhZCBUZXJyaXRvcmlhbCDigKIgRG9ibGUgUmVwcmVzZW50YWNpw7NuIEVzcGFjaWFsIiwNCiAgICBjYXB0aW9uID0gIkZ1ZW50ZTogRWxhYm9yYWNpw7NuIHByb3BpYSDigKIgQmFzZTogUGFycm9xdWlhcywgT3ZlcmxheTogQ2VudHJvcyBwb2JsYWRvcyINCiAgKSArDQogIHRlbWFfbWFwYV9wcm9mZXNpb25hbCArDQogIHRoZW1lKGxlZ2VuZC5ib3ggPSAidmVydGljYWwiKQ0KDQpwcmludChtYXBhX2RlbnNpZGFkX3BybykNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgRkFTRSA1OiBNQVBBUyBDT01QTEVNRU5UQVJJT1MgQ09OIE5VRVZPUyBBTsOBTElTSVMNCiMgPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09DQoNCiMgTUFQQSA2OiBEaXZlcnNpZGFkIGRlIHRpcG9sb2fDrWFzIHBvciB0ZXJyaXRvcmlvDQpkaXZlcnNpZGFkX3BhcnJvcXVpYWwgPC0gcGFycm9xdWlhc19wcm95ZWN0b3MgJT4lDQogIHN0X2Ryb3BfZ2VvbWV0cnkoKSAlPiUNCiAgZmlsdGVyKCFpcy5uYShDTEFTSUZJQ0FDScOTTl9ERUxfTlVET19DUklUSUNPX1RJUE9MT0dJQV9DRkcpKSAlPiUNCiAgZ3JvdXBfYnkoSUQsIFBBUlJPUVVJQSwgTVVOSUNJUElPKSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIG5fcHJveWVjdG9zID0gbigpLA0KICAgIGRpdmVyc2lkYWRfdGlwb2xvZ2lhcyA9IG5fZGlzdGluY3QoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHKSwNCiAgICBzaGFubm9uX3RpcG9sb2dpYSA9IHZlZ2FuOjpkaXZlcnNpdHkodGFibGUoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHKSksDQogICAgdGlwb2xvZ2lhX3ByaW5jaXBhbCA9IG5hbWVzKHNvcnQodGFibGUoQ0xBU0lGSUNBQ0nDk05fREVMX05VRE9fQ1JJVElDT19USVBPTE9HSUFfQ0ZHKSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGRlY3JlYXNpbmcgPSBUUlVFKSlbMV0sDQogICAgLmdyb3VwcyA9ICJkcm9wIg0KICApDQoNCnBhcnJvcXVpYXNfZGl2ZXJzaWRhZCA8LSBwYXJyb3F1aWFzX3NmICU+JQ0KICBsZWZ0X2pvaW4oZGl2ZXJzaWRhZF9wYXJyb3F1aWFsLCBieSA9ICJJRCIpDQoNCm1hcGFfZGl2ZXJzaWRhZF9wcm8gPC0gZ2dwbG90KCkgKw0KICBnZW9tX3NmKGRhdGEgPSBwYXJyb3F1aWFzX2RpdmVyc2lkYWQsIA0KICAgICAgICAgIGFlcyhmaWxsID0gc2hhbm5vbl90aXBvbG9naWEpLCANCiAgICAgICAgICBjb2xvciA9ICJ3aGl0ZSIsIA0KICAgICAgICAgIHNpemUgPSAwLjIpICsNCiAgZ2VvbV9zZihkYXRhID0gbWVyaWRhX2VzdGFkbywgDQogICAgICAgICAgZmlsbCA9IE5BLCANCiAgICAgICAgICBjb2xvciA9ICIjMmMzZTUwIiwgDQogICAgICAgICAgc2l6ZSA9IDEuNSkgKw0KICBzY2FsZV9maWxsX3ZpcmlkaXNfYygNCiAgICBuYW1lID0gIkRpdmVyc2lkYWRcblNoYW5ub25cbihIJykiLA0KICAgIG9wdGlvbiA9ICJjaXZpZGlzIiwNCiAgICBuYS52YWx1ZSA9ICJncmV5OTUiLA0KICAgIGJyZWFrcyA9IHByZXR0eV9icmVha3MobiA9IDUpLA0KICAgIGd1aWRlID0gZ3VpZGVfY29sb3JiYXIoDQogICAgICB0aXRsZS5wb3NpdGlvbiA9ICJ0b3AiLA0KICAgICAgYmFyd2lkdGggPSAxLjUsDQogICAgICBiYXJoZWlnaHQgPSAxMg0KICAgICkNCiAgKSArDQogIGFubm90YXRpb25fc2NhbGUobG9jYXRpb24gPSAiYnIiLCB3aWR0aF9oaW50ID0gMC4zLCB0ZXh0X2NleCA9IDEuMSwgdGV4dF9mYWNlID0gImJvbGQiKSArDQogIGFubm90YXRpb25fbm9ydGhfYXJyb3cobG9jYXRpb24gPSAidGwiLCBzdHlsZSA9IG5vcnRoX2Fycm93X2ZhbmN5X29yaWVudGVlcmluZywNCiAgICAgICAgICAgICAgICAgICAgICAgICBoZWlnaHQgPSB1bml0KDEuOCwgImNtIiksIHdpZHRoID0gdW5pdCgxLjgsICJjbSIpKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSAiRGl2ZXJzaWRhZCBkZSBOdWRvcyBDcsOtdGljb3MgcG9yIFRlcnJpdG9yaW8iLA0KICAgIHN1YnRpdGxlID0gIsONbmRpY2UgZGUgU2hhbm5vbiBwYXJhIFRpcG9sb2fDrWFzIENGRyDigKIgQW7DoWxpc2lzIGRlIFZhcmllZGFkIFRlbcOhdGljYSIsDQogICAgY2FwdGlvbiA9ICJGdWVudGU6IEVsYWJvcmFjacOzbiBwcm9waWEg4oCiIFZhbG9yZXMgYWx0b3MgPSBtYXlvciBkaXZlcnNpZGFkIHByb2JsZW3DoXRpY2EiDQogICkgKw0KICB0ZW1hX21hcGFfcHJvZmVzaW9uYWwNCg0KcHJpbnQobWFwYV9kaXZlcnNpZGFkX3BybykNCg0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCiMgRkFTRSA2OiBQQU5FTCBJTlRFR1JBRE8gWSBDT01QQVJBVElWTw0KIyA9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT0NCg0KY2F0KCJcbi0tLSBDUkVBTkRPIFBBTkVMIENPTVBBUkFUSVZPIEZJTkFMIC0tLVxuIikNCg0KIyBDcmVhciBwYW5lbCBkZSAyeDMgY29uIGxvcyBtZWpvcmVzIG1hcGFzDQpwYW5lbF90ZXJyaXRvcmlhbCA8LSAobWFwYV9kaXN0cmlidWNpb25fcHJvICsgbWFwYV9lZmVjdGl2aWRhZF9wcm8pIC8gDQogICAgICAgICAgICAgICAgICAgIChtYXBhX3RpcG9zX2NvbXVuYV9wcm8gKyBtYXBhX211bmljaXBhbF9wcm8pIC8NCiAgICAgICAgICAgICAgICAgICAgKG1hcGFfZGVuc2lkYWRfcHJvICsgbWFwYV9kaXZlcnNpZGFkX3BybykNCg0KcGFuZWxfdGVycml0b3JpYWwgPC0gcGFuZWxfdGVycml0b3JpYWwgKyANCiAgcGxvdF9hbm5vdGF0aW9uKA0KICAgIHRpdGxlID0gIkFOw4FMSVNJUyBURVJSSVRPUklBTCBJTlRFR1JBTCAtIFBST1lFQ1RPUyBBQ0EgRVNUQURPIE3DiVJJREEiLA0KICAgIHN1YnRpdGxlID0gIkRpc3RyaWJ1Y2nDs24sIEVmZWN0aXZpZGFkLCBUaXBvbG9nw61hcyB5IEFuw6FsaXNpcyBNdWx0aS1lc2NhbGEiLA0KICAgIGNhcHRpb24gPSAiRWxhYm9yYWNpw7NuOiBXaWxsaWFtIEEuIEd1dGnDqXJyZXogVi4gfCBGdWVudGU6IEFnZW5kYXMgQ29uY3JldGFzIGRlIEFjY2nDs24gMjAxOS0yMDI1IiwNCiAgICB0aGVtZSA9IHRoZW1lKA0KICAgICAgcGxvdC50aXRsZSA9IGVsZW1lbnRfdGV4dChzaXplID0gMjAsIGZhY2UgPSAiYm9sZCIsIGhqdXN0ID0gMC41LCBjb2xvciA9ICIjMmMzZTUwIiksDQogICAgICBwbG90LnN1YnRpdGxlID0gZWxlbWVudF90ZXh0KHNpemUgPSAxNiwgaGp1c3QgPSAwLjUsIGNvbG9yID0gIiMzNDQ5NWUiKSwNCiAgICAgIHBsb3QuY2FwdGlvbiA9IGVsZW1lbnRfdGV4dChzaXplID0gMTIsIGhqdXN0ID0gMSwgY29sb3IgPSAiIzdmOGM4ZCIpDQogICAgKQ0KICApDQoNCnByaW50KHBhbmVsX3RlcnJpdG9yaWFsKQ0KDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KIyBGQVNFIDc6IEVTVEFEw41TVElDQVMgWSBSRVNVTUVOIEZJTkFMDQojID09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PQ0KDQpjYXQoIlxuLS0tIEdFTkVSQU5ETyBFU1RBRMONU1RJQ0FTIFRFUlJJVE9SSUFMRVMgLS0tXG4iKQ0KDQojIEVzdGFkw61zdGljYXMgY29tcHJlaGVuc2l2YXMNCmVzdGFkaXN0aWNhc190ZXJyaXRvcmlhbGVzIDwtIGxpc3QoDQogIGNvYmVydHVyYV9nZW5lcmFsID0gcGFycm9xdWlhc19wcm95ZWN0b3MgJT4lDQogICAgc3RfZHJvcF9nZW9tZXRyeSgpICU+JQ0KICAgIHN1bW1hcmlzZSgNCiAgICAgIHRvdGFsX3BhcnJvcXVpYXMgPSBuX2Rpc3RpbmN0KElEKSwNCiAgICAgIHBhcnJvcXVpYXNfY29uX3Byb3llY3RvcyA9IHN1bSghaXMubmEobl9wcm95ZWN0b3MpKSwNCiAgICAgIGNvYmVydHVyYV9wY3QgPSByb3VuZChwYXJyb3F1aWFzX2Nvbl9wcm95ZWN0b3MgLyB0b3RhbF9wYXJyb3F1aWFzICogMTAwLCAxKSwNCiAgICAgIHRvdGFsX3Byb3llY3RvcyA9IHN1bShuX3Byb3llY3RvcywgbmEucm0gPSBUUlVFKQ0KICAgICksDQogIA0KICBwb3JfdGlwb19jb211bmEgPSBwYXJyb3F1aWFzX3Byb3llY3RvcyAlPiUNCiAgICBzdF9kcm9wX2dlb21ldHJ5KCkgJT4lDQogICAgZmlsdGVyKCFpcy5uYShUaXBvX0NvbXVuYSkpICU+JQ0KICAgIGdyb3VwX2J5KFRpcG9fQ29tdW5hKSAlPiUNCiAgICBzdW1tYXJpc2UoDQogICAgICBuX3BhcnJvcXVpYXMgPSBuX2Rpc3RpbmN0KElEKSwNCiAgICAgIHRvdGFsX3Byb3llY3RvcyA9IG4oKSwNCiAgICAgIHByb3llY3Rvc19wcm9tZWRpbyA9IHJvdW5kKG1lYW4obl9wcm95ZWN0b3MsIG5hLnJtID0gVFJVRSksIDIpLA0KICAgICAgZWZlY3RpdmlkYWRfcHJvbWVkaW8gPSByb3VuZChtZWFuKFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8sIG5hLnJtID0gVFJVRSksIDIpLA0KICAgICAgLmdyb3VwcyA9ICJkcm9wIg0KICAgICksDQogIA0KICByYW5raW5nX3BhcnJvcXVpYXMgPSBwYXJyb3F1aWFzX3Byb3llY3RvcyAlPiUNCiAgICBzdF9kcm9wX2dlb21ldHJ5KCkgJT4lDQogICAgZmlsdGVyKCFpcy5uYShuX3Byb3llY3RvcykpICU+JQ0KICAgIGFycmFuZ2UoZGVzYyhuX3Byb3llY3RvcykpICU+JQ0KICAgIGhlYWQoMTApICU+JQ0KICAgIHNlbGVjdChQQVJST1FVSUEsIE1VTklDSVBJTywgbl9wcm95ZWN0b3MsIFJBVElPX0FDQV9QUk9ZRUNUT19DVUxNSU5BRE8sIFRpcG9fQ29tdW5hKQ0KKQ0KDQojIE1vc3RyYXIgZXN0YWTDrXN0aWNhcw0KY2F0KCJcbj09PSBSRVNVTUVOIEVTVEFEw41TVElDTyBURVJSSVRPUklBTCA9PT1cbiIpDQpjYXQoIkNvYmVydHVyYToiLCBlc3RhZGlzdGljYXNfdGVycml0b3JpYWxlcyRjb2JlcnR1cmFfZ2VuZXJhbCRjb2JlcnR1cmFfcGN0LCAiJVxuIikNCmNhdCgiUHJveWVjdG9zIHRvdGFsZXM6IiwgZXN0YWRpc3RpY2FzX3RlcnJpdG9yaWFsZXMkY29iZXJ0dXJhX2dlbmVyYWwkdG90YWxfcHJveWVjdG9zLCAiXG4iKQ0KcHJpbnQoZXN0YWRpc3RpY2FzX3RlcnJpdG9yaWFsZXMkcG9yX3RpcG9fY29tdW5hKQ0KcHJpbnQoZXN0YWRpc3RpY2FzX3RlcnJpdG9yaWFsZXMkcmFua2luZ19wYXJyb3F1aWFzKQ0KDQojIEV4cG9ydGFyIG1hcGFzIG1lam9yYWRvcw0KZ2dzYXZlKCJtYXBhXzAxX2Rpc3RyaWJ1Y2lvbl9wcm9mZXNpb25hbC5wbmciLCBtYXBhX2Rpc3RyaWJ1Y2lvbl9wcm8sIA0KICAgICAgIHdpZHRoID0gMTQsIGhlaWdodCA9IDExLCBkcGkgPSAzMDAsIGJnID0gIndoaXRlIikNCmdnc2F2ZSgibWFwYV8wMl9lZmVjdGl2aWRhZF9wcm9mZXNpb25hbC5wbmciLCBtYXBhX2VmZWN0aXZpZGFkX3BybywgDQogICAgICAgd2lkdGggPSAxNCwgaGVpZ2h0ID0gMTEsIGRwaSA9IDMwMCwgYmcgPSAid2hpdGUiKQ0KZ2dzYXZlKCJtYXBhXzAzX3RpcG9zX2NvbXVuYV9wcm9mZXNpb25hbC5wbmciLCBtYXBhX3RpcG9zX2NvbXVuYV9wcm8sIA0KICAgICAgIHdpZHRoID0gMTQsIGhlaWdodCA9IDExLCBkcGkgPSAzMDAsIGJnID0gIndoaXRlIikNCmdnc2F2ZSgibWFwYV8wNF9tdW5pY2lwYWxfcHJvZmVzaW9uYWwucG5nIiwgbWFwYV9tdW5pY2lwYWxfcHJvLCANCiAgICAgICB3aWR0aCA9IDE0LCBoZWlnaHQgPSAxMSwgZHBpID0gMzAwLCBiZyA9ICJ3aGl0ZSIpDQpnZ3NhdmUoIm1hcGFfMDVfZGVuc2lkYWRfcHJvZmVzaW9uYWwucG5nIiwgbWFwYV9kZW5zaWRhZF9wcm8sIA0KICAgICAgIHdpZHRoID0gMTYsIGhlaWdodCA9IDEyLCBkcGkgPSAzMDAsIGJnID0gIndoaXRlIikNCmdnc2F2ZSgibWFwYV8wNl9kaXZlcnNpZGFkX3Byb2Zlc2lvbmFsLnBuZyIsIG1hcGFfZGl2ZXJzaWRhZF9wcm8sIA0KICAgICAgIHdpZHRoID0gMTQsIGhlaWdodCA9IDExLCBkcGkgPSAzMDAsIGJnID0gIndoaXRlIikNCmdnc2F2ZSgicGFuZWxfdGVycml0b3JpYWxfY29tcGxldG8ucG5nIiwgcGFuZWxfdGVycml0b3JpYWwsIA0KICAgICAgIHdpZHRoID0gMjQsIGhlaWdodCA9IDE4LCBkcGkgPSAzMDAsIGJnID0gIndoaXRlIikNCg0KY2F0KCJcbj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09XG4iKQ0KY2F0KCJBTsOBTElTSVMgVEVSUklUT1JJQUwgUFJPRkVTSU9OQUwgQ09NUExFVEFETyBFWElUT1NBTUVOVEVcbiIpDQpjYXQoIj09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09XG4iKQ0KY2F0KCJNQVBBUyBHRU5FUkFET1M6XG4iKQ0KY2F0KCIxLiBEaXN0cmlidWNpw7NuIHRlcnJpdG9yaWFsIGNvbiBib3JkZXMgbWVqb3JhZG9zXG4iKQ0KY2F0KCIyLiBFZmVjdGl2aWRhZCB0ZXJyaXRvcmlhbCBjb24gZXNjYWxhIG1lam9yYWRhXG4iKSANCmNhdCgiMy4gVGlwb3MgZGUgY29tdW5hIGNvbiBjb2xvcmVzIHByb2Zlc2lvbmFsZXNcbiIpDQpjYXQoIjQuIEFuw6FsaXNpcyBtdW5pY2lwYWwgY29uIGV0aXF1ZXRhc1xuIikNCmNhdCgiNS4gQW7DoWxpc2lzIG11bHRpLWVzY2FsYSAocGFycm9xdWlhcyArIGNlbnRyb3MpXG4iKQ0KY2F0KCI2LiBEaXZlcnNpZGFkIGRlIHRpcG9sb2fDrWFzIChTaGFubm9uKVxuIikNCmNhdCgiNy4gUGFuZWwgdGVycml0b3JpYWwgaW50ZWdyYWRvICgyeDMpXG4iKQ0KY2F0KCI9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PVxuIikNCmBgYA0KDQojPT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PSoqRklOKio9PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09PT09Iw0KDQoNCg==