Algoritma & Struktur Data
~ Ujian Tengah Semester ~
| Kontak | : \(\downarrow\) |
| brigita.melantika@student.matanauniversity.ac.id | |
| https://www.instagram.com/brgt_tiaraem/ | |
| RPubs | https://rpubs.com/brigitatiaraem/ |
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,7.3,
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","Tengerang","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)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.
R
library(DT)
datatable(Data)
kategori = Vectorize(function(Price)
{
if (Price>12000){
print('High')}
else if (Price>=10000 & Price<=12000){
print('Medium')}
else{
print('Low')}
})
Data$Kelas = kategori(Data$Price) 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.
R
Data$Booking_fee <- ifelse(Data$Price >= 13000,
Data$Price*0.1,
ifelse(Data$Price>=11000,
Data$Price*0.09,
ifelse(Data$Price>=10000,
Data$Price*0.08,
ifelse(Data$Price>=9000,
Data$Price*0.07,
ifelse(Data$Price>=8000,
Data$Price*0.06,
Data$Price*0.05)))))
library(DT)
library(dplyr)subset(Data, select = c(6, 10)) %>% datatable()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.
R
library(dplyr)
for (i in "Sherly"){
My_Sales <- filter(Data, Marketing_Name==i)
}
library(DT)
datatable(My_Sales)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.
R
Data$Bonus <-((0.02+
ifelse(Data$Work_Exp>3,
0.01,
0))
* Data$Booking_fee)
library(DT)
library(dplyr)
subset(Data, select = c(10, 11)) %>% datatable()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?
R
library(dplyr)
library(tidyverse)Marketing_Sales <- aggregate(Price ~ Marketing_Name,
data = Data,
sum)
Marketing_Terbaik <- Marketing_Sales[
order(Marketing_Sales$Price,
decreasing = T),] %>%
head (1) %>%
print()## Marketing_Name Price
## 25 Jeffry 2261180- Kota dan Cluster mana yang paling menguntungkan?
library(dplyr)
City_Cluster <- aggregate(Price ~ City + Cluster,
data = Data,
sum)
City_Cluster_Menguntungkan <- City_Cluster [
order(City_Cluster$Price, decreasing = T),] %>%
head(1)%>%
print()## City Cluster Price
## 62 Bogor Permata 1444394- Hitung total biaya iklan Anda, jika Anda harus membayarnya $4 setiap kali iklan.
Data$Advertisement <- as.numeric(Data$Advertisement)
Data$Advertisement_Cost <- Data$Advertisement * 4
Total_Biaya_Iklan <- sum(Data$Advertisement_Cost)
paste("The total cost was", Total_Biaya_Iklan)## [1] "The total cost was 416360"- Hitung rata-rata biaya iklan untuk setiap marketing di Perusahaan tersebut.
Marketing_Rata2_Biayaiklan <- aggregate(Advertisement_Cost ~ Marketing_Name,
data = Data,
mean)
library(DT)
datatable(Marketing_Rata2_Biayaiklan)- Hitung Total Pendapatan (dalam Bulanan)
library(dplyr)
Data$Revenue <- Data$Booking_fee + Data$Price
Monthly_Revenue <- Data %>%
separate(Date_Sales, c("Year", "Month", "Day"), sep = "-") %>%
select(Year, Month, Revenue)
Total_Monthly_Revenue <- aggregate(Revenue ~ Year+Month,Monthly_Revenue, sum)
Total_Monthly_Revenue <- Total_Monthly_Revenue[order(Total_Monthly_Revenue$Year, decreasing = F),]
library(DT)
datatable(Total_Monthly_Revenue)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!
R
Marital_Status <- sample(c("yes","no"),50000, replace = T)
Address <- sample(c("Jakarta","Bogor", "Depok", "Tangerang", "Bekasi"),50000, replace = T)
Work_Location <- sample(c("Jakarta", "Bogor", "Depok", "Tangerang", "Bekasi"),50000, replace = T)
Age <- sample(19:60,50000,replace = T)
Academic <- sample(c("J.School","H.School","Undergraduate","Master","PhD"),50000,T)
Job <- ifelse (Academic=="J.School",
sample(c("Office Boy/Office Girl", "Pemelihara Anjing", "ART", "Buruh Pabrik", "Ojek Online", "Security", "Packing Barang","Pelayan Restoran", "Kasir", "Sopir")),
ifelse(Academic=="H.School",
sample(c("Asisten Administrasi", "Marketing","Drafter", "Guru Les", "Operator Labotarium", "Polisi","Data Entry", "Teknisi Listrik",
"Customer Service", "ABK")),
ifelse(Academic=="Undergraduate",
sample(c("Guru", "Pilot","Akuntan", "Nakhoda",
"Software Developer", "Masinis",
"Arsitektur", "PNS",
"Data Analyst", "Dokter")),
ifelse(Academic=="Master",
sample(c("Aktuaris", "Dosen",
"Data Scientist", "Dokter Spesialis",
"Computer Science & Engineering", "Enterpreneur",
"Notaris", "Biomedical Engineering",
"Psikolog", "Technology Management")),
sample(c("CEO", "Hakim", "Researcher", "Manager",
"Senior Marketing Profesional", "Anggota Dewan",
"Menteri", "Neuroscientist",
"Rektor", "Direktur"))
))))
Grade <- sample(1:5 ,50000,replace = T)
Salary_function <- function(x){
J.School <- sample(c(500000:2000000))
H.School <- sample(c(2000000:4000000))
Undergraduate <- sample(c(4000000:10000000))
Master <- sample(c(10000000:20000000))
PhD <- sample(c(20000000:50000000))
Basic_Salary<-ifelse(x=="J.School",
J.School,
ifelse(x=="H.School",
H.School,
ifelse(x=="Undergraduate",
Undergraduate,
ifelse(x=="Master",
Master,
PhD))))
}
Income <- Salary_function(Academic)
Spending <- 0.8*Income
Number_of_Children <- ifelse(Marital_Status=="yes",
sample(c(0:10)),
0)
Private_Vehicle <- sample(c('Car','Motorcycle','Public'),50000,replace = T)
Home <- sample(c("Sewa", "Milik", "Kredit"),50000, replace = T)
Asuransi_ABC <- data.frame(Marital_Status,
Address,
Work_Location,
Age,
Academic,
Job,
Grade,
Income,
Spending,
Number_of_Children,
Private_Vehicle,
Home)
library(DT)
datatable(Asuransi_ABC)Soal 2
Ringkasan Statistik penting seperti apa yang bisa Anda dapatkan dari kumpulan data Anda?
R
summary(Asuransi_ABC)## Marital_Status Address Work_Location Age
## Length:50000 Length:50000 Length:50000 Min. :19.00
## Class :character Class :character Class :character 1st Qu.:29.00
## Mode :character Mode :character Mode :character Median :40.00
## Mean :39.51
## 3rd Qu.:50.00
## Max. :60.00
## Academic Job Grade Income
## Length:50000 Length:50000 Min. :1.000 Min. : 500031
## Class :character Class :character 1st Qu.:2.000 1st Qu.: 2498031
## Mode :character Mode :character Median :3.000 Median : 6972230
## Mean :2.992 Mean :12288188
## 3rd Qu.:4.000 3rd Qu.:17597697
## Max. :5.000 Max. :49998801
## Spending Number_of_Children Private_Vehicle Home
## Min. : 400025 Min. : 0.000 Length:50000 Length:50000
## 1st Qu.: 1998425 1st Qu.: 0.000 Class :character Class :character
## Median : 5577784 Median : 0.000 Mode :character Mode :character
## Mean : 9830550 Mean : 2.511
## 3rd Qu.:14078158 3rd Qu.: 5.000
## Max. :39999041 Max. :10.000#yang penting adalah pengeluaran, pemasukan, Home.
#Spending karena mempengaruhi pemasukan perusahaan ( Jika terlalu boros)
#Income karena harus menyetarakan pemasukan pelanggan dengan biaya asuransinya
#Home karena kalau rumahnya milik tidak ada tanggungan lain ,
#Jika sewa atau kredit akan mempengaruhi pembayaran asuransiSoal 3
Menurut perhitungan dan analisis Anda, pelanggan mana yang potensial untuk Anda pertahankan?
R
kategori <- Vectorize(function(Income)
{
if (Income > 4000000){
print('Yes')}
else {
print('No')}
})
Asuransi_ABC$dipertahankan <- kategori(Asuransi_ABC$Income)subset(Asuransi_ABC, select = c(8, 13)) %>% datatable()Referensi
- ref 1
- ref 2
- ref 3
LS0tDQp0aXRsZTogIkFsZ29yaXRtYSAmIFN0cnVrdHVyIERhdGEiDQpzdWJ0aXRsZTogIn4gVWppYW4gVGVuZ2FoIFNlbWVzdGVyIH4iDQphdXRob3I6ICJCcmlnaXRhIFRpYXJhIEVNIg0KZGF0ZTogICJgciBmb3JtYXQoU3lzLkRhdGUoKSwgJyVCICVkLCAlWScpYCINCm91dHB1dDoNCiAgcm1kZm9ybWF0czo6cm9ib2Jvb2s6ICAgIyBodHRwczovL2dpdGh1Yi5jb20vanViYS9ybWRmb3JtYXRzDQogICAgc2VsZl9jb250YWluZWQ6IHRydWUNCiAgICB0aHVtYm5haWxzOiB0cnVlDQogICAgbGlnaHRib3g6IHRydWUNCiAgICBnYWxsZXJ5OiB0cnVlDQogICAgbGliX2RpcjogbGlicw0KICAgIGRmX3ByaW50OiAicGFnZWQiDQogICAgY29kZV9mb2xkaW5nOiAic2hvdyINCiAgICBjb2RlX2Rvd25sb2FkOiB5ZXMNCiAgICBjc3M6ICJzdHlsZS5jc3MiDQoNCi0tLQ0KDQpgYGB7ciBpbmNsdWRlPUZBTFNFfQ0Ka25pdHI6Om9wdHNfY2h1bmskc2V0KGNsYXNzLnNvdXJjZSA9ICJub2NvcHkiLA0KICAgICAgICAgICAgICAgICAgICAgIGNsYXNzLm91dHB1dCA9ICJub2NvcHkiLA0KICAgICAgICAgICAgICAgICAgICAgIG1lc3NhZ2UgPSBGLA0KICAgICAgICAgICAgICAgICAgICAgIHdhcm5pbmcgPSBGKQ0KYGBgDQoNCjxicj4NCg0KPGltZyBzdHlsZT0iZmxvYXQ6IHJpZ2h0OyBtYXJnaW46IDBweCAxMDBweCAwcHggMHB4OyB3aWR0aDoyNSUiIHNyYz0iZm90b3ByaWJhZGkuanBnIi8+IA0KDQp8DQo6LS0tLSB8Oi0tLS0NCioqS29udGFrKip8ICoqOiAkXGRvd25hcnJvdyQqKg0KRW1haWx8IGJyaWdpdGEubWVsYW50aWthQHN0dWRlbnQubWF0YW5hdW5pdmVyc2l0eS5hYy5pZA0KSW5zdGFncmFtIHwgaHR0cHM6Ly93d3cuaW5zdGFncmFtLmNvbS9icmd0X3RpYXJhZW0vIA0KUlB1YnMgIHwgaHR0cHM6Ly9ycHVicy5jb20vYnJpZ2l0YXRpYXJhZW0vIA0KDQoqKioNCg0KIyBLYXN1cyAxIA0KDQpBc3Vtc2lrYW4gQW5kYSB0ZWxhaCBtZW5ndW1wdWxrYW4gYmViZXJhcGEga3VtcHVsYW4gZGF0YSBkYXJpIHBlcnVzYWhhYW4gYEFCQyBQcm9wZXJ0eWAgc2VwZXJ0aSB5YW5nIGRhcGF0IGtpdGEgbGloYXQgcGFkYSB0YWJlbCBiZXJpa3V0OiANCg0KYGBge3IsIG1lc3NhZ2U9Rn0NCklkICAgICAgICAgICAgIDwtICgxOjEwMDAwKQ0KTWFya2V0aW5nX05hbWUgPC0gcmVwKGMoIkFuZ2VsIiwiU2hlcmx5IiwiVmFuZXNzYSIsIklyZW5lIiwiSnVsaWFuIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICJKZWZmcnkiLCJOaWtpdGEiLCJLZWZhcyIsIlNpYW5hIiwiTGFsYSIsDQogICAgICAgICAgICAgICAgICAgICAgICAiRmFsbGVuIiwiQXJkaWZvIiwiS2V2aW4iLCJKdWVuIiwiSmVycmVsIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICJJbWVsZGEiLCJXaWRpIiwiVGhlb2RvcmEiLCJFbHZhbmkiLCJKb25hdGhhbiIsDQogICAgICAgICAgICAgICAgICAgICAgICAiU29maWEiLCJBYnJhaGFtIiwiU2l0aSIsIk5pa28iLCJTZWZsaSIsDQogICAgICAgICAgICAgICAgICAgICAgICAiQmVuZSIsICJEaWFuYSIsICJQdXBlIiwgIkFuZGkiLCAiVGF0aGEiLA0KICAgICAgICAgICAgICAgICAgICAgICAgIkVuZHJpIiwgIk1vbmlrYSIsICJIYW5zIiwgIkRlYm9yYSIsIkhhbmlmYSIsDQogICAgICAgICAgICAgICAgICAgICAgICAiSmFtZXMiLCAiSmloYW4iLCAiRnJpc2thIiwiQXJkaXdhbiIsICJCYWt0aSIsDQogICAgICAgICAgICAgICAgICAgICAgICAiQW50aG9uIiwiQW1yeSIsICJXaXdpayIsICJCYXN0aWFuIiwgIkJ1ZGkiLA0KICAgICAgICAgICAgICAgICAgICAgICAgIkxlbyIsIlNpbW9uIiwiTWF0aXVzIiwiQXJyeSIsICJFbGlhbmRvIiksIDIwMCkNCldvcmtfRXhwICAgICAgIDwtIHJlcChjKDEuMywyLjQsMi41LDMuNiwzLjcsNC43LDUuNyw2LjcsNy43LDcuMywNCiAgICAgICAgICAgICAgICAgICAgICAgIDUuMyw1LjMsMTAsOS4zLDMuMywzLjMsMy40LDMuNCwzLjUsNS42LA0KICAgICAgICAgICAgICAgICAgICAgICAgMy41LDQuNiw0LjYsNS43LDYuMiw0LjQsNi40LDYuNCwzLjUsNy41LA0KICAgICAgICAgICAgICAgICAgICAgICAgNC42LDMuNyw0LjcsNC4zLDUuMiw2LjMsNy40LDIuNCwzLjQsOC4yLA0KICAgICAgICAgICAgICAgICAgICAgICAgNi40LDcuMiwxLjUsNy41LDEwLDQuNSw2LjUsNy4yLDcuMSw3LjYpLDIwMCkNCkNpdHkgICAgICAgICAgIDwtIHNhbXBsZShjKCJKYWthcnRhIiwiQm9nb3IiLCJEZXBvayIsIlRlbmdlcmFuZyIsIkJla2FzaSIpLDEwMDAwLCByZXBsYWNlID0gVCkNCkNsdXN0ZXIgICAgICAgIDwtIHNhbXBsZShjKCJWaWN0b3JpYSIsIlBhbG15cmEiLCJXaW5vbmEiLCJUaWFyYSIsICJOYXJhZGEiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgIlBlcm9uaWEiLCJMYXZlc2giLCJBbGluZHJhIiwiU3dlZXRob21lIiwgIkFzZXJhIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICJUZXJhZGFtYWkiLCJBbGJhc2lhIiwgIkFkYXJhIiwiTmVvbiIsIkFyYW5hIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICJBc29rYSIsICJQcmltYWRvbmEiLCAiTXV0aWFyYSIsIlBlcm1hdGEiLCJBbGFtYW5kYSIgKSwgMTAwMDAsIHJlcGxhY2U9VCkNClByaWNlICAgICAgICAgIDwtIHNhbXBsZShjKDcwMDA6MTUwMDApLDEwMDAwLCByZXBsYWNlID0gVCkNCkRhdGVfU2FsZXMgICAgIDwtIHNhbXBsZShzZXEoYXMuRGF0ZSgiMjAxOC8wMS8wMSIpLCBieSA9ICJkYXkiLCBsZW5ndGgub3V0ID0gMTAwMCksMTAwMDAsIHJlcGxhY2UgPSBUKQ0KQWR2ZXJ0aXNlbWVudCAgPC0gc2FtcGxlKGMoMToyMCksIDEwMDAwLCByZXBsYWNlID0gVCkNCkRhdGEgICAgICAgICAgIDwtIGRhdGEuZnJhbWUoSWQsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBNYXJrZXRpbmdfTmFtZSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgV29ya19FeHAsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIENpdHksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIENsdXN0ZXIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIFByaWNlLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBEYXRlX1NhbGVzLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBBZHZlcnRpc2VtZW50KQ0KbGlicmFyeShEVCkNCmRhdGF0YWJsZShEYXRhKQ0KYGBgDQoNCiMjIFNvYWwgMSB7LnRhYnNldCAudGFic2V0LXBpbGxzfQ0KDQpLYXRlZ29yaWthbiB2YXJpYWJlbCBgSGFyZ2FgIHBhZGEgZGF0YXNldCBkaSBhdGFzIG1lbmphZGkgdGlnYSBrZWxvbXBvayBzZWJhZ2FpIGJlcmlrdXQ6DQoNCiogJFx0ZXh0e0hpZ2h9ID4gMTIwMDAkDQoqICQxMDAwMCBcbGUgXHRleHR7TWVkaXVtfSBcbGUgMTIwMDAkDQoqICRcdGV4dHtMb3d9IDwgMTAwMDAkDQoNClRldGFwa2FuIGtlIGRhbGFtIHZhcmlhYmVsIGJhcnUgeWFuZyBkaXNlYnV0IGBLZWxhc2AgZGVuZ2FuIG1lbmdndW5ha2FuIGZ1bmdzaSBrb250cm9sIGBJZmAsIGBlbHNlIGlmYCwgZGFuIGBlbHNlYC4NCg0KIyMjIFINCg0KYGBge3IgZWNobz1ULCByZXN1bHRzPSdoaWRlJ30NCmxpYnJhcnkoRFQpDQpkYXRhdGFibGUoRGF0YSkNCg0Ka2F0ZWdvcmkgPSBWZWN0b3JpemUoZnVuY3Rpb24oUHJpY2UpDQp7DQogIGlmIChQcmljZT4xMjAwMCl7ICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KICAgIHByaW50KCdIaWdoJyl9ICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogIGVsc2UgaWYgKFByaWNlPj0xMDAwMCAmIFByaWNlPD0xMjAwMCl7ICAgICAgICANCiAgICBwcmludCgnTWVkaXVtJyl9ICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KICBlbHNleyAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgDQogICAgcHJpbnQoJ0xvdycpfSAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCn0pDQpEYXRhJEtlbGFzID0ga2F0ZWdvcmkoRGF0YSRQcmljZSkgDQpgYGANCmBgYHtyfQ0KZGF0YXRhYmxlKERhdGEpDQpgYGANCg0KDQojIyBTb2FsIDIgey50YWJzZXQgLnRhYnNldC1waWxsc30NCg0KS2F0ZWdvcmlrYW4gdmFyaWFiZWwgYEhhcmdhYCBwYWRhIGRhdGFzZXQgZGkgYXRhcyBtZW5qYWRpIGVuYW0ga2Vsb21wb2sgc2ViYWdhaSBiZXJpa3V0Og0KDQoqIEJvb2tpbmdfZmVlIG55YSA1ICUgamlrYSAkXHRleHR7UHJpY2V9IDwgODAwMCQNCiogQm9va2luZ19mZWUgbnlhIDYgJSBqaWthICQ4MDAwIFxsZSBcdGV4dHtQcmljZX0gPCA5MDAwJA0KKiBCb29raW5nX2ZlZSBueWEgNyAlIGppa2EgJDkwMDAgXGxlIFx0ZXh0e1ByaWNlfSA8IDEwMDAwJA0KKiBCb29raW5nX2ZlZSBueWEgOCAlIGppa2EgJDEwMDAwIFxsZSBcdGV4dHtQcmljZX0gPCAxMTAwMCQNCiogQm9va2luZ19mZWUgbnlhIDkgJSBqaWthICQxMTAwMCBcbGUgXHRleHR7UHJpY2V9IDwgMTMwMDAkDQoqIEJvb2tpbmdfZmVlIG55YSAxMCAlIGppa2EgJDEzMDAwIFxsZSBcdGV4dHtQcmljZX0gXGxlIDE1MDAwJA0KDQpUZXRhcGthbiBrZSBkYWxhbSB2YXJpYWJlbCBiYXJ1IHlhbmcgZGlzZWJ1dCBgQm9va2luZ19mZWVgIGRlbmdhbiBtZW5nZ3VuYWthbiBmdW5nc2kga29udHJvbCBgSWZgLCBgZWxzZSBpZmAsIGRhbiBgZWxzZWAuDQoNCiMjIyBSDQoNCmBgYHtyfQ0KRGF0YSRCb29raW5nX2ZlZSA8LSBpZmVsc2UoRGF0YSRQcmljZSA+PSAxMzAwMCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgIERhdGEkUHJpY2UqMC4xLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKERhdGEkUHJpY2U+PTExMDAwLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIERhdGEkUHJpY2UqMC4wOSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZmVsc2UoRGF0YSRQcmljZT49MTAwMDAsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIERhdGEkUHJpY2UqMC4wOCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKERhdGEkUHJpY2U+PTkwMDAsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBEYXRhJFByaWNlKjAuMDcsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZmVsc2UoRGF0YSRQcmljZT49ODAwMCwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBEYXRhJFByaWNlKjAuMDYsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgRGF0YSRQcmljZSowLjA1KSkpKSkNCmxpYnJhcnkoRFQpDQpsaWJyYXJ5KGRwbHlyKQ0KYGBgDQoNCmBgYHtyfQ0Kc3Vic2V0KERhdGEsIHNlbGVjdCA9IGMoNiwgMTApKSAlPiUgZGF0YXRhYmxlKCkNCmBgYA0KDQoNCiMjIFNvYWwgMyB7LnRhYnNldCAudGFic2V0LXBpbGxzfQ0KDQpNZW51cnV0IGt1bXB1bGFuIGRhdGEgYWtoaXIgeWFuZyB0ZWxhaCBBbmRhIGJ1YXQgcGFkYSBzb2FsIG5vIDIsIHNheWEgYmVyYXN1bXNpIGJhaHdhIEFuZGEgdGVsYWggYmVrZXJqYSBzZWJhZ2FpIHBlbWFzYXJhbiBkaSBwZXJ1c2FoYWFuIGBBQkMgUHJvcGVydHlgLCBiYWdhaW1hbmEgQW5kYSBkYXBhdCBtZW5ndW1wdWxrYW4gc2VtdWEgaW5mb3JtYXNpIHRlbnRhbmcgcGVuanVhbGFuIEFuZGEgZGVuZ2FuIG1lbmdndW5ha2FuIHBlcm55YXRhYW4gYGZvcmAuIA0KDQojIyMgUg0KDQpgYGB7cn0NCmxpYnJhcnkoZHBseXIpDQpmb3IgKGkgaW4gIlNoZXJseSIpew0KICBNeV9TYWxlcyA8LSBmaWx0ZXIoRGF0YSwgTWFya2V0aW5nX05hbWU9PWkpDQp9DQpsaWJyYXJ5KERUKQ0KZGF0YXRhYmxlKE15X1NhbGVzKQ0KYGBgDQoNCiMjIFNvYWwgNCB7LnRhYnNldCAudGFic2V0LXBpbGxzfQ0KDQpKaWthIEFuZGEgYWthbiBtZW5kYXBhdGthbiBib251cyAyJSBkYXJpIGBCb29raW5nIGZlZWAgcGVyIHVuaXQgc2ViYWdhaSBwZW1hc2FyYW4gZGFuIGp1Z2EgbWVuZGFwYXRrYW4gYm9udXMgdGFtYmFoYW4gMSUgamlrYSBBbmRhIHRlbGFoIGJla2VyamEgZGkgcGVydXNhaGFhbiBpbmkgc2VsYW1hIGxlYmloIGRhcmkgMyB0YWh1bi4gU2lsYWthbiBoaXR1bmcgdG90YWwgYm9udXMgZGVuZ2FuIG1lbmdndW5ha2FuIHBlcm55YXRhYW4gYGlmLCBmb3IsIGRhbiBicmVha2AuICANCg0KIyMjIFINCg0KYGBge3J9DQogICAgRGF0YSRCb251cyA8LSgoMC4wMisgDQogICAgICAgICAgICAgICAgaWZlbHNlKERhdGEkV29ya19FeHA+MywNCiAgICAgICAgICAgICAgICAgICAgICAgMC4wMSwNCiAgICAgICAgICAgICAgICAgICAgICAgMCkpDQogICAgICAgICAgICAgICogRGF0YSRCb29raW5nX2ZlZSkNCmxpYnJhcnkoRFQpDQpsaWJyYXJ5KGRwbHlyKQ0Kc3Vic2V0KERhdGEsIHNlbGVjdCA9IGMoMTAsIDExKSkgJT4lIGRhdGF0YWJsZSgpDQpgYGANCg0KIyMgU29hbCA1IHsudGFic2V0IC50YWJzZXQtcGlsbHN9DQoNClBhZGEgYmFnaWFuIGluaSwgQW5kYSBkaWhhcmFwa2FuIGRhcGEgbWVtYnVhdCBmdW5nc2kgeWFuZyBkYXBhdCBtZW5qYXdhYiBzZXRpYXAgcGVueWF0YWFuIGRpYmF3YWggaW5pIGRlbmdhbiBtZWxpYmF0a2FuIHNldGlhcCBmdW5nc2kga29udHJvbCB5YW5nIGRpcGVsYWphcmkgcGFkYSBwZXJ0ZW11YW4gNy4NCg0KKiBTaWFwYSBuYW1hIG1hcmtldGluZyBwZW1hc2FyYW4gdGVyYmFpaz8NCiogS290YSBkYW4gQ2x1c3RlciBtYW5hIHlhbmcgcGFsaW5nIG1lbmd1bnR1bmdrYW4/DQoqIEhpdHVuZyB0b3RhbCBiaWF5YSBpa2xhbiBBbmRhLCBqaWthIEFuZGEgaGFydXMgbWVtYmF5YXJueWEgJDQgc2V0aWFwIGthbGkgaWtsYW4uDQoqIEhpdHVuZyByYXRhLXJhdGEgYmlheWEgaWtsYW4gdW50dWsgc2V0aWFwIG1hcmtldGluZyBkaSBQZXJ1c2FoYWFuIHRlcnNlYnV0Lg0KKiBIaXR1bmcgVG90YWwgUGVuZGFwYXRhbiAoZGFsYW0gQnVsYW5hbikgDQoNCiogU2lhcGEgbmFtYSBtYXJrZXRpbmcgcGVtYXNhcmFuIHRlcmJhaWs/DQoNCiMjIyBSDQoNCmBgYHtyfQ0KbGlicmFyeShkcGx5cikNCmxpYnJhcnkodGlkeXZlcnNlKQ0KYGBgDQoNCmBgYHtyfQ0KTWFya2V0aW5nX1NhbGVzIDwtIGFnZ3JlZ2F0ZShQcmljZSB+IE1hcmtldGluZ19OYW1lLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICBkYXRhID0gRGF0YSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgc3VtKQ0KTWFya2V0aW5nX1RlcmJhaWsgPC0gTWFya2V0aW5nX1NhbGVzWw0KICBvcmRlcihNYXJrZXRpbmdfU2FsZXMkUHJpY2UsIA0KICAgICAgICBkZWNyZWFzaW5nID0gVCksXSAlPiUgDQogIGhlYWQgKDEpICU+JSANCiAgcHJpbnQoKQ0KYGBgDQoNCiogS290YSBkYW4gQ2x1c3RlciBtYW5hIHlhbmcgcGFsaW5nIG1lbmd1bnR1bmdrYW4/DQoNCmBgYHtyfQ0KbGlicmFyeShkcGx5cikNCkNpdHlfQ2x1c3RlciA8LSBhZ2dyZWdhdGUoUHJpY2UgfiBDaXR5ICsgQ2x1c3RlciwgDQogICAgICAgICAgICAgICAgICAgICAgICAgIGRhdGEgPSBEYXRhLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgc3VtKQ0KQ2l0eV9DbHVzdGVyX01lbmd1bnR1bmdrYW4gPC0gQ2l0eV9DbHVzdGVyIFsNCiAgb3JkZXIoQ2l0eV9DbHVzdGVyJFByaWNlLCBkZWNyZWFzaW5nID0gVCksXSAlPiUNCiAgaGVhZCgxKSU+JQ0KICBwcmludCgpDQpgYGANCiogSGl0dW5nIHRvdGFsIGJpYXlhIGlrbGFuIEFuZGEsIGppa2EgQW5kYSBoYXJ1cyBtZW1iYXlhcm55YSAkNCBzZXRpYXAga2FsaSBpa2xhbi4NCg0KYGBge3J9DQpEYXRhJEFkdmVydGlzZW1lbnQgPC0gYXMubnVtZXJpYyhEYXRhJEFkdmVydGlzZW1lbnQpDQpEYXRhJEFkdmVydGlzZW1lbnRfQ29zdCA8LSBEYXRhJEFkdmVydGlzZW1lbnQgKiA0DQpUb3RhbF9CaWF5YV9Ja2xhbiA8LSBzdW0oRGF0YSRBZHZlcnRpc2VtZW50X0Nvc3QpDQpwYXN0ZSgiVGhlIHRvdGFsIGNvc3Qgd2FzIiwgVG90YWxfQmlheWFfSWtsYW4pDQpgYGANCg0KKiBIaXR1bmcgcmF0YS1yYXRhIGJpYXlhIGlrbGFuIHVudHVrIHNldGlhcCBtYXJrZXRpbmcgZGkgUGVydXNhaGFhbiB0ZXJzZWJ1dC4NCg0KYGBge3J9DQpNYXJrZXRpbmdfUmF0YTJfQmlheWFpa2xhbiA8LSBhZ2dyZWdhdGUoQWR2ZXJ0aXNlbWVudF9Db3N0IH4gTWFya2V0aW5nX05hbWUsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgZGF0YSA9IERhdGEsDQogICAgICAgICAgICAgICAgICAgICAgICAgICBtZWFuKQ0KbGlicmFyeShEVCkNCmRhdGF0YWJsZShNYXJrZXRpbmdfUmF0YTJfQmlheWFpa2xhbikNCmBgYA0KDQoqIEhpdHVuZyBUb3RhbCBQZW5kYXBhdGFuIChkYWxhbSBCdWxhbmFuKSANCg0KYGBge3J9DQpsaWJyYXJ5KGRwbHlyKQ0KRGF0YSRSZXZlbnVlIDwtIERhdGEkQm9va2luZ19mZWUgKyBEYXRhJFByaWNlDQpNb250aGx5X1JldmVudWUgPC0gRGF0YSAlPiUgDQogIHNlcGFyYXRlKERhdGVfU2FsZXMsIGMoIlllYXIiLCAiTW9udGgiLCAiRGF5IiksIHNlcCA9ICItIikgJT4lDQogIHNlbGVjdChZZWFyLCBNb250aCwgUmV2ZW51ZSkNClRvdGFsX01vbnRobHlfUmV2ZW51ZSA8LSBhZ2dyZWdhdGUoUmV2ZW51ZSB+IFllYXIrTW9udGgsTW9udGhseV9SZXZlbnVlLCBzdW0pDQpUb3RhbF9Nb250aGx5X1JldmVudWUgPC0gVG90YWxfTW9udGhseV9SZXZlbnVlW29yZGVyKFRvdGFsX01vbnRobHlfUmV2ZW51ZSRZZWFyLCBkZWNyZWFzaW5nID0gRiksXQ0KbGlicmFyeShEVCkNCmRhdGF0YWJsZShUb3RhbF9Nb250aGx5X1JldmVudWUpDQpgYGANCg0KDQojIEthc3VzIDINCg0KTWlzYWxrYW4gQW5kYSBtZW1pbGlraSBwcm95ZWsgcmlzZXQgcGFzYXIgdW50dWsgbWVtcGVydGFoYW5rYW4gYmViZXJhcGEgcGVsYW5nZ2FuIHBvdGVuc2lhbCBkaSBwZXJ1c2FoYWFuIEFuZGEuIE1hcmkga2l0YSBhc3Vtc2lrYW4gQW5kYSBiZWtlcmphIGRpIHBlcnVzYWhhYW4gYXN1cmFuc2kgQUJDLiBVbnR1ayBtZWxha3VrYW5ueWEsIEFuZGEgaW5naW4gbWVuZ3VtcHVsa2FuIGt1bXB1bGFuIGRhdGEgYmVyaWt1dDoNCg0KKiAqKk1hcml0YWxfU3RhdHVzKiogICAgOiBtZW5ldGFwa2FuIHN0YXR1cyBwZXJrYXdpbmFuIGFjYWsgKCJZYSIsICJUaWRhayIpDQoqICoqQWRkcmVzcyoqICAgICAgICAgICA6IGJlcmlrYW4gYWxhbWF0IGFjYWsgKEpBQk9ERVRBQkVLKSANCiogKipXb3JrX0xvY2F0aW9uKiogICAgIDogbWVuZXRhcGthbiBsb2thc2kga2VyamEgc2VjYXJhIGFjYWsgKEpBQk9ERVRBQkVLKSANCiogKipBZ2UqKiAgICAgICAgICAgICAgIDogbWVuZXRhcGthbiB1cnV0YW4gYW5na2EgYWNhayAoZGFyaSAxOSBoaW5nZ2EgNjApIA0KKiAqKkFjYWRlbWljKiogICAgICAgICAgOiBtZW5ldGFwa2FuIHRpbmdrYXQgYWthZGVtaWsgYWNhayAoIkouU2Nob29sIiwgIkguU2Nob29sIiwgIlNhcmphbmEiLCAiTWFnaXN0ZXIiLCAiUGhkIikgDQoqICoqSm9iKiogICAgICAgICAgICAgICA6IDEwIHBla2VyamFhbiBhY2FrIHVudHVrIHNldGlhcCB0aW5na2F0IGFrYWRlbWlrICANCiogKipHcmFkZSoqICAgICAgICAgICAgIDogNSBuaWxhaSBhY2FrIHVudHVrIHNldGlhcCBQZWtlcmphYW4gDQoqICoqSW5jb21lKiogICAgICAgICAgICA6IHRldGFwa2FuIHBlbmRhcGF0YW4geWFuZyBtdW5na2luIHVudHVrIHNldGlhcCBQZWtlcmphYW4gIA0KKiAqKlNwZW5kaW5nKiogICAgICAgICAgOiB0ZXRhcGthbiBrZW11bmdraW5hbiBwZW5nZWx1YXJhbiB1bnR1ayBzZXRpYXAgUGVrZXJqYWFuIA0KKiAqKk51bWJlcl9vZl9jaGlsZHJlbioqOiBtZW5ldGFwa2FuIG5vbW9yIGFjYWsgZGkgYW50YXJhIDAgZGFuIDEwIChzZXN1YWkgZGVuZ2FuIHN0YXR1cyBwZXJrYXdpbmFuKQ0KKiAqKlByaXZhdGVfdmVoaWNsZSoqICAgOiBtZW5ldGFwa2FuIGtlbXVuZ2tpbmFuIGtlbmRhcmFhbiBwcmliYWRpIHVudHVrIHNldGlhcCBvcmFuZyAoIk1vYmlsIiwgInNlcGVkYSBtb3RvciIsICJVbXVtIikgDQoqICoqSG9tZSoqICAgICAgICAgICAgICA6ICJTZXdhIiwgIk1pbGlrIiwgIktyZWRpdCIgDQoNCiMjIFNvYWwgMSB7LnRhYnNldCAudGFic2V0LXBpbGxzfQ0KDQpUb2xvbmcgYmVyaWthbiBzYXlhIGt1bXB1bGFuIGRhdGEgdGVudGFuZyBpbmZvcm1hc2kgNTAwMDAgcGVsYW5nZ2FuIHlhbmcgbWVuZ2FjdSBwYWRhIHNldGlhcCB2YXJpYWJlbCBkaSBhdGFzISANCg0KIyMjIFIgDQoNCmBgYHtyfQ0KTWFyaXRhbF9TdGF0dXMgPC0gc2FtcGxlKGMoInllcyIsIm5vIiksNTAwMDAsIHJlcGxhY2UgPSBUKQ0KQWRkcmVzcyA8LSBzYW1wbGUoYygiSmFrYXJ0YSIsIkJvZ29yIiwgIkRlcG9rIiwgIlRhbmdlcmFuZyIsICJCZWthc2kiKSw1MDAwMCwgcmVwbGFjZSA9IFQpDQpXb3JrX0xvY2F0aW9uIDwtIHNhbXBsZShjKCJKYWthcnRhIiwgIkJvZ29yIiwgIkRlcG9rIiwgIlRhbmdlcmFuZyIsICJCZWthc2kiKSw1MDAwMCwgcmVwbGFjZSA9IFQpDQpBZ2UgPC0gc2FtcGxlKDE5OjYwLDUwMDAwLHJlcGxhY2UgPSBUKQ0KQWNhZGVtaWMgPC0gc2FtcGxlKGMoIkouU2Nob29sIiwiSC5TY2hvb2wiLCJVbmRlcmdyYWR1YXRlIiwiTWFzdGVyIiwiUGhEIiksNTAwMDAsVCkNCkpvYiA8LSBpZmVsc2UgKEFjYWRlbWljPT0iSi5TY2hvb2wiLA0KICAgICAgICAgICAgICAgc2FtcGxlKGMoIk9mZmljZSBCb3kvT2ZmaWNlIEdpcmwiLCAiUGVtZWxpaGFyYSBBbmppbmciLCAiQVJUIiwgIkJ1cnVoIFBhYnJpayIsICJPamVrICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgT25saW5lIiwgIlNlY3VyaXR5IiwgIlBhY2tpbmcgQmFyYW5nIiwiUGVsYXlhbiBSZXN0b3JhbiIsICJLYXNpciIsICJTb3BpciIpKSwNCiAgICAgICAgICAgICAgICAgICAgICBpZmVsc2UoQWNhZGVtaWM9PSJILlNjaG9vbCIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNhbXBsZShjKCJBc2lzdGVuIEFkbWluaXN0cmFzaSIsICJNYXJrZXRpbmciLCJEcmFmdGVyIiwgIkd1cnUgTGVzIiwgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIk9wZXJhdG9yIExhYm90YXJpdW0iLCAiUG9saXNpIiwiRGF0YSBFbnRyeSIsICJUZWtuaXNpIExpc3RyaWsiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiQ3VzdG9tZXIgU2VydmljZSIsICJBQksiKSksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZmVsc2UoQWNhZGVtaWM9PSJVbmRlcmdyYWR1YXRlIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHNhbXBsZShjKCJHdXJ1IiwgIlBpbG90IiwiQWt1bnRhbiIsICJOYWtob2RhIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJTb2Z0d2FyZSBEZXZlbG9wZXIiLCAiTWFzaW5pcyIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiQXJzaXRla3R1ciIsICJQTlMiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkRhdGEgQW5hbHlzdCIsICJEb2t0ZXIiKSksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKEFjYWRlbWljPT0iTWFzdGVyIiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2FtcGxlKGMoIkFrdHVhcmlzIiwgIkRvc2VuIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiRGF0YSBTY2llbnRpc3QiLCAiRG9rdGVyIFNwZXNpYWxpcyIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIkNvbXB1dGVyIFNjaWVuY2UgJiBFbmdpbmVlcmluZyIsICJFbnRlcnByZW5ldXIiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJOb3RhcmlzIiwgIkJpb21lZGljYWwgRW5naW5lZXJpbmciLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJQc2lrb2xvZyIsICJUZWNobm9sb2d5IE1hbmFnZW1lbnQiKSksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2FtcGxlKGMoIkNFTyIsICJIYWtpbSIsICJSZXNlYXJjaGVyIiwgIk1hbmFnZXIiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJTZW5pb3IgTWFya2V0aW5nIFByb2Zlc2lvbmFsIiwgIkFuZ2dvdGEgRGV3YW4iLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICJNZW50ZXJpIiwgIk5ldXJvc2NpZW50aXN0IiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiUmVrdG9yIiwgIkRpcmVrdHVyIikpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKSkpKQ0KR3JhZGUgPC0gc2FtcGxlKDE6NSAsNTAwMDAscmVwbGFjZSA9IFQpDQpTYWxhcnlfZnVuY3Rpb24gPC0gZnVuY3Rpb24oeCl7DQogIEouU2Nob29sIDwtIHNhbXBsZShjKDUwMDAwMDoyMDAwMDAwKSkNCiAgSC5TY2hvb2wgPC0gc2FtcGxlKGMoMjAwMDAwMDo0MDAwMDAwKSkNCiAgVW5kZXJncmFkdWF0ZSA8LSBzYW1wbGUoYyg0MDAwMDAwOjEwMDAwMDAwKSkNCiAgTWFzdGVyIDwtIHNhbXBsZShjKDEwMDAwMDAwOjIwMDAwMDAwKSkNCiAgUGhEIDwtIHNhbXBsZShjKDIwMDAwMDAwOjUwMDAwMDAwKSkNCiAgQmFzaWNfU2FsYXJ5PC1pZmVsc2UoeD09IkouU2Nob29sIiwNCiAgICAgICAgICAgICAgICAgICAgICAgSi5TY2hvb2wsDQogICAgICAgICAgICAgICAgICAgICAgIGlmZWxzZSh4PT0iSC5TY2hvb2wiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgSC5TY2hvb2wsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZmVsc2UoeD09IlVuZGVyZ3JhZHVhdGUiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFVuZGVyZ3JhZHVhdGUsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHg9PSJNYXN0ZXIiLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBNYXN0ZXIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIFBoRCkpKSkNCiAgDQp9DQpJbmNvbWUgPC0gU2FsYXJ5X2Z1bmN0aW9uKEFjYWRlbWljKQ0KDQpTcGVuZGluZyA8LSAwLjgqSW5jb21lDQpOdW1iZXJfb2ZfQ2hpbGRyZW4gPC0gaWZlbHNlKE1hcml0YWxfU3RhdHVzPT0ieWVzIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgc2FtcGxlKGMoMDoxMCkpLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAwKQ0KUHJpdmF0ZV9WZWhpY2xlIDwtIHNhbXBsZShjKCdDYXInLCdNb3RvcmN5Y2xlJywnUHVibGljJyksNTAwMDAscmVwbGFjZSA9IFQpDQpIb21lIDwtIHNhbXBsZShjKCJTZXdhIiwgIk1pbGlrIiwgIktyZWRpdCIpLDUwMDAwLCByZXBsYWNlID0gVCkNCkFzdXJhbnNpX0FCQyA8LSBkYXRhLmZyYW1lKE1hcml0YWxfU3RhdHVzLA0KICAgICAgICAgICAgICAgICAgICAgICBBZGRyZXNzLA0KICAgICAgICAgICAgICAgICAgICAgICBXb3JrX0xvY2F0aW9uLA0KICAgICAgICAgICAgICAgICAgICAgICBBZ2UsDQogICAgICAgICAgICAgICAgICAgICAgIEFjYWRlbWljLA0KICAgICAgICAgICAgICAgICAgICAgICBKb2IsDQogICAgICAgICAgICAgICAgICAgICAgIEdyYWRlLA0KICAgICAgICAgICAgICAgICAgICAgICBJbmNvbWUsDQogICAgICAgICAgICAgICAgICAgICAgIFNwZW5kaW5nLA0KICAgICAgICAgICAgICAgICAgICAgICBOdW1iZXJfb2ZfQ2hpbGRyZW4sDQogICAgICAgICAgICAgICAgICAgICAgIFByaXZhdGVfVmVoaWNsZSwNCiAgICAgICAgICAgICAgICAgICAgICAgSG9tZSkNCmxpYnJhcnkoRFQpDQpkYXRhdGFibGUoQXN1cmFuc2lfQUJDKQ0KYGBgDQoNCg0KIyMgU29hbCAyIHsudGFic2V0IC50YWJzZXQtcGlsbHN9DQoNClJpbmdrYXNhbiBTdGF0aXN0aWsgcGVudGluZyBzZXBlcnRpIGFwYSB5YW5nIGJpc2EgQW5kYSBkYXBhdGthbiBkYXJpIGt1bXB1bGFuIGRhdGEgQW5kYT8NCg0KIyMjIFINCg0KYGBge3J9DQpzdW1tYXJ5KEFzdXJhbnNpX0FCQykNCiN5YW5nIHBlbnRpbmcgYWRhbGFoIHBlbmdlbHVhcmFuLCBwZW1hc3VrYW4sIEhvbWUuIA0KI1NwZW5kaW5nIGthcmVuYSBtZW1wZW5nYXJ1aGkgcGVtYXN1a2FuIHBlcnVzYWhhYW4gKCBKaWthIHRlcmxhbHUgYm9yb3MpDQojSW5jb21lIGthcmVuYSBoYXJ1cyBtZW55ZXRhcmFrYW4gcGVtYXN1a2FuIHBlbGFuZ2dhbiBkZW5nYW4gYmlheWEgYXN1cmFuc2lueWENCiNIb21lIGthcmVuYSBrYWxhdSBydW1haG55YSBtaWxpayB0aWRhayBhZGEgdGFuZ2d1bmdhbiBsYWluICwgDQojSmlrYSBzZXdhIGF0YXUga3JlZGl0IGFrYW4gbWVtcGVuZ2FydWhpIHBlbWJheWFyYW4gYXN1cmFuc2kNCmBgYA0KDQojIyBTb2FsIDMgey50YWJzZXQgLnRhYnNldC1waWxsc30NCg0KTWVudXJ1dCBwZXJoaXR1bmdhbiBkYW4gYW5hbGlzaXMgQW5kYSwgcGVsYW5nZ2FuIG1hbmEgeWFuZyBwb3RlbnNpYWwgdW50dWsgQW5kYSBwZXJ0YWhhbmthbj8gDQoNCiMjIyBSDQoNCmBgYHtyIGVjaG89VCwgcmVzdWx0cz0naGlkZSd9DQprYXRlZ29yaSA8LSBWZWN0b3JpemUoZnVuY3Rpb24oSW5jb21lKQ0Kew0KICBpZiAoSW5jb21lID4gNDAwMDAwMCl7DQogICAgcHJpbnQoJ1llcycpfQ0KICBlbHNlIHsNCiAgICBwcmludCgnTm8nKX0NCn0pDQpBc3VyYW5zaV9BQkMkZGlwZXJ0YWhhbmthbiA8LSBrYXRlZ29yaShBc3VyYW5zaV9BQkMkSW5jb21lKQ0KYGBgDQpgYGB7cn0NCnN1YnNldChBc3VyYW5zaV9BQkMsIHNlbGVjdCA9IGMoOCwgMTMpKSAlPiUgZGF0YXRhYmxlKCkNCmBgYA0KDQoNCg0KIyBSZWZlcmVuc2kNCg0KMS4gICByZWYgMQ0KMi4gICByZWYgMg0KMy4gICByZWYgMw0KDQoNCg0KDQo=