Algoritma & Struktur Data

~ Ujian Tengah Semester ~


Kontak : \(\downarrow\)
Email
Instagram https://www.instagram.com/diasary_nm/
RPubs https://rpubs.com/diyasarya/

Kasus 1

Asumsikan Anda telah mengumpulkan beberapa kumpulan data dari perusahaan ABC Property seperti yang dapat kita lihat pada tabel berikut:

Id             <- (1:10000)
Marketing_Name <- rep(c("Angel","Sherly","Vanessa","Irene","Julian",
                        "Jeffry","Nikita","Kefas","Siana","Lala",
                        "Fallen","Ardifo","Kevin","Juen","Jerrel",
                        "Imelda","Widi","Theodora","Elvani","Jonathan",
                        "Sofia","Abraham","Siti","Niko","Sefli",
                        "Bene", "Diana", "Pupe", "Andi", "Tatha",
                        "Endri", "Monika", "Hans", "Debora","Hanifa",
                        "James", "Jihan", "Friska","Ardiwan", "Bakti",
                        "Anthon","Amry", "Wiwik", "Bastian", "Budi",
                        "Leo","Simon","Matius","Arry", "Eliando"), 200)
Work_Exp       <- rep(c(1.3,2.4,2.5,3.6,3.7,4.7,5.7,6.7,7.7,73,
                        5.3,5.3,10,9.3,3.3,3.3,3.4,3.4,3.5,5.6,
                        3.5,4.6,4.6,5.7,6.2,4.4,6.4,6.4,3.5,7.5,
                        4.6,3.7,4.7,4.3,5.2,6.3,7.4,2.4,3.4,8.2,
                        6.4,7.2,1.5,7.5,10,4.5,6.5,7.2,7.1,7.6),200)
City           <- sample(c("Jakarta","Bogor","Depok","Tangerang","Bekasi"),10000, replace = T)
Cluster        <- sample(c("Victoria","Palmyra","Winona","Tiara", "Narada",
                           "Peronia","Lavesh","Alindra","Sweethome", "Asera",
                           "Teradamai","Albasia", "Adara","Neon","Arana",
                           "Asoka", "Primadona", "Mutiara","Permata","Alamanda" ), 10000, replace=T)
Price          <- sample(c(7000:15000),10000, replace = T)
Date_Sales     <- sample(seq(as.Date("2018/01/01"), by = "day", length.out = 1000),10000, replace = T)
Advertisement  <- sample(c(1:20), 10000, replace = T)
Data           <- data.frame(Id, 
                             Marketing_Name,
                             Work_Exp,
                             City,
                             Cluster,
                             Price,
                             Date_Sales,
                             Advertisement)
library(DT)
datatable(Data)
write.csv(Data,"c:\\Rstudio\\Data.csv", row.names = FALSE)

Soal 1

Kategorikan variabel Harga pada dataset di atas menjadi tiga kelompok sebagai berikut:

  • \(\text{High} > 12000\)
  • \(10000 \le \text{Medium} \le 12000\)
  • \(\text{Low} < 10000\)

Tetapkan ke dalam variabel baru yang disebut Kelas dengan menggunakan fungsi kontrol If, else if, dan else,

x <- Data$Price

Data$Kelas <- ifelse(x > 12000, "High",
              ifelse(x >= 10000 & x <= 12000, "Medium", 
              ifelse(x < 10000, "Low", "-")))

library(DT)
datatable(Data)

Soal 2

Kategorikan variabel Harga pada dataset di atas menjadi enam kelompok sebagai berikut:

  • Booking_fee nya 5 % jika \(\text{Price} < 8000\)
  • Booking_fee nya 6 % jika \(8000 \le \text{Price} < 9000\)
  • Booking_fee nya 7 % jika \(9000 \le \text{Price} < 10000\)
  • Booking_fee nya 8 % jika \(10000 \le \text{Price} < 11000\)
  • Booking_fee nya 9 % jika \(11000 \le \text{Price} < 13000\)
  • Booking_fee nya 10 % jika \(13000 \le \text{Price} \le 15000\)

Tetapkan ke dalam variabel baru yang disebut Booking_fee dengan menggunakan fungsi kontrol If, else if, dan else,

x <- Data$Price

Data$Booking_fee <- ifelse(x < 8000, 0.05*x,
                    ifelse(x >= 8000 & x < 9000, 0.06*x,
                    ifelse(x >= 9000 & x < 10000, 0.07*x,
                    ifelse(x >= 10000 & x < 11000, 0.08*x,
                    ifelse(x >= 11000 & x < 13000, 0.09*x,
                    ifelse(x >= 13000 & x < 15000, 0.1*x, 0))))))

library(DT)
datatable(Data)

Soal 3

Menurut kumpulan data akhir yang telah Anda buat pada soal no 2, saya berasumsi bahwa Anda telah bekerja sebagai pemasaran di perusahaan ABC Property, bagaimana Anda dapat mengumpulkan semua informasi tentang penjualan Anda dengan menggunakan pernyataan for,

x = "Budi"

Data$info_saya <- for (i in x) {
   w = subset(Data, Marketing_Name==i) %>% head(5) 
}

library(DT)
datatable(w)

Soal 4

Jika Anda akan mendapatkan bonus 2% dari Booking fee per unit sebagai pemasaran dan juga mendapatkan bonus tambahan 1% jika Anda telah bekerja di perusahaan ini selama lebih dari 3 tahun, Silakan hitung total bonus dengan menggunakan pernyataan if, for, dan break,

x <- subset(Data, Marketing_Name=="Budi")

x$Booking_fee -> a
x$Work_Exp -> b

z <- ifelse(b < 3, (a*0.02), (a*0.02) + (a*0.01))

x$Bonus = z

library(DT)
datatable(x)

Soal 5

Pada bagian ini, Anda diharapkan dapa membuat fungsi yang dapat menjawab setiap penyataan dibawah ini dengan melibatkan setiap fungsi kontrol yang dipelajari pada pertemuan 7,

  • Siapa nama marketing pemasaran terbaik?
  • Kota dan Cluster mana yang paling menguntungkan?
  • Hitung total biaya iklan Anda, jika Anda harus membayarnya $4 setiap kali iklan,
  • Hitung rata-rata biaya iklan untuk setiap marketing di Perusahaan tersebut,
  • Hitung Total Pendapatan (dalam Bulanan)
# Siapa nama marketing pemasaran terbaik?

x <- Data$Marketing_Name

Jonathan = subset(Data, (Marketing_Name == "Jonathan"))
Theodora = subset(Data, (Marketing_Name == "Theodora"))
Angel = subset(Data, (Marketing_Name == "Angel"))
Sherly = subset(Data, (Marketing_Name == "Sherly"))
Vanessa = subset(Data, (Marketing_Name == "Vanessa"))
Irene = subset(Data, (Marketing_Name == "Irene"))
Julian = subset(Data, (Marketing_Name == "Julian"))
Jeffry  = subset(Data, (Marketing_Name == "Jeffry"))
Nikita  = subset(Data, (Marketing_Name == "Nikita"))
Kefas = subset(Data, (Marketing_Name == "Kefas"))
Siana  = subset(Data, (Marketing_Name =="Siana"))
Lala = subset(Data, (Marketing_Name == "Lala")) 
Fallen  = subset(Data, (Marketing_Name == "Fallen")) 
Ardifo = subset(Data, (Marketing_Name == "Ardifo"))
Kevin  = subset(Data, (Marketing_Name == "Kevin"))
Juen  = subset(Data, (Marketing_Name == "Juen"))
Jerrel = subset(Data, (Marketing_Name =="Jerrel"))
Imelda  = subset(Data, (Marketing_Name == "Imelda"))
Widi  = subset(Data, (Marketing_Name == "Widi"))
Theodor = subset(Data, (Marketing_Name == "Theodor"))
Elvani = subset(Data, (Marketing_Name == "Elvani"))
Jonathan = subset(Data, (Marketing_Name == "Jonathan"))
Sofia = subset(Data, (Marketing_Name == "Sofia"))
Abraham = subset(Data, (Marketing_Name == "Abraham"))
Siti = subset(Data, (Marketing_Name == "Siti"))
Niko = subset(Data, (Marketing_Name == "Niko"))
Sefli = subset(Data, (Marketing_Name == "Sefli"))
Bene = subset(Data, (Marketing_Name == "Bene"))
Diana = subset(Data, (Marketing_Name == "Diana"))
Pupe = subset(Data, (Marketing_Name == "Pupe"))
Andi = subset(Data, (Marketing_Name == "Andi"))
Tatha = subset(Data, (Marketing_Name == "Tatha"))
Endri = subset(Data, (Marketing_Name == "Endri"))
Monika = subset(Data, (Marketing_Name == "Monika"))
Hans = subset(Data, (Marketing_Name == "Hans"))
Debora = subset(Data, (Marketing_Name == "Debora"))
Hanifa = subset(Data, (Marketing_Name == "Hanifa"))
James = subset(Data, (Marketing_Name == "James"))
Jihan = subset(Data, (Marketing_Name == "Jihan"))
Friska = subset(Data, (Marketing_Name == "Friska"))
Ardiwan = subset(Data, (Marketing_Name == "Ardiwan"))
Bakti = subset(Data, (Marketing_Name == "Bakti"))
Anthon = subset(Data, (Marketing_Name == "Anthon"))
Amry = subset(Data, (Marketing_Name == "Amry"))
Bastian = subset(Data, (Marketing_Name == "Bastian"))
Wiwik = subset(Data, (Marketing_Name =="Wiwik"))  
Budi= subset(Data, (Marketing_Name == "Budi")) 
Leo = subset(Data, (Marketing_Name == "Leo")) 
Simon = subset(Data, (Marketing_Name == "Simon")) 
Matius = subset(Data, (Marketing_Name =="Matius")) 
Arry = subset(Data, (Marketing_Name =="Arry")) 
Eliando = subset(Data, (Marketing_Name == "Eliando"))

y = c(sum(Angel$Booking_fee), sum(Sherly$Booking_fee), sum(Vanessa$Booking_fee), sum(Irene$Booking_fee), sum(Julian$Booking_fee), sum(Jeffry$Booking_fee), sum(Nikita$Booking_fee), sum (Kefas$Booking_fee), sum(Siana$Booking_fee), sum(Lala$Booking_fee), sum(Fallen$Booking_fee), sum(Ardifo$Booking_fee), sum(Kevin$Booking_fee), sum(Juen$Booking_fee), sum(Jerrel$Booking_fee), sum (Imelda $Booking_fee), sum(Widi$Booking_fee), sum(Theodora$Booking_fee), sum (Elvani$Booking_fee), sum(Jonathan$Booking_fee), sum(Sofia$Booking_fee), sum(Abraham$Booking_fee), sum(Siti$Booking_fee), sum (Niko$Booking_fee), sum(Sefli$Booking_fee), sum(Bene$Booking_fee), sum(Diana$Booking_fee), sum(Pupe$Booking_fee), sum(Andi$Booking_fee), sum(Tatha$Booking_fee), sum(Endri$Booking_fee) , sum(Monika$Booking_fee), sum(Hans$Booking_fee), sum(Debora$Booking_fee), sum(Hanifa$Booking_fee), sum (James$Booking_fee), sum(Jihan$Booking_fee), sum(Friska$Booking_fee), sum(Ardiwan$Booking_fee), sum(Bakti$Booking_fee), sum(Anthon$Booking_fee), sum(Amry$Booking_fee), sum(Wiwik$Booking_fee), sum(Bastian$Booking_fee), sum(Budi$Booking_fee), sum (Leo$Booking_fee), sum(Simon$Booking_fee) , sum(Matius$Booking_fee), sum (Arry$Booking_fee), sum(Eliando$Booking_fee))

z = data.frame(x, y)
p = which.max(z$y)
q = z[p, ]

library(DT)
datatable(q)
# Kota dan Cluster mana yang paling menguntungkan?

x <- Data$City

Jakarta = subset(Data, City == "Jakarta")
Bogor = subset(Data, City == "Bogor")
Depok = subset(Data, City == "Depok")
Tangerang = subset(Data, City == "Tangerang")
Bekasi = subset(Data, City == "Bekasi")

h = c(sum(Jakarta$Price), sum(Bogor$Price), sum(Depok$Price), sum(Tangerang$Price), sum(Bekasi$Price))

i = data.frame(x, h)
j = which.max(i$h)
k = i[j, ]

library(DT)
datatable(k)
y <- Data$Cluster

Victoria = subset(Data, Cluster == "Victoria")
Palmyra = subset(Data, Cluster == "Palmyra")
Winona = subset(Data, Cluster == "Winona")
Tiara = subset(Data, Cluster == "Tiara")
Narada = subset(Data, Cluster == "Narada")
Peronia = subset(Data, Cluster == "Peronia")
Lavesh = subset(Data, Cluster == "Lavesh")
Alindra = subset(Data, Cluster == "Alindra")
Sweethome = subset(Data, Cluster == "Sweethome")
Asera = subset(Data, Cluster == "Asera")
Teradamai = subset(Data, Cluster == "Teradamai")
Albasia = subset(Data, Cluster == "Albasia")
Adara = subset(Data, Cluster == "Adara")
Neon = subset(Data, Cluster == "Neon")
Arana = subset(Data, Cluster == "Arana")
Asoka = subset(Data, Cluster == "Asoka")
Primadona = subset(Data, Cluster == "Primadona")
Mutiara = subset(Data, Cluster == "Mutiara")
Permata = subset(Data, Cluster == "Permata")
Alamanda = subset(Data, Cluster == "Alamanda")

s = c(sum(Victoria$Price), sum(Palmyra$Price), sum(Winona$Price), sum(Tiara$Price), sum(Narada$Price), sum(Peronia$Price), sum(Lavesh$Price), sum(Alindra$Price), sum(Sweethome$Price), sum(Asera$Price), sum(Teradamai$Price), sum(Albasia$Price), sum(Adara$Price), sum(Neon$Price), sum(Arana$Price), sum(Asoka$Price), sum(Primadona$Price), sum(Mutiara$Price), sum(Permata$Price), sum(Alamanda$Price))

t = data.frame(y, s)
u = which.max(t$s)
v = t[u, ]

library(DT)
datatable(v)
# Hitung total biaya iklan Anda, jika Anda harus membayarnya $4 setiap kali iklan

x <- subset(Data, Marketing_Name=="Budi")

x$Advertisement -> c

x$Biaya_Iklan <- ifelse(c >= 1, c*4, 0)

library(DT)
datatable(x)
Total_Biaya_Iklan = sum(x$Biaya_Iklan)
Total_Biaya_Iklan
## [1] 8472
# Hitung rata-rata biaya iklan untuk setiap marketing di Perusahaan tersebut

Data$Biaya_Iklan <- ifelse(Data$Advertisement >= 1, Data$Advertisement*4, 0)

x = c("Angel","Sherly", "Vanessa", "Irene","Julian", "Jeffry", "Nikita", "Kefas", "Siana", "Lala", "Fallen", "Ardifo", "Kevin", "Juen", "Jerrel", "Imelda", "Widi", "Theodora", "Elvani","Jonathan", "Sofia", "Abraham", "Siti", "Niko", "Sefli", "Bene", "Diana", "Pupe", "Andi", "Tatha", "Endri", "Monika", "Hans", "Debora","Hanifa", "James", "Jihan", "Friska", "Ardiwan", "Bakti", "Anthon","Amry", "Wiwik", "Bastian", "Budi", "Leo","Simon", "Matius", "Arry", "Eliando")

for (i in x) {
  y <- subset(Data, Marketing_Name == i)
  z <- sum(y$Biaya_Iklan)
  print(cat(sum(z)/length(y$Id), cat(i, "Rerata Advertisement Cost : ")))
}
## Angel Rerata Advertisement Cost : 38.34NULL
## Sherly Rerata Advertisement Cost : 42.4NULL
## Vanessa Rerata Advertisement Cost : 42.94NULL
## Irene Rerata Advertisement Cost : 42.36NULL
## Julian Rerata Advertisement Cost : 44.52NULL
## Jeffry Rerata Advertisement Cost : 41.24NULL
## Nikita Rerata Advertisement Cost : 40.38NULL
## Kefas Rerata Advertisement Cost : 40.9NULL
## Siana Rerata Advertisement Cost : 42.14NULL
## Lala Rerata Advertisement Cost : 41.42NULL
## Fallen Rerata Advertisement Cost : 44.02NULL
## Ardifo Rerata Advertisement Cost : 43.06NULL
## Kevin Rerata Advertisement Cost : 40.58NULL
## Juen Rerata Advertisement Cost : 44.04NULL
## Jerrel Rerata Advertisement Cost : 41.16NULL
## Imelda Rerata Advertisement Cost : 43.8NULL
## Widi Rerata Advertisement Cost : 43.9NULL
## Theodora Rerata Advertisement Cost : 39.84NULL
## Elvani Rerata Advertisement Cost : 44.52NULL
## Jonathan Rerata Advertisement Cost : 44.14NULL
## Sofia Rerata Advertisement Cost : 42.12NULL
## Abraham Rerata Advertisement Cost : 43.68NULL
## Siti Rerata Advertisement Cost : 43.02NULL
## Niko Rerata Advertisement Cost : 42.88NULL
## Sefli Rerata Advertisement Cost : 40.62NULL
## Bene Rerata Advertisement Cost : 44.64NULL
## Diana Rerata Advertisement Cost : 43.88NULL
## Pupe Rerata Advertisement Cost : 40.48NULL
## Andi Rerata Advertisement Cost : 41.5NULL
## Tatha Rerata Advertisement Cost : 43.5NULL
## Endri Rerata Advertisement Cost : 43.3NULL
## Monika Rerata Advertisement Cost : 41.78NULL
## Hans Rerata Advertisement Cost : 42.68NULL
## Debora Rerata Advertisement Cost : 42.44NULL
## Hanifa Rerata Advertisement Cost : 43NULL
## James Rerata Advertisement Cost : 42.6NULL
## Jihan Rerata Advertisement Cost : 41.8NULL
## Friska Rerata Advertisement Cost : 43.86NULL
## Ardiwan Rerata Advertisement Cost : 40.72NULL
## Bakti Rerata Advertisement Cost : 43.08NULL
## Anthon Rerata Advertisement Cost : 38.26NULL
## Amry Rerata Advertisement Cost : 40.44NULL
## Wiwik Rerata Advertisement Cost : 45.42NULL
## Bastian Rerata Advertisement Cost : 42.22NULL
## Budi Rerata Advertisement Cost : 42.36NULL
## Leo Rerata Advertisement Cost : 45.82NULL
## Simon Rerata Advertisement Cost : 45.12NULL
## Matius Rerata Advertisement Cost : 42.5NULL
## Arry Rerata Advertisement Cost : 41.98NULL
## Eliando Rerata Advertisement Cost : 41.06NULL
# Hitung Total Pendapatan (dalam Bulanan)

Data$Price -> x
Data$Advertisement -> y

for (i in Data) {
  z = sum(x) - (sum(y)*4)
}

z
## [1] 109547314

Kasus 2

Misalkan Anda memiliki proyek riset pasar untuk mempertahankan beberapa pelanggan potensial di perusahaan Anda, Mari kita asumsikan Anda bekerja di perusahaan asuransi ABC, Untuk melakukannya, Anda ingin mengumpulkan kumpulan data berikut:

  • Marital_Status : menetapkan status perkawinan acak (“Ya”, “Tidak”)
  • Address : berikan alamat acak (JABODETABEK)
  • Work_Location : menetapkan lokasi kerja secara acak (JABODETABEK)
  • Age : menetapkan urutan angka acak (dari 19 hingga 60)
  • Academic : menetapkan tingkat akademik acak (“J,School”, “H,School”, “Sarjana”, “Magister”, “Phd”)
  • Job : 10 pekerjaan acak untuk setiap tingkat akademik
  • Grade : 5 nilai acak untuk setiap Pekerjaan
  • Income : tetapkan pendapatan yang mungkin untuk setiap Pekerjaan
  • Spending : tetapkan kemungkinan pengeluaran untuk setiap Pekerjaan
  • Number_of_children: menetapkan nomor acak di antara 0 dan 10 (sesuai dengan status perkawinan)
  • Private_vehicle : menetapkan kemungkinan kendaraan pribadi untuk setiap orang (“Mobil”, “sepeda motor”, “Umum”)
  • Home : “Sewa”, “Milik”, “Kredit”

Soal 1

Tolong berikan saya kumpulan data tentang informasi 50000 pelanggan yang mengacu pada setiap variabel di atas!

Marital_Status <- sample(c("Yes", "No"), 50000, replace=T)
Address <- sample(c("Jakarta", "Bogor", "Depok", "Tangerang", "Bekasi"), 50000, replace=T)
Work_Location <- rep(c("Jakarta", "Bogor", "Depok", "Tangerang", "Bekasi"), 10000, replace=T)
Age <- sample(c(19:60), 50000, replace=T)
Academic <- sample(c("J.School", "H.School", "Sarjana", "Magister", "Phd"), 50000, replace=T)
Job  <- ifelse(Academic == "J.School", sample(c("Admin", "Sales", "Helper Production")),
        ifelse(Academic == "H.School", "Production Control",
        ifelse(Academic == "Sarjana", sample(c("Market Analyst", "Data Analyst")),
        ifelse(Academic == "Magister", sample(c("HRD", "IT")),
        ifelse(Academic == "Phd", sample(c("Manager Marketing", "Manager")), 0)))))
Grade <- sample(c(1:5), 50000, replace=T)
Income <- ifelse(Job == "Admin", 3200000,
          ifelse(Job == "Sales", 4000000,
          ifelse(Job == "Helper Production", 4200000,
          ifelse(Job == "Production Control", 4500000,
          ifelse(Job == "Market Analyst", 5000000,
          ifelse(Job == "Data Analyst", 5500000,
          ifelse(Job == "HRD", 6200000,
          ifelse(Job == "Manager Marketing", 7000000,
          ifelse(Job == "Manager", 7500000,
          ifelse(Job == "IT", 8000000, 0))))))))))
Spending <- sample(c(50000:500000), 50000, replace=T)
Number_of_children <- ifelse(Marital_Status == "Yes", sample(c(0:10)), "-")
Private_vehicle <- sample(c("Mobil", "Sepeda", "Motor", "Umum"), 50000, replace=T)
Home <- sample(c("Sewa", "Milik", "Kredit"), 50000, replace=T)

Data_Pelanggan <- data.frame(Marital_Status,
                   Address,
                   Work_Location,
                   Age,
                   Academic,
                   Job,
                   Grade,
                   Income,
                   Spending,
                   Number_of_children,
                   Private_vehicle,
                   Home)

library(DT)
datatable(Data_Pelanggan)

Soal 2

Ringkasan Statistik penting seperti apa yang bisa Anda dapatkan dari kumpulan data Anda?

summary(Data_Pelanggan$Income)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
## 3200000 4500000 5500000 5578248 7000000 8000000
summary(Data_Pelanggan$Spending)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   50003  163653  275311  275659  388299  499991

Soal 3

Menurut perhitungan dan analisis Anda, pelanggan mana yang potensial untuk Anda pertahankan?

Data_Pelanggan$Pendapatan = Data_Pelanggan$Income - Data_Pelanggan$Spending

x <- subset(Data_Pelanggan, Pendapatan >= 6500000)

library(DT)
datatable(x)
LS0tDQp0aXRsZTogIkFsZ29yaXRtYSAmIFN0cnVrdHVyIERhdGEiDQpzdWJ0aXRsZTogIn4gVWppYW4gVGVuZ2FoIFNlbWVzdGVyIH4iDQphdXRob3I6ICJEaXlhcyBBcnlhIE51Z3JvaG8iDQpkYXRlOiAgImByIGZvcm1hdChTeXMuRGF0ZSgpLCAnJUIgJWQsICVZJylgIg0Kb3V0cHV0Og0KICBybWRmb3JtYXRzOjpyb2JvYm9vazogICAjIGh0dHBzOi8vZ2l0aHViLGNvbS9qdWJhL3JtZGZvcm1hdHMNCiAgICBzZWxmX2NvbnRhaW5lZDogdHJ1ZQ0KICAgIHRodW1ibmFpbHM6IHRydWUNCiAgICBsaWdodGJveDogdHJ1ZQ0KICAgIGdhbGxlcnk6IHRydWUNCiAgICBsaWJfZGlyOiBsaWJzDQogICAgZGZfcHJpbnQ6ICJwYWdlZCINCiAgICBjb2RlX2ZvbGRpbmc6ICJzaG93Ig0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICAgIGNzczogInN0eWxlLmNzcyINCg0KLS0tDQoNCmBgYHtyIGluY2x1ZGU9RkFMU0V9DQprbml0cjo6b3B0c19jaHVuayRzZXQoY2xhc3Msc291cmNlID0gIm5vY29weSIsDQogICAgICAgICAgICAgICAgICAgICAgY2xhc3Msb3V0cHV0ID0gIm5vY29weSIsDQogICAgICAgICAgICAgICAgICAgICAgbWVzc2FnZSA9IEYsDQogICAgICAgICAgICAgICAgICAgICAgd2FybmluZyA9IEYpDQpsaWJyYXJ5KHJldGljdWxhdGUpDQpsaWJyYXJ5KFJjcHApDQp1c2VfY29uZGFlbnYoInB5MzgiLCByZXF1aXJlZCA9IFRSVUUpDQpgYGANCg0KPGJyPg0KDQo8aW1nIHN0eWxlPSJmbG9hdDogcmlnaHQ7IG1hcmdpbjogLTUwcHggNTBweCAwcHggNTBweDsgd2lkdGg6MzAlIiBzcmM9IlByb2ZpbC5wbmciLz4NCg0KDQp8DQo6LS0tLSB8Oi0tLS0NCioqS29udGFrKip8ICoqOiAkXGRvd25hcnJvdyQqKg0KRW1haWwgfCBkaXlhc2FyeWFudWdyb2hvQGdtYWlsLmNvbQ0KSW5zdGFncmFtIHwgaHR0cHM6Ly93d3cuaW5zdGFncmFtLmNvbS9kaWFzYXJ5X25tLyANClJQdWJzICB8IGh0dHBzOi8vcnB1YnMuY29tL2RpeWFzYXJ5YS8gDQoNCioqKg0KDQojIEthc3VzIDEgDQoNCkFzdW1zaWthbiBBbmRhIHRlbGFoIG1lbmd1bXB1bGthbiBiZWJlcmFwYSBrdW1wdWxhbiBkYXRhIGRhcmkgcGVydXNhaGFhbiBgQUJDIFByb3BlcnR5YCBzZXBlcnRpIHlhbmcgZGFwYXQga2l0YSBsaWhhdCBwYWRhIHRhYmVsIGJlcmlrdXQ6IA0KDQpgYGB7ciwgbWVzc2FnZT1GfQ0KSWQgICAgICAgICAgICAgPC0gKDE6MTAwMDApDQpNYXJrZXRpbmdfTmFtZSA8LSByZXAoYygiQW5nZWwiLCJTaGVybHkiLCJWYW5lc3NhIiwiSXJlbmUiLCJKdWxpYW4iLA0KICAgICAgICAgICAgICAgICAgICAgICAgIkplZmZyeSIsIk5pa2l0YSIsIktlZmFzIiwiU2lhbmEiLCJMYWxhIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICJGYWxsZW4iLCJBcmRpZm8iLCJLZXZpbiIsIkp1ZW4iLCJKZXJyZWwiLA0KICAgICAgICAgICAgICAgICAgICAgICAgIkltZWxkYSIsIldpZGkiLCJUaGVvZG9yYSIsIkVsdmFuaSIsIkpvbmF0aGFuIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICJTb2ZpYSIsIkFicmFoYW0iLCJTaXRpIiwiTmlrbyIsIlNlZmxpIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICJCZW5lIiwgIkRpYW5hIiwgIlB1cGUiLCAiQW5kaSIsICJUYXRoYSIsDQogICAgICAgICAgICAgICAgICAgICAgICAiRW5kcmkiLCAiTW9uaWthIiwgIkhhbnMiLCAiRGVib3JhIiwiSGFuaWZhIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICJKYW1lcyIsICJKaWhhbiIsICJGcmlza2EiLCJBcmRpd2FuIiwgIkJha3RpIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICJBbnRob24iLCJBbXJ5IiwgIldpd2lrIiwgIkJhc3RpYW4iLCAiQnVkaSIsDQogICAgICAgICAgICAgICAgICAgICAgICAiTGVvIiwiU2ltb24iLCJNYXRpdXMiLCJBcnJ5IiwgIkVsaWFuZG8iKSwgMjAwKQ0KV29ya19FeHAgICAgICAgPC0gcmVwKGMoMS4zLDIuNCwyLjUsMy42LDMuNyw0LjcsNS43LDYuNyw3LjcsNzMsDQogICAgICAgICAgICAgICAgICAgICAgICA1LjMsNS4zLDEwLDkuMywzLjMsMy4zLDMuNCwzLjQsMy41LDUuNiwNCiAgICAgICAgICAgICAgICAgICAgICAgIDMuNSw0LjYsNC42LDUuNyw2LjIsNC40LDYuNCw2LjQsMy41LDcuNSwNCiAgICAgICAgICAgICAgICAgICAgICAgIDQuNiwzLjcsNC43LDQuMyw1LjIsNi4zLDcuNCwyLjQsMy40LDguMiwNCiAgICAgICAgICAgICAgICAgICAgICAgIDYuNCw3LjIsMS41LDcuNSwxMCw0LjUsNi41LDcuMiw3LjEsNy42KSwyMDApDQpDaXR5ICAgICAgICAgICA8LSBzYW1wbGUoYygiSmFrYXJ0YSIsIkJvZ29yIiwiRGVwb2siLCJUYW5nZXJhbmciLCJCZWthc2kiKSwxMDAwMCwgcmVwbGFjZSA9IFQpDQpDbHVzdGVyICAgICAgICA8LSBzYW1wbGUoYygiVmljdG9yaWEiLCJQYWxteXJhIiwiV2lub25hIiwiVGlhcmEiLCAiTmFyYWRhIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICJQZXJvbmlhIiwiTGF2ZXNoIiwiQWxpbmRyYSIsIlN3ZWV0aG9tZSIsICJBc2VyYSIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAiVGVyYWRhbWFpIiwiQWxiYXNpYSIsICJBZGFyYSIsIk5lb24iLCJBcmFuYSIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAiQXNva2EiLCAiUHJpbWFkb25hIiwgIk11dGlhcmEiLCJQZXJtYXRhIiwiQWxhbWFuZGEiICksIDEwMDAwLCByZXBsYWNlPVQpDQpQcmljZSAgICAgICAgICA8LSBzYW1wbGUoYyg3MDAwOjE1MDAwKSwxMDAwMCwgcmVwbGFjZSA9IFQpDQpEYXRlX1NhbGVzICAgICA8LSBzYW1wbGUoc2VxKGFzLkRhdGUoIjIwMTgvMDEvMDEiKSwgYnkgPSAiZGF5IiwgbGVuZ3RoLm91dCA9IDEwMDApLDEwMDAwLCByZXBsYWNlID0gVCkNCkFkdmVydGlzZW1lbnQgIDwtIHNhbXBsZShjKDE6MjApLCAxMDAwMCwgcmVwbGFjZSA9IFQpDQpEYXRhICAgICAgICAgICA8LSBkYXRhLmZyYW1lKElkLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgTWFya2V0aW5nX05hbWUsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIFdvcmtfRXhwLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBDaXR5LA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBDbHVzdGVyLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBQcmljZSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRGF0ZV9TYWxlcywNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgQWR2ZXJ0aXNlbWVudCkNCmxpYnJhcnkoRFQpDQpkYXRhdGFibGUoRGF0YSkNCmBgYA0KDQpgYGB7cn0NCndyaXRlLmNzdihEYXRhLCJjOlxcUnN0dWRpb1xcRGF0YS5jc3YiLCByb3cubmFtZXMgPSBGQUxTRSkNCmBgYA0KDQoNCg0KIyMgU29hbCAxIA0KDQpLYXRlZ29yaWthbiB2YXJpYWJlbCBgSGFyZ2FgIHBhZGEgZGF0YXNldCBkaSBhdGFzIG1lbmphZGkgdGlnYSBrZWxvbXBvayBzZWJhZ2FpIGJlcmlrdXQ6DQoNCiogJFx0ZXh0e0hpZ2h9ID4gMTIwMDAkDQoqICQxMDAwMCBcbGUgXHRleHR7TWVkaXVtfSBcbGUgMTIwMDAkDQoqICRcdGV4dHtMb3d9IDwgMTAwMDAkDQoNClRldGFwa2FuIGtlIGRhbGFtIHZhcmlhYmVsIGJhcnUgeWFuZyBkaXNlYnV0IGBLZWxhc2AgZGVuZ2FuIG1lbmdndW5ha2FuIGZ1bmdzaSBrb250cm9sIGBJZmAsIGBlbHNlIGlmYCwgZGFuIGBlbHNlYCwNCg0KDQpgYGB7ciwgbWVzc2FnZT1GfQ0KeCA8LSBEYXRhJFByaWNlDQoNCkRhdGEkS2VsYXMgPC0gaWZlbHNlKHggPiAxMjAwMCwgIkhpZ2giLA0KICAgICAgICAgICAgICBpZmVsc2UoeCA+PSAxMDAwMCAmIHggPD0gMTIwMDAsICJNZWRpdW0iLCANCiAgICAgICAgICAgICAgaWZlbHNlKHggPCAxMDAwMCwgIkxvdyIsICItIikpKQ0KDQpsaWJyYXJ5KERUKQ0KZGF0YXRhYmxlKERhdGEpDQpgYGANCg0KDQojIyBTb2FsIDIgDQoNCkthdGVnb3Jpa2FuIHZhcmlhYmVsIGBIYXJnYWAgcGFkYSBkYXRhc2V0IGRpIGF0YXMgbWVuamFkaSBlbmFtIGtlbG9tcG9rIHNlYmFnYWkgYmVyaWt1dDoNCg0KKiBCb29raW5nX2ZlZSBueWEgNSAlIGppa2EgJFx0ZXh0e1ByaWNlfSA8IDgwMDAkDQoqIEJvb2tpbmdfZmVlIG55YSA2ICUgamlrYSAkODAwMCBcbGUgXHRleHR7UHJpY2V9IDwgOTAwMCQNCiogQm9va2luZ19mZWUgbnlhIDcgJSBqaWthICQ5MDAwIFxsZSBcdGV4dHtQcmljZX0gPCAxMDAwMCQNCiogQm9va2luZ19mZWUgbnlhIDggJSBqaWthICQxMDAwMCBcbGUgXHRleHR7UHJpY2V9IDwgMTEwMDAkDQoqIEJvb2tpbmdfZmVlIG55YSA5ICUgamlrYSAkMTEwMDAgXGxlIFx0ZXh0e1ByaWNlfSA8IDEzMDAwJA0KKiBCb29raW5nX2ZlZSBueWEgMTAgJSBqaWthICQxMzAwMCBcbGUgXHRleHR7UHJpY2V9IFxsZSAxNTAwMCQNCg0KVGV0YXBrYW4ga2UgZGFsYW0gdmFyaWFiZWwgYmFydSB5YW5nIGRpc2VidXQgYEJvb2tpbmdfZmVlYCBkZW5nYW4gbWVuZ2d1bmFrYW4gZnVuZ3NpIGtvbnRyb2wgYElmYCwgYGVsc2UgaWZgLCBkYW4gYGVsc2VgLA0KDQoNCmBgYHtyLCBtZXNzYWdlPUZ9DQp4IDwtIERhdGEkUHJpY2UNCg0KRGF0YSRCb29raW5nX2ZlZSA8LSBpZmVsc2UoeCA8IDgwMDAsIDAuMDUqeCwNCiAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHggPj0gODAwMCAmIHggPCA5MDAwLCAwLjA2KngsDQogICAgICAgICAgICAgICAgICAgIGlmZWxzZSh4ID49IDkwMDAgJiB4IDwgMTAwMDAsIDAuMDcqeCwNCiAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHggPj0gMTAwMDAgJiB4IDwgMTEwMDAsIDAuMDgqeCwNCiAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHggPj0gMTEwMDAgJiB4IDwgMTMwMDAsIDAuMDkqeCwNCiAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHggPj0gMTMwMDAgJiB4IDwgMTUwMDAsIDAuMSp4LCAwKSkpKSkpDQoNCmxpYnJhcnkoRFQpDQpkYXRhdGFibGUoRGF0YSkNCmBgYA0KDQojIyBTb2FsIDMgDQoNCk1lbnVydXQga3VtcHVsYW4gZGF0YSBha2hpciB5YW5nIHRlbGFoIEFuZGEgYnVhdCBwYWRhIHNvYWwgbm8gMiwgc2F5YSBiZXJhc3Vtc2kgYmFod2EgQW5kYSB0ZWxhaCBiZWtlcmphIHNlYmFnYWkgcGVtYXNhcmFuIGRpIHBlcnVzYWhhYW4gYEFCQyBQcm9wZXJ0eWAsIGJhZ2FpbWFuYSBBbmRhIGRhcGF0IG1lbmd1bXB1bGthbiBzZW11YSBpbmZvcm1hc2kgdGVudGFuZyBwZW5qdWFsYW4gQW5kYSBkZW5nYW4gbWVuZ2d1bmFrYW4gcGVybnlhdGFhbiBgZm9yYCwgDQoNCg0KYGBge3J9DQp4ID0gIkJ1ZGkiDQoNCkRhdGEkaW5mb19zYXlhIDwtIGZvciAoaSBpbiB4KSB7DQogICB3ID0gc3Vic2V0KERhdGEsIE1hcmtldGluZ19OYW1lPT1pKSAlPiUgaGVhZCg1KSANCn0NCg0KbGlicmFyeShEVCkNCmRhdGF0YWJsZSh3KQ0KYGBgDQoNCg0KIyMgU29hbCA0IA0KDQpKaWthIEFuZGEgYWthbiBtZW5kYXBhdGthbiBib251cyAyJSBkYXJpIGBCb29raW5nIGZlZWAgcGVyIHVuaXQgc2ViYWdhaSBwZW1hc2FyYW4gZGFuIGp1Z2EgbWVuZGFwYXRrYW4gYm9udXMgdGFtYmFoYW4gMSUgamlrYSBBbmRhIHRlbGFoIGJla2VyamEgZGkgcGVydXNhaGFhbiBpbmkgc2VsYW1hIGxlYmloIGRhcmkgMyB0YWh1biwgU2lsYWthbiBoaXR1bmcgdG90YWwgYm9udXMgZGVuZ2FuIG1lbmdndW5ha2FuIHBlcm55YXRhYW4gYGlmLCBmb3IsIGRhbiBicmVha2AsICANCg0KDQpgYGB7cn0NCnggPC0gc3Vic2V0KERhdGEsIE1hcmtldGluZ19OYW1lPT0iQnVkaSIpDQoNCngkQm9va2luZ19mZWUgLT4gYQ0KeCRXb3JrX0V4cCAtPiBiDQoNCnogPC0gaWZlbHNlKGIgPCAzLCAoYSowLjAyKSwgKGEqMC4wMikgKyAoYSowLjAxKSkNCg0KeCRCb251cyA9IHoNCg0KbGlicmFyeShEVCkNCmRhdGF0YWJsZSh4KQ0KYGBgDQoNCg0KIyMgU29hbCA1IA0KDQpQYWRhIGJhZ2lhbiBpbmksIEFuZGEgZGloYXJhcGthbiBkYXBhIG1lbWJ1YXQgZnVuZ3NpIHlhbmcgZGFwYXQgbWVuamF3YWIgc2V0aWFwIHBlbnlhdGFhbiBkaWJhd2FoIGluaSBkZW5nYW4gbWVsaWJhdGthbiBzZXRpYXAgZnVuZ3NpIGtvbnRyb2wgeWFuZyBkaXBlbGFqYXJpIHBhZGEgcGVydGVtdWFuIDcsDQoNCiogU2lhcGEgbmFtYSBtYXJrZXRpbmcgcGVtYXNhcmFuIHRlcmJhaWs/DQoqIEtvdGEgZGFuIENsdXN0ZXIgbWFuYSB5YW5nIHBhbGluZyBtZW5ndW50dW5na2FuPw0KKiBIaXR1bmcgdG90YWwgYmlheWEgaWtsYW4gQW5kYSwgamlrYSBBbmRhIGhhcnVzIG1lbWJheWFybnlhICQ0IHNldGlhcCBrYWxpIGlrbGFuLA0KKiBIaXR1bmcgcmF0YS1yYXRhIGJpYXlhIGlrbGFuIHVudHVrIHNldGlhcCBtYXJrZXRpbmcgZGkgUGVydXNhaGFhbiB0ZXJzZWJ1dCwNCiogSGl0dW5nIFRvdGFsIFBlbmRhcGF0YW4gKGRhbGFtIEJ1bGFuYW4pIA0KDQoNCmBgYHtyfQ0KIyBTaWFwYSBuYW1hIG1hcmtldGluZyBwZW1hc2FyYW4gdGVyYmFpaz8NCg0KeCA8LSBEYXRhJE1hcmtldGluZ19OYW1lDQoNCkpvbmF0aGFuID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiSm9uYXRoYW4iKSkNClRoZW9kb3JhID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiVGhlb2RvcmEiKSkNCkFuZ2VsID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiQW5nZWwiKSkNClNoZXJseSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIlNoZXJseSIpKQ0KVmFuZXNzYSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIlZhbmVzc2EiKSkNCklyZW5lID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiSXJlbmUiKSkNCkp1bGlhbiA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIkp1bGlhbiIpKQ0KSmVmZnJ5ICA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIkplZmZyeSIpKQ0KTmlraXRhICA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIk5pa2l0YSIpKQ0KS2VmYXMgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJLZWZhcyIpKQ0KU2lhbmEgID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSJTaWFuYSIpKQ0KTGFsYSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIkxhbGEiKSkgDQpGYWxsZW4gID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiRmFsbGVuIikpIA0KQXJkaWZvID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiQXJkaWZvIikpDQpLZXZpbiAgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJLZXZpbiIpKQ0KSnVlbiAgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJKdWVuIikpDQpKZXJyZWwgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09IkplcnJlbCIpKQ0KSW1lbGRhICA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIkltZWxkYSIpKQ0KV2lkaSAgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJXaWRpIikpDQpUaGVvZG9yID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiVGhlb2RvciIpKQ0KRWx2YW5pID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiRWx2YW5pIikpDQpKb25hdGhhbiA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIkpvbmF0aGFuIikpDQpTb2ZpYSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIlNvZmlhIikpDQpBYnJhaGFtID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiQWJyYWhhbSIpKQ0KU2l0aSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIlNpdGkiKSkNCk5pa28gPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJOaWtvIikpDQpTZWZsaSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIlNlZmxpIikpDQpCZW5lID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiQmVuZSIpKQ0KRGlhbmEgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJEaWFuYSIpKQ0KUHVwZSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIlB1cGUiKSkNCkFuZGkgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJBbmRpIikpDQpUYXRoYSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIlRhdGhhIikpDQpFbmRyaSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIkVuZHJpIikpDQpNb25pa2EgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJNb25pa2EiKSkNCkhhbnMgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJIYW5zIikpDQpEZWJvcmEgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJEZWJvcmEiKSkNCkhhbmlmYSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIkhhbmlmYSIpKQ0KSmFtZXMgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJKYW1lcyIpKQ0KSmloYW4gPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJKaWhhbiIpKQ0KRnJpc2thID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiRnJpc2thIikpDQpBcmRpd2FuID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiQXJkaXdhbiIpKQ0KQmFrdGkgPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJCYWt0aSIpKQ0KQW50aG9uID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiQW50aG9uIikpDQpBbXJ5ID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiQW1yeSIpKQ0KQmFzdGlhbiA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0gIkJhc3RpYW4iKSkNCldpd2lrID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSJXaXdpayIpKSAgDQpCdWRpPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJCdWRpIikpIA0KTGVvID0gc3Vic2V0KERhdGEsIChNYXJrZXRpbmdfTmFtZSA9PSAiTGVvIikpIA0KU2ltb24gPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJTaW1vbiIpKSANCk1hdGl1cyA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0iTWF0aXVzIikpIA0KQXJyeSA9IHN1YnNldChEYXRhLCAoTWFya2V0aW5nX05hbWUgPT0iQXJyeSIpKSANCkVsaWFuZG8gPSBzdWJzZXQoRGF0YSwgKE1hcmtldGluZ19OYW1lID09ICJFbGlhbmRvIikpDQoNCnkgPSBjKHN1bShBbmdlbCRCb29raW5nX2ZlZSksIHN1bShTaGVybHkkQm9va2luZ19mZWUpLCBzdW0oVmFuZXNzYSRCb29raW5nX2ZlZSksIHN1bShJcmVuZSRCb29raW5nX2ZlZSksIHN1bShKdWxpYW4kQm9va2luZ19mZWUpLCBzdW0oSmVmZnJ5JEJvb2tpbmdfZmVlKSwgc3VtKE5pa2l0YSRCb29raW5nX2ZlZSksIHN1bSAoS2VmYXMkQm9va2luZ19mZWUpLCBzdW0oU2lhbmEkQm9va2luZ19mZWUpLCBzdW0oTGFsYSRCb29raW5nX2ZlZSksIHN1bShGYWxsZW4kQm9va2luZ19mZWUpLCBzdW0oQXJkaWZvJEJvb2tpbmdfZmVlKSwgc3VtKEtldmluJEJvb2tpbmdfZmVlKSwgc3VtKEp1ZW4kQm9va2luZ19mZWUpLCBzdW0oSmVycmVsJEJvb2tpbmdfZmVlKSwgc3VtIChJbWVsZGEgJEJvb2tpbmdfZmVlKSwgc3VtKFdpZGkkQm9va2luZ19mZWUpLCBzdW0oVGhlb2RvcmEkQm9va2luZ19mZWUpLCBzdW0gKEVsdmFuaSRCb29raW5nX2ZlZSksIHN1bShKb25hdGhhbiRCb29raW5nX2ZlZSksIHN1bShTb2ZpYSRCb29raW5nX2ZlZSksIHN1bShBYnJhaGFtJEJvb2tpbmdfZmVlKSwgc3VtKFNpdGkkQm9va2luZ19mZWUpLCBzdW0gKE5pa28kQm9va2luZ19mZWUpLCBzdW0oU2VmbGkkQm9va2luZ19mZWUpLCBzdW0oQmVuZSRCb29raW5nX2ZlZSksIHN1bShEaWFuYSRCb29raW5nX2ZlZSksIHN1bShQdXBlJEJvb2tpbmdfZmVlKSwgc3VtKEFuZGkkQm9va2luZ19mZWUpLCBzdW0oVGF0aGEkQm9va2luZ19mZWUpLCBzdW0oRW5kcmkkQm9va2luZ19mZWUpICwgc3VtKE1vbmlrYSRCb29raW5nX2ZlZSksIHN1bShIYW5zJEJvb2tpbmdfZmVlKSwgc3VtKERlYm9yYSRCb29raW5nX2ZlZSksIHN1bShIYW5pZmEkQm9va2luZ19mZWUpLCBzdW0gKEphbWVzJEJvb2tpbmdfZmVlKSwgc3VtKEppaGFuJEJvb2tpbmdfZmVlKSwgc3VtKEZyaXNrYSRCb29raW5nX2ZlZSksIHN1bShBcmRpd2FuJEJvb2tpbmdfZmVlKSwgc3VtKEJha3RpJEJvb2tpbmdfZmVlKSwgc3VtKEFudGhvbiRCb29raW5nX2ZlZSksIHN1bShBbXJ5JEJvb2tpbmdfZmVlKSwgc3VtKFdpd2lrJEJvb2tpbmdfZmVlKSwgc3VtKEJhc3RpYW4kQm9va2luZ19mZWUpLCBzdW0oQnVkaSRCb29raW5nX2ZlZSksIHN1bSAoTGVvJEJvb2tpbmdfZmVlKSwgc3VtKFNpbW9uJEJvb2tpbmdfZmVlKSAsIHN1bShNYXRpdXMkQm9va2luZ19mZWUpLCBzdW0gKEFycnkkQm9va2luZ19mZWUpLCBzdW0oRWxpYW5kbyRCb29raW5nX2ZlZSkpDQoNCnogPSBkYXRhLmZyYW1lKHgsIHkpDQpwID0gd2hpY2gubWF4KHokeSkNCnEgPSB6W3AsIF0NCg0KbGlicmFyeShEVCkNCmRhdGF0YWJsZShxKQ0KYGBgDQoNCmBgYHtyfQ0KIyBLb3RhIGRhbiBDbHVzdGVyIG1hbmEgeWFuZyBwYWxpbmcgbWVuZ3VudHVuZ2thbj8NCg0KeCA8LSBEYXRhJENpdHkNCg0KSmFrYXJ0YSA9IHN1YnNldChEYXRhLCBDaXR5ID09ICJKYWthcnRhIikNCkJvZ29yID0gc3Vic2V0KERhdGEsIENpdHkgPT0gIkJvZ29yIikNCkRlcG9rID0gc3Vic2V0KERhdGEsIENpdHkgPT0gIkRlcG9rIikNClRhbmdlcmFuZyA9IHN1YnNldChEYXRhLCBDaXR5ID09ICJUYW5nZXJhbmciKQ0KQmVrYXNpID0gc3Vic2V0KERhdGEsIENpdHkgPT0gIkJla2FzaSIpDQoNCmggPSBjKHN1bShKYWthcnRhJFByaWNlKSwgc3VtKEJvZ29yJFByaWNlKSwgc3VtKERlcG9rJFByaWNlKSwgc3VtKFRhbmdlcmFuZyRQcmljZSksIHN1bShCZWthc2kkUHJpY2UpKQ0KDQppID0gZGF0YS5mcmFtZSh4LCBoKQ0KaiA9IHdoaWNoLm1heChpJGgpDQprID0gaVtqLCBdDQoNCmxpYnJhcnkoRFQpDQpkYXRhdGFibGUoaykNCg0KeSA8LSBEYXRhJENsdXN0ZXINCg0KVmljdG9yaWEgPSBzdWJzZXQoRGF0YSwgQ2x1c3RlciA9PSAiVmljdG9yaWEiKQ0KUGFsbXlyYSA9IHN1YnNldChEYXRhLCBDbHVzdGVyID09ICJQYWxteXJhIikNCldpbm9uYSA9IHN1YnNldChEYXRhLCBDbHVzdGVyID09ICJXaW5vbmEiKQ0KVGlhcmEgPSBzdWJzZXQoRGF0YSwgQ2x1c3RlciA9PSAiVGlhcmEiKQ0KTmFyYWRhID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIk5hcmFkYSIpDQpQZXJvbmlhID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIlBlcm9uaWEiKQ0KTGF2ZXNoID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIkxhdmVzaCIpDQpBbGluZHJhID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIkFsaW5kcmEiKQ0KU3dlZXRob21lID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIlN3ZWV0aG9tZSIpDQpBc2VyYSA9IHN1YnNldChEYXRhLCBDbHVzdGVyID09ICJBc2VyYSIpDQpUZXJhZGFtYWkgPSBzdWJzZXQoRGF0YSwgQ2x1c3RlciA9PSAiVGVyYWRhbWFpIikNCkFsYmFzaWEgPSBzdWJzZXQoRGF0YSwgQ2x1c3RlciA9PSAiQWxiYXNpYSIpDQpBZGFyYSA9IHN1YnNldChEYXRhLCBDbHVzdGVyID09ICJBZGFyYSIpDQpOZW9uID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIk5lb24iKQ0KQXJhbmEgPSBzdWJzZXQoRGF0YSwgQ2x1c3RlciA9PSAiQXJhbmEiKQ0KQXNva2EgPSBzdWJzZXQoRGF0YSwgQ2x1c3RlciA9PSAiQXNva2EiKQ0KUHJpbWFkb25hID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIlByaW1hZG9uYSIpDQpNdXRpYXJhID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIk11dGlhcmEiKQ0KUGVybWF0YSA9IHN1YnNldChEYXRhLCBDbHVzdGVyID09ICJQZXJtYXRhIikNCkFsYW1hbmRhID0gc3Vic2V0KERhdGEsIENsdXN0ZXIgPT0gIkFsYW1hbmRhIikNCg0KcyA9IGMoc3VtKFZpY3RvcmlhJFByaWNlKSwgc3VtKFBhbG15cmEkUHJpY2UpLCBzdW0oV2lub25hJFByaWNlKSwgc3VtKFRpYXJhJFByaWNlKSwgc3VtKE5hcmFkYSRQcmljZSksIHN1bShQZXJvbmlhJFByaWNlKSwgc3VtKExhdmVzaCRQcmljZSksIHN1bShBbGluZHJhJFByaWNlKSwgc3VtKFN3ZWV0aG9tZSRQcmljZSksIHN1bShBc2VyYSRQcmljZSksIHN1bShUZXJhZGFtYWkkUHJpY2UpLCBzdW0oQWxiYXNpYSRQcmljZSksIHN1bShBZGFyYSRQcmljZSksIHN1bShOZW9uJFByaWNlKSwgc3VtKEFyYW5hJFByaWNlKSwgc3VtKEFzb2thJFByaWNlKSwgc3VtKFByaW1hZG9uYSRQcmljZSksIHN1bShNdXRpYXJhJFByaWNlKSwgc3VtKFBlcm1hdGEkUHJpY2UpLCBzdW0oQWxhbWFuZGEkUHJpY2UpKQ0KDQp0ID0gZGF0YS5mcmFtZSh5LCBzKQ0KdSA9IHdoaWNoLm1heCh0JHMpDQp2ID0gdFt1LCBdDQoNCmxpYnJhcnkoRFQpDQpkYXRhdGFibGUodikNCmBgYA0KDQpgYGB7cn0NCiMgSGl0dW5nIHRvdGFsIGJpYXlhIGlrbGFuIEFuZGEsIGppa2EgQW5kYSBoYXJ1cyBtZW1iYXlhcm55YSAkNCBzZXRpYXAga2FsaSBpa2xhbg0KDQp4IDwtIHN1YnNldChEYXRhLCBNYXJrZXRpbmdfTmFtZT09IkJ1ZGkiKQ0KDQp4JEFkdmVydGlzZW1lbnQgLT4gYw0KDQp4JEJpYXlhX0lrbGFuIDwtIGlmZWxzZShjID49IDEsIGMqNCwgMCkNCg0KbGlicmFyeShEVCkNCmRhdGF0YWJsZSh4KQ0KDQpUb3RhbF9CaWF5YV9Ja2xhbiA9IHN1bSh4JEJpYXlhX0lrbGFuKQ0KVG90YWxfQmlheWFfSWtsYW4NCmBgYA0KYGBge3J9DQojIEhpdHVuZyByYXRhLXJhdGEgYmlheWEgaWtsYW4gdW50dWsgc2V0aWFwIG1hcmtldGluZyBkaSBQZXJ1c2FoYWFuIHRlcnNlYnV0DQoNCkRhdGEkQmlheWFfSWtsYW4gPC0gaWZlbHNlKERhdGEkQWR2ZXJ0aXNlbWVudCA+PSAxLCBEYXRhJEFkdmVydGlzZW1lbnQqNCwgMCkNCg0KeCA9IGMoIkFuZ2VsIiwiU2hlcmx5IiwgIlZhbmVzc2EiLCAiSXJlbmUiLCJKdWxpYW4iLCAiSmVmZnJ5IiwgIk5pa2l0YSIsICJLZWZhcyIsICJTaWFuYSIsICJMYWxhIiwgIkZhbGxlbiIsICJBcmRpZm8iLCAiS2V2aW4iLCAiSnVlbiIsICJKZXJyZWwiLCAiSW1lbGRhIiwgIldpZGkiLCAiVGhlb2RvcmEiLCAiRWx2YW5pIiwiSm9uYXRoYW4iLCAiU29maWEiLCAiQWJyYWhhbSIsICJTaXRpIiwgIk5pa28iLCAiU2VmbGkiLCAiQmVuZSIsICJEaWFuYSIsICJQdXBlIiwgIkFuZGkiLCAiVGF0aGEiLCAiRW5kcmkiLCAiTW9uaWthIiwgIkhhbnMiLCAiRGVib3JhIiwiSGFuaWZhIiwgIkphbWVzIiwgIkppaGFuIiwgIkZyaXNrYSIsICJBcmRpd2FuIiwgIkJha3RpIiwgIkFudGhvbiIsIkFtcnkiLCAiV2l3aWsiLCAiQmFzdGlhbiIsICJCdWRpIiwgIkxlbyIsIlNpbW9uIiwgIk1hdGl1cyIsICJBcnJ5IiwgIkVsaWFuZG8iKQ0KDQpmb3IgKGkgaW4geCkgew0KICB5IDwtIHN1YnNldChEYXRhLCBNYXJrZXRpbmdfTmFtZSA9PSBpKQ0KICB6IDwtIHN1bSh5JEJpYXlhX0lrbGFuKQ0KICBwcmludChjYXQoc3VtKHopL2xlbmd0aCh5JElkKSwgY2F0KGksICJSZXJhdGEgQWR2ZXJ0aXNlbWVudCBDb3N0IDogIikpKQ0KfQ0KYGBgDQoNCg0KYGBge3J9DQojIEhpdHVuZyBUb3RhbCBQZW5kYXBhdGFuIChkYWxhbSBCdWxhbmFuKQ0KDQpEYXRhJFByaWNlIC0+IHgNCkRhdGEkQWR2ZXJ0aXNlbWVudCAtPiB5DQoNCmZvciAoaSBpbiBEYXRhKSB7DQogIHogPSBzdW0oeCkgLSAoc3VtKHkpKjQpDQp9DQoNCnoNCmBgYA0KDQoNCiMgS2FzdXMgMg0KDQpNaXNhbGthbiBBbmRhIG1lbWlsaWtpIHByb3llayByaXNldCBwYXNhciB1bnR1ayBtZW1wZXJ0YWhhbmthbiBiZWJlcmFwYSBwZWxhbmdnYW4gcG90ZW5zaWFsIGRpIHBlcnVzYWhhYW4gQW5kYSwgTWFyaSBraXRhIGFzdW1zaWthbiBBbmRhIGJla2VyamEgZGkgcGVydXNhaGFhbiBhc3VyYW5zaSBBQkMsIFVudHVrIG1lbGFrdWthbm55YSwgQW5kYSBpbmdpbiBtZW5ndW1wdWxrYW4ga3VtcHVsYW4gZGF0YSBiZXJpa3V0Og0KDQoqICoqTWFyaXRhbF9TdGF0dXMqKiAgICA6IG1lbmV0YXBrYW4gc3RhdHVzIHBlcmthd2luYW4gYWNhayAoIllhIiwgIlRpZGFrIikNCiogKipBZGRyZXNzKiogICAgICAgICAgIDogYmVyaWthbiBhbGFtYXQgYWNhayAoSkFCT0RFVEFCRUspIA0KKiAqKldvcmtfTG9jYXRpb24qKiAgICAgOiBtZW5ldGFwa2FuIGxva2FzaSBrZXJqYSBzZWNhcmEgYWNhayAoSkFCT0RFVEFCRUspIA0KKiAqKkFnZSoqICAgICAgICAgICAgICAgOiBtZW5ldGFwa2FuIHVydXRhbiBhbmdrYSBhY2FrIChkYXJpIDE5IGhpbmdnYSA2MCkgDQoqICoqQWNhZGVtaWMqKiAgICAgICAgICA6IG1lbmV0YXBrYW4gdGluZ2thdCBha2FkZW1payBhY2FrICgiSixTY2hvb2wiLCAiSCxTY2hvb2wiLCAiU2FyamFuYSIsICJNYWdpc3RlciIsICJQaGQiKSANCiogKipKb2IqKiAgICAgICAgICAgICAgIDogMTAgcGVrZXJqYWFuIGFjYWsgdW50dWsgc2V0aWFwIHRpbmdrYXQgYWthZGVtaWsgIA0KKiAqKkdyYWRlKiogICAgICAgICAgICAgOiA1IG5pbGFpIGFjYWsgdW50dWsgc2V0aWFwIFBla2VyamFhbiANCiogKipJbmNvbWUqKiAgICAgICAgICAgIDogdGV0YXBrYW4gcGVuZGFwYXRhbiB5YW5nIG11bmdraW4gdW50dWsgc2V0aWFwIFBla2VyamFhbiAgDQoqICoqU3BlbmRpbmcqKiAgICAgICAgICA6IHRldGFwa2FuIGtlbXVuZ2tpbmFuIHBlbmdlbHVhcmFuIHVudHVrIHNldGlhcCBQZWtlcmphYW4gDQoqICoqTnVtYmVyX29mX2NoaWxkcmVuKio6IG1lbmV0YXBrYW4gbm9tb3IgYWNhayBkaSBhbnRhcmEgMCBkYW4gMTAgKHNlc3VhaSBkZW5nYW4gc3RhdHVzIHBlcmthd2luYW4pDQoqICoqUHJpdmF0ZV92ZWhpY2xlKiogICA6IG1lbmV0YXBrYW4ga2VtdW5na2luYW4ga2VuZGFyYWFuIHByaWJhZGkgdW50dWsgc2V0aWFwIG9yYW5nICgiTW9iaWwiLCAic2VwZWRhIG1vdG9yIiwgIlVtdW0iKSANCiogKipIb21lKiogICAgICAgICAgICAgIDogIlNld2EiLCAiTWlsaWsiLCAiS3JlZGl0IiANCg0KIyMgU29hbCAxIA0KDQpUb2xvbmcgYmVyaWthbiBzYXlhIGt1bXB1bGFuIGRhdGEgdGVudGFuZyBpbmZvcm1hc2kgNTAwMDAgcGVsYW5nZ2FuIHlhbmcgbWVuZ2FjdSBwYWRhIHNldGlhcCB2YXJpYWJlbCBkaSBhdGFzISANCg0KDQpgYGB7cn0NCk1hcml0YWxfU3RhdHVzIDwtIHNhbXBsZShjKCJZZXMiLCAiTm8iKSwgNTAwMDAsIHJlcGxhY2U9VCkNCkFkZHJlc3MgPC0gc2FtcGxlKGMoIkpha2FydGEiLCAiQm9nb3IiLCAiRGVwb2siLCAiVGFuZ2VyYW5nIiwgIkJla2FzaSIpLCA1MDAwMCwgcmVwbGFjZT1UKQ0KV29ya19Mb2NhdGlvbiA8LSByZXAoYygiSmFrYXJ0YSIsICJCb2dvciIsICJEZXBvayIsICJUYW5nZXJhbmciLCAiQmVrYXNpIiksIDEwMDAwLCByZXBsYWNlPVQpDQpBZ2UgPC0gc2FtcGxlKGMoMTk6NjApLCA1MDAwMCwgcmVwbGFjZT1UKQ0KQWNhZGVtaWMgPC0gc2FtcGxlKGMoIkouU2Nob29sIiwgIkguU2Nob29sIiwgIlNhcmphbmEiLCAiTWFnaXN0ZXIiLCAiUGhkIiksIDUwMDAwLCByZXBsYWNlPVQpDQpKb2IgIDwtIGlmZWxzZShBY2FkZW1pYyA9PSAiSi5TY2hvb2wiLCBzYW1wbGUoYygiQWRtaW4iLCAiU2FsZXMiLCAiSGVscGVyIFByb2R1Y3Rpb24iKSksDQogICAgICAgIGlmZWxzZShBY2FkZW1pYyA9PSAiSC5TY2hvb2wiLCAiUHJvZHVjdGlvbiBDb250cm9sIiwNCiAgICAgICAgaWZlbHNlKEFjYWRlbWljID09ICJTYXJqYW5hIiwgc2FtcGxlKGMoIk1hcmtldCBBbmFseXN0IiwgIkRhdGEgQW5hbHlzdCIpKSwNCiAgICAgICAgaWZlbHNlKEFjYWRlbWljID09ICJNYWdpc3RlciIsIHNhbXBsZShjKCJIUkQiLCAiSVQiKSksDQogICAgICAgIGlmZWxzZShBY2FkZW1pYyA9PSAiUGhkIiwgc2FtcGxlKGMoIk1hbmFnZXIgTWFya2V0aW5nIiwgIk1hbmFnZXIiKSksIDApKSkpKQ0KR3JhZGUgPC0gc2FtcGxlKGMoMTo1KSwgNTAwMDAsIHJlcGxhY2U9VCkNCkluY29tZSA8LSBpZmVsc2UoSm9iID09ICJBZG1pbiIsIDMyMDAwMDAsDQogICAgICAgICAgaWZlbHNlKEpvYiA9PSAiU2FsZXMiLCA0MDAwMDAwLA0KICAgICAgICAgIGlmZWxzZShKb2IgPT0gIkhlbHBlciBQcm9kdWN0aW9uIiwgNDIwMDAwMCwNCiAgICAgICAgICBpZmVsc2UoSm9iID09ICJQcm9kdWN0aW9uIENvbnRyb2wiLCA0NTAwMDAwLA0KICAgICAgICAgIGlmZWxzZShKb2IgPT0gIk1hcmtldCBBbmFseXN0IiwgNTAwMDAwMCwNCiAgICAgICAgICBpZmVsc2UoSm9iID09ICJEYXRhIEFuYWx5c3QiLCA1NTAwMDAwLA0KICAgICAgICAgIGlmZWxzZShKb2IgPT0gIkhSRCIsIDYyMDAwMDAsDQogICAgICAgICAgaWZlbHNlKEpvYiA9PSAiTWFuYWdlciBNYXJrZXRpbmciLCA3MDAwMDAwLA0KICAgICAgICAgIGlmZWxzZShKb2IgPT0gIk1hbmFnZXIiLCA3NTAwMDAwLA0KICAgICAgICAgIGlmZWxzZShKb2IgPT0gIklUIiwgODAwMDAwMCwgMCkpKSkpKSkpKSkNClNwZW5kaW5nIDwtIHNhbXBsZShjKDUwMDAwOjUwMDAwMCksIDUwMDAwLCByZXBsYWNlPVQpDQpOdW1iZXJfb2ZfY2hpbGRyZW4gPC0gaWZlbHNlKE1hcml0YWxfU3RhdHVzID09ICJZZXMiLCBzYW1wbGUoYygwOjEwKSksICItIikNClByaXZhdGVfdmVoaWNsZSA8LSBzYW1wbGUoYygiTW9iaWwiLCAiU2VwZWRhIiwgIk1vdG9yIiwgIlVtdW0iKSwgNTAwMDAsIHJlcGxhY2U9VCkNCkhvbWUgPC0gc2FtcGxlKGMoIlNld2EiLCAiTWlsaWsiLCAiS3JlZGl0IiksIDUwMDAwLCByZXBsYWNlPVQpDQoNCkRhdGFfUGVsYW5nZ2FuIDwtIGRhdGEuZnJhbWUoTWFyaXRhbF9TdGF0dXMsDQogICAgICAgICAgICAgICAgICAgQWRkcmVzcywNCiAgICAgICAgICAgICAgICAgICBXb3JrX0xvY2F0aW9uLA0KICAgICAgICAgICAgICAgICAgIEFnZSwNCiAgICAgICAgICAgICAgICAgICBBY2FkZW1pYywNCiAgICAgICAgICAgICAgICAgICBKb2IsDQogICAgICAgICAgICAgICAgICAgR3JhZGUsDQogICAgICAgICAgICAgICAgICAgSW5jb21lLA0KICAgICAgICAgICAgICAgICAgIFNwZW5kaW5nLA0KICAgICAgICAgICAgICAgICAgIE51bWJlcl9vZl9jaGlsZHJlbiwNCiAgICAgICAgICAgICAgICAgICBQcml2YXRlX3ZlaGljbGUsDQogICAgICAgICAgICAgICAgICAgSG9tZSkNCg0KbGlicmFyeShEVCkNCmRhdGF0YWJsZShEYXRhX1BlbGFuZ2dhbikNCmBgYA0KDQoNCiMjIFNvYWwgMiANCg0KUmluZ2thc2FuIFN0YXRpc3RpayBwZW50aW5nIHNlcGVydGkgYXBhIHlhbmcgYmlzYSBBbmRhIGRhcGF0a2FuIGRhcmkga3VtcHVsYW4gZGF0YSBBbmRhPw0KDQoNCmBgYHtyfQ0Kc3VtbWFyeShEYXRhX1BlbGFuZ2dhbiRJbmNvbWUpDQpzdW1tYXJ5KERhdGFfUGVsYW5nZ2FuJFNwZW5kaW5nKQ0KYGBgDQoNCg0KIyMgU29hbCAzIA0KDQpNZW51cnV0IHBlcmhpdHVuZ2FuIGRhbiBhbmFsaXNpcyBBbmRhLCBwZWxhbmdnYW4gbWFuYSB5YW5nIHBvdGVuc2lhbCB1bnR1ayBBbmRhIHBlcnRhaGFua2FuPyANCg0KDQpgYGB7cn0NCkRhdGFfUGVsYW5nZ2FuJFBlbmRhcGF0YW4gPSBEYXRhX1BlbGFuZ2dhbiRJbmNvbWUgLSBEYXRhX1BlbGFuZ2dhbiRTcGVuZGluZw0KDQp4IDwtIHN1YnNldChEYXRhX1BlbGFuZ2dhbiwgUGVuZGFwYXRhbiA+PSA2NTAwMDAwKQ0KDQpsaWJyYXJ5KERUKQ0KZGF0YXRhYmxlKHgpDQpgYGANCg0K