Algoritma & Struktur Data

~ Visualisasi Data dengan R ~


Kontak : \(\downarrow\)
Email
RPubs https://rpubs.com/kentzend03/

Visualisasi data adalah cara mengambil suatu informasi dari suatu data dalam bentuk visual, seperti bagan, grafik, dan peta. Visualisasi data dapat mempermudah suatu data mudah dimengerti oleh otak manusia, dan visualisasi juga membuatnya lebih andal untuk mendeteksi pola, tren, dan outlier dalam kelompok data.

Univariat (Satu Variabel)

Visualisasi data univariat biasanya digunakan untuk melakukan distribusi data dari satu variabel. Dalam hal ini, variabel yang dimaksud terbagi jadi dua bagian:

• Kategoris, seperti jenis kelamin, ras, negara, kota dll.

• Numerik, seperti usia, berat badan, inflasi, suku bunga, dll.

Variabel Kategori

Distribusi dalam suatu variabel kategori tunggal biasanya dalam bentuk diagram batang, diagram lingkaran, atau diagram pohon (Yang satu ini jarang sekali digunakan)

Diagram Batang

Berikut adalah contoh menunjukkan frekuensi dari dataset Marriage, yang didapat dengan menggunakan package mosaicData. Gunakan diagram batang untuk menampilkan distribusi pernikahan berdasarkan Zodiak

library(ggplot2)   #Package untuk visualisasi
setwd("D:/Fisika Medis/Algoritma dan Struktur Data/Pertemuan 13")  #Mengatur Working Directory
Marriage<- read.csv("https://raw.githubusercontent.com/Bakti-Siregar/dataset/master/Bookdown-Data-Science-for-Beginners/Marriage.csv")   #Mengimpor Data dari web
ggplot(Marriage, aes(x = zodiacs)) +    #Memplot distribusi dari Zodiacs
  geom_bar(fill = "#C0C0C0",     # Menerapkan warna
           color = "#000000") +
  theme_minimal() +   #Menerapkan tema
  labs(x = "Zodiacs",    #Mengganti label dan judul
       y = "Frequency",
       title = "Marriage Participants by Zodiacs")

Batangan di atas menunjukkan persentase dari jumlah. Dari diagram di atas, kode aes(x-sign) merupakan pintasan untuk aes(x = sign, y = ..count..), dimana …count… adalah variabel khusus yang menggambarkan frekuensi tiap kategori. Ini juga dapat menghitung persentase, dengan menentukan variabel y secara eksplisit.

library(ggplot2)                                     # Untuk memvisualisasikan
ggplot(Marriage, 
   aes(x = zodiacs, 
       y = ..count.. / sum(..count..))) + 
  geom_bar(fill = rainbow(12), color= "aquamarine3") +     # Menerapkan warna
  theme_minimal() +                                  # menerapkan tema minimalis
  # Mengganti lebel dan judul
  labs(x = "Zodiak",                                 
       y = "Persen", 
  title  = "Peserta Pernikahan dalam Persen") +
  scale_y_continuous(labels = scales::percent)       # Menambah simbol persen (%)

Catatan: Dalam R, warna ditentukan dengan nama (misal col = "Light Blue") atau dengan triplet RGB heksadesimal (seperti col = "#0000FF"). Anda juga dapat menggunakan sistem warna lain seperti salah satunya diambil dari package RColorBrewer

Mengurutkan batang berdasarkan frekuensi sangat membantu. Kode di bawah ini menghitung frekuensi secara eksplisit. Kemudian fungsi **Reorder** digunakan untuk mengurutkan kategori berdasarkan frekuensinya. Opsi **stat="identity"** memberitahu fungsi plot untuk tidak menghitung jumlah, karena mereka diberikan secara langsung.

library(dplyr)                                       # Untuk manipulasi data
library(ggplot2)                                     # Untuk visualisasi
plotdata <- Marriage %>%                             # Memuat dataset
 count(zodiacs)                                      # menghitung julmah peserta setiap `zodiak`
# gambar diagram batang dengan urutan meningkat
ggplot(plotdata,                                     
       aes(x = reorder(zodiacs, n), 
           y = n)) + 
  geom_bar(stat = "identity",
           fill = rainbow(12), 
           color= "#FFFFCC") +
   theme_minimal() +                                  # Menerapkan tema minimalis
  labs(x = "Zodiak", 
       y = "Frekuensi", 
  title  = "Sorting Categories")

Untuk memberi label numerik di setiap batang, gunakan kode berikut:

library(dplyr)                                       # Untuk manipulasi data
library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
plotdata <- Marriage %>%
  count(zodiacs) %>%
  mutate(pct = n / sum(n),
         pctlabel = paste0(round(pct*100), "%"))
# Diagram batang dengan menampilkan persentase dan diurutkan secara menurun
ggplot(plotdata, 
       aes(x = reorder(zodiacs, -pct),
           y = pct)) + 
  geom_bar(stat = "identity", 
           fill = rainbow(12), 
          color = "azure4") +
  geom_text(aes(label = pctlabel), 
            vjust = -0.25) +
  theme_minimal() +                                  # Menerapkan tema minimal
  scale_y_continuous(labels = percent) +
  labs(x = "Zodiak", 
       y = "Persen", 
       title  = "Persentase Zodiak Peserta Pernikahan")

Terkadang, label kategori tumpang tindih, solusinya adalah memutar label sumbu dengan kode berikut:

library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
# Diagram batang dengan menampilkan persentase dan diurutkan secara menurun
ggplot(plotdata, 
       aes(x = reorder(zodiacs, -pct),
           y = pct)) + 
  geom_bar(stat = "identity", 
           fill = "#00FF00", 
           color = "#FF0000") +
  geom_text(aes(label = pctlabel), 
            vjust = -0.25) +
  scale_y_continuous(labels = percent) +
  theme_minimal() +                                 
  labs(x = "Zodiak", 
       y = "Persen", 
       title  = "Persentase Zodiak Peserta Pernikahan")+
  theme(axis.text.x = element_text(angle = 50, hjust = 1))    # mengatur derajat label kategori variabel x

Cara lain adalah dengan menangani situasi ini dengan membalik sumbu x dan y

library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
# Diagram batang Persentase Zodiak Peserta Pernikahan dengan memutar sumbu x dengan sumbu y
ggplot(plotdata, 
       aes(x = reorder(zodiacs, -pct),
           y = pct)) + 
  geom_bar(stat = "identity", 
           fill = "yellow", 
           color = "black") +
  geom_text(aes(label = pctlabel), 
            hjust = -0.10) +
  scale_y_continuous(labels = percent) +
  theme_minimal() +                               
  labs(x = "Zodiak", 
       y = "Persen", 
       title  = "Persentase Zodiak Peserta Pernikahan")+
  coord_flip()      # Memutar sumbu x dengan sumbu y

Diagram Lingkaran/Pie

Diagram lingkaran/pie bersifat kontroversial di statistik. Jika bertujuan untuk membandingkan frekuensi dari kategori, lebih baik menggunakan diagram batang. tetapi, jika bertujuan untuk membandingkan tiap kategori secara keseluruhan (misal, berapa porsi…), dan jumlah kategorinya kecil, diagram pie mungkin cocok untuk dipakai. Untuk membuat diagram pie dibutuhkan lebih banyak kode.

library(dplyr)                                       # Untuk manipulasi data
library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
plotdata <- Marriage %>%
  count(race) %>%
  arrange(desc(race)) %>%
  mutate(prop = round(n*100/sum(n), 1),
         lab.ypos = cumsum(prop) - 0.5*prop)
# Membuat Diagram Pie
mycols <- c("#008000","#00FF00","#800000","#FF0000")
ggplot(plotdata, aes(x = "", y = prop, fill = race)) +
  geom_bar(width = 1, stat = "identity", color = "white") +
  coord_polar("y", start = 0)+
  geom_text(aes(y = lab.ypos, label = prop), color = "black")+
  scale_fill_manual(values = mycols) +
  theme_void()+
  labs(title = "Peserta Pernikahan Berdasarkan Ras")

Selain menggunakan diagram pie, juga dapat menggunakan diagram donat yang terdapat lubang di dalamnya. Untuk membuat lubang pada diagram donat menggunakan kode x=2 dan xlim=c(0.5,2.5). Selain itu, argumen width dalam fungsi geom_bar() tidak diperlukan.

library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
# Membuat Diagram Donat
ggplot(plotdata, aes(x = 2, y = prop, fill = race)) +
  geom_bar(stat = "identity", color = "white") +
  coord_polar(theta = "y", start = 0)+
  geom_text(aes(y = lab.ypos, label = prop), color = "black")+
  scale_fill_manual(values = mycols) +
  theme_void()+
  xlim(0.5, 2.5)+
  labs(title = "Peserta Pernikahan Berdasarkan Ras")

Menambahkan label dan menghapus legend

library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
# Memberi label persen
plotdata$percent <- paste0(plotdata$race, "\n",
                         round(plotdata$prop), "%")
# Membuat Diagram Donat dalam Persen
ggplot(plotdata, aes(x = 2, y = prop, fill = race)) +
  geom_bar(stat = "identity", color = "white") +
  coord_polar(theta = "y", start = 0)+
  geom_text(aes(y = lab.ypos, label = percent), color = "black")+
  scale_fill_manual(values = mycols) +
  theme_void()+
  xlim(0.5, 2.5)+
  labs(title = "Peserta Pernikahan Berdasarkan Ras")+
  theme(legend.position = "FALSE")

Peta Pohon

Alternatif untuk diagram lingkaran/pie adalah peta pohon atu tree map.Tree map dapat menangani variabel kategorikal yang memiliki banyak tingkatan.

library(ggplot2)                           # Untuk visualisasi
library(treemapify)                        # Visualisasi treemap
library(scales)                           # menentukan jeda atau label secara otomatis
plotdata<-Marriage%>%
  count(officialTitle)
ggplot(plotdata,
       aes(fill=officialTitle,
           area=n))+
  geom_treemap()+
  labs(title = "Marriage Participants by Officiate")

Menambahkan label variabel pada treemap, kode yang digunakan sebagai berikut.

ggplot(plotdata,
       aes(fill=officialTitle,
           area=n,
           label=officialTitle))+
  geom_treemap()+
  geom_treemap_text(colour="black",
                    place = "centre")+
  labs(title = "Marriage Participants by Officiate")+
  theme(legend.position = "none")

Variabel Kontinu (Numerik/kuantitatif)

Distribusi pada variabel kontinu tunggal bisanya diplot dengan menggunakan histogram, densitas kernel, atau menggunakan diagram titik.

Histogram

Dengan menggunakan data set Marriage, akan dibuat histogram usia dari peserta pernikahan.

library(ggplot2)                           # Untuk visualisasi
ggplot(Marriage, aes(x=age))+
  geom_histogram(fill="yellow",
               color="red",bins=20)+
  theme_minimal()+
  labs(title = "Peserta Pernikahan Berdasarkan Usia (Basic,menggunakan bin)",
       x="Usia",
       y="Frekuensi")

Sebagian besar peserta pernikahan berusia 20-an tahun. Kemudian berusia 40-an dan yang paling sedikit berusia 60-an tahun. Warna histogram dapat diubah dengan menggunakan 2 opsi :

fill : warna isi untuk batang

color : warna batas /garis batang

cara lainnya adalah dengan menggunakan binwidth, lebar batang akan disesuaikan dengan frekuensi/nilai dari binwidth. Seperti pada diagram batang, sumbu y mewakili frekuensi/ persenan.

library(ggplot2)                           # Untuk visualisasi
library(scales)                           # menentukan jeda atau label secara otomatis
ggplot(Marriage, 
       aes(x = age, 
           y= ..count.. / sum(..count..))) +
  geom_histogram(fill = "white", 
                 color = "black", 
                 binwidth = 5) +       #Menerapkan bindwidth
  theme_minimal() +                                  
  labs(title="Peserta Pernikahan Berdasarkan Usia (Menggunakan binwidth)", 
       y = "Persen",
       x = "Usia") +
  scale_y_continuous(labels = percent)

Plot Densitas Kernel

Alternatif lain untuk memunculkan histogram yaitu plot densitas kernel. Secara teknis, plot densitas kernel adalah metode non parametik untuk memperkirakan dungsi densitas probabilitas dari variabel acak kontinu. Pada dasarnya untuk membuat histogram yang diperhalus, area di bawah kurfa harus sama dengan 1.

library(ggplot2)                           # Untuk visualisasi
ggplot(Marriage, aes(x=age))+
  geom_density(fill="cyan")+
  theme_minimal()+
  labs(title = "Peserta Pernikahan Berdasarkan Usia",
       x="Usia",
       y="Density")

Grafik menunjukan distribusi dari nilai. Contoh, perbandingan kasusu antara usia 20 tahun dan 40 tahun akan diwakili oleh area di bawah kurfa antara 20 dan 4 pada sumbu x. Gunakan kode fill untuk menerapkan warna isi, dan color untuk warna batas.

Parameter Penghalusan (Smoothing)

Tingkat kehalusan grafik dapat diatur oleh parameter bandwidth bw. Untuk menemukan nilai default variabel tertentu, dapat menggunakan fungsi bw.nrd0. Nilai yang lebih besar akan menghasilkan tingkat kehalusan lebih besar pula, sedangkan yang lebih kecil menghasilkan tingkat penghalusan yang lebih kecil pula.

library(ggplot2)                 # Untuk visualisasi
bw.nrd0 (Marriage$age)           # Default bandwidth untuk variabel usia
## [1] 5.181946
ggplot(Marriage, aes(x=age))+
  geom_density(fill="darkblue",
               bw=1)+
  theme_minimal()+
  labs(title="Peserta Pernikahan Berdasarkan Usia",
       x="Usia",
       y="Density",
       subtitle="bandwidth = 1")

Grafik ini memungkinkan dengan mudah melihat kategori yang paling sering dan ralatif jarang. Namun sulit untuk menjelaskan arti/mendefinisikan sumbu y.

Diagram Titik

Selain dengan plot density kernel, diagram titik merupakan alternatif lain untuk histogram. Pada diagram ini, tiap hasil analisis ditentukan oleh sebuah titik. Secara deafult, lebar dari sebuah titik sama dengan lebar bin, dan titik-titik tersebut bertumpukan dengan tiap titik mewakili satu pengamatan. Diagram titik lebih baik digunakan pada pengamata dalam jumlah yang kecil (kurang dari 150). Gunakan kode fill untuk menerapkan warna isi, dan color untuk warna batas.

library(ggplot2)                 # Untuk visualisasi
ggplot(Marriage, aes(x=age))+
  # Mebuat grafik titik(dotplot)
  geom_dotplot(fill="grey",    # Menerapkan warna
               color="black",
               binwidth = 2) +
  theme_minimal()+
  labs(title = "Peserta Pernikahan Berdasarkan Usia",               # Menambahkan Judul
       y="Proportion",
       x="Usia")

Data Bivariant

Grafik bivariant merupakan grafik yang menunjukan hubungan antara 2 variabel. Jenis grafik tergantung pada tingkat pengukuran dari variabel (kategoris atau numerik).

Kategorikal vs Kategorikal

Diagram Batang Bertumpuk

Berikut merupakan contoh grafik hubungan antara kelas mobil dan jenis penggerak (roda depan, roda belakang, atau 4 roda) untuk mobil dalam data set Fuel economy.

library(ggplot2)                 # Untuk visualisasi
mpg$drv<-factor(mpg$drv, 
                levels = c("f", "r", "4"),
                labels = c("front-wheel", "rear-wheel", "4-wheel"))
# Diagram Batang Betumpuk
ggplot(mpg, 
       aes(x = class, 
           fill = drv)) + 
  geom_bar(position = "fill") +
  theme_minimal() +                                
  labs(y = "Proporsi")

Diagram Bayang yang Dikelompokkan

Diagram batang yang dikelompokkan untuk variabel kategori kedua secara berdampingan. Untuk membuat plot batang yang dikelompokkan, gunakankode position="single". Perlu diperhatikan bahwa opsi ini hanya tersedia pada versi pengembangan terbaru ggplot2 tetapi akan segera tersedia secara umum.

library(ggplot2)                 # Untuk visualisasi
ggplot(mpg, aes(x=class,
                fill=drv))+
  theme_minimal()+
  geom_bar(position=position_dodge(preserve="single"))

Diagram Batang Tersegmentasi

Diagram batang yang tersegmentasi merupakan diagram yang bertumpuk, di mana tiap batang mewakili 100%. Untuk membuat diagram ini, dpat menggunakan kode position="filled". Diagram batang tersegmentasi sangat berguna jika bertujuan untuk memnadingkan perentasi dari kategori dalam satu variabel di tiap tingkat variabel lainnya. Contohnya, proporsi mobil dengan penggerak roda depan meningkat ketika memindahkan dari mobil penumpang yang kecil ke menengah, ke minivan.

library(dplyr)                                       # Untuk manipulasi data
library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
# Membuat data ringkasan dari dataset
plotdata <- mpg %>%
  group_by(class, drv) %>%
  dplyr::summarize(n = n()) %>%
  mutate(pct = n/sum(n),
         lbl = scales::percent(pct))
# Membuat diagram batang yang tersegmentasi
# Memberikan label pada tiap segmen
ggplot(plotdata, 
       aes(x = factor(class),
           y = pct,
        fill = factor(drv))) +
  geom_bar(stat = "identity",
           position = "fill") +
  scale_y_continuous(breaks = seq(0, 1, .2), 
                     label = percent)+
  geom_text(aes(label = lbl),
            size = 3,
            position = position_stack(vjust = 0.5)) +
  scale_fill_brewer(name="GrandBudapest") +
  theme_minimal() +                                
  labs(y = "Persen",
       fill = "Drive Train",
       x = "Kelas",
       title = "Penggerak Mobil berdasarkan Kelas") +
  theme_minimal()

Catatan : Gunakan opsi tambahan di bawah ini untuk meningkatkan pewarnaan dan pelabelan pada diagram.

  • factor Mengubah/mengatur urutan kategori untuk kelas variabel serta labels untuk variabel drive

  • scale_y_continuous Mengubah label tanda centang pada sumbu y

  • labs Mengubah/menambahkan judul dan label pada sumbu x dan y serta legenda

  • scale_fill_brewer Mengubah skema warna isian

  • theme_minimal Menghapus latar belakang abu-abu dan mengubah warna kisi

Plot Mosaik

Diagram ini dapat menampilkan hubungan antara variable kategoris dengan menggunakan persegi panjang yang luasnya mewakili proporsi kejadian untuk kombinasi level tertentu. Warna pada ubin juga dapat menunjukkan tingkat hubungan antar variabel. Meskipun diagram mozaik dapat dibuat dengan fungsi ggplot2 dengan package ggmosaic, lebih baik menggunakan package vcd sebagai gantinya. Meski tidak akan membuat grafik, package tersebut akan memberikan pendekatan yang lebih komprehenif untuk memvisualisasikan data kategorikal. Berikut contoh memvisualisasikan hubungan anatara variabel kategorikal kelas dan jenis kelamin dalam survival dengan menggunakan diagram mozaik .

# Membuat tabel
tbl<-xtabs(Freq~Survived+Class+Sex,Titanic)
ftable(tbl)
##                Sex Male Female
## Survived Class                
## No       1st        118      4
##          2nd        154     13
##          3rd        422    106
##          Crew       670      3
## Yes      1st         62    141
##          2nd         25     93
##          3rd         88     90
##          Crew       192     20
# Membuat diagram mozaik
library(vcd)
mosaic(tbl, main = "Titanic Data")

Ukuran persegi sebanding dengan presentase khusus dalam kombinasi tingkat tersebut. Lebih banyak penumpang yang tewas daripada yang selamat. Berdasarkan grafik tersebut, penumpang laki-laki kelas 3 dan crew laki-laki yang paling banyak tidak selamat.

Jika kita mengasumsikan bahwa ketiga variabel ini tidak bergantung, kita dapat memeriksa residual dari model dan memberi bayangan pada ubin agar sesuai. Pada grafik di bawah, warna biru mewakilkan lebih banyak kasus dari yang diharapkan tidak terikat. Warna merah mewakili lebih sedikit asus dari yang diharapkan jika berlaku tidak terikat.

mosaic(tbl,
       shade = TRUE,
       legend=TRUE,
       labeling_args = list(set_varnames = c(Sex = "Gender",
                                             Survived = "Survived",
                                             Class = "Passenger Class")),
       set_labels = list(Survived=c("No","Yes"),
                         Class=c("1st","2nd","3rd","Crew"),
                         Sex=c("F","M")),
       main="Titanic Data")

Dapat dilihat bahwa jika class, gender, dan survival tidak terikat. Lebih banyak crew laki-laki yang tidak selamat, dan perempuan pada kelas 1,2, dan 3 lebih banyak yang selamat. Dan Penumpang kelas 1 yang tidak selamat jauh lebih sedikit.

Kontinu vs. Kontinu

Hubungan antar 2 variabel kuantitatif biasanya ditampilkan menggunakan plot sebaran dan grafik garis.

Plot sebaran (Scatterplot)

Plot sebaran ini dibuat untuk mempelajari hubungan antar 2 variabel dan sering disertai dengan perhitungan koefisien korelasi yang biasanya mencoba untuk mengukur hubungan linier. Namun jenis hubungan lain dapat dideteksi dengan menggunakan plot sebaran, dan yang perlu dilakukan adalah menyesuaikan model yang menjelaskan Y dalam fungsi X. Terlebih dahulu instal package hrbrthemes. Berikut ini contoh penggunaan plot sebaran.

library(ggplot2)
             # Untuk visualisasi
library(hrbrthemes)                                # untuk `theme_ipsum()` dan legend
d1 <- data.frame(x=seq(1,100), 
                 y=rnorm(100), 
                 name="No trend")
d2 <- d1 %>% 
  mutate (y=x*10 + rnorm(100,sd=60)) %>%
  mutate (name="Linear relationship")
d3 <- d1 %>%
  mutate(y=x^2 + rnorm(100,sd=140)) %>%
  mutate(name="Square")
d4 <- data.frame( x=seq(1,10,0.1), 
                  y=sin(seq(1,10,0.1)) + 
                    rnorm(91,sd=0.6)) %>% 
  mutate(name="Sin")
don <- do.call(rbind, list(d1, d2, d3, d4))
# Plot
don %>%
  ggplot(aes(x=x, y=y)) +
    geom_point(color="yellow", alpha=0.8) +
    theme_ipsum() +
    facet_wrap(~name, scale="free")

Cara yang paling mudah untuk menampilkan 2 variabel kuantitatif adalah scatterplot atau plot sebaran dengan tiap variabel diwakilkanoleh sumbu . Sebagai contoh, dengan menggunakan dataset Gaji untuk membuat plot sebaran dengan menampilkan variabel pengalaman (yrs.since.phd) vs gaji akademik (salary) dari Profesor perguruan tinggi. Install package carData terlebih dahulu.

library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
data(Salaries, package = "carData")
# Peningkatan plot sebaran
ggplot(Salaries, 
       aes(x = yrs.since.phd, 
           y = salary)) +
  geom_point(color="#92C5DE", 
             size = 2, 
             alpha=.8) +
  scale_y_continuous(label = scales::dollar, 
                     limits = c(50000, 250000)) +
  scale_x_continuous(breaks = seq(0, 60, 10), 
                     limits=c(0, 60)) +
  theme_minimal() +                               
  labs(x = "Tahun Sejak PhD",
       y = "",
       title = "Pengalaman vs. Gaji",
       subtitle = "Gaji 9 bulan untuk 2008-2009")

Notes: opsi geom_point bisa digunakan untuk mengubah

color : Mengubah warna titik

size : Mengubah ukuran titik

shape : Membuat bentuk titik

alpha : Mengatur transparansi titik. Jarak transparansi mulai dari 0 (transparan) sampai 1 (buram) yang berguna ketika beberapa titik tumpang tindih.

Fungsi scale_x_continuous dan scale_y_continuous berfungsi untuk mengontrol penskalaan masing-masing pada sumbu x dan y. Kita dapat menggunakan opsi dan fungsi ini untuk membuat scatterplot yang lebih menarik.

Plot Sebaran Menyesuaikan Garis (Scatterplot Fit Lines)

Seringkali berguna untuk meringkas hubungan yang ditampilkan pada plot sebaran dengan menyesuaikan garis. Banyak jenis garis yang didukung misal, linear, polinomial, dan nonparametrik(loess). Secara deafult, garis ini ditampilkan dengan batas kepercayaan 95%.

library(ggplot2)                                     # Untuk visualisasi
ggplot(Salaries,
       aes(x = yrs.since.phd, 
           y = salary)) +
  geom_point(color= "red") +      # Menerapkan warna titik
  geom_smooth(method = "lm", color = "pink")+                              # Menerapkan warna pada garis
  theme_minimal() +                                 
  labs(x = "Years Since PhD",
       y = "",
       title = "Pengalaman vs Gaji",
       subtitle = "Gaji 9 bulan untuk 2008-2009")

Berdasarkan grafik di atas, gaji akan meningkat sesuai dengan pengalaman, namun ada penurunan di bagian ujung kanan-profesor dengan pengalaman signifikan, mendapatkan gaji yang lebih rendah. Garis lurus tidak menangkap efek non-linier ini, garis dengan lengkungan akan lebih pas

Garis regresi polinomial akan menampilkan garis yang pas dengan bentuknya. \[y=β_0+β_1x+β_2x^2+⋯+β_nx^2\]

Biasanya digunakan garis kuadrat (\(^2\)) (satu lengkungan), atau kubik (\(^3\)) (dua lengkungan). Penggunaan polinomial orde tinggi (\(>3\)) jarang diperlukan. Menerapkan kesesuaian kuadrat data ke data Gaji menghasilkan scatterplot sebagai berikut.

library(ggplot2)                                     # Untuk visualisasi
ggplot(Salaries,
       aes(x = yrs.since.phd, 
           y = salary)) +
  geom_point(color= "#cc3399") +    # Menerapkan warna titik
  geom_smooth(method = "lm", 
              formula = y ~ poly(x, 2), 
              color = "#ccffff")+   # Menerapkan warna pada garis
  theme_minimal() +                                
  labs(x = "Years Since PhD",
       y = "",
       title = "Pengalaman vs Gaji",
       subtitle = "Gaji 9 bulan untuk 2008-2009")

Setelah garis diperhalus scatterplot menampilkan gambar yang lebih jelas dan mudah dipahami. Default di ggplot2 adalah garis loess yang memperhalus scatterplot scara lokal.

library(ggplot2)                                     # Untuk visualisasi
ggplot(Salaries, 
       aes(x = yrs.since.phd, 
           y = salary)) +
  geom_point(color="black", 
             size = 2, 
             alpha = 1) +
  geom_smooth(size = 1,
              color = "magenta") +
  scale_y_continuous(label = scales::dollar, 
                     limits = c(50000, 250000)) +
  scale_x_continuous(breaks = seq(0, 60, 10), 
                     limits = c(0, 60)) +
  theme_minimal() +                                 
  labs(x = "Years Since PhD",
       y = "",
       title = "Pengalaman vs Gaji",
       subtitle = "Gaji 9 bulan untuk 2008-2009")

Kategorikal vs Kontinu

Ketika memplot hubungan antar variabel kategorikal dengan kuantitatif , tersedia banyak jenis grafik yang dapat digunakan misal, diagram batang dengan summary statistik, plot densitas kernel, box plot, violin plot, mean/sem plot, ridgeline plot, dan cleveland plot.

Diagram Batang (Ringkasan Statistik)

Pada bagian-bagian sebelumnya, diagram batang digunakan untuk menampilkan jumlah variabel bardasarkan kategori untuk variabel tunggal atau 2 variabel. Diagram batang juga dapat digunakan untuk menampilkan ringkasan statistik seperti mean dan median pada variabel kuantitatif untuk tiap tingkatan dari variabel kategorikal.

Berikut merupakan contoh diagram batang yang menunjukan mean dari gaji profesor universitas berdasarkan jabatan akademik.

library(dplyr)                                       # Untuk manipulasi data
library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
data(Salaries, package="carData")
# hitung rata-rata untuk setiap Jabatan
plotdata <- Salaries %>%
  group_by(rank) %>%
  dplyr::summarize(mean_salary = mean(salary))
# Membuat plot mean gaji dengan cara yg lebih menarik
mycols <- c("#009999", "#0000FF", "#FDDBC7")
ggplot(plotdata, 
       aes(x = factor(rank,
                      labels = c("Assistant\nProfessor",
                                 "Associate\nProfessor",
                                 "Full\nProfessor")), 
                      y = mean_salary)) +
  geom_bar(stat = "identity", 
           fill = mycols) +
  geom_text(aes(label = dollar(mean_salary)), 
            vjust = -0.25) +
  scale_y_continuous(breaks = seq(0, 130000, 20000), 
                     label = dollar) +
  theme_minimal() +                               
  labs(title = "Rata-rata Gaji Berdasarkan Jabatan", 
       subtitle = "9 bulan gaji akademik untuk 2008-2009",
       x = "Jabatan",
       y = "Gaji")

Plot Densitas Kernel yang Dikelompokkan

Membandingkan data kelompok pada variabel numerik/kuantitatif dapat menggunakan plot densitas kernel dalam satu grafik. Berikut contoh distribusi gaji berdasarkan jabatan dengan plot densitas kernel.

ggplot(Salaries, 
       aes(x = salary, 
           fill = rank)) +
  geom_density(alpha = 0.4) +
  theme_minimal() +
  labs(title = "Distribusi Gaji Berdasarkan Jabatan",
       x = "Gaji",
       y = "")

Opsi alpha membuat plot/grafik menjadi sebagian transparan sehingga dapat dilihat dengan jelas bagian yang tumpang tindih. Pada grafik tersebut dijelaskan bahwa, secara umum grafik akan meningkat sesuai dengan jabatan. Namun, kisaran gaji full profesor sangat luas.

Boxplot

Boxplot mempilkan presentil ke-25, median, dan presentil ke-75 dari distribusi. Garis vertikal menangkap sekitar 99% dari distribusi normal, dan pengamatan di luar kisaran ini diplot sebagai titik yang mewakili outlier (Perhatikan gambar di bawah).

plot kotak sangat berguna untuk membandingkan suatu kelompok (tingkatan variabel kategori) pada variabel numerik. Plot kotak bertakik memberikan metode perkiraan untuk visualisasi apakah kelompok berbeda. Meskipun bukan sebuah tes formal, jika takik dari kedua plot kotak tidak tumpang tindih, maka ada bukti kuat (kepercayaan 95%) bahwa median dari kedua kelompok berbeda.

ggplot(Salaries, aes(x = rank, 
                     y = salary)) +
  geom_boxplot(notch = TRUE, 
               fill = c("lightgreen", "cyan", "red"), 
               alpha = .7) +
  theme_minimal() +
  labs(title = "Distribusi Gaji Berdasarkan Jabatan",
       x = "Jabatan",
       y = "Gaji")

Pada contoh di atas, 3 kelompok muncul pada posisi yang berbeda. Salah satu keuntungan dari boxpolt adalah lebar bentuk yang tidak biasanya memiliki arti. Hal ini dapat membandingkan distribusi dari banyak kelompok pada satu grafik. Jika dilihat pada boxplot bagian profesor memiliki ukuran yang cukup lebar, hal tersebut menujukan kemungkinan terdapat outlier di dalamnya.

Violin Plot

Violin plot mirip dengan plot densitas kernel tetapi pada violin plot, grafik dicerminkan dan diputar \(90^∘\). Berikut visualisasi violin plot dari distribusi gaji berdasarkan jabatan.

ggplot(Salaries, aes(x = rank,
                     y = salary)) +
  geom_violin(fill = "azure1") +
  geom_boxplot(width = .2, 
               fill = c("#F4A582", "#FDDBC7", "#D1E5F0"),
               outlier.color = "skyblue",
               outlier.size = 2) + 
  theme_minimal() +
  labs(title = "Distribusi Gaji Berdasarkan Jabatan")

Ridgeline Plot

Plot ini juga dikenal dengan joy plot yang manampilkan distribusi variabel kuantitatif untuk beberapa kelompok. Ridgeline mirip dengan polt densitas kernel dari segi faceting vertikal tetapi memakai lebih sedikit ruang. Untuk membuat ridgeline perlu untuk menginstall package ggridges. Berikut contoh ridgeline plot dengan menggunakan dataset fuel economy. Plot mil perjalanan kota pergalon dengan kelas mobil.

library(dplyr)                                       # Untuk manipulasi data
library(ggplot2)                                     # Untuk visualisasi
library(ggridges)                         # untuk menangani visualisasi yang bersamaan
ggplot(mpg, 
       aes(x = cty, 
           y = class, 
           fill = class)) +
  geom_density_ridges(alpha = 0.7) + 
  theme_ridges() +
  labs("Jarak Berkemudi dengan Kelas Otomatis") +
  theme(legend.position = "none")

Perhatikan kemungkinan tumpang tindih distribusi adalah lebih kepada grafik mobil compact. UNtuk mengubah transparansi grafik dapat menggunakan kod `geom_density_ridges (alpha=n), n berkisar 0-1.

Line Plot

Metode populer untuk membandingkan kelompok pada variabel numerik adalah plot rata-rata dengan error bar. Error bar dapat mewakilkan standar devasi, standar error dari mean, atau interval kepercayaan. Contoh pada bagian ini yaitu, memplot mean dan standar error. Dapat digunakan teknik yang sama untuk membandingkan gaji berdasarkan jabatan dan jenis kelamin.

library(dplyr)                                       # Untuk manipulasi data
library(ggplot2)                                     # Untuk visualisasi
library(ggridges)                         # untuk menangani visualisasi yang bersamaan
# Menghitung mean, standar deviasi, standar error, dan 95% interval kepercayaan berdasarkn jabatan
plotdata <- Salaries %>%
  group_by(rank, sex) %>%
  dplyr::summarize(n = n(),
            mean = mean(salary),
            sd = sd(salary),
            se = sd/sqrt(n),
            ci = qt(0.975, df = n - 1) * sd / sqrt(n))
# plot mean/standar error yang diperbarui
pd <- position_dodge(0.2)
ggplot(plotdata, 
       aes(x = factor(rank, 
                      labels = c("Assistant\nProfessor",
                                 "Associate\nProfessor",
                                 "Full\nProfessor")), 
           y = mean, 
           group=sex, 
           color=sex)) +
  geom_point(position=pd, 
             size = 3) +
  geom_line(position = pd, 
            size = 1) +
  geom_errorbar(aes(ymin = mean - se, 
                    ymax = mean + se), 
                width = .1, 
                position = pd, 
                size = 1) +
  scale_y_continuous(label = scales::dollar) +
  scale_color_brewer(palette="Set1") +
  theme_minimal() +
  labs(title = "Rata-rata Gaji Berdasarkan Jabatan dan Jenis Kelamin",
       subtitle = "(mean +/- standar error)",
       x = "", 
       y = "",
       color = "Jenis Kelamin")

Jitter Plot

Hubungan antara variabel kategorikal dan variabel numerik dapat ditampilkan dengan plot sebaran(scatterplot). Contoh, plot distribusi gaji berdasarkan jabatan dengan menggunakan jitter plot yaitu scatterplot satu dimensi. Sayangnya, pencetakan titik yang berlebihan membuat interpretasinya menjadi sulit. HUbungannya menjadi lebih mudah dilihat jika titik-titiknya goyah. Pada dasarnya, bilangan kecil acak ditambahkan ke setiap koordinat y. akan lebih mudah untuk membandingkan dengan menambahkan/menerapkan warna.

library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
ggplot(Salaries, 
       aes(y = factor(rank,
                      labels = c("Assistant\nProfessor",
                                 "Associate\nProfessor",
                                 "Full\nProfessor")), 
           x = salary, 
           color = rank)) +
  geom_jitter(alpha = 0.7,
              size = 1.5) + 
  scale_x_continuous(label = dollar) +
  labs(title = "Gaji Akademik Berdasarkan Jabatan", 
       subtitle = "Gaji 9 bulan untuk 2008-2009",
       x = "Gaji",
       y = "Jabatan") +
  theme_minimal() +
  theme(legend.position = "none")

Opsi (legend.position = "none") digunakan untuk menyembunyikan legend ( hal yang tidak diperlukan. Jitter plot berkerja dengan baik jika jumlah dari titik-titik tidak terlalu besar).

Menggabungkan Jitter Plot dan Boxplot

Mungkin akan lebih mudah memvisualisasikan distribusi jika kita menambahkan boxplot ke jitter plot. Beberapa opsi telah ditambahkan untuk membuat jitter plot.

  • Untuk boxplot:

size = 1 : untuk ketebalan garis

outlier.color = "black" : membuat outlier berwarna hitam

outlier.shape = 2 : Bentuk outlier

outlier.size = 3 : menambah ukuran outlier

  • Untuk jitter plot:

alpha = 0.5 : untuk kejelasan titik (transparan atau tidak)

width = .2 : menurunkan nilai jitter (.4 adalah nilai jitter default)

Terakhir, sumbu x dan y kita putar posisi menggunakan fungsi coord_flip

ggplot(Salaries, 
       aes(x = factor(rank,
                      labels = c("Assistant\nProfessor",
                                 "Associate\nProfessor",
                                 "Full\nProfessor")), 
           y = salary, 
           color = rank)) +
  geom_boxplot(size=1,
               outlier.shape = 2,
               outlier.color = "black",
               outlier.size  = 3) +
  geom_jitter(alpha = 0.5, 
              width=.2) + 
  scale_y_continuous(label = dollar) +
  labs(title = "Gaji Akademik Berdasarkan Jabtan", 
       subtitle = "Gaji 9 bulan untuk 2008-2009",
       x = "",
       y = "") +
  theme_minimal() +
  theme(legend.position = "none") +
  coord_flip()

Perhatikan fungsi geom_boxjitter yang tersedia dalam pacakage ggpol. Fungsi tersebut dapat membuat boxplot hibrida, boxplot setengah, dan scatterplot setengah.

library(ggpol)                                       # boxplot hibrid
ggplot(Salaries, 
       aes(x = factor(rank,
                      labels = c("Assistant\nProfessor",
                                 "Associate\nProfessor",
                                 "Full\nProfessor")), 
           y = salary, 
           fill=rank)) +
  geom_boxjitter(color="black",
                 jitter.color = "#9966FF",
                 errorbar.draw = TRUE) +
  scale_y_continuous(label = dollar) +
  labs(title = "Gaji Akademik Berdasarkan Jabatan", 
       subtitle = "Gaji 9 bulan untuk 2008-2009",
       x = "",
       y = "") +
  theme_minimal() +
  theme(legend.position = "none")

Beeswarm Plot (Plot Kawanan Lebah)

Plot ini juga disebut dengan violin plot dan mirip dengan jitter plot, di mana plot tersebut menampilkan distribusi dari variabel kuantitatif dengan memplot titik-titik dengan cara mengurangi tumpang tindih. Selain itu, membantu menampilkan densitas dari data di tiap titk dengan cara yang mirip dengan violin plot. Terlebih dahulu install package ggbeeswarm.

library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # menentukan jeda atau label secara otomatis
library(ggbeeswarm)                                  # package yang diperlukan untuk plot ini
ggplot(Salaries, 
       aes(x = factor(rank,
                      labels = c("Assistant\nProfessor",
                                 "Associate\nProfessor",
                                 "Full\nProfessor")), 
           y = salary, 
           color = rank)) +
  geom_quasirandom(alpha = 0.7,
                   size = 1.5) + 
  scale_y_continuous(label = dollar) +
  labs(title = "Gaji Akademik Berdasarkan Jabatan", 
       subtitle = "Gaji 9 bulan untuk 2008-2009",
       x = "Jabatan",
       y = "Gaji") +
  theme_minimal() +
  theme(legend.position = "none")

Beeswarm Plot dibuat dengan fungsi geom_quasirandom. Beeswarm plot lebih mudah dipahami daripada jitter plot sederhana.

DIagram Titik Cleveland

DIagram ini berguna untuk membandingkan statistik numerik dalam kelompok besar. Misal membandingkan angka harapan hidup pada tahun 2007 di negara Asia dengan menggunakan data set gapminder. Instal package gapminder terlebih dahulu.

library(dplyr)                                       # Untuk manipulasi data
library(ggplot2)                                     # Untuk visualisasi
library(scales)                                      # Menentukan jeda atau label secara otomatis
library(ggbeeswarm)                                  # Mengurangi tumpang tindih pada grafik
library(gapminder)                                   # Untuk dataset `gapminder`
data(gapminder, package="gapminder")                 # memuat dataset `gapminder` 
# subset negara-negara di Asia 2007
plotdata <- gapminder %>%
  filter(continent == "Asia" & 
         year == 2007)
# Cleveland plot
ggplot(plotdata, 
       aes(x=lifeExp, 
           y=reorder(country, lifeExp))) +
  geom_point(color="darkorchid4", 
             size = 2) +
  geom_segment(aes(x = 40, 
               xend = lifeExp, 
               y = reorder(country, lifeExp), 
               yend = reorder(country, lifeExp)),
               color = "#9966ff") +
  labs (x = "Harapan Hidup (tahun)",
        y = "",
        title = "Harapan Hidup Berdasarkan Negara",
        subtitle = "GapMinder data for Asia - 2007") +
  theme_minimal() + 
  theme(panel.grid.major = element_blank(),
        panel.grid.minor = element_blank())

Berdasarkan grafik di atas, Jepang memiliki angka harapan hidup yang paling tinggi, sedangkan Afghanistan memiliki angka harapan hidup paling rendah.

Data Multivariant

Grafik multivariant menampilkan hubungan antara tiga variabel atau lebih. Terdapat dua metode umum untuk menampung variabel, yaitu pengelompokan dan faceting.

Pengelompokan

Pada metode ini, nilai dua variabel pertama dipetakkan pada sumbu x dan y kemudian variabel tambahan dipetakkan pada karakteristik visual lainnya, seperti warna, bentuk, ukuran, garis, dan transparansi. Pengelompokan memungkinkan untuk memplot data beberapa grup dalam satu grafik. Dengan menggunakan data set Salaries, berikut hubungan antara yrs.since.phd dan salary.

library(carData)                                     # untuk dataset
data(Salaries, package="carData")
ggplot(Salaries, aes(x = yrs.since.phd, 
                     y = salary, 
                     color=rank)) +
  geom_point() +
  theme_minimal() +
  labs(title = "Gaji Akademik Berdasarkan Pangkat dan Tahun Sejak Gelar",
       y = "Gaji",
       color = "Jabatan")

Kemudian, tambahkan jenis kelamin dengan menggunakan bentuk titik. Tingkatkan ukuran titik dan tambahkan tingkat transparansi untuk memperjelas grafik.

ggplot(Salaries, 
       aes(x = yrs.since.phd, 
           y = salary, 
           color = rank, 
           shape = sex)) +
  geom_point(size = 3, alpha = .6) +
  theme_minimal() +
  labs(title = "Gaji Akademik Berdasarkan Jabatan, Jenis Kelamin, dan Tahun Sejak Gelar",
       y = "Gaji",
       color = "Jabatan",
       shape = "Jenis Kelamin")

Grafik di atas tampak sangat ribet dan mungkin sulit untuk membedakan jenis kelamin. Faceting mungkin menjadi solusi yang lebih baik.

Perhatikan perbedaan antara menetapkan nilai konstan (seperti size = 3) dan pemetaan variabel ke karakteristik visual (misalnya, color = rank). Pemetaan selalu ditempatkan di dalam fungsi aes, sedangkan penetapan nilai konstanta selalu muncul di luar fungsi aes.

Berikut ini merupakan contoh yang lebih jelas. Contoh grafik yang menggambarkan hubungan antara Tahun sejak Ph.D. dan gaji dimana ukuran setiap titik bergantung dengan lamanya masa kerja. Ini disebut dengan bubble plot.

library(carData)                                     # untuk dataset
library(ggplot2)                                     # Untuk visualisasi
ggplot(Salaries, 
       aes(x = yrs.since.phd, 
           y = salary, 
           color = rank, 
           size = yrs.service)) +
  geom_point(alpha = .8) +
  theme_minimal() +
  labs(title = "Gaji Akademik Berdasarkan Jabatan, Tahun Pelayanan, Tahun Sejak Gelar",
       y = "Gaji",
       color = "Jabatan",
       size = "Tahun Pelayanan")

Sangat jelas bahwa ada hubungan positif yang kuat antara tahun-tahun sejak Ph.D dan tahun layanan. tidak ditemukan batasan waktu yang sama antara Associate dan Full Professor. Bubble plot akan dijelaskan lebih detail di bab selanjutnya.

Sebagai contoh terakhir, gunakan variabel yrs.since.phd vs salary dan tambahkan jenis kelamin menggunakan warna dan quadratic best fit lines.

ggplot(Salaries, 
       aes(x = yrs.since.phd, 
           y = salary, 
           color = sex)) +
  geom_point(alpha = .4, 
             size = 3) +
  geom_smooth(se=FALSE, 
              method = "lm", 
              formula = y~poly(x,2), 
              size = 1.5) +
  labs(x = "Tahun Sejak Ph.D.",
       title = "Gaji Akademik Berdasarkan Jenis Kelamin dan Tahun Pengalaman",
       subtitle = " Gaji 9 bulan untuk 2008-2009",
       y = "",
       color = "Jenis Kelamin") +
  scale_y_continuous(label = scales::dollar) +
  scale_color_brewer(palette = "Set2") +
  theme_minimal()

## Faceting

Pengelompokan memungkinkan untuk membuat beberapa variabel dalam satu grafik, menggunakan karakteristik visual seperti warna, bentuk, dan ukuran. Dalam faceting, grafik terdiri dari beberapa plot terpisah atau kelipatan kecil, satu untuk setiap tingkat variabel ketiga atau kombinasi variabel. Berikut contoh faceting.

ggplot(Salaries, aes(x = salary)) +
  geom_histogram(fill = "#caef66",
                 color = "black") +
  facet_wrap(~rank, ncol = 1) +
  theme_minimal() +
  labs(title = "Gaji Berdasarkan Jabatan",
       x = "Gaji",
       y = "")

Fungsi facet_wrap membuat grafik menjadi terpisah untuk tiap jabatan. Opsi ncol berfungsi untuk mengatur jumlah kolom. Contoh berikutnya menggunakan 2 variabel untuk mendefinisikan faset. Fungsi menetapkan jenis kelamin ke baris dan jabatan ke kolom, membuat matriks 6 plot dalam satu grafik.

ggplot(Salaries, aes(x = salary / 1000)) +
  geom_histogram(color = "black",
                 fill = "#ff96ae") +
  facet_grid(sex ~ rank) +
  theme_minimal() +
  labs(title = "Diagram dari Gaji Berdasarkan Jenis Kelamin dan Jabatan",
       x = "Gaji ($1000)",
       y = "")

Juga dapat dibuat kombinasi pengelompokan dan faceting. Gunakan plot mean/SE dan faceting untuk membandingkan gaji profesor wanita dengan pria, dalam pangkat dan kedisiplinan. Terapkan warna untuk membedakan jenis kelamin dan faceting untuk membuat plot jabatan berdasarkan kombinasi kedisiplinan.

# Menghitung mean and standar error jenis kelamin, jabatan, and kedisiplinan
plotdata <- Salaries %>%
  group_by(sex, rank, discipline) %>%
  dplyr::summarize(n = n(),
            mean = mean(salary),
            sd = sd(salary),
            se = sd / sqrt(n))
# Menambahkan label pada kedisiplinan
plotdata$discipline <- factor(plotdata$discipline,
                              labels = c("Theoretical",
                                         "Applied"))
# membuat plot
ggplot(plotdata, 
       aes(x = sex, 
           y = mean,
           color = sex)) +
  geom_point(size = 3) +
  geom_errorbar(aes(ymin = mean - se, 
                    ymax = mean + se),
                width = .1) +
  scale_y_continuous(breaks = seq(70000, 140000, 10000),
                     label = scales::dollar) +
  facet_grid(. ~ rank + discipline) +
  theme_bw() +
  theme(legend.position = "none",
        panel.grid.major.x = element_blank(),
        panel.grid.minor.y = element_blank()) +
  labs(x="", 
       y="", 
       title="Gaji Akademik 9 Bulan Berdasarkan Jenis Kelamin,Kedisiplinan, dan Jabatan",
       subtitle = "(Means and standar error)") +
  scale_color_brewer(palette="Set3")

Pernyatan facet_grid(. ~ rank + discipline)tidak menentukan variabel baris (.) dan kolom ditentukan oleh kombinasi jabatan dan kedisiplinan.

Fungsi theme() membuat tema hitam putih dan mengeliminasi garis kotak-kotak. Fungsi scale_color_brewer() mengubah skema warna setiap titik dan error bars.

Awalnya, tampaknya ada perbedaan jenis kelamin dalam gaji untuk associate dan full profesor di bidang teoretis. Saya mengatakan “mungkin” karena kita belum melakukan pengujian hipotesis formal (ANOVA dalam kasus ini).

Sebagai contoh terakhir, berikut contoh memplot data perubahan angka harapan hidup dari wkatu ke waktu di ngera Asia. Setiap negara muncul dalam facetnya sendiri. Fungsi theme dipakai untuk menyederhanakan warna latar belakang, memutar teks sumbu x, dan memperkecil ukuran tulisan.

#Memplot angka harapan hidup berdasarkan tahun secara terpisah, untuk tiap negara di Asia
data(gapminder, package = "gapminder")

# Pilih Data Asia
plotdata <- dplyr::filter(gapminder, 
                          continent == "Asia")

# buat plot harapan hidup tiap tahun, untuk setiap negara
ggplot(plotdata, aes(x=year, y = lifeExp)) +
  geom_line(color="#ceadfe") +
  geom_point(color="#efdcaa") +
  facet_wrap(~country) + 
  theme_minimal(base_size = 9) +
  theme(axis.text.x = element_text(angle = 45, 
                                   hjust = 1)) +
  labs(title = "Perubahan dalam Harapan Hidup",
       x = "Tahun",
       y = "Harapan Hidup")

LS0tDQp0aXRsZTogIkFsZ29yaXRtYSAmIFN0cnVrdHVyIERhdGEiDQpzdWJ0aXRsZTogIn4gVmlzdWFsaXNhc2kgRGF0YSBkZW5nYW4gUiB+Ig0KYXV0aG9yOiAiS2VudCBKdWFuIE5hdGFuaWVsIFlhb2lzb2toaSBaZW5kcmF0byAoMjAyMTQ1MjAwMDQpIg0KZGF0ZTogICJgciBmb3JtYXQoU3lzLkRhdGUoKSwgJyVCICVkLCAlWScpYCINCm91dHB1dDoNCiAgcm1kZm9ybWF0czo6cm9ib2Jvb2s6ICAgIyBodHRwczovL2dpdGh1Yi5jb20vanViYS9ybWRmb3JtYXRzDQogICAgc2VsZl9jb250YWluZWQ6IHRydWUNCiAgICB0aHVtYm5haWxzOiB0cnVlDQogICAgbGlnaHRib3g6IHRydWUNCiAgICBnYWxsZXJ5OiB0cnVlDQogICAgbGliX2RpcjogbGlicw0KICAgIGRmX3ByaW50OiAicGFnZWQiDQogICAgY29kZV9mb2xkaW5nOiAic2hvdyINCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMNCiAgICBjc3M6ICJzdHlsZS5jc3MiDQotLS0NCg0KYGBge3IgaW5jbHVkZT1GQUxTRX0NCmtuaXRyOjpvcHRzX2NodW5rJHNldChjbGFzcy5zb3VyY2UgPSAibm9jb3B5IiwNCiAgICAgICAgICAgICAgICAgICAgICBjbGFzcy5vdXRwdXQgPSAibm9jb3B5IiwNCiAgICAgICAgICAgICAgICAgICAgICBtZXNzYWdlID0gRiwNCiAgICAgICAgICAgICAgICAgICAgICB3YXJuaW5nID0gRikNCg0KbGlicmFyeShyZXRpY3VsYXRlKQ0KbGlicmFyeShSY3BwKQ0KDQpgYGANCg0KPGJyPg0KDQo8aW1nIHNyYz0iRm90by5wbmciIHN0eWxlPSJmbG9hdDogcmlnaHQ7IG1hcmdpbjogLTgwcHggNTBweCAwcHggNTBweDsgd2lkdGg6MjUlIi8+DQoNCnwgICAgICAgICAgICB8ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB8DQp8Oi0tLS0tLS0tLS0tfDotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tfA0KfCAqKktvbnRhayoqIHwgKio6KiogJFxkb3duYXJyb3ckICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHwNCnwgRW1haWwgICAgICB8IFtrZW50LnplbmRyYXRvXEBzdHVkZW50Lm1hdGFuYXVuaXZlcnNpdHkuYWMuaWRdKG1haWx0bzprZW50LnplbmRyYXRvQHN0dWRlbnQubWF0YW5hdW5pdmVyc2l0eS5hYy5pZCl7LmVtYWlsfSB8DQp8IFJQdWJzICAgICAgfCA8aHR0cHM6Ly9ycHVicy5jb20va2VudHplbmQwMy8+ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgfA0KDQotLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0tLS0NCg0KVmlzdWFsaXNhc2kgZGF0YSBhZGFsYWggY2FyYSBtZW5nYW1iaWwgc3VhdHUgaW5mb3JtYXNpIGRhcmkgc3VhdHUgZGF0YSBkYWxhbSBiZW50dWsgdmlzdWFsLCBzZXBlcnRpIGJhZ2FuLCBncmFmaWssIGRhbiBwZXRhLiBWaXN1YWxpc2FzaSBkYXRhIGRhcGF0IG1lbXBlcm11ZGFoIHN1YXR1IGRhdGEgbXVkYWggZGltZW5nZXJ0aSBvbGVoIG90YWsgbWFudXNpYSwgZGFuIHZpc3VhbGlzYXNpIGp1Z2EgbWVtYnVhdG55YSBsZWJpaCBhbmRhbCB1bnR1ayBtZW5kZXRla3NpIHBvbGEsIHRyZW4sIGRhbiBvdXRsaWVyIGRhbGFtIGtlbG9tcG9rIGRhdGEuDQoNCiMgVW5pdmFyaWF0IChTYXR1IFZhcmlhYmVsKQ0KDQpWaXN1YWxpc2FzaSBkYXRhIHVuaXZhcmlhdCBiaWFzYW55YSBkaWd1bmFrYW4gdW50dWsgbWVsYWt1a2FuIGRpc3RyaWJ1c2kgZGF0YSBkYXJpIHNhdHUgdmFyaWFiZWwuIERhbGFtIGhhbCBpbmksIHZhcmlhYmVsIHlhbmcgZGltYWtzdWQgdGVyYmFnaSBqYWRpIGR1YSBiYWdpYW46DQoNCuKAoiAqKkthdGVnb3JpcywqKiBzZXBlcnRpIGplbmlzIGtlbGFtaW4sIHJhcywgbmVnYXJhLCBrb3RhIGRsbC4NCg0K4oCiICoqTnVtZXJpaywqKiBzZXBlcnRpIHVzaWEsIGJlcmF0IGJhZGFuLCBpbmZsYXNpLCBzdWt1IGJ1bmdhLCBkbGwuDQoNCiMjIFZhcmlhYmVsIEthdGVnb3JpDQoNCkRpc3RyaWJ1c2kgZGFsYW0gc3VhdHUgdmFyaWFiZWwga2F0ZWdvcmkgdHVuZ2dhbCBiaWFzYW55YSBkYWxhbSBiZW50dWsgZGlhZ3JhbSBiYXRhbmcsIGRpYWdyYW0gbGluZ2thcmFuLCBhdGF1IGRpYWdyYW0gcG9ob24gKFlhbmcgc2F0dSBpbmkgamFyYW5nIHNla2FsaSBkaWd1bmFrYW4pDQoNCiMjIyBEaWFncmFtIEJhdGFuZw0KDQpCZXJpa3V0IGFkYWxhaCBjb250b2ggbWVudW5qdWtrYW4gZnJla3VlbnNpIGRhcmkgZGF0YXNldCBgTWFycmlhZ2VgLCB5YW5nIGRpZGFwYXQgZGVuZ2FuIG1lbmdndW5ha2FuIHBhY2thZ2UgYG1vc2FpY0RhdGFgLiBHdW5ha2FuIGRpYWdyYW0gYmF0YW5nIHVudHVrIG1lbmFtcGlsa2FuIGRpc3RyaWJ1c2kgcGVybmlrYWhhbiBiZXJkYXNhcmthbiBgWm9kaWFrYA0KDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICNQYWNrYWdlIHVudHVrIHZpc3VhbGlzYXNpDQpzZXR3ZCgiRDovRmlzaWthIE1lZGlzL0FsZ29yaXRtYSBkYW4gU3RydWt0dXIgRGF0YS9QZXJ0ZW11YW4gMTMiKSAgI01lbmdhdHVyIFdvcmtpbmcgRGlyZWN0b3J5DQpNYXJyaWFnZTwtIHJlYWQuY3N2KCJodHRwczovL3Jhdy5naXRodWJ1c2VyY29udGVudC5jb20vQmFrdGktU2lyZWdhci9kYXRhc2V0L21hc3Rlci9Cb29rZG93bi1EYXRhLVNjaWVuY2UtZm9yLUJlZ2lubmVycy9NYXJyaWFnZS5jc3YiKSAgICNNZW5naW1wb3IgRGF0YSBkYXJpIHdlYg0KZ2dwbG90KE1hcnJpYWdlLCBhZXMoeCA9IHpvZGlhY3MpKSArICAgICNNZW1wbG90IGRpc3RyaWJ1c2kgZGFyaSBab2RpYWNzDQogIGdlb21fYmFyKGZpbGwgPSAiI0MwQzBDMCIsICAgICAjIE1lbmVyYXBrYW4gd2FybmENCiAgICAgICAgICAgY29sb3IgPSAiIzAwMDAwMCIpICsNCiAgdGhlbWVfbWluaW1hbCgpICsgICAjTWVuZXJhcGthbiB0ZW1hDQogIGxhYnMoeCA9ICJab2RpYWNzIiwgICAgI01lbmdnYW50aSBsYWJlbCBkYW4ganVkdWwNCiAgICAgICB5ID0gIkZyZXF1ZW5jeSIsDQogICAgICAgdGl0bGUgPSAiTWFycmlhZ2UgUGFydGljaXBhbnRzIGJ5IFpvZGlhY3MiKQ0KYGBgDQoNCkJhdGFuZ2FuIGRpIGF0YXMgbWVudW5qdWtrYW4gcGVyc2VudGFzZSBkYXJpIGp1bWxhaC4gRGFyaSBkaWFncmFtIGRpIGF0YXMsIGtvZGUgKipgYWVzKHgtc2lnbilgKiogbWVydXBha2FuIHBpbnRhc2FuIHVudHVrICoqYGFlcyh4ID0gc2lnbiwgeSA9IC4uY291bnQuLilgKiosIGRpbWFuYSAuLi5jb3VudC4uLiBhZGFsYWggdmFyaWFiZWwga2h1c3VzIHlhbmcgbWVuZ2dhbWJhcmthbiBmcmVrdWVuc2kgdGlhcCBrYXRlZ29yaS4gSW5pIGp1Z2EgZGFwYXQgbWVuZ2hpdHVuZyBwZXJzZW50YXNlLCBkZW5nYW4gbWVuZW50dWthbiB2YXJpYWJlbCB5IHNlY2FyYSBla3NwbGlzaXQuDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIG1lbXZpc3VhbGlzYXNpa2FuDQpnZ3Bsb3QoTWFycmlhZ2UsIA0KICAgYWVzKHggPSB6b2RpYWNzLCANCiAgICAgICB5ID0gLi5jb3VudC4uIC8gc3VtKC4uY291bnQuLikpKSArIA0KICBnZW9tX2JhcihmaWxsID0gcmFpbmJvdygxMiksIGNvbG9yPSAiYXF1YW1hcmluZTMiKSArICAgICAjIE1lbmVyYXBrYW4gd2FybmENCiAgdGhlbWVfbWluaW1hbCgpICsgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBtZW5lcmFwa2FuIHRlbWEgbWluaW1hbGlzDQogICMgTWVuZ2dhbnRpIGxlYmVsIGRhbiBqdWR1bA0KICBsYWJzKHggPSAiWm9kaWFrIiwgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCiAgICAgICB5ID0gIlBlcnNlbiIsIA0KICB0aXRsZSAgPSAiUGVzZXJ0YSBQZXJuaWthaGFuIGRhbGFtIFBlcnNlbiIpICsNCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IHNjYWxlczo6cGVyY2VudCkgICAgICAgIyBNZW5hbWJhaCBzaW1ib2wgcGVyc2VuICglKQ0KYGBgDQoNCioqQ2F0YXRhbjoqKiBEYWxhbSBSLCB3YXJuYSBkaXRlbnR1a2FuIGRlbmdhbiBuYW1hIChtaXNhbCBgY29sID0gIkxpZ2h0IEJsdWUiYCkgYXRhdSBkZW5nYW4gdHJpcGxldCBSR0IgaGVrc2FkZXNpbWFsIChzZXBlcnRpIGBjb2wgPSAiIzAwMDBGRiJgKS4gQW5kYSBqdWdhIGRhcGF0IG1lbmdndW5ha2FuIHNpc3RlbSB3YXJuYSBsYWluIHNlcGVydGkgc2FsYWggc2F0dW55YSBkaWFtYmlsIGRhcmkgcGFja2FnZSBgUkNvbG9yQnJld2VyYA0KDQpNZW5ndXJ1dGthbiBiYXRhbmcgYmVyZGFzYXJrYW4gZnJla3VlbnNpIHNhbmdhdCBtZW1iYW50dS4gS29kZSBkaSBiYXdhaCBpbmkgbWVuZ2hpdHVuZyBmcmVrdWVuc2kgc2VjYXJhIGVrc3BsaXNpdC4gS2VtdWRpYW4gZnVuZ3NpIGAqKlJlb3JkZXIqKmAgIGRpZ3VuYWthbiB1bnR1ayBtZW5ndXJ1dGthbiBrYXRlZ29yaSBiZXJkYXNhcmthbiBmcmVrdWVuc2lueWEuIE9wc2kgYCoqc3RhdD0iaWRlbnRpdHkiKipgIG1lbWJlcml0YWh1IGZ1bmdzaSBwbG90IHVudHVrIHRpZGFrIG1lbmdoaXR1bmcganVtbGFoLCBrYXJlbmEgbWVyZWthIGRpYmVyaWthbiBzZWNhcmEgbGFuZ3N1bmcuDQoNCmBgYHtyfQ0KbGlicmFyeShkcGx5cikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIG1hbmlwdWxhc2kgZGF0YQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpwbG90ZGF0YSA8LSBNYXJyaWFnZSAlPiUgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgTWVtdWF0IGRhdGFzZXQNCiBjb3VudCh6b2RpYWNzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBtZW5naGl0dW5nIGp1bG1haCBwZXNlcnRhIHNldGlhcCBgem9kaWFrYA0KIyBnYW1iYXIgZGlhZ3JhbSBiYXRhbmcgZGVuZ2FuIHVydXRhbiBtZW5pbmdrYXQNCmdncGxvdChwbG90ZGF0YSwgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogICAgICAgYWVzKHggPSByZW9yZGVyKHpvZGlhY3MsIG4pLCANCiAgICAgICAgICAgeSA9IG4pKSArIA0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwNCiAgICAgICAgICAgZmlsbCA9IHJhaW5ib3coMTIpLCANCiAgICAgICAgICAgY29sb3I9ICIjRkZGRkNDIikgKw0KICAgdGhlbWVfbWluaW1hbCgpICsgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBNZW5lcmFwa2FuIHRlbWEgbWluaW1hbGlzDQogIGxhYnMoeCA9ICJab2RpYWsiLCANCiAgICAgICB5ID0gIkZyZWt1ZW5zaSIsIA0KICB0aXRsZSAgPSAiU29ydGluZyBDYXRlZ29yaWVzIikNCmBgYA0KDQpVbnR1ayBtZW1iZXJpIGxhYmVsIG51bWVyaWsgZGkgc2V0aWFwIGJhdGFuZywgZ3VuYWthbiBrb2RlIGJlcmlrdXQ6DQoNCmBgYHtyfQ0KbGlicmFyeShkcGx5cikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIG1hbmlwdWxhc2kgZGF0YQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpsaWJyYXJ5KHNjYWxlcykgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgbWVuZW50dWthbiBqZWRhIGF0YXUgbGFiZWwgc2VjYXJhIG90b21hdGlzDQpwbG90ZGF0YSA8LSBNYXJyaWFnZSAlPiUNCiAgY291bnQoem9kaWFjcykgJT4lDQogIG11dGF0ZShwY3QgPSBuIC8gc3VtKG4pLA0KICAgICAgICAgcGN0bGFiZWwgPSBwYXN0ZTAocm91bmQocGN0KjEwMCksICIlIikpDQojIERpYWdyYW0gYmF0YW5nIGRlbmdhbiBtZW5hbXBpbGthbiBwZXJzZW50YXNlIGRhbiBkaXVydXRrYW4gc2VjYXJhIG1lbnVydW4NCmdncGxvdChwbG90ZGF0YSwgDQogICAgICAgYWVzKHggPSByZW9yZGVyKHpvZGlhY3MsIC1wY3QpLA0KICAgICAgICAgICB5ID0gcGN0KSkgKyANCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIA0KICAgICAgICAgICBmaWxsID0gcmFpbmJvdygxMiksIA0KICAgICAgICAgIGNvbG9yID0gImF6dXJlNCIpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHBjdGxhYmVsKSwgDQogICAgICAgICAgICB2anVzdCA9IC0wLjI1KSArDQogIHRoZW1lX21pbmltYWwoKSArICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgTWVuZXJhcGthbiB0ZW1hIG1pbmltYWwNCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IHBlcmNlbnQpICsNCiAgbGFicyh4ID0gIlpvZGlhayIsIA0KICAgICAgIHkgPSAiUGVyc2VuIiwgDQogICAgICAgdGl0bGUgID0gIlBlcnNlbnRhc2UgWm9kaWFrIFBlc2VydGEgUGVybmlrYWhhbiIpDQpgYGANCg0KVGVya2FkYW5nLCBsYWJlbCBrYXRlZ29yaSB0dW1wYW5nIHRpbmRpaCwgc29sdXNpbnlhIGFkYWxhaCBtZW11dGFyIGxhYmVsIHN1bWJ1IGRlbmdhbiBrb2RlIGJlcmlrdXQ6DQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpsaWJyYXJ5KHNjYWxlcykgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgbWVuZW50dWthbiBqZWRhIGF0YXUgbGFiZWwgc2VjYXJhIG90b21hdGlzDQojIERpYWdyYW0gYmF0YW5nIGRlbmdhbiBtZW5hbXBpbGthbiBwZXJzZW50YXNlIGRhbiBkaXVydXRrYW4gc2VjYXJhIG1lbnVydW4NCmdncGxvdChwbG90ZGF0YSwgDQogICAgICAgYWVzKHggPSByZW9yZGVyKHpvZGlhY3MsIC1wY3QpLA0KICAgICAgICAgICB5ID0gcGN0KSkgKyANCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIA0KICAgICAgICAgICBmaWxsID0gIiMwMEZGMDAiLCANCiAgICAgICAgICAgY29sb3IgPSAiI0ZGMDAwMCIpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHBjdGxhYmVsKSwgDQogICAgICAgICAgICB2anVzdCA9IC0wLjI1KSArDQogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHMgPSBwZXJjZW50KSArDQogIHRoZW1lX21pbmltYWwoKSArICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogIGxhYnMoeCA9ICJab2RpYWsiLCANCiAgICAgICB5ID0gIlBlcnNlbiIsIA0KICAgICAgIHRpdGxlICA9ICJQZXJzZW50YXNlIFpvZGlhayBQZXNlcnRhIFBlcm5pa2FoYW4iKSsNCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA1MCwgaGp1c3QgPSAxKSkgICAgIyBtZW5nYXR1ciBkZXJhamF0IGxhYmVsIGthdGVnb3JpIHZhcmlhYmVsIHgNCmBgYA0KDQpDYXJhIGxhaW4gYWRhbGFoIGRlbmdhbiBtZW5hbmdhbmkgc2l0dWFzaSBpbmkgZGVuZ2FuIG1lbWJhbGlrIHN1bWJ1IHggZGFuIHkNCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmxpYnJhcnkoc2NhbGVzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBtZW5lbnR1a2FuIGplZGEgYXRhdSBsYWJlbCBzZWNhcmEgb3RvbWF0aXMNCiMgRGlhZ3JhbSBiYXRhbmcgUGVyc2VudGFzZSBab2RpYWsgUGVzZXJ0YSBQZXJuaWthaGFuIGRlbmdhbiBtZW11dGFyIHN1bWJ1IHggZGVuZ2FuIHN1bWJ1IHkNCmdncGxvdChwbG90ZGF0YSwgDQogICAgICAgYWVzKHggPSByZW9yZGVyKHpvZGlhY3MsIC1wY3QpLA0KICAgICAgICAgICB5ID0gcGN0KSkgKyANCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIA0KICAgICAgICAgICBmaWxsID0gInllbGxvdyIsIA0KICAgICAgICAgICBjb2xvciA9ICJibGFjayIpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHBjdGxhYmVsKSwgDQogICAgICAgICAgICBoanVzdCA9IC0wLjEwKSArDQogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHMgPSBwZXJjZW50KSArDQogIHRoZW1lX21pbmltYWwoKSArICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KICBsYWJzKHggPSAiWm9kaWFrIiwgDQogICAgICAgeSA9ICJQZXJzZW4iLCANCiAgICAgICB0aXRsZSAgPSAiUGVyc2VudGFzZSBab2RpYWsgUGVzZXJ0YSBQZXJuaWthaGFuIikrDQogIGNvb3JkX2ZsaXAoKSAgICAgICMgTWVtdXRhciBzdW1idSB4IGRlbmdhbiBzdW1idSB5DQpgYGANCg0KIyMjIERpYWdyYW0gTGluZ2thcmFuL1BpZQ0KRGlhZ3JhbSBsaW5na2FyYW4vcGllIGJlcnNpZmF0IGtvbnRyb3ZlcnNpYWwgZGkgc3RhdGlzdGlrLiBKaWthIGJlcnR1anVhbiB1bnR1ayBtZW1iYW5kaW5na2FuIGZyZWt1ZW5zaSBkYXJpIGthdGVnb3JpLCBsZWJpaCBiYWlrIG1lbmdndW5ha2FuIGRpYWdyYW0gYmF0YW5nLiB0ZXRhcGksIGppa2EgYmVydHVqdWFuIHVudHVrIG1lbWJhbmRpbmdrYW4gdGlhcCBrYXRlZ29yaSBzZWNhcmEga2VzZWx1cnVoYW4gKG1pc2FsLCBiZXJhcGEgcG9yc2kuLi4pLCBkYW4ganVtbGFoIGthdGVnb3JpbnlhIGtlY2lsLCBkaWFncmFtIHBpZSBtdW5na2luIGNvY29rIHVudHVrIGRpcGFrYWkuIFVudHVrIG1lbWJ1YXQgZGlhZ3JhbSBwaWUgZGlidXR1aGthbiBsZWJpaCBiYW55YWsga29kZS4gDQoNCmBgYHtyfQ0KbGlicmFyeShkcGx5cikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIG1hbmlwdWxhc2kgZGF0YQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpsaWJyYXJ5KHNjYWxlcykgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgbWVuZW50dWthbiBqZWRhIGF0YXUgbGFiZWwgc2VjYXJhIG90b21hdGlzDQpwbG90ZGF0YSA8LSBNYXJyaWFnZSAlPiUNCiAgY291bnQocmFjZSkgJT4lDQogIGFycmFuZ2UoZGVzYyhyYWNlKSkgJT4lDQogIG11dGF0ZShwcm9wID0gcm91bmQobioxMDAvc3VtKG4pLCAxKSwNCiAgICAgICAgIGxhYi55cG9zID0gY3Vtc3VtKHByb3ApIC0gMC41KnByb3ApDQojIE1lbWJ1YXQgRGlhZ3JhbSBQaWUNCm15Y29scyA8LSBjKCIjMDA4MDAwIiwiIzAwRkYwMCIsIiM4MDAwMDAiLCIjRkYwMDAwIikNCmdncGxvdChwbG90ZGF0YSwgYWVzKHggPSAiIiwgeSA9IHByb3AsIGZpbGwgPSByYWNlKSkgKw0KICBnZW9tX2Jhcih3aWR0aCA9IDEsIHN0YXQgPSAiaWRlbnRpdHkiLCBjb2xvciA9ICJ3aGl0ZSIpICsNCiAgY29vcmRfcG9sYXIoInkiLCBzdGFydCA9IDApKw0KICBnZW9tX3RleHQoYWVzKHkgPSBsYWIueXBvcywgbGFiZWwgPSBwcm9wKSwgY29sb3IgPSAiYmxhY2siKSsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gbXljb2xzKSArDQogIHRoZW1lX3ZvaWQoKSsNCiAgbGFicyh0aXRsZSA9ICJQZXNlcnRhIFBlcm5pa2FoYW4gQmVyZGFzYXJrYW4gUmFzIikNCmBgYA0KDQpTZWxhaW4gbWVuZ2d1bmFrYW4gZGlhZ3JhbSBwaWUsIGp1Z2EgZGFwYXQgbWVuZ2d1bmFrYW4gZGlhZ3JhbSBkb25hdCB5YW5nIHRlcmRhcGF0IGx1YmFuZyBkaSBkYWxhbW55YS4gVW50dWsgbWVtYnVhdCBsdWJhbmcgcGFkYSBkaWFncmFtIGRvbmF0IG1lbmdndW5ha2FuIGtvZGUgYHg9MmAgZGFuIGB4bGltPWMoMC41LDIuNSlgLiBTZWxhaW4gaXR1LCBhcmd1bWVuIGB3aWR0aGAgZGFsYW0gZnVuZ3NpIGBnZW9tX2JhcigpYCB0aWRhayBkaXBlcmx1a2FuLiANCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmxpYnJhcnkoc2NhbGVzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBtZW5lbnR1a2FuIGplZGEgYXRhdSBsYWJlbCBzZWNhcmEgb3RvbWF0aXMNCiMgTWVtYnVhdCBEaWFncmFtIERvbmF0DQpnZ3Bsb3QocGxvdGRhdGEsIGFlcyh4ID0gMiwgeSA9IHByb3AsIGZpbGwgPSByYWNlKSkgKw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgY29sb3IgPSAid2hpdGUiKSArDQogIGNvb3JkX3BvbGFyKHRoZXRhID0gInkiLCBzdGFydCA9IDApKw0KICBnZW9tX3RleHQoYWVzKHkgPSBsYWIueXBvcywgbGFiZWwgPSBwcm9wKSwgY29sb3IgPSAiYmxhY2siKSsNCiAgc2NhbGVfZmlsbF9tYW51YWwodmFsdWVzID0gbXljb2xzKSArDQogIHRoZW1lX3ZvaWQoKSsNCiAgeGxpbSgwLjUsIDIuNSkrDQogIGxhYnModGl0bGUgPSAiUGVzZXJ0YSBQZXJuaWthaGFuIEJlcmRhc2Fya2FuIFJhcyIpDQpgYGANCg0KTWVuYW1iYWhrYW4gbGFiZWwgZGFuIG1lbmdoYXB1cyBsZWdlbmQNCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmxpYnJhcnkoc2NhbGVzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBtZW5lbnR1a2FuIGplZGEgYXRhdSBsYWJlbCBzZWNhcmEgb3RvbWF0aXMNCiMgTWVtYmVyaSBsYWJlbCBwZXJzZW4NCnBsb3RkYXRhJHBlcmNlbnQgPC0gcGFzdGUwKHBsb3RkYXRhJHJhY2UsICJcbiIsDQogICAgICAgICAgICAgICAgICAgICAgICAgcm91bmQocGxvdGRhdGEkcHJvcCksICIlIikNCiMgTWVtYnVhdCBEaWFncmFtIERvbmF0IGRhbGFtIFBlcnNlbg0KZ2dwbG90KHBsb3RkYXRhLCBhZXMoeCA9IDIsIHkgPSBwcm9wLCBmaWxsID0gcmFjZSkpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIGNvbG9yID0gIndoaXRlIikgKw0KICBjb29yZF9wb2xhcih0aGV0YSA9ICJ5Iiwgc3RhcnQgPSAwKSsNCiAgZ2VvbV90ZXh0KGFlcyh5ID0gbGFiLnlwb3MsIGxhYmVsID0gcGVyY2VudCksIGNvbG9yID0gImJsYWNrIikrDQogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IG15Y29scykgKw0KICB0aGVtZV92b2lkKCkrDQogIHhsaW0oMC41LCAyLjUpKw0KICBsYWJzKHRpdGxlID0gIlBlc2VydGEgUGVybmlrYWhhbiBCZXJkYXNhcmthbiBSYXMiKSsNCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIkZBTFNFIikNCmBgYA0KDQoNCiMjIyBQZXRhIFBvaG9uDQoNCkFsdGVybmF0aWYgdW50dWsgZGlhZ3JhbSBsaW5na2FyYW4vcGllIGFkYWxhaCBwZXRhIHBvaG9uIGF0dSB0cmVlIG1hcC5UcmVlIG1hcCBkYXBhdCBtZW5hbmdhbmkgdmFyaWFiZWwga2F0ZWdvcmlrYWwgeWFuZyBtZW1pbGlraSBiYW55YWsgdGluZ2thdGFuLg0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpsaWJyYXJ5KHRyZWVtYXBpZnkpICAgICAgICAgICAgICAgICAgICAgICAgIyBWaXN1YWxpc2FzaSB0cmVlbWFwDQpsaWJyYXJ5KHNjYWxlcykgICAgICAgICAgICAgICAgICAgICAgICAgICAjIG1lbmVudHVrYW4gamVkYSBhdGF1IGxhYmVsIHNlY2FyYSBvdG9tYXRpcw0KcGxvdGRhdGE8LU1hcnJpYWdlJT4lDQogIGNvdW50KG9mZmljaWFsVGl0bGUpDQpnZ3Bsb3QocGxvdGRhdGEsDQogICAgICAgYWVzKGZpbGw9b2ZmaWNpYWxUaXRsZSwNCiAgICAgICAgICAgYXJlYT1uKSkrDQogIGdlb21fdHJlZW1hcCgpKw0KICBsYWJzKHRpdGxlID0gIk1hcnJpYWdlIFBhcnRpY2lwYW50cyBieSBPZmZpY2lhdGUiKQ0KYGBgDQoNCk1lbmFtYmFoa2FuIGxhYmVsIHZhcmlhYmVsIHBhZGEgdHJlZW1hcCwga29kZSB5YW5nIGRpZ3VuYWthbiBzZWJhZ2FpIGJlcmlrdXQuDQoNCmBgYHtyfQ0KZ2dwbG90KHBsb3RkYXRhLA0KICAgICAgIGFlcyhmaWxsPW9mZmljaWFsVGl0bGUsDQogICAgICAgICAgIGFyZWE9biwNCiAgICAgICAgICAgbGFiZWw9b2ZmaWNpYWxUaXRsZSkpKw0KICBnZW9tX3RyZWVtYXAoKSsNCiAgZ2VvbV90cmVlbWFwX3RleHQoY29sb3VyPSJibGFjayIsDQogICAgICAgICAgICAgICAgICAgIHBsYWNlID0gImNlbnRyZSIpKw0KICBsYWJzKHRpdGxlID0gIk1hcnJpYWdlIFBhcnRpY2lwYW50cyBieSBPZmZpY2lhdGUiKSsNCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKQ0KYGBgDQoNCiMjIFZhcmlhYmVsIEtvbnRpbnUgKE51bWVyaWsva3VhbnRpdGF0aWYpDQpEaXN0cmlidXNpIHBhZGEgdmFyaWFiZWwga29udGludSB0dW5nZ2FsIGJpc2FueWEgZGlwbG90IGRlbmdhbiBtZW5nZ3VuYWthbiBoaXN0b2dyYW0sIGRlbnNpdGFzIGtlcm5lbCwgYXRhdSBtZW5nZ3VuYWthbiBkaWFncmFtIHRpdGlrLg0KDQojIyMgSGlzdG9ncmFtDQoNCkRlbmdhbiBtZW5nZ3VuYWthbiBkYXRhIHNldCBNYXJyaWFnZSwgYWthbiBkaWJ1YXQgaGlzdG9ncmFtIHVzaWEgZGFyaSBwZXNlcnRhIHBlcm5pa2FoYW4uIA0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpnZ3Bsb3QoTWFycmlhZ2UsIGFlcyh4PWFnZSkpKw0KICBnZW9tX2hpc3RvZ3JhbShmaWxsPSJ5ZWxsb3ciLA0KICAgICAgICAgICAgICAgY29sb3I9InJlZCIsYmlucz0yMCkrDQogIHRoZW1lX21pbmltYWwoKSsNCiAgbGFicyh0aXRsZSA9ICJQZXNlcnRhIFBlcm5pa2FoYW4gQmVyZGFzYXJrYW4gVXNpYSAoQmFzaWMsbWVuZ2d1bmFrYW4gYmluKSIsDQogICAgICAgeD0iVXNpYSIsDQogICAgICAgeT0iRnJla3VlbnNpIikNCmBgYA0KDQpTZWJhZ2lhbiBiZXNhciBwZXNlcnRhIHBlcm5pa2FoYW4gYmVydXNpYSAyMC1hbiB0YWh1bi4gS2VtdWRpYW4gYmVydXNpYSA0MC1hbiBkYW4geWFuZyBwYWxpbmcgc2VkaWtpdCBiZXJ1c2lhIDYwLWFuIHRhaHVuLiAgV2FybmEgaGlzdG9ncmFtIGRhcGF0IGRpdWJhaCBkZW5nYW4gbWVuZ2d1bmFrYW4gMiBvcHNpIDoNCg0KKipgZmlsbGAqKiA6IHdhcm5hIGlzaSB1bnR1ayBiYXRhbmcNCg0KKipgY29sb3JgKiogOiB3YXJuYSBiYXRhcyAvZ2FyaXMgYmF0YW5nDQoNCmNhcmEgbGFpbm55YSBhZGFsYWggZGVuZ2FuIG1lbmdndW5ha2FuIGBiaW53aWR0aGAsIGxlYmFyIGJhdGFuZyBha2FuIGRpc2VzdWFpa2FuIGRlbmdhbiBmcmVrdWVuc2kvbmlsYWkgZGFyaSBgYmlud2lkdGhgLiAgU2VwZXJ0aSBwYWRhIGRpYWdyYW0gYmF0YW5nLCBzdW1idSB5IG1ld2FraWxpIGZyZWt1ZW5zaS8gcGVyc2VuYW4uDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmxpYnJhcnkoc2NhbGVzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICMgbWVuZW50dWthbiBqZWRhIGF0YXUgbGFiZWwgc2VjYXJhIG90b21hdGlzDQpnZ3Bsb3QoTWFycmlhZ2UsIA0KICAgICAgIGFlcyh4ID0gYWdlLCANCiAgICAgICAgICAgeT0gLi5jb3VudC4uIC8gc3VtKC4uY291bnQuLikpKSArDQogIGdlb21faGlzdG9ncmFtKGZpbGwgPSAid2hpdGUiLCANCiAgICAgICAgICAgICAgICAgY29sb3IgPSAiYmxhY2siLCANCiAgICAgICAgICAgICAgICAgYmlud2lkdGggPSA1KSArICAgICAgICNNZW5lcmFwa2FuIGJpbmR3aWR0aA0KICB0aGVtZV9taW5pbWFsKCkgKyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCiAgbGFicyh0aXRsZT0iUGVzZXJ0YSBQZXJuaWthaGFuIEJlcmRhc2Fya2FuIFVzaWEgKE1lbmdndW5ha2FuIGJpbndpZHRoKSIsIA0KICAgICAgIHkgPSAiUGVyc2VuIiwNCiAgICAgICB4ID0gIlVzaWEiKSArDQogIHNjYWxlX3lfY29udGludW91cyhsYWJlbHMgPSBwZXJjZW50KQ0KYGBgDQoNCiMjIyBQbG90IERlbnNpdGFzIEtlcm5lbA0KQWx0ZXJuYXRpZiBsYWluIHVudHVrIG1lbXVuY3Vsa2FuIGhpc3RvZ3JhbSB5YWl0dSBwbG90IGRlbnNpdGFzIGtlcm5lbC4gU2VjYXJhIHRla25pcywgcGxvdCBkZW5zaXRhcyBrZXJuZWwgYWRhbGFoIG1ldG9kZSBub24gcGFyYW1ldGlrIHVudHVrIG1lbXBlcmtpcmFrYW4gZHVuZ3NpIGRlbnNpdGFzIHByb2JhYmlsaXRhcyBkYXJpIHZhcmlhYmVsIGFjYWsga29udGludS4gUGFkYSBkYXNhcm55YSB1bnR1ayBtZW1idWF0IGhpc3RvZ3JhbSB5YW5nIGRpcGVyaGFsdXMsIGFyZWEgZGkgYmF3YWgga3VyZmEgaGFydXMgc2FtYSBkZW5nYW4gMS4gDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmdncGxvdChNYXJyaWFnZSwgYWVzKHg9YWdlKSkrDQogIGdlb21fZGVuc2l0eShmaWxsPSJjeWFuIikrDQogIHRoZW1lX21pbmltYWwoKSsNCiAgbGFicyh0aXRsZSA9ICJQZXNlcnRhIFBlcm5pa2FoYW4gQmVyZGFzYXJrYW4gVXNpYSIsDQogICAgICAgeD0iVXNpYSIsDQogICAgICAgeT0iRGVuc2l0eSIpDQpgYGANCg0KR3JhZmlrIG1lbnVuanVrYW4gZGlzdHJpYnVzaSBkYXJpIG5pbGFpLiBDb250b2gsIHBlcmJhbmRpbmdhbiBrYXN1c3UgYW50YXJhIHVzaWEgMjAgdGFodW4gZGFuIDQwIHRhaHVuIGFrYW4gZGl3YWtpbGkgb2xlaCBhcmVhIGRpIGJhd2FoIGt1cmZhIGFudGFyYSAyMCBkYW4gNCBwYWRhIHN1bWJ1IHguIA0KR3VuYWthbiBrb2RlIGBmaWxsYCB1bnR1ayBtZW5lcmFwa2FuIHdhcm5hIGlzaSwgZGFuIGBjb2xvciBgIHVudHVrIHdhcm5hIGJhdGFzLiANCg0KIyMjIyBQYXJhbWV0ZXIgUGVuZ2hhbHVzYW4gKFNtb290aGluZykNCg0KVGluZ2thdCBrZWhhbHVzYW4gZ3JhZmlrIGRhcGF0IGRpYXR1ciBvbGVoIHBhcmFtZXRlciBiYW5kd2lkdGggYGJ3YC4gVW50dWsgbWVuZW11a2FuIG5pbGFpIGRlZmF1bHQgdmFyaWFiZWwgdGVydGVudHUsIGRhcGF0IG1lbmdndW5ha2FuIGZ1bmdzaSBgYncubnJkMGAuIE5pbGFpIHlhbmcgbGViaWggYmVzYXIgYWthbiBtZW5naGFzaWxrYW4gdGluZ2thdCBrZWhhbHVzYW4gbGViaWggYmVzYXIgcHVsYSwgc2VkYW5na2FuIHlhbmcgbGViaWgga2VjaWwgbWVuZ2hhc2lsa2FuIHRpbmdrYXQgcGVuZ2hhbHVzYW4geWFuZyBsZWJpaCBrZWNpbCBwdWxhLiANCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpidy5ucmQwIChNYXJyaWFnZSRhZ2UpICAgICAgICAgICAjIERlZmF1bHQgYmFuZHdpZHRoIHVudHVrIHZhcmlhYmVsIHVzaWENCmdncGxvdChNYXJyaWFnZSwgYWVzKHg9YWdlKSkrDQogIGdlb21fZGVuc2l0eShmaWxsPSJkYXJrYmx1ZSIsDQogICAgICAgICAgICAgICBidz0xKSsNCiAgdGhlbWVfbWluaW1hbCgpKw0KICBsYWJzKHRpdGxlPSJQZXNlcnRhIFBlcm5pa2FoYW4gQmVyZGFzYXJrYW4gVXNpYSIsDQogICAgICAgeD0iVXNpYSIsDQogICAgICAgeT0iRGVuc2l0eSIsDQogICAgICAgc3VidGl0bGU9ImJhbmR3aWR0aCA9IDEiKQ0KYGBgDQoNCkdyYWZpayBpbmkgbWVtdW5na2lua2FuIGRlbmdhbiBtdWRhaCBtZWxpaGF0IGthdGVnb3JpIHlhbmcgcGFsaW5nIHNlcmluZyBkYW4gcmFsYXRpZiBqYXJhbmcuIE5hbXVuIHN1bGl0IHVudHVrIG1lbmplbGFza2FuIGFydGkvbWVuZGVmaW5pc2lrYW4gc3VtYnUgeS4gIA0KDQojIyMgRGlhZ3JhbSBUaXRpaw0KDQpTZWxhaW4gZGVuZ2FuIHBsb3QgZGVuc2l0eSBrZXJuZWwsIGRpYWdyYW0gdGl0aWsgbWVydXBha2FuIGFsdGVybmF0aWYgbGFpbiB1bnR1ayBoaXN0b2dyYW0uIFBhZGEgZGlhZ3JhbSBpbmksIHRpYXAgaGFzaWwgYW5hbGlzaXMgZGl0ZW50dWthbiBvbGVoIHNlYnVhaCB0aXRpay4gU2VjYXJhIGRlYWZ1bHQsIGxlYmFyIGRhcmkgc2VidWFoIHRpdGlrIHNhbWEgZGVuZ2FuIGxlYmFyIGJpbiwgZGFuIHRpdGlrLXRpdGlrIHRlcnNlYnV0IGJlcnR1bXB1a2FuIGRlbmdhbiB0aWFwIHRpdGlrIG1ld2FraWxpIHNhdHUgcGVuZ2FtYXRhbi4gRGlhZ3JhbSB0aXRpayBsZWJpaCBiYWlrIGRpZ3VuYWthbiBwYWRhIHBlbmdhbWF0YSBkYWxhbSBqdW1sYWggeWFuZyBrZWNpbCAoa3VyYW5nIGRhcmkgMTUwKS4NCkd1bmFrYW4ga29kZSBgZmlsbGAgdW50dWsgbWVuZXJhcGthbiB3YXJuYSBpc2ksIGRhbiBgY29sb3IgYCB1bnR1ayB3YXJuYSBiYXRhcy4gDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgIyBVbnR1ayB2aXN1YWxpc2FzaQ0KZ2dwbG90KE1hcnJpYWdlLCBhZXMoeD1hZ2UpKSsNCiAgIyBNZWJ1YXQgZ3JhZmlrIHRpdGlrKGRvdHBsb3QpDQogIGdlb21fZG90cGxvdChmaWxsPSJncmV5IiwgICAgIyBNZW5lcmFwa2FuIHdhcm5hDQogICAgICAgICAgICAgICBjb2xvcj0iYmxhY2siLA0KICAgICAgICAgICAgICAgYmlud2lkdGggPSAyKSArDQogIHRoZW1lX21pbmltYWwoKSsNCiAgbGFicyh0aXRsZSA9ICJQZXNlcnRhIFBlcm5pa2FoYW4gQmVyZGFzYXJrYW4gVXNpYSIsICAgICAgICAgICAgICAgIyBNZW5hbWJhaGthbiBKdWR1bA0KICAgICAgIHk9IlByb3BvcnRpb24iLA0KICAgICAgIHg9IlVzaWEiKQ0KYGBgDQoNCiMgRGF0YSBCaXZhcmlhbnQNCg0KR3JhZmlrIGJpdmFyaWFudCBtZXJ1cGFrYW4gZ3JhZmlrIHlhbmcgbWVudW5qdWthbiBodWJ1bmdhbiBhbnRhcmEgMiB2YXJpYWJlbC4gSmVuaXMgZ3JhZmlrIHRlcmdhbnR1bmcgcGFkYSB0aW5na2F0IHBlbmd1a3VyYW4gZGFyaSB2YXJpYWJlbCAoa2F0ZWdvcmlzIGF0YXUgbnVtZXJpaykuDQoNCiMjIEthdGVnb3Jpa2FsIHZzIEthdGVnb3Jpa2FsDQoNCiMjIyBEaWFncmFtIEJhdGFuZyBCZXJ0dW1wdWsNCg0KQmVyaWt1dCBtZXJ1cGFrYW4gY29udG9oIGdyYWZpayBodWJ1bmdhbiBhbnRhcmEga2VsYXMgbW9iaWwgZGFuIGplbmlzIHBlbmdnZXJhayAocm9kYSBkZXBhbiwgcm9kYSBiZWxha2FuZywgYXRhdSA0IHJvZGEpIHVudHVrIG1vYmlsIGRhbGFtIGRhdGEgc2V0IEZ1ZWwgZWNvbm9teS4gDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgIyBVbnR1ayB2aXN1YWxpc2FzaQ0KbXBnJGRydjwtZmFjdG9yKG1wZyRkcnYsIA0KICAgICAgICAgICAgICAgIGxldmVscyA9IGMoImYiLCAiciIsICI0IiksDQogICAgICAgICAgICAgICAgbGFiZWxzID0gYygiZnJvbnQtd2hlZWwiLCAicmVhci13aGVlbCIsICI0LXdoZWVsIikpDQojIERpYWdyYW0gQmF0YW5nIEJldHVtcHVrDQpnZ3Bsb3QobXBnLCANCiAgICAgICBhZXMoeCA9IGNsYXNzLCANCiAgICAgICAgICAgZmlsbCA9IGRydikpICsgDQogIGdlb21fYmFyKHBvc2l0aW9uID0gImZpbGwiKSArDQogIHRoZW1lX21pbmltYWwoKSArICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCiAgbGFicyh5ID0gIlByb3BvcnNpIikNCmBgYA0KDQojIyMgRGlhZ3JhbSBCYXlhbmcgeWFuZyBEaWtlbG9tcG9ra2FuDQoNCkRpYWdyYW0gYmF0YW5nIHlhbmcgZGlrZWxvbXBva2thbiB1bnR1ayB2YXJpYWJlbCBrYXRlZ29yaSBrZWR1YSBzZWNhcmEgYmVyZGFtcGluZ2FuLiBVbnR1ayBtZW1idWF0IHBsb3QgYmF0YW5nIHlhbmcgZGlrZWxvbXBva2thbiwgZ3VuYWthbmtvZGUgYHBvc2l0aW9uPSJzaW5nbGUiYC4gUGVybHUgZGlwZXJoYXRpa2FuIGJhaHdhIG9wc2kgaW5pIGhhbnlhIHRlcnNlZGlhIHBhZGEgdmVyc2kgcGVuZ2VtYmFuZ2FuIHRlcmJhcnUgYGdncGxvdDJgIHRldGFwaSBha2FuIHNlZ2VyYSB0ZXJzZWRpYSBzZWNhcmEgdW11bS4gDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgIyBVbnR1ayB2aXN1YWxpc2FzaQ0KZ2dwbG90KG1wZywgYWVzKHg9Y2xhc3MsDQogICAgICAgICAgICAgICAgZmlsbD1kcnYpKSsNCiAgdGhlbWVfbWluaW1hbCgpKw0KICBnZW9tX2Jhcihwb3NpdGlvbj1wb3NpdGlvbl9kb2RnZShwcmVzZXJ2ZT0ic2luZ2xlIikpDQpgYGANCg0KIyMjIERpYWdyYW0gQmF0YW5nIFRlcnNlZ21lbnRhc2kNCg0KRGlhZ3JhbSBiYXRhbmcgeWFuZyB0ZXJzZWdtZW50YXNpIG1lcnVwYWthbiBkaWFncmFtIHlhbmcgYmVydHVtcHVrLCBkaSBtYW5hIHRpYXAgYmF0YW5nIG1ld2FraWxpIDEwMCUuIFVudHVrIG1lbWJ1YXQgZGlhZ3JhbSBpbmksIGRwYXQgbWVuZ2d1bmFrYW4ga29kZSBgcG9zaXRpb249ImZpbGxlZCJgLiBEaWFncmFtIGJhdGFuZyB0ZXJzZWdtZW50YXNpIHNhbmdhdCBiZXJndW5hIGppa2EgYmVydHVqdWFuIHVudHVrIG1lbW5hZGluZ2thbiBwZXJlbnRhc2kgZGFyaSBrYXRlZ29yaSBkYWxhbSBzYXR1IHZhcmlhYmVsIGRpIHRpYXAgdGluZ2thdCB2YXJpYWJlbCBsYWlubnlhLiBDb250b2hueWEsIHByb3BvcnNpIG1vYmlsIGRlbmdhbiBwZW5nZ2VyYWsgcm9kYSBkZXBhbiBtZW5pbmdrYXQga2V0aWthIG1lbWluZGFoa2FuIGRhcmkgbW9iaWwgcGVudW1wYW5nIHlhbmcga2VjaWwga2UgbWVuZW5nYWgsIGtlIG1pbml2YW4uIA0KDQpgYGB7cn0NCmxpYnJhcnkoZHBseXIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBVbnR1ayBtYW5pcHVsYXNpIGRhdGENCmxpYnJhcnkoZ2dwbG90MikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBVbnR1ayB2aXN1YWxpc2FzaQ0KbGlicmFyeShzY2FsZXMpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIG1lbmVudHVrYW4gamVkYSBhdGF1IGxhYmVsIHNlY2FyYSBvdG9tYXRpcw0KIyBNZW1idWF0IGRhdGEgcmluZ2thc2FuIGRhcmkgZGF0YXNldA0KcGxvdGRhdGEgPC0gbXBnICU+JQ0KICBncm91cF9ieShjbGFzcywgZHJ2KSAlPiUNCiAgZHBseXI6OnN1bW1hcml6ZShuID0gbigpKSAlPiUNCiAgbXV0YXRlKHBjdCA9IG4vc3VtKG4pLA0KICAgICAgICAgbGJsID0gc2NhbGVzOjpwZXJjZW50KHBjdCkpDQojIE1lbWJ1YXQgZGlhZ3JhbSBiYXRhbmcgeWFuZyB0ZXJzZWdtZW50YXNpDQojIE1lbWJlcmlrYW4gbGFiZWwgcGFkYSB0aWFwIHNlZ21lbg0KZ2dwbG90KHBsb3RkYXRhLCANCiAgICAgICBhZXMoeCA9IGZhY3RvcihjbGFzcyksDQogICAgICAgICAgIHkgPSBwY3QsDQogICAgICAgIGZpbGwgPSBmYWN0b3IoZHJ2KSkpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsDQogICAgICAgICAgIHBvc2l0aW9uID0gImZpbGwiKSArDQogIHNjYWxlX3lfY29udGludW91cyhicmVha3MgPSBzZXEoMCwgMSwgLjIpLCANCiAgICAgICAgICAgICAgICAgICAgIGxhYmVsID0gcGVyY2VudCkrDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSBsYmwpLA0KICAgICAgICAgICAgc2l6ZSA9IDMsDQogICAgICAgICAgICBwb3NpdGlvbiA9IHBvc2l0aW9uX3N0YWNrKHZqdXN0ID0gMC41KSkgKw0KICBzY2FsZV9maWxsX2JyZXdlcihuYW1lPSJHcmFuZEJ1ZGFwZXN0IikgKw0KICB0aGVtZV9taW5pbWFsKCkgKyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogIGxhYnMoeSA9ICJQZXJzZW4iLA0KICAgICAgIGZpbGwgPSAiRHJpdmUgVHJhaW4iLA0KICAgICAgIHggPSAiS2VsYXMiLA0KICAgICAgIHRpdGxlID0gIlBlbmdnZXJhayBNb2JpbCBiZXJkYXNhcmthbiBLZWxhcyIpICsNCiAgdGhlbWVfbWluaW1hbCgpDQpgYGANCg0KKipDYXRhdGFuKiogOiBHdW5ha2FuIG9wc2kgdGFtYmFoYW4gZGkgYmF3YWggaW5pIHVudHVrIG1lbmluZ2thdGthbiBwZXdhcm5hYW4gZGFuIHBlbGFiZWxhbiBwYWRhIGRpYWdyYW0uIA0KDQoqICoqZmFjdG9yKiogTWVuZ3ViYWgvbWVuZ2F0dXIgdXJ1dGFuIGthdGVnb3JpIHVudHVrIGtlbGFzIHZhcmlhYmVsIHNlcnRhIA0KKipsYWJlbHMqKiB1bnR1ayB2YXJpYWJlbCBkcml2ZQ0KDQoqICoqc2NhbGVfeV9jb250aW51b3VzKiogTWVuZ3ViYWggbGFiZWwgdGFuZGEgY2VudGFuZyBwYWRhIHN1bWJ1IHkNCg0KKiAqKmxhYnMqKiBNZW5ndWJhaC9tZW5hbWJhaGthbiBqdWR1bCBkYW4gbGFiZWwgcGFkYSBzdW1idSB4IGRhbiB5IHNlcnRhIGxlZ2VuZGENCiogKipzY2FsZV9maWxsX2JyZXdlcioqIE1lbmd1YmFoIHNrZW1hIHdhcm5hIGlzaWFuDQoNCiogKip0aGVtZV9taW5pbWFsKiogTWVuZ2hhcHVzIGxhdGFyIGJlbGFrYW5nIGFidS1hYnUgZGFuIG1lbmd1YmFoIHdhcm5hIGtpc2kNCg0KIyMjIFBsb3QgTW9zYWlrDQoNCkRpYWdyYW0gaW5pIGRhcGF0IG1lbmFtcGlsa2FuIGh1YnVuZ2FuIGFudGFyYSB2YXJpYWJsZSBrYXRlZ29yaXMgZGVuZ2FuIG1lbmdndW5ha2FuIHBlcnNlZ2kgcGFuamFuZyB5YW5nIGx1YXNueWEgbWV3YWtpbGkgcHJvcG9yc2kga2VqYWRpYW4gdW50dWsga29tYmluYXNpIGxldmVsIHRlcnRlbnR1LiBXYXJuYSBwYWRhIHViaW4ganVnYSBkYXBhdCBtZW51bmp1a2thbiB0aW5na2F0IGh1YnVuZ2FuIGFudGFyIHZhcmlhYmVsLiANCk1lc2tpcHVuIGRpYWdyYW0gbW96YWlrIGRhcGF0IGRpYnVhdCBkZW5nYW4gZnVuZ3NpIGBnZ3Bsb3QyYCBkZW5nYW4gcGFja2FnZSBgZ2dtb3NhaWNgLCBsZWJpaCBiYWlrIG1lbmdndW5ha2FuIHBhY2thZ2UgYHZjZGAgc2ViYWdhaSBnYW50aW55YS4gTWVza2kgdGlkYWsgYWthbiBtZW1idWF0IGdyYWZpaywgcGFja2FnZSB0ZXJzZWJ1dCBha2FuIG1lbWJlcmlrYW4gcGVuZGVrYXRhbiB5YW5nIGxlYmloIGtvbXByZWhlbmlmIHVudHVrIG1lbXZpc3VhbGlzYXNpa2FuIGRhdGEga2F0ZWdvcmlrYWwuIA0KQmVyaWt1dCBjb250b2ggbWVtdmlzdWFsaXNhc2lrYW4gaHVidW5nYW4gYW5hdGFyYSB2YXJpYWJlbCBrYXRlZ29yaWthbCBrZWxhcyBkYW4gamVuaXMga2VsYW1pbiBkYWxhbSBzdXJ2aXZhbCBkZW5nYW4gbWVuZ2d1bmFrYW4gZGlhZ3JhbSBtb3phaWsgLg0KDQpgYGB7cn0NCiMgTWVtYnVhdCB0YWJlbA0KdGJsPC14dGFicyhGcmVxflN1cnZpdmVkK0NsYXNzK1NleCxUaXRhbmljKQ0KZnRhYmxlKHRibCkNCiMgTWVtYnVhdCBkaWFncmFtIG1vemFpaw0KbGlicmFyeSh2Y2QpDQptb3NhaWModGJsLCBtYWluID0gIlRpdGFuaWMgRGF0YSIpDQpgYGANCg0KVWt1cmFuIHBlcnNlZ2kgc2ViYW5kaW5nIGRlbmdhbiBwcmVzZW50YXNlIGtodXN1cyBkYWxhbSBrb21iaW5hc2kgdGluZ2thdCB0ZXJzZWJ1dC4gTGViaWggYmFueWFrIHBlbnVtcGFuZyB5YW5nIHRld2FzIGRhcmlwYWRhIHlhbmcgc2VsYW1hdC4gQmVyZGFzYXJrYW4gZ3JhZmlrIHRlcnNlYnV0LCBwZW51bXBhbmcgbGFraS1sYWtpIGtlbGFzIDMgZGFuIGNyZXcgbGFraS1sYWtpIHlhbmcgcGFsaW5nIGJhbnlhayB0aWRhayBzZWxhbWF0LiANCg0KSmlrYSBraXRhIG1lbmdhc3Vtc2lrYW4gYmFod2Ega2V0aWdhIHZhcmlhYmVsIGluaSB0aWRhayBiZXJnYW50dW5nLCBraXRhIGRhcGF0IG1lbWVyaWtzYSByZXNpZHVhbCBkYXJpIG1vZGVsIGRhbiBtZW1iZXJpIGJheWFuZ2FuIHBhZGEgdWJpbiBhZ2FyIHNlc3VhaS4gUGFkYSBncmFmaWsgZGkgYmF3YWgsIHdhcm5hIGJpcnUgbWV3YWtpbGthbiBsZWJpaCBiYW55YWsga2FzdXMgZGFyaSB5YW5nIGRpaGFyYXBrYW4gdGlkYWsgdGVyaWthdC4gV2FybmEgbWVyYWggbWV3YWtpbGkgbGViaWggc2VkaWtpdCBhc3VzIGRhcmkgeWFuZyBkaWhhcmFwa2FuIGppa2EgYmVybGFrdSB0aWRhayB0ZXJpa2F0LiANCg0KYGBge3J9DQptb3NhaWModGJsLA0KICAgICAgIHNoYWRlID0gVFJVRSwNCiAgICAgICBsZWdlbmQ9VFJVRSwNCiAgICAgICBsYWJlbGluZ19hcmdzID0gbGlzdChzZXRfdmFybmFtZXMgPSBjKFNleCA9ICJHZW5kZXIiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgU3Vydml2ZWQgPSAiU3Vydml2ZWQiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQ2xhc3MgPSAiUGFzc2VuZ2VyIENsYXNzIikpLA0KICAgICAgIHNldF9sYWJlbHMgPSBsaXN0KFN1cnZpdmVkPWMoIk5vIiwiWWVzIiksDQogICAgICAgICAgICAgICAgICAgICAgICAgQ2xhc3M9YygiMXN0IiwiMm5kIiwiM3JkIiwiQ3JldyIpLA0KICAgICAgICAgICAgICAgICAgICAgICAgIFNleD1jKCJGIiwiTSIpKSwNCiAgICAgICBtYWluPSJUaXRhbmljIERhdGEiKQ0KYGBgDQoNCkRhcGF0IGRpbGloYXQgYmFod2EgamlrYSBjbGFzcywgZ2VuZGVyLCBkYW4gc3Vydml2YWwgdGlkYWsgdGVyaWthdC4gTGViaWggYmFueWFrIGNyZXcgbGFraS1sYWtpIHlhbmcgdGlkYWsgc2VsYW1hdCwgZGFuIHBlcmVtcHVhbiBwYWRhIGtlbGFzIDEsMiwgZGFuIDMgbGViaWggYmFueWFrIHlhbmcgc2VsYW1hdC4gRGFuIFBlbnVtcGFuZyBrZWxhcyAxIHlhbmcgdGlkYWsgc2VsYW1hdCBqYXVoIGxlYmloIHNlZGlraXQuDQoNCiMjIEtvbnRpbnUgdnMuIEtvbnRpbnUNCg0KSHVidW5nYW4gYW50YXIgMiB2YXJpYWJlbCBrdWFudGl0YXRpZiBiaWFzYW55YSBkaXRhbXBpbGthbiBtZW5nZ3VuYWthbiBwbG90IHNlYmFyYW4gZGFuIGdyYWZpayBnYXJpcy4gDQoNCiMjIyBQbG90IHNlYmFyYW4gKFNjYXR0ZXJwbG90KQ0KDQpQbG90IHNlYmFyYW4gaW5pIGRpYnVhdCB1bnR1ayBtZW1wZWxhamFyaSBodWJ1bmdhbiBhbnRhciAyIHZhcmlhYmVsIGRhbiBzZXJpbmcgZGlzZXJ0YWkgZGVuZ2FuIHBlcmhpdHVuZ2FuIGtvZWZpc2llbiBrb3JlbGFzaSB5YW5nIGJpYXNhbnlhIG1lbmNvYmEgdW50dWsgbWVuZ3VrdXIgaHVidW5nYW4gbGluaWVyLiBOYW11biBqZW5pcyBodWJ1bmdhbiBsYWluIGRhcGF0IGRpZGV0ZWtzaSBkZW5nYW4gbWVuZ2d1bmFrYW4gcGxvdCBzZWJhcmFuLCBkYW4geWFuZyBwZXJsdSBkaWxha3VrYW4gYWRhbGFoIG1lbnllc3VhaWthbiBtb2RlbCB5YW5nIG1lbmplbGFza2FuIFkgZGFsYW0gZnVuZ3NpIFguIFRlcmxlYmloIGRhaHVsdSBpbnN0YWwgcGFja2FnZSBgaHJicnRoZW1lc2AuIEJlcmlrdXQgaW5pIGNvbnRvaCBwZW5nZ3VuYWFuIHBsb3Qgc2ViYXJhbi4NCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpDQogICAgICAgICAgICAgIyBVbnR1ayB2aXN1YWxpc2FzaQ0KbGlicmFyeShocmJydGhlbWVzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyB1bnR1ayBgdGhlbWVfaXBzdW0oKWAgZGFuIGxlZ2VuZA0KZDEgPC0gZGF0YS5mcmFtZSh4PXNlcSgxLDEwMCksIA0KICAgICAgICAgICAgICAgICB5PXJub3JtKDEwMCksIA0KICAgICAgICAgICAgICAgICBuYW1lPSJObyB0cmVuZCIpDQpkMiA8LSBkMSAlPiUgDQogIG11dGF0ZSAoeT14KjEwICsgcm5vcm0oMTAwLHNkPTYwKSkgJT4lDQogIG11dGF0ZSAobmFtZT0iTGluZWFyIHJlbGF0aW9uc2hpcCIpDQpkMyA8LSBkMSAlPiUNCiAgbXV0YXRlKHk9eF4yICsgcm5vcm0oMTAwLHNkPTE0MCkpICU+JQ0KICBtdXRhdGUobmFtZT0iU3F1YXJlIikNCmQ0IDwtIGRhdGEuZnJhbWUoIHg9c2VxKDEsMTAsMC4xKSwgDQogICAgICAgICAgICAgICAgICB5PXNpbihzZXEoMSwxMCwwLjEpKSArIA0KICAgICAgICAgICAgICAgICAgICBybm9ybSg5MSxzZD0wLjYpKSAlPiUgDQogIG11dGF0ZShuYW1lPSJTaW4iKQ0KZG9uIDwtIGRvLmNhbGwocmJpbmQsIGxpc3QoZDEsIGQyLCBkMywgZDQpKQ0KIyBQbG90DQpkb24gJT4lDQogIGdncGxvdChhZXMoeD14LCB5PXkpKSArDQogICAgZ2VvbV9wb2ludChjb2xvcj0ieWVsbG93IiwgYWxwaGE9MC44KSArDQogICAgdGhlbWVfaXBzdW0oKSArDQogICAgZmFjZXRfd3JhcCh+bmFtZSwgc2NhbGU9ImZyZWUiKQ0KYGBgDQoNCkNhcmEgeWFuZyBwYWxpbmcgbXVkYWggdW50dWsgbWVuYW1waWxrYW4gMiB2YXJpYWJlbCBrdWFudGl0YXRpZiBhZGFsYWggc2NhdHRlcnBsb3QgYXRhdSBwbG90IHNlYmFyYW4gZGVuZ2FuIHRpYXAgdmFyaWFiZWwgZGl3YWtpbGthbm9sZWggc3VtYnUgLiBTZWJhZ2FpIGNvbnRvaCwgZGVuZ2FuIG1lbmdndW5ha2FuIGRhdGFzZXQgYEdhamlgIHVudHVrIG1lbWJ1YXQgcGxvdCBzZWJhcmFuIGRlbmdhbiBtZW5hbXBpbGthbiB2YXJpYWJlbCBwZW5nYWxhbWFuIF8oeXJzLnNpbmNlLnBoZClfIHZzIF9nYWppIGFrYWRlbWlrIChzYWxhcnkpXyBkYXJpIFtQcm9mZXNvciBwZXJndXJ1YW4gdGluZ2dpXShodHRwczovL2Jvb2tkb3duLm9yZy9CYWt0aVNpcmVnYXIvZGF0YS1zY2llbmNlLWZvci1iZWdpbm5lcnMvZGF0YXNldHMuaHRtbCNhY2FkZW1pYy1zYWxhcmllcykuIEluc3RhbGwgcGFja2FnZSBgY2FyRGF0YWAgdGVybGViaWggZGFodWx1LiANCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmxpYnJhcnkoc2NhbGVzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBtZW5lbnR1a2FuIGplZGEgYXRhdSBsYWJlbCBzZWNhcmEgb3RvbWF0aXMNCmRhdGEoU2FsYXJpZXMsIHBhY2thZ2UgPSAiY2FyRGF0YSIpDQojIFBlbmluZ2thdGFuIHBsb3Qgc2ViYXJhbg0KZ2dwbG90KFNhbGFyaWVzLCANCiAgICAgICBhZXMoeCA9IHlycy5zaW5jZS5waGQsIA0KICAgICAgICAgICB5ID0gc2FsYXJ5KSkgKw0KICBnZW9tX3BvaW50KGNvbG9yPSIjOTJDNURFIiwgDQogICAgICAgICAgICAgc2l6ZSA9IDIsIA0KICAgICAgICAgICAgIGFscGhhPS44KSArDQogIHNjYWxlX3lfY29udGludW91cyhsYWJlbCA9IHNjYWxlczo6ZG9sbGFyLCANCiAgICAgICAgICAgICAgICAgICAgIGxpbWl0cyA9IGMoNTAwMDAsIDI1MDAwMCkpICsNCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLCA2MCwgMTApLCANCiAgICAgICAgICAgICAgICAgICAgIGxpbWl0cz1jKDAsIDYwKSkgKw0KICB0aGVtZV9taW5pbWFsKCkgKyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCiAgbGFicyh4ID0gIlRhaHVuIFNlamFrIFBoRCIsDQogICAgICAgeSA9ICIiLA0KICAgICAgIHRpdGxlID0gIlBlbmdhbGFtYW4gdnMuIEdhamkiLA0KICAgICAgIHN1YnRpdGxlID0gIkdhamkgOSBidWxhbiB1bnR1ayAyMDA4LTIwMDkiKQ0KYGBgDQoNCioqTm90ZXM6Kiogb3BzaSBgZ2VvbV9wb2ludGAgYmlzYSBkaWd1bmFrYW4gdW50dWsgbWVuZ3ViYWgNCg0KKipgY29sb3JgKiogOiBNZW5ndWJhaCB3YXJuYSB0aXRpaw0KDQoqKmBzaXplYCoqIDogTWVuZ3ViYWggdWt1cmFuIHRpdGlrDQoNCioqYHNoYXBlYCoqIDogTWVtYnVhdCBiZW50dWsgdGl0aWsNCg0KKipgYWxwaGFgKiogOiBNZW5nYXR1ciB0cmFuc3BhcmFuc2kgdGl0aWsuIEphcmFrIHRyYW5zcGFyYW5zaSBtdWxhaSBkYXJpIDAgKHRyYW5zcGFyYW4pIHNhbXBhaSAxIChidXJhbSkgeWFuZyBiZXJndW5hIGtldGlrYSBiZWJlcmFwYSB0aXRpayB0dW1wYW5nIHRpbmRpaC4gDQoNCkZ1bmdzaSBgc2NhbGVfeF9jb250aW51b3VzYCBkYW4gYHNjYWxlX3lfY29udGludW91c2AgYmVyZnVuZ3NpIHVudHVrICBtZW5nb250cm9sIHBlbnNrYWxhYW4gbWFzaW5nLW1hc2luZyBwYWRhIHN1bWJ1IHggZGFuIHkuIEtpdGEgZGFwYXQgbWVuZ2d1bmFrYW4gb3BzaSBkYW4gZnVuZ3NpIGluaSB1bnR1ayBtZW1idWF0IHNjYXR0ZXJwbG90IHlhbmcgbGViaWggbWVuYXJpay4NCg0KIyMjIyBQbG90IFNlYmFyYW4gTWVueWVzdWFpa2FuIEdhcmlzIChTY2F0dGVycGxvdCBGaXQgTGluZXMpDQoNClNlcmluZ2thbGkgYmVyZ3VuYSB1bnR1ayBtZXJpbmdrYXMgaHVidW5nYW4geWFuZyBkaXRhbXBpbGthbiBwYWRhIHBsb3Qgc2ViYXJhbiBkZW5nYW4gbWVueWVzdWFpa2FuIGdhcmlzLiBCYW55YWsgamVuaXMgZ2FyaXMgeWFuZyBkaWR1a3VuZyBtaXNhbCwgbGluZWFyLCBwb2xpbm9taWFsLCBkYW4gbm9ucGFyYW1ldHJpayhsb2VzcykuIFNlY2FyYSBkZWFmdWx0LCBnYXJpcyBpbmkgZGl0YW1waWxrYW4gZGVuZ2FuIGJhdGFzIGtlcGVyY2F5YWFuIDk1JS4gDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpnZ3Bsb3QoU2FsYXJpZXMsDQogICAgICAgYWVzKHggPSB5cnMuc2luY2UucGhkLCANCiAgICAgICAgICAgeSA9IHNhbGFyeSkpICsNCiAgZ2VvbV9wb2ludChjb2xvcj0gInJlZCIpICsgICAgICAjIE1lbmVyYXBrYW4gd2FybmEgdGl0aWsNCiAgZ2VvbV9zbW9vdGgobWV0aG9kID0gImxtIiwgY29sb3IgPSAicGluayIpKyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgTWVuZXJhcGthbiB3YXJuYSBwYWRhIGdhcmlzDQogIHRoZW1lX21pbmltYWwoKSArICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogIGxhYnMoeCA9ICJZZWFycyBTaW5jZSBQaEQiLA0KICAgICAgIHkgPSAiIiwNCiAgICAgICB0aXRsZSA9ICJQZW5nYWxhbWFuIHZzIEdhamkiLA0KICAgICAgIHN1YnRpdGxlID0gIkdhamkgOSBidWxhbiB1bnR1ayAyMDA4LTIwMDkiKQ0KYGBgDQoNCkJlcmRhc2Fya2FuIGdyYWZpayBkaSBhdGFzLCBnYWppIGFrYW4gbWVuaW5na2F0IHNlc3VhaSBkZW5nYW4gcGVuZ2FsYW1hbiwgbmFtdW4gYWRhIHBlbnVydW5hbiBkaSBiYWdpYW4gdWp1bmcga2FuYW4tcHJvZmVzb3IgZGVuZ2FuIHBlbmdhbGFtYW4gc2lnbmlmaWthbiwgbWVuZGFwYXRrYW4gZ2FqaSB5YW5nIGxlYmloIHJlbmRhaC4gR2FyaXMgbHVydXMgdGlkYWsgbWVuYW5na2FwIGVmZWsgbm9uLWxpbmllciBpbmksIGdhcmlzIGRlbmdhbiBsZW5na3VuZ2FuIGFrYW4gbGViaWggcGFzDQoNCkdhcmlzIHJlZ3Jlc2kgcG9saW5vbWlhbCBha2FuIG1lbmFtcGlsa2FuIGdhcmlzIHlhbmcgcGFzIGRlbmdhbiBiZW50dWtueWEuIA0KJCR5Pc6yXzArzrJfMXgrzrJfMnheMivii68rzrJfbnheMiQkDQoNCkJpYXNhbnlhIGRpZ3VuYWthbiBnYXJpcyBrdWFkcmF0ICgkXjIkKSAoc2F0dSBsZW5na3VuZ2FuKSwgYXRhdSBrdWJpayAoJF4zJCkgKGR1YSBsZW5na3VuZ2FuKS4gUGVuZ2d1bmFhbiBwb2xpbm9taWFsIG9yZGUgdGluZ2dpICgkPjMkKSBqYXJhbmcgZGlwZXJsdWthbi4gTWVuZXJhcGthbiBrZXNlc3VhaWFuIGt1YWRyYXQgZGF0YSBrZSBkYXRhIGBHYWppYCBtZW5naGFzaWxrYW4gc2NhdHRlcnBsb3Qgc2ViYWdhaSBiZXJpa3V0LiANCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmdncGxvdChTYWxhcmllcywNCiAgICAgICBhZXMoeCA9IHlycy5zaW5jZS5waGQsIA0KICAgICAgICAgICB5ID0gc2FsYXJ5KSkgKw0KICBnZW9tX3BvaW50KGNvbG9yPSAiI2NjMzM5OSIpICsgICAgIyBNZW5lcmFwa2FuIHdhcm5hIHRpdGlrDQogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIA0KICAgICAgICAgICAgICBmb3JtdWxhID0geSB+IHBvbHkoeCwgMiksIA0KICAgICAgICAgICAgICBjb2xvciA9ICIjY2NmZmZmIikrICAgIyBNZW5lcmFwa2FuIHdhcm5hIHBhZGEgZ2FyaXMNCiAgdGhlbWVfbWluaW1hbCgpICsgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KICBsYWJzKHggPSAiWWVhcnMgU2luY2UgUGhEIiwNCiAgICAgICB5ID0gIiIsDQogICAgICAgdGl0bGUgPSAiUGVuZ2FsYW1hbiB2cyBHYWppIiwNCiAgICAgICBzdWJ0aXRsZSA9ICJHYWppIDkgYnVsYW4gdW50dWsgMjAwOC0yMDA5IikNCmBgYA0KDQpTZXRlbGFoIGdhcmlzIGRpcGVyaGFsdXMgc2NhdHRlcnBsb3QgbWVuYW1waWxrYW4gZ2FtYmFyIHlhbmcgbGViaWggamVsYXMgZGFuIG11ZGFoIGRpcGFoYW1pLiBEZWZhdWx0IGRpIGBnZ3Bsb3QyYCBhZGFsYWggZ2FyaXMgW2xvZXNzXShodHRwczovL3d3dy5pbWUudW5pY2FtcC5ici9+ZGlhcy9sb2Vzcy5wZGYpIHlhbmcgbWVtcGVyaGFsdXMgc2NhdHRlcnBsb3Qgc2NhcmEgbG9rYWwuIA0KDQpgYGB7cn0NCmxpYnJhcnkoZ2dwbG90MikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBVbnR1ayB2aXN1YWxpc2FzaQ0KZ2dwbG90KFNhbGFyaWVzLCANCiAgICAgICBhZXMoeCA9IHlycy5zaW5jZS5waGQsIA0KICAgICAgICAgICB5ID0gc2FsYXJ5KSkgKw0KICBnZW9tX3BvaW50KGNvbG9yPSJibGFjayIsIA0KICAgICAgICAgICAgIHNpemUgPSAyLCANCiAgICAgICAgICAgICBhbHBoYSA9IDEpICsNCiAgZ2VvbV9zbW9vdGgoc2l6ZSA9IDEsDQogICAgICAgICAgICAgIGNvbG9yID0gIm1hZ2VudGEiKSArDQogIHNjYWxlX3lfY29udGludW91cyhsYWJlbCA9IHNjYWxlczo6ZG9sbGFyLCANCiAgICAgICAgICAgICAgICAgICAgIGxpbWl0cyA9IGMoNTAwMDAsIDI1MDAwMCkpICsNCiAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLCA2MCwgMTApLCANCiAgICAgICAgICAgICAgICAgICAgIGxpbWl0cyA9IGMoMCwgNjApKSArDQogIHRoZW1lX21pbmltYWwoKSArICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogIGxhYnMoeCA9ICJZZWFycyBTaW5jZSBQaEQiLA0KICAgICAgIHkgPSAiIiwNCiAgICAgICB0aXRsZSA9ICJQZW5nYWxhbWFuIHZzIEdhamkiLA0KICAgICAgIHN1YnRpdGxlID0gIkdhamkgOSBidWxhbiB1bnR1ayAyMDA4LTIwMDkiKQ0KDQpgYGANCg0KIyMgS2F0ZWdvcmlrYWwgdnMgS29udGludQ0KDQpLZXRpa2EgbWVtcGxvdCBodWJ1bmdhbiBhbnRhciB2YXJpYWJlbCBrYXRlZ29yaWthbCBkZW5nYW4ga3VhbnRpdGF0aWYgLCB0ZXJzZWRpYSBiYW55YWsgamVuaXMgZ3JhZmlrIHlhbmcgZGFwYXQgZGlndW5ha2FuIG1pc2FsLCBkaWFncmFtIGJhdGFuZyBkZW5nYW4gc3VtbWFyeSBzdGF0aXN0aWssIHBsb3QgZGVuc2l0YXMga2VybmVsLCBib3ggcGxvdCwgdmlvbGluIHBsb3QsIG1lYW4vc2VtIHBsb3QsIHJpZGdlbGluZSBwbG90LCBkYW4gY2xldmVsYW5kIHBsb3QuIA0KDQojIyMgRGlhZ3JhbSBCYXRhbmcgKFJpbmdrYXNhbiBTdGF0aXN0aWspDQoNClBhZGEgYmFnaWFuLWJhZ2lhbiBzZWJlbHVtbnlhLCBkaWFncmFtIGJhdGFuZyBkaWd1bmFrYW4gdW50dWsgbWVuYW1waWxrYW4ganVtbGFoIHZhcmlhYmVsIGJhcmRhc2Fya2FuIGthdGVnb3JpIHVudHVrIHZhcmlhYmVsIHR1bmdnYWwgYXRhdSAyIHZhcmlhYmVsLiBEaWFncmFtIGJhdGFuZyBqdWdhIGRhcGF0IGRpZ3VuYWthbiB1bnR1ayBtZW5hbXBpbGthbiByaW5na2FzYW4gc3RhdGlzdGlrIHNlcGVydGkgbWVhbiBkYW4gbWVkaWFuIHBhZGEgdmFyaWFiZWwga3VhbnRpdGF0aWYgdW50dWsgdGlhcCB0aW5na2F0YW4gZGFyaSB2YXJpYWJlbCBrYXRlZ29yaWthbC4NCg0KQmVyaWt1dCBtZXJ1cGFrYW4gY29udG9oIGRpYWdyYW0gYmF0YW5nIHlhbmcgbWVudW5qdWthbiBtZWFuIGRhcmkgZ2FqaSBwcm9mZXNvciB1bml2ZXJzaXRhcyBiZXJkYXNhcmthbiBqYWJhdGFuIGFrYWRlbWlrLiANCg0KYGBge3J9DQpsaWJyYXJ5KGRwbHlyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgbWFuaXB1bGFzaSBkYXRhDQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmxpYnJhcnkoc2NhbGVzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBtZW5lbnR1a2FuIGplZGEgYXRhdSBsYWJlbCBzZWNhcmEgb3RvbWF0aXMNCmRhdGEoU2FsYXJpZXMsIHBhY2thZ2U9ImNhckRhdGEiKQ0KIyBoaXR1bmcgcmF0YS1yYXRhIHVudHVrIHNldGlhcCBKYWJhdGFuDQpwbG90ZGF0YSA8LSBTYWxhcmllcyAlPiUNCiAgZ3JvdXBfYnkocmFuaykgJT4lDQogIGRwbHlyOjpzdW1tYXJpemUobWVhbl9zYWxhcnkgPSBtZWFuKHNhbGFyeSkpDQojIE1lbWJ1YXQgcGxvdCBtZWFuIGdhamkgZGVuZ2FuIGNhcmEgeWcgbGViaWggbWVuYXJpaw0KbXljb2xzIDwtIGMoIiMwMDk5OTkiLCAiIzAwMDBGRiIsICIjRkREQkM3IikNCmdncGxvdChwbG90ZGF0YSwgDQogICAgICAgYWVzKHggPSBmYWN0b3IocmFuaywNCiAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBjKCJBc3Npc3RhbnRcblByb2Zlc3NvciIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiQXNzb2NpYXRlXG5Qcm9mZXNzb3IiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkZ1bGxcblByb2Zlc3NvciIpKSwgDQogICAgICAgICAgICAgICAgICAgICAgeSA9IG1lYW5fc2FsYXJ5KSkgKw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IiwgDQogICAgICAgICAgIGZpbGwgPSBteWNvbHMpICsNCiAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IGRvbGxhcihtZWFuX3NhbGFyeSkpLCANCiAgICAgICAgICAgIHZqdXN0ID0gLTAuMjUpICsNCiAgc2NhbGVfeV9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLCAxMzAwMDAsIDIwMDAwKSwgDQogICAgICAgICAgICAgICAgICAgICBsYWJlbCA9IGRvbGxhcikgKw0KICB0aGVtZV9taW5pbWFsKCkgKyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCiAgbGFicyh0aXRsZSA9ICJSYXRhLXJhdGEgR2FqaSBCZXJkYXNhcmthbiBKYWJhdGFuIiwgDQogICAgICAgc3VidGl0bGUgPSAiOSBidWxhbiBnYWppIGFrYWRlbWlrIHVudHVrIDIwMDgtMjAwOSIsDQogICAgICAgeCA9ICJKYWJhdGFuIiwNCiAgICAgICB5ID0gIkdhamkiKQ0KYGBgDQoNCiMjIyBQbG90IERlbnNpdGFzIEtlcm5lbCB5YW5nIERpa2Vsb21wb2trYW4NCg0KTWVtYmFuZGluZ2thbiBkYXRhIGtlbG9tcG9rIHBhZGEgdmFyaWFiZWwgbnVtZXJpay9rdWFudGl0YXRpZiBkYXBhdCBtZW5nZ3VuYWthbiBwbG90IGRlbnNpdGFzIGtlcm5lbCBkYWxhbSBzYXR1IGdyYWZpay4gQmVyaWt1dCBjb250b2ggZGlzdHJpYnVzaSBnYWppIGJlcmRhc2Fya2FuIGphYmF0YW4gZGVuZ2FuIHBsb3QgZGVuc2l0YXMga2VybmVsLiANCg0KYGBge3J9DQpnZ3Bsb3QoU2FsYXJpZXMsIA0KICAgICAgIGFlcyh4ID0gc2FsYXJ5LCANCiAgICAgICAgICAgZmlsbCA9IHJhbmspKSArDQogIGdlb21fZGVuc2l0eShhbHBoYSA9IDAuNCkgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICBsYWJzKHRpdGxlID0gIkRpc3RyaWJ1c2kgR2FqaSBCZXJkYXNhcmthbiBKYWJhdGFuIiwNCiAgICAgICB4ID0gIkdhamkiLA0KICAgICAgIHkgPSAiIikNCmBgYA0KDQpPcHNpIGBhbHBoYWAgbWVtYnVhdCBwbG90L2dyYWZpayBtZW5qYWRpIHNlYmFnaWFuIHRyYW5zcGFyYW4gc2VoaW5nZ2EgZGFwYXQgZGlsaWhhdCBkZW5nYW4gamVsYXMgYmFnaWFuIHlhbmcgdHVtcGFuZyB0aW5kaWguIFBhZGEgZ3JhZmlrIHRlcnNlYnV0IGRpamVsYXNrYW4gYmFod2EsIHNlY2FyYSB1bXVtIGdyYWZpayBha2FuIG1lbmluZ2thdCBzZXN1YWkgZGVuZ2FuIGphYmF0YW4uIE5hbXVuLCBraXNhcmFuIGdhamkgZnVsbCBwcm9mZXNvciBzYW5nYXQgbHVhcy4NCg0KIyMjIEJveHBsb3QNCg0KQm94cGxvdCBtZW1waWxrYW4gcHJlc2VudGlsIGtlLTI1LCBtZWRpYW4sIGRhbiBwcmVzZW50aWwga2UtNzUgZGFyaSBkaXN0cmlidXNpLiBHYXJpcyB2ZXJ0aWthbCBtZW5hbmdrYXAgc2VraXRhciA5OSUgZGFyaSBkaXN0cmlidXNpIG5vcm1hbCwgZGFuIHBlbmdhbWF0YW4gZGkgbHVhciBraXNhcmFuIGluaSBkaXBsb3Qgc2ViYWdhaSB0aXRpayB5YW5nIG1ld2FraWxpIG91dGxpZXIgKFBlcmhhdGlrYW4gZ2FtYmFyIGRpIGJhd2FoKS4NCg0KPGltZyBzdHlsZT0iZmxvYXQ6IHJpZ2h0OyBtYXJnaW46IDBweCAwcHggMHB4IDBweDsgd2lkdGg6MTAwJSIgc3JjPSJPay5wbmciLz4NCg0KcGxvdCBrb3RhayBzYW5nYXQgYmVyZ3VuYSB1bnR1ayBtZW1iYW5kaW5na2FuIHN1YXR1IGtlbG9tcG9rICh0aW5na2F0YW4gdmFyaWFiZWwga2F0ZWdvcmkpIHBhZGEgdmFyaWFiZWwgbnVtZXJpay4gUGxvdCBrb3RhayBiZXJ0YWtpayBtZW1iZXJpa2FuIG1ldG9kZSBwZXJraXJhYW4gdW50dWsgdmlzdWFsaXNhc2kgYXBha2FoIGtlbG9tcG9rIGJlcmJlZGEuIE1lc2tpcHVuIGJ1a2FuIHNlYnVhaCB0ZXMgZm9ybWFsLCBqaWthIHRha2lrIGRhcmkga2VkdWEgcGxvdCBrb3RhayB0aWRhayB0dW1wYW5nIHRpbmRpaCwgbWFrYSBhZGEgYnVrdGkga3VhdCAoa2VwZXJjYXlhYW4gOTUlKSBiYWh3YSBtZWRpYW4gZGFyaSBrZWR1YSBrZWxvbXBvayBiZXJiZWRhLg0KDQpgYGB7cn0NCmdncGxvdChTYWxhcmllcywgYWVzKHggPSByYW5rLCANCiAgICAgICAgICAgICAgICAgICAgIHkgPSBzYWxhcnkpKSArDQogIGdlb21fYm94cGxvdChub3RjaCA9IFRSVUUsIA0KICAgICAgICAgICAgICAgZmlsbCA9IGMoImxpZ2h0Z3JlZW4iLCAiY3lhbiIsICJyZWQiKSwgDQogICAgICAgICAgICAgICBhbHBoYSA9IC43KSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIGxhYnModGl0bGUgPSAiRGlzdHJpYnVzaSBHYWppIEJlcmRhc2Fya2FuIEphYmF0YW4iLA0KICAgICAgIHggPSAiSmFiYXRhbiIsDQogICAgICAgeSA9ICJHYWppIikNCmBgYA0KDQpQYWRhIGNvbnRvaCBkaSBhdGFzLCAzIGtlbG9tcG9rIG11bmN1bCBwYWRhIHBvc2lzaSB5YW5nIGJlcmJlZGEuIFNhbGFoIHNhdHUga2V1bnR1bmdhbiBkYXJpIGJveHBvbHQgYWRhbGFoIGxlYmFyIGJlbnR1ayB5YW5nIHRpZGFrIGJpYXNhbnlhIG1lbWlsaWtpIGFydGkuIEhhbCBpbmkgZGFwYXQgbWVtYmFuZGluZ2thbiBkaXN0cmlidXNpIGRhcmkgYmFueWFrIGtlbG9tcG9rIHBhZGEgc2F0dSBncmFmaWsuIEppa2EgZGlsaWhhdCBwYWRhIGJveHBsb3QgYmFnaWFuIHByb2Zlc29yIG1lbWlsaWtpIHVrdXJhbiB5YW5nIGN1a3VwIGxlYmFyLCBoYWwgdGVyc2VidXQgbWVudWp1a2FuIGtlbXVuZ2tpbmFuIHRlcmRhcGF0IG91dGxpZXIgZGkgZGFsYW1ueWEuIA0KDQojIyMgVmlvbGluIFBsb3QNCg0KVmlvbGluIHBsb3QgbWlyaXAgZGVuZ2FuIHBsb3QgZGVuc2l0YXMga2VybmVsIHRldGFwaSBwYWRhIHZpb2xpbiBwbG90LCBncmFmaWsgZGljZXJtaW5rYW4gZGFuIGRpcHV0YXIgJDkwXuKImCQuIEJlcmlrdXQgdmlzdWFsaXNhc2kgdmlvbGluIHBsb3QgZGFyaSBkaXN0cmlidXNpIGdhamkgYmVyZGFzYXJrYW4gamFiYXRhbi4NCg0KYGBge3J9DQpnZ3Bsb3QoU2FsYXJpZXMsIGFlcyh4ID0gcmFuaywNCiAgICAgICAgICAgICAgICAgICAgIHkgPSBzYWxhcnkpKSArDQogIGdlb21fdmlvbGluKGZpbGwgPSAiYXp1cmUxIikgKw0KICBnZW9tX2JveHBsb3Qod2lkdGggPSAuMiwgDQogICAgICAgICAgICAgICBmaWxsID0gYygiI0Y0QTU4MiIsICIjRkREQkM3IiwgIiNEMUU1RjAiKSwNCiAgICAgICAgICAgICAgIG91dGxpZXIuY29sb3IgPSAic2t5Ymx1ZSIsDQogICAgICAgICAgICAgICBvdXRsaWVyLnNpemUgPSAyKSArIA0KICB0aGVtZV9taW5pbWFsKCkgKw0KICBsYWJzKHRpdGxlID0gIkRpc3RyaWJ1c2kgR2FqaSBCZXJkYXNhcmthbiBKYWJhdGFuIikNCmBgYA0KDQojIyMgUmlkZ2VsaW5lIFBsb3QNCg0KUGxvdCBpbmkganVnYSBkaWtlbmFsIGRlbmdhbiBqb3kgcGxvdCB5YW5nIG1hbmFtcGlsa2FuIGRpc3RyaWJ1c2kgdmFyaWFiZWwga3VhbnRpdGF0aWYgdW50dWsgYmViZXJhcGEga2Vsb21wb2suIFJpZGdlbGluZSBtaXJpcCBkZW5nYW4gcG9sdCBkZW5zaXRhcyBrZXJuZWwgZGFyaSBzZWdpIGZhY2V0aW5nIHZlcnRpa2FsIHRldGFwaSBtZW1ha2FpIGxlYmloIHNlZGlraXQgcnVhbmcuIFVudHVrIG1lbWJ1YXQgcmlkZ2VsaW5lIHBlcmx1IHVudHVrIG1lbmdpbnN0YWxsIHBhY2thZ2UgYGdncmlkZ2VzYC4NCkJlcmlrdXQgY29udG9oIHJpZGdlbGluZSBwbG90IGRlbmdhbiBtZW5nZ3VuYWthbiBkYXRhc2V0IGZ1ZWwgZWNvbm9teS4gUGxvdCBtaWwgcGVyamFsYW5hbiBrb3RhIHBlcmdhbG9uIGRlbmdhbiBrZWxhcyBtb2JpbC4NCg0KYGBge3J9DQpsaWJyYXJ5KGRwbHlyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgbWFuaXB1bGFzaSBkYXRhDQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmxpYnJhcnkoZ2dyaWRnZXMpICAgICAgICAgICAgICAgICAgICAgICAgICMgdW50dWsgbWVuYW5nYW5pIHZpc3VhbGlzYXNpIHlhbmcgYmVyc2FtYWFuDQpnZ3Bsb3QobXBnLCANCiAgICAgICBhZXMoeCA9IGN0eSwgDQogICAgICAgICAgIHkgPSBjbGFzcywgDQogICAgICAgICAgIGZpbGwgPSBjbGFzcykpICsNCiAgZ2VvbV9kZW5zaXR5X3JpZGdlcyhhbHBoYSA9IDAuNykgKyANCiAgdGhlbWVfcmlkZ2VzKCkgKw0KICBsYWJzKCJKYXJhayBCZXJrZW11ZGkgZGVuZ2FuIEtlbGFzIE90b21hdGlzIikgKw0KICB0aGVtZShsZWdlbmQucG9zaXRpb24gPSAibm9uZSIpDQpgYGANClBlcmhhdGlrYW4ga2VtdW5na2luYW4gdHVtcGFuZyB0aW5kaWggZGlzdHJpYnVzaSBhZGFsYWggbGViaWgga2VwYWRhIGdyYWZpayBtb2JpbCBjb21wYWN0LiBVTnR1ayBtZW5ndWJhaCB0cmFuc3BhcmFuc2kgZ3JhZmlrIGRhcGF0IG1lbmdndW5ha2FuIGtvZCBgZ2VvbV9kZW5zaXR5X3JpZGdlcyAoYWxwaGE9biksIG4gYmVya2lzYXIgMC0xLg0KDQojIyMgTGluZSBQbG90DQoNCk1ldG9kZSBwb3B1bGVyIHVudHVrIG1lbWJhbmRpbmdrYW4ga2Vsb21wb2sgcGFkYSB2YXJpYWJlbCBudW1lcmlrIGFkYWxhaCBwbG90IHJhdGEtcmF0YSBkZW5nYW4gZXJyb3IgYmFyLiBFcnJvciBiYXIgZGFwYXQgbWV3YWtpbGthbiBzdGFuZGFyIGRldmFzaSwgc3RhbmRhciBlcnJvciBkYXJpIG1lYW4sIGF0YXUgaW50ZXJ2YWwga2VwZXJjYXlhYW4uIENvbnRvaCBwYWRhIGJhZ2lhbiBpbmkgeWFpdHUsIG1lbXBsb3QgbWVhbiBkYW4gc3RhbmRhciBlcnJvci4gRGFwYXQgZGlndW5ha2FuIHRla25payB5YW5nIHNhbWEgdW50dWsgbWVtYmFuZGluZ2thbiBnYWppIGJlcmRhc2Fya2FuIGphYmF0YW4gZGFuIGplbmlzIGtlbGFtaW4uIA0KDQpgYGB7cn0NCmxpYnJhcnkoZHBseXIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBVbnR1ayBtYW5pcHVsYXNpIGRhdGENCmxpYnJhcnkoZ2dwbG90MikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBVbnR1ayB2aXN1YWxpc2FzaQ0KbGlicmFyeShnZ3JpZGdlcykgICAgICAgICAgICAgICAgICAgICAgICAgIyB1bnR1ayBtZW5hbmdhbmkgdmlzdWFsaXNhc2kgeWFuZyBiZXJzYW1hYW4NCiMgTWVuZ2hpdHVuZyBtZWFuLCBzdGFuZGFyIGRldmlhc2ksIHN0YW5kYXIgZXJyb3IsIGRhbiA5NSUgaW50ZXJ2YWwga2VwZXJjYXlhYW4gYmVyZGFzYXJrbiBqYWJhdGFuDQpwbG90ZGF0YSA8LSBTYWxhcmllcyAlPiUNCiAgZ3JvdXBfYnkocmFuaywgc2V4KSAlPiUNCiAgZHBseXI6OnN1bW1hcml6ZShuID0gbigpLA0KICAgICAgICAgICAgbWVhbiA9IG1lYW4oc2FsYXJ5KSwNCiAgICAgICAgICAgIHNkID0gc2Qoc2FsYXJ5KSwNCiAgICAgICAgICAgIHNlID0gc2Qvc3FydChuKSwNCiAgICAgICAgICAgIGNpID0gcXQoMC45NzUsIGRmID0gbiAtIDEpICogc2QgLyBzcXJ0KG4pKQ0KIyBwbG90IG1lYW4vc3RhbmRhciBlcnJvciB5YW5nIGRpcGVyYmFydWkNCnBkIDwtIHBvc2l0aW9uX2RvZGdlKDAuMikNCmdncGxvdChwbG90ZGF0YSwgDQogICAgICAgYWVzKHggPSBmYWN0b3IocmFuaywgDQogICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gYygiQXNzaXN0YW50XG5Qcm9mZXNzb3IiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkFzc29jaWF0ZVxuUHJvZmVzc29yIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJGdWxsXG5Qcm9mZXNzb3IiKSksIA0KICAgICAgICAgICB5ID0gbWVhbiwgDQogICAgICAgICAgIGdyb3VwPXNleCwgDQogICAgICAgICAgIGNvbG9yPXNleCkpICsNCiAgZ2VvbV9wb2ludChwb3NpdGlvbj1wZCwgDQogICAgICAgICAgICAgc2l6ZSA9IDMpICsNCiAgZ2VvbV9saW5lKHBvc2l0aW9uID0gcGQsIA0KICAgICAgICAgICAgc2l6ZSA9IDEpICsNCiAgZ2VvbV9lcnJvcmJhcihhZXMoeW1pbiA9IG1lYW4gLSBzZSwgDQogICAgICAgICAgICAgICAgICAgIHltYXggPSBtZWFuICsgc2UpLCANCiAgICAgICAgICAgICAgICB3aWR0aCA9IC4xLCANCiAgICAgICAgICAgICAgICBwb3NpdGlvbiA9IHBkLCANCiAgICAgICAgICAgICAgICBzaXplID0gMSkgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWwgPSBzY2FsZXM6OmRvbGxhcikgKw0KICBzY2FsZV9jb2xvcl9icmV3ZXIocGFsZXR0ZT0iU2V0MSIpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgbGFicyh0aXRsZSA9ICJSYXRhLXJhdGEgR2FqaSBCZXJkYXNhcmthbiBKYWJhdGFuIGRhbiBKZW5pcyBLZWxhbWluIiwNCiAgICAgICBzdWJ0aXRsZSA9ICIobWVhbiArLy0gc3RhbmRhciBlcnJvcikiLA0KICAgICAgIHggPSAiIiwgDQogICAgICAgeSA9ICIiLA0KICAgICAgIGNvbG9yID0gIkplbmlzIEtlbGFtaW4iKQ0KYGBgDQoNCiMjIyBKaXR0ZXIgUGxvdA0KSHVidW5nYW4gYW50YXJhIHZhcmlhYmVsIGthdGVnb3Jpa2FsIGRhbiB2YXJpYWJlbCBudW1lcmlrIGRhcGF0IGRpdGFtcGlsa2FuIGRlbmdhbiBwbG90IHNlYmFyYW4oc2NhdHRlcnBsb3QpLiBDb250b2gsIHBsb3QgZGlzdHJpYnVzaSBnYWppIGJlcmRhc2Fya2FuIGphYmF0YW4gZGVuZ2FuIG1lbmdndW5ha2FuIGppdHRlciBwbG90IHlhaXR1IHNjYXR0ZXJwbG90IHNhdHUgZGltZW5zaS4gU2F5YW5nbnlhLCBwZW5jZXRha2FuIHRpdGlrIHlhbmcgYmVybGViaWhhbiBtZW1idWF0IGludGVycHJldGFzaW55YSBtZW5qYWRpIHN1bGl0LiBIVWJ1bmdhbm55YSBtZW5qYWRpIGxlYmloIG11ZGFoIGRpbGloYXQgamlrYSB0aXRpay10aXRpa255YSBnb3lhaC4gUGFkYSBkYXNhcm55YSwgYmlsYW5nYW4ga2VjaWwgYWNhayBkaXRhbWJhaGthbiBrZSBzZXRpYXAga29vcmRpbmF0IHkuIGFrYW4gbGViaWggbXVkYWggdW50dWsgbWVtYmFuZGluZ2thbiBkZW5nYW4gbWVuYW1iYWhrYW4vbWVuZXJhcGthbiB3YXJuYS4gDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpsaWJyYXJ5KHNjYWxlcykgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgbWVuZW50dWthbiBqZWRhIGF0YXUgbGFiZWwgc2VjYXJhIG90b21hdGlzDQpnZ3Bsb3QoU2FsYXJpZXMsIA0KICAgICAgIGFlcyh5ID0gZmFjdG9yKHJhbmssDQogICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gYygiQXNzaXN0YW50XG5Qcm9mZXNzb3IiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkFzc29jaWF0ZVxuUHJvZmVzc29yIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJGdWxsXG5Qcm9mZXNzb3IiKSksIA0KICAgICAgICAgICB4ID0gc2FsYXJ5LCANCiAgICAgICAgICAgY29sb3IgPSByYW5rKSkgKw0KICBnZW9tX2ppdHRlcihhbHBoYSA9IDAuNywNCiAgICAgICAgICAgICAgc2l6ZSA9IDEuNSkgKyANCiAgc2NhbGVfeF9jb250aW51b3VzKGxhYmVsID0gZG9sbGFyKSArDQogIGxhYnModGl0bGUgPSAiR2FqaSBBa2FkZW1payBCZXJkYXNhcmthbiBKYWJhdGFuIiwgDQogICAgICAgc3VidGl0bGUgPSAiR2FqaSA5IGJ1bGFuIHVudHVrIDIwMDgtMjAwOSIsDQogICAgICAgeCA9ICJHYWppIiwNCiAgICAgICB5ID0gIkphYmF0YW4iKSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikNCmBgYA0KT3BzaSBgKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIilgIGRpZ3VuYWthbiB1bnR1ayBtZW55ZW1idW55aWthbiBsZWdlbmQgKCBoYWwgeWFuZyB0aWRhayBkaXBlcmx1a2FuLiBKaXR0ZXIgcGxvdCBiZXJrZXJqYSBkZW5nYW4gYmFpayBqaWthIGp1bWxhaCBkYXJpIHRpdGlrLXRpdGlrIHRpZGFrIHRlcmxhbHUgYmVzYXIpLg0KDQojIyMgTWVuZ2dhYnVuZ2thbiBKaXR0ZXIgUGxvdCBkYW4gQm94cGxvdA0KTXVuZ2tpbiBha2FuIGxlYmloIG11ZGFoIG1lbXZpc3VhbGlzYXNpa2FuIGRpc3RyaWJ1c2kgamlrYSBraXRhIG1lbmFtYmFoa2FuIGJveHBsb3Qga2Ugaml0dGVyIHBsb3QuIEJlYmVyYXBhIG9wc2kgdGVsYWggZGl0YW1iYWhrYW4gdW50dWsgbWVtYnVhdCBqaXR0ZXIgcGxvdC4NCg0KKiBVbnR1ayBib3hwbG90Og0KDQoqKmBzaXplID0gMWAqKiA6IHVudHVrIGtldGViYWxhbiBnYXJpcw0KDQoqKmBvdXRsaWVyLmNvbG9yID0gImJsYWNrImAqKiA6IG1lbWJ1YXQgb3V0bGllciBiZXJ3YXJuYSBoaXRhbQ0KDQoqKmBvdXRsaWVyLnNoYXBlID0gMmAqKiA6IEJlbnR1ayBvdXRsaWVyDQoNCioqYG91dGxpZXIuc2l6ZSA9IDNgKiogOiBtZW5hbWJhaCB1a3VyYW4gb3V0bGllcg0KDQoqIFVudHVrIGppdHRlciBwbG90Og0KDQoqKmBhbHBoYSA9IDAuNWAqKiA6IHVudHVrIGtlamVsYXNhbiB0aXRpayAodHJhbnNwYXJhbiBhdGF1IHRpZGFrKQ0KDQoqKmB3aWR0aCA9IC4yYCoqIDogbWVudXJ1bmthbiBuaWxhaSBqaXR0ZXIgKC40IGFkYWxhaCBuaWxhaSBqaXR0ZXIgZGVmYXVsdCkNCg0KVGVyYWtoaXIsIHN1bWJ1IHggZGFuIHkga2l0YSBwdXRhciBwb3Npc2kgbWVuZ2d1bmFrYW4gZnVuZ3NpIGBjb29yZF9mbGlwYA0KDQpgYGB7cn0NCmdncGxvdChTYWxhcmllcywgDQogICAgICAgYWVzKHggPSBmYWN0b3IocmFuaywNCiAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSBjKCJBc3Npc3RhbnRcblByb2Zlc3NvciIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiQXNzb2NpYXRlXG5Qcm9mZXNzb3IiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkZ1bGxcblByb2Zlc3NvciIpKSwgDQogICAgICAgICAgIHkgPSBzYWxhcnksIA0KICAgICAgICAgICBjb2xvciA9IHJhbmspKSArDQogIGdlb21fYm94cGxvdChzaXplPTEsDQogICAgICAgICAgICAgICBvdXRsaWVyLnNoYXBlID0gMiwNCiAgICAgICAgICAgICAgIG91dGxpZXIuY29sb3IgPSAiYmxhY2siLA0KICAgICAgICAgICAgICAgb3V0bGllci5zaXplICA9IDMpICsNCiAgZ2VvbV9qaXR0ZXIoYWxwaGEgPSAwLjUsIA0KICAgICAgICAgICAgICB3aWR0aD0uMikgKyANCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVsID0gZG9sbGFyKSArDQogIGxhYnModGl0bGUgPSAiR2FqaSBBa2FkZW1payBCZXJkYXNhcmthbiBKYWJ0YW4iLCANCiAgICAgICBzdWJ0aXRsZSA9ICJHYWppIDkgYnVsYW4gdW50dWsgMjAwOC0yMDA5IiwNCiAgICAgICB4ID0gIiIsDQogICAgICAgeSA9ICIiKSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikgKw0KICBjb29yZF9mbGlwKCkNCmBgYA0KDQpQZXJoYXRpa2FuIGZ1bmdzaSBgZ2VvbV9ib3hqaXR0ZXJgIHlhbmcgdGVyc2VkaWEgZGFsYW0gcGFjYWthZ2UgYGdncG9sYC4gRnVuZ3NpIHRlcnNlYnV0IGRhcGF0IG1lbWJ1YXQgYm94cGxvdCBoaWJyaWRhLCBib3hwbG90IHNldGVuZ2FoLCBkYW4gc2NhdHRlcnBsb3Qgc2V0ZW5nYWguDQoNCmBgYHtyfQ0KbGlicmFyeShnZ3BvbCkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIGJveHBsb3QgaGlicmlkDQpnZ3Bsb3QoU2FsYXJpZXMsIA0KICAgICAgIGFlcyh4ID0gZmFjdG9yKHJhbmssDQogICAgICAgICAgICAgICAgICAgICAgbGFiZWxzID0gYygiQXNzaXN0YW50XG5Qcm9mZXNzb3IiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkFzc29jaWF0ZVxuUHJvZmVzc29yIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJGdWxsXG5Qcm9mZXNzb3IiKSksIA0KICAgICAgICAgICB5ID0gc2FsYXJ5LCANCiAgICAgICAgICAgZmlsbD1yYW5rKSkgKw0KICBnZW9tX2JveGppdHRlcihjb2xvcj0iYmxhY2siLA0KICAgICAgICAgICAgICAgICBqaXR0ZXIuY29sb3IgPSAiIzk5NjZGRiIsDQogICAgICAgICAgICAgICAgIGVycm9yYmFyLmRyYXcgPSBUUlVFKSArDQogIHNjYWxlX3lfY29udGludW91cyhsYWJlbCA9IGRvbGxhcikgKw0KICBsYWJzKHRpdGxlID0gIkdhamkgQWthZGVtaWsgQmVyZGFzYXJrYW4gSmFiYXRhbiIsIA0KICAgICAgIHN1YnRpdGxlID0gIkdhamkgOSBidWxhbiB1bnR1ayAyMDA4LTIwMDkiLA0KICAgICAgIHggPSAiIiwNCiAgICAgICB5ID0gIiIpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKQ0KYGBgDQoNCiMjIyBCZWVzd2FybSBQbG90IChQbG90IEthd2FuYW4gTGViYWgpDQoNClBsb3QgaW5pIGp1Z2EgZGlzZWJ1dCBkZW5nYW4gdmlvbGluIHBsb3QgZGFuIG1pcmlwIGRlbmdhbiBqaXR0ZXIgcGxvdCwgZGkgbWFuYSBwbG90IHRlcnNlYnV0IG1lbmFtcGlsa2FuIGRpc3RyaWJ1c2kgZGFyaSB2YXJpYWJlbCBrdWFudGl0YXRpZiBkZW5nYW4gbWVtcGxvdCB0aXRpay10aXRpayBkZW5nYW4gY2FyYSBtZW5ndXJhbmdpIHR1bXBhbmcgdGluZGloLiBTZWxhaW4gaXR1LCBtZW1iYW50dSBtZW5hbXBpbGthbiBkZW5zaXRhcyBkYXJpIGRhdGEgZGkgdGlhcCB0aXRrIGRlbmdhbiBjYXJhIHlhbmcgbWlyaXAgZGVuZ2FuIHZpb2xpbiBwbG90LiBUZXJsZWJpaCBkYWh1bHUgaW5zdGFsbCBwYWNrYWdlIGBnZ2JlZXN3YXJtYC4NCg0KYGBge3J9DQpsaWJyYXJ5KGdncGxvdDIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgVW50dWsgdmlzdWFsaXNhc2kNCmxpYnJhcnkoc2NhbGVzKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBtZW5lbnR1a2FuIGplZGEgYXRhdSBsYWJlbCBzZWNhcmEgb3RvbWF0aXMNCmxpYnJhcnkoZ2diZWVzd2FybSkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyBwYWNrYWdlIHlhbmcgZGlwZXJsdWthbiB1bnR1ayBwbG90IGluaQ0KZ2dwbG90KFNhbGFyaWVzLCANCiAgICAgICBhZXMoeCA9IGZhY3RvcihyYW5rLA0KICAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IGMoIkFzc2lzdGFudFxuUHJvZmVzc29yIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJBc3NvY2lhdGVcblByb2Zlc3NvciIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiRnVsbFxuUHJvZmVzc29yIikpLCANCiAgICAgICAgICAgeSA9IHNhbGFyeSwgDQogICAgICAgICAgIGNvbG9yID0gcmFuaykpICsNCiAgZ2VvbV9xdWFzaXJhbmRvbShhbHBoYSA9IDAuNywNCiAgICAgICAgICAgICAgICAgICBzaXplID0gMS41KSArIA0KICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWwgPSBkb2xsYXIpICsNCiAgbGFicyh0aXRsZSA9ICJHYWppIEFrYWRlbWlrIEJlcmRhc2Fya2FuIEphYmF0YW4iLCANCiAgICAgICBzdWJ0aXRsZSA9ICJHYWppIDkgYnVsYW4gdW50dWsgMjAwOC0yMDA5IiwNCiAgICAgICB4ID0gIkphYmF0YW4iLA0KICAgICAgIHkgPSAiR2FqaSIpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiKQ0KYGBgDQoNCkJlZXN3YXJtIFBsb3QgZGlidWF0IGRlbmdhbiBmdW5nc2kgYGdlb21fcXVhc2lyYW5kb21gLiBCZWVzd2FybSBwbG90IGxlYmloIG11ZGFoIGRpcGFoYW1pIGRhcmlwYWRhIGppdHRlciBwbG90IHNlZGVyaGFuYS4gDQoNCiMjIyBESWFncmFtIFRpdGlrIENsZXZlbGFuZA0KDQpESWFncmFtIGluaSBiZXJndW5hIHVudHVrIG1lbWJhbmRpbmdrYW4gc3RhdGlzdGlrIG51bWVyaWsgZGFsYW0ga2Vsb21wb2sgYmVzYXIuIE1pc2FsIG1lbWJhbmRpbmdrYW4gYW5na2EgaGFyYXBhbiBoaWR1cCBwYWRhIHRhaHVuIDIwMDcgZGkgbmVnYXJhIEFzaWEgZGVuZ2FuIG1lbmdndW5ha2FuIGRhdGEgc2V0IGBnYXBtaW5kZXJgLiBJbnN0YWwgcGFja2FnZSBgZ2FwbWluZGVyYCB0ZXJsZWJpaCBkYWh1bHUuDQoNCmBgYHtyfQ0KbGlicmFyeShkcGx5cikgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIG1hbmlwdWxhc2kgZGF0YQ0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpsaWJyYXJ5KHNjYWxlcykgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgTWVuZW50dWthbiBqZWRhIGF0YXUgbGFiZWwgc2VjYXJhIG90b21hdGlzDQpsaWJyYXJ5KGdnYmVlc3dhcm0pICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgTWVuZ3VyYW5naSB0dW1wYW5nIHRpbmRpaCBwYWRhIGdyYWZpaw0KbGlicmFyeShnYXBtaW5kZXIpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIGRhdGFzZXQgYGdhcG1pbmRlcmANCmRhdGEoZ2FwbWluZGVyLCBwYWNrYWdlPSJnYXBtaW5kZXIiKSAgICAgICAgICAgICAgICAgIyBtZW11YXQgZGF0YXNldCBgZ2FwbWluZGVyYCANCiMgc3Vic2V0IG5lZ2FyYS1uZWdhcmEgZGkgQXNpYSAyMDA3DQpwbG90ZGF0YSA8LSBnYXBtaW5kZXIgJT4lDQogIGZpbHRlcihjb250aW5lbnQgPT0gIkFzaWEiICYgDQogICAgICAgICB5ZWFyID09IDIwMDcpDQojIENsZXZlbGFuZCBwbG90DQpnZ3Bsb3QocGxvdGRhdGEsIA0KICAgICAgIGFlcyh4PWxpZmVFeHAsIA0KICAgICAgICAgICB5PXJlb3JkZXIoY291bnRyeSwgbGlmZUV4cCkpKSArDQogIGdlb21fcG9pbnQoY29sb3I9ImRhcmtvcmNoaWQ0IiwgDQogICAgICAgICAgICAgc2l6ZSA9IDIpICsNCiAgZ2VvbV9zZWdtZW50KGFlcyh4ID0gNDAsIA0KICAgICAgICAgICAgICAgeGVuZCA9IGxpZmVFeHAsIA0KICAgICAgICAgICAgICAgeSA9IHJlb3JkZXIoY291bnRyeSwgbGlmZUV4cCksIA0KICAgICAgICAgICAgICAgeWVuZCA9IHJlb3JkZXIoY291bnRyeSwgbGlmZUV4cCkpLA0KICAgICAgICAgICAgICAgY29sb3IgPSAiIzk5NjZmZiIpICsNCiAgbGFicyAoeCA9ICJIYXJhcGFuIEhpZHVwICh0YWh1bikiLA0KICAgICAgICB5ID0gIiIsDQogICAgICAgIHRpdGxlID0gIkhhcmFwYW4gSGlkdXAgQmVyZGFzYXJrYW4gTmVnYXJhIiwNCiAgICAgICAgc3VidGl0bGUgPSAiR2FwTWluZGVyIGRhdGEgZm9yIEFzaWEgLSAyMDA3IikgKw0KICB0aGVtZV9taW5pbWFsKCkgKyANCiAgdGhlbWUocGFuZWwuZ3JpZC5tYWpvciA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgICAgcGFuZWwuZ3JpZC5taW5vciA9IGVsZW1lbnRfYmxhbmsoKSkNCmBgYA0KDQpCZXJkYXNhcmthbiBncmFmaWsgZGkgYXRhcywgSmVwYW5nIG1lbWlsaWtpIGFuZ2thIGhhcmFwYW4gaGlkdXAgeWFuZyBwYWxpbmcgdGluZ2dpLCBzZWRhbmdrYW4gQWZnaGFuaXN0YW4gbWVtaWxpa2kgYW5na2EgaGFyYXBhbiBoaWR1cCBwYWxpbmcgcmVuZGFoLg0KDQojIERhdGEgTXVsdGl2YXJpYW50DQpHcmFmaWsgbXVsdGl2YXJpYW50IG1lbmFtcGlsa2FuIGh1YnVuZ2FuIGFudGFyYSB0aWdhIHZhcmlhYmVsIGF0YXUgbGViaWguIFRlcmRhcGF0IGR1YSBtZXRvZGUgdW11bSB1bnR1ayBtZW5hbXB1bmcgdmFyaWFiZWwsIHlhaXR1IHBlbmdlbG9tcG9rYW4gZGFuIGZhY2V0aW5nLg0KDQojIyBQZW5nZWxvbXBva2FuDQoNClBhZGEgbWV0b2RlIGluaSwgbmlsYWkgZHVhIHZhcmlhYmVsIHBlcnRhbWEgZGlwZXRha2thbiBwYWRhIHN1bWJ1IHggZGFuIHkga2VtdWRpYW4gdmFyaWFiZWwgdGFtYmFoYW4gZGlwZXRha2thbiBwYWRhIGthcmFrdGVyaXN0aWsgdmlzdWFsIGxhaW5ueWEsIHNlcGVydGkgd2FybmEsIGJlbnR1aywgdWt1cmFuLCBnYXJpcywgZGFuIHRyYW5zcGFyYW5zaS4gUGVuZ2Vsb21wb2thbiBtZW11bmdraW5rYW4gdW50dWsgbWVtcGxvdCBkYXRhIGJlYmVyYXBhIGdydXAgZGFsYW0gc2F0dSBncmFmaWsuIERlbmdhbiBtZW5nZ3VuYWthbiBkYXRhIHNldCBgU2FsYXJpZXNgLCBiZXJpa3V0IGh1YnVuZ2FuIGFudGFyYSBgeXJzLnNpbmNlLnBoZGAgZGFuIGBzYWxhcnlgLg0KDQpgYGB7cn0NCmxpYnJhcnkoY2FyRGF0YSkgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIyB1bnR1ayBkYXRhc2V0DQpkYXRhKFNhbGFyaWVzLCBwYWNrYWdlPSJjYXJEYXRhIikNCmdncGxvdChTYWxhcmllcywgYWVzKHggPSB5cnMuc2luY2UucGhkLCANCiAgICAgICAgICAgICAgICAgICAgIHkgPSBzYWxhcnksIA0KICAgICAgICAgICAgICAgICAgICAgY29sb3I9cmFuaykpICsNCiAgZ2VvbV9wb2ludCgpICsNCiAgdGhlbWVfbWluaW1hbCgpICsNCiAgbGFicyh0aXRsZSA9ICJHYWppIEFrYWRlbWlrIEJlcmRhc2Fya2FuIFBhbmdrYXQgZGFuIFRhaHVuIFNlamFrIEdlbGFyIiwNCiAgICAgICB5ID0gIkdhamkiLA0KICAgICAgIGNvbG9yID0gIkphYmF0YW4iKQ0KYGBgDQpLZW11ZGlhbiwgdGFtYmFoa2FuIGplbmlzIGtlbGFtaW4gZGVuZ2FuIG1lbmdndW5ha2FuIGJlbnR1ayB0aXRpay4gVGluZ2thdGthbiB1a3VyYW4gdGl0aWsgZGFuIHRhbWJhaGthbiB0aW5na2F0IHRyYW5zcGFyYW5zaSB1bnR1ayBtZW1wZXJqZWxhcyBncmFmaWsuIA0KDQpgYGB7cn0NCmdncGxvdChTYWxhcmllcywgDQogICAgICAgYWVzKHggPSB5cnMuc2luY2UucGhkLCANCiAgICAgICAgICAgeSA9IHNhbGFyeSwgDQogICAgICAgICAgIGNvbG9yID0gcmFuaywgDQogICAgICAgICAgIHNoYXBlID0gc2V4KSkgKw0KICBnZW9tX3BvaW50KHNpemUgPSAzLCBhbHBoYSA9IC42KSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIGxhYnModGl0bGUgPSAiR2FqaSBBa2FkZW1payBCZXJkYXNhcmthbiBKYWJhdGFuLCBKZW5pcyBLZWxhbWluLCBkYW4gVGFodW4gU2VqYWsgR2VsYXIiLA0KICAgICAgIHkgPSAiR2FqaSIsDQogICAgICAgY29sb3IgPSAiSmFiYXRhbiIsDQogICAgICAgc2hhcGUgPSAiSmVuaXMgS2VsYW1pbiIpDQpgYGANCg0KR3JhZmlrIGRpIGF0YXMgdGFtcGFrIHNhbmdhdCByaWJldCBkYW4gbXVuZ2tpbiBzdWxpdCB1bnR1ayBtZW1iZWRha2FuIGplbmlzIGtlbGFtaW4uIEZhY2V0aW5nIG11bmdraW4gbWVuamFkaSBzb2x1c2kgeWFuZyBsZWJpaCBiYWlrLg0KDQpQZXJoYXRpa2FuIHBlcmJlZGFhbiBhbnRhcmEgbWVuZXRhcGthbiBuaWxhaSBrb25zdGFuIChzZXBlcnRpIHNpemUgPSAzKSBkYW4gcGVtZXRhYW4gdmFyaWFiZWwga2Uga2FyYWt0ZXJpc3RpayB2aXN1YWwgKG1pc2FsbnlhLCBjb2xvciA9IHJhbmspLiBQZW1ldGFhbiBzZWxhbHUgZGl0ZW1wYXRrYW4gZGkgZGFsYW0gZnVuZ3NpIGFlcywgc2VkYW5na2FuIHBlbmV0YXBhbiBuaWxhaSBrb25zdGFudGEgc2VsYWx1IG11bmN1bCBkaSBsdWFyIGZ1bmdzaSBhZXMuIA0KDQpCZXJpa3V0IGluaSBtZXJ1cGFrYW4gY29udG9oIHlhbmcgbGViaWggamVsYXMuIENvbnRvaCBncmFmaWsgeWFuZyBtZW5nZ2FtYmFya2FuIGh1YnVuZ2FuIGFudGFyYSBUYWh1biBzZWphayBQaC5ELiBkYW4gZ2FqaSBkaW1hbmEgdWt1cmFuIHNldGlhcCB0aXRpayBiZXJnYW50dW5nIGRlbmdhbiBsYW1hbnlhIG1hc2Ega2VyamEuIEluaSBkaXNlYnV0IGRlbmdhbiBidWJibGUgcGxvdC4NCg0KYGBge3J9DQpsaWJyYXJ5KGNhckRhdGEpICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICMgdW50dWsgZGF0YXNldA0KbGlicmFyeShnZ3Bsb3QyKSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAjIFVudHVrIHZpc3VhbGlzYXNpDQpnZ3Bsb3QoU2FsYXJpZXMsIA0KICAgICAgIGFlcyh4ID0geXJzLnNpbmNlLnBoZCwgDQogICAgICAgICAgIHkgPSBzYWxhcnksIA0KICAgICAgICAgICBjb2xvciA9IHJhbmssIA0KICAgICAgICAgICBzaXplID0geXJzLnNlcnZpY2UpKSArDQogIGdlb21fcG9pbnQoYWxwaGEgPSAuOCkgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICBsYWJzKHRpdGxlID0gIkdhamkgQWthZGVtaWsgQmVyZGFzYXJrYW4gSmFiYXRhbiwgVGFodW4gUGVsYXlhbmFuLCBUYWh1biBTZWphayBHZWxhciIsDQogICAgICAgeSA9ICJHYWppIiwNCiAgICAgICBjb2xvciA9ICJKYWJhdGFuIiwNCiAgICAgICBzaXplID0gIlRhaHVuIFBlbGF5YW5hbiIpDQpgYGANClNhbmdhdCBqZWxhcyBiYWh3YSBhZGEgaHVidW5nYW4gcG9zaXRpZiB5YW5nIGt1YXQgYW50YXJhIHRhaHVuLXRhaHVuIHNlamFrIFBoLkQgZGFuIHRhaHVuIGxheWFuYW4uICB0aWRhayBkaXRlbXVrYW4gYmF0YXNhbiB3YWt0dSB5YW5nIHNhbWEgYW50YXJhIEFzc29jaWF0ZSBkYW4gRnVsbCBQcm9mZXNzb3IuIEJ1YmJsZSBwbG90IGFrYW4gZGlqZWxhc2thbiBsZWJpaCBkZXRhaWwgZGkgYmFiIHNlbGFuanV0bnlhLg0KDQpTZWJhZ2FpIGNvbnRvaCB0ZXJha2hpciwgZ3VuYWthbiB2YXJpYWJlbCBgeXJzLnNpbmNlLnBoZGAgdnMgYHNhbGFyeWAgZGFuIHRhbWJhaGthbiBqZW5pcyBrZWxhbWluIG1lbmdndW5ha2FuIHdhcm5hIGRhbiBxdWFkcmF0aWMgYmVzdCBmaXQgbGluZXMuDQoNCmBgYHtyfQ0KZ2dwbG90KFNhbGFyaWVzLCANCiAgICAgICBhZXMoeCA9IHlycy5zaW5jZS5waGQsIA0KICAgICAgICAgICB5ID0gc2FsYXJ5LCANCiAgICAgICAgICAgY29sb3IgPSBzZXgpKSArDQogIGdlb21fcG9pbnQoYWxwaGEgPSAuNCwgDQogICAgICAgICAgICAgc2l6ZSA9IDMpICsNCiAgZ2VvbV9zbW9vdGgoc2U9RkFMU0UsIA0KICAgICAgICAgICAgICBtZXRob2QgPSAibG0iLCANCiAgICAgICAgICAgICAgZm9ybXVsYSA9IHl+cG9seSh4LDIpLCANCiAgICAgICAgICAgICAgc2l6ZSA9IDEuNSkgKw0KICBsYWJzKHggPSAiVGFodW4gU2VqYWsgUGguRC4iLA0KICAgICAgIHRpdGxlID0gIkdhamkgQWthZGVtaWsgQmVyZGFzYXJrYW4gSmVuaXMgS2VsYW1pbiBkYW4gVGFodW4gUGVuZ2FsYW1hbiIsDQogICAgICAgc3VidGl0bGUgPSAiIEdhamkgOSBidWxhbiB1bnR1ayAyMDA4LTIwMDkiLA0KICAgICAgIHkgPSAiIiwNCiAgICAgICBjb2xvciA9ICJKZW5pcyBLZWxhbWluIikgKw0KICBzY2FsZV95X2NvbnRpbnVvdXMobGFiZWwgPSBzY2FsZXM6OmRvbGxhcikgKw0KICBzY2FsZV9jb2xvcl9icmV3ZXIocGFsZXR0ZSA9ICJTZXQyIikgKw0KICB0aGVtZV9taW5pbWFsKCkNCmBgYA0KIyMgRmFjZXRpbmcNCg0KUGVuZ2Vsb21wb2thbiBtZW11bmdraW5rYW4gdW50dWsgbWVtYnVhdCBiZWJlcmFwYSB2YXJpYWJlbCBkYWxhbSBzYXR1IGdyYWZpaywgbWVuZ2d1bmFrYW4ga2FyYWt0ZXJpc3RpayB2aXN1YWwgc2VwZXJ0aSB3YXJuYSwgYmVudHVrLCBkYW4gdWt1cmFuLiBEYWxhbSBmYWNldGluZywgZ3JhZmlrIHRlcmRpcmkgZGFyaSBiZWJlcmFwYSBwbG90IHRlcnBpc2FoIGF0YXUga2VsaXBhdGFuIGtlY2lsLCBzYXR1IHVudHVrIHNldGlhcCB0aW5na2F0IHZhcmlhYmVsIGtldGlnYSBhdGF1IGtvbWJpbmFzaSB2YXJpYWJlbC4gQmVyaWt1dCBjb250b2ggZmFjZXRpbmcuDQoNCmBgYHtyfQ0KZ2dwbG90KFNhbGFyaWVzLCBhZXMoeCA9IHNhbGFyeSkpICsNCiAgZ2VvbV9oaXN0b2dyYW0oZmlsbCA9ICIjY2FlZjY2IiwNCiAgICAgICAgICAgICAgICAgY29sb3IgPSAiYmxhY2siKSArDQogIGZhY2V0X3dyYXAofnJhbmssIG5jb2wgPSAxKSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIGxhYnModGl0bGUgPSAiR2FqaSBCZXJkYXNhcmthbiBKYWJhdGFuIiwNCiAgICAgICB4ID0gIkdhamkiLA0KICAgICAgIHkgPSAiIikNCmBgYA0KDQpGdW5nc2kgYGZhY2V0X3dyYXBgIG1lbWJ1YXQgZ3JhZmlrIG1lbmphZGkgdGVycGlzYWggdW50dWsgdGlhcCBqYWJhdGFuLiBPcHNpIGBuY29sYCBiZXJmdW5nc2kgdW50dWsgbWVuZ2F0dXIganVtbGFoIGtvbG9tLiBDb250b2ggYmVyaWt1dG55YSBtZW5nZ3VuYWthbiAyIHZhcmlhYmVsIHVudHVrIG1lbmRlZmluaXNpa2FuIGZhc2V0LiBGdW5nc2kgbWVuZXRhcGthbiBqZW5pcyBrZWxhbWluIGtlIGJhcmlzIGRhbiBqYWJhdGFuIGtlIGtvbG9tLCBtZW1idWF0IG1hdHJpa3MgNiBwbG90IGRhbGFtIHNhdHUgZ3JhZmlrLg0KDQpgYGB7cn0NCmdncGxvdChTYWxhcmllcywgYWVzKHggPSBzYWxhcnkgLyAxMDAwKSkgKw0KICBnZW9tX2hpc3RvZ3JhbShjb2xvciA9ICJibGFjayIsDQogICAgICAgICAgICAgICAgIGZpbGwgPSAiI2ZmOTZhZSIpICsNCiAgZmFjZXRfZ3JpZChzZXggfiByYW5rKSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIGxhYnModGl0bGUgPSAiRGlhZ3JhbSBkYXJpIEdhamkgQmVyZGFzYXJrYW4gSmVuaXMgS2VsYW1pbiBkYW4gSmFiYXRhbiIsDQogICAgICAgeCA9ICJHYWppICgkMTAwMCkiLA0KICAgICAgIHkgPSAiIikNCmBgYA0KDQpKdWdhIGRhcGF0IGRpYnVhdCBrb21iaW5hc2kgcGVuZ2Vsb21wb2thbiBkYW4gZmFjZXRpbmcuIEd1bmFrYW4gcGxvdCBtZWFuL1NFIGRhbiBmYWNldGluZyB1bnR1ayBtZW1iYW5kaW5na2FuIGdhamkgcHJvZmVzb3Igd2FuaXRhIGRlbmdhbiBwcmlhLCBkYWxhbSBwYW5na2F0IGRhbiBrZWRpc2lwbGluYW4uIFRlcmFwa2FuIHdhcm5hIHVudHVrIG1lbWJlZGFrYW4gamVuaXMga2VsYW1pbiBkYW4gZmFjZXRpbmcgdW50dWsgbWVtYnVhdCBwbG90IGphYmF0YW4gYmVyZGFzYXJrYW4ga29tYmluYXNpIGtlZGlzaXBsaW5hbi4NCg0KYGBge3J9DQojIE1lbmdoaXR1bmcgbWVhbiBhbmQgc3RhbmRhciBlcnJvciBqZW5pcyBrZWxhbWluLCBqYWJhdGFuLCBhbmQga2VkaXNpcGxpbmFuDQpwbG90ZGF0YSA8LSBTYWxhcmllcyAlPiUNCiAgZ3JvdXBfYnkoc2V4LCByYW5rLCBkaXNjaXBsaW5lKSAlPiUNCiAgZHBseXI6OnN1bW1hcml6ZShuID0gbigpLA0KICAgICAgICAgICAgbWVhbiA9IG1lYW4oc2FsYXJ5KSwNCiAgICAgICAgICAgIHNkID0gc2Qoc2FsYXJ5KSwNCiAgICAgICAgICAgIHNlID0gc2QgLyBzcXJ0KG4pKQ0KIyBNZW5hbWJhaGthbiBsYWJlbCBwYWRhIGtlZGlzaXBsaW5hbg0KcGxvdGRhdGEkZGlzY2lwbGluZSA8LSBmYWN0b3IocGxvdGRhdGEkZGlzY2lwbGluZSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGxhYmVscyA9IGMoIlRoZW9yZXRpY2FsIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkFwcGxpZWQiKSkNCiMgbWVtYnVhdCBwbG90DQpnZ3Bsb3QocGxvdGRhdGEsIA0KICAgICAgIGFlcyh4ID0gc2V4LCANCiAgICAgICAgICAgeSA9IG1lYW4sDQogICAgICAgICAgIGNvbG9yID0gc2V4KSkgKw0KICBnZW9tX3BvaW50KHNpemUgPSAzKSArDQogIGdlb21fZXJyb3JiYXIoYWVzKHltaW4gPSBtZWFuIC0gc2UsIA0KICAgICAgICAgICAgICAgICAgICB5bWF4ID0gbWVhbiArIHNlKSwNCiAgICAgICAgICAgICAgICB3aWR0aCA9IC4xKSArDQogIHNjYWxlX3lfY29udGludW91cyhicmVha3MgPSBzZXEoNzAwMDAsIDE0MDAwMCwgMTAwMDApLA0KICAgICAgICAgICAgICAgICAgICAgbGFiZWwgPSBzY2FsZXM6OmRvbGxhcikgKw0KICBmYWNldF9ncmlkKC4gfiByYW5rICsgZGlzY2lwbGluZSkgKw0KICB0aGVtZV9idygpICsNCiAgdGhlbWUobGVnZW5kLnBvc2l0aW9uID0gIm5vbmUiLA0KICAgICAgICBwYW5lbC5ncmlkLm1ham9yLnggPSBlbGVtZW50X2JsYW5rKCksDQogICAgICAgIHBhbmVsLmdyaWQubWlub3IueSA9IGVsZW1lbnRfYmxhbmsoKSkgKw0KICBsYWJzKHg9IiIsIA0KICAgICAgIHk9IiIsIA0KICAgICAgIHRpdGxlPSJHYWppIEFrYWRlbWlrIDkgQnVsYW4gQmVyZGFzYXJrYW4gSmVuaXMgS2VsYW1pbixLZWRpc2lwbGluYW4sIGRhbiBKYWJhdGFuIiwNCiAgICAgICBzdWJ0aXRsZSA9ICIoTWVhbnMgYW5kIHN0YW5kYXIgZXJyb3IpIikgKw0KICBzY2FsZV9jb2xvcl9icmV3ZXIocGFsZXR0ZT0iU2V0MyIpDQpgYGANCg0KUGVybnlhdGFuIGBmYWNldF9ncmlkKC4gfiByYW5rICsgZGlzY2lwbGluZSlgdGlkYWsgbWVuZW50dWthbiB2YXJpYWJlbCBiYXJpcyAoLikgZGFuIGtvbG9tIGRpdGVudHVrYW4gb2xlaCBrb21iaW5hc2kgamFiYXRhbiBkYW4ga2VkaXNpcGxpbmFuLg0KDQpGdW5nc2kgYHRoZW1lKClgIG1lbWJ1YXQgdGVtYSBoaXRhbSBwdXRpaCBkYW4gbWVuZ2VsaW1pbmFzaSBnYXJpcyBrb3Rhay1rb3Rhay4gRnVuZ3NpIGBzY2FsZV9jb2xvcl9icmV3ZXIoKWAgbWVuZ3ViYWggc2tlbWEgd2FybmEgc2V0aWFwIHRpdGlrIGRhbiBlcnJvciBiYXJzLg0KDQpBd2FsbnlhLCB0YW1wYWtueWEgYWRhIHBlcmJlZGFhbiBqZW5pcyBrZWxhbWluIGRhbGFtIGdhamkgdW50dWsgYXNzb2NpYXRlIGRhbiBmdWxsIHByb2Zlc29yIGRpIGJpZGFuZyB0ZW9yZXRpcy4gU2F5YSBtZW5nYXRha2FuIOKAnG11bmdraW7igJ0ga2FyZW5hIGtpdGEgYmVsdW0gbWVsYWt1a2FuIHBlbmd1amlhbiBoaXBvdGVzaXMgZm9ybWFsIChBTk9WQSBkYWxhbSBrYXN1cyBpbmkpLiANCg0KU2ViYWdhaSBjb250b2ggdGVyYWtoaXIsIGJlcmlrdXQgY29udG9oIG1lbXBsb3QgZGF0YSBwZXJ1YmFoYW4gYW5na2EgaGFyYXBhbiBoaWR1cCBkYXJpIHdrYXR1IGtlIHdha3R1IGRpIG5nZXJhIEFzaWEuIFNldGlhcCBuZWdhcmEgbXVuY3VsIGRhbGFtIGZhY2V0bnlhIHNlbmRpcmkuIEZ1bmdzaSBgdGhlbWVgIGRpcGFrYWkgdW50dWsgbWVueWVkZXJoYW5ha2FuIHdhcm5hIGxhdGFyIGJlbGFrYW5nLCBtZW11dGFyIHRla3Mgc3VtYnUgeCwgZGFuIG1lbXBlcmtlY2lsIHVrdXJhbiB0dWxpc2FuLg0KDQpgYGB7cn0NCiNNZW1wbG90IGFuZ2thIGhhcmFwYW4gaGlkdXAgYmVyZGFzYXJrYW4gdGFodW4gc2VjYXJhIHRlcnBpc2FoLCB1bnR1ayB0aWFwIG5lZ2FyYSBkaSBBc2lhDQpkYXRhKGdhcG1pbmRlciwgcGFja2FnZSA9ICJnYXBtaW5kZXIiKQ0KDQojIFBpbGloIERhdGEgQXNpYQ0KcGxvdGRhdGEgPC0gZHBseXI6OmZpbHRlcihnYXBtaW5kZXIsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICBjb250aW5lbnQgPT0gIkFzaWEiKQ0KDQojIGJ1YXQgcGxvdCBoYXJhcGFuIGhpZHVwIHRpYXAgdGFodW4sIHVudHVrIHNldGlhcCBuZWdhcmENCmdncGxvdChwbG90ZGF0YSwgYWVzKHg9eWVhciwgeSA9IGxpZmVFeHApKSArDQogIGdlb21fbGluZShjb2xvcj0iI2NlYWRmZSIpICsNCiAgZ2VvbV9wb2ludChjb2xvcj0iI2VmZGNhYSIpICsNCiAgZmFjZXRfd3JhcCh+Y291bnRyeSkgKyANCiAgdGhlbWVfbWluaW1hbChiYXNlX3NpemUgPSA5KSArDQogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gNDUsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBoanVzdCA9IDEpKSArDQogIGxhYnModGl0bGUgPSAiUGVydWJhaGFuIGRhbGFtIEhhcmFwYW4gSGlkdXAiLA0KICAgICAgIHggPSAiVGFodW4iLA0KICAgICAgIHkgPSAiSGFyYXBhbiBIaWR1cCIpIA0KYGBgDQoNCiMgUmVmZXJlbnNpDQoqIGh0dHBzOi8vcnB1YnMuY29tL2RzY2llbmNlbGFicy9hc2QxMw0KKiBodHRwczovL3JwdWJzLmNvbS9hZXBoaWRheWF0dWxvaC9jb3Zpeg0KKiBodHRwczovL3d3dy5wcm93ZWIuY28uaWQvYXJ0aWNsZXMvd2ViX2Rlc2lnbi93YXJuYV93ZWJfZGFuX3BlbWFrYWlhbm55YV9kYWxhbV9odG1sLmh0bWw=