require("tidyverse")
Loading required package: tidyverse
Loading tidyverse: ggplot2
Loading tidyverse: tibble
Loading tidyverse: tidyr
Loading tidyverse: readr
Loading tidyverse: purrr
Loading tidyverse: dplyr
Conflicts with tidy packages -------------------------------------------------------------------------------------------
filter(): dplyr, stats
lag():    dplyr, stats
library(knitr)
df <- read_csv("recomendaciones_cl_lv_simplificado.csv")
Parsed with column specification:
cols(
  .default = col_character()
)
See spec(...) for full column specifications.
Dentista <- df %>% 
  filter(`Ud es:` == "Dentista")
Estudiante <- df %>% 
  filter(`Ud es:` == "Estudiante")

Dentistas

Tablas dentistas

kable(table(Dentista$Pais, Dentista$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`))

como parte del cuidado regular de un paciente (es decir, siempre) cuando usted sienta que es necesario en respuesta a una solicitud hecha para un consejo de higiene oral
Chile 84 25 7
Letonia 154 96 19 

kable(  table(Dentista$Pais, Dentista$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`)    )

No Si
Chile 17 100
Letonia 140 128 

kable(  table(Dentista$Pais, Dentista$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`) )

10 minutos o más 1-2 minutos 5 minutos 8 minutos
Chile 21 25 47 24
Letonia 22 65 153 28 

kable(  table(Dentista$Pais, Dentista$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)  )

12 meses 1-3 meses 3-6 meses 3 meses 3 meses y despues de alguna enfermedad cuando las cerdas estén abiertas no recomendaría post operatorio recomendaría
Chile 0 50 12 38 0 3 11 1 2
Letonia 1 41 51 149 1 3 23 0 1 

kable(  table(Dentista$Pais, Dentista$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)  )

Barrido Bass Bass modificada Bass modificada o Stillman cepillado rotacional charters clasico fones no recomendaría recomendaría Solo technique stillman stillman modificada Stillman modificada (sin saber nombre) stillman o barrido Vertical Water pick
Chile 23 10 33 5 0 1 0 0 11 23 0 6 4 0 1 0 0
Letonia 0 2 0 0 10 0 7 1 112 58 6 0 0 62 0 11 1 

kable(  table(Dentista$Pais, Dentista$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`)    )

1/2 cabeza del cepillo cabeza del cepillo mas que 1/2 cabeza, menos que cabeza mas que tamaño arveja, menos que 1/2 cabeza menos que tamaño arveja muy poco, poco no recomendaría recomendaría tamaño arveja
Chile 3 2 0 15 25 2 21 6 43
Letonia 3 0 1 9 1 8 128 9 111 

kable(  table(Dentista$Pais, Dentista$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`) )

ambos cepillos interdentales hilo dental hilo dental, cepillos interdentales, irrigator Hilo o celillos interdentales – depende de situacion Irrigator no recomendaría recomendaría
Chile 61 1 47 0 0 0 6 2
Letonia 163 9 85 1 6 4 2 0 

kable(  table(Dentista$Pais, Dentista$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`) )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 27 10 77 2
Letonia 37 0 232 1 

kable(  table(Dentista$Pais, Dentista$`14. La persona promedio de mi país tiene buena salud oral.`) )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 10 64 1 42
Letonia 37 200 3 30 

kable(  table(Dentista$Pais, Dentista$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`) )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 54 6 55 1
Letonia 111 6 152 1 

kable(  table(Dentista$Pais, Dentista$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)   )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 36 33 12 36
Letonia 38 141 8 79 

kable(  table(Dentista$Pais, Dentista$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)   )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 66 14 32 5
Letonia 139 94 26 8 

kable(  table(Dentista$Pais, Dentista$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)   )
De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 30 56 13 18
Letonia 137 34 97 1

Prop table dentists

como parte del cuidado regular de un paciente (es decir, siempre) cuando usted sienta que es necesario en respuesta a una solicitud hecha para un consejo de higiene oral
Chile 72.4 21.6 6.03
Letonia 57.2 35.7 7.06 

kable(prop.table(table(Dentista$Pais, Dentista$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`), 1)*100)

kable(  prop.table(table(Dentista$Pais, Dentista$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`) , 1)*100)

No Si
Chile 14.5 85.5
Letonia 52.2 47.8 

kable(  prop.table(table(Dentista$Pais, Dentista$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`)  , 1)*100)

10 minutos o más 1-2 minutos 5 minutos 8 minutos
Chile 17.95 21.4 40.2 20.5
Letonia 8.21 24.3 57.1 10.4 

kable(  prop.table(table(Dentista$Pais, Dentista$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)   , 1)*100)

12 meses 1-3 meses 3-6 meses 3 meses 3 meses y despues de alguna enfermedad cuando las cerdas estén abiertas no recomendaría post operatorio recomendaría
Chile 0.00 42.7 10.3 32.5 0.00 2.56 9.40 0.855 1.71
Letonia 0.37 15.2 18.9 55.2 0.37 1.11 8.52 0.000 0.37 

kable(  prop.table(table(Dentista$Pais, Dentista$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)   , 1)*100)

Barrido Bass Bass modificada Bass modificada o Stillman cepillado rotacional charters clasico fones no recomendaría recomendaría Solo technique stillman stillman modificada Stillman modificada (sin saber nombre) stillman o barrido Vertical Water pick
Chile 19.7 8.547 28.2 4.27 0.0 0.855 0.00 0.00 9.4 19.7 0.00 5.13 3.42 0 0.855 0.00 0.00
Letonia 0.0 0.741 0.0 0.00 3.7 0.000 2.59 0.37 41.5 21.5 2.22 0.00 0.00 23 0.000 4.07 0.37 

kable(  prop.table(table(Dentista$Pais, Dentista$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`) , 1)*100)

1/2 cabeza del cepillo cabeza del cepillo mas que 1/2 cabeza, menos que cabeza mas que tamaño arveja, menos que 1/2 cabeza menos que tamaño arveja muy poco, poco no recomendaría recomendaría tamaño arveja
Chile 2.56 1.71 0.00 12.82 21.37 1.71 17.9 5.13 36.8
Letonia 1.11 0.00 0.37 3.33 0.37 2.96 47.4 3.33 41.1 

kable(  prop.table(table(Dentista$Pais, Dentista$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`)  , 1)*100)

ambos cepillos interdentales hilo dental hilo dental, cepillos interdentales, irrigator Hilo o celillos interdentales – depende de situacion Irrigator no recomendaría recomendaría
Chile 52.1 0.855 40.2 0.00 0.00 0.00 5.128 1.71
Letonia 60.4 3.333 31.5 0.37 2.22 1.48 0.741 0.00 

kable(  prop.table(table(Dentista$Pais, Dentista$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`)  , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 23.3 8.62 66.4 1.72
Letonia 13.7 0.00 85.9 0.37 

kable(  prop.table(table(Dentista$Pais, Dentista$`14. La persona promedio de mi país tiene buena salud oral.`)  , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 8.55 54.7 0.855 35.9
Letonia 13.70 74.1 1.111 11.1 

kable(  prop.table(table(Dentista$Pais, Dentista$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`)  , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 46.6 5.17 47.4 0.862
Letonia 41.1 2.22 56.3 0.370 

kable(  prop.table(table(Dentista$Pais, Dentista$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)    , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 30.8 28.2 10.26 30.8
Letonia 14.3 53.0 3.01 29.7 

kable(  prop.table(table(Dentista$Pais, Dentista$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)    , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 56.4 12.0 27.35 4.27
Letonia 52.1 35.2 9.74 3.00 

kable(  prop.table(table(Dentista$Pais, Dentista$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)    , 1)*100)
De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 25.6 47.9 11.1 15.385
Letonia 50.9 12.6 36.1 0.372

Test dentistas

chisq.test( table(Dentista$Pais, Dentista$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`)  )

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`)
X-squared = 8.2953, df = 2, p-value = 0.0158
chisq.test( table(Dentista$Pais, Dentista$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`)    )

    Pearson's Chi-squared test with Yates' continuity correction

data:  table(Dentista$Pais, Dentista$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`)
X-squared = 46.406, df = 1, p-value = 9.611e-12
chisq.test( table(Dentista$Pais, Dentista$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`) )

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`)
X-squared = 17.804, df = 3, p-value = 0.0004827
chisq.test( table(Dentista$Pais, Dentista$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)  )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)
X-squared = 45.041, df = 8, p-value = 3.615e-07
chisq.test( table(Dentista$Pais, Dentista$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)  )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)
X-squared = 253.53, df = 16, p-value < 2.2e-16
chisq.test( table(Dentista$Pais, Dentista$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`)    )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`)
X-squared = 91.538, df = 8, p-value = 2.265e-16
chisq.test( table(Dentista$Pais, Dentista$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`) )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`)
X-squared = 21.687, df = 7, p-value = 0.002876
chisq.test( table(Dentista$Pais, Dentista$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`) )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`)
X-squared = 33.546, df = 3, p-value = 2.471e-07
chisq.test( table(Dentista$Pais, Dentista$`14. La persona promedio de mi país tiene buena salud oral.`) )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`14. La persona promedio de mi país tiene buena salud oral.`)
X-squared = 33.285, df = 3, p-value = 2.804e-07
chisq.test( table(Dentista$Pais, Dentista$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`) )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`)
X-squared = 4.4059, df = 3, p-value = 0.2208
chisq.test( table(Dentista$Pais, Dentista$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)   )

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)
X-squared = 30.638, df = 3, p-value = 1.013e-06
chisq.test( table(Dentista$Pais, Dentista$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)   )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)
X-squared = 33.011, df = 3, p-value = 3.204e-07
chisq.test( table(Dentista$Pais, Dentista$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)   )

    Pearson's Chi-squared test

data:  table(Dentista$Pais, Dentista$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)
X-squared = 110.58, df = 3, p-value < 2.2e-16

Graficos dentistas

mosaicplot( table(Dentista$Pais, Dentista$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`)  , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`)    , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`) , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)  , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)  , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`)    , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`) , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`) , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`14. La persona promedio de mi país tiene buena salud oral.`) , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`) , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)   , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)   , shade = T)

mosaicplot( table(Dentista$Pais, Dentista$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)   , shade = T)

Estudiantes

Tablas estudiantes

kable(  table(Estudiante$Pais, Estudiante$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`)  )

como parte del cuidado regular de un paciente (es decir, siempre) cuando usted sienta que es necesario en respuesta a una solicitud hecha para un consejo de higiene oral
Chile 185 33 7
Letonia 34 15 3 

kable(  table(Estudiante$Pais, Estudiante$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`)    )

No Si
Chile 14 211
Letonia 26 26 

kable(  table(Estudiante$Pais, Estudiante$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`) )

10 minutos o más 1-2 minutos 5 minutos 8 minutos
Chile 63 9 101 52
Letonia 6 21 18 7 

kable(  table(Estudiante$Pais, Estudiante$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)  )

1-3 meses 3-6 meses 3 meses cuando las cerdas estén abiertas no recomendaría recomendaría
Chile 74 15 109 4 20 3
Letonia 8 4 31 0 9 0 

kable(  table(Estudiante$Pais, Estudiante$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)  )

Barrido Barrido o Bass modificada Bass Bass modificada Bass modificada o Stillman Bass o Stillman Electric no recomendaría recomendaría stillman stillman modificada Stillman modificada (sin saber nombre) Vertical
Chile 17 1 19 94 3 1 0 19 58 5 8 0 0
Letonia 0 0 0 0 0 0 1 25 3 0 0 22 1 

kable(  table(Estudiante$Pais, Estudiante$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`)    )

1/2 cabeza del cepillo cabeza del cepillo mas que 1/2 cabeza, menos que cabeza mas que tamaño arveja, menos que 1/2 cabeza menos que tamaño arveja muy poco, poco no recomendaría recomendaría tamaño arveja
Chile 4 0 3 12 45 4 54 5 98
Letonia 1 1 0 2 0 0 20 1 27 

kable(  table(Estudiante$Pais, Estudiante$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`) )

ambos cepillos interdentales hilo dental Hilo o celillos interdentales – depende de situacion no recomendaría recomendaría
Chile 83 1 131 0 3 7
Letonia 15 1 27 6 3 0 

kable(  table(Estudiante$Pais, Estudiante$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`) )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 40 10 172 3
Letonia 6 0 43 0 

kable(  table(Estudiante$Pais, Estudiante$`14. La persona promedio de mi país tiene buena salud oral.`) )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 9 128 2 86
Letonia 5 37 0 7 

kable(  table(Estudiante$Pais, Estudiante$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`) )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 74 5 141 3
Letonia 16 0 33 0 

kable(  table(Estudiante$Pais, Estudiante$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)   )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 39 98 12 76
Letonia 7 22 0 20 

kable(  table(Estudiante$Pais, Estudiante$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)   )

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 144 31 48 2
Letonia 30 13 6 0 

kable(  table(Estudiante$Pais, Estudiante$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)   )
De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 82 95 9 37
Letonia 26 11 12 0

Prop table estudiante

como parte del cuidado regular de un paciente (es decir, siempre) cuando usted sienta que es necesario en respuesta a una solicitud hecha para un consejo de higiene oral
Chile 82.2 14.7 3.11
Letonia 65.4 28.8 5.77 

kable(prop.table(table(Estudiante$Pais, Estudiante$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`), 1)*100)

kable(  prop.table(table(Estudiante$Pais, Estudiante$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`) , 1)*100)

No Si
Chile 6.22 93.8
Letonia 50.00 50.0 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`)  , 1)*100)

10 minutos o más 1-2 minutos 5 minutos 8 minutos
Chile 28.0 4.0 44.9 23.1
Letonia 11.5 40.4 34.6 13.5 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)   , 1)*100)

1-3 meses 3-6 meses 3 meses cuando las cerdas estén abiertas no recomendaría recomendaría
Chile 32.9 6.67 48.4 1.78 8.89 1.33
Letonia 15.4 7.69 59.6 0.00 17.31 0.00 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)   , 1)*100)

Barrido Barrido o Bass modificada Bass Bass modificada Bass modificada o Stillman Bass o Stillman Electric no recomendaría recomendaría stillman stillman modificada Stillman modificada (sin saber nombre) Vertical
Chile 7.56 0.444 8.44 41.8 1.33 0.444 0.00 8.44 25.78 2.22 3.56 0.0 0.00
Letonia 0.00 0.000 0.00 0.0 0.00 0.000 1.92 48.08 5.77 0.00 0.00 42.3 1.92 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`) , 1)*100)

1/2 cabeza del cepillo cabeza del cepillo mas que 1/2 cabeza, menos que cabeza mas que tamaño arveja, menos que 1/2 cabeza menos que tamaño arveja muy poco, poco no recomendaría recomendaría tamaño arveja
Chile 1.78 0.00 1.33 5.33 20 1.78 24.0 2.22 43.6
Letonia 1.92 1.92 0.00 3.85 0 0.00 38.5 1.92 51.9 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`)  , 1)*100)

ambos cepillos interdentales hilo dental Hilo o celillos interdentales – depende de situacion no recomendaría recomendaría
Chile 36.9 0.444 58.2 0.0 1.33 3.11
Letonia 28.8 1.923 51.9 11.5 5.77 0.00 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`)  , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 17.8 4.44 76.4 1.33
Letonia 12.2 0.00 87.8 0.00 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`14. La persona promedio de mi país tiene buena salud oral.`)  , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 4.0 56.9 0.889 38.2
Letonia 10.2 75.5 0.000 14.3 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`)  , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 33.2 2.24 63.2 1.34
Letonia 32.7 0.00 67.3 0.00 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)    , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 17.3 43.6 5.33 33.8
Letonia 14.3 44.9 0.00 40.8 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)    , 1)*100)

De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 64.0 13.8 21.3 0.889
Letonia 61.2 26.5 12.2 0.000 

kable(  prop.table(table(Estudiante$Pais, Estudiante$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)    , 1)*100)
De acuerdo En desacuerdo Muy de acuerdo Muy en desacuerdo
Chile 36.8 42.6 4.04 16.6
Letonia 53.1 22.4 24.49 0.0

Test estudiantes

options(digits = 3)
chisq.test( table(Estudiante$Pais, Estudiante$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`)  )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`)
X-squared = 7, df = 2, p-value = 0.03
chisq.test( table(Estudiante$Pais, Estudiante$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`)    )

    Pearson's Chi-squared test with Yates' continuity correction

data:  table(Estudiante$Pais, Estudiante$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`)
X-squared = 60, df = 1, p-value = 3e-15
chisq.test( table(Estudiante$Pais, Estudiante$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`) )

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`)
X-squared = 60, df = 3, p-value = 9e-13
chisq.test( table(Estudiante$Pais, Estudiante$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)  )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)
X-squared = 10, df = 5, p-value = 0.08
chisq.test( table(Estudiante$Pais, Estudiante$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)  )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)
X-squared = 200, df = 10, p-value <2e-16
chisq.test( table(Estudiante$Pais, Estudiante$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`)    )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`)
X-squared = 20, df = 8, p-value = 0.009
chisq.test( table(Estudiante$Pais, Estudiante$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`) )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`)
X-squared = 30, df = 5, p-value = 3e-06
chisq.test( table(Estudiante$Pais, Estudiante$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`) )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`)
X-squared = 4, df = 3, p-value = 0.2
chisq.test( table(Estudiante$Pais, Estudiante$`14. La persona promedio de mi país tiene buena salud oral.`) )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`14. La persona promedio de mi país tiene buena salud oral.`)
X-squared = 10, df = 3, p-value = 0.006
chisq.test( table(Estudiante$Pais, Estudiante$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`) )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`)
X-squared = 2, df = 3, p-value = 0.6
chisq.test( table(Estudiante$Pais, Estudiante$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)   )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)
X-squared = 3, df = 3, p-value = 0.3
chisq.test( table(Estudiante$Pais, Estudiante$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)   )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)
X-squared = 6, df = 3, p-value = 0.1
chisq.test( table(Estudiante$Pais, Estudiante$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)   )
Chi-squared approximation may be incorrect

    Pearson's Chi-squared test

data:  table(Estudiante$Pais, Estudiante$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`)
X-squared = 40, df = 3, p-value = 5e-08

Graficos estudiantes

mosaicplot( table(Estudiante$Pais, Estudiante$`1. Entregaría recomendaciones de higiene oral a pacientes adultos`)  , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`3. ¿Le entregaría recomendación de higiene oral a CADA paciente adulto?`)    , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`4. ¿Cuánto tiempo dedicaría dando recomendaciones de higiene oral?`) , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`8.c) Cuando recomienda el cepillado dental, ¿con qué frecuencia recomendaría usted cambiar el cepillo de dientes?`)  , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`8.f) Cuando recomienda el cepillado dental, ¿recomendaría usted una técnica de cepillado?`)  , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`10.c) Cuando recomienda pasta dental, ¿cuanta cantidad de pasta de dientes a utilizar cada vez?`)    , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`12.a) Cuando recomienda la limpieza interdental, ¿recomendaría un tipo de dispositivo interdental?`) , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`13. La higiene oral juega un rol causal en muchas enfermedades orales.`) , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`14. La persona promedio de mi país tiene buena salud oral.`) , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`15. Modificaciones a la higiene oral pueden prevenir muchas enfermedades oral.`) , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`16. La profilaxis profesional no tiene efecto sobre la salud oral de los individuos.`)   , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`17. Los dentistas no dan suficientes recomendaciones sobre higiene oral a sus pacientes.`)   , shade = T)

mosaicplot( table(Estudiante$Pais, Estudiante$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`    , shade = T)
Error: Incomplete expression: mosaicplot(   table(Estudiante$Pais, Estudiante$`18. El personal dental (dentistas y auxiliares) desempeñan el mismo rol en brindar consejos de higiene oral a los pacientes.`    , shade = T)
LS0tCnRpdGxlOiAiUmVjb21lbmRhY2lvbmVzIGRlbnRpc3RhcyBDbCBMViIKb3V0cHV0OiAKICBodG1sX25vdGVib29rOiAKICAgIHRvYzogeWVzCi0tLQpgYGB7cn0KcmVxdWlyZSgidGlkeXZlcnNlIikKbGlicmFyeShrbml0cikKCmBgYApgYGB7cn0KZGYgPC0gcmVhZF9jc3YoInJlY29tZW5kYWNpb25lc19jbF9sdl9zaW1wbGlmaWNhZG8uY3N2IikKYGBgCgoKYGBge3J9CkRlbnRpc3RhIDwtIGRmICU+JSAKICBmaWx0ZXIoYFVkIGVzOmAgPT0gIkRlbnRpc3RhIikKCkVzdHVkaWFudGUgPC0gZGYgJT4lIAogIGZpbHRlcihgVWQgZXM6YCA9PSAiRXN0dWRpYW50ZSIpCmBgYAoKIyBEZW50aXN0YXMKIyMgVGFibGFzIGRlbnRpc3RhcwpgYGB7ciB0YWJsYXMgZGVudGlzdGFzfQprYWJsZSh0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMS4gRW50cmVnYXLDrWEgcmVjb21lbmRhY2lvbmVzIGRlIGhpZ2llbmUgb3JhbCBhIHBhY2llbnRlcyBhZHVsdG9zYCkpCmthYmxlKAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMy4gwr9MZSBlbnRyZWdhcsOtYSByZWNvbWVuZGFjacOzbiBkZSBoaWdpZW5lIG9yYWwgYSBDQURBIHBhY2llbnRlIGFkdWx0bz9gKQkpCmthYmxlKAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgNC4gwr9DdcOhbnRvIHRpZW1wbyBkZWRpY2Fyw61hIGRhbmRvIHJlY29tZW5kYWNpb25lcyBkZSBoaWdpZW5lIG9yYWw/YCkJKQprYWJsZSgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDguYykgQ3VhbmRvIHJlY29taWVuZGEgZWwgY2VwaWxsYWRvIGRlbnRhbCwgwr9jb24gcXXDqSBmcmVjdWVuY2lhIHJlY29tZW5kYXLDrWEgdXN0ZWQgY2FtYmlhciBlbCBjZXBpbGxvIGRlIGRpZW50ZXM/YCkJKQprYWJsZSgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDguZikgQ3VhbmRvIHJlY29taWVuZGEgZWwgY2VwaWxsYWRvIGRlbnRhbCwgwr9yZWNvbWVuZGFyw61hIHVzdGVkIHVuYSB0w6ljbmljYSBkZSBjZXBpbGxhZG8/YCkJKQprYWJsZSgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDEwLmMpIEN1YW5kbyByZWNvbWllbmRhIHBhc3RhIGRlbnRhbCwgwr9jdWFudGEgY2FudGlkYWQgZGUgcGFzdGEgZGUgZGllbnRlcyBhIHV0aWxpemFyIGNhZGEgdmV6P2ApCSkKa2FibGUoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxMi5hKSBDdWFuZG8gcmVjb21pZW5kYSBsYSBsaW1waWV6YSBpbnRlcmRlbnRhbCwgwr9yZWNvbWVuZGFyw61hIHVuIHRpcG8gZGUgZGlzcG9zaXRpdm8gaW50ZXJkZW50YWw/YCkJKQprYWJsZSgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDEzLsKgTGEgaGlnaWVuZSBvcmFsIGp1ZWdhIHVuIHJvbCBjYXVzYWwgZW4gbXVjaGFzIGVuZmVybWVkYWRlcyBvcmFsZXMuYCkJKQprYWJsZSgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDE0LsKgTGEgcGVyc29uYSBwcm9tZWRpbyBkZSBtaSBwYcOtcyB0aWVuZSBidWVuYSBzYWx1ZCBvcmFsLmApCSkKa2FibGUoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxNS7CoE1vZGlmaWNhY2lvbmVzIGEgbGEgaGlnaWVuZSBvcmFsIHB1ZWRlbiBwcmV2ZW5pciBtdWNoYXMgZW5mZXJtZWRhZGVzIG9yYWwuYCkJKQprYWJsZSgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDE2LsKgTGEgcHJvZmlsYXhpcyBwcm9mZXNpb25hbCBubyB0aWVuZSBlZmVjdG8gc29icmUgbGEgc2FsdWQgb3JhbCBkZSBsb3MgaW5kaXZpZHVvcy5gKQkpCmthYmxlKAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMTcuwqBMb3MgZGVudGlzdGFzIG5vIGRhbiBzdWZpY2llbnRlcyByZWNvbWVuZGFjaW9uZXMgc29icmUgaGlnaWVuZSBvcmFsIGEgc3VzIHBhY2llbnRlcy5gKQkpCmthYmxlKAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMTguwqBFbCBwZXJzb25hbCBkZW50YWwgKGRlbnRpc3RhcyB5IGF1eGlsaWFyZXMpIGRlc2VtcGXDsWFuIGVsIG1pc21vIHJvbCBlbiBicmluZGFyIGNvbnNlam9zIGRlIGhpZ2llbmUgb3JhbCBhIGxvcyBwYWNpZW50ZXMuYCkJKQoKCmBgYAojIyBQcm9wIHRhYmxlIGRlbnRpc3RzCmBgYHtyfQprYWJsZShwcm9wLnRhYmxlKHRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxLiBFbnRyZWdhcsOtYSByZWNvbWVuZGFjaW9uZXMgZGUgaGlnaWVuZSBvcmFsIGEgcGFjaWVudGVzIGFkdWx0b3NgKSwgMSkqMTAwKQprYWJsZSgJcHJvcC50YWJsZSh0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMy4gwr9MZSBlbnRyZWdhcsOtYSByZWNvbWVuZGFjacOzbiBkZSBoaWdpZW5lIG9yYWwgYSBDQURBIHBhY2llbnRlIGFkdWx0bz9gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDQuIMK/Q3XDoW50byB0aWVtcG8gZGVkaWNhcsOtYSBkYW5kbyByZWNvbWVuZGFjaW9uZXMgZGUgaGlnaWVuZSBvcmFsP2ApCSwgMSkqMTAwKQprYWJsZSgJcHJvcC50YWJsZSh0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgOC5jKSBDdWFuZG8gcmVjb21pZW5kYSBlbCBjZXBpbGxhZG8gZGVudGFsLCDCv2NvbiBxdcOpIGZyZWN1ZW5jaWEgcmVjb21lbmRhcsOtYSB1c3RlZCBjYW1iaWFyIGVsIGNlcGlsbG8gZGUgZGllbnRlcz9gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDguZikgQ3VhbmRvIHJlY29taWVuZGEgZWwgY2VwaWxsYWRvIGRlbnRhbCwgwr9yZWNvbWVuZGFyw61hIHVzdGVkIHVuYSB0w6ljbmljYSBkZSBjZXBpbGxhZG8/YCkJLCAxKSoxMDApCmthYmxlKAlwcm9wLnRhYmxlKHRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxMC5jKSBDdWFuZG8gcmVjb21pZW5kYSBwYXN0YSBkZW50YWwsIMK/Y3VhbnRhIGNhbnRpZGFkIGRlIHBhc3RhIGRlIGRpZW50ZXMgYSB1dGlsaXphciBjYWRhIHZlej9gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDEyLmEpIEN1YW5kbyByZWNvbWllbmRhIGxhIGxpbXBpZXphIGludGVyZGVudGFsLCDCv3JlY29tZW5kYXLDrWEgdW4gdGlwbyBkZSBkaXNwb3NpdGl2byBpbnRlcmRlbnRhbD9gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDEzLsKgTGEgaGlnaWVuZSBvcmFsIGp1ZWdhIHVuIHJvbCBjYXVzYWwgZW4gbXVjaGFzIGVuZmVybWVkYWRlcyBvcmFsZXMuYCkJLCAxKSoxMDApCmthYmxlKAlwcm9wLnRhYmxlKHRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxNC7CoExhIHBlcnNvbmEgcHJvbWVkaW8gZGUgbWkgcGHDrXMgdGllbmUgYnVlbmEgc2FsdWQgb3JhbC5gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDE1LsKgTW9kaWZpY2FjaW9uZXMgYSBsYSBoaWdpZW5lIG9yYWwgcHVlZGVuIHByZXZlbmlyIG11Y2hhcyBlbmZlcm1lZGFkZXMgb3JhbC5gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDE2LsKgTGEgcHJvZmlsYXhpcyBwcm9mZXNpb25hbCBubyB0aWVuZSBlZmVjdG8gc29icmUgbGEgc2FsdWQgb3JhbCBkZSBsb3MgaW5kaXZpZHVvcy5gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDE3LsKgTG9zIGRlbnRpc3RhcyBubyBkYW4gc3VmaWNpZW50ZXMgcmVjb21lbmRhY2lvbmVzIHNvYnJlIGhpZ2llbmUgb3JhbCBhIHN1cyBwYWNpZW50ZXMuYCkJLCAxKSoxMDApCmthYmxlKAlwcm9wLnRhYmxlKHRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxOC7CoEVsIHBlcnNvbmFsIGRlbnRhbCAoZGVudGlzdGFzIHkgYXV4aWxpYXJlcykgZGVzZW1wZcOxYW4gZWwgbWlzbW8gcm9sIGVuIGJyaW5kYXIgY29uc2Vqb3MgZGUgaGlnaWVuZSBvcmFsIGEgbG9zIHBhY2llbnRlcy5gKQksIDEpKjEwMCkKCmBgYAoKIyMgVGVzdCBkZW50aXN0YXMKYGBge3IgdGVzdCBkZW50aXN0YXN9CmNoaXNxLnRlc3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxLiBFbnRyZWdhcsOtYSByZWNvbWVuZGFjaW9uZXMgZGUgaGlnaWVuZSBvcmFsIGEgcGFjaWVudGVzIGFkdWx0b3NgKQkpCmNoaXNxLnRlc3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAzLiDCv0xlIGVudHJlZ2Fyw61hIHJlY29tZW5kYWNpw7NuIGRlIGhpZ2llbmUgb3JhbCBhIENBREEgcGFjaWVudGUgYWR1bHRvP2ApCSkKY2hpc3EudGVzdCgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDQuIMK/Q3XDoW50byB0aWVtcG8gZGVkaWNhcsOtYSBkYW5kbyByZWNvbWVuZGFjaW9uZXMgZGUgaGlnaWVuZSBvcmFsP2ApCSkKY2hpc3EudGVzdCgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDguYykgQ3VhbmRvIHJlY29taWVuZGEgZWwgY2VwaWxsYWRvIGRlbnRhbCwgwr9jb24gcXXDqSBmcmVjdWVuY2lhIHJlY29tZW5kYXLDrWEgdXN0ZWQgY2FtYmlhciBlbCBjZXBpbGxvIGRlIGRpZW50ZXM/YCkJKQpjaGlzcS50ZXN0KAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgOC5mKSBDdWFuZG8gcmVjb21pZW5kYSBlbCBjZXBpbGxhZG8gZGVudGFsLCDCv3JlY29tZW5kYXLDrWEgdXN0ZWQgdW5hIHTDqWNuaWNhIGRlIGNlcGlsbGFkbz9gKQkpCmNoaXNxLnRlc3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxMC5jKSBDdWFuZG8gcmVjb21pZW5kYSBwYXN0YSBkZW50YWwsIMK/Y3VhbnRhIGNhbnRpZGFkIGRlIHBhc3RhIGRlIGRpZW50ZXMgYSB1dGlsaXphciBjYWRhIHZlej9gKQkpCmNoaXNxLnRlc3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxMi5hKSBDdWFuZG8gcmVjb21pZW5kYSBsYSBsaW1waWV6YSBpbnRlcmRlbnRhbCwgwr9yZWNvbWVuZGFyw61hIHVuIHRpcG8gZGUgZGlzcG9zaXRpdm8gaW50ZXJkZW50YWw/YCkJKQpjaGlzcS50ZXN0KAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMTMuwqBMYSBoaWdpZW5lIG9yYWwganVlZ2EgdW4gcm9sIGNhdXNhbCBlbiBtdWNoYXMgZW5mZXJtZWRhZGVzIG9yYWxlcy5gKQkpCmNoaXNxLnRlc3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxNC7CoExhIHBlcnNvbmEgcHJvbWVkaW8gZGUgbWkgcGHDrXMgdGllbmUgYnVlbmEgc2FsdWQgb3JhbC5gKQkpCmNoaXNxLnRlc3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxNS7CoE1vZGlmaWNhY2lvbmVzIGEgbGEgaGlnaWVuZSBvcmFsIHB1ZWRlbiBwcmV2ZW5pciBtdWNoYXMgZW5mZXJtZWRhZGVzIG9yYWwuYCkJKQpjaGlzcS50ZXN0KAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMTYuwqBMYSBwcm9maWxheGlzIHByb2Zlc2lvbmFsIG5vIHRpZW5lIGVmZWN0byBzb2JyZSBsYSBzYWx1ZCBvcmFsIGRlIGxvcyBpbmRpdmlkdW9zLmApCSkKY2hpc3EudGVzdCgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDE3LsKgTG9zIGRlbnRpc3RhcyBubyBkYW4gc3VmaWNpZW50ZXMgcmVjb21lbmRhY2lvbmVzIHNvYnJlIGhpZ2llbmUgb3JhbCBhIHN1cyBwYWNpZW50ZXMuYCkJKQpjaGlzcS50ZXN0KAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMTguwqBFbCBwZXJzb25hbCBkZW50YWwgKGRlbnRpc3RhcyB5IGF1eGlsaWFyZXMpIGRlc2VtcGXDsWFuIGVsIG1pc21vIHJvbCBlbiBicmluZGFyIGNvbnNlam9zIGRlIGhpZ2llbmUgb3JhbCBhIGxvcyBwYWNpZW50ZXMuYCkJKQoKYGBgCgojIyBHcmFmaWNvcyBkZW50aXN0YXMKYGBge3IgZ3JhZiBkZW50aXN0YXN9Cm1vc2FpY3Bsb3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxLiBFbnRyZWdhcsOtYSByZWNvbWVuZGFjaW9uZXMgZGUgaGlnaWVuZSBvcmFsIGEgcGFjaWVudGVzIGFkdWx0b3NgKQksIHNoYWRlID0gVCkKbW9zYWljcGxvdCgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDMuIMK/TGUgZW50cmVnYXLDrWEgcmVjb21lbmRhY2nDs24gZGUgaGlnaWVuZSBvcmFsIGEgQ0FEQSBwYWNpZW50ZSBhZHVsdG8/YCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGA0LiDCv0N1w6FudG8gdGllbXBvIGRlZGljYXLDrWEgZGFuZG8gcmVjb21lbmRhY2lvbmVzIGRlIGhpZ2llbmUgb3JhbD9gKQksIHNoYWRlID0gVCkKbW9zYWljcGxvdCgJdGFibGUoRGVudGlzdGEkUGFpcywgRGVudGlzdGEkYDguYykgQ3VhbmRvIHJlY29taWVuZGEgZWwgY2VwaWxsYWRvIGRlbnRhbCwgwr9jb24gcXXDqSBmcmVjdWVuY2lhIHJlY29tZW5kYXLDrWEgdXN0ZWQgY2FtYmlhciBlbCBjZXBpbGxvIGRlIGRpZW50ZXM/YCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGA4LmYpIEN1YW5kbyByZWNvbWllbmRhIGVsIGNlcGlsbGFkbyBkZW50YWwsIMK/cmVjb21lbmRhcsOtYSB1c3RlZCB1bmEgdMOpY25pY2EgZGUgY2VwaWxsYWRvP2ApCSwgc2hhZGUgPSBUKQptb3NhaWNwbG90KAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMTAuYykgQ3VhbmRvIHJlY29taWVuZGEgcGFzdGEgZGVudGFsLCDCv2N1YW50YSBjYW50aWRhZCBkZSBwYXN0YSBkZSBkaWVudGVzIGEgdXRpbGl6YXIgY2FkYSB2ZXo/YCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxMi5hKSBDdWFuZG8gcmVjb21pZW5kYSBsYSBsaW1waWV6YSBpbnRlcmRlbnRhbCwgwr9yZWNvbWVuZGFyw61hIHVuIHRpcG8gZGUgZGlzcG9zaXRpdm8gaW50ZXJkZW50YWw/YCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxMy7CoExhIGhpZ2llbmUgb3JhbCBqdWVnYSB1biByb2wgY2F1c2FsIGVuIG11Y2hhcyBlbmZlcm1lZGFkZXMgb3JhbGVzLmApCSwgc2hhZGUgPSBUKQptb3NhaWNwbG90KAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMTQuwqBMYSBwZXJzb25hIHByb21lZGlvIGRlIG1pIHBhw61zIHRpZW5lIGJ1ZW5hIHNhbHVkIG9yYWwuYCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxNS7CoE1vZGlmaWNhY2lvbmVzIGEgbGEgaGlnaWVuZSBvcmFsIHB1ZWRlbiBwcmV2ZW5pciBtdWNoYXMgZW5mZXJtZWRhZGVzIG9yYWwuYCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxNi7CoExhIHByb2ZpbGF4aXMgcHJvZmVzaW9uYWwgbm8gdGllbmUgZWZlY3RvIHNvYnJlIGxhIHNhbHVkIG9yYWwgZGUgbG9zIGluZGl2aWR1b3MuYCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKERlbnRpc3RhJFBhaXMsIERlbnRpc3RhJGAxNy7CoExvcyBkZW50aXN0YXMgbm8gZGFuIHN1ZmljaWVudGVzIHJlY29tZW5kYWNpb25lcyBzb2JyZSBoaWdpZW5lIG9yYWwgYSBzdXMgcGFjaWVudGVzLmApCSwgc2hhZGUgPSBUKQptb3NhaWNwbG90KAl0YWJsZShEZW50aXN0YSRQYWlzLCBEZW50aXN0YSRgMTguwqBFbCBwZXJzb25hbCBkZW50YWwgKGRlbnRpc3RhcyB5IGF1eGlsaWFyZXMpIGRlc2VtcGXDsWFuIGVsIG1pc21vIHJvbCBlbiBicmluZGFyIGNvbnNlam9zIGRlIGhpZ2llbmUgb3JhbCBhIGxvcyBwYWNpZW50ZXMuYCkJLCBzaGFkZSA9IFQpCgpgYGAKCgojIEVzdHVkaWFudGVzCiMjIFRhYmxhcyBlc3R1ZGlhbnRlcwpgYGB7ciB0YWJsYXMgZXN0dWRpYW50ZXN9CmthYmxlKAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDEuIEVudHJlZ2Fyw61hIHJlY29tZW5kYWNpb25lcyBkZSBoaWdpZW5lIG9yYWwgYSBwYWNpZW50ZXMgYWR1bHRvc2ApCSkKa2FibGUoCXRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMy4gwr9MZSBlbnRyZWdhcsOtYSByZWNvbWVuZGFjacOzbiBkZSBoaWdpZW5lIG9yYWwgYSBDQURBIHBhY2llbnRlIGFkdWx0bz9gKQkpCmthYmxlKAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDQuIMK/Q3XDoW50byB0aWVtcG8gZGVkaWNhcsOtYSBkYW5kbyByZWNvbWVuZGFjaW9uZXMgZGUgaGlnaWVuZSBvcmFsP2ApCSkKa2FibGUoCXRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgOC5jKSBDdWFuZG8gcmVjb21pZW5kYSBlbCBjZXBpbGxhZG8gZGVudGFsLCDCv2NvbiBxdcOpIGZyZWN1ZW5jaWEgcmVjb21lbmRhcsOtYSB1c3RlZCBjYW1iaWFyIGVsIGNlcGlsbG8gZGUgZGllbnRlcz9gKQkpCmthYmxlKAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDguZikgQ3VhbmRvIHJlY29taWVuZGEgZWwgY2VwaWxsYWRvIGRlbnRhbCwgwr9yZWNvbWVuZGFyw61hIHVzdGVkIHVuYSB0w6ljbmljYSBkZSBjZXBpbGxhZG8/YCkJKQprYWJsZSgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxMC5jKSBDdWFuZG8gcmVjb21pZW5kYSBwYXN0YSBkZW50YWwsIMK/Y3VhbnRhIGNhbnRpZGFkIGRlIHBhc3RhIGRlIGRpZW50ZXMgYSB1dGlsaXphciBjYWRhIHZlej9gKQkpCmthYmxlKAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDEyLmEpIEN1YW5kbyByZWNvbWllbmRhIGxhIGxpbXBpZXphIGludGVyZGVudGFsLCDCv3JlY29tZW5kYXLDrWEgdW4gdGlwbyBkZSBkaXNwb3NpdGl2byBpbnRlcmRlbnRhbD9gKQkpCmthYmxlKAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDEzLsKgTGEgaGlnaWVuZSBvcmFsIGp1ZWdhIHVuIHJvbCBjYXVzYWwgZW4gbXVjaGFzIGVuZmVybWVkYWRlcyBvcmFsZXMuYCkJKQprYWJsZSgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxNC7CoExhIHBlcnNvbmEgcHJvbWVkaW8gZGUgbWkgcGHDrXMgdGllbmUgYnVlbmEgc2FsdWQgb3JhbC5gKQkpCmthYmxlKAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDE1LsKgTW9kaWZpY2FjaW9uZXMgYSBsYSBoaWdpZW5lIG9yYWwgcHVlZGVuIHByZXZlbmlyIG11Y2hhcyBlbmZlcm1lZGFkZXMgb3JhbC5gKQkpCmthYmxlKAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDE2LsKgTGEgcHJvZmlsYXhpcyBwcm9mZXNpb25hbCBubyB0aWVuZSBlZmVjdG8gc29icmUgbGEgc2FsdWQgb3JhbCBkZSBsb3MgaW5kaXZpZHVvcy5gKQkpCmthYmxlKAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDE3LsKgTG9zIGRlbnRpc3RhcyBubyBkYW4gc3VmaWNpZW50ZXMgcmVjb21lbmRhY2lvbmVzIHNvYnJlIGhpZ2llbmUgb3JhbCBhIHN1cyBwYWNpZW50ZXMuYCkJKQprYWJsZSgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxOC7CoEVsIHBlcnNvbmFsIGRlbnRhbCAoZGVudGlzdGFzIHkgYXV4aWxpYXJlcykgZGVzZW1wZcOxYW4gZWwgbWlzbW8gcm9sIGVuIGJyaW5kYXIgY29uc2Vqb3MgZGUgaGlnaWVuZSBvcmFsIGEgbG9zIHBhY2llbnRlcy5gKQkpCgoKCmBgYAoKIyMgUHJvcCB0YWJsZSBlc3R1ZGlhbnRlCmBgYHtyfQprYWJsZShwcm9wLnRhYmxlKHRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMS4gRW50cmVnYXLDrWEgcmVjb21lbmRhY2lvbmVzIGRlIGhpZ2llbmUgb3JhbCBhIHBhY2llbnRlcyBhZHVsdG9zYCksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAzLiDCv0xlIGVudHJlZ2Fyw61hIHJlY29tZW5kYWNpw7NuIGRlIGhpZ2llbmUgb3JhbCBhIENBREEgcGFjaWVudGUgYWR1bHRvP2ApCSwgMSkqMTAwKQprYWJsZSgJcHJvcC50YWJsZSh0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDQuIMK/Q3XDoW50byB0aWVtcG8gZGVkaWNhcsOtYSBkYW5kbyByZWNvbWVuZGFjaW9uZXMgZGUgaGlnaWVuZSBvcmFsP2ApCSwgMSkqMTAwKQprYWJsZSgJcHJvcC50YWJsZSh0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDguYykgQ3VhbmRvIHJlY29taWVuZGEgZWwgY2VwaWxsYWRvIGRlbnRhbCwgwr9jb24gcXXDqSBmcmVjdWVuY2lhIHJlY29tZW5kYXLDrWEgdXN0ZWQgY2FtYmlhciBlbCBjZXBpbGxvIGRlIGRpZW50ZXM/YCkJLCAxKSoxMDApCmthYmxlKAlwcm9wLnRhYmxlKHRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgOC5mKSBDdWFuZG8gcmVjb21pZW5kYSBlbCBjZXBpbGxhZG8gZGVudGFsLCDCv3JlY29tZW5kYXLDrWEgdXN0ZWQgdW5hIHTDqWNuaWNhIGRlIGNlcGlsbGFkbz9gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxMC5jKSBDdWFuZG8gcmVjb21pZW5kYSBwYXN0YSBkZW50YWwsIMK/Y3VhbnRhIGNhbnRpZGFkIGRlIHBhc3RhIGRlIGRpZW50ZXMgYSB1dGlsaXphciBjYWRhIHZlej9gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxMi5hKSBDdWFuZG8gcmVjb21pZW5kYSBsYSBsaW1waWV6YSBpbnRlcmRlbnRhbCwgwr9yZWNvbWVuZGFyw61hIHVuIHRpcG8gZGUgZGlzcG9zaXRpdm8gaW50ZXJkZW50YWw/YCkJLCAxKSoxMDApCmthYmxlKAlwcm9wLnRhYmxlKHRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMTMuwqBMYSBoaWdpZW5lIG9yYWwganVlZ2EgdW4gcm9sIGNhdXNhbCBlbiBtdWNoYXMgZW5mZXJtZWRhZGVzIG9yYWxlcy5gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxNC7CoExhIHBlcnNvbmEgcHJvbWVkaW8gZGUgbWkgcGHDrXMgdGllbmUgYnVlbmEgc2FsdWQgb3JhbC5gKQksIDEpKjEwMCkKa2FibGUoCXByb3AudGFibGUodGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxNS7CoE1vZGlmaWNhY2lvbmVzIGEgbGEgaGlnaWVuZSBvcmFsIHB1ZWRlbiBwcmV2ZW5pciBtdWNoYXMgZW5mZXJtZWRhZGVzIG9yYWwuYCkJLCAxKSoxMDApCmthYmxlKAlwcm9wLnRhYmxlKHRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMTYuwqBMYSBwcm9maWxheGlzIHByb2Zlc2lvbmFsIG5vIHRpZW5lIGVmZWN0byBzb2JyZSBsYSBzYWx1ZCBvcmFsIGRlIGxvcyBpbmRpdmlkdW9zLmApCSwgMSkqMTAwKQprYWJsZSgJcHJvcC50YWJsZSh0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDE3LsKgTG9zIGRlbnRpc3RhcyBubyBkYW4gc3VmaWNpZW50ZXMgcmVjb21lbmRhY2lvbmVzIHNvYnJlIGhpZ2llbmUgb3JhbCBhIHN1cyBwYWNpZW50ZXMuYCkJLCAxKSoxMDApCmthYmxlKAlwcm9wLnRhYmxlKHRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMTguwqBFbCBwZXJzb25hbCBkZW50YWwgKGRlbnRpc3RhcyB5IGF1eGlsaWFyZXMpIGRlc2VtcGXDsWFuIGVsIG1pc21vIHJvbCBlbiBicmluZGFyIGNvbnNlam9zIGRlIGhpZ2llbmUgb3JhbCBhIGxvcyBwYWNpZW50ZXMuYCkJLCAxKSoxMDApCgpgYGAKCgoKIyMgVGVzdCBlc3R1ZGlhbnRlcwpgYGB7ciB0ZXN0IGVzdHVkaWFudGVzfQpvcHRpb25zKGRpZ2l0cyA9IDMpCmNoaXNxLnRlc3QoCXRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMS4gRW50cmVnYXLDrWEgcmVjb21lbmRhY2lvbmVzIGRlIGhpZ2llbmUgb3JhbCBhIHBhY2llbnRlcyBhZHVsdG9zYCkJKQpjaGlzcS50ZXN0KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDMuIMK/TGUgZW50cmVnYXLDrWEgcmVjb21lbmRhY2nDs24gZGUgaGlnaWVuZSBvcmFsIGEgQ0FEQSBwYWNpZW50ZSBhZHVsdG8/YCkJKQpjaGlzcS50ZXN0KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDQuIMK/Q3XDoW50byB0aWVtcG8gZGVkaWNhcsOtYSBkYW5kbyByZWNvbWVuZGFjaW9uZXMgZGUgaGlnaWVuZSBvcmFsP2ApCSkKY2hpc3EudGVzdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGA4LmMpIEN1YW5kbyByZWNvbWllbmRhIGVsIGNlcGlsbGFkbyBkZW50YWwsIMK/Y29uIHF1w6kgZnJlY3VlbmNpYSByZWNvbWVuZGFyw61hIHVzdGVkIGNhbWJpYXIgZWwgY2VwaWxsbyBkZSBkaWVudGVzP2ApCSkKY2hpc3EudGVzdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGA4LmYpIEN1YW5kbyByZWNvbWllbmRhIGVsIGNlcGlsbGFkbyBkZW50YWwsIMK/cmVjb21lbmRhcsOtYSB1c3RlZCB1bmEgdMOpY25pY2EgZGUgY2VwaWxsYWRvP2ApCSkKY2hpc3EudGVzdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxMC5jKSBDdWFuZG8gcmVjb21pZW5kYSBwYXN0YSBkZW50YWwsIMK/Y3VhbnRhIGNhbnRpZGFkIGRlIHBhc3RhIGRlIGRpZW50ZXMgYSB1dGlsaXphciBjYWRhIHZlej9gKQkpCmNoaXNxLnRlc3QoCXRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMTIuYSkgQ3VhbmRvIHJlY29taWVuZGEgbGEgbGltcGllemEgaW50ZXJkZW50YWwsIMK/cmVjb21lbmRhcsOtYSB1biB0aXBvIGRlIGRpc3Bvc2l0aXZvIGludGVyZGVudGFsP2ApCSkKY2hpc3EudGVzdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxMy7CoExhIGhpZ2llbmUgb3JhbCBqdWVnYSB1biByb2wgY2F1c2FsIGVuIG11Y2hhcyBlbmZlcm1lZGFkZXMgb3JhbGVzLmApCSkKY2hpc3EudGVzdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxNC7CoExhIHBlcnNvbmEgcHJvbWVkaW8gZGUgbWkgcGHDrXMgdGllbmUgYnVlbmEgc2FsdWQgb3JhbC5gKQkpCmNoaXNxLnRlc3QoCXRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMTUuwqBNb2RpZmljYWNpb25lcyBhIGxhIGhpZ2llbmUgb3JhbCBwdWVkZW4gcHJldmVuaXIgbXVjaGFzIGVuZmVybWVkYWRlcyBvcmFsLmApCSkKY2hpc3EudGVzdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxNi7CoExhIHByb2ZpbGF4aXMgcHJvZmVzaW9uYWwgbm8gdGllbmUgZWZlY3RvIHNvYnJlIGxhIHNhbHVkIG9yYWwgZGUgbG9zIGluZGl2aWR1b3MuYCkJKQpjaGlzcS50ZXN0KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDE3LsKgTG9zIGRlbnRpc3RhcyBubyBkYW4gc3VmaWNpZW50ZXMgcmVjb21lbmRhY2lvbmVzIHNvYnJlIGhpZ2llbmUgb3JhbCBhIHN1cyBwYWNpZW50ZXMuYCkJKQpjaGlzcS50ZXN0KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDE4LsKgRWwgcGVyc29uYWwgZGVudGFsIChkZW50aXN0YXMgeSBhdXhpbGlhcmVzKSBkZXNlbXBlw7FhbiBlbCBtaXNtbyByb2wgZW4gYnJpbmRhciBjb25zZWpvcyBkZSBoaWdpZW5lIG9yYWwgYSBsb3MgcGFjaWVudGVzLmApCSkKYGBgCgojIyBHcmFmaWNvcyBlc3R1ZGlhbnRlcwpgYGB7ciBncmFmIGVzdHVkaWFudGVzfQptb3NhaWNwbG90KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDEuIEVudHJlZ2Fyw61hIHJlY29tZW5kYWNpb25lcyBkZSBoaWdpZW5lIG9yYWwgYSBwYWNpZW50ZXMgYWR1bHRvc2ApCSwgc2hhZGUgPSBUKQptb3NhaWNwbG90KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDMuIMK/TGUgZW50cmVnYXLDrWEgcmVjb21lbmRhY2nDs24gZGUgaGlnaWVuZSBvcmFsIGEgQ0FEQSBwYWNpZW50ZSBhZHVsdG8/YCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgNC4gwr9DdcOhbnRvIHRpZW1wbyBkZWRpY2Fyw61hIGRhbmRvIHJlY29tZW5kYWNpb25lcyBkZSBoaWdpZW5lIG9yYWw/YCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgOC5jKSBDdWFuZG8gcmVjb21pZW5kYSBlbCBjZXBpbGxhZG8gZGVudGFsLCDCv2NvbiBxdcOpIGZyZWN1ZW5jaWEgcmVjb21lbmRhcsOtYSB1c3RlZCBjYW1iaWFyIGVsIGNlcGlsbG8gZGUgZGllbnRlcz9gKQksIHNoYWRlID0gVCkKbW9zYWljcGxvdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGA4LmYpIEN1YW5kbyByZWNvbWllbmRhIGVsIGNlcGlsbGFkbyBkZW50YWwsIMK/cmVjb21lbmRhcsOtYSB1c3RlZCB1bmEgdMOpY25pY2EgZGUgY2VwaWxsYWRvP2ApCSwgc2hhZGUgPSBUKQptb3NhaWNwbG90KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDEwLmMpIEN1YW5kbyByZWNvbWllbmRhIHBhc3RhIGRlbnRhbCwgwr9jdWFudGEgY2FudGlkYWQgZGUgcGFzdGEgZGUgZGllbnRlcyBhIHV0aWxpemFyIGNhZGEgdmV6P2ApCSwgc2hhZGUgPSBUKQptb3NhaWNwbG90KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDEyLmEpIEN1YW5kbyByZWNvbWllbmRhIGxhIGxpbXBpZXphIGludGVyZGVudGFsLCDCv3JlY29tZW5kYXLDrWEgdW4gdGlwbyBkZSBkaXNwb3NpdGl2byBpbnRlcmRlbnRhbD9gKQksIHNoYWRlID0gVCkKbW9zYWljcGxvdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxMy7CoExhIGhpZ2llbmUgb3JhbCBqdWVnYSB1biByb2wgY2F1c2FsIGVuIG11Y2hhcyBlbmZlcm1lZGFkZXMgb3JhbGVzLmApCSwgc2hhZGUgPSBUKQptb3NhaWNwbG90KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDE0LsKgTGEgcGVyc29uYSBwcm9tZWRpbyBkZSBtaSBwYcOtcyB0aWVuZSBidWVuYSBzYWx1ZCBvcmFsLmApCSwgc2hhZGUgPSBUKQptb3NhaWNwbG90KAl0YWJsZShFc3R1ZGlhbnRlJFBhaXMsIEVzdHVkaWFudGUkYDE1LsKgTW9kaWZpY2FjaW9uZXMgYSBsYSBoaWdpZW5lIG9yYWwgcHVlZGVuIHByZXZlbmlyIG11Y2hhcyBlbmZlcm1lZGFkZXMgb3JhbC5gKQksIHNoYWRlID0gVCkKbW9zYWljcGxvdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxNi7CoExhIHByb2ZpbGF4aXMgcHJvZmVzaW9uYWwgbm8gdGllbmUgZWZlY3RvIHNvYnJlIGxhIHNhbHVkIG9yYWwgZGUgbG9zIGluZGl2aWR1b3MuYCkJLCBzaGFkZSA9IFQpCm1vc2FpY3Bsb3QoCXRhYmxlKEVzdHVkaWFudGUkUGFpcywgRXN0dWRpYW50ZSRgMTcuwqBMb3MgZGVudGlzdGFzIG5vIGRhbiBzdWZpY2llbnRlcyByZWNvbWVuZGFjaW9uZXMgc29icmUgaGlnaWVuZSBvcmFsIGEgc3VzIHBhY2llbnRlcy5gKQksIHNoYWRlID0gVCkKbW9zYWljcGxvdCgJdGFibGUoRXN0dWRpYW50ZSRQYWlzLCBFc3R1ZGlhbnRlJGAxOC7CoEVsIHBlcnNvbmFsIGRlbnRhbCAoZGVudGlzdGFzIHkgYXV4aWxpYXJlcykgZGVzZW1wZcOxYW4gZWwgbWlzbW8gcm9sIGVuIGJyaW5kYXIgY29uc2Vqb3MgZGUgaGlnaWVuZSBvcmFsIGEgbG9zIHBhY2llbnRlcy5gCSwgc2hhZGUgPSBUKQoKYGBg