setwd(““) Consigna:

La empresa B&C (Bienes y Casas) es una agencia de bienes raíces que opera en la ciudad de Cali, Colombia. La empresa fue fundada por Sandra Milena hace 10 años y actualmente cuenta con ocho agentes de bienes raíces.

El mercado de bienes raíces en Cali ha crecido significativamente en los últimos años, impulsado por el crecimiento de la población, la inversión extranjera directa y el desarrollo de nuevos proyectos inmobiliarios. En 2022, las ventas del sector en Cali llegaron a $6700 millones y en 2023 a $6100 mil millones. Se espera que este sector continue creciendo durante los próximos años, permitiendo un desarrollo dinámico en la economía regional.

La empresa B&C ha recogido información sobre viviendas que incluye información sobre el precio, la ubicación, las características y la venta de viviendas en Cali. Esta base de datos puede ser utilizada para realizar un informe estadístico que sería de gran interés para la empresa.

El informe estadístico podría proporcionar información sobre los siguientes temas:

Esta información sería útil para la empresa B&C para tomar decisiones sobre su negocio, tales como:

La empresa solicita un análisis descriptivo de los datos, para identificar las tendencias y patrones en los datos.

El informe debe incluir los siguientes elementos:

  1. Introducción
  2. Objetivos
  3. Métodos
  4. Resultados
  5. Discusión
  6. Conclusiones
  7. Anexos

El informe debe ser redactado en un lenguaje claro y conciso, y debe estar dirigido a los directivos de la empresa B&C.

Solicitud de entrega del informe Se debe entregar enlace de la plataforma RPubs que contenga el documento final, utilizando el formato Markdown.

El informe debe estar organizado en un único documento que contenga la introducción, los objetivos, los métodos, los resultados, la discusión y las conclusiones. Cada sección del informe debe estar numerada y debe tener un encabezado descriptivo.

Entregable Enlace del informe en RPubs, copiado en Actividad1 del curso en Bs


1. Introducción

Para los próximos años, se espera que el mercado inmobiliario en la Ciudad de Cali siga subiendo como en años anteriores, brindando oportunidades para los actores que logren identificar las características más relevantes de su comportamiento. Para aprovechar esta oportunidad, se entrega el presente informe a la junta directiva de la agencia inmobiliaria B&C. En este informe se explica de manera general el proceso de ordenamiento y limpieza de datos, y se presenta un análisis descriptivo de los datos resultantes. Para esto, después de importar el conjunto de datos, y de realizar su limpieza, fusionando, eliminando, normalizando, estandarizando o imputando datos, según fuese necesario, se realizó un análisis de los datos para presentarlos en distintos gráficos y tablas que permitirán entender mejor las características del conjunto.

Posteriormente, se presentarán los resultados de dicho análisis y se realizará una discusión sobre los descubrimientos y dificultades encontradas en los datos, para finalmente, entregar las conclusiones de todo el ejercicio. Como anexo, se podrá ver todo el codigo ejecutado en todas las partes del proceso.

A continuación, se presentan los objetivos que se buscaron con la realización de este estudio.


2. Objetivos

La inmobiliaria B&C desea tomar decisiones importantes sobre su negocio, tales como definir un nicho de mercado, desarrollar la estrategia de marketing, establecer precios de ventas y ofrecer servicios personalizados a sus clientes. Para poder lograr esto, el presente proyecto ha definido los siguientes objetivos:


3. Métodos

3.1. Análisis introductorio

Para comenzar, empezaremos importando el paquete requerido y cargando la librería y los datos con los que vamos a trabajar, de la siguiente manera:

data("vivienda_faltantes") # load data 'Vivienda_faltantes'  from  paqueteMETODOS
set.seed(689) # Fix the seed for random numbers
df <- vivienda_faltantes
df
## # A tibble: 8,330 × 13
##       id zona        piso estrato preciom areaconst parquea banios habitac tipo 
##    <dbl> <chr>      <dbl>   <dbl>   <dbl>     <dbl>   <dbl>  <dbl>   <dbl> <chr>
##  1  8312 Zona Oeste     4       6    1300       318       2      4       2 Apar…
##  2  8311 Zona Oeste     1       6     480       300       1      4       4 Casa 
##  3  8307 Zona Oeste    NA       5    1200       800       4      7       5 Casa 
##  4  8296 Zona Sur       2       3     220       150       1      2       4 Casa 
##  5  8297 Zona Oeste    NA       5     330       112       2      4       3 Casa 
##  6  8298 Zona Sur      NA       5    1350       390       8     10      10 Casa 
##  7  8299 Zona Sur       2       6     305       125       2      3       3 Apar…
##  8  8300 Zona Oeste    NA       5     480       280       4      4       4 Apar…
##  9  8286 Zona Sur      NA       5     275        74       1      2       3 Apar…
## 10  8287 Zona Sur       2       5     285       120       2      4       3 Apar…
## # ℹ 8,320 more rows
## # ℹ 3 more variables: barrio <chr>, longitud <dbl>, latitud <dbl>

Podemos observar que hay variables como id, zona, piso, estrato, preciom, areaconst, parquea, banios, habitac, tipo y 3 variables más. Cada línea proporciona información sobre un inmueble en particular. Ahora veamos cuantos datos faltantes hay en el dataset.

missing_data <- colSums(is.na(df)) %>%
                 as.data.frame() 

missing_data
##              .
## id           3
## zona         3
## piso      2641
## estrato      3
## preciom      2
## areaconst    3
## parquea   1606
## banios       3
## habitac      3
## tipo         3
## barrio       3
## longitud     3
## latitud      3
mdf <- filter(df,is.na(df$id)) %>%
                 as.data.frame()
mdf
##   id zona piso estrato preciom areaconst parquea banios habitac tipo barrio
## 1 NA <NA>   NA      NA      NA        NA      NA     NA      NA <NA>   <NA>
## 2 NA <NA>   NA      NA      NA        NA      NA     NA      NA <NA>   <NA>
## 3 NA <NA>   NA      NA     330        NA      NA     NA      NA <NA>   <NA>
##   longitud latitud
## 1       NA      NA
## 2       NA      NA
## 3       NA      NA

3.2. Limpieza de datos

3.2.1. Eliminación de registros vacíos

Eliminemos los registros con datos faltantes en la columna id, y volvamos a revisar los datos faltantes del conjunto de datos.

df <- filter(df,!is.na(df$id)) 
df
## # A tibble: 8,327 × 13
##       id zona        piso estrato preciom areaconst parquea banios habitac tipo 
##    <dbl> <chr>      <dbl>   <dbl>   <dbl>     <dbl>   <dbl>  <dbl>   <dbl> <chr>
##  1  8312 Zona Oeste     4       6    1300       318       2      4       2 Apar…
##  2  8311 Zona Oeste     1       6     480       300       1      4       4 Casa 
##  3  8307 Zona Oeste    NA       5    1200       800       4      7       5 Casa 
##  4  8296 Zona Sur       2       3     220       150       1      2       4 Casa 
##  5  8297 Zona Oeste    NA       5     330       112       2      4       3 Casa 
##  6  8298 Zona Sur      NA       5    1350       390       8     10      10 Casa 
##  7  8299 Zona Sur       2       6     305       125       2      3       3 Apar…
##  8  8300 Zona Oeste    NA       5     480       280       4      4       4 Apar…
##  9  8286 Zona Sur      NA       5     275        74       1      2       3 Apar…
## 10  8287 Zona Sur       2       5     285       120       2      4       3 Apar…
## # ℹ 8,317 more rows
## # ℹ 3 more variables: barrio <chr>, longitud <dbl>, latitud <dbl>
missing_data <- colSums(is.na(df)) %>%
                 as.data.frame() 

missing_data
##              .
## id           0
## zona         0
## piso      2638
## estrato      0
## preciom      0
## areaconst    0
## parquea   1603
## banios       0
## habitac      0
## tipo         0
## barrio       0
## longitud     0
## latitud      0

La columna id no aporta información valiosa al estudio, así que la eliminaremos. De igual forma, las variables longitud y latitud no se hacen relevantes para este estudio, dado que se trata de inmuebles en una sola ciudad y que además se tiene la variable del barrio y de la zona en el conjunto de datos. Tampoco se va a hacer una visualización de la distribución de las casas en un mapa, aunque para un análisis de otro tipo, esto si podría ser relevante. Estas también se eliminarán del conjunto.

df$latitud <- NULL
df$longitud <- NULL
df$id <- NULL
df
## # A tibble: 8,327 × 10
##    zona       piso estrato preciom areaconst parquea banios habitac tipo  barrio
##    <chr>     <dbl>   <dbl>   <dbl>     <dbl>   <dbl>  <dbl>   <dbl> <chr> <chr> 
##  1 Zona Oes…     4       6    1300       318       2      4       2 Apar… arbol…
##  2 Zona Oes…     1       6     480       300       1      4       4 Casa  norma…
##  3 Zona Oes…    NA       5    1200       800       4      7       5 Casa  miraf…
##  4 Zona Sur      2       3     220       150       1      2       4 Casa  el gu…
##  5 Zona Oes…    NA       5     330       112       2      4       3 Casa  bella…
##  6 Zona Sur     NA       5    1350       390       8     10      10 Casa  bella…
##  7 Zona Sur      2       6     305       125       2      3       3 Apar… bella…
##  8 Zona Oes…    NA       5     480       280       4      4       4 Apar… bella…
##  9 Zona Sur     NA       5     275        74       1      2       3 Apar… valle…
## 10 Zona Sur      2       5     285       120       2      4       3 Apar… bella…
## # ℹ 8,317 more rows

3.2.2. Análisis de columnas con datos faltantes

Vemos que ahora en las únicas variables en las que faltan datos son piso y parquea. Veamos qué características tienen esas variables, primero lo hacemos para piso

summary(df$piso)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
##   1.000   2.000   3.000   3.772   5.000  12.000    2638
#str(df$piso)
table(df$piso)
## 
##    1    2    3    4    5    6    7    8    9   10   11   12 
##  861 1450 1097  607  568  245  207  211  146  130   84   83

Podemos observar algunas cosas importantes. Lo primero es que hay 2638 registros sin dato en la columna piso. Lo segundo, que el menor valor es 1 y el mayor es 12, con un buen número de registros con valores altos. Por el nombre de la variable no sabemos si el valor corresponde al número del piso en el que queda el inmueble en un edificio, o el número de pisos que tiene el inmueble. Si fuera lo segundo, querría decir que hay inmuebles que tienen 12 pisos, lo que tendría sentido si fueran edificios. Si fuera lo primero, significa que hay inmuebles en el doceavo piso de un edificio, al igual que en el décimo, el noveno, y así sucesivamente, Lo que tiene mucho más sentido, dado lo extremadamente raro que sería que una casa o un apartamento tuviera 12 pisos. Para tratar de entender a que se refiere, vamos a ver primero a que tipo de inmueble corresponden los registros que tienen un número alto.

pisona <- subset(df, is.na(df$piso)) #subset pisona contains the records without value in column piso
table(pisona$tipo)
## 
## Apartamento APARTAMENTO        apto        casa        Casa        CASA 
##        1354          25           4           7        1243           5

Vemos que los registros corresponden tanto a casas como a apartamentos, y que hay diferencia en la escritura de los valores que corresponden a un mismo tipo de inmueble. También vemos que no hay edificios, luego no tendría sentido la segunda hipótesis de que la variable piso se refiere al número de pisos del inmueble. Se trata por lo tanto del piso en el que se ubica el inmueble. A continuación, voy a homogenizar los nombres de los tipos de inmueble en Apartamento y Casa solamente. En el caso de los valores apto, tendré que reemplazarlos por Apartamento.

df$tipo <- tolower(df$tipo)
table(df$tipo)
## 
## apartamento        apto        casa 
##        5093          13        3221
df$tipo <- ifelse(df$tipo == "apto", "Apartamento", ifelse(df$tipo == "apartamento", "Apartamento", ifelse(df$tipo == "casa",  "Casa", df$tipo)))
table(df$tipo)
## 
## Apartamento        Casa 
##        5106        3221

Ahora veamos nuevamente a que tipo de inmueble corresponden los registros sin piso:

pisona <- subset(df, is.na(df$piso)) #subset pisona contains the records without value in column piso
table(pisona$tipo)
## 
## Apartamento        Casa 
##        1383        1255

Se puede observar que hay suficientes registros sin valor en la variable piso (+30%). Esto puede tener sentido para las casas, por su naturaleza, pues ellas no “están” en ningún piso, al menos diferente al 1ro, pero eso no se menciona de esta manera. Lo común es que un apartamento si tenga un piso en donde esté ubicado dentro de un edificio, aunque existen apartamentos en casas que se subdividen, los cuales están por lo general en el primer piso (piso = 1) Ahora veamos la cantidad de registros con piso según su tipo:

withpiso <- subset(df, !is.na(df$piso)) #subset withpiso contains the records with value in column piso
table(withpiso$tipo)
## 
## Apartamento        Casa 
##        3723        1966

Como era de esperarse, esta cantidad está cerca al 70%. Ahora veamos como se cruza el Tipo con la los valores en la columna piso.

table(df$piso,df$tipo)
##     
##      Apartamento Casa
##   1          431  430
##   2          512  938
##   3          573  524
##   4          545   62
##   5          564    4
##   6          243    2
##   7          203    4
##   8          211    0
##   9          146    0
##   10         128    2
##   11          84    0
##   12          83    0

Ahora, retomando el análisis sobre el significado de la variable piso, si fuera el piso en el que se encuentra, tendría sentido para los Apartamentos, pero no para las casas. Si fuera la cantidad de pisos, tendría sentido para las Casas de 1, 2 y hasta 3 pisos, pues, aunque posible, existe muy poca probabilidad de casas de 10, 7, 6 y 5 pisos, e inclusive las de 4 pisos son muy escasas. Me atrevería entonces a decir que para los registros de tipo Apartamento, el valor entre 1 y 12 tiene sentido. Para los de tipo Casa, los valores altos, mayores o iguales a 4 no tienen sentido o son muy poco probables.

En estos casos entonces lo que haremos es modificar o completar la variable piso con el valor 1, para todas las casa con piso > 3 y dejaremos los de valor igual o menor que 3 como están, pues existe mayor probabilidad de que si existan. En cuanto a los Apartamentos sin valor en piso, los eliminaremos del conjunto de datos. En cuanto a los números altos de la variable piso en los registros de tipo Apartamento, no tenemos razón para dudar de ellos, luego los dejaremos como están.

Veamos como queda el dataset en estas dos variables después de hacer el cambio:

df$piso <- ifelse((df$piso > 3 | is.na(df$piso))  & df$tipo == "Casa", 1, df$piso)
df <- filter(df,!is.na(df$piso))
missing_data <- colSums(is.na(df)) %>%
                 as.data.frame() 

missing_data
##              .
## zona         0
## piso         0
## estrato      0
## preciom      0
## areaconst    0
## parquea   1271
## banios       0
## habitac      0
## tipo         0
## barrio       0

Ahora, analicemos los valores de la variable parquea, que ofrece los valores de la cantidad de parqueaderos de un inmueble. Esta es la otra variable que tiene valores en NA.

table(df$parquea,df$estrato,df$tipo )
## , ,  = Apartamento
## 
##     
##        3   4   5   6
##   1  204 701 759  85
##   2    7 102 495 595
##   3    2   3  19 148
##   4    0   2  13  45
##   5    0   0   0   3
##   6    0   0   0   2
##   7    0   0   1   0
##   8    0   0   0   0
##   9    0   0   0   0
##   10   0   0   0   0
## 
## , ,  = Casa
## 
##     
##        3   4   5   6
##   1  277 317 235  28
##   2   79 198 390 225
##   3   17  47 106  98
##   4   10  21  84 181
##   5    1   4  27  32
##   6    3   4  13  46
##   7    0   2   4  11
##   8    0   0   3  14
##   9    0   1   1   2
##   10   1   1   0   4

Según esto, hay varios inmuebles que tienen desde 5 hasta 10 parqueaderos, valores que nos hacen dudar de su veracidad. Para ciertos tipos casas, es más posible que tengan muchos “lugares donde parquear” aunque técnicamente no sean parqueaderos cubiertos. Yo desconfiaría de los valores mayores de 4 inclusive para las casas. Vemos en las tablas que para los apartamentos, solo hay 6 que tienen valores mayores a 4. Se van a eliminar. En cuanto a las casas, hay muchos más registros con valores altos (parquea > 4). Para eliminar los valores atípicos, vamos a asignarles el valor de 4 a dichos registros. En cuanto a los que no tienen dato, vamos a asumir que no tienen parqueadero, por lo tanto les pondremos el valor de cero.

df$parquea <- ifelse(df$parquea > 4, 4,  df$parquea)
df$parquea <- ifelse(is.na(df$parquea), 0, df$parquea)
table(df$parquea,df$estrato,df$tipo )
## , ,  = Apartamento
## 
##    
##       3   4   5   6
##   0 228 248  42  19
##   1 204 701 759  85
##   2   7 102 495 595
##   3   2   3  19 148
##   4   0   2  14  50
## 
## , ,  = Casa
## 
##    
##       3   4   5   6
##   0 426 132 121  55
##   1 277 317 235  28
##   2  79 198 390 225
##   3  17  47 106  98
##   4  15  33 132 290
sum(is.na(df$parquea))
## [1] 0

3.2.3. Análisis y limpieza de registros con valores atípicos

Habiendo eliminado del dataset todos los registros con datos vacíos, ahora vamos a analizar las otras variables del conjunto. Visualizaremos en gráficos de cajas y bigotes la distribución de las variables numéricas.

numeric_columns <- names(df)[sapply(df, is.numeric)]
no_columns <- c("piso","estrato","parquea") #,"longitud", "latitud")
numeric_columns <- setdiff(numeric_columns, no_columns)
lapply(numeric_columns, function(variable) {
  ggplot(df, aes_string(x = variable)) +
    geom_boxplot() +
    labs(title = paste0("Boxplot para la columna: ", variable))
})
## [[1]]

## 
## [[2]]

## 
## [[3]]

## 
## [[4]]

Podemos ver que las variables preciom y areaconst tienen una gran cantidad de valores atípicos, y también que según los datos, hay inmuebles con 8, 9 y 10 baños, así como también con 0 habitaciones o con hasta 10 habitaciones. En cuanto a las variables longitud y latitud, parece que hubiera errores en los datos, pues su distribución, al ser los datos de inmuebles en una misma ciudad, deberían ser muy similares y no con diferencias tan grandes entre sus valores.

Vamos entonces a revisar si los valores de estas variables para esos registros son coherentes, por ejemplo, las casas con muchos baños o muchas habitaciones deberían ser las casas con un área construida mayor y también con más altos precios.

Antes de profundizar en el análisis, eliminaremos los registros con datos no lógicos, como areaconst = 0, habitac = 0 o baños = 0.

df <- filter(df, df$banios != 0)
df <- filter(df, df$habitac != 0)
df <- filter(df, df$areaconst != 0)
numeric_columns <- names(df)[sapply(df, is.numeric)]
exclude_columns <- c("piso","estrato","parquea") #,"longitud", "latitud")
numeric_columns <- setdiff(numeric_columns, exclude_columns)
cov_matrix <- cov(df[, numeric_columns])
atipicos <- mahalanobis(df[, numeric_columns], center = TRUE, cov = cov_matrix)
length(atipicos)
## [1] 6875

Veamos la relación entre las variables preciom, banios, areaconst y habitac. Se espera que entre más área construida, el valor sea mas alto, o que entre más habitaciones existan, hayan más baños, y de igual manera, que entre más habitaciones y baños, mas área construida tenga, al igual que mayor sea el precio. Comportamientos diferentes a estos, si bien pueden ser posibles en la práctica, son poco probables y alteran la homogeneidad de los datos. Para este estudio, si son pocos estos valores atípicos, se eliminarán.

Se representarán gráficamente las distancias de Mahalanobis, que es una medida de la distancia entre un punto y una distribución multivariante. Es una medida útil para detectar valores atípicos en un conjunto de datos multidimensional.La distancia es una medida de la distancia en unidades de desviaciones estándar, por lo tanto, un valor alto de la distancia indica que el punto esta lejos de la distribución multivariante. Típicamente, los puntos con una distancia mayor a 3 se consideran atípicos. La distancia Mahalanobis no se afecta por la escala de las variables y es sensible a la correlación entre las variables.

#ggplot(df, aes_string(x = "preciom", y = "areaconst", color = "atipicos")) +
#  geom_point() +
#  scale_color_continuous(low = "white", high = "blue") +
#  labs(x = "Precio", y = "Área construida", color = "Distancia de Mahalanobis")

ggplot(df, aes_string(x = 'preciom', y = 'areaconst', color = 'atipicos')) +
  geom_point() +
  scale_color_continuous(low = "white", high = "blue") +
  labs(x = "Precio", y = "Area construida", color = "Distancia de Mahalanobis")

En el gráfico anterior se pueden ver algunos datos que no son lógicos pues se asume una relación directamente proporcional entre el precio y el área construida de una casa. Por ejemplo, hay un registro de 1750 metros cuadrados construidos con un valor de 250 millones. Se esperaría que para un área tan grande, el precio estuviera entre los más altos y por el contrario está entre los más bajos. También se ve el caso contrario, en el que el precio es muy alto para tan poca área construida. Aunque no se están teniendo en cuenta otras variables, como por ejemplo el estrato o el barrio, siempre hay una relación directa entre el tamaño y el valor que debe considerarse. En un estudio más detallado se podrían tener en cuenta los cruces entre estas cuatro variables mencionadas, o inclusive también con la cantidad de baños y de habitaciones.

ggplot(df, aes_string(x = "banios", y = "areaconst", color = "atipicos")) +
  geom_point() +
  scale_color_continuous(low = "white", high = "blue") +
  labs(x = "Baños", y = "Área construida", color = "Distancia de Mahalanobis")

Se observa que hay unos registros con mucha área construida y pocos baños, como es el caso del registro que indica 1750 metros construidos y 3 baños. Se elminará este registro.

df <- filter(df, df$areaconst != 1750)

Veamos la relación entre la cantidad de habitaciones y la cantidad de baños. Se espera que entre mas habitaciones, mas baños haya en el inmueble.

ggplot(df, aes_string(x = "habitac", y = "banios", color = "atipicos")) +
  geom_point() +
  scale_color_continuous(low = "white", high = "blue") +
  labs(x = "Habitaciones", y = "Baños", color = "Distancia de Mahalanobis")

ggplot(df, aes_string(x = "habitac", y = "areaconst", color = "atipicos")) +
  geom_point() +
  scale_color_continuous(low = "white", high = "blue") +
  labs(x = "Habitaciones", y = "Area", color = "Distancia de Mahalanobis")

Aparece un caso donde hay 3 habitaciones y 10 baños. También, en el gráfico anterior, inmuebles con 10 baños y menos de 400 metros de área construida. Estos se eliminarán.

df <- filter(df, !(df$banios == 10 & df$areaconst <= 400))
table(df$banios,df$habitac)
##     
##         1    2    3    4    5    6    7    8    9   10
##   1    20   98  225   20    5    1    2    0    0    0
##   2    18  503 1509  163   56   23   10    5    1    0
##   3     4   78  889  460  105   55   34   24   14    3
##   4     0   15  379  510  188   78   36   38   12   10
##   5     0    3  138  312  176   68   42   34   22   11
##   6     1    0   14   90   82   57   25   18    9    7
##   7     0    0    2    6   42   24   14    6    7    4
##   8     0    0    0    2    3    9    8    9    9    6
##   9     0    0    0    0    1    0    1    4    7    2
##   10    0    0    0    0    0    0    0    0    1    3

De igual manera, se observa una aparente disparidad entre la cantidad de baños y el área construida. Aunque es posible que haya pocos baños en una casa grande, esto es poco probable. Tal vez una mayor relación la tienen las variables que representan las cantidades de baños y de habitaciones, pues las habitaciones dan una idea de la cantidad de personas que viven o usan la casa, lo cual muestra la necesidad de más o menos baños.

En el segundo gráfico se ve que hay casas de 0 metros construidos con varias habitaciones, lo cual no es posible. Estos registros se eliminarán. Y también hay registros de inmuebles en el conjunto con muchos más baños que habitaciones, en una proporción de 2 a 1 e inclusive de 3 a 1. Eliminaremos estos registros problemáticos dado que no es mucha la cantidad de ellos.

3.2.4. Homogenización de variables cualitativas

Se revisaron los valores de las variables barrio y zona. Se notó que los nombres de las zonas están todos bien escritos, pero que en los nombres de los barrios hay algunos registros que se refieren al mismo barrio pero que están escritos de manera diferente, como por ejemplo: “alfonso lopez” y “alfonzo López”. También se nota que hay muchos barrios donde solo hay un inmueble a la venta. Con tan baja representatividad, no es posible hacer inferencias en cuanto a la situación de los inmuebles en los barrios. Habría que usar la zona que al ser solo 5, tienen más inmuebles en ellas.

Corregimos los nombres de algunos de los barrios para ver sus efectos en el dataset, sin embargo, se nota que sigue habiendo muchos barrios con tan solo un inmueble y que además son alrededor de 350 y algunos están posiblemente mal referenciados, como el que dice “cali” o el que hace referencia al nombre de un edificio. También se ve que están referenciadas las zonas en los barrios. En definitiva, esta variable requeriría de mucha limpieza e investigación para ser depurada, y teniendo también errores en la longitud y latitud, no se puede imputar a partir de los datos existentes.

unique(df$zona)
## [1] "Zona Oeste"   "Zona Sur"     "Zona Norte"   "Zona Centro"  "Zona Oriente"
df$barrio <- tolower(df$barrio)
barrios = unique(df$barrio, decreasing = TRUE)
#table(df$barrio, sort = TRUE)
#barrios

df$barrio <- ifelse(df$barrio == "alf√©rez real", "alferez real", ifelse(df$barrio == "alfonso lópez", "alfonso lopez", ifelse(df$barrio == "base a√©rea",  "base aerea", ifelse(df$barrio == "mel√©ndez",  "melendez", ifelse(df$barrio == "mel√©ndez",  "melendez", ifelse(df$barrio == "mel√©ndez",  "melendez", ifelse(df$barrio == "la arboleda",  "arboleda", ifelse(df$barrio == "los alcázares",  "los alcazares", ifelse(df$barrio == "la rivera i",  "la riverita", ifelse(df$barrio == "laflora",  "la flora", ifelse(df$barrio == "la rivera ii",  "la riverita", ifelse(df$barrio == "la rivera",  "la riverita", ifelse(df$barrio == "ciudadela paso ancho",  "ciudadela pasoancho", ifelse(df$barrio == "caney especial",  "caney", ifelse(df$barrio == "el ingenio i",  "ingenio", ifelse(df$barrio == "el ingenio ii",  "ingenio", ifelse(df$barrio == "el ingenio",  "ingenio", ifelse(df$barrio == "el ingenio iii",  "el ingenio", ifelse(df$barrio == "jamundi alfaguara",  "alfaguara", ifelse(df$barrio == "cali canto viii",  "calicanto", ifelse(df$barrio == "cali canto",  "calicanto", ifelse(df$barrio == "chiminangos 1 etapa",  "chiminangos", ifelse(df$barrio == "chiminangos 2 etapa",  "chiminangos", ifelse(df$barrio == "cristóbal colón",  "cristobal colón", ifelse(df$barrio == "marroquin iii",  "marroquin", ifelse(df$barrio == "el ingenio 3",  "el ingenio", df$barrio))))))))))))))))))))))))))

table(df$barrio)
## 
##                   20 de julio                    3 de julio 
##                             3                             1 
##                         acopi                   agua blanca 
##                            75                             1 
##                    aguablanca                     aguacatal 
##                             2                            76 
##                       alameda               alameda del río 
##                            13                             1 
##                        alamos                      alborada 
##                             7                             1 
##                     alfaguara                  alferez real 
##                             1                             4 
##                 alfonso lopez               alfonso lópez i 
##                            21                             1 
##                   alto jordán            altos de guadalupe 
##                             1                             4 
##                altos de menga                antonio nariño 
##                             3                             2 
##                      aranjuez                      arboleda 
##                            15                             9 
## arboleda campestre candelaria                     arboledas 
##                             1                            31 
##             atanasio girardot                 autopista sur 
##                             9                             1 
##                  barranquilla             barrio 7de agosto 
##                             5                             1 
##            barrio eucarístico                 barrio obrero 
##                             1                             1 
##            barrio tranquilo y                    base aerea 
##                             1                             2 
##                    belalcazar             belisario caicedo 
##                             4                             2 
##                   bella suiza              bella suiza alta 
##                            17                             2 
##                    bellavista              benjamín herrera 
##                            28                             8 
##                        berlin           bloques del limonar 
##                             1                             1 
##                     bochalema           bosques del limonar 
##                            12                            21 
##                        boyacá                       bretaña 
##                             1                            14 
##           brisas de guadalupe                 brisas de los 
##                             1                            61 
##            brisas del guabito            brisas del limonar 
##                             1                             1 
##                  buenos aires                        caldas 
##                             6                             1 
##                          cali                     calibella 
##                            13                             1 
##                     calicanto                calicanto viii 
##                             9                             1 
##                        calima                 calimio norte 
##                             6                             5 
##                       calipso                      cambulos 
##                             9                             3 
##                   camino real                         caney 
##                            31                            69 
##                   cañasgordas                  cañaveralejo 
##                             7                            11 
##                   cañaverales       cañaverales los samanes 
##                            20                             1 
##                         capri                      cascajal 
##                            47                             1 
##                        ceibas                    centenario 
##                             1                            10 
##                        centro               cerro cristales 
##                             3                            19 
##           cerros de guadalupe                    champagnat 
##                             1                            14 
##                     chapinero                   chiminangos 
##                             7                            12 
##                    chipichape                   ciudad 2000 
##                            23                            91 
##             ciudad antejardin              ciudad bochalema 
##                             1                            44 
##                  ciudad capri                ciudad cordoba 
##                            12                            20 
##                ciudad córdoba      ciudad córdoba reservado 
##                            14                             1 
##                ciudad country              ciudad del campo 
##                             1                             1 
##                 ciudad jardin                 ciudad jardín 
##                            14                           471 
##           ciudad jardin pance             ciudad los álamos 
##                             1                            22 
##                 ciudad modelo               ciudad pacifica 
##                             7                             1 
##                   ciudad real                ciudad talanga 
##                             3                             1 
##          ciudad universitaria            ciudadela comfandi 
##                             1                            17 
##             ciudadela del río           ciudadela pasoancho 
##                             1                            22 
##            colinas del bosque               colinas del sur 
##                             1                             5 
##                         colon                    colseguros 
##                             1                            39 
##              colseguros andes                     compartir 
##                             5                             1 
##                     cristales               cristobal colón 
##                            53                            15 
##               cuarto de legua                 departamental 
##                            37                            26 
##           ed benjamin herrera                     el bosque 
##                             1                            49 
##                      el caney                   el castillo 
##                           188                             6 
##                      el cedro                   el diamante 
##                             8                             2 
##                     el dorado               el gran limonar 
##                             5                             7 
##                     el guabal                    el guabito 
##                            18                             1 
##                    el ingenio                     el jardín 
##                            18                            13 
##                       el lido                    el limonar 
##                            52                           120 
##                   el nacional                    el paraíso 
##                             1                             3 
##                      el peñon                      el prado 
##                            40                             1 
##                    el refugio                      el rodeo 
##                            99                             1 
##                       el sena                    el trébol 
##                             1                             5 
##                    el troncal                    el vallado 
##                            16                             1 
##                   eucarístico               evaristo garcía 
##                             2                             1 
##          farrallones de pance               fenalco kennedy 
##                             1                             1 
##                       fepicol              flora industrial 
##                             1                             9 
##                      floralia                  fonaviemcali 
##                             5                             1 
##      francisco eladio ramirez                 fuentes de la 
##                             1                             1 
##                  gran limonar                       granada 
##                            24                            13 
##                     guadalupe                     guayaquil 
##                            19                            15 
##         hacienda alferez real                       ingenio 
##                             1                           210 
##                     ingenio i                    ingenio ii 
##                             1                             1 
##                       jamundi          jorge eliecer gaitán 
##                             4                             1 
##                  jorge isaacs                     juanamb√∫ 
##                             1                            35 
##                      juanambu                         junin 
##                             1                            18 
##                         junín                   la alborada 
##                             6                             2 
##                    la alianza                       la base 
##                             4                            15 
##                   la buitrera                    la campiña 
##                             3                            11 
##                    la cascada                     la ceibas 
##                             6                             1 
##                  la esmeralda                      la flora 
##                             1                           316 
##                   la floresta                  la fortaleza 
##                            18                             4 
##              la gran colombia                   la hacienda 
##                             1                           148 
##              la independencia                   la libertad 
##                            12                             2 
##                     la merced                     la morada 
##                            23                             1 
##                 la nueva base                      la playa 
##                             8                             1 
##                 la portada al                  la primavera 
##                             1                             1 
##                    la reforma                   la riverita 
##                             1                            15 
##                    la riviera                      la selva 
##                             1                            10 
##                  la villa del                   las acacias 
##                             1                            12 
##                 las américas                  las camelias 
##                             2                             1 
##                    las ceibas                  las delicias 
##                            21                             3 
##                   las granjas                las quintas de 
##                             9                             1 
##                     las vegas                  las vegas de 
##                             1                             1 
##                  libertadores                 los alcazares 
##                             3                            12 
##                     los andes                  los cambulos 
##                            21                            22 
##                  los cámbulos                 los cristales 
##                             5                           123 
##            los cristales club                los farallones 
##                             1                             4 
##                 los guaduales                los guayacanes 
##                            20                             2 
##                   los jockeys              los libertadores 
##                             1                             4 
##      los parques barranquilla                       lourdes 
##                             3                             2 
##                      mamellan                    manzanares 
##                             1                             5 
##                 marroquín iii             mayapan las vegas 
##                             1                            41 
##                      melendez                         menga 
##                            59                            18 
##       metropolitano del norte         miradol del aguacatal 
##                            14                             1 
##                    miraflores          morichal de comfandi 
##                            26                             3 
##                   multicentro                     municipal 
##                            23                             3 
##                       napoles                       nápoles 
##                             1                            26 
##                     normandia                     normandía 
##                             3                           106 
##                         norte                norte la flora 
##                             1                             1 
##                    nueva base                nueva floresta 
##                             1                            15 
##              nueva tequendama             oasis de comfandi 
##                            70                             4 
##                     occidente                        pacara 
##                             1                            14 
##                        pacará            palmas del ingenio 
##                             4                             1 
##                   pampa linda                    pampalinda 
##                            22                            10 
##                  panamericano                         pance 
##                             9                           357 
##           parcelaciones pance         parque residencial el 
##                            55                             1 
##                  paseo de los             paso del comercio 
##                             2                             5 
##                     pasoancho             poblado campestre 
##                             4                             2 
##                         ponce                       popular 
##                             1                             6 
##           portada de comfandi          portales de comfandi 
##                             2                             1 
##                      porvenir             prados de oriente 
##                             3                             6 
##            prados del limonar              prados del norte 
##                            21                           104 
##                prados del sur                     primavera 
##                             2                             2 
##               primero de mayo              primitivo crespo 
##                            32                             3 
##           puente del comercio                  puente palma 
##                             6                             1 
##                quintas de don            quintas de salomia 
##                            64                             4 
##            rafael uribe uribe          rep√∫blica de israel 
##                             1                             1 
##             rincón de salomia             riveras del valle 
##                             1                             1 
##                 rozo la torre              saavedra galindo 
##                             1                             3 
##                       salomia                       samanes 
##                            35                             1 
##          samanes de guadalupe                        sameco 
##                             1                             1 
##                   san antonio                     san bosco 
##                            21                             7 
##                    san carlos                  san cayetano 
##                             4                             9 
##                  san fernando            san fernando nuevo 
##                            47                             9 
##            san fernando viejo                   san joaquin 
##                            14                             3 
##                   san joaquín                san juan bosco 
##                            16                             7 
##                     san judas               san judas tadeo 
##                             1                             2 
##                      san luis                      san luís 
##                             2                             1 
##                   san nicolas                   san nicolás 
##                             1                             1 
##                     san pedro                   san vicente 
##                             1                            47 
##                   santa anita               santa anita sur 
##                            44                             1 
##                 santa bárbara                   santa elena 
##                             3                             9 
##                      santa fe               santa helena de 
##                             8                             1 
##                  santa isabel                  santa monica 
##                            55                            47 
##                  santa mónica            santa monica norte 
##                             3                             1 
##          santa monica popular          santa mónica popular 
##                             1                             6 
##      santa monica residencial      santa mónica residencial 
##                             5                            32 
##                    santa rita                santa teresita 
##                            40                           173 
##                       santafe                     santander 
##                             1                             1 
##                 santo domingo sector cañaveralejo guadalupe 
##                             6                             1 
##                     seminario          sierras de normandía 
##                            24                             1 
##               siete de agosto                 simón bolivar 
##                             8                             1 
##             tejares cristales                tejares de san 
##                             4                            13 
##                      templete                    tequendama 
##                             4                            40 
##                    tequendema               terrón colorado 
##                             1                             1 
##            torres de comfandi             unión de vivienda 
##                            41                             3 
##     urbanización barranquilla           urbanización boyacá 
##                             3                             1 
##       urbanización colseguros         urbanizacion el saman 
##                             3                             1 
##         urbanización la flora        urbanización la merced 
##                            59                             4 
##         urbanización la nueva     urbanización las cascadas 
##                             4                             1 
##             urbanizacion lili    urbanización nueva granada 
##                             2                             3 
##         urbanización río lili      urbanización san joaquin 
##                             5                             4 
##       urbanización tequendama                 valle de lili 
##                             5                             1 
##                valle del lili                  valle grande 
##                           817                             1 
##                     versalles                villa colombia 
##                            57                             6 
##             villa de veracruz                villa del lago 
##                             4                            10 
##               villa del prado                 villa del sol 
##                            50                            21 
##                 villa del sur            villas de veracruz 
##                             2                             9 
##                        vipasa                   zona centro 
##                            30                             1 
##                    zona norte                zona norte los 
##                            28                             1 
##                    zona oeste                  zona oriente 
##                            24                            17 
##                      zona sur 
##                            71

Veo que a pesar de que se han estandarizado algunos nombres, estos y otros siguen teniendo pocos inmuebles. Aunque en un análisis más profundo o diferente el barrio podría ser necesario, para esta ocasión, usaremos para cualquier análisis la variable zona con la siguiente distribución. El barrio se eliminará del dataset.

df$barrio <- NULL

3.2.5. Variables y datos eliminados

Tal como hemos visto en el análisis, algunas de las variables no se utilizarán como parte del estudio. Estas variables son: - id - latitud - longitud - barrio Las razones que se tuvieron en cuenta para su eliminación son: - Información improcedente para un análisis estadístico, como en el caso del id. - Información con muchos errores, valores atípicos o con distribuciones muy particulares que dan señal de estar equivocadas, como por ejemplo los valores en la latitud y la longitud. - Datos con muy poca representatividad en variables que segmentan los valores, como es el caso de la variable barrio, en donde había muchos barrios con solo un inmueble. - Variables completas que no aportan al objetivo del estudio (Definir su nicho, desarrollar estrategias de marketing, etc.) tal como se presenta en la descripcion del trabajo.

3.3. Análisis descriptivo de los Datos

3.3.1. Precio de las Viviendas en diferentes zonas en Cali

Empecemos por ver los datos estadísticos de las variables

describe(df)
##           vars    n   mean     sd median trimmed    mad min  max range  skew
## zona*        1 6870   3.99   1.32      5    4.13   0.00   1    5     4 -0.72
## piso         2 6870   3.24   2.60      2    2.76   1.48   1   12    11  1.45
## estrato      3 6870   4.62   1.03      5    4.64   1.48   3    6     3 -0.17
## preciom      4 6870 441.57 331.43    340  381.35 207.56  58 1999  1941  1.86
## areaconst    5 6870 185.14 149.86    133  158.92  93.40  30 1745  1715  2.60
## parquea      6 6870   1.48   1.09      1    1.38   1.48   0    4     4  0.66
## banios       7 6870   3.22   1.44      3    3.09   1.48   1   10     9  0.89
## habitac      8 6870   3.76   1.49      3    3.55   1.48   1   10     9  1.66
## tipo*        9 6870   1.46   0.50      1    1.45   0.00   1    2     1  0.16
##           kurtosis   se
## zona*        -1.19 0.02
## piso          1.56 0.03
## estrato      -1.11 0.01
## preciom       3.67 4.00
## areaconst    12.01 1.81
## parquea       0.02 0.01
## banios        0.78 0.02
## habitac       3.28 0.02
## tipo*        -1.98 0.01

Se puede observar lo siguientes:

  • La cantidad de registros es de 6870, lo que indica la gran cantidad de ofertas inmobiliarias que existen en la ciudad de Cali.
  • Solo hay viviendas del estrato 3 al 6
  • El precio más bajo de una vivienda es de 58 millones de pesos. El más alto es de 1.999 millones de pesos. Esta es la variable con mayor desviación estándar y rango.
  • El precio presenta una asimetría a la derecha, lo que quiere decir que es positiva, o que su valor es mayor que cero, y que muchos valores son altos.
  • Características similares tiene la variable que representa el Área Construida, pues tiene un rango cercano al del precio (1715) y una alta desviación estándar (149.86)
  • La media del precio de los inmuebles es de 441.6 millones. La Mediana es de 340 millones.
  • El área construida también tiene una asimetría positiva, es decir que los inmuebles con áreas grandes son más que sus contrarios.

Esta es la cantidad de inmuebles que hay por zona:

table(df$zona)
## 
##  Zona Centro   Zona Norte   Zona Oeste Zona Oriente     Zona Sur 
##          112         1481          868          329         4080

La zona con mayor cantidad de inmuebles es la zona sur, seguida por la zona norte, la oeste, la oriente y por último la centro. Veamos ahora la combinación de la zona y el tipo de inmueble.

table(df$zona,df$tipo)
##               
##                Apartamento Casa
##   Zona Centro           15   97
##   Zona Norte           781  700
##   Zona Oeste           704  164
##   Zona Oriente          46  283
##   Zona Sur            2158 1922

En las dos zonas donde más inmuebles hay (Sur y Norte), la cantidad de apartamentos es ligeramente mayor que la de las casas. En la zona Oeste es mucho mayor para apartamentos, y en las zonas centro y Oriente hay más casas que apartamentos. Veamos los promedios y la mediana de la variable precio para cada tipo:

meds <- aggregate ( df$preciom ~ df$tipo + df$zona, data = df, FUN = function(x) c( round(as.numeric(mean(x)),2), round(as.numeric(median(x)),1), round(as.numeric(length(x)),0)))
meds <- data.frame(as.matrix(meds))
colnames(meds) <- c("Tipo","Zona","Media_Precio","Mediana_Precio","Cantidad")

meds$Media_Precio <- as.numeric(meds$Media_Precio)
meds$Mediana_Precio <- as.numeric(meds$Mediana_Precio)
meds$Cantidad <- as.numeric(meds$Cantidad)
meds
##           Tipo         Zona Media_Precio Mediana_Precio Cantidad
## 1  Apartamento  Zona Centro       144.87            130       15
## 2         Casa  Zona Centro       337.46            300       97
## 3  Apartamento   Zona Norte       284.63            250      781
## 4         Casa   Zona Norte       442.00            390      700
## 5  Apartamento   Zona Oeste       661.57            560      704
## 6         Casa   Zona Oeste       737.80            680      164
## 7  Apartamento Zona Oriente       127.70            114       46
## 8         Casa Zona Oriente       241.92            235      283
## 9  Apartamento     Zona Sur       291.99            245     2158
## 10        Casa     Zona Sur       611.76            480     1922
ggplot(meds, aes(x = Tipo, y = Cantidad, fill = Tipo)) +
  geom_bar(stat = "identity", show.legend = TRUE) +
  labs(x = "Tipo", y = "Cantidad") +
  facet_wrap(~Zona ) +
  geom_text(aes(label = Cantidad), vjust = 0.2)

means <- aggregate (df$preciom ~ df$tipo + df$zona, data = df, FUN = function(x) c(round(as.numeric(mean(x)),2)))
means <- data.frame(as.matrix(means))
#means
colnames(means) <- c("Tipo","Zona","Media_Precio")

ggplot(means, aes(x = Tipo, y = Media_Precio, fill = Tipo)) +
  geom_bar(stat = "identity", show.legend = TRUE) +
  labs(x = "Tipo", y = "Media Precio") +
  facet_wrap(~Zona ) +
  geom_text(aes(label = Media_Precio), vjust = 0.2)

medians <- aggregate (df$preciom ~ df$tipo + df$zona, data = df, FUN = function(x) c(round(as.numeric(median(x)),0)))
medians <- data.frame(as.matrix(medians))
#medians
colnames(medians) <- c("Tipo","Zona","Mediana_Precio")

ggplot(medians, aes(x = Tipo, y = Mediana_Precio, fill = Tipo)) +
  geom_bar(stat = "identity", show.legend = TRUE) +
  labs(x = "Tipo", y = "Mediana Precio") +
  facet_wrap(~Zona ) +
  geom_text(aes(label = Mediana_Precio), vjust = 0.2)

Se puede ver en el primer gráfico que la cantidad de Casas y Apartamentos en la Zona Sur supera a todas las demás Zonas, seguida por la Zona Norte, la Zona Oeste, la Oriente y por último la Centro.

En cuanto al precio de venta, los gráficos que muestran la media y la mediana muestran que los inmuebles con el mayor precio están en la Zona Oeste, lo que, siendo una Zona con poca oferta, la hace muy atractiva, pues no hay tanta competencia y la posibilidad de mejores comisiones es más alta. Bajo este mismo criterio, le seguiría la Zona Norte y la Zona Sur. También las Casas en la Zona Centro. La Zona Oriente no parece ser muy atractiva porque hay pocos inmuebles y es poco su valor.

3.3.2. Tipo de viviendas más ofertadas en Cali

El tipo de vivienda más ofertada en Cali son los apartamentos.

table(df$tipo)
## 
## Apartamento        Casa 
##        3704        3166
types <- aggregate (df$preciom ~ df$tipo, data = df, FUN = function(x) c(round(as.numeric(length(x)),0)))
types <- data.frame(as.matrix(types))
colnames(types) <- c("Tipo","Cantidad")

ggplot(types, aes(x = Tipo, y = Cantidad, fill = Tipo)) +
  geom_bar(stat = "identity", show.legend = TRUE) +
  labs(x = "Tipo", y = "Cantidad") +
  geom_text(aes(label = Cantidad), vjust = -0.5) + 
  coord_polar()

De acuerdo a los gráficos anteriores en donde se muestra la cantidad de viviendas segmentado por zona y tipo, y el precio promedio también segmentado por zona y tipo, los 5 con mayor cantidad serían los siguientes:

  1. Apartamentos en Zona Sur
  2. Casas en Zona Sur
  3. Apartamentos en Zona Norte
  4. Apartamentos en Zona Oeste
  5. Casas en Zona Norte

En cuanto al precio de venta, estos son los 5 primeros promedios:

  1. Casas en Zona Oeste
  2. Apartamentos en Zona Oeste
  3. Casas en Zona Sur
  4. Casas en Zona Norte
  5. Casas en Zona Centro

Si se tiene en cuenta la Mediana, el orden sería el mismo de los promedios.

3.3.3. Características más relevantes de la oferta de vivienda en Cali.

Las viviendas en venta en Cali se encuentran distribuidas en toda la ciudad, siendo la de mayor cantidad la Zona Sur. Esto no ha de sorprender, pues es una de las zonas mas grandes y de mayor movimiento en la ciudad para vivir por los atractivos que tiene, tales como variedad de opciones en vivienda (Edificios, conjuntos residenciales, condominios campestres, etc.), multiplicidad de opciones de lugares de comercio, existencia de parques, clubes, cercanía a zona de colegios y universidades, entre muchas otras ventajas.

Si bien el tipo de vivienda que más se oferta son los apartamentos, son las casas las que mejor promedio de precio tienen. Esto es lógico, porque normalmente son más grandes, luego es natural que sean más caras, sin embargo, en todas las zonas las casas tienen un promedio de precio más alto, y como las inmobiliarias ganan por comisión por el precio de venta, esto se hace muy relevante a la hora de escoger la estrategia y el nicho al que se le ofrecerán los inmuebles.

table(df$estrato,df$tipo)
##    
##     Apartamento Casa
##   3         440  793
##   4        1051  711
##   5        1318  972
##   6         895  690
table(df$estrato,df$zona)
##    
##     Zona Centro Zona Norte Zona Oeste Zona Oriente Zona Sur
##   3          99        445         43          320      326
##   4          11        297         71            7     1376
##   5           1        620        213            2     1454
##   6           1        119        541            0      924

Si analizamos la distribución del estrato por tipo y por zona, vemos que en el estrato 3, que es el más bajo, hay mayor cantidad de casas frente a la oferta de apartamentos, en una relación casi de 2:1 para las casas. Este fenómeno no se repite en ningún otro estrato, siendo la cantidad de apartamentos mayor a la de casas.

estratos <- aggregate (df$preciom ~ df$estrato, data = df, FUN = function(x) c(round(as.numeric(length(x)),0)))
estratos <- data.frame(as.matrix(estratos))
colnames(estratos) <- c("Estrato","Cantidad")

ggplot(estratos, aes(x = Estrato, y = Cantidad, fill = Estrato)) +
  geom_bar(stat = "identity", show.legend = TRUE) +
  labs(x = "Tipo", y = "Cantidad") +
  geom_text(aes(label = Cantidad), vjust = -0.5) 

El Estrato 5 es el estrato con mayor cantidad de inmuebles a la venta, seguido por el 4, el 6 y el 3. En la Zona Sur, donde hay mayor cantidad de inmuebles, en el estrato en que mas inmuebles hay es el 5, seguido del 4, después el 6 y cerrando el 3. Esto es coherente con la distribución de la ciudad en dicha zona.

x=1

El informe estadístico podría proporcionar información sobre los siguientes temas:

Precio de las viviendas en diferentes zonas de Cali. Tipo de viviendas más ofertadas en Cali. Características más relevantes de la oferta de vivienda en Cali.

Esta información sería útil para la empresa B&C para tomar decisiones sobre su negocio, tales como:

Definir su nicho de mercado. Desarrollar estrategias de marketing. Establecer precios de venta. Ofrecer servicios personalizados a sus clientes.

La empresa solicita un análisis descriptivo de los datos, para identificar las tendencias y patrones en los datos.

El informe debe incluir los siguientes elementos:

Introducción Objetivos Métodos Resultados Discusión Conclusiones Anexos

El informe debe ser redactado en un lenguaje claro y conciso, y debe estar dirigido a los directivos de la empresa B&C.

Solicitud de entrega del informe Se debe entregar enlace de la plataforma RPuls que contenga el documento final, utilizando el formato Markdown.

El informe debe estar organizado en un único documento que contenga la introducción, los objetivos, los métodos, los resultados, la discusión y las conclusiones. Cada sección del informe debe estar numerada y debe tener un encabezado descriptivo.

Entregable Enlace del informe en RPubs, copiado en Actividad1 del curso en Bs —

4. Resultados

A partir del análisis descriptivo del conjunto de datos, se presentan los siguientes resultados del estudio, con el objetivo de brindar información relevante y suficiente para que la Junta Directiva de la Inmobiliaria B&C pueda decidir su nicho de mercado, desarrollar estrategias de marketing, establecer precios de venta y ofrecer servicios personalizados a sus clientes.

La Zona Oeste presenta un mejor promedio de precios tanto para las casas como para los apartamentos, constituyéndose en una zona de mucho interés, dado que las inmobiliarias ganan por comisión, y entre mayor sea el valor de la propiedad, más dinero se ganará. La siguen la zona sur y la zona norte. El caso de la zona centro es particular, pues hay pocas casas, pero su promedio de precio no es el más bajito.

Los apartamentos son el tipo de inmueble con mayor cantidad de ofertas en la ciudad de Cali superando en cantidad a las casas en la zona Norte, Oeste y Sur. En las zonas Centro y Oriente, hay más casas ofertadas, en una proporción aproximada de 6 a 1.

Aunque hay mas apartamentos que casas, las casas presentan mayores valores en su precio, lo que las hace más atractivas. Las zonas con más alto promedio de venta son la Oeste, la Sur, a Norte, la Centro y la Oriente. Nótese que la Centro tiene pocas ofertas, pero sus casas tienen mejor promedio que las de la zona Oriente.

El estrato 5 es el estrato con mayor cantidad de oferta de venta de inmuebles. Si bien, esto no es en si información contundente, si es una muestra de que las casas que más se comercializan son las de valores medio-altos, y esto puede dar un indicio de la clase de compradores que se deben buscar.

5. Discusión


6. Conclusiones


7. Anexos

LS0tDQp0aXRsZTogIkFjdGl2aWRhZCAxIC0gTcOpdG9kb3MgeSBTaW11bGFjacOzbiBFc3RhZMOtc3RpY2EiDQphdXRob3I6ICJFbnJpcXVlIEpvc8OpIFBlw7FhIg0KZGF0ZTogIjIwMjQtMDItMTIiDQpvdXRwdXQ6DQogIGh0bWxfZG9jdW1lbnQ6IA0KICAgIGNvZGVfZm9sZGluZzogc2hvdw0KICAgIHRvYzogVFJVRQ0KICAgIGNvZGVfZG93bmxvYWQ6IFRSVUUNCg0KLS0tDQpzZXR3ZCgiIikNCioqQ29uc2lnbmE6KioNCg0KTGEgKiplbXByZXNhIEImQyoqIChCaWVuZXMgeSBDYXNhcykgZXMgdW5hIGFnZW5jaWEgZGUgYmllbmVzIHJhw61jZXMgcXVlIG9wZXJhIGVuIGxhIGNpdWRhZCBkZSBDYWxpLCBDb2xvbWJpYS4gTGEgZW1wcmVzYSBmdWUgZnVuZGFkYSBwb3IgU2FuZHJhIE1pbGVuYSBoYWNlIDEwIGHDsW9zIHkgYWN0dWFsbWVudGUgY3VlbnRhIGNvbiBvY2hvIGFnZW50ZXMgZGUgYmllbmVzIHJhw61jZXMuDQoNCkVsIG1lcmNhZG8gZGUgYmllbmVzIHJhw61jZXMgZW4gQ2FsaSBoYSBjcmVjaWRvIHNpZ25pZmljYXRpdmFtZW50ZSBlbiBsb3Mgw7psdGltb3MgYcOxb3MsIGltcHVsc2FkbyBwb3IgZWwgY3JlY2ltaWVudG8gZGUgbGEgcG9ibGFjacOzbiwgbGEgaW52ZXJzacOzbiBleHRyYW5qZXJhIGRpcmVjdGEgeSBlbCBkZXNhcnJvbGxvIGRlIG51ZXZvcyBwcm95ZWN0b3MgaW5tb2JpbGlhcmlvcy4gRW4gMjAyMiwgbGFzIHZlbnRhcyBkZWwgc2VjdG9yIGVuIENhbGkgbGxlZ2Fyb24gYSBcJDY3MDAgbWlsbG9uZXMgeSBlbiAyMDIzIGEgJDYxMDAgbWlsIG1pbGxvbmVzLiBTZSBlc3BlcmEgcXVlIGVzdGUgc2VjdG9yIGNvbnRpbnVlIGNyZWNpZW5kbyBkdXJhbnRlIGxvcyBwcsOzeGltb3MgYcOxb3MsIHBlcm1pdGllbmRvIHVuIGRlc2Fycm9sbG8gZGluw6FtaWNvIGVuIGxhIGVjb25vbcOtYSByZWdpb25hbC4NCg0KTGEgZW1wcmVzYSAqQiZDKiBoYSByZWNvZ2lkbyBpbmZvcm1hY2nDs24gc29icmUgdml2aWVuZGFzIHF1ZSBpbmNsdXllIGluZm9ybWFjacOzbiBzb2JyZSBlbCBwcmVjaW8sIGxhIHViaWNhY2nDs24sIGxhcyBjYXJhY3RlcsOtc3RpY2FzIHkgbGEgdmVudGEgZGUgdml2aWVuZGFzIGVuIENhbGkuIEVzdGEgYmFzZSBkZSBkYXRvcyBwdWVkZSBzZXIgdXRpbGl6YWRhIHBhcmEgcmVhbGl6YXIgdW4gaW5mb3JtZSBlc3RhZMOtc3RpY28gcXVlIHNlcsOtYSBkZSBncmFuIGludGVyw6lzIHBhcmEgbGEgZW1wcmVzYS4NCg0KRWwgaW5mb3JtZSBlc3RhZMOtc3RpY28gcG9kcsOtYSBwcm9wb3JjaW9uYXIgaW5mb3JtYWNpw7NuIHNvYnJlIGxvcyBzaWd1aWVudGVzIHRlbWFzOg0KDQotIFByZWNpbyBkZSBsYXMgdml2aWVuZGFzIGVuIGRpZmVyZW50ZXMgem9uYXMgZGUgQ2FsaS4NCi0gVGlwbyBkZSB2aXZpZW5kYXMgbcOhcyBvZmVydGFkYXMgZW4gQ2FsaS4NCi0gQ2FyYWN0ZXLDrXN0aWNhcyBtw6FzIHJlbGV2YW50ZXMgZGUgbGEgb2ZlcnRhIGRlIHZpdmllbmRhIGVuIENhbGkuDQoNCkVzdGEgaW5mb3JtYWNpw7NuIHNlcsOtYSDDunRpbCBwYXJhIGxhIGVtcHJlc2EgQiZDIHBhcmEgdG9tYXIgZGVjaXNpb25lcyBzb2JyZSBzdSBuZWdvY2lvLCB0YWxlcyBjb21vOg0KDQotIERlZmluaXIgc3UgbmljaG8gZGUgbWVyY2Fkby4NCi0gRGVzYXJyb2xsYXIgZXN0cmF0ZWdpYXMgZGUgbWFya2V0aW5nLg0KLSBFc3RhYmxlY2VyIHByZWNpb3MgZGUgdmVudGEuDQotIE9mcmVjZXIgc2VydmljaW9zIHBlcnNvbmFsaXphZG9zIGEgc3VzIGNsaWVudGVzLg0KDQpMYSBlbXByZXNhIHNvbGljaXRhIHVuIGFuw6FsaXNpcyBkZXNjcmlwdGl2byBkZSBsb3MgZGF0b3MsIHBhcmEgaWRlbnRpZmljYXIgbGFzIHRlbmRlbmNpYXMgeSBwYXRyb25lcyBlbiBsb3MgZGF0b3MuDQoNCkVsIGluZm9ybWUgZGViZSBpbmNsdWlyIGxvcyBzaWd1aWVudGVzIGVsZW1lbnRvczoNCg0KMS4gSW50cm9kdWNjacOzbg0KMi4gT2JqZXRpdm9zDQozLiBNw6l0b2Rvcw0KNC4gUmVzdWx0YWRvcw0KNS4gRGlzY3VzacOzbg0KNi4gQ29uY2x1c2lvbmVzDQo3LiBBbmV4b3MNCg0KRWwgaW5mb3JtZSBkZWJlIHNlciByZWRhY3RhZG8gZW4gdW4gbGVuZ3VhamUgY2xhcm8geSBjb25jaXNvLCB5IGRlYmUgZXN0YXIgZGlyaWdpZG8gYSBsb3MgZGlyZWN0aXZvcyBkZSBsYSBlbXByZXNhIEImQy4NCg0KU29saWNpdHVkIGRlIGVudHJlZ2EgZGVsIGluZm9ybWUNClNlIGRlYmUgZW50cmVnYXIgZW5sYWNlIGRlIGxhIHBsYXRhZm9ybWEgUlB1YnMgcXVlIGNvbnRlbmdhIGVsIGRvY3VtZW50byBmaW5hbCwgdXRpbGl6YW5kbyBlbCBmb3JtYXRvIE1hcmtkb3duLg0KDQpFbCBpbmZvcm1lIGRlYmUgZXN0YXIgb3JnYW5pemFkbyBlbiB1biAqw7puaWNvIGRvY3VtZW50byogcXVlIGNvbnRlbmdhIGxhIGludHJvZHVjY2nDs24sIGxvcyBvYmpldGl2b3MsIGxvcyBtw6l0b2RvcywgbG9zIHJlc3VsdGFkb3MsIGxhIGRpc2N1c2nDs24geSBsYXMgY29uY2x1c2lvbmVzLiBDYWRhICpzZWNjacOzbiogZGVsIGluZm9ybWUgZGViZSBlc3RhciAqbnVtZXJhZGEqIHkgZGViZSB0ZW5lciB1biAqZW5jYWJlemFkbyBkZXNjcmlwdGl2byouDQoNCkVudHJlZ2FibGUNCioqRW5sYWNlIGRlbCBpbmZvcm1lIGVuIFJQdWJzKiosICpjb3BpYWRvIGVuIEFjdGl2aWRhZDEqIGRlbCBjdXJzbyBlbiBCcw0KDQotLS0NCg0KIyAxLiBJbnRyb2R1Y2Npw7NuDQoNClBhcmEgbG9zIHByw7N4aW1vcyBhw7Fvcywgc2UgZXNwZXJhIHF1ZSBlbCBtZXJjYWRvIGlubW9iaWxpYXJpbyBlbiBsYSBDaXVkYWQgZGUgQ2FsaSBzaWdhIHN1YmllbmRvIGNvbW8gZW4gYcOxb3MgYW50ZXJpb3JlcywgYnJpbmRhbmRvIG9wb3J0dW5pZGFkZXMgcGFyYSBsb3MgYWN0b3JlcyBxdWUgbG9ncmVuIGlkZW50aWZpY2FyIGxhcyBjYXJhY3RlcsOtc3RpY2FzIG3DoXMgcmVsZXZhbnRlcyBkZSBzdSBjb21wb3J0YW1pZW50by4gUGFyYSBhcHJvdmVjaGFyIGVzdGEgb3BvcnR1bmlkYWQsIHNlIGVudHJlZ2EgZWwgcHJlc2VudGUgaW5mb3JtZSBhIGxhIGp1bnRhIGRpcmVjdGl2YSBkZSBsYSBhZ2VuY2lhIGlubW9iaWxpYXJpYSBCJkMuIEVuIGVzdGUgaW5mb3JtZSBzZSBleHBsaWNhIGRlIG1hbmVyYSBnZW5lcmFsIGVsIHByb2Nlc28gZGUgb3JkZW5hbWllbnRvIHkgbGltcGllemEgZGUgZGF0b3MsIHkgc2UgcHJlc2VudGEgdW4gYW7DoWxpc2lzIGRlc2NyaXB0aXZvIGRlIGxvcyBkYXRvcyByZXN1bHRhbnRlcy4gUGFyYSBlc3RvLCBkZXNwdcOpcyBkZSBpbXBvcnRhciBlbCBjb25qdW50byBkZSBkYXRvcywgeSBkZSByZWFsaXphciBzdSBsaW1waWV6YSwgZnVzaW9uYW5kbywgZWxpbWluYW5kbywgbm9ybWFsaXphbmRvLCBlc3RhbmRhcml6YW5kbyBvIGltcHV0YW5kbyBkYXRvcywgc2Vnw7puIGZ1ZXNlIG5lY2VzYXJpbywgc2UgcmVhbGl6w7MgdW4gYW7DoWxpc2lzIGRlIGxvcyBkYXRvcyBwYXJhIHByZXNlbnRhcmxvcyBlbiBkaXN0aW50b3MgZ3LDoWZpY29zIHkgdGFibGFzIHF1ZSBwZXJtaXRpcsOhbiBlbnRlbmRlciBtZWpvciBsYXMgY2FyYWN0ZXLDrXN0aWNhcyBkZWwgY29uanVudG8uDQoNClBvc3Rlcmlvcm1lbnRlLCBzZSBwcmVzZW50YXLDoW4gbG9zIHJlc3VsdGFkb3MgZGUgZGljaG8gYW7DoWxpc2lzIHkgc2UgcmVhbGl6YXLDoSB1bmEgZGlzY3VzacOzbiBzb2JyZSBsb3MgZGVzY3VicmltaWVudG9zIHkgZGlmaWN1bHRhZGVzIGVuY29udHJhZGFzIGVuIGxvcyBkYXRvcywgcGFyYSBmaW5hbG1lbnRlLCBlbnRyZWdhciBsYXMgY29uY2x1c2lvbmVzIGRlIHRvZG8gZWwgZWplcmNpY2lvLiBDb21vIGFuZXhvLCBzZSBwb2Ryw6EgdmVyIHRvZG8gZWwgY29kaWdvIGVqZWN1dGFkbyBlbiB0b2RhcyBsYXMgcGFydGVzIGRlbCBwcm9jZXNvLg0KDQpBIGNvbnRpbnVhY2nDs24sIHNlIHByZXNlbnRhbiBsb3Mgb2JqZXRpdm9zIHF1ZSBzZSBidXNjYXJvbiBjb24gbGEgcmVhbGl6YWNpw7NuIGRlIGVzdGUgZXN0dWRpby4NCg0KLS0tDQoNCiMgMi4gT2JqZXRpdm9zDQoNCkxhIGlubW9iaWxpYXJpYSAqKkImQyoqIGRlc2VhIHRvbWFyIGRlY2lzaW9uZXMgaW1wb3J0YW50ZXMgc29icmUgc3UgbmVnb2NpbywgdGFsZXMgY29tbyBkZWZpbmlyIHVuIG5pY2hvIGRlIG1lcmNhZG8sIGRlc2Fycm9sbGFyIGxhIGVzdHJhdGVnaWEgZGUgbWFya2V0aW5nLCBlc3RhYmxlY2VyIHByZWNpb3MgZGUgdmVudGFzIHkgb2ZyZWNlciBzZXJ2aWNpb3MgcGVyc29uYWxpemFkb3MgYSBzdXMgY2xpZW50ZXMuICBQYXJhIHBvZGVyIGxvZ3JhciBlc3RvLCBlbCBwcmVzZW50ZSBwcm95ZWN0byBoYSBkZWZpbmlkbyBsb3Mgc2lndWllbnRlcyBvYmpldGl2b3M6DQoNCi0gQW5hbGl6YXIgbGEgaW5mb3JtYWNpw7NuIGRlbCBjb25qdW50byBkZSBkYXRvcyBkZSBsYSB2ZW50YSBkZSB2aXZpZW5kYXMgZW4gbGEgY2l1ZGFkIGRlIENhbGkNCi0gRGVwdXJhciBlbCBjb25qdW50byBkZSBkYXRvcyBwYXJhIHN1IHBvc3RlcmlvciB1dGlsaXphY2nDs24NCi0gUmVhbGl6YXIgdW4gYW7DoWxpc2lzIGRlc2NyaXB0aXZvIGRlIGxvcyBkYXRvcw0KLSBQcm9wb3JjaW9uYXIgaW5mb3JtYWNpw7NuIHNvYnJlOg0KICAtIFByZWNpbyBkZSBsYXMgdml2aWVuZGFzIGVuIGRpZmVyZW50ZXMgem9uYXMgZGUgQ2FsaSANCiAgLSBUaXBvIGRlIHZpdmllbmRhcyBtw6FzIG9mZXJ0YWRhcw0KICAtIENhcmFjdGVyw61zdGljYXMgbcOhcyByZWxldmFudGVzIGRlIGxhIG9mZXJ0YSBkZSB2aXZpZW5kYSBlbiBDYWxpDQoNCi0tLQ0KDQojIDMuIE3DqXRvZG9zDQoNCiMjIDMuMS4gQW7DoWxpc2lzIGludHJvZHVjdG9yaW8NCg0KUGFyYSBjb21lbnphciwgZW1wZXphcmVtb3MgaW1wb3J0YW5kbyBlbCBwYXF1ZXRlIHJlcXVlcmlkbyB5IGNhcmdhbmRvIGxhIGxpYnJlcsOtYSB5IGxvcyBkYXRvcyBjb24gbG9zIHF1ZSB2YW1vcyBhIHRyYWJhamFyLCBkZSBsYSBzaWd1aWVudGUgbWFuZXJhOiANCg0KYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9DQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpDQpSLnZlcnNpb24NCmlmKCFyZXF1aXJlTmFtZXNwYWNlKCJnZ3Bsb3QyIiwgcXVpZXRseSA9IFRSVUUpKXsNCiAgaW5zdGFsbC5wYWNrYWdlcygiZ2dwbG90MiIpDQp9DQppZighcmVxdWlyZU5hbWVzcGFjZSgiZGV2dG9vbHMiLCBxdWlldGx5ID0gVFJVRSkpew0KICBpbnN0YWxsLnBhY2thZ2VzKCJkZXZ0b29scyIpDQp9DQoNCmlmKCFyZXF1aXJlTmFtZXNwYWNlKCJvdXRsaWVycyIsIHF1aWV0bHkgPSBUUlVFKSl7DQogIGluc3RhbGwucGFja2FnZXMoIm91dGxpZXJzIikNCn0NCmlmKCFyZXF1aXJlTmFtZXNwYWNlKCJkcGx5ciIsIHF1aWV0bHkgPSBUUlVFKSl7DQogIGluc3RhbGwucGFja2FnZXMoImRwbHlyIikNCn0NCmlmKCFyZXF1aXJlTmFtZXNwYWNlKCJ0aWR5dmVyc2UiLCBxdWlldGx5ID0gVFJVRSkpew0KICBpbnN0YWxsLnBhY2thZ2VzKCJ0aWR5dmVyc2UiKQ0KfQ0KaWYoIXJlcXVpcmVOYW1lc3BhY2UoImxlc3NSIiwgcXVpZXRseSA9IFRSVUUpKXsNCiAgaW5zdGFsbC5wYWNrYWdlcygibGVzc1IiKQ0KfQ0KbGlicmFyeShvdXRsaWVycykNCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHRpZHl2ZXJzZSkNCmxpYnJhcnkobGVzc1IpDQojZGV2dG9vbHM6Omluc3RhbGxfZ2l0aHViKCJkZ29ueGFsZXg4MC9wYXF1ZXRlTUVUT0RPUyIpICMgSW5zdGFsbHMgcGFja2FnZSBwYXF1ZXRlTUVUT0RPUyAtIEFscmVhZHkgaW5zdGFsbGVkDQpgYGANCg0KYGBge3IgbWFpbl9saWJyYXJ5LCBpbmNsdWRlPUZBTFNFfQ0KbGlicmFyeShwYXF1ZXRlTUVUT0RPUykgIyBDYXJnYSBwYXF1ZXRlIHBhcXVldGVNRVRPRE9TDQpgYGANCg0KDQpgYGB7ciBsb2FkX2RhdGF9DQpkYXRhKCJ2aXZpZW5kYV9mYWx0YW50ZXMiKSAjIGxvYWQgZGF0YSAnVml2aWVuZGFfZmFsdGFudGVzJyAgZnJvbSAgcGFxdWV0ZU1FVE9ET1MNCnNldC5zZWVkKDY4OSkgIyBGaXggdGhlIHNlZWQgZm9yIHJhbmRvbSBudW1iZXJzDQpkZiA8LSB2aXZpZW5kYV9mYWx0YW50ZXMNCmRmDQpgYGANClBvZGVtb3Mgb2JzZXJ2YXIgcXVlIGhheSB2YXJpYWJsZXMgY29tbyBpZCwgem9uYSwgcGlzbywgZXN0cmF0bywgcHJlY2lvbSwgYXJlYWNvbnN0LCBwYXJxdWVhLCBiYW5pb3MsIGhhYml0YWMsIHRpcG8geSAzIHZhcmlhYmxlcyBtw6FzLiAgQ2FkYSBsw61uZWEgcHJvcG9yY2lvbmEgaW5mb3JtYWNpw7NuIHNvYnJlIHVuIGlubXVlYmxlIGVuIHBhcnRpY3VsYXIuICBBaG9yYSB2ZWFtb3MgY3VhbnRvcyBkYXRvcyBmYWx0YW50ZXMgaGF5IGVuIGVsIGRhdGFzZXQuDQoNCmBgYHtyIG1pc3NpbmdfZGF0YX0NCm1pc3NpbmdfZGF0YSA8LSBjb2xTdW1zKGlzLm5hKGRmKSkgJT4lDQogICAgICAgICAgICAgICAgIGFzLmRhdGEuZnJhbWUoKSANCg0KbWlzc2luZ19kYXRhDQptZGYgPC0gZmlsdGVyKGRmLGlzLm5hKGRmJGlkKSkgJT4lDQogICAgICAgICAgICAgICAgIGFzLmRhdGEuZnJhbWUoKQ0KbWRmDQpgYGANCg0KIyMgMy4yLiBMaW1waWV6YSBkZSBkYXRvcw0KDQojIyMgMy4yLjEuIEVsaW1pbmFjacOzbiBkZSByZWdpc3Ryb3MgdmFjw61vcw0KDQpFbGltaW5lbW9zIGxvcyByZWdpc3Ryb3MgY29uIGRhdG9zIGZhbHRhbnRlcyBlbiBsYSBjb2x1bW5hIGlkLCB5IHZvbHZhbW9zIGEgcmV2aXNhciBsb3MgZGF0b3MgZmFsdGFudGVzIGRlbCBjb25qdW50byBkZSBkYXRvcy4NCg0KYGBge3IgZGVsZXRlX25hfQ0KZGYgPC0gZmlsdGVyKGRmLCFpcy5uYShkZiRpZCkpIA0KZGYNCm1pc3NpbmdfZGF0YSA8LSBjb2xTdW1zKGlzLm5hKGRmKSkgJT4lDQogICAgICAgICAgICAgICAgIGFzLmRhdGEuZnJhbWUoKSANCg0KbWlzc2luZ19kYXRhDQpgYGANCkxhIGNvbHVtbmEgaWQgbm8gYXBvcnRhIGluZm9ybWFjacOzbiB2YWxpb3NhIGFsIGVzdHVkaW8sIGFzw60gcXVlIGxhIGVsaW1pbmFyZW1vcy4gIERlIGlndWFsIGZvcm1hLCBsYXMgdmFyaWFibGVzICoqbG9uZ2l0dWQqKiB5ICoqbGF0aXR1ZCoqIG5vIHNlIGhhY2VuIHJlbGV2YW50ZXMgcGFyYSBlc3RlIGVzdHVkaW8sIGRhZG8gcXVlIHNlIHRyYXRhIGRlIGlubXVlYmxlcyBlbiB1bmEgc29sYSBjaXVkYWQgeSBxdWUgYWRlbcOhcyBzZSB0aWVuZSBsYSB2YXJpYWJsZSBkZWwgYmFycmlvIHkgZGUgbGEgem9uYSBlbiBlbCBjb25qdW50byBkZSBkYXRvcy4gVGFtcG9jbyBzZSB2YSBhIGhhY2VyIHVuYSB2aXN1YWxpemFjacOzbiBkZSBsYSBkaXN0cmlidWNpw7NuIGRlIGxhcyBjYXNhcyBlbiB1biBtYXBhLCBhdW5xdWUgcGFyYSB1biBhbsOhbGlzaXMgZGUgb3RybyB0aXBvLCBlc3RvIHNpIHBvZHLDrWEgc2VyIHJlbGV2YW50ZS4gRXN0YXMgdGFtYmnDqW4gc2UgZWxpbWluYXLDoW4gZGVsIGNvbmp1bnRvLg0KIA0KYGBge3IgZGVsX2lkfQ0KZGYkbGF0aXR1ZCA8LSBOVUxMDQpkZiRsb25naXR1ZCA8LSBOVUxMDQpkZiRpZCA8LSBOVUxMDQpkZg0KYGBgDQoNCiMjIyAzLjIuMi4gQW7DoWxpc2lzIGRlIGNvbHVtbmFzIGNvbiBkYXRvcyBmYWx0YW50ZXMNCg0KVmVtb3MgcXVlIGFob3JhIGVuIGxhcyDDum5pY2FzIHZhcmlhYmxlcyBlbiBsYXMgcXVlIGZhbHRhbiBkYXRvcyBzb24gKipwaXNvKiogeSAqKnBhcnF1ZWEuKiogIFZlYW1vcyBxdcOpIGNhcmFjdGVyw61zdGljYXMgdGllbmVuIGVzYXMgdmFyaWFibGVzLCBwcmltZXJvIGxvIGhhY2Vtb3MgcGFyYSAqKnBpc28qKg0KDQpgYGB7ciBzdW1tYXJ5fQ0Kc3VtbWFyeShkZiRwaXNvKQ0KI3N0cihkZiRwaXNvKQ0KdGFibGUoZGYkcGlzbykNCmBgYA0KUG9kZW1vcyBvYnNlcnZhciBhbGd1bmFzIGNvc2FzIGltcG9ydGFudGVzLiBMbyBwcmltZXJvIGVzIHF1ZSBoYXkgMjYzOCByZWdpc3Ryb3Mgc2luIGRhdG8gZW4gbGEgY29sdW1uYSAqcGlzbyouIExvIHNlZ3VuZG8sIHF1ZSBlbCBtZW5vciB2YWxvciBlcyAxIHkgZWwgbWF5b3IgZXMgMTIsIGNvbiB1biBidWVuIG7Dum1lcm8gZGUgcmVnaXN0cm9zIGNvbiB2YWxvcmVzIGFsdG9zLiBQb3IgZWwgbm9tYnJlIGRlIGxhIHZhcmlhYmxlIG5vIHNhYmVtb3Mgc2kgZWwgdmFsb3IgY29ycmVzcG9uZGUgYWwgbsO6bWVybyBkZWwgcGlzbyBlbiBlbCBxdWUgcXVlZGEgZWwgaW5tdWVibGUgZW4gdW4gZWRpZmljaW8sIG8gZWwgbsO6bWVybyBkZSBwaXNvcyBxdWUgdGllbmUgZWwgaW5tdWVibGUuICBTaSBmdWVyYSBsbyBzZWd1bmRvLCBxdWVycsOtYSBkZWNpciBxdWUgaGF5IGlubXVlYmxlcyBxdWUgdGllbmVuIDEyIHBpc29zLCBsbyBxdWUgdGVuZHLDrWEgc2VudGlkbyBzaSBmdWVyYW4gZWRpZmljaW9zLiBTaSBmdWVyYSBsbyBwcmltZXJvLCBzaWduaWZpY2EgcXVlIGhheSBpbm11ZWJsZXMgZW4gZWwgZG9jZWF2byBwaXNvIGRlIHVuIGVkaWZpY2lvLCBhbCBpZ3VhbCBxdWUgZW4gZWwgZMOpY2ltbywgZWwgbm92ZW5vLCB5IGFzw60gc3VjZXNpdmFtZW50ZSwgTG8gcXVlIHRpZW5lIG11Y2hvIG3DoXMgc2VudGlkbywgZGFkbyBsbyBleHRyZW1hZGFtZW50ZSByYXJvIHF1ZSBzZXLDrWEgcXVlIHVuYSBjYXNhIG8gdW4gYXBhcnRhbWVudG8gdHV2aWVyYSAxMiBwaXNvcy4gUGFyYSB0cmF0YXIgZGUgZW50ZW5kZXIgYSBxdWUgc2UgcmVmaWVyZSwgdmFtb3MgYSB2ZXIgcHJpbWVybyBhIHF1ZSB0aXBvIGRlIGlubXVlYmxlIGNvcnJlc3BvbmRlbiBsb3MgcmVnaXN0cm9zIHF1ZSB0aWVuZW4gdW4gbsO6bWVybyBhbHRvLg0KDQpgYGB7ciBwaXNvX25hfQ0KcGlzb25hIDwtIHN1YnNldChkZiwgaXMubmEoZGYkcGlzbykpICNzdWJzZXQgcGlzb25hIGNvbnRhaW5zIHRoZSByZWNvcmRzIHdpdGhvdXQgdmFsdWUgaW4gY29sdW1uIHBpc28NCnRhYmxlKHBpc29uYSR0aXBvKQ0KYGBgDQpWZW1vcyBxdWUgbG9zIHJlZ2lzdHJvcyBjb3JyZXNwb25kZW4gdGFudG8gYSBjYXNhcyBjb21vIGEgYXBhcnRhbWVudG9zLCB5IHF1ZSBoYXkgZGlmZXJlbmNpYSBlbiBsYSBlc2NyaXR1cmEgZGUgbG9zIHZhbG9yZXMgcXVlIGNvcnJlc3BvbmRlbiBhIHVuIG1pc21vIHRpcG8gZGUgaW5tdWVibGUuICBUYW1iacOpbiB2ZW1vcyBxdWUgbm8gaGF5IGVkaWZpY2lvcywgbHVlZ28gbm8gdGVuZHLDrWEgc2VudGlkbyBsYSBzZWd1bmRhIGhpcMOzdGVzaXMgZGUgcXVlIGxhIHZhcmlhYmxlICpwaXNvKiBzZSByZWZpZXJlIGFsIG7Dum1lcm8gZGUgcGlzb3MgZGVsIGlubXVlYmxlLiBTZSB0cmF0YSBwb3IgbG8gdGFudG8gZGVsIHBpc28gZW4gZWwgcXVlIHNlIHViaWNhIGVsIGlubXVlYmxlLiBBIGNvbnRpbnVhY2nDs24sIHZveSBhIGhvbW9nZW5pemFyIGxvcyBub21icmVzIGRlIGxvcyB0aXBvcyBkZSBpbm11ZWJsZSBlbiAqKkFwYXJ0YW1lbnRvKiogeSAqKkNhc2EqKiBzb2xhbWVudGUuIEVuIGVsIGNhc28gZGUgbG9zIHZhbG9yZXMgKiphcHRvKiosIHRlbmRyw6kgcXVlIHJlZW1wbGF6YXJsb3MgcG9yICoqQXBhcnRhbWVudG8qKi4NCg0KYGBge3IgaG9tb2dlbml6YXRpb259DQpkZiR0aXBvIDwtIHRvbG93ZXIoZGYkdGlwbykNCnRhYmxlKGRmJHRpcG8pDQpkZiR0aXBvIDwtIGlmZWxzZShkZiR0aXBvID09ICJhcHRvIiwgIkFwYXJ0YW1lbnRvIiwgaWZlbHNlKGRmJHRpcG8gPT0gImFwYXJ0YW1lbnRvIiwgIkFwYXJ0YW1lbnRvIiwgaWZlbHNlKGRmJHRpcG8gPT0gImNhc2EiLCAgIkNhc2EiLCBkZiR0aXBvKSkpDQp0YWJsZShkZiR0aXBvKQ0KYGBgDQpBaG9yYSB2ZWFtb3MgbnVldmFtZW50ZSBhIHF1ZSB0aXBvIGRlIGlubXVlYmxlIGNvcnJlc3BvbmRlbiBsb3MgcmVnaXN0cm9zIHNpbiAqKnBpc28qKjoNCmBgYHtyIHBpc29fbmFfYWdhaW59DQpwaXNvbmEgPC0gc3Vic2V0KGRmLCBpcy5uYShkZiRwaXNvKSkgI3N1YnNldCBwaXNvbmEgY29udGFpbnMgdGhlIHJlY29yZHMgd2l0aG91dCB2YWx1ZSBpbiBjb2x1bW4gcGlzbw0KdGFibGUocGlzb25hJHRpcG8pDQpgYGANClNlIHB1ZWRlIG9ic2VydmFyIHF1ZSBoYXkgc3VmaWNpZW50ZXMgcmVnaXN0cm9zIHNpbiB2YWxvciBlbiBsYSB2YXJpYWJsZSAqKnBpc28qKiAoKzMwJSkuIEVzdG8gcHVlZGUgdGVuZXIgc2VudGlkbyBwYXJhIGxhcyBjYXNhcywgcG9yIHN1IG5hdHVyYWxlemEsIHB1ZXMgZWxsYXMgbm8gImVzdMOhbiIgZW4gbmluZ8O6biBwaXNvLCBhbCBtZW5vcyBkaWZlcmVudGUgYWwgMXJvLCBwZXJvIGVzbyBubyBzZSBtZW5jaW9uYSBkZSBlc3RhIG1hbmVyYS4gTG8gY29tw7puIGVzIHF1ZSB1biBhcGFydGFtZW50byBzaSB0ZW5nYSB1biBwaXNvIGVuIGRvbmRlIGVzdMOpIHViaWNhZG8gZGVudHJvIGRlIHVuIGVkaWZpY2lvLCBhdW5xdWUgZXhpc3RlbiBhcGFydGFtZW50b3MgZW4gY2FzYXMgcXVlIHNlIHN1YmRpdmlkZW4sIGxvcyBjdWFsZXMgZXN0w6FuIHBvciBsbyBnZW5lcmFsIGVuIGVsIHByaW1lciBwaXNvICgqKnBpc28gPSAxKiopDQpBaG9yYSB2ZWFtb3MgbGEgY2FudGlkYWQgZGUgcmVnaXN0cm9zIGNvbiAqKnBpc28qKiBzZWfDum4gc3UgdGlwbzoNCmBgYHtyIHBpc29fY291bnR9DQp3aXRocGlzbyA8LSBzdWJzZXQoZGYsICFpcy5uYShkZiRwaXNvKSkgI3N1YnNldCB3aXRocGlzbyBjb250YWlucyB0aGUgcmVjb3JkcyB3aXRoIHZhbHVlIGluIGNvbHVtbiBwaXNvDQp0YWJsZSh3aXRocGlzbyR0aXBvKQ0KYGBgDQpDb21vIGVyYSBkZSBlc3BlcmFyc2UsIGVzdGEgY2FudGlkYWQgZXN0w6EgY2VyY2EgYWwgNzAlLg0KQWhvcmEgdmVhbW9zIGNvbW8gc2UgY3J1emEgZWwgVGlwbyBjb24gbGEgbG9zIHZhbG9yZXMgZW4gbGEgY29sdW1uYSBwaXNvLg0KYGBge3IgcGlzb19uYV9tYXRyaXh9DQp0YWJsZShkZiRwaXNvLGRmJHRpcG8pDQpgYGANCkFob3JhLCByZXRvbWFuZG8gZWwgYW7DoWxpc2lzIHNvYnJlIGVsIHNpZ25pZmljYWRvIGRlIGxhIHZhcmlhYmxlIHBpc28sIHNpIGZ1ZXJhIGVsIHBpc28gZW4gZWwgcXVlIHNlIGVuY3VlbnRyYSwgdGVuZHLDrWEgc2VudGlkbyBwYXJhIGxvcyBBcGFydGFtZW50b3MsIHBlcm8gbm8gcGFyYSBsYXMgY2FzYXMuIFNpIGZ1ZXJhIGxhIGNhbnRpZGFkIGRlIHBpc29zLCB0ZW5kcsOtYSBzZW50aWRvIHBhcmEgbGFzIENhc2FzIGRlIDEsIDIgeSBoYXN0YSAzIHBpc29zLCBwdWVzLCBhdW5xdWUgcG9zaWJsZSwgZXhpc3RlIG11eSBwb2NhIHByb2JhYmlsaWRhZCBkZSBjYXNhcyBkZSAxMCwgNywgNiB5IDUgcGlzb3MsIGUgaW5jbHVzaXZlIGxhcyBkZSA0IHBpc29zIHNvbiBtdXkgZXNjYXNhcy4NCk1lIGF0cmV2ZXLDrWEgZW50b25jZXMgYSBkZWNpciBxdWUgcGFyYSBsb3MgcmVnaXN0cm9zIGRlIHRpcG8gQXBhcnRhbWVudG8sIGVsIHZhbG9yIGVudHJlIDEgeSAxMiB0aWVuZSBzZW50aWRvLiAgUGFyYSBsb3MgZGUgdGlwbyBDYXNhLCBsb3MgdmFsb3JlcyBhbHRvcywgbWF5b3JlcyBvIGlndWFsZXMgYSA0IG5vIHRpZW5lbiBzZW50aWRvIG8gc29uIG11eSBwb2NvIHByb2JhYmxlcy4gIA0KDQpFbiBlc3RvcyBjYXNvcyBlbnRvbmNlcyBsbyBxdWUgaGFyZW1vcyBlcyBtb2RpZmljYXIgbyBjb21wbGV0YXIgbGEgdmFyaWFibGUgcGlzbyBjb24gZWwgdmFsb3IgMSwgcGFyYSB0b2RhcyBsYXMgY2FzYSBjb24gcGlzbyA+IDMgeSBkZWphcmVtb3MgbG9zIGRlIHZhbG9yIGlndWFsIG8gbWVub3IgcXVlIDMgY29tbyBlc3TDoW4sIHB1ZXMgZXhpc3RlIG1heW9yIHByb2JhYmlsaWRhZCBkZSBxdWUgc2kgZXhpc3Rhbi4gRW4gY3VhbnRvIGEgbG9zICpBcGFydGFtZW50b3MqIHNpbiB2YWxvciBlbiBwaXNvLCBsb3MgZWxpbWluYXJlbW9zIGRlbCBjb25qdW50byBkZSBkYXRvcy4gRW4gY3VhbnRvIGEgbG9zIG7Dum1lcm9zIGFsdG9zIGRlIGxhIHZhcmlhYmxlIHBpc28gZW4gbG9zIHJlZ2lzdHJvcyBkZSB0aXBvICpBcGFydGFtZW50byosIG5vIHRlbmVtb3MgcmF6w7NuIHBhcmEgZHVkYXIgZGUgZWxsb3MsIGx1ZWdvIGxvcyBkZWphcmVtb3MgY29tbyBlc3TDoW4uDQoNClZlYW1vcyBjb21vIHF1ZWRhIGVsIGRhdGFzZXQgZW4gZXN0YXMgZG9zIHZhcmlhYmxlcyBkZXNwdcOpcyBkZSBoYWNlciBlbCBjYW1iaW86DQoNCmBgYHtyIHBpc29fZ3JlYXRlcl90aGFuXzN9DQpkZiRwaXNvIDwtIGlmZWxzZSgoZGYkcGlzbyA+IDMgfCBpcy5uYShkZiRwaXNvKSkgICYgZGYkdGlwbyA9PSAiQ2FzYSIsIDEsIGRmJHBpc28pDQpkZiA8LSBmaWx0ZXIoZGYsIWlzLm5hKGRmJHBpc28pKQ0KbWlzc2luZ19kYXRhIDwtIGNvbFN1bXMoaXMubmEoZGYpKSAlPiUNCiAgICAgICAgICAgICAgICAgYXMuZGF0YS5mcmFtZSgpIA0KDQptaXNzaW5nX2RhdGENCmBgYA0KDQpBaG9yYSwgYW5hbGljZW1vcyBsb3MgdmFsb3JlcyBkZSBsYSB2YXJpYWJsZSAqKnBhcnF1ZWEqKiwgcXVlIG9mcmVjZSBsb3MgdmFsb3JlcyBkZSBsYSBjYW50aWRhZCBkZSBwYXJxdWVhZGVyb3MgZGUgdW4gaW5tdWVibGUuIEVzdGEgZXMgbGEgb3RyYSB2YXJpYWJsZSBxdWUgdGllbmUgdmFsb3JlcyBlbiBOQS4NCg0KYGBge3IgcGFycXVlYX0NCnRhYmxlKGRmJHBhcnF1ZWEsZGYkZXN0cmF0byxkZiR0aXBvICkNCmBgYA0KU2Vnw7puIGVzdG8sIGhheSB2YXJpb3MgaW5tdWVibGVzIHF1ZSB0aWVuZW4gZGVzZGUgNSBoYXN0YSAxMCBwYXJxdWVhZGVyb3MsIHZhbG9yZXMgcXVlIG5vcyBoYWNlbiBkdWRhciBkZSBzdSB2ZXJhY2lkYWQuIFBhcmEgY2llcnRvcyB0aXBvcyBjYXNhcywgZXMgbcOhcyBwb3NpYmxlIHF1ZSB0ZW5nYW4gbXVjaG9zICJsdWdhcmVzIGRvbmRlIHBhcnF1ZWFyIiBhdW5xdWUgdMOpY25pY2FtZW50ZSBubyBzZWFuIHBhcnF1ZWFkZXJvcyBjdWJpZXJ0b3MuICBZbyBkZXNjb25maWFyw61hIGRlIGxvcyB2YWxvcmVzIG1heW9yZXMgZGUgNCBpbmNsdXNpdmUgcGFyYSBsYXMgY2FzYXMuIFZlbW9zIGVuIGxhcyB0YWJsYXMgcXVlIHBhcmEgbG9zIGFwYXJ0YW1lbnRvcywgc29sbyBoYXkgNiBxdWUgdGllbmVuIHZhbG9yZXMgbWF5b3JlcyBhIDQuIFNlIHZhbiBhIGVsaW1pbmFyLiBFbiBjdWFudG8gYSBsYXMgY2FzYXMsIGhheSBtdWNob3MgbcOhcyByZWdpc3Ryb3MgY29uIHZhbG9yZXMgYWx0b3MgKCoqcGFycXVlYSoqID4gNCkuIFBhcmEgZWxpbWluYXIgbG9zIHZhbG9yZXMgYXTDrXBpY29zLCB2YW1vcyBhIGFzaWduYXJsZXMgZWwgdmFsb3IgZGUgNCBhIGRpY2hvcyByZWdpc3Ryb3MuIEVuIGN1YW50byBhIGxvcyBxdWUgbm8gdGllbmVuIGRhdG8sIHZhbW9zIGEgYXN1bWlyIHF1ZSBubyB0aWVuZW4gcGFycXVlYWRlcm8sIHBvciBsbyB0YW50byBsZXMgcG9uZHJlbW9zIGVsIHZhbG9yIGRlIGNlcm8uDQoNCmBgYHtyIHBhcnF1ZWFfZ3JlYXRlcl90aGFuXzR9DQpkZiRwYXJxdWVhIDwtIGlmZWxzZShkZiRwYXJxdWVhID4gNCwgNCwgIGRmJHBhcnF1ZWEpDQpkZiRwYXJxdWVhIDwtIGlmZWxzZShpcy5uYShkZiRwYXJxdWVhKSwgMCwgZGYkcGFycXVlYSkNCnRhYmxlKGRmJHBhcnF1ZWEsZGYkZXN0cmF0byxkZiR0aXBvICkNCnN1bShpcy5uYShkZiRwYXJxdWVhKSkNCmBgYA0KDQojIyMgMy4yLjMuIEFuw6FsaXNpcyB5IGxpbXBpZXphIGRlIHJlZ2lzdHJvcyBjb24gdmFsb3JlcyBhdMOtcGljb3MNCg0KSGFiaWVuZG8gZWxpbWluYWRvIGRlbCBkYXRhc2V0IHRvZG9zIGxvcyByZWdpc3Ryb3MgY29uIGRhdG9zIHZhY8Otb3MsIGFob3JhIHZhbW9zIGEgYW5hbGl6YXIgbGFzIG90cmFzIHZhcmlhYmxlcyBkZWwgY29uanVudG8uIFZpc3VhbGl6YXJlbW9zIGVuIGdyw6FmaWNvcyBkZSBjYWphcyB5IGJpZ290ZXMgbGEgZGlzdHJpYnVjacOzbiBkZSBsYXMgdmFyaWFibGVzIG51bcOpcmljYXMuDQoNCmBgYHtyIGJsb3hfcGxvdH0NCm51bWVyaWNfY29sdW1ucyA8LSBuYW1lcyhkZilbc2FwcGx5KGRmLCBpcy5udW1lcmljKV0NCm5vX2NvbHVtbnMgPC0gYygicGlzbyIsImVzdHJhdG8iLCJwYXJxdWVhIikgIywibG9uZ2l0dWQiLCAibGF0aXR1ZCIpDQpudW1lcmljX2NvbHVtbnMgPC0gc2V0ZGlmZihudW1lcmljX2NvbHVtbnMsIG5vX2NvbHVtbnMpDQpsYXBwbHkobnVtZXJpY19jb2x1bW5zLCBmdW5jdGlvbih2YXJpYWJsZSkgew0KICBnZ3Bsb3QoZGYsIGFlc19zdHJpbmcoeCA9IHZhcmlhYmxlKSkgKw0KICAgIGdlb21fYm94cGxvdCgpICsNCiAgICBsYWJzKHRpdGxlID0gcGFzdGUwKCJCb3hwbG90IHBhcmEgbGEgY29sdW1uYTogIiwgdmFyaWFibGUpKQ0KfSkNCmBgYA0KDQpQb2RlbW9zIHZlciBxdWUgbGFzIHZhcmlhYmxlcyAqKnByZWNpb20qKiB5ICoqYXJlYWNvbnN0KiogdGllbmVuIHVuYSBncmFuIGNhbnRpZGFkIGRlIHZhbG9yZXMgYXTDrXBpY29zLCB5IHRhbWJpw6luIHF1ZSBzZWfDum4gbG9zIGRhdG9zLCBoYXkgaW5tdWVibGVzIGNvbiA4LCA5IHkgMTAgYmHDsW9zLCBhc8OtIGNvbW8gdGFtYmnDqW4gY29uIDAgaGFiaXRhY2lvbmVzIG8gY29uIGhhc3RhIDEwIGhhYml0YWNpb25lcy4gRW4gY3VhbnRvIGEgbGFzIHZhcmlhYmxlcyAqKmxvbmdpdHVkKiogeSAqKmxhdGl0dWQqKiwgcGFyZWNlIHF1ZSBodWJpZXJhIGVycm9yZXMgZW4gbG9zIGRhdG9zLCBwdWVzIHN1IGRpc3RyaWJ1Y2nDs24sIGFsIHNlciBsb3MgZGF0b3MgZGUgaW5tdWVibGVzIGVuIHVuYSBtaXNtYSBjaXVkYWQsIGRlYmVyw61hbiBzZXIgbXV5IHNpbWlsYXJlcyB5IG5vIGNvbiBkaWZlcmVuY2lhcyB0YW4gZ3JhbmRlcyBlbnRyZSBzdXMgdmFsb3Jlcy4NCg0KVmFtb3MgZW50b25jZXMgYSByZXZpc2FyIHNpIGxvcyB2YWxvcmVzIGRlIGVzdGFzIHZhcmlhYmxlcyBwYXJhIGVzb3MgcmVnaXN0cm9zIHNvbiBjb2hlcmVudGVzLCBwb3IgZWplbXBsbywgbGFzIGNhc2FzIGNvbiBtdWNob3MgYmHDsW9zIG8gbXVjaGFzIGhhYml0YWNpb25lcyBkZWJlcsOtYW4gc2VyIGxhcyBjYXNhcyBjb24gdW4gw6FyZWEgY29uc3RydWlkYSBtYXlvciB5IHRhbWJpw6luIGNvbiBtw6FzIGFsdG9zIHByZWNpb3MuIA0KDQpBbnRlcyBkZSBwcm9mdW5kaXphciBlbiBlbCBhbsOhbGlzaXMsIGVsaW1pbmFyZW1vcyBsb3MgcmVnaXN0cm9zIGNvbiBkYXRvcyBubyBsw7NnaWNvcywgY29tbyBhcmVhY29uc3QgPSAwLCBoYWJpdGFjID0gMCBvIGJhw7FvcyA9IDAuDQoNCmBgYHtyIGRlbGV0ZV9pbG9naWNhbF9yZWNvcmRzfQ0KZGYgPC0gZmlsdGVyKGRmLCBkZiRiYW5pb3MgIT0gMCkNCmRmIDwtIGZpbHRlcihkZiwgZGYkaGFiaXRhYyAhPSAwKQ0KZGYgPC0gZmlsdGVyKGRmLCBkZiRhcmVhY29uc3QgIT0gMCkNCmBgYA0KDQpgYGB7ciBvdXRsaWVyc199DQpudW1lcmljX2NvbHVtbnMgPC0gbmFtZXMoZGYpW3NhcHBseShkZiwgaXMubnVtZXJpYyldDQpleGNsdWRlX2NvbHVtbnMgPC0gYygicGlzbyIsImVzdHJhdG8iLCJwYXJxdWVhIikgIywibG9uZ2l0dWQiLCAibGF0aXR1ZCIpDQpudW1lcmljX2NvbHVtbnMgPC0gc2V0ZGlmZihudW1lcmljX2NvbHVtbnMsIGV4Y2x1ZGVfY29sdW1ucykNCmNvdl9tYXRyaXggPC0gY292KGRmWywgbnVtZXJpY19jb2x1bW5zXSkNCmF0aXBpY29zIDwtIG1haGFsYW5vYmlzKGRmWywgbnVtZXJpY19jb2x1bW5zXSwgY2VudGVyID0gVFJVRSwgY292ID0gY292X21hdHJpeCkNCmxlbmd0aChhdGlwaWNvcykNCg0KYGBgDQoNClZlYW1vcyBsYSByZWxhY2nDs24gZW50cmUgbGFzIHZhcmlhYmxlcyAqKnByZWNpb20qKiwgKipiYW5pb3MqKiwgKiphcmVhY29uc3QqKiB5ICoqaGFiaXRhYyoqLiBTZSBlc3BlcmEgcXVlIGVudHJlIG3DoXMgw6FyZWEgY29uc3RydWlkYSwgZWwgdmFsb3Igc2VhIG1hcyBhbHRvLCBvIHF1ZSBlbnRyZSBtw6FzIGhhYml0YWNpb25lcyBleGlzdGFuLCBoYXlhbiBtw6FzIGJhw7FvcywgeSBkZSBpZ3VhbCBtYW5lcmEsIHF1ZSBlbnRyZSBtw6FzIGhhYml0YWNpb25lcyB5IGJhw7FvcywgbWFzIMOhcmVhIGNvbnN0cnVpZGEgdGVuZ2EsIGFsIGlndWFsIHF1ZSBtYXlvciBzZWEgZWwgcHJlY2lvLiAgQ29tcG9ydGFtaWVudG9zIGRpZmVyZW50ZXMgYSBlc3Rvcywgc2kgYmllbiBwdWVkZW4gc2VyIHBvc2libGVzIGVuIGxhIHByw6FjdGljYSwgc29uIHBvY28gcHJvYmFibGVzIHkgYWx0ZXJhbiBsYSBob21vZ2VuZWlkYWQgZGUgbG9zIGRhdG9zLiAgUGFyYSBlc3RlIGVzdHVkaW8sIHNpIHNvbiBwb2NvcyBlc3RvcyB2YWxvcmVzIGF0w61waWNvcywgc2UgZWxpbWluYXLDoW4uDQoNClNlIHJlcHJlc2VudGFyw6FuIGdyw6FmaWNhbWVudGUgbGFzIGRpc3RhbmNpYXMgZGUgTWFoYWxhbm9iaXMsIHF1ZSBlcyB1bmEgbWVkaWRhIGRlIGxhIGRpc3RhbmNpYSBlbnRyZSB1biBwdW50byB5IHVuYSBkaXN0cmlidWNpw7NuIG11bHRpdmFyaWFudGUuIEVzIHVuYSBtZWRpZGEgw7p0aWwgcGFyYSBkZXRlY3RhciB2YWxvcmVzIGF0w61waWNvcyBlbiB1biBjb25qdW50byBkZSBkYXRvcyBtdWx0aWRpbWVuc2lvbmFsLkxhIGRpc3RhbmNpYSBlcyB1bmEgbWVkaWRhIGRlIGxhIGRpc3RhbmNpYSBlbiB1bmlkYWRlcyBkZSBkZXN2aWFjaW9uZXMgZXN0w6FuZGFyLCBwb3IgbG8gdGFudG8sIHVuIHZhbG9yIGFsdG8gZGUgbGEgZGlzdGFuY2lhIGluZGljYSBxdWUgZWwgcHVudG8gZXN0YSBsZWpvcyBkZSBsYSBkaXN0cmlidWNpw7NuIG11bHRpdmFyaWFudGUuIFTDrXBpY2FtZW50ZSwgbG9zIHB1bnRvcyBjb24gdW5hIGRpc3RhbmNpYSBtYXlvciBhIDMgc2UgY29uc2lkZXJhbiBhdMOtcGljb3MuIExhIGRpc3RhbmNpYSBNYWhhbGFub2JpcyBubyBzZSBhZmVjdGEgcG9yIGxhIGVzY2FsYSBkZSBsYXMgdmFyaWFibGVzIHkgZXMgc2Vuc2libGUgYSBsYSBjb3JyZWxhY2nDs24gZW50cmUgbGFzIHZhcmlhYmxlcy4NCg0KYGBge3IgTWFoYWxhbm9iaXNfZGlzdGFuY2VfcHJpY2VfYXJlYX0NCg0KI2dncGxvdChkZiwgYWVzX3N0cmluZyh4ID0gInByZWNpb20iLCB5ID0gImFyZWFjb25zdCIsIGNvbG9yID0gImF0aXBpY29zIikpICsNCiMgIGdlb21fcG9pbnQoKSArDQojICBzY2FsZV9jb2xvcl9jb250aW51b3VzKGxvdyA9ICJ3aGl0ZSIsIGhpZ2ggPSAiYmx1ZSIpICsNCiMgIGxhYnMoeCA9ICJQcmVjaW8iLCB5ID0gIsOBcmVhIGNvbnN0cnVpZGEiLCBjb2xvciA9ICJEaXN0YW5jaWEgZGUgTWFoYWxhbm9iaXMiKQ0KDQpnZ3Bsb3QoZGYsIGFlc19zdHJpbmcoeCA9ICdwcmVjaW9tJywgeSA9ICdhcmVhY29uc3QnLCBjb2xvciA9ICdhdGlwaWNvcycpKSArDQogIGdlb21fcG9pbnQoKSArDQogIHNjYWxlX2NvbG9yX2NvbnRpbnVvdXMobG93ID0gIndoaXRlIiwgaGlnaCA9ICJibHVlIikgKw0KICBsYWJzKHggPSAiUHJlY2lvIiwgeSA9ICJBcmVhIGNvbnN0cnVpZGEiLCBjb2xvciA9ICJEaXN0YW5jaWEgZGUgTWFoYWxhbm9iaXMiKQ0KDQoNCmBgYA0KDQpFbiBlbCBncsOhZmljbyBhbnRlcmlvciBzZSBwdWVkZW4gdmVyIGFsZ3Vub3MgZGF0b3MgcXVlIG5vIHNvbiBsw7NnaWNvcyBwdWVzIHNlIGFzdW1lIHVuYSByZWxhY2nDs24gZGlyZWN0YW1lbnRlIHByb3BvcmNpb25hbCBlbnRyZSBlbCBwcmVjaW8geSBlbCDDoXJlYSBjb25zdHJ1aWRhIGRlIHVuYSBjYXNhLiBQb3IgZWplbXBsbywgaGF5IHVuIHJlZ2lzdHJvIGRlIDE3NTAgbWV0cm9zIGN1YWRyYWRvcyBjb25zdHJ1aWRvcyBjb24gdW4gdmFsb3IgZGUgMjUwIG1pbGxvbmVzLiBTZSBlc3BlcmFyw61hIHF1ZSBwYXJhIHVuIMOhcmVhIHRhbiBncmFuZGUsIGVsIHByZWNpbyBlc3R1dmllcmEgZW50cmUgbG9zIG3DoXMgYWx0b3MgeSBwb3IgZWwgY29udHJhcmlvIGVzdMOhIGVudHJlIGxvcyBtw6FzIGJham9zLiBUYW1iacOpbiBzZSB2ZSBlbCBjYXNvIGNvbnRyYXJpbywgZW4gZWwgcXVlIGVsIHByZWNpbyBlcyBtdXkgYWx0byBwYXJhIHRhbiBwb2NhIMOhcmVhIGNvbnN0cnVpZGEuIEF1bnF1ZSBubyBzZSBlc3TDoW4gdGVuaWVuZG8gZW4gY3VlbnRhIG90cmFzIHZhcmlhYmxlcywgY29tbyBwb3IgZWplbXBsbyBlbCBlc3RyYXRvIG8gZWwgYmFycmlvLCBzaWVtcHJlIGhheSB1bmEgcmVsYWNpw7NuIGRpcmVjdGEgZW50cmUgZWwgdGFtYcOxbyB5IGVsIHZhbG9yIHF1ZSBkZWJlIGNvbnNpZGVyYXJzZS4gIEVuIHVuIGVzdHVkaW8gbcOhcyBkZXRhbGxhZG8gc2UgcG9kcsOtYW4gdGVuZXIgZW4gY3VlbnRhIGxvcyBjcnVjZXMgZW50cmUgZXN0YXMgY3VhdHJvIHZhcmlhYmxlcyBtZW5jaW9uYWRhcywgbyBpbmNsdXNpdmUgdGFtYmnDqW4gY29uIGxhIGNhbnRpZGFkIGRlIGJhw7FvcyB5IGRlIGhhYml0YWNpb25lcy4gDQoNCmBgYHtyIE1haGFsYW5vYmlzX2Rpc3RhbmNlX2JhdGhyb29tc19hcmVhfQ0KDQoNCmdncGxvdChkZiwgYWVzX3N0cmluZyh4ID0gImJhbmlvcyIsIHkgPSAiYXJlYWNvbnN0IiwgY29sb3IgPSAiYXRpcGljb3MiKSkgKw0KICBnZW9tX3BvaW50KCkgKw0KICBzY2FsZV9jb2xvcl9jb250aW51b3VzKGxvdyA9ICJ3aGl0ZSIsIGhpZ2ggPSAiYmx1ZSIpICsNCiAgbGFicyh4ID0gIkJhw7FvcyIsIHkgPSAiw4FyZWEgY29uc3RydWlkYSIsIGNvbG9yID0gIkRpc3RhbmNpYSBkZSBNYWhhbGFub2JpcyIpDQoNCmBgYA0KDQpTZSBvYnNlcnZhIHF1ZSBoYXkgdW5vcyByZWdpc3Ryb3MgY29uIG11Y2hhIMOhcmVhIGNvbnN0cnVpZGEgeSBwb2NvcyBiYcOxb3MsIGNvbW8gZXMgZWwgY2FzbyBkZWwgcmVnaXN0cm8gcXVlIGluZGljYSAxNzUwIG1ldHJvcyBjb25zdHJ1aWRvcyB5IDMgYmHDsW9zLiBTZSBlbG1pbmFyw6EgZXN0ZSByZWdpc3Ryby4NCg0KYGBge3IgZGVsZXRlXzE3NTB9DQpkZiA8LSBmaWx0ZXIoZGYsIGRmJGFyZWFjb25zdCAhPSAxNzUwKQ0KYGBgDQoNClZlYW1vcyBsYSByZWxhY2nDs24gZW50cmUgbGEgY2FudGlkYWQgZGUgaGFiaXRhY2lvbmVzIHkgbGEgY2FudGlkYWQgZGUgYmHDsW9zLiAgU2UgZXNwZXJhIHF1ZSBlbnRyZSBtYXMgaGFiaXRhY2lvbmVzLCBtYXMgYmHDsW9zIGhheWEgZW4gZWwgaW5tdWVibGUuDQpgYGB7ciBNYWhhbGFub2Jpc19kaXN0YW5jZV9yb29tc19iYXRocm9vbXN9DQpnZ3Bsb3QoZGYsIGFlc19zdHJpbmcoeCA9ICJoYWJpdGFjIiwgeSA9ICJiYW5pb3MiLCBjb2xvciA9ICJhdGlwaWNvcyIpKSArDQogIGdlb21fcG9pbnQoKSArDQogIHNjYWxlX2NvbG9yX2NvbnRpbnVvdXMobG93ID0gIndoaXRlIiwgaGlnaCA9ICJibHVlIikgKw0KICBsYWJzKHggPSAiSGFiaXRhY2lvbmVzIiwgeSA9ICJCYcOxb3MiLCBjb2xvciA9ICJEaXN0YW5jaWEgZGUgTWFoYWxhbm9iaXMiKQ0KDQpnZ3Bsb3QoZGYsIGFlc19zdHJpbmcoeCA9ICJoYWJpdGFjIiwgeSA9ICJhcmVhY29uc3QiLCBjb2xvciA9ICJhdGlwaWNvcyIpKSArDQogIGdlb21fcG9pbnQoKSArDQogIHNjYWxlX2NvbG9yX2NvbnRpbnVvdXMobG93ID0gIndoaXRlIiwgaGlnaCA9ICJibHVlIikgKw0KICBsYWJzKHggPSAiSGFiaXRhY2lvbmVzIiwgeSA9ICJBcmVhIiwgY29sb3IgPSAiRGlzdGFuY2lhIGRlIE1haGFsYW5vYmlzIikNCmBgYA0KDQpBcGFyZWNlIHVuIGNhc28gZG9uZGUgaGF5IDMgaGFiaXRhY2lvbmVzIHkgMTAgYmHDsW9zLiBUYW1iacOpbiwgZW4gZWwgZ3LDoWZpY28gYW50ZXJpb3IsIGlubXVlYmxlcyBjb24gMTAgYmHDsW9zIHkgbWVub3MgZGUgNDAwIG1ldHJvcyBkZSDDoXJlYSBjb25zdHJ1aWRhLiBFc3RvcyBzZSBlbGltaW5hcsOhbi4NCmBgYHtyIGRlbF90b29fbWFueV9iYXRocm9vbXNfZmV3X290aGVyc30NCmRmIDwtIGZpbHRlcihkZiwgIShkZiRiYW5pb3MgPT0gMTAgJiBkZiRhcmVhY29uc3QgPD0gNDAwKSkNCmBgYA0KDQoNCmBgYHtyIHJlbGF0aW9uc30NCnRhYmxlKGRmJGJhbmlvcyxkZiRoYWJpdGFjKQ0KYGBgDQoNCkRlIGlndWFsIG1hbmVyYSwgc2Ugb2JzZXJ2YSB1bmEgYXBhcmVudGUgZGlzcGFyaWRhZCBlbnRyZSBsYSBjYW50aWRhZCBkZSBiYcOxb3MgeSBlbCDDoXJlYSBjb25zdHJ1aWRhLiBBdW5xdWUgZXMgcG9zaWJsZSBxdWUgaGF5YSBwb2NvcyBiYcOxb3MgZW4gdW5hIGNhc2EgZ3JhbmRlLCBlc3RvIGVzIHBvY28gcHJvYmFibGUuICBUYWwgdmV6IHVuYSBtYXlvciByZWxhY2nDs24gbGEgdGllbmVuIGxhcyB2YXJpYWJsZXMgcXVlIHJlcHJlc2VudGFuIGxhcyBjYW50aWRhZGVzIGRlIGJhw7FvcyB5IGRlIGhhYml0YWNpb25lcywgcHVlcyBsYXMgaGFiaXRhY2lvbmVzIGRhbiB1bmEgaWRlYSBkZSBsYSBjYW50aWRhZCBkZSBwZXJzb25hcyBxdWUgdml2ZW4gbyB1c2FuIGxhIGNhc2EsIGxvIGN1YWwgbXVlc3RyYSBsYSBuZWNlc2lkYWQgZGUgbcOhcyBvIG1lbm9zIGJhw7Fvcy4NCg0KRW4gZWwgc2VndW5kbyBncsOhZmljbyBzZSB2ZSBxdWUgaGF5IGNhc2FzIGRlIDAgbWV0cm9zIGNvbnN0cnVpZG9zIGNvbiB2YXJpYXMgaGFiaXRhY2lvbmVzLCBsbyBjdWFsIG5vIGVzIHBvc2libGUuIEVzdG9zIHJlZ2lzdHJvcyBzZSBlbGltaW5hcsOhbi4gIFkgdGFtYmnDqW4gaGF5IHJlZ2lzdHJvcyBkZSBpbm11ZWJsZXMgZW4gZWwgY29uanVudG8gY29uIG11Y2hvcyBtw6FzIGJhw7FvcyBxdWUgaGFiaXRhY2lvbmVzLCBlbiB1bmEgcHJvcG9yY2nDs24gZGUgMiBhIDEgZSBpbmNsdXNpdmUgZGUgMyBhIDEuIEVsaW1pbmFyZW1vcyBlc3RvcyByZWdpc3Ryb3MgcHJvYmxlbcOhdGljb3MgZGFkbyBxdWUgbm8gZXMgbXVjaGEgbGEgY2FudGlkYWQgZGUgZWxsb3MuDQoNCg0KIyMjIDMuMi40LiBIb21vZ2VuaXphY2nDs24gZGUgdmFyaWFibGVzIGN1YWxpdGF0aXZhcw0KDQpTZSByZXZpc2Fyb24gbG9zIHZhbG9yZXMgZGUgbGFzIHZhcmlhYmxlcyAqKmJhcnJpbyAqKiB5ICoqem9uYSoqLiBTZSBub3TDsyBxdWUgbG9zIG5vbWJyZXMgZGUgbGFzIHpvbmFzIGVzdMOhbiB0b2RvcyBiaWVuIGVzY3JpdG9zLCBwZXJvIHF1ZSBlbiBsb3Mgbm9tYnJlcyBkZSBsb3MgYmFycmlvcyBoYXkgYWxndW5vcyByZWdpc3Ryb3MgcXVlIHNlIHJlZmllcmVuIGFsIG1pc21vIGJhcnJpbyBwZXJvIHF1ZSBlc3TDoW4gZXNjcml0b3MgZGUgbWFuZXJhIGRpZmVyZW50ZSwgY29tbyBwb3IgZWplbXBsbzogImFsZm9uc28gbG9wZXoiIHkgImFsZm9uem8gTMOzcGV6Ii4gVGFtYmnDqW4gc2Ugbm90YSBxdWUgaGF5IG11Y2hvcyBiYXJyaW9zIGRvbmRlIHNvbG8gaGF5IHVuIGlubXVlYmxlIGEgbGEgdmVudGEuIENvbiB0YW4gYmFqYSByZXByZXNlbnRhdGl2aWRhZCwgbm8gZXMgcG9zaWJsZSBoYWNlciBpbmZlcmVuY2lhcyBlbiBjdWFudG8gYSBsYSBzaXR1YWNpw7NuIGRlIGxvcyBpbm11ZWJsZXMgZW4gbG9zIGJhcnJpb3MuICBIYWJyw61hIHF1ZSB1c2FyIGxhIHpvbmEgcXVlIGFsIHNlciBzb2xvIDUsIHRpZW5lbiBtw6FzIGlubXVlYmxlcyBlbiBlbGxhcy4NCg0KQ29ycmVnaW1vcyBsb3Mgbm9tYnJlcyBkZSBhbGd1bm9zIGRlIGxvcyBiYXJyaW9zIHBhcmEgdmVyIHN1cyBlZmVjdG9zIGVuIGVsIGRhdGFzZXQsIHNpbiBlbWJhcmdvLCBzZSBub3RhIHF1ZSBzaWd1ZSBoYWJpZW5kbyBtdWNob3MgYmFycmlvcyBjb24gdGFuIHNvbG8gdW4gaW5tdWVibGUgeSBxdWUgYWRlbcOhcyBzb24gYWxyZWRlZG9yIGRlIDM1MCB5IGFsZ3Vub3MgZXN0w6FuIHBvc2libGVtZW50ZSBtYWwgcmVmZXJlbmNpYWRvcywgY29tbyBlbCBxdWUgZGljZSAiY2FsaSIgbyBlbCBxdWUgaGFjZSByZWZlcmVuY2lhIGFsIG5vbWJyZSBkZSB1biBlZGlmaWNpby4gVGFtYmnDqW4gc2UgdmUgcXVlIGVzdMOhbiByZWZlcmVuY2lhZGFzIGxhcyB6b25hcyBlbiBsb3MgYmFycmlvcy4gRW4gZGVmaW5pdGl2YSwgZXN0YSB2YXJpYWJsZSByZXF1ZXJpcsOtYSBkZSBtdWNoYSBsaW1waWV6YSBlIGludmVzdGlnYWNpw7NuIHBhcmEgc2VyIGRlcHVyYWRhLCB5IHRlbmllbmRvIHRhbWJpw6luIGVycm9yZXMgZW4gbGEgbG9uZ2l0dWQgeSBsYXRpdHVkLCBubyBzZSBwdWVkZSBpbXB1dGFyIGEgcGFydGlyIGRlIGxvcyBkYXRvcyBleGlzdGVudGVzLg0KDQpgYGB7ciBuZWlnaGJvcmhvb2RzfQ0KdW5pcXVlKGRmJHpvbmEpDQpkZiRiYXJyaW8gPC0gdG9sb3dlcihkZiRiYXJyaW8pDQpiYXJyaW9zID0gdW5pcXVlKGRmJGJhcnJpbywgZGVjcmVhc2luZyA9IFRSVUUpDQojdGFibGUoZGYkYmFycmlvLCBzb3J0ID0gVFJVRSkNCiNiYXJyaW9zDQoNCmRmJGJhcnJpbyA8LSBpZmVsc2UoZGYkYmFycmlvID09ICJhbGbiiJrCqXJleiByZWFsIiwgImFsZmVyZXogcmVhbCIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImFsZm9uc28gbMOzcGV6IiwgImFsZm9uc28gbG9wZXoiLCBpZmVsc2UoZGYkYmFycmlvID09ICJiYXNlIGHiiJrCqXJlYSIsICAiYmFzZSBhZXJlYSIsIGlmZWxzZShkZiRiYXJyaW8gPT0gIm1lbOKImsKpbmRleiIsICAibWVsZW5kZXoiLCBpZmVsc2UoZGYkYmFycmlvID09ICJtZWziiJrCqW5kZXoiLCAgIm1lbGVuZGV6IiwgaWZlbHNlKGRmJGJhcnJpbyA9PSAibWVs4oiawqluZGV6IiwgICJtZWxlbmRleiIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImxhIGFyYm9sZWRhIiwgICJhcmJvbGVkYSIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImxvcyBhbGPDoXphcmVzIiwgICJsb3MgYWxjYXphcmVzIiwgaWZlbHNlKGRmJGJhcnJpbyA9PSAibGEgcml2ZXJhIGkiLCAgImxhIHJpdmVyaXRhIiwgaWZlbHNlKGRmJGJhcnJpbyA9PSAibGFmbG9yYSIsICAibGEgZmxvcmEiLCBpZmVsc2UoZGYkYmFycmlvID09ICJsYSByaXZlcmEgaWkiLCAgImxhIHJpdmVyaXRhIiwgaWZlbHNlKGRmJGJhcnJpbyA9PSAibGEgcml2ZXJhIiwgICJsYSByaXZlcml0YSIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImNpdWRhZGVsYSBwYXNvIGFuY2hvIiwgICJjaXVkYWRlbGEgcGFzb2FuY2hvIiwgaWZlbHNlKGRmJGJhcnJpbyA9PSAiY2FuZXkgZXNwZWNpYWwiLCAgImNhbmV5IiwgaWZlbHNlKGRmJGJhcnJpbyA9PSAiZWwgaW5nZW5pbyBpIiwgICJpbmdlbmlvIiwgaWZlbHNlKGRmJGJhcnJpbyA9PSAiZWwgaW5nZW5pbyBpaSIsICAiaW5nZW5pbyIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImVsIGluZ2VuaW8iLCAgImluZ2VuaW8iLCBpZmVsc2UoZGYkYmFycmlvID09ICJlbCBpbmdlbmlvIGlpaSIsICAiZWwgaW5nZW5pbyIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImphbXVuZGkgYWxmYWd1YXJhIiwgICJhbGZhZ3VhcmEiLCBpZmVsc2UoZGYkYmFycmlvID09ICJjYWxpIGNhbnRvIHZpaWkiLCAgImNhbGljYW50byIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImNhbGkgY2FudG8iLCAgImNhbGljYW50byIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImNoaW1pbmFuZ29zIDEgZXRhcGEiLCAgImNoaW1pbmFuZ29zIiwgaWZlbHNlKGRmJGJhcnJpbyA9PSAiY2hpbWluYW5nb3MgMiBldGFwYSIsICAiY2hpbWluYW5nb3MiLCBpZmVsc2UoZGYkYmFycmlvID09ICJjcmlzdMOzYmFsIGNvbMOzbiIsICAiY3Jpc3RvYmFsIGNvbMOzbiIsIGlmZWxzZShkZiRiYXJyaW8gPT0gIm1hcnJvcXVpbiBpaWkiLCAgIm1hcnJvcXVpbiIsIGlmZWxzZShkZiRiYXJyaW8gPT0gImVsIGluZ2VuaW8gMyIsICAiZWwgaW5nZW5pbyIsIGRmJGJhcnJpbykpKSkpKSkpKSkpKSkpKSkpKSkpKSkpKSkpDQoNCnRhYmxlKGRmJGJhcnJpbykNCmBgYA0KDQpWZW8gcXVlIGEgcGVzYXIgZGUgcXVlIHNlIGhhbiBlc3RhbmRhcml6YWRvIGFsZ3Vub3Mgbm9tYnJlcywgZXN0b3MgeSBvdHJvcyBzaWd1ZW4gdGVuaWVuZG8gcG9jb3MgaW5tdWVibGVzLiAgQXVucXVlIGVuIHVuIGFuw6FsaXNpcyBtw6FzIHByb2Z1bmRvIG8gZGlmZXJlbnRlIGVsIGJhcnJpbyBwb2Ryw61hIHNlciBuZWNlc2FyaW8sIHBhcmEgZXN0YSBvY2FzacOzbiwgdXNhcmVtb3MgcGFyYSBjdWFscXVpZXIgYW7DoWxpc2lzIGxhIHZhcmlhYmxlIHpvbmEgY29uIGxhIHNpZ3VpZW50ZSBkaXN0cmlidWNpw7NuLiBFbCBiYXJyaW8gc2UgZWxpbWluYXLDoSBkZWwgZGF0YXNldC4NCmBgYHtyIGRlbGV0ZV9uZWlnaGJvcn0NCmRmJGJhcnJpbyA8LSBOVUxMDQpgYGANCiMjIyAzLjIuNS4gVmFyaWFibGVzIHkgZGF0b3MgZWxpbWluYWRvcw0KDQpUYWwgY29tbyBoZW1vcyB2aXN0byBlbiBlbCBhbsOhbGlzaXMsIGFsZ3VuYXMgZGUgbGFzIHZhcmlhYmxlcyBubyBzZSB1dGlsaXphcsOhbiBjb21vIHBhcnRlIGRlbCBlc3R1ZGlvLiBFc3RhcyB2YXJpYWJsZXMgc29uOg0KLSBpZA0KLSBsYXRpdHVkDQotIGxvbmdpdHVkDQotIGJhcnJpbw0KTGFzIHJhem9uZXMgcXVlIHNlIHR1dmllcm9uIGVuIGN1ZW50YSBwYXJhIHN1IGVsaW1pbmFjacOzbiBzb246DQotIEluZm9ybWFjacOzbiBpbXByb2NlZGVudGUgcGFyYSB1biBhbsOhbGlzaXMgZXN0YWTDrXN0aWNvLCBjb21vIGVuIGVsIGNhc28gZGVsIGlkLg0KLSBJbmZvcm1hY2nDs24gY29uIG11Y2hvcyBlcnJvcmVzLCB2YWxvcmVzIGF0w61waWNvcyBvIGNvbiBkaXN0cmlidWNpb25lcyBtdXkgcGFydGljdWxhcmVzIHF1ZSBkYW4gc2XDsWFsIGRlIGVzdGFyIGVxdWl2b2NhZGFzLCBjb21vIHBvciBlamVtcGxvIGxvcyB2YWxvcmVzIGVuIGxhIGxhdGl0dWQgeSBsYSBsb25naXR1ZC4NCi0gRGF0b3MgY29uIG11eSBwb2NhIHJlcHJlc2VudGF0aXZpZGFkIGVuIHZhcmlhYmxlcyBxdWUgc2VnbWVudGFuIGxvcyB2YWxvcmVzLCBjb21vIGVzIGVsIGNhc28gZGUgbGEgdmFyaWFibGUgYmFycmlvLCBlbiBkb25kZSBoYWLDrWEgbXVjaG9zIGJhcnJpb3MgY29uIHNvbG8gdW4gaW5tdWVibGUuDQotIFZhcmlhYmxlcyBjb21wbGV0YXMgcXVlIG5vIGFwb3J0YW4gYWwgb2JqZXRpdm8gZGVsIGVzdHVkaW8gKERlZmluaXIgc3UgbmljaG8sIGRlc2Fycm9sbGFyIGVzdHJhdGVnaWFzIGRlIG1hcmtldGluZywgZXRjLikgdGFsIGNvbW8gc2UgcHJlc2VudGEgZW4gbGEgZGVzY3JpcGNpb24gZGVsIHRyYWJham8uDQoNCiMjIDMuMy4gQW7DoWxpc2lzIGRlc2NyaXB0aXZvIGRlIGxvcyBEYXRvcw0KDQojIyMgMy4zLjEuIFByZWNpbyBkZSBsYXMgVml2aWVuZGFzIGVuIGRpZmVyZW50ZXMgem9uYXMgZW4gQ2FsaQ0KDQpFbXBlY2Vtb3MgcG9yIHZlciBsb3MgZGF0b3MgZXN0YWTDrXN0aWNvcyBkZSBsYXMgdmFyaWFibGVzDQpgYGB7ciBTdW1tYXJ5fQ0KZGVzY3JpYmUoZGYpDQpgYGANClNlIHB1ZWRlIG9ic2VydmFyIGxvIHNpZ3VpZW50ZXM6DQoNCi0gTGEgY2FudGlkYWQgZGUgcmVnaXN0cm9zIGVzIGRlIDY4NzAsIGxvIHF1ZSBpbmRpY2EgbGEgZ3JhbiBjYW50aWRhZCBkZSBvZmVydGFzIGlubW9iaWxpYXJpYXMgcXVlIGV4aXN0ZW4gZW4gbGEgY2l1ZGFkIGRlIENhbGkuDQotIFNvbG8gaGF5IHZpdmllbmRhcyBkZWwgZXN0cmF0byAzIGFsIDYNCi0gRWwgcHJlY2lvIG3DoXMgYmFqbyBkZSB1bmEgdml2aWVuZGEgZXMgZGUgNTggbWlsbG9uZXMgZGUgcGVzb3MuIEVsIG3DoXMgYWx0byBlcyBkZSAxLjk5OSBtaWxsb25lcyBkZSBwZXNvcy4gRXN0YSBlcyBsYSB2YXJpYWJsZSBjb24gbWF5b3IgZGVzdmlhY2nDs24gZXN0w6FuZGFyIHkgcmFuZ28uDQotIEVsIHByZWNpbyBwcmVzZW50YSB1bmEgYXNpbWV0csOtYSBhIGxhIGRlcmVjaGEsIGxvIHF1ZSBxdWllcmUgZGVjaXIgcXVlIGVzIHBvc2l0aXZhLCBvIHF1ZSBzdSB2YWxvciBlcyBtYXlvciBxdWUgY2VybywgeSBxdWUgbXVjaG9zIHZhbG9yZXMgc29uIGFsdG9zLg0KLSBDYXJhY3RlcsOtc3RpY2FzIHNpbWlsYXJlcyB0aWVuZSBsYSB2YXJpYWJsZSBxdWUgcmVwcmVzZW50YSBlbCDDgXJlYSBDb25zdHJ1aWRhLCBwdWVzIHRpZW5lIHVuIHJhbmdvIGNlcmNhbm8gYWwgZGVsIHByZWNpbyAoMTcxNSkgeSB1bmEgYWx0YSBkZXN2aWFjacOzbiBlc3TDoW5kYXIgKDE0OS44NikgDQotIExhIG1lZGlhIGRlbCBwcmVjaW8gZGUgbG9zIGlubXVlYmxlcyBlcyBkZSA0NDEuNiBtaWxsb25lcy4gTGEgTWVkaWFuYSBlcyBkZSAzNDAgbWlsbG9uZXMuDQotIEVsIMOhcmVhIGNvbnN0cnVpZGEgdGFtYmnDqW4gdGllbmUgdW5hIGFzaW1ldHLDrWEgcG9zaXRpdmEsIGVzIGRlY2lyIHF1ZSBsb3MgaW5tdWVibGVzIGNvbiDDoXJlYXMgZ3JhbmRlcyBzb24gbcOhcyBxdWUgc3VzIGNvbnRyYXJpb3MuDQoNCkVzdGEgZXMgbGEgY2FudGlkYWQgZGUgaW5tdWVibGVzIHF1ZSBoYXkgcG9yIHpvbmE6DQpgYGB7ciB6b25lfQ0KdGFibGUoZGYkem9uYSkNCmBgYA0KDQpMYSB6b25hIGNvbiBtYXlvciBjYW50aWRhZCBkZSBpbm11ZWJsZXMgZXMgbGEgem9uYSBzdXIsIHNlZ3VpZGEgcG9yIGxhIHpvbmEgbm9ydGUsIGxhIG9lc3RlLCBsYSBvcmllbnRlIHkgcG9yIMO6bHRpbW8gbGEgY2VudHJvLiBWZWFtb3MgYWhvcmEgbGEgY29tYmluYWNpw7NuIGRlIGxhIHpvbmEgeSBlbCB0aXBvIGRlIGlubXVlYmxlLg0KYGBge3Igem9uZV90eXBlfQ0KdGFibGUoZGYkem9uYSxkZiR0aXBvKQ0KYGBgDQpFbiBsYXMgZG9zIHpvbmFzIGRvbmRlIG3DoXMgaW5tdWVibGVzIGhheSAoU3VyIHkgTm9ydGUpLCBsYSBjYW50aWRhZCBkZSBhcGFydGFtZW50b3MgZXMgbGlnZXJhbWVudGUgbWF5b3IgcXVlIGxhIGRlIGxhcyBjYXNhcy4gRW4gbGEgem9uYSBPZXN0ZSBlcyBtdWNobyBtYXlvciBwYXJhIGFwYXJ0YW1lbnRvcywgeSBlbiBsYXMgem9uYXMgY2VudHJvIHkgT3JpZW50ZSBoYXkgbcOhcyBjYXNhcyBxdWUgYXBhcnRhbWVudG9zLiAgVmVhbW9zIGxvcyBwcm9tZWRpb3MgeSBsYSBtZWRpYW5hIGRlIGxhIHZhcmlhYmxlIHByZWNpbyBwYXJhIGNhZGEgdGlwbzoNCg0KDQpgYGB7ciBtZWRzLCBpbmNsdWRlPVRSVUV9DQptZWRzIDwtIGFnZ3JlZ2F0ZSAoIGRmJHByZWNpb20gfiBkZiR0aXBvICsgZGYkem9uYSwgZGF0YSA9IGRmLCBGVU4gPSBmdW5jdGlvbih4KSBjKCByb3VuZChhcy5udW1lcmljKG1lYW4oeCkpLDIpLCByb3VuZChhcy5udW1lcmljKG1lZGlhbih4KSksMSksIHJvdW5kKGFzLm51bWVyaWMobGVuZ3RoKHgpKSwwKSkpDQptZWRzIDwtIGRhdGEuZnJhbWUoYXMubWF0cml4KG1lZHMpKQ0KY29sbmFtZXMobWVkcykgPC0gYygiVGlwbyIsIlpvbmEiLCJNZWRpYV9QcmVjaW8iLCJNZWRpYW5hX1ByZWNpbyIsIkNhbnRpZGFkIikNCg0KbWVkcyRNZWRpYV9QcmVjaW8gPC0gYXMubnVtZXJpYyhtZWRzJE1lZGlhX1ByZWNpbykNCm1lZHMkTWVkaWFuYV9QcmVjaW8gPC0gYXMubnVtZXJpYyhtZWRzJE1lZGlhbmFfUHJlY2lvKQ0KbWVkcyRDYW50aWRhZCA8LSBhcy5udW1lcmljKG1lZHMkQ2FudGlkYWQpDQptZWRzDQoNCg0KZ2dwbG90KG1lZHMsIGFlcyh4ID0gVGlwbywgeSA9IENhbnRpZGFkLCBmaWxsID0gVGlwbykpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHNob3cubGVnZW5kID0gVFJVRSkgKw0KICBsYWJzKHggPSAiVGlwbyIsIHkgPSAiQ2FudGlkYWQiKSArDQogIGZhY2V0X3dyYXAoflpvbmEgKSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBDYW50aWRhZCksIHZqdXN0ID0gMC4yKQ0KDQpgYGANCg0KYGBge3IgbWVhbnMsIGluY2x1ZGU9VFJVRX0NCm1lYW5zIDwtIGFnZ3JlZ2F0ZSAoZGYkcHJlY2lvbSB+IGRmJHRpcG8gKyBkZiR6b25hLCBkYXRhID0gZGYsIEZVTiA9IGZ1bmN0aW9uKHgpIGMocm91bmQoYXMubnVtZXJpYyhtZWFuKHgpKSwyKSkpDQptZWFucyA8LSBkYXRhLmZyYW1lKGFzLm1hdHJpeChtZWFucykpDQojbWVhbnMNCmNvbG5hbWVzKG1lYW5zKSA8LSBjKCJUaXBvIiwiWm9uYSIsIk1lZGlhX1ByZWNpbyIpDQoNCmdncGxvdChtZWFucywgYWVzKHggPSBUaXBvLCB5ID0gTWVkaWFfUHJlY2lvLCBmaWxsID0gVGlwbykpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHNob3cubGVnZW5kID0gVFJVRSkgKw0KICBsYWJzKHggPSAiVGlwbyIsIHkgPSAiTWVkaWEgUHJlY2lvIikgKw0KICBmYWNldF93cmFwKH5ab25hICkgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gTWVkaWFfUHJlY2lvKSwgdmp1c3QgPSAwLjIpDQoNCmBgYA0KDQpgYGB7ciBtZWRpYW5zLCBpbmNsdWRlPVRSVUV9DQptZWRpYW5zIDwtIGFnZ3JlZ2F0ZSAoZGYkcHJlY2lvbSB+IGRmJHRpcG8gKyBkZiR6b25hLCBkYXRhID0gZGYsIEZVTiA9IGZ1bmN0aW9uKHgpIGMocm91bmQoYXMubnVtZXJpYyhtZWRpYW4oeCkpLDApKSkNCm1lZGlhbnMgPC0gZGF0YS5mcmFtZShhcy5tYXRyaXgobWVkaWFucykpDQojbWVkaWFucw0KY29sbmFtZXMobWVkaWFucykgPC0gYygiVGlwbyIsIlpvbmEiLCJNZWRpYW5hX1ByZWNpbyIpDQoNCmdncGxvdChtZWRpYW5zLCBhZXMoeCA9IFRpcG8sIHkgPSBNZWRpYW5hX1ByZWNpbywgZmlsbCA9IFRpcG8pKSArDQogIGdlb21fYmFyKHN0YXQgPSAiaWRlbnRpdHkiLCBzaG93LmxlZ2VuZCA9IFRSVUUpICsNCiAgbGFicyh4ID0gIlRpcG8iLCB5ID0gIk1lZGlhbmEgUHJlY2lvIikgKw0KICBmYWNldF93cmFwKH5ab25hICkgKw0KICBnZW9tX3RleHQoYWVzKGxhYmVsID0gTWVkaWFuYV9QcmVjaW8pLCB2anVzdCA9IDAuMikNCg0KYGBgDQoNClNlIHB1ZWRlIHZlciBlbiBlbCBwcmltZXIgZ3LDoWZpY28gcXVlIGxhIGNhbnRpZGFkIGRlIENhc2FzIHkgQXBhcnRhbWVudG9zIGVuIGxhIFpvbmEgU3VyIHN1cGVyYSBhIHRvZGFzIGxhcyBkZW3DoXMgWm9uYXMsIHNlZ3VpZGEgcG9yIGxhIFpvbmEgTm9ydGUsIGxhIFpvbmEgT2VzdGUsIGxhIE9yaWVudGUgeSBwb3Igw7psdGltbyBsYSBDZW50cm8uDQoNCkVuIGN1YW50byBhbCBwcmVjaW8gZGUgdmVudGEsIGxvcyBncsOhZmljb3MgcXVlIG11ZXN0cmFuIGxhIG1lZGlhIHkgbGEgbWVkaWFuYSBtdWVzdHJhbiBxdWUgbG9zIGlubXVlYmxlcyBjb24gZWwgbWF5b3IgcHJlY2lvIGVzdMOhbiBlbiBsYSBab25hIE9lc3RlLCBsbyBxdWUsIHNpZW5kbyB1bmEgWm9uYSBjb24gcG9jYSBvZmVydGEsIGxhIGhhY2UgbXV5IGF0cmFjdGl2YSwgcHVlcyBubyBoYXkgdGFudGEgY29tcGV0ZW5jaWEgeSBsYSBwb3NpYmlsaWRhZCBkZSBtZWpvcmVzIGNvbWlzaW9uZXMgZXMgbcOhcyBhbHRhLiBCYWpvIGVzdGUgbWlzbW8gY3JpdGVyaW8sIGxlIHNlZ3VpcsOtYSBsYSBab25hIE5vcnRlIHkgbGEgWm9uYSBTdXIuICBUYW1iacOpbiBsYXMgQ2FzYXMgZW4gbGEgWm9uYSBDZW50cm8uICBMYSBab25hIE9yaWVudGUgbm8gcGFyZWNlIHNlciBtdXkgYXRyYWN0aXZhIHBvcnF1ZSBoYXkgcG9jb3MgaW5tdWVibGVzIHkgZXMgcG9jbyBzdSB2YWxvci4NCg0KIyMjIDMuMy4yLiBUaXBvIGRlIHZpdmllbmRhcyBtw6FzIG9mZXJ0YWRhcyBlbiBDYWxpDQoNCkVsIHRpcG8gZGUgdml2aWVuZGEgbcOhcyBvZmVydGFkYSBlbiBDYWxpIHNvbiBsb3MgYXBhcnRhbWVudG9zLiANCg0KYGBge3IgdHlwZXN9DQp0YWJsZShkZiR0aXBvKQ0KDQp0eXBlcyA8LSBhZ2dyZWdhdGUgKGRmJHByZWNpb20gfiBkZiR0aXBvLCBkYXRhID0gZGYsIEZVTiA9IGZ1bmN0aW9uKHgpIGMocm91bmQoYXMubnVtZXJpYyhsZW5ndGgoeCkpLDApKSkNCnR5cGVzIDwtIGRhdGEuZnJhbWUoYXMubWF0cml4KHR5cGVzKSkNCmNvbG5hbWVzKHR5cGVzKSA8LSBjKCJUaXBvIiwiQ2FudGlkYWQiKQ0KDQpnZ3Bsb3QodHlwZXMsIGFlcyh4ID0gVGlwbywgeSA9IENhbnRpZGFkLCBmaWxsID0gVGlwbykpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIHNob3cubGVnZW5kID0gVFJVRSkgKw0KICBsYWJzKHggPSAiVGlwbyIsIHkgPSAiQ2FudGlkYWQiKSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBDYW50aWRhZCksIHZqdXN0ID0gLTAuNSkgKyANCiAgY29vcmRfcG9sYXIoKQ0KDQoNCmBgYA0KDQpEZSBhY3VlcmRvIGEgbG9zIGdyw6FmaWNvcyBhbnRlcmlvcmVzIGVuIGRvbmRlIHNlIG11ZXN0cmEgbGEgY2FudGlkYWQgZGUgdml2aWVuZGFzIHNlZ21lbnRhZG8gcG9yIHpvbmEgeSB0aXBvLCB5IGVsIHByZWNpbyBwcm9tZWRpbyB0YW1iacOpbiBzZWdtZW50YWRvIHBvciB6b25hIHkgdGlwbywgbG9zIDUgY29uIG1heW9yIGNhbnRpZGFkIHNlcsOtYW4gbG9zIHNpZ3VpZW50ZXM6DQoNCjEuIEFwYXJ0YW1lbnRvcyBlbiBab25hIFN1cg0KMi4gQ2FzYXMgZW4gWm9uYSBTdXINCjMuIEFwYXJ0YW1lbnRvcyBlbiBab25hIE5vcnRlDQo0LiBBcGFydGFtZW50b3MgZW4gWm9uYSBPZXN0ZQ0KNS4gQ2FzYXMgZW4gWm9uYSBOb3J0ZQ0KDQpFbiBjdWFudG8gYWwgcHJlY2lvIGRlIHZlbnRhLCBlc3RvcyBzb24gbG9zIDUgcHJpbWVyb3MgcHJvbWVkaW9zOg0KDQoxLiBDYXNhcyBlbiBab25hIE9lc3RlDQoyLiBBcGFydGFtZW50b3MgZW4gWm9uYSBPZXN0ZQ0KMy4gQ2FzYXMgZW4gWm9uYSBTdXINCjQuIENhc2FzIGVuIFpvbmEgTm9ydGUNCjUuIENhc2FzIGVuIFpvbmEgQ2VudHJvDQoNClNpIHNlIHRpZW5lIGVuIGN1ZW50YSBsYSBNZWRpYW5hLCBlbCBvcmRlbiBzZXLDrWEgZWwgbWlzbW8gZGUgbG9zIHByb21lZGlvcy4NCg0KIyMjIDMuMy4zLiBDYXJhY3RlcsOtc3RpY2FzIG3DoXMgcmVsZXZhbnRlcyBkZSBsYSBvZmVydGEgZGUgdml2aWVuZGEgZW4gQ2FsaS4NCg0KTGFzIHZpdmllbmRhcyBlbiB2ZW50YSBlbiBDYWxpIHNlIGVuY3VlbnRyYW4gZGlzdHJpYnVpZGFzIGVuIHRvZGEgbGEgY2l1ZGFkLCBzaWVuZG8gbGEgZGUgbWF5b3IgY2FudGlkYWQgbGEgWm9uYSBTdXIuIEVzdG8gbm8gaGEgZGUgc29ycHJlbmRlciwgcHVlcyBlcyB1bmEgZGUgbGFzIHpvbmFzIG1hcyBncmFuZGVzIHkgZGUgbWF5b3IgbW92aW1pZW50byBlbiBsYSBjaXVkYWQgcGFyYSB2aXZpciBwb3IgbG9zIGF0cmFjdGl2b3MgcXVlIHRpZW5lLCB0YWxlcyBjb21vIHZhcmllZGFkIGRlIG9wY2lvbmVzIGVuIHZpdmllbmRhIChFZGlmaWNpb3MsIGNvbmp1bnRvcyByZXNpZGVuY2lhbGVzLCBjb25kb21pbmlvcyBjYW1wZXN0cmVzLCBldGMuKSwgbXVsdGlwbGljaWRhZCBkZSBvcGNpb25lcyBkZSBsdWdhcmVzIGRlIGNvbWVyY2lvLCBleGlzdGVuY2lhIGRlIHBhcnF1ZXMsIGNsdWJlcywgY2VyY2Fuw61hIGEgem9uYSBkZSBjb2xlZ2lvcyB5IHVuaXZlcnNpZGFkZXMsIGVudHJlIG11Y2hhcyBvdHJhcyB2ZW50YWphcy4NCg0KU2kgYmllbiBlbCB0aXBvIGRlIHZpdmllbmRhIHF1ZSBtw6FzIHNlIG9mZXJ0YSBzb24gbG9zIGFwYXJ0YW1lbnRvcywgc29uIGxhcyBjYXNhcyBsYXMgcXVlIG1lam9yIHByb21lZGlvIGRlIHByZWNpbyB0aWVuZW4uIEVzdG8gZXMgbMOzZ2ljbywgcG9ycXVlIG5vcm1hbG1lbnRlIHNvbiBtw6FzIGdyYW5kZXMsIGx1ZWdvIGVzIG5hdHVyYWwgcXVlIHNlYW4gbcOhcyBjYXJhcywgc2luIGVtYmFyZ28sIGVuIHRvZGFzIGxhcyB6b25hcyBsYXMgY2FzYXMgdGllbmVuIHVuIHByb21lZGlvIGRlIHByZWNpbyBtw6FzIGFsdG8sIHkgY29tbyBsYXMgaW5tb2JpbGlhcmlhcyBnYW5hbiBwb3IgY29taXNpw7NuIHBvciBlbCBwcmVjaW8gZGUgdmVudGEsIGVzdG8gc2UgaGFjZSBtdXkgcmVsZXZhbnRlIGEgbGEgaG9yYSBkZSBlc2NvZ2VyIGxhIGVzdHJhdGVnaWEgeSBlbCBuaWNobyBhbCBxdWUgc2UgbGUgb2ZyZWNlcsOhbiBsb3MgaW5tdWVibGVzLg0KDQpgYGB7ciBlc3RyYXRvX3R5cGVfem9uZX0NCnRhYmxlKGRmJGVzdHJhdG8sZGYkdGlwbykNCnRhYmxlKGRmJGVzdHJhdG8sZGYkem9uYSkNCmBgYA0KDQpTaSBhbmFsaXphbW9zIGxhIGRpc3RyaWJ1Y2nDs24gZGVsIGVzdHJhdG8gcG9yIHRpcG8geSBwb3Igem9uYSwgdmVtb3MgcXVlIGVuIGVsIGVzdHJhdG8gMywgcXVlIGVzIGVsIG3DoXMgYmFqbywgaGF5IG1heW9yIGNhbnRpZGFkIGRlIGNhc2FzIGZyZW50ZSBhIGxhIG9mZXJ0YSBkZSBhcGFydGFtZW50b3MsIGVuIHVuYSByZWxhY2nDs24gY2FzaSBkZSAyOjEgcGFyYSBsYXMgY2FzYXMuICBFc3RlIGZlbsOzbWVubyBubyBzZSByZXBpdGUgZW4gbmluZ8O6biBvdHJvIGVzdHJhdG8sIHNpZW5kbyBsYSBjYW50aWRhZCBkZSBhcGFydGFtZW50b3MgbWF5b3IgYSBsYSBkZSBjYXNhcy4NCg0KYGBge3IgZXN0cmF0b30NCmVzdHJhdG9zIDwtIGFnZ3JlZ2F0ZSAoZGYkcHJlY2lvbSB+IGRmJGVzdHJhdG8sIGRhdGEgPSBkZiwgRlVOID0gZnVuY3Rpb24oeCkgYyhyb3VuZChhcy5udW1lcmljKGxlbmd0aCh4KSksMCkpKQ0KZXN0cmF0b3MgPC0gZGF0YS5mcmFtZShhcy5tYXRyaXgoZXN0cmF0b3MpKQ0KY29sbmFtZXMoZXN0cmF0b3MpIDwtIGMoIkVzdHJhdG8iLCJDYW50aWRhZCIpDQoNCmdncGxvdChlc3RyYXRvcywgYWVzKHggPSBFc3RyYXRvLCB5ID0gQ2FudGlkYWQsIGZpbGwgPSBFc3RyYXRvKSkgKw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5Iiwgc2hvdy5sZWdlbmQgPSBUUlVFKSArDQogIGxhYnMoeCA9ICJUaXBvIiwgeSA9ICJDYW50aWRhZCIpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IENhbnRpZGFkKSwgdmp1c3QgPSAtMC41KSANCg0KYGBgDQoNCkVsIEVzdHJhdG8gNSBlcyBlbCBlc3RyYXRvIGNvbiBtYXlvciBjYW50aWRhZCBkZSBpbm11ZWJsZXMgYSBsYSB2ZW50YSwgc2VndWlkbyBwb3IgZWwgNCwgZWwgNiB5IGVsIDMuDQpFbiBsYSBab25hIFN1ciwgZG9uZGUgaGF5IG1heW9yIGNhbnRpZGFkIGRlIGlubXVlYmxlcywgZW4gZWwgZXN0cmF0byBlbiBxdWUgbWFzIGlubXVlYmxlcyBoYXkgZXMgZWwgNSwgc2VndWlkbyBkZWwgNCwgZGVzcHXDqXMgZWwgNiB5IGNlcnJhbmRvIGVsIDMuICBFc3RvIGVzIGNvaGVyZW50ZSBjb24gbGEgZGlzdHJpYnVjacOzbiBkZSBsYSBjaXVkYWQgZW4gZGljaGEgem9uYS4NCg0KYGBge3J9DQp4PTENCmBgYA0KDQoqKioqKioqKioqKg0KRWwgaW5mb3JtZSBlc3RhZMOtc3RpY28gcG9kcsOtYSBwcm9wb3JjaW9uYXIgaW5mb3JtYWNpw7NuIHNvYnJlIGxvcyBzaWd1aWVudGVzIHRlbWFzOg0KDQpQcmVjaW8gZGUgbGFzIHZpdmllbmRhcyBlbiBkaWZlcmVudGVzIHpvbmFzIGRlIENhbGkuDQpUaXBvIGRlIHZpdmllbmRhcyBtw6FzIG9mZXJ0YWRhcyBlbiBDYWxpLg0KQ2FyYWN0ZXLDrXN0aWNhcyBtw6FzIHJlbGV2YW50ZXMgZGUgbGEgb2ZlcnRhIGRlIHZpdmllbmRhIGVuIENhbGkuDQoNCkVzdGEgaW5mb3JtYWNpw7NuIHNlcsOtYSDDunRpbCBwYXJhIGxhIGVtcHJlc2EgQiZDIHBhcmEgdG9tYXIgZGVjaXNpb25lcyBzb2JyZSBzdSBuZWdvY2lvLCB0YWxlcyBjb21vOg0KDQpEZWZpbmlyIHN1IG5pY2hvIGRlIG1lcmNhZG8uDQpEZXNhcnJvbGxhciBlc3RyYXRlZ2lhcyBkZSBtYXJrZXRpbmcuDQpFc3RhYmxlY2VyIHByZWNpb3MgZGUgdmVudGEuDQpPZnJlY2VyIHNlcnZpY2lvcyBwZXJzb25hbGl6YWRvcyBhIHN1cyBjbGllbnRlcy4NCg0KDQpMYSBlbXByZXNhIHNvbGljaXRhIHVuIGFuw6FsaXNpcyBkZXNjcmlwdGl2byBkZSBsb3MgZGF0b3MsIHBhcmEgaWRlbnRpZmljYXIgbGFzIHRlbmRlbmNpYXMgeSBwYXRyb25lcyBlbiBsb3MgZGF0b3MuDQoNCkVsIGluZm9ybWUgZGViZSBpbmNsdWlyIGxvcyBzaWd1aWVudGVzIGVsZW1lbnRvczoNCg0KSW50cm9kdWNjacOzbg0KT2JqZXRpdm9zDQpNw6l0b2Rvcw0KUmVzdWx0YWRvcw0KRGlzY3VzacOzbg0KQ29uY2x1c2lvbmVzDQpBbmV4b3MNCg0KRWwgaW5mb3JtZSBkZWJlIHNlciByZWRhY3RhZG8gZW4gdW4gbGVuZ3VhamUgY2xhcm8geSBjb25jaXNvLCB5IGRlYmUgZXN0YXIgZGlyaWdpZG8gYSBsb3MgZGlyZWN0aXZvcyBkZSBsYSBlbXByZXNhIEImQy4NCg0KU29saWNpdHVkIGRlIGVudHJlZ2EgZGVsIGluZm9ybWUNClNlIGRlYmUgZW50cmVnYXIgZW5sYWNlIGRlIGxhIHBsYXRhZm9ybWEgUlB1bHMgcXVlIGNvbnRlbmdhIGVsIGRvY3VtZW50byBmaW5hbCwgdXRpbGl6YW5kbyBlbCBmb3JtYXRvIE1hcmtkb3duLg0KDQpFbCBpbmZvcm1lIGRlYmUgZXN0YXIgb3JnYW5pemFkbyBlbiB1biDDum5pY28gZG9jdW1lbnRvIHF1ZSBjb250ZW5nYSBsYSBpbnRyb2R1Y2Npw7NuLCBsb3Mgb2JqZXRpdm9zLCBsb3MgbcOpdG9kb3MsIGxvcyByZXN1bHRhZG9zLCBsYSBkaXNjdXNpw7NuIHkgbGFzIGNvbmNsdXNpb25lcy4gQ2FkYSBzZWNjacOzbiBkZWwgaW5mb3JtZSBkZWJlIGVzdGFyIG51bWVyYWRhIHkgZGViZSB0ZW5lciB1biBlbmNhYmV6YWRvIGRlc2NyaXB0aXZvLg0KDQpFbnRyZWdhYmxlDQpFbmxhY2UgZGVsIGluZm9ybWUgZW4gUlB1YnMsIGNvcGlhZG8gZW4gQWN0aXZpZGFkMSBkZWwgY3Vyc28gZW4gQnMNCi0tLQ0KDQojIDQuIFJlc3VsdGFkb3MNCg0KQSBwYXJ0aXIgZGVsIGFuw6FsaXNpcyBkZXNjcmlwdGl2byBkZWwgY29uanVudG8gZGUgZGF0b3MsIHNlIHByZXNlbnRhbiBsb3Mgc2lndWllbnRlcyByZXN1bHRhZG9zIGRlbCBlc3R1ZGlvLCBjb24gZWwgb2JqZXRpdm8gZGUgYnJpbmRhciBpbmZvcm1hY2nDs24gcmVsZXZhbnRlIHkgc3VmaWNpZW50ZSBwYXJhIHF1ZSBsYSBKdW50YSBEaXJlY3RpdmEgZGUgbGEgSW5tb2JpbGlhcmlhIEImQyBwdWVkYSBkZWNpZGlyIHN1IG5pY2hvIGRlIG1lcmNhZG8sIGRlc2Fycm9sbGFyIGVzdHJhdGVnaWFzIGRlIG1hcmtldGluZywgZXN0YWJsZWNlciBwcmVjaW9zIGRlIHZlbnRhIHkgb2ZyZWNlciBzZXJ2aWNpb3MgcGVyc29uYWxpemFkb3MgYSBzdXMgY2xpZW50ZXMuIA0KDQotIFpvbmFzIGNvbiBtZWpvciBwcm9tZWRpbyBkZSBwcmVjaW9zDQoNCkxhIFpvbmEgT2VzdGUgcHJlc2VudGEgdW4gbWVqb3IgcHJvbWVkaW8gZGUgcHJlY2lvcyB0YW50byBwYXJhIGxhcyBjYXNhcyBjb21vIHBhcmEgbG9zIGFwYXJ0YW1lbnRvcywgY29uc3RpdHV5w6luZG9zZSBlbiB1bmEgem9uYSBkZSBtdWNobyBpbnRlcsOpcywgZGFkbyBxdWUgbGFzIGlubW9iaWxpYXJpYXMgZ2FuYW4gcG9yIGNvbWlzacOzbiwgeSBlbnRyZSBtYXlvciBzZWEgZWwgdmFsb3IgZGUgbGEgcHJvcGllZGFkLCBtw6FzIGRpbmVybyBzZSBnYW5hcsOhLiBMYSBzaWd1ZW4gbGEgem9uYSBzdXIgeSBsYSB6b25hIG5vcnRlLiBFbCBjYXNvIGRlIGxhIHpvbmEgY2VudHJvIGVzIHBhcnRpY3VsYXIsIHB1ZXMgaGF5IHBvY2FzIGNhc2FzLCBwZXJvIHN1IHByb21lZGlvIGRlIHByZWNpbyBubyBlcyBlbCBtw6FzIGJhaml0by4NCg0KLSBUaXBvIGRlIGlubXVlYmxlIG3DoXMgb2ZlcnRhZG8NCg0KTG9zIGFwYXJ0YW1lbnRvcyBzb24gZWwgdGlwbyBkZSBpbm11ZWJsZSBjb24gbWF5b3IgY2FudGlkYWQgZGUgb2ZlcnRhcyBlbiBsYSBjaXVkYWQgZGUgQ2FsaSBzdXBlcmFuZG8gZW4gY2FudGlkYWQgYSBsYXMgY2FzYXMgZW4gbGEgem9uYSBOb3J0ZSwgT2VzdGUgeSBTdXIuICBFbiBsYXMgem9uYXMgQ2VudHJvIHkgT3JpZW50ZSwgaGF5IG3DoXMgY2FzYXMgb2ZlcnRhZGFzLCBlbiB1bmEgcHJvcG9yY2nDs24gYXByb3hpbWFkYSBkZSA2IGEgMS4gDQoNCi0gTWVqb3IgdGlwbyBkZSBWaXZpZW5kYQ0KDQpBdW5xdWUgaGF5IG1hcyBhcGFydGFtZW50b3MgcXVlIGNhc2FzLCBsYXMgY2FzYXMgcHJlc2VudGFuIG1heW9yZXMgdmFsb3JlcyBlbiBzdSBwcmVjaW8sIGxvIHF1ZSBsYXMgaGFjZSBtw6FzIGF0cmFjdGl2YXMuIExhcyB6b25hcyBjb24gbcOhcyBhbHRvIHByb21lZGlvIGRlIHZlbnRhIHNvbiBsYSBPZXN0ZSwgbGEgU3VyLCBhIE5vcnRlLCBsYSBDZW50cm8geSBsYSBPcmllbnRlLg0KTsOzdGVzZSBxdWUgbGEgQ2VudHJvIHRpZW5lIHBvY2FzIG9mZXJ0YXMsIHBlcm8gc3VzIGNhc2FzIHRpZW5lbiBtZWpvciBwcm9tZWRpbyBxdWUgbGFzIGRlIGxhIHpvbmEgT3JpZW50ZS4NCg0KLSBFc3RyYXRvIGNvbiBtYXlvciBjYW50aWRhZCBkZSBpbm11ZWJsZXMgDQoNCkVsIGVzdHJhdG8gNSBlcyBlbCBlc3RyYXRvIGNvbiBtYXlvciBjYW50aWRhZCBkZSBvZmVydGEgZGUgdmVudGEgZGUgaW5tdWVibGVzLiBTaSBiaWVuLCBlc3RvIG5vIGVzIGVuIHNpIGluZm9ybWFjacOzbiBjb250dW5kZW50ZSwgc2kgZXMgdW5hIG11ZXN0cmEgZGUgcXVlIGxhcyBjYXNhcyBxdWUgbcOhcyBzZSBjb21lcmNpYWxpemFuIHNvbiBsYXMgZGUgdmFsb3JlcyBtZWRpby1hbHRvcywgeSBlc3RvIHB1ZWRlIGRhciB1biBpbmRpY2lvIGRlIGxhIGNsYXNlIGRlIGNvbXByYWRvcmVzIHF1ZSBzZSBkZWJlbiBidXNjYXIuDQoNCg0KDQojIDUuIERpc2N1c2nDs24NCg0KDQotLS0NCg0KDQoNCiMgNi4gQ29uY2x1c2lvbmVzDQoNCi0gU2UgcHVkbyB2ZXIgcXVlIGVsIGNvbmp1bnRvIGRlIGRhdG9zIHRpZW5lIG11Y2hhcyBpcnJlZ3VsYXJpZGFkZXMsIGRhdG9zIGF0w61waWNvcywgdmFsb3JlcyBudWxvcyBvIHF1ZSBjbGFyYW1lbnRlIHBhcmVjZW4gZXJyw7NuZW9zLiAgRXN0byBjYXVzYSBtdWNoYSBkaWZpY3VsdGFkIGVuIHN1IHByb2Nlc2FtaWVudG8sIHBlcm8gc29icmUgdG9kbyBtaW5hIGxhIGNvbmZpYW56YSBlbiBlbCBjb25qdW50byBkZSBkYXRvcy4gIFNpIGJpZW4gbm8gaGF5IGNvbW8gY29ycm9ib3JhciBsb3MgZGF0b3MgZGUgbGFzIHZhcmlhYmxlcyBlbiBsYXMgcXVlIG5vIHNhYmVtb3MgYSBjaWVuY2lhIGNpZXJ0YSBzaSBoYXkgZGF0b3MgZXJyw7NuZW9zLCBsYSBjYW50aWRhZCBxdWUgc2kgcG9kZW1vcyBkZXRlcm1pbmFyIGNvbW8gZXJyw7NuZW9zIGVzIHRhbiBhbHRhIHF1ZSBub3MgaGFjZSBkZXNjb25maWFyIGRlbCBjb25qdW50by4gUG9yIGVqZW1wbG8sIHNlIHB1ZWRlIGNvbnN0YXRhciBxdWUgaGF5IGVycm9yZXMgZW4gbG9zIHZhbG9yZXMgZGUgbGFzIHZhcmlhYmxlcyBsYXRpdHVkIHkgbG9uZ2l0dWQsIHBlcm8gbm8gcG9kZW1vcyBzYWJlciBzaSBoYXkgZXJyb3JlcyBlbiBsYSB2YXJpYWJsZSBwcmVjaW8gbyDDoXJlYSBjb25zdHJ1aWRhLCBzYWx2byB1bm9zIG11eSBjb250YWRvcyByZWdpc3Ryb3MgcXVlIHB1ZWRlbiBzZXIgZWxpbWluYWRvcy4NCg0KLSBMbyBhbnRlcmlvciBoYWNlIHNvc3BlY2hhciBkZSBsb3MgdmFsb3JlcyBwcmVzZW50ZXMgZW4gb3RyYXMgdmFyaWFibGVzIGEgbGFzIHF1ZSBubyBzZSBsZXMgcHVlZGEgY29tcHJvYmFyIHF1ZSB0aWVuZW4gdmFsb3JlcyBlcXVpdm9jYWRvcyBubyBwdWVkYW4gc2VyIGNvbmZpYWJsZXMuIERlIHRvZG9zIG1vZG9zLCBhbCBlbGltaW5hciBsb3MgcmVnaXN0cm9zIGNvbiBkYXRvcyBjbGFyYW1lbnRlIGVycsOzbmVvcywgc2UgZXN0w6EgZGlzbWludXllbmRvIGxhIHByb2JhYmlsaWRhZCBkZSBlcnJvciBlbiBsb3MgYW7DoWxpc2lzIHkgY29uY2x1c2lvbmVzLg0KDQotIEVzIG11eSBpbXBvcnRhbnRlIHRyYWJhamFyIGNvbiBsb3MgZGF0b3MgZGUgbGEgbWVqb3IgY2FsaWRhZCBwb3NpYmxlLCBpbmNsdXNvIHNpIGhheSBxdWUgc2FjcmlmaWNhciB5IGRpc21pbnVpciBsYSBjYW50aWRhZCBkZSBkYXRvcyBwcmVzZW50ZXMgY29uIGxvcyBxdWUgc2UgcHVlZGUgdHJhYmFqYXIuIA0KDQotIFBhcmEgbWFudGVuZXIgbGEgY2FsaWRhZCBkZSBsb3MgZGF0b3MsIGVzIG5lY2VzYXJpbyBsbGV2YXIgYSBjYWJvIHVuYSByZXZpc2nDs24gZGUgbG9zIG1pc21vcyB5IHVuYSBlbGltaW5hY2nDs24gZGUgbG9zIGRhdG9zIGNvbiB2YWxvcmVzIGNsYXJhbWVudGUgZXF1aXZvY2Fkb3MsIGNvbW8gw6FyZWFzIGlndWFsZXMgYSAwLCBvIHZpdmllbmRhcyBzaW4gaGFiaXRhY2lvbmVzIG8gYmHDsW9zLg0KDQotIEFsIHNlciBsb3MgZGF0b3MgcmVjb2dpZG9zIGRlIHB1YmxpY2FjaW9uZXMgZW4gaW50ZXJuZXQsIG5vIHNlIHB1ZWRlbiBjb3Jyb2JvcmFyIG5pIG1lam9yYXIgc3VzdGFuY2lhbG1lbnRlLCBzYWx2byBlbiBjdWVzdGlvbmVzIGNvbnRhZGFzLCBjb21vIHBvciBlamVtcGxvIGNydXphbmRvIGxhcyBjb29yZGVuYWRhcyBjb24gZWwgYmFycmlvLiAgU2luIGVtYmFyZ28sIGVsIGRlc29yZGVuIGRlIGVzdGFzIGRvcyB2YXJpYWJsZXMgbm8gaW5kaWNhIHF1ZSBlc2UgYW7DoWxpc2lzIHNlYSBpbXBvcnRhbnRlIGhhY2VybG8uDQoNCg0KLS0tDQoNCg0KDQojIDcuIEFuZXhvcw==