Survival Model

UAS


Kontak : \(\downarrow\)
Email
Instagram yyosia
RPubs https://rpubs.com/yosia/

Contoh Kasus Penerapan Survival Model Menggunakan R

Introduction

Penyakit kardiovaskular adalah penyebab kematian nomor 1 di seluruh dunia, yang merenggut sekitar 17,9 juta jiwa setiap tahunnya, yang merupakan 31% dari seluruh kematian di seluruh dunia. Untungnya, sebagian besar penyakit kardiovaskular dapat dicegah dengan mengatasi faktor risiko perilaku dengan strategi di seluruh populasi. Proyek ini bertujuan untuk melakukan analisis data eksplorasi, memanfaatkan berbagai model pembelajaran mesin untuk mendeteksi fitur yang paling penting untuk memprediksi kejadian gagal jantung dan menerapkan model Cox, Analisis Survival, dan Hazard Ratio untuk memvalidasi hasilnya.

Summary:

  1. Exploratory Data Analysis

  2. Machine Learning Model (GBM, RF, Linear Regression) to select 3 most important features

  3. Cox Model + Proportional Hazard Assumption

  4. Survival Analysis

Key Concept:

  • GBM model

  • Random Forest

  • ROC

  • General Linear Model

  • Cox Proportional Model

  • Hazard Ratio

  • Kaplan Meier Plot

  • Survival Analysis

Data Summary

Pertama-tama, dataset ini tidak memiliki nilai yang hilang, jadi kita tidak perlu melakukan imputasi. Untuk membuat nilai lab lebih mudah diakses oleh dokter klinis, kami akan mengkategorikannya berdasarkan praktik standar.

Variable Categorization

  1. Ejection Fraction: Normal 41% - 75%, Tidak Normal <41% atau >75% Fraksi ejeksi yang normal adalah sekitar 50% hingga 75%, menurut American Heart Association. Fraksi ejeksi yang tidak normal dapat berkisar antara 41% hingga 50%.

  2. Serum Creatinine: Untuk pria dewasa, 0,74 hingga 1,35 mg/dL (65,4 hingga 119,3 mikromol/L) Untuk wanita dewasa, 0,59 hingga 1,04 mg/dL (52,2 hingga 91,9 mikromol/L)

  3. Platelets: Jumlah trombosit yang normal berkisar antara 150.000 hingga 450.000 trombosit per mikroliter darah.

  4. Serum Sodium: Kadar natrium darah normal adalah antara 135 dan 145 miliekivalen per liter (mEq/L)

  5. Creatinine Phosphkinase:10 to 120 micrograms per liter (mcg/L)

  6. Event: Pasien yang meninggal dunia. Censor: PPasien yang hidup.

  7. Age Group: Age <65 years old, Age >=65 years old

# Assign ID
heart$id <- seq.int(nrow(heart))

# Assign Character value to Numeric variables
heart$sexc <-ifelse(heart$sex==1, "Male", "Female")
heart$smoke <-ifelse(heart$smoking==1, "Yes", "No")
heart$hbp <- ifelse(heart$high_blood_pressure==1, "Yes","No")
heart$dia <-ifelse(heart$diabetes==1, "Yes", "No")
heart$anaemiac <- ifelse(heart$anaemia==1 ,"Yes", "No")
# Platelets : Hopkins Medicine
heart$platc <- ifelse(heart$platelets>150000 & heart$platelets <450000, "Platelets Normal", "Platelets Abnormal")
heart$plat <- ifelse(heart$platelets>150000 & heart$platelets <450000, 0,1)

# Serum Sodium: Mayo Clinic
heart$sodiumc <- ifelse(heart$serum_sodium >135 & heart$serum_sodium<145, "Serum Sodium Normal", "Serum Sodium Abnormal")
heart$sodiumn <- ifelse(heart$serum_sodium >135 & heart$serum_sodium<145, 0, 1)

#Creatine Phosphkinase : Mountsinai
heart$cpk <- ifelse(heart$creatinine_phosphokinase >10 & heart$creatinine_phosphokinase<120, "CPK Normal", "CPK Abnormal")
heart$cpkn <- ifelse(heart$creatinine_phosphokinase >10 & heart$creatinine_phosphokinase<120, 0, 1)

#ejection_fraction: Mayo
heart$efraction <-ifelse(heart$ejection_fraction<=75 & heart$ejection_fraction>=41, "Ejection Normal", "Ejection Abnormal")
heart$efractionn <-ifelse(heart$ejection_fraction<=75 & heart$ejection_fraction>=41, 0, 1)

#serum_creatinine :mayo
heart$screat<- ifelse((heart$serum_creatinine<1.35 & heart$serum_creatinine>0.74 & heart$sex==1 ) | (heart$serum_creatinine<1.04 & heart$serum_creatinine>0.59 & heart$sex==0) , "Creatinine Normal", "Creatinine Abnormal"   )
heart$screatn<- ifelse((heart$serum_creatinine<1.35 & heart$serum_creatinine>0.74 & heart$sex==1 ) | (heart$serum_creatinine<1.04 & heart$serum_creatinine>0.59 & heart$sex==0) , 0, 1 )

#age group: Pharma convention  
heart$agegp <- ifelse( heart$age<65, "Age <65", "Age >=65")
heart$agegpn <- ifelse( heart$age<65, 0, 1)

#event vs censor
heart$cnsr <- ifelse(heart$DEATH_EVENT==0, "Censor", "Event")

Original Data table

h1<- subset(heart, select=c(age,anaemia,creatinine_phosphokinase, serum_creatinine,diabetes, ejection_fraction ,high_blood_pressure, platelets , serum_sodium, sex, smoking, DEATH_EVENT))
head(h1, 5)%>% DT::datatable()
h1c<- subset(heart, select=c(agegp,anaemiac,cpk, screat, dia, efraction ,hbp, platc, sodiumc, sexc, smoke, DEATH_EVENT, time))

Modified Categorical Data table

head(h1c, 5)%>% DT::datatable()
#Modified Categorical variable selection
m1<- subset(heart, select=c(agegpn,anaemia,cpkn, screatn, diabetes, efractionn ,high_blood_pressure, plat, sodiumn, sex, smoking, DEATH_EVENT))

Training + Testing Data

set.seed=8
train.test.split<-sample(2, nrow(h1), replace=TRUE, prob=c(0.8,0.2))
train=h1[train.test.split==1,]
test=h1[train.test.split==2,]

set.seed=18
train.test.split1<-sample(2, nrow(m1), replace=TRUE, prob=c(0.7,0.3))
train1=m1[train.test.split==1,]
test1=m1[train.test.split==2,]

#head(train, 5)%>% DT::datatable()
#head(test, 5)%>% DT::datatable()

Exploratory Data Analysis

Binary Variable Distribution

#1. age group
p1<-ggplot(heart, aes(x=agegp))+geom_bar(fill="lightblue")+ labs(x="Age Group")+ theme_minimal(base_size=10)

#2. Sex
p2<-ggplot(heart, aes(x=sexc))+geom_bar(fill="indianred3")+ labs(x="Sex")+ theme_minimal(base_size=10)

#3. Smoking
p3<-ggplot(heart, aes(x=smoke))+geom_bar(fill="seagreen2")+ labs(x="Smoking")+ theme_minimal(base_size=10)

#4. Diabetes
p4<-ggplot(heart, aes(x=dia))+geom_bar(fill="orange2")+
  labs(x="Diabetes Status")+ theme_minimal(base_size=10)

#5. cpk
p5<-ggplot(heart, aes(x=cpk))+geom_bar(fill="lightblue")+
labs(x="Creatinine Phosphokinase")+ theme_minimal(base_size=10)

#6. Platelets
p6<-ggplot(heart, aes(x=platc))+geom_bar(fill="indianred2")+
  labs(x="Platelets")+ theme_minimal(base_size=10)

#7. serum sodium
p7<-ggplot(heart, aes(x=sodiumc))+geom_bar(fill="seagreen2")+
  labs(x="Serum Sodium") + theme_minimal(base_size=10)

#8. Serum creatinine
p8<-ggplot(heart, aes(x=screat))+geom_bar(fill="orange2")+
  labs(x="Serum Creatinine") + theme_minimal(base_size=10)


#9. anaemia 
p9<-ggplot(heart, aes(x=anaemiac, fill=DEATH_EVENT))+geom_bar(fill="lightblue")+ labs(x="Anaemia")+ theme_minimal(base_size=10)

#10. ejection_fraction
p10<-ggplot(heart, aes(x=efraction))+geom_bar(fill="indianred2")+
  labs(x="Ejection Fraction")+ theme_minimal(base_size=10)

#11. High blood pressure
p11<-ggplot(heart, aes(x=hbp))+geom_bar(fill="seagreen2")+
  labs(x="High Blood Pressure Status")+ theme_minimal(base_size=10)

#12. Event
p12<-ggplot(heart, aes(x=cnsr))+geom_bar(fill="orangered3")+ labs(x="Event Status")+ theme_minimal(base_size=10)

Demographic and Baseline Characters Distribution

(p1+p2+p3 +p4)+
  plot_annotation(title="Demographic and Histology Distribution")

Lab Test Result Distribution

(p5+p6+p7+p8) + plot_annotation(title="Lab Test Distribution")

Disease history Distribution

(p9+p10+p11+p12) + plot_annotation(title="Disease History Distribution")

Continuous Variables Disbribution

Age

#1. Age
c1<- ggplot(heart, aes(x=age))+ geom_histogram(binwidth=5, colour="white", fill="darkseagreen2", alpha=0.8)+
  geom_density(eval(bquote(aes(y=..count..*5))),colour="darkgreen", fill="darkgreen", alpha=0.3)+ scale_x_continuous(breaks=seq(40,100,10))+geom_vline(xintercept = 65, linetype="dashed")+ annotate("text", x=50, y=45, label="Age <65", size=2.5, color="dark green") + annotate("text", x=80, y=45, label="Age >= 65", size=2.5, color="dark red") +labs(title="Age Distribution") + theme_minimal(base_size = 8)
c1
## Warning: The dot-dot notation (`..count..`) was deprecated in ggplot2 3.4.0.
## ℹ Please use `after_stat(count)` instead.
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.

CPK

#2. cpk
c2<- ggplot(heart, aes(x=creatinine_phosphokinase))+ geom_histogram(binwidth=100, colour="white", fill="mediumpurple2", alpha=0.8)+
  geom_density(eval(bquote(aes(y=..count..*150))),colour="mediumorchid1", fill="mediumorchid1", alpha=0.3)+ scale_x_continuous(breaks=seq(0,10000,1000))+geom_vline(xintercept = 120, linetype="dashed")+ annotate("text", x=0, y=100, label="CPK Normal", size=2.5, color="dark green") + annotate("text", x=1000, y=80, label="CPK Abnormal", size=2.5, color="dark red")+labs(title="Creatinine Phosphokinase Distribution") + theme_minimal(base_size = 8)
c2

Ejection Fraction

c3<- ggplot(heart, aes(x=ejection_fraction))+ geom_histogram(binwidth=5, colour="white", fill="lightpink1", alpha=0.8)+
  geom_density(eval(bquote(aes(y=..count..*5))),colour="mistyrose2", fill="mistyrose2", alpha=0.3)+ scale_x_continuous(breaks=seq(0,80,10))+geom_vline(xintercept = 40, linetype="dashed")+geom_vline(xintercept = 75, linetype="dashed")+ annotate("text", x=20, y=30, label="Abnormal", size=2.5, color="dark red") + annotate("text", x=50, y=30, label="Normal", color="dark green")+  annotate("text", x=80, y=30, label="Abnormal", size=2.5, color="dark red")+labs(title="Ejection Fraction Distribution") + theme_minimal(base_size = 8)
c3

Platelets Count

c4<- ggplot(heart, aes(x=platelets))+ geom_histogram(binwidth=20000, colour="white", fill="lightskyblue2", alpha=0.8)+
  geom_density(eval(bquote(aes(y=..count..*25000))),colour="lightsteelblue", fill="lightsteelblue", alpha=0.3)+
  geom_vline(xintercept = 150000, linetype="dashed")+geom_vline(xintercept = 450000, linetype="dashed")+ annotate("text", x=100000, y=30, label="Abnormal", size=2.5, color="dark red") + annotate("text", x=300000, y=30, label="Normal", color="dark green")+  annotate("text", x=500000, y=30, label="Abnormal", size=2.5, color="dark red")+labs(title="Platelets Count") + theme_minimal(base_size = 8)
c4

Serum Sodium

c5<- ggplot(heart, aes(x=serum_sodium))+ geom_histogram(binwidth=1, colour="white", fill="lightsalmon", alpha=0.8)+
  geom_density(eval(bquote(aes(y=..count..))),colour="lightcoral", fill="lightcoral", alpha=0.3)+
  geom_vline(xintercept = 135, linetype="dashed")+geom_vline(xintercept = 145, linetype="dashed")+ annotate("text", x=130, y=20, label="Abnormal", size=2.5, color="dark red") + annotate("text", x=142, y=20, label="Normal", color="dark green")+  annotate("text", x=148, y=20, label="Abnormal", size=2.5, color="dark red")+labs(title="Serum Sodium") + theme_minimal(base_size = 8)
c5

Serum Creatinine

c6<- ggplot(heart, aes(x=serum_creatinine))+ geom_histogram(binwidth=0.2, colour="white", fill="lightgoldenrod", alpha=0.8)+
  geom_density(eval(bquote(aes(y=..count..*0.2))),colour="moccasin", fill="moccasin", alpha=0.3)+
  geom_vline(xintercept = 0.74, linetype="dashed")+geom_vline(xintercept = 1.35, linetype="dashed")+ annotate("text", x=0.05, y=20, label="Abnormal", size=2.5, color="dark red") + annotate("text", x=1, y=20, label="Normal", color="dark green")+  annotate("text", x=2.5, y=20, label="Abnormal", size=2.5, color="dark red")+labs(title="Serum Creatinine") + theme_minimal(base_size = 8)
c6

Death Event Count with Survival time

Bubble Chart

Seperti yang bisa kita lihat, bentuk segitiga adalah Kematian, lingkaran mewakili subjek yang disensor, ukuran bentuk mewakili jumlah pasien yang hidup/mati pada hari yang sama. Jelas pasien yang disensor (lingkaran) hidup lebih lama.

d1 <- group_by(heart,time,DEATH_EVENT)
d2<- summarise(d1,count=n())
## `summarise()` has grouped output by 'time'. You can override using the
## `.groups` argument.
d22 <- arrange(d2, desc(time))


ggplot(d22, aes(x=reorder( time, count), y=time))+ geom_point(aes(size=count, colour=factor(count), shape=factor(DEATH_EVENT)), alpha=1/2)+
  theme_ipsum() +
    theme(axis.text.x = element_text(angle = 90, hjust = 1) ,  legend.position="none") +coord_flip() +ylab("Survival days") +xlab("Survival counts")+ ggtitle("Patient survival time with counts")

Lollipop Chart for Survival Status with Censor

Kami menggunakan garis biru untuk menunjukkan pasien yang disensor (hidup), dan garis oranye untuk menunjukkan pasien yang mengalami kejadian (mati). Sangat jelas bahwa pasien yang disensor hidup lebih lama secara umum.

heart$idc <- paste("id",as.factor(heart$id))

lol1_100<-ggplot(heart[0:100,], aes(x=idc, y=time)) +
  geom_segment( aes(x=idc, xend=idc, y=0, yend=time),        color=ifelse(heart[0:100,]$DEATH_EVENT==1, "orange", "skyblue"))+
  geom_point( color=ifelse(heart[0:100,]$DEATH_EVENT==1, "red", "darkgreen"), size=0.1, alpha=0.6) +
  theme_light() +
  coord_flip() +
  theme(
    panel.grid.major.y = element_blank(),
    panel.border = element_blank(),
    axis.ticks.y = element_blank()
  )+ ylab("Survival days") +xlab("Patient ID 1-100") + ggtitle("Patient 1-100 Survival Status with Censor")

lol101<-ggplot(heart[101:200,], aes(x=idc, y=time)) +
  geom_segment( aes(x=idc, xend=idc, y=0, yend=time),        color=ifelse(heart[0:100,]$DEATH_EVENT==1, "orange", "skyblue"))+
  geom_point( color=ifelse(heart[0:100,]$DEATH_EVENT==1, "red", "darkgreen"), size=0.1, alpha=0.6) +
  theme_light() +
  coord_flip() +
  theme(
    panel.grid.major.y = element_blank(),
    panel.border = element_blank(),
    axis.ticks.y = element_blank()
  )+ ylab("Survival days") +xlab("Patient ID 101-200") + ggtitle("Patient 101-200 Survival Status with Censor")

lol201<-ggplot(heart[201:299,], aes(x=idc, y=time)) +
  geom_segment( aes(x=idc, xend=idc, y=0, yend=time),      color=ifelse(heart[201:299,]$DEATH_EVENT==1, "orange", "skyblue"))+
  geom_point( color=ifelse(heart[201:299,]$DEATH_EVENT==1, "red", "darkgreen"), size=0.1, alpha=0.6) +
  theme_light() +
  coord_flip() +
  theme(
    panel.grid.major.y = element_blank(),
    panel.border = element_blank(),
    axis.ticks.y = element_blank()
  )+ ylab("Survival days") +xlab("Patient ID 201-299") + ggtitle("Patient 201-299 Survival Status with Censor")

lol1_100

lol101

lol201

Correlations

Correlation Matrix

Dari matriks korelasi, kita dapat melihat Kejadian Kematian berkorelasi tinggi dengan kreatinin serum, usia, natrium serum, fraksi ejeksi.

r=cor(h1)
corrplot(r, type = "upper", order = "hclust", 
         tl.col = "black", tl.srt = 90)

Heatmap

Saya juga akan menunjukkan heatmap sebagai bukti tambahan.

coul <- colorRampPalette(brewer.pal(8, "PiYG"))(25)
heatmap(r, scale="column", col = coul)

draw_confusion_matrix <- function(cm) {

  total <- sum(cm$table)
  res <- as.numeric(cm$table)

  # Generate color gradients. Palettes come from RColorBrewer.
  greenPalette <- c("#F7FCF5","#E5F5E0","#C7E9C0","#A1D99B","#74C476","#41AB5D","#238B45","#006D2C","#00441B")
  redPalette <- c("#FFF5F0","#FEE0D2","#FCBBA1","#FC9272","#FB6A4A","#EF3B2C","#CB181D","#A50F15","#67000D")
  getColor <- function (greenOrRed = "green", amount = 0) {
    if (amount == 0)
      return("#FFFFFF")
    palette <- greenPalette
    if (greenOrRed == "red")
      palette <- redPalette
    colorRampPalette(palette)(100)[10 + ceiling(90 * amount / total)]
  }

  # set the basic layout
  layout(matrix(c(1,1,2)))
  par(mar=c(2,2,2,2))
  plot(c(100, 345), c(300, 450), type = "n", xlab="", ylab="", xaxt='n', yaxt='n')
  title('CONFUSION MATRIX', cex.main=2)

  # create the matrix 
  classes = colnames(cm$table)
  rect(150, 430, 240, 370, col=getColor("green", res[1]))
  text(195, 435, classes[1], cex=1.2)
  rect(250, 430, 340, 370, col=getColor("red", res[3]))
  text(295, 435, classes[2], cex=1.2)
  text(125, 370, 'Predicted', cex=1.3, srt=90, font=2)
  text(245, 450, 'Actual', cex=1.3, font=2)
  rect(150, 305, 240, 365, col=getColor("red", res[2]))
  rect(250, 305, 340, 365, col=getColor("green", res[4]))
  text(140, 400, classes[1], cex=1.2, srt=90)
  text(140, 335, classes[2], cex=1.2, srt=90)

  # add in the cm results
  text(195, 400, res[1], cex=1.6, font=2, col='white')
  text(195, 335, res[2], cex=1.6, font=2, col='white')
  text(295, 400, res[3], cex=1.6, font=2, col='white')
  text(295, 335, res[4], cex=1.6, font=2, col='white')

  # add in the specifics 
  plot(c(100, 0), c(100, 0), type = "n", xlab="", ylab="", main = "DETAILS", xaxt='n', yaxt='n')
  text(10, 85, names(cm$byClass[1]), cex=1.2, font=2)
  text(10, 70, round(as.numeric(cm$byClass[1]), 3), cex=1.2)
  text(30, 85, names(cm$byClass[2]), cex=1.2, font=2)
  text(30, 70, round(as.numeric(cm$byClass[2]), 3), cex=1.2)
  text(50, 85, names(cm$byClass[5]), cex=1.2, font=2)
  text(50, 70, round(as.numeric(cm$byClass[5]), 3), cex=1.2)
  text(70, 85, names(cm$byClass[6]), cex=1.2, font=2)
  text(70, 70, round(as.numeric(cm$byClass[6]), 3), cex=1.2)
  text(90, 85, names(cm$byClass[7]), cex=1.2, font=2)
  text(90, 70, round(as.numeric(cm$byClass[7]), 3), cex=1.2)

  # add in the accuracy information 
  text(30, 35, names(cm$overall[1]), cex=1.5, font=2)
  text(30, 20, round(as.numeric(cm$overall[1]), 3), cex=1.4)
  text(70, 35, names(cm$overall[2]), cex=1.5, font=2)
  text(70, 20, round(as.numeric(cm$overall[2]), 3), cex=1.4)
}

Machine Learning Model for Variable Selections

Kami menerapkan 3 metode pembelajaran mesin (GLM, GBM, Random Forest) untuk memprediksi faktor yang paling penting untuk Kejadian_Kematian Gagal Jantung sebagai variabel dependen dalam struktur data asli serta kerangka data yang dikategorikan. Secara keseluruhan, kami menemukan serum_creatinine, usia, fraksi ejeksi, dan natrium serum adalah empat fitur yang paling penting, yang konsisten dengan matriks korelasi.

catatan: Kecualikan variabel “waktu” (paradoks)

GBM

Gradient Boosting adalah teknik pembelajaran mesin yang digunakan dalam tugas regresi dan klasifikasi. Teknik ini terkenal karena dapat mengubah pembelajar yang lemah menjadi pembelajar yang kuat. Dimulai dengan memberikan bobot yang sama pada setiap pohon. kemudian memperbaiki prediksi pohon pertama. Kami mengulangi proses Tree1 +Tree2 ini hingga jumlah tertentu.

GBM with Original Data

gbm.m<- gbm(train$DEATH_EVENT ~. , data=train, distribution = "bernoulli",
            cv.folds=10, shrinkage=0.01, n.minobsinnode = 10, n.trees=1000)
#gbm.m
gbm.imp=summary(gbm.m)

gbm.imp
gmb.t =predict(object=gbm.m, newdata=test, n.trees=1000, type="response")
presult<- as.factor(ifelse(gmb.t>0.5,1,0))
test$DEATH_EVENT1<-as.factor(test$DEATH_EVENT)
g<-confusionMatrix(presult,test$DEATH_EVENT1)
draw_confusion_matrix(g)

GBM with Categorized Data

gbm.m1<- gbm(train1$DEATH_EVENT ~. , data=train1, distribution = "bernoulli",
            cv.folds=10, shrinkage=0.01, n.minobsinnode = 10, n.trees=1000)
#gbm.m1
gbm.imp1=summary(gbm.m1)

gbm.imp1
gmb.t1 =predict(object=gbm.m1, newdata=test1, n.trees=1000, type="response")
presult<- as.factor(ifelse(gmb.t1>0.5,1,0))
test1$DEATH_EVENT1<-as.factor(test1$DEATH_EVENT)
g1<-confusionMatrix(presult,test1$DEATH_EVENT1)
draw_confusion_matrix(g1)

Random Forest

Random Forest with Original Data

rforest<- randomForest(factor(DEATH_EVENT) ~. , data=train, ntree=500, importance=TRUE)
#summary(rforest)
imp<-varImp(rforest)
varImpPlot(rforest)

rpredict<- predict(rforest, test, type="class")
cm2<-confusionMatrix(rpredict, test$DEATH_EVENT1)
draw_confusion_matrix(cm2)

Random Forest with Categorized Data

rforest1<- randomForest(factor(DEATH_EVENT) ~. , data=train1, ntree=500, importance=TRUE)
#summary(rforest1)
imp1<-varImp(rforest1)
varImpPlot(rforest1)

rpredict1<- predict(rforest1, test1, type="class")
cm21<-confusionMatrix(rpredict1, test1$DEATH_EVENT1)
draw_confusion_matrix(cm21)

General Linear Model

General Linear Model with Original Data

lm1 <- glm(DEATH_EVENT ~., data=train, family=binomial(link="logit"))

#summary(lm1)
limp<-varImp(lm1)
backward<-step(lm1,direction="backward", trace=0)
#vi(backward)
p2<- vip(backward,num_features = length(coef(backward)),
         geom="point", horizontal = TRUE, mapping = aes_string(color="Sign"))
## Warning: `aes_string()` was deprecated in ggplot2 3.0.0.
## ℹ Please use tidy evaluation ideoms with `aes()`
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_lifecycle_warnings()` to see where this warning was
## generated.
p2

glm.t =predict(object=lm1, newdata=test, type="response")
presult<- as.factor(ifelse(glm.t>0.5,1,0))
test$DEATH_EVENT1<-as.factor(test$DEATH_EVENT)
cm3<- confusionMatrix(presult,test$DEATH_EVENT1)
draw_confusion_matrix(cm3)

General Linear Model with Classication

lm11 <- glm(DEATH_EVENT ~., data=train1, family=binomial(link="logit"))

#summary(lm1)
limp1<-varImp(lm11)
backward<-step(lm11,direction="backward", trace=0)
#vi(backward)
p21<- vip(backward,num_features = length(coef(backward)),
         geom="point", horizontal = TRUE, mapping = aes_string(color="Sign"))
p21

glm.t1 =predict(object=lm11, newdata=test1, type="response")
presult1<- as.factor(ifelse(glm.t1>0.5,1,0))
test1$DEATH_EVENT1<-as.factor(test1$DEATH_EVENT)
cm31<- confusionMatrix(presult1,test1$DEATH_EVENT1)
draw_confusion_matrix(cm31)

Survival Analysis

Survival Analysis Basics

Pertama, kita akan menguji asumsi bahaya proporsional, dan menilai fitur-fitur secara individual untuk melihat kecocokannya dengan kurva survival dan Rasio Bahaya yang dihormati. Kemudian kita akan menggabungkan tiga fitur yang paling penting untuk membuat Kelompok Risiko Rendah dan Risiko Tinggi.

Definiton and Concept

Analisis Kelangsungan Hidup menyelidiki waktu terhadap hasil kejadian yang melibatkan penyensoran adalah pendekatan statistik yang paling umum dalam literatur medis. Penting untuk mengetahui waktu kejadian untuk setiap pasien. Dalam kasus kami, waktu terjadinya gagal jantung.

  • Fungsi Kelangsungan Hidup: Probabilitas bertahan hidup lebih lama dari titik waktu tertentu

\[ S(t) = P(T > t) \]

  • Fungsi Hazard: Risiko mengalami kejadian pada interval berikutnya dengan syarat bertahan hingga awal interval

\[ h(t)=\lim_{\Delta t \to 0 } \frac{1}{\Delta t} P(T <= t+ \Delta t|T>t)\]

\[ H(t) = -log(S(t)) \] Censor Kita menggunakan aturan penyensoran yang tepat, peristiwa tersebut terjadi setelah tanggal tertentu

Cox Model adalah model yang terkenal untuk mengeksplorasi hubungan antara kelangsungan hidup pasien dan beberapa variabel penjelas. Model ini memperkirakan bahaya (risiko) dari kejadian yang menarik bagi individu, dengan mempertimbangkan variabel prognostik mereka.

\[h_i(t)=h_0(t) e^{\beta_1*x1+ \beta_2*x2} \]

Survival function and its Relations

If we know one of the function S(t), f(t), \(\lambda (t)\) , \(\Lambda(t)\), we can compute the rest three by FTC.

  • Survivor function S(t) \[S(t)=Pr(T \geq t)= \int_t^\infty f(u)du\]

  • The density function f(t) \[ f(t)=\lim_{\Delta t \to 0 } \frac{1}{\Delta t} Pr(t \leq T \leq t+ \Delta t)\] By FTC, fundamental calculus part2, we have \(F(t)=Pr(T<t)\), which leads to \(S(t)=1-F(t)\)

  • The cumulative hazard function \(\Lambda(t)\) or H(t) , with the help of FTC, we have \(S(t)=e^{-\Lambda(t)}=e^{-H(t)}\) \[\Lambda(t) = H(t)= \int_0^t \lambda(u)du = h(u)du\]

  • The hazard function \(\lambda(t)\) or h(t) \[\lambda(t) = h(t) =\frac{f(t)}{S(t)}= -\frac{d}{dt}[logS(t)]\]

Fungsi survivor S(t) menurun seiring waktu, sementara H(t) meningkat seiring waktu. (probabilitas bertahan hidup semakin kecil sepanjang waktu, sementara risiko kegagalan meningkat seiring waktu)

Assessing Proportional Hazard

Kita akan menggunakan fungsi Cox.zph untuk menguji asumsi Proportional Hazard, jika asumsi SDM dilanggar, kita akan menggunakan analisis survival rata-rata terbatas untuk penyelidikan lebih lanjut. Dari gambar-gambar tersebut, kita dapat melihat bahwa data kita memenuhi kondisi Proportional.

  1. Nilai p-value yang signifikan mengindikasikan asumsi proporsional hazard dilanggar

  2. Plot residual Schoefeld (garis kemiringan nol)

mv_fit <- coxph(Surv(time,DEATH_EVENT) ~ efraction+ agegp + screat +sodiumc, data=heart)
ccox<- cox.zph(mv_fit)
print(ccox)
##             chisq df     p
## efraction 0.00357  1 0.952
## agegp     2.58958  1 0.108
## screat    3.63617  1 0.057
## sodiumc   1.53360  1 0.216
## GLOBAL    7.66582  4 0.105
options(repr.plot.width=10, repr.plot.height=40)
ggcoxzph(ccox)

Hazard Ratio

Rasio Bahaya menunjukkan perbedaan kelangsungan hidup yang kuat antara kelompok.

Hazard Ratio : Perbandingan antara probabilitas kejadian pada kelompok pengobatan, dibandingkan dengan probabilitas kejadian pada kelompok kontrol. Rasio ini digunakan untuk melihat apakah pasien yang menerima pengobatan berkembang lebih cepat (lebih lambat) dibandingkan dengan pasien yang tidak menerima pengobatan.

\[ \lambda (t_iX)= \lambda_0(t)exp(\beta X) \]

\[ log\ of \ Hazard = log(a) +b1x1...bkxk\]

HR=1: Tidak ada perbedaan antara kelompok perlakuan dan kelompok kontrol

HR<1: Probabilitas kejadian pada kelompok perlakuan lebih kecil dari kelompok kontrol

HR>1: Probabilitas kejadian pada kelompok perlakuan lebih besar dari kelompok kontrol

Hazard Ratio for Important Variable

Kita dapat melihat Ejection fraction, serum creatinine, sodium creatinine kelompok normal memiliki probabilitas yang lebih rendah untuk mengalami kejadian tersebut, sedangkan kelompok usia yang lebih tua memiliki probabilitas yang lebih tinggi untuk mengalami kejadian gagal jantung.

ggforest(mv_fit)

Hazard Ratio for other variables

Grafik yang disajikan Tekanan darah tinggi, penyakit anemia, jumlah trombosit dan CPK memiliki tingkat yang cukup signifikan dalam rasio bahaya.

Sedangkan yang mengejutkan saya, Merokok tidak membuat perbedaan.

mo <- coxph(Surv(time,DEATH_EVENT) ~sexc +dia +hbp +smoke +anaemiac+ platc+cpk, data=heart)
ggforest(mo)

KM Curve

Kurva Kaplan Meier adalah sebuah estimator yang digunakan untuk mengestimasi fungsi survival non parametrik (Log rank test). Kurva Kaplan Meier adalah representasi visual dari fungsi ini yang menunjukkan probabilitas suatu peristiwa pada interval waktu tertentu. Tidak memerlukan asumsi mengenai distribusi data yang mendasarinya.

Ejection Fraction, Serum Creatinine , Age Group , Serum Sodium

Plot KM menunjukkan kurva kelangsungan hidup yang dipisahkan untuk kelompok yang dibandingkan dengan memperhatikan fitur-fiturnya: Ejection Fraction, Serum Creatinine, Age Group, and Serum Sodium

fit_ef<-survfit(Surv(time,DEATH_EVENT)~heart$efraction, data=heart)
fit_sc<-survfit(Surv(time,DEATH_EVENT)~screat, data=heart)
fit_age<-survfit(Surv(time,DEATH_EVENT)~agegp, data=heart)
fit_sd<-survfit(Surv(time,DEATH_EVENT)~sodiumc, data=heart)

splots<- list()
splots[[1]]<-ggsurvplot(fit_ef,data=heart ,xlab="Days", ggtheme=theme_minimal())
splots[[2]]<-ggsurvplot(fit_sc,data=heart, xlab="Days", ggtheme=theme_minimal())
splots[[3]]<-ggsurvplot(fit_age,data=heart,xlab="Days", ggtheme=theme_minimal())
splots[[4]]<-ggsurvplot(fit_sd,data=heart,xlab="Days", ggtheme=theme_minimal())

arrange_ggsurvplots(splots, print=TRUE, ncol=2, nrow=2)

Final Survival Analysis Model

Tentukan Kelompok Risiko:

Risiko Rendah: kreatinin serum normal + usia <65 + fraksi ejeksi normal

Risiko Tinggi: kombinasi istirahat

heart$riskgp <- ifelse(heart$agegp=="Age <65" & heart$efraction=="Ejection Normal" & heart$sodiumc=="Serum Sodium Normal", "Risk Low", "Risk High")
fit<-survfit(Surv(time,DEATH_EVENT)~riskgp, data=heart)
km<-ggsurvplot(fit,data=heart, risk.table=TRUE, legend="none", break.time.by=30, size=0.1,tables.height=0.3, xlab="Days")
km

#log rank p value for groups
survdiff(Surv(time, DEATH_EVENT) ~ riskgp, data=heart)
## Call:
## survdiff(formula = Surv(time, DEATH_EVENT) ~ riskgp, data = heart)
## 
##                    N Observed Expected (O-E)^2/E (O-E)^2/V
## riskgp=Risk High 272       94    86.27     0.693      6.87
## riskgp=Risk Low   27        2     9.73     6.145      6.87
## 
##  Chisq= 6.9  on 1 degrees of freedom, p= 0.009

Cox Proportion Model and Hazard Ratio

Terakhir, kita dapat melihat p value dari model Cox konsisten dengan hasil tersebut.

coxph(Surv(time,DEATH_EVENT) ~ riskgp, data=heart) %>%
  gtsummary::tbl_regression(exp=TRUE)
Characteristic HR1 95% CI1 p-value
riskgp
    Risk High — —
    Risk Low 0.19 0.05, 0.76 0.019
1 HR = Hazard Ratio, CI = Confidence Interval

Summary

Dari penerapan berbagai model Machine Learning, kami mencapai hasil yang sama, bahwa Serum Sodium, Serum Creatinine, Ejection Fraction, and Age Group adalah fitur yang paling penting dalam Penyakit Jantung. Analisis kelangsungan hidup dan kurva Kaplan Meier memvalidasi temuan kami. Oleh karena itu, kami dapat memberi tahu masyarakat jika pasien memiliki masalah jantung kronis, mereka dapat secara berkala memantau Kreatinin Serum, Natrium Serum, dan Fraksi Ejeksi mereka setelah berada di atas 65.

LS0tDQp0aXRsZTogIlN1cnZpdmFsIE1vZGVsIg0Kc3VidGl0bGU6ICJVQVMiDQphdXRob3I6ICJZb3NpYSINCmRhdGU6ICAiMjcvMDUvMjAyMyINCm91dHB1dDoNCiAgcm1kZm9ybWF0czo6cm9ib2Jvb2s6ICAgIyBodHRwczovL2dpdGh1Yi5jb20vanViYS9ybWRmb3JtYXRzDQogICAgc2VsZl9jb250YWluZWQ6IHRydWUNCiAgICBoaWdobGlnaHQ6IHB5Z21lbnRzDQogICAgdGhlbWU6IHNhbmRzdG9uZQ0KICAgIHRodW1ibmFpbHM6IHRydWUNCiAgICBsaWdodGJveDogdHJ1ZQ0KICAgIGdhbGxlcnk6IHRydWUNCiAgICBsaWJfZGlyOiBsaWJzDQogICAgZGZfcHJpbnQ6ICJwYWdlZCINCiAgICBjb2RlX2ZvbGRpbmc6ICJzaG93Ig0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICAgIGNzczogInN0eWxlLmNzcyINCg0KLS0tDQoNCjxCT0RZIHsNCiB1c2VyLXNlbGVjdDpub25lOw0KIC1tb3otdXNlci1zZWxlY3Q6bm9uZTsNCiAtbXMtdXNlci1zZWxlY3Q6bm9uZTsNCiAta2h0bWwtdXNlci1zZWxlY3Q6bm9uZTsNCiAtd2Via2l0LXVzZXItc2VsZWN0Om5vbmUNCn0vPg0KDQo8YnI+DQoNCjxpbWcgc3R5bGU9ImZsb2F0OiByaWdodDsgbWFyZ2luOiAtNTBweCA1MHB4IDBweCA1MHB4OyB3aWR0aDozMCUiIHNyYz0iZG93bmxvYWQucG5nIi8+IA0KDQp8DQo6LS0tLSB8Oi0tLS0NCioqS29udGFrKip8ICoqOiAkXGRvd25hcnJvdyQqKg0KRW1haWx8IHlvc2lhLnlvc2lhQHN0dWRlbnQubWF0YW5hdW5pdmVyc2l0eS5hYy5pZA0KSW5zdGFncmFtIHwgW3l5b3NpYV0oaHR0cHM6Ly93d3cuaW5zdGFncmFtLmNvbS95eW9zaWEvKSANClJQdWJzICB8IGh0dHBzOi8vcnB1YnMuY29tL3lvc2lhLw0KDQoqKioNCg0KIyBDb250b2ggS2FzdXMgUGVuZXJhcGFuIFN1cnZpdmFsIE1vZGVsIE1lbmdndW5ha2FuIFINCg0KYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9DQprbml0cjo6b3B0c19jaHVuayRzZXQoZWNobyA9IFRSVUUpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHN1cnZtaW5lcikNCmxpYnJhcnkoc3Vydml2YWwpDQpsaWJyYXJ5KGdibSkNCmxpYnJhcnkoY2FyZXQpDQpsaWJyYXJ5KHBST0MpDQpsaWJyYXJ5KHRyZWUpDQpsaWJyYXJ5KElTTFIpDQpsaWJyYXJ5KHZpcCkNCmxpYnJhcnkoZTEwNzEpDQpsaWJyYXJ5KHJtaW5lcikNCmxpYnJhcnkodGlkeXZlcnNlKQ0KbGlicmFyeShyZXNoYXBlMikNCmxpYnJhcnkoZ2dmb3J0aWZ5KQ0KbGlicmFyeShycGFydCkNCmxpYnJhcnkoc2tpbXIpDQpsaWJyYXJ5KGNvcnJwbG90KQ0KbGlicmFyeShrYWJsZUV4dHJhKQ0KbGlicmFyeShwYXRjaHdvcmspDQpsaWJyYXJ5KGRpcmVjdGxhYmVscykNCmxpYnJhcnkocmFuZG9tRm9yZXN0KQ0KbGlicmFyeShocmJydGhlbWVzKQ0KbGlicmFyeSh2aXJpZGlzKQ0KbGlicmFyeShSQ29sb3JCcmV3ZXIpDQpoZWFydDwtcmVhZC5jc3YoImhlYXJ0X2ZhaWx1cmVfY2xpbmljYWxfcmVjb3Jkc19kYXRhc2V0LmNzdiIpDQpgYGANCg0KDQojIEludHJvZHVjdGlvbg0KDQpQZW55YWtpdCBrYXJkaW92YXNrdWxhciBhZGFsYWggcGVueWViYWIga2VtYXRpYW4gbm9tb3IgMSBkaSBzZWx1cnVoIGR1bmlhLCB5YW5nIG1lcmVuZ2d1dCBzZWtpdGFyIDE3LDkganV0YSBqaXdhIHNldGlhcCB0YWh1bm55YSwgeWFuZyBtZXJ1cGFrYW4gMzElIGRhcmkgc2VsdXJ1aCBrZW1hdGlhbiBkaSBzZWx1cnVoIGR1bmlhLg0KVW50dW5nbnlhLCBzZWJhZ2lhbiBiZXNhciBwZW55YWtpdCBrYXJkaW92YXNrdWxhciBkYXBhdCBkaWNlZ2FoIGRlbmdhbiBtZW5nYXRhc2kgZmFrdG9yIHJpc2lrbyBwZXJpbGFrdSBkZW5nYW4gc3RyYXRlZ2kgZGkgc2VsdXJ1aCBwb3B1bGFzaS4NClByb3llayBpbmkgYmVydHVqdWFuIHVudHVrIG1lbGFrdWthbiBhbmFsaXNpcyBkYXRhIGVrc3Bsb3Jhc2ksIG1lbWFuZmFhdGthbiBiZXJiYWdhaSBtb2RlbCBwZW1iZWxhamFyYW4gbWVzaW4gdW50dWsgbWVuZGV0ZWtzaSBmaXR1ciB5YW5nIHBhbGluZyBwZW50aW5nIHVudHVrIG1lbXByZWRpa3NpIGtlamFkaWFuIGdhZ2FsIGphbnR1bmcgZGFuIG1lbmVyYXBrYW4gbW9kZWwgQ294LCBBbmFsaXNpcyBTdXJ2aXZhbCwgZGFuIEhhemFyZCBSYXRpbyB1bnR1ayBtZW12YWxpZGFzaSBoYXNpbG55YS4NCg0KU3VtbWFyeToNCg0KMS4gRXhwbG9yYXRvcnkgRGF0YSBBbmFseXNpcw0KDQoyLiBNYWNoaW5lIExlYXJuaW5nIE1vZGVsIChHQk0sIFJGLCBMaW5lYXIgUmVncmVzc2lvbikgdG8gc2VsZWN0IDMgbW9zdCBpbXBvcnRhbnQgZmVhdHVyZXMNCg0KMy4gQ294IE1vZGVsICsgUHJvcG9ydGlvbmFsIEhhemFyZCBBc3N1bXB0aW9uIA0KDQo0LiBTdXJ2aXZhbCBBbmFseXNpcw0KDQoqKktleSBDb25jZXB0OioqIA0KDQoqIF9HQk0gbW9kZWxfDQoNCiogX1JhbmRvbSBGb3Jlc3RfDQoNCiogX1JPQ18NCg0KKiBfR2VuZXJhbCBMaW5lYXIgTW9kZWxfDQoNCiogX0NveCBQcm9wb3J0aW9uYWwgTW9kZWxfDQoNCiogX0hhemFyZCBSYXRpb18NCg0KKiBfS2FwbGFuIE1laWVyIFBsb3RfDQoNCiogX1N1cnZpdmFsIEFuYWx5c2lzXw0KDQojIERhdGEgU3VtbWFyeSB7LnRhYnNldCAudGFic2V0LWZhZGUgLnRhYnNldC1waWxsc30NCg0KUGVydGFtYS10YW1hLCBkYXRhc2V0IGluaSB0aWRhayBtZW1pbGlraSBuaWxhaSB5YW5nIGhpbGFuZywgamFkaSBraXRhIHRpZGFrIHBlcmx1IG1lbGFrdWthbiBpbXB1dGFzaS4gVW50dWsgbWVtYnVhdCBuaWxhaSBsYWIgbGViaWggbXVkYWggZGlha3NlcyBvbGVoIGRva3RlciBrbGluaXMsIGthbWkgYWthbiBtZW5na2F0ZWdvcmlrYW5ueWEgYmVyZGFzYXJrYW4gcHJha3RpayBzdGFuZGFyLiANCg0KKipWYXJpYWJsZSBDYXRlZ29yaXphdGlvbioqIA0KDQoxLiBFamVjdGlvbiBGcmFjdGlvbjogTm9ybWFsIDQxJSAtIDc1JSwgVGlkYWsgTm9ybWFsIDw0MSUgYXRhdSA+NzUlDQpGcmFrc2kgZWpla3NpIHlhbmcgbm9ybWFsIGFkYWxhaCBzZWtpdGFyIDUwJSBoaW5nZ2EgNzUlLCBtZW51cnV0IEFtZXJpY2FuIEhlYXJ0IEFzc29jaWF0aW9uLiBGcmFrc2kgZWpla3NpIHlhbmcgdGlkYWsgbm9ybWFsIGRhcGF0IGJlcmtpc2FyIGFudGFyYSA0MSUgaGluZ2dhIDUwJS4NCg0KMi4gU2VydW0gQ3JlYXRpbmluZTogVW50dWsgcHJpYSBkZXdhc2EsIDAsNzQgaGluZ2dhIDEsMzUgbWcvZEwgKDY1LDQgaGluZ2dhIDExOSwzIG1pa3JvbW9sL0wpDQpVbnR1ayB3YW5pdGEgZGV3YXNhLCAwLDU5IGhpbmdnYSAxLDA0IG1nL2RMICg1MiwyIGhpbmdnYSA5MSw5IG1pa3JvbW9sL0wpDQoNCjMuIFBsYXRlbGV0czogSnVtbGFoIHRyb21ib3NpdCB5YW5nIG5vcm1hbCBiZXJraXNhciBhbnRhcmEgMTUwLjAwMCBoaW5nZ2EgNDUwLjAwMCB0cm9tYm9zaXQgcGVyIG1pa3JvbGl0ZXIgZGFyYWguIA0KDQo0LiBTZXJ1bSBTb2RpdW06IEthZGFyIG5hdHJpdW0gZGFyYWggbm9ybWFsIGFkYWxhaCBhbnRhcmEgMTM1IGRhbiAxNDUgbWlsaWVraXZhbGVuIHBlciBsaXRlciAobUVxL0wpDQoNCjUuIENyZWF0aW5pbmUgUGhvc3Boa2luYXNlOjEwIHRvIDEyMCBtaWNyb2dyYW1zIHBlciBsaXRlciAobWNnL0wpDQoNCjYuIEV2ZW50OiBQYXNpZW4geWFuZyBtZW5pbmdnYWwgZHVuaWEuDQogICBDZW5zb3I6IFBQYXNpZW4geWFuZyBoaWR1cC4NCg0KNy4gQWdlIEdyb3VwOiBBZ2UgPDY1IHllYXJzIG9sZCwgQWdlID49NjUgeWVhcnMgb2xkDQoNCmBgYHtyfQ0KIyBBc3NpZ24gSUQNCmhlYXJ0JGlkIDwtIHNlcS5pbnQobnJvdyhoZWFydCkpDQoNCiMgQXNzaWduIENoYXJhY3RlciB2YWx1ZSB0byBOdW1lcmljIHZhcmlhYmxlcw0KaGVhcnQkc2V4YyA8LWlmZWxzZShoZWFydCRzZXg9PTEsICJNYWxlIiwgIkZlbWFsZSIpDQpoZWFydCRzbW9rZSA8LWlmZWxzZShoZWFydCRzbW9raW5nPT0xLCAiWWVzIiwgIk5vIikNCmhlYXJ0JGhicCA8LSBpZmVsc2UoaGVhcnQkaGlnaF9ibG9vZF9wcmVzc3VyZT09MSwgIlllcyIsIk5vIikNCmhlYXJ0JGRpYSA8LWlmZWxzZShoZWFydCRkaWFiZXRlcz09MSwgIlllcyIsICJObyIpDQpoZWFydCRhbmFlbWlhYyA8LSBpZmVsc2UoaGVhcnQkYW5hZW1pYT09MSAsIlllcyIsICJObyIpDQojIFBsYXRlbGV0cyA6IEhvcGtpbnMgTWVkaWNpbmUNCmhlYXJ0JHBsYXRjIDwtIGlmZWxzZShoZWFydCRwbGF0ZWxldHM+MTUwMDAwICYgaGVhcnQkcGxhdGVsZXRzIDw0NTAwMDAsICJQbGF0ZWxldHMgTm9ybWFsIiwgIlBsYXRlbGV0cyBBYm5vcm1hbCIpDQpoZWFydCRwbGF0IDwtIGlmZWxzZShoZWFydCRwbGF0ZWxldHM+MTUwMDAwICYgaGVhcnQkcGxhdGVsZXRzIDw0NTAwMDAsIDAsMSkNCg0KIyBTZXJ1bSBTb2RpdW06IE1heW8gQ2xpbmljDQpoZWFydCRzb2RpdW1jIDwtIGlmZWxzZShoZWFydCRzZXJ1bV9zb2RpdW0gPjEzNSAmIGhlYXJ0JHNlcnVtX3NvZGl1bTwxNDUsICJTZXJ1bSBTb2RpdW0gTm9ybWFsIiwgIlNlcnVtIFNvZGl1bSBBYm5vcm1hbCIpDQpoZWFydCRzb2RpdW1uIDwtIGlmZWxzZShoZWFydCRzZXJ1bV9zb2RpdW0gPjEzNSAmIGhlYXJ0JHNlcnVtX3NvZGl1bTwxNDUsIDAsIDEpDQoNCiNDcmVhdGluZSBQaG9zcGhraW5hc2UgOiBNb3VudHNpbmFpDQpoZWFydCRjcGsgPC0gaWZlbHNlKGhlYXJ0JGNyZWF0aW5pbmVfcGhvc3Bob2tpbmFzZSA+MTAgJiBoZWFydCRjcmVhdGluaW5lX3Bob3NwaG9raW5hc2U8MTIwLCAiQ1BLIE5vcm1hbCIsICJDUEsgQWJub3JtYWwiKQ0KaGVhcnQkY3BrbiA8LSBpZmVsc2UoaGVhcnQkY3JlYXRpbmluZV9waG9zcGhva2luYXNlID4xMCAmIGhlYXJ0JGNyZWF0aW5pbmVfcGhvc3Bob2tpbmFzZTwxMjAsIDAsIDEpDQoNCiNlamVjdGlvbl9mcmFjdGlvbjogTWF5bw0KaGVhcnQkZWZyYWN0aW9uIDwtaWZlbHNlKGhlYXJ0JGVqZWN0aW9uX2ZyYWN0aW9uPD03NSAmIGhlYXJ0JGVqZWN0aW9uX2ZyYWN0aW9uPj00MSwgIkVqZWN0aW9uIE5vcm1hbCIsICJFamVjdGlvbiBBYm5vcm1hbCIpDQpoZWFydCRlZnJhY3Rpb25uIDwtaWZlbHNlKGhlYXJ0JGVqZWN0aW9uX2ZyYWN0aW9uPD03NSAmIGhlYXJ0JGVqZWN0aW9uX2ZyYWN0aW9uPj00MSwgMCwgMSkNCg0KI3NlcnVtX2NyZWF0aW5pbmUgOm1heW8NCmhlYXJ0JHNjcmVhdDwtIGlmZWxzZSgoaGVhcnQkc2VydW1fY3JlYXRpbmluZTwxLjM1ICYgaGVhcnQkc2VydW1fY3JlYXRpbmluZT4wLjc0ICYgaGVhcnQkc2V4PT0xICkgfCAoaGVhcnQkc2VydW1fY3JlYXRpbmluZTwxLjA0ICYgaGVhcnQkc2VydW1fY3JlYXRpbmluZT4wLjU5ICYgaGVhcnQkc2V4PT0wKSAsICJDcmVhdGluaW5lIE5vcm1hbCIsICJDcmVhdGluaW5lIEFibm9ybWFsIiAgICkNCmhlYXJ0JHNjcmVhdG48LSBpZmVsc2UoKGhlYXJ0JHNlcnVtX2NyZWF0aW5pbmU8MS4zNSAmIGhlYXJ0JHNlcnVtX2NyZWF0aW5pbmU+MC43NCAmIGhlYXJ0JHNleD09MSApIHwgKGhlYXJ0JHNlcnVtX2NyZWF0aW5pbmU8MS4wNCAmIGhlYXJ0JHNlcnVtX2NyZWF0aW5pbmU+MC41OSAmIGhlYXJ0JHNleD09MCkgLCAwLCAxICkNCg0KI2FnZSBncm91cDogUGhhcm1hIGNvbnZlbnRpb24gIA0KaGVhcnQkYWdlZ3AgPC0gaWZlbHNlKCBoZWFydCRhZ2U8NjUsICJBZ2UgPDY1IiwgIkFnZSA+PTY1IikNCmhlYXJ0JGFnZWdwbiA8LSBpZmVsc2UoIGhlYXJ0JGFnZTw2NSwgMCwgMSkNCg0KI2V2ZW50IHZzIGNlbnNvcg0KaGVhcnQkY25zciA8LSBpZmVsc2UoaGVhcnQkREVBVEhfRVZFTlQ9PTAsICJDZW5zb3IiLCAiRXZlbnQiKQ0KYGBgDQoNCiMjIE9yaWdpbmFsIERhdGEgdGFibGUgDQpgYGB7cn0NCmgxPC0gc3Vic2V0KGhlYXJ0LCBzZWxlY3Q9YyhhZ2UsYW5hZW1pYSxjcmVhdGluaW5lX3Bob3NwaG9raW5hc2UsIHNlcnVtX2NyZWF0aW5pbmUsZGlhYmV0ZXMsIGVqZWN0aW9uX2ZyYWN0aW9uICxoaWdoX2Jsb29kX3ByZXNzdXJlLCBwbGF0ZWxldHMgLCBzZXJ1bV9zb2RpdW0sIHNleCwgc21va2luZywgREVBVEhfRVZFTlQpKQ0KaGVhZChoMSwgNSklPiUgRFQ6OmRhdGF0YWJsZSgpDQoNCmgxYzwtIHN1YnNldChoZWFydCwgc2VsZWN0PWMoYWdlZ3AsYW5hZW1pYWMsY3BrLCBzY3JlYXQsIGRpYSwgZWZyYWN0aW9uICxoYnAsIHBsYXRjLCBzb2RpdW1jLCBzZXhjLCBzbW9rZSwgREVBVEhfRVZFTlQsIHRpbWUpKQ0KYGBgDQoNCg0KIyMgTW9kaWZpZWQgQ2F0ZWdvcmljYWwgRGF0YSB0YWJsZQ0KYGBge3J9DQoNCmhlYWQoaDFjLCA1KSU+JSBEVDo6ZGF0YXRhYmxlKCkNCg0KI01vZGlmaWVkIENhdGVnb3JpY2FsIHZhcmlhYmxlIHNlbGVjdGlvbg0KbTE8LSBzdWJzZXQoaGVhcnQsIHNlbGVjdD1jKGFnZWdwbixhbmFlbWlhLGNwa24sIHNjcmVhdG4sIGRpYWJldGVzLCBlZnJhY3Rpb25uICxoaWdoX2Jsb29kX3ByZXNzdXJlLCBwbGF0LCBzb2RpdW1uLCBzZXgsIHNtb2tpbmcsIERFQVRIX0VWRU5UKSkNCg0KYGBgDQoNCg0KIyMgVHJhaW5pbmcgKyBUZXN0aW5nIERhdGENCmBgYHtyfQ0Kc2V0LnNlZWQ9OA0KdHJhaW4udGVzdC5zcGxpdDwtc2FtcGxlKDIsIG5yb3coaDEpLCByZXBsYWNlPVRSVUUsIHByb2I9YygwLjgsMC4yKSkNCnRyYWluPWgxW3RyYWluLnRlc3Quc3BsaXQ9PTEsXQ0KdGVzdD1oMVt0cmFpbi50ZXN0LnNwbGl0PT0yLF0NCg0Kc2V0LnNlZWQ9MTgNCnRyYWluLnRlc3Quc3BsaXQxPC1zYW1wbGUoMiwgbnJvdyhtMSksIHJlcGxhY2U9VFJVRSwgcHJvYj1jKDAuNywwLjMpKQ0KdHJhaW4xPW0xW3RyYWluLnRlc3Quc3BsaXQ9PTEsXQ0KdGVzdDE9bTFbdHJhaW4udGVzdC5zcGxpdD09MixdDQoNCiNoZWFkKHRyYWluLCA1KSU+JSBEVDo6ZGF0YXRhYmxlKCkNCiNoZWFkKHRlc3QsIDUpJT4lIERUOjpkYXRhdGFibGUoKQ0KYGBgDQoNCiMgRXhwbG9yYXRvcnkgRGF0YSBBbmFseXNpcw0KDQojIyBCaW5hcnkgVmFyaWFibGUgRGlzdHJpYnV0aW9uIHsudGFic2V0IC50YWJzZXQtZmFkZSAudGFic2V0LXBpbGxzfQ0KDQpgYGB7cn0NCiMxLiBhZ2UgZ3JvdXANCnAxPC1nZ3Bsb3QoaGVhcnQsIGFlcyh4PWFnZWdwKSkrZ2VvbV9iYXIoZmlsbD0ibGlnaHRibHVlIikrIGxhYnMoeD0iQWdlIEdyb3VwIikrIHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEwKQ0KDQojMi4gU2V4DQpwMjwtZ2dwbG90KGhlYXJ0LCBhZXMoeD1zZXhjKSkrZ2VvbV9iYXIoZmlsbD0iaW5kaWFucmVkMyIpKyBsYWJzKHg9IlNleCIpKyB0aGVtZV9taW5pbWFsKGJhc2Vfc2l6ZT0xMCkNCg0KIzMuIFNtb2tpbmcNCnAzPC1nZ3Bsb3QoaGVhcnQsIGFlcyh4PXNtb2tlKSkrZ2VvbV9iYXIoZmlsbD0ic2VhZ3JlZW4yIikrIGxhYnMoeD0iU21va2luZyIpKyB0aGVtZV9taW5pbWFsKGJhc2Vfc2l6ZT0xMCkNCg0KIzQuIERpYWJldGVzDQpwNDwtZ2dwbG90KGhlYXJ0LCBhZXMoeD1kaWEpKStnZW9tX2JhcihmaWxsPSJvcmFuZ2UyIikrDQogIGxhYnMoeD0iRGlhYmV0ZXMgU3RhdHVzIikrIHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEwKQ0KDQojNS4gY3BrDQpwNTwtZ2dwbG90KGhlYXJ0LCBhZXMoeD1jcGspKStnZW9tX2JhcihmaWxsPSJsaWdodGJsdWUiKSsNCmxhYnMoeD0iQ3JlYXRpbmluZSBQaG9zcGhva2luYXNlIikrIHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEwKQ0KDQojNi4gUGxhdGVsZXRzDQpwNjwtZ2dwbG90KGhlYXJ0LCBhZXMoeD1wbGF0YykpK2dlb21fYmFyKGZpbGw9ImluZGlhbnJlZDIiKSsNCiAgbGFicyh4PSJQbGF0ZWxldHMiKSsgdGhlbWVfbWluaW1hbChiYXNlX3NpemU9MTApDQoNCiM3LiBzZXJ1bSBzb2RpdW0NCnA3PC1nZ3Bsb3QoaGVhcnQsIGFlcyh4PXNvZGl1bWMpKStnZW9tX2JhcihmaWxsPSJzZWFncmVlbjIiKSsNCiAgbGFicyh4PSJTZXJ1bSBTb2RpdW0iKSArIHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEwKQ0KDQojOC4gU2VydW0gY3JlYXRpbmluZQ0KcDg8LWdncGxvdChoZWFydCwgYWVzKHg9c2NyZWF0KSkrZ2VvbV9iYXIoZmlsbD0ib3JhbmdlMiIpKw0KICBsYWJzKHg9IlNlcnVtIENyZWF0aW5pbmUiKSArIHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEwKQ0KDQoNCiM5LiBhbmFlbWlhIA0KcDk8LWdncGxvdChoZWFydCwgYWVzKHg9YW5hZW1pYWMsIGZpbGw9REVBVEhfRVZFTlQpKStnZW9tX2JhcihmaWxsPSJsaWdodGJsdWUiKSsgbGFicyh4PSJBbmFlbWlhIikrIHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEwKQ0KDQojMTAuIGVqZWN0aW9uX2ZyYWN0aW9uDQpwMTA8LWdncGxvdChoZWFydCwgYWVzKHg9ZWZyYWN0aW9uKSkrZ2VvbV9iYXIoZmlsbD0iaW5kaWFucmVkMiIpKw0KICBsYWJzKHg9IkVqZWN0aW9uIEZyYWN0aW9uIikrIHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEwKQ0KDQojMTEuIEhpZ2ggYmxvb2QgcHJlc3N1cmUNCnAxMTwtZ2dwbG90KGhlYXJ0LCBhZXMoeD1oYnApKStnZW9tX2JhcihmaWxsPSJzZWFncmVlbjIiKSsNCiAgbGFicyh4PSJIaWdoIEJsb29kIFByZXNzdXJlIFN0YXR1cyIpKyB0aGVtZV9taW5pbWFsKGJhc2Vfc2l6ZT0xMCkNCg0KIzEyLiBFdmVudA0KcDEyPC1nZ3Bsb3QoaGVhcnQsIGFlcyh4PWNuc3IpKStnZW9tX2JhcihmaWxsPSJvcmFuZ2VyZWQzIikrIGxhYnMoeD0iRXZlbnQgU3RhdHVzIikrIHRoZW1lX21pbmltYWwoYmFzZV9zaXplPTEwKQ0KDQpgYGANCg0KIyMjIERlbW9ncmFwaGljIGFuZCBCYXNlbGluZSBDaGFyYWN0ZXJzIERpc3RyaWJ1dGlvbg0KDQpgYGB7cn0NCihwMStwMitwMyArcDQpKw0KICBwbG90X2Fubm90YXRpb24odGl0bGU9IkRlbW9ncmFwaGljIGFuZCBIaXN0b2xvZ3kgRGlzdHJpYnV0aW9uIikNCmBgYA0KDQoNCiMjIyBMYWIgVGVzdCBSZXN1bHQgRGlzdHJpYnV0aW9uDQpgYGB7cn0NCihwNStwNitwNytwOCkgKyBwbG90X2Fubm90YXRpb24odGl0bGU9IkxhYiBUZXN0IERpc3RyaWJ1dGlvbiIpDQpgYGANCg0KDQojIyMgRGlzZWFzZSBoaXN0b3J5IERpc3RyaWJ1dGlvbg0KYGBge3J9DQoocDkrcDEwK3AxMStwMTIpICsgcGxvdF9hbm5vdGF0aW9uKHRpdGxlPSJEaXNlYXNlIEhpc3RvcnkgRGlzdHJpYnV0aW9uIikNCmBgYA0KDQoNCiMjIENvbnRpbnVvdXMgVmFyaWFibGVzIERpc2JyaWJ1dGlvbiAgey50YWJzZXQgLnRhYnNldC1mYWRlIC50YWJzZXQtcGlsbHN9DQoNCiMjIyBBZ2UgDQpgYGB7cn0NCiMxLiBBZ2UNCmMxPC0gZ2dwbG90KGhlYXJ0LCBhZXMoeD1hZ2UpKSsgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGg9NSwgY29sb3VyPSJ3aGl0ZSIsIGZpbGw9ImRhcmtzZWFncmVlbjIiLCBhbHBoYT0wLjgpKw0KICBnZW9tX2RlbnNpdHkoZXZhbChicXVvdGUoYWVzKHk9Li5jb3VudC4uKjUpKSksY29sb3VyPSJkYXJrZ3JlZW4iLCBmaWxsPSJkYXJrZ3JlZW4iLCBhbHBoYT0wLjMpKyBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzPXNlcSg0MCwxMDAsMTApKStnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSA2NSwgbGluZXR5cGU9ImRhc2hlZCIpKyBhbm5vdGF0ZSgidGV4dCIsIHg9NTAsIHk9NDUsIGxhYmVsPSJBZ2UgPDY1Iiwgc2l6ZT0yLjUsIGNvbG9yPSJkYXJrIGdyZWVuIikgKyBhbm5vdGF0ZSgidGV4dCIsIHg9ODAsIHk9NDUsIGxhYmVsPSJBZ2UgPj0gNjUiLCBzaXplPTIuNSwgY29sb3I9ImRhcmsgcmVkIikgK2xhYnModGl0bGU9IkFnZSBEaXN0cmlidXRpb24iKSArIHRoZW1lX21pbmltYWwoYmFzZV9zaXplID0gOCkNCmMxDQoNCmBgYA0KDQoNCiMjIyBDUEsNCg0KYGBge3J9DQoNCiMyLiBjcGsNCmMyPC0gZ2dwbG90KGhlYXJ0LCBhZXMoeD1jcmVhdGluaW5lX3Bob3NwaG9raW5hc2UpKSsgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGg9MTAwLCBjb2xvdXI9IndoaXRlIiwgZmlsbD0ibWVkaXVtcHVycGxlMiIsIGFscGhhPTAuOCkrDQogIGdlb21fZGVuc2l0eShldmFsKGJxdW90ZShhZXMoeT0uLmNvdW50Li4qMTUwKSkpLGNvbG91cj0ibWVkaXVtb3JjaGlkMSIsIGZpbGw9Im1lZGl1bW9yY2hpZDEiLCBhbHBoYT0wLjMpKyBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzPXNlcSgwLDEwMDAwLDEwMDApKStnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSAxMjAsIGxpbmV0eXBlPSJkYXNoZWQiKSsgYW5ub3RhdGUoInRleHQiLCB4PTAsIHk9MTAwLCBsYWJlbD0iQ1BLIE5vcm1hbCIsIHNpemU9Mi41LCBjb2xvcj0iZGFyayBncmVlbiIpICsgYW5ub3RhdGUoInRleHQiLCB4PTEwMDAsIHk9ODAsIGxhYmVsPSJDUEsgQWJub3JtYWwiLCBzaXplPTIuNSwgY29sb3I9ImRhcmsgcmVkIikrbGFicyh0aXRsZT0iQ3JlYXRpbmluZSBQaG9zcGhva2luYXNlIERpc3RyaWJ1dGlvbiIpICsgdGhlbWVfbWluaW1hbChiYXNlX3NpemUgPSA4KQ0KYzINCmBgYA0KDQoNCiMjIyBFamVjdGlvbiBGcmFjdGlvbg0KYGBge3J9DQpjMzwtIGdncGxvdChoZWFydCwgYWVzKHg9ZWplY3Rpb25fZnJhY3Rpb24pKSsgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGg9NSwgY29sb3VyPSJ3aGl0ZSIsIGZpbGw9ImxpZ2h0cGluazEiLCBhbHBoYT0wLjgpKw0KICBnZW9tX2RlbnNpdHkoZXZhbChicXVvdGUoYWVzKHk9Li5jb3VudC4uKjUpKSksY29sb3VyPSJtaXN0eXJvc2UyIiwgZmlsbD0ibWlzdHlyb3NlMiIsIGFscGhhPTAuMykrIHNjYWxlX3hfY29udGludW91cyhicmVha3M9c2VxKDAsODAsMTApKStnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSA0MCwgbGluZXR5cGU9ImRhc2hlZCIpK2dlb21fdmxpbmUoeGludGVyY2VwdCA9IDc1LCBsaW5ldHlwZT0iZGFzaGVkIikrIGFubm90YXRlKCJ0ZXh0IiwgeD0yMCwgeT0zMCwgbGFiZWw9IkFibm9ybWFsIiwgc2l6ZT0yLjUsIGNvbG9yPSJkYXJrIHJlZCIpICsgYW5ub3RhdGUoInRleHQiLCB4PTUwLCB5PTMwLCBsYWJlbD0iTm9ybWFsIiwgY29sb3I9ImRhcmsgZ3JlZW4iKSsgIGFubm90YXRlKCJ0ZXh0IiwgeD04MCwgeT0zMCwgbGFiZWw9IkFibm9ybWFsIiwgc2l6ZT0yLjUsIGNvbG9yPSJkYXJrIHJlZCIpK2xhYnModGl0bGU9IkVqZWN0aW9uIEZyYWN0aW9uIERpc3RyaWJ1dGlvbiIpICsgdGhlbWVfbWluaW1hbChiYXNlX3NpemUgPSA4KQ0KYzMNCmBgYA0KDQojIyMgUGxhdGVsZXRzIENvdW50DQpgYGB7cn0NCmM0PC0gZ2dwbG90KGhlYXJ0LCBhZXMoeD1wbGF0ZWxldHMpKSsgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGg9MjAwMDAsIGNvbG91cj0id2hpdGUiLCBmaWxsPSJsaWdodHNreWJsdWUyIiwgYWxwaGE9MC44KSsNCiAgZ2VvbV9kZW5zaXR5KGV2YWwoYnF1b3RlKGFlcyh5PS4uY291bnQuLioyNTAwMCkpKSxjb2xvdXI9ImxpZ2h0c3RlZWxibHVlIiwgZmlsbD0ibGlnaHRzdGVlbGJsdWUiLCBhbHBoYT0wLjMpKw0KICBnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSAxNTAwMDAsIGxpbmV0eXBlPSJkYXNoZWQiKStnZW9tX3ZsaW5lKHhpbnRlcmNlcHQgPSA0NTAwMDAsIGxpbmV0eXBlPSJkYXNoZWQiKSsgYW5ub3RhdGUoInRleHQiLCB4PTEwMDAwMCwgeT0zMCwgbGFiZWw9IkFibm9ybWFsIiwgc2l6ZT0yLjUsIGNvbG9yPSJkYXJrIHJlZCIpICsgYW5ub3RhdGUoInRleHQiLCB4PTMwMDAwMCwgeT0zMCwgbGFiZWw9Ik5vcm1hbCIsIGNvbG9yPSJkYXJrIGdyZWVuIikrICBhbm5vdGF0ZSgidGV4dCIsIHg9NTAwMDAwLCB5PTMwLCBsYWJlbD0iQWJub3JtYWwiLCBzaXplPTIuNSwgY29sb3I9ImRhcmsgcmVkIikrbGFicyh0aXRsZT0iUGxhdGVsZXRzIENvdW50IikgKyB0aGVtZV9taW5pbWFsKGJhc2Vfc2l6ZSA9IDgpDQpjNA0KYGBgDQoNCg0KDQojIyMgU2VydW0gU29kaXVtDQpgYGB7cn0NCmM1PC0gZ2dwbG90KGhlYXJ0LCBhZXMoeD1zZXJ1bV9zb2RpdW0pKSsgZ2VvbV9oaXN0b2dyYW0oYmlud2lkdGg9MSwgY29sb3VyPSJ3aGl0ZSIsIGZpbGw9ImxpZ2h0c2FsbW9uIiwgYWxwaGE9MC44KSsNCiAgZ2VvbV9kZW5zaXR5KGV2YWwoYnF1b3RlKGFlcyh5PS4uY291bnQuLikpKSxjb2xvdXI9ImxpZ2h0Y29yYWwiLCBmaWxsPSJsaWdodGNvcmFsIiwgYWxwaGE9MC4zKSsNCiAgZ2VvbV92bGluZSh4aW50ZXJjZXB0ID0gMTM1LCBsaW5ldHlwZT0iZGFzaGVkIikrZ2VvbV92bGluZSh4aW50ZXJjZXB0ID0gMTQ1LCBsaW5ldHlwZT0iZGFzaGVkIikrIGFubm90YXRlKCJ0ZXh0IiwgeD0xMzAsIHk9MjAsIGxhYmVsPSJBYm5vcm1hbCIsIHNpemU9Mi41LCBjb2xvcj0iZGFyayByZWQiKSArIGFubm90YXRlKCJ0ZXh0IiwgeD0xNDIsIHk9MjAsIGxhYmVsPSJOb3JtYWwiLCBjb2xvcj0iZGFyayBncmVlbiIpKyAgYW5ub3RhdGUoInRleHQiLCB4PTE0OCwgeT0yMCwgbGFiZWw9IkFibm9ybWFsIiwgc2l6ZT0yLjUsIGNvbG9yPSJkYXJrIHJlZCIpK2xhYnModGl0bGU9IlNlcnVtIFNvZGl1bSIpICsgdGhlbWVfbWluaW1hbChiYXNlX3NpemUgPSA4KQ0KYzUNCmBgYA0KDQoNCiMjIyBTZXJ1bSBDcmVhdGluaW5lDQpgYGB7cn0NCmM2PC0gZ2dwbG90KGhlYXJ0LCBhZXMoeD1zZXJ1bV9jcmVhdGluaW5lKSkrIGdlb21faGlzdG9ncmFtKGJpbndpZHRoPTAuMiwgY29sb3VyPSJ3aGl0ZSIsIGZpbGw9ImxpZ2h0Z29sZGVucm9kIiwgYWxwaGE9MC44KSsNCiAgZ2VvbV9kZW5zaXR5KGV2YWwoYnF1b3RlKGFlcyh5PS4uY291bnQuLiowLjIpKSksY29sb3VyPSJtb2NjYXNpbiIsIGZpbGw9Im1vY2Nhc2luIiwgYWxwaGE9MC4zKSsNCiAgZ2VvbV92bGluZSh4aW50ZXJjZXB0ID0gMC43NCwgbGluZXR5cGU9ImRhc2hlZCIpK2dlb21fdmxpbmUoeGludGVyY2VwdCA9IDEuMzUsIGxpbmV0eXBlPSJkYXNoZWQiKSsgYW5ub3RhdGUoInRleHQiLCB4PTAuMDUsIHk9MjAsIGxhYmVsPSJBYm5vcm1hbCIsIHNpemU9Mi41LCBjb2xvcj0iZGFyayByZWQiKSArIGFubm90YXRlKCJ0ZXh0IiwgeD0xLCB5PTIwLCBsYWJlbD0iTm9ybWFsIiwgY29sb3I9ImRhcmsgZ3JlZW4iKSsgIGFubm90YXRlKCJ0ZXh0IiwgeD0yLjUsIHk9MjAsIGxhYmVsPSJBYm5vcm1hbCIsIHNpemU9Mi41LCBjb2xvcj0iZGFyayByZWQiKStsYWJzKHRpdGxlPSJTZXJ1bSBDcmVhdGluaW5lIikgKyB0aGVtZV9taW5pbWFsKGJhc2Vfc2l6ZSA9IDgpDQpjNg0KYGBgDQoNCiMjIERlYXRoIEV2ZW50IENvdW50IHdpdGggU3Vydml2YWwgdGltZSAgIHsudGFic2V0IC50YWJzZXQtZmFkZSAudGFic2V0LXBpbGxzfQ0KDQojIyMgQnViYmxlIENoYXJ0DQpTZXBlcnRpIHlhbmcgYmlzYSBraXRhIGxpaGF0LCBiZW50dWsgc2VnaXRpZ2EgYWRhbGFoIEtlbWF0aWFuLCBsaW5na2FyYW4gbWV3YWtpbGkgc3ViamVrIHlhbmcgZGlzZW5zb3IsIHVrdXJhbiBiZW50dWsgbWV3YWtpbGkganVtbGFoIHBhc2llbiB5YW5nIGhpZHVwL21hdGkgcGFkYSBoYXJpIHlhbmcgc2FtYS4NCkplbGFzIHBhc2llbiB5YW5nIGRpc2Vuc29yIChsaW5na2FyYW4pIGhpZHVwIGxlYmloIGxhbWEuDQoNCmBgYHtyLCB3YXJuaW5nPUZBTFNFfQ0KZDEgPC0gZ3JvdXBfYnkoaGVhcnQsdGltZSxERUFUSF9FVkVOVCkNCmQyPC0gc3VtbWFyaXNlKGQxLGNvdW50PW4oKSkNCmQyMiA8LSBhcnJhbmdlKGQyLCBkZXNjKHRpbWUpKQ0KDQoNCmdncGxvdChkMjIsIGFlcyh4PXJlb3JkZXIoIHRpbWUsIGNvdW50KSwgeT10aW1lKSkrIGdlb21fcG9pbnQoYWVzKHNpemU9Y291bnQsIGNvbG91cj1mYWN0b3IoY291bnQpLCBzaGFwZT1mYWN0b3IoREVBVEhfRVZFTlQpKSwgYWxwaGE9MS8yKSsNCiAgdGhlbWVfaXBzdW0oKSArDQogICAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X3RleHQoYW5nbGUgPSA5MCwgaGp1c3QgPSAxKSAsICBsZWdlbmQucG9zaXRpb249Im5vbmUiKSArY29vcmRfZmxpcCgpICt5bGFiKCJTdXJ2aXZhbCBkYXlzIikgK3hsYWIoIlN1cnZpdmFsIGNvdW50cyIpKyBnZ3RpdGxlKCJQYXRpZW50IHN1cnZpdmFsIHRpbWUgd2l0aCBjb3VudHMiKQ0KYGBgDQoNCg0KIyMjIExvbGxpcG9wIENoYXJ0IGZvciBTdXJ2aXZhbCBTdGF0dXMgd2l0aCBDZW5zb3INCg0KS2FtaSBtZW5nZ3VuYWthbiBnYXJpcyBiaXJ1IHVudHVrIG1lbnVuanVra2FuIHBhc2llbiB5YW5nIGRpc2Vuc29yIChoaWR1cCksIGRhbiBnYXJpcyBvcmFueWUgdW50dWsgbWVudW5qdWtrYW4gcGFzaWVuIHlhbmcgbWVuZ2FsYW1pIGtlamFkaWFuIChtYXRpKS4gU2FuZ2F0IGplbGFzIGJhaHdhIHBhc2llbiB5YW5nIGRpc2Vuc29yIGhpZHVwIGxlYmloIGxhbWEgc2VjYXJhIHVtdW0uDQoNCmBgYHtyfQ0KaGVhcnQkaWRjIDwtIHBhc3RlKCJpZCIsYXMuZmFjdG9yKGhlYXJ0JGlkKSkNCg0KbG9sMV8xMDA8LWdncGxvdChoZWFydFswOjEwMCxdLCBhZXMoeD1pZGMsIHk9dGltZSkpICsNCiAgZ2VvbV9zZWdtZW50KCBhZXMoeD1pZGMsIHhlbmQ9aWRjLCB5PTAsIHllbmQ9dGltZSksICAgICAgICBjb2xvcj1pZmVsc2UoaGVhcnRbMDoxMDAsXSRERUFUSF9FVkVOVD09MSwgIm9yYW5nZSIsICJza3libHVlIikpKw0KICBnZW9tX3BvaW50KCBjb2xvcj1pZmVsc2UoaGVhcnRbMDoxMDAsXSRERUFUSF9FVkVOVD09MSwgInJlZCIsICJkYXJrZ3JlZW4iKSwgc2l6ZT0wLjEsIGFscGhhPTAuNikgKw0KICB0aGVtZV9saWdodCgpICsNCiAgY29vcmRfZmxpcCgpICsNCiAgdGhlbWUoDQogICAgcGFuZWwuZ3JpZC5tYWpvci55ID0gZWxlbWVudF9ibGFuaygpLA0KICAgIHBhbmVsLmJvcmRlciA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBheGlzLnRpY2tzLnkgPSBlbGVtZW50X2JsYW5rKCkNCiAgKSsgeWxhYigiU3Vydml2YWwgZGF5cyIpICt4bGFiKCJQYXRpZW50IElEIDEtMTAwIikgKyBnZ3RpdGxlKCJQYXRpZW50IDEtMTAwIFN1cnZpdmFsIFN0YXR1cyB3aXRoIENlbnNvciIpDQoNCmxvbDEwMTwtZ2dwbG90KGhlYXJ0WzEwMToyMDAsXSwgYWVzKHg9aWRjLCB5PXRpbWUpKSArDQogIGdlb21fc2VnbWVudCggYWVzKHg9aWRjLCB4ZW5kPWlkYywgeT0wLCB5ZW5kPXRpbWUpLCAgICAgICAgY29sb3I9aWZlbHNlKGhlYXJ0WzA6MTAwLF0kREVBVEhfRVZFTlQ9PTEsICJvcmFuZ2UiLCAic2t5Ymx1ZSIpKSsNCiAgZ2VvbV9wb2ludCggY29sb3I9aWZlbHNlKGhlYXJ0WzA6MTAwLF0kREVBVEhfRVZFTlQ9PTEsICJyZWQiLCAiZGFya2dyZWVuIiksIHNpemU9MC4xLCBhbHBoYT0wLjYpICsNCiAgdGhlbWVfbGlnaHQoKSArDQogIGNvb3JkX2ZsaXAoKSArDQogIHRoZW1lKA0KICAgIHBhbmVsLmdyaWQubWFqb3IueSA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICBwYW5lbC5ib3JkZXIgPSBlbGVtZW50X2JsYW5rKCksDQogICAgYXhpcy50aWNrcy55ID0gZWxlbWVudF9ibGFuaygpDQogICkrIHlsYWIoIlN1cnZpdmFsIGRheXMiKSAreGxhYigiUGF0aWVudCBJRCAxMDEtMjAwIikgKyBnZ3RpdGxlKCJQYXRpZW50IDEwMS0yMDAgU3Vydml2YWwgU3RhdHVzIHdpdGggQ2Vuc29yIikNCg0KbG9sMjAxPC1nZ3Bsb3QoaGVhcnRbMjAxOjI5OSxdLCBhZXMoeD1pZGMsIHk9dGltZSkpICsNCiAgZ2VvbV9zZWdtZW50KCBhZXMoeD1pZGMsIHhlbmQ9aWRjLCB5PTAsIHllbmQ9dGltZSksICAgICAgY29sb3I9aWZlbHNlKGhlYXJ0WzIwMToyOTksXSRERUFUSF9FVkVOVD09MSwgIm9yYW5nZSIsICJza3libHVlIikpKw0KICBnZW9tX3BvaW50KCBjb2xvcj1pZmVsc2UoaGVhcnRbMjAxOjI5OSxdJERFQVRIX0VWRU5UPT0xLCAicmVkIiwgImRhcmtncmVlbiIpLCBzaXplPTAuMSwgYWxwaGE9MC42KSArDQogIHRoZW1lX2xpZ2h0KCkgKw0KICBjb29yZF9mbGlwKCkgKw0KICB0aGVtZSgNCiAgICBwYW5lbC5ncmlkLm1ham9yLnkgPSBlbGVtZW50X2JsYW5rKCksDQogICAgcGFuZWwuYm9yZGVyID0gZWxlbWVudF9ibGFuaygpLA0KICAgIGF4aXMudGlja3MueSA9IGVsZW1lbnRfYmxhbmsoKQ0KICApKyB5bGFiKCJTdXJ2aXZhbCBkYXlzIikgK3hsYWIoIlBhdGllbnQgSUQgMjAxLTI5OSIpICsgZ2d0aXRsZSgiUGF0aWVudCAyMDEtMjk5IFN1cnZpdmFsIFN0YXR1cyB3aXRoIENlbnNvciIpDQoNCmxvbDFfMTAwDQpsb2wxMDENCmxvbDIwMQ0KYGBgDQoNCiMjIENvcnJlbGF0aW9ucyAgey50YWJzZXQgLnRhYnNldC1mYWRlIC50YWJzZXQtcGlsbHN9DQoNCiMjIyBDb3JyZWxhdGlvbiBNYXRyaXgNCg0KRGFyaSBtYXRyaWtzIGtvcmVsYXNpLCBraXRhIGRhcGF0IG1lbGloYXQgS2VqYWRpYW4gS2VtYXRpYW4gYmVya29yZWxhc2kgdGluZ2dpIGRlbmdhbiBrcmVhdGluaW4gc2VydW0sIHVzaWEsIG5hdHJpdW0gc2VydW0sIGZyYWtzaSBlamVrc2kuDQoNCmBgYHtyfQ0KDQpyPWNvcihoMSkNCmNvcnJwbG90KHIsIHR5cGUgPSAidXBwZXIiLCBvcmRlciA9ICJoY2x1c3QiLCANCiAgICAgICAgIHRsLmNvbCA9ICJibGFjayIsIHRsLnNydCA9IDkwKQ0KYGBgDQoNCiMjIyBIZWF0bWFwDQoNClNheWEganVnYSBha2FuIG1lbnVuanVra2FuIGhlYXRtYXAgc2ViYWdhaSBidWt0aSB0YW1iYWhhbi4NCmBgYHtyfQ0KY291bCA8LSBjb2xvclJhbXBQYWxldHRlKGJyZXdlci5wYWwoOCwgIlBpWUciKSkoMjUpDQpoZWF0bWFwKHIsIHNjYWxlPSJjb2x1bW4iLCBjb2wgPSBjb3VsKQ0KYGBgDQoNCmBgYHtyfQ0KZHJhd19jb25mdXNpb25fbWF0cml4IDwtIGZ1bmN0aW9uKGNtKSB7DQoNCiAgdG90YWwgPC0gc3VtKGNtJHRhYmxlKQ0KICByZXMgPC0gYXMubnVtZXJpYyhjbSR0YWJsZSkNCg0KICAjIEdlbmVyYXRlIGNvbG9yIGdyYWRpZW50cy4gUGFsZXR0ZXMgY29tZSBmcm9tIFJDb2xvckJyZXdlci4NCiAgZ3JlZW5QYWxldHRlIDwtIGMoIiNGN0ZDRjUiLCIjRTVGNUUwIiwiI0M3RTlDMCIsIiNBMUQ5OUIiLCIjNzRDNDc2IiwiIzQxQUI1RCIsIiMyMzhCNDUiLCIjMDA2RDJDIiwiIzAwNDQxQiIpDQogIHJlZFBhbGV0dGUgPC0gYygiI0ZGRjVGMCIsIiNGRUUwRDIiLCIjRkNCQkExIiwiI0ZDOTI3MiIsIiNGQjZBNEEiLCIjRUYzQjJDIiwiI0NCMTgxRCIsIiNBNTBGMTUiLCIjNjcwMDBEIikNCiAgZ2V0Q29sb3IgPC0gZnVuY3Rpb24gKGdyZWVuT3JSZWQgPSAiZ3JlZW4iLCBhbW91bnQgPSAwKSB7DQogICAgaWYgKGFtb3VudCA9PSAwKQ0KICAgICAgcmV0dXJuKCIjRkZGRkZGIikNCiAgICBwYWxldHRlIDwtIGdyZWVuUGFsZXR0ZQ0KICAgIGlmIChncmVlbk9yUmVkID09ICJyZWQiKQ0KICAgICAgcGFsZXR0ZSA8LSByZWRQYWxldHRlDQogICAgY29sb3JSYW1wUGFsZXR0ZShwYWxldHRlKSgxMDApWzEwICsgY2VpbGluZyg5MCAqIGFtb3VudCAvIHRvdGFsKV0NCiAgfQ0KDQogICMgc2V0IHRoZSBiYXNpYyBsYXlvdXQNCiAgbGF5b3V0KG1hdHJpeChjKDEsMSwyKSkpDQogIHBhcihtYXI9YygyLDIsMiwyKSkNCiAgcGxvdChjKDEwMCwgMzQ1KSwgYygzMDAsIDQ1MCksIHR5cGUgPSAibiIsIHhsYWI9IiIsIHlsYWI9IiIsIHhheHQ9J24nLCB5YXh0PSduJykNCiAgdGl0bGUoJ0NPTkZVU0lPTiBNQVRSSVgnLCBjZXgubWFpbj0yKQ0KDQogICMgY3JlYXRlIHRoZSBtYXRyaXggDQogIGNsYXNzZXMgPSBjb2xuYW1lcyhjbSR0YWJsZSkNCiAgcmVjdCgxNTAsIDQzMCwgMjQwLCAzNzAsIGNvbD1nZXRDb2xvcigiZ3JlZW4iLCByZXNbMV0pKQ0KICB0ZXh0KDE5NSwgNDM1LCBjbGFzc2VzWzFdLCBjZXg9MS4yKQ0KICByZWN0KDI1MCwgNDMwLCAzNDAsIDM3MCwgY29sPWdldENvbG9yKCJyZWQiLCByZXNbM10pKQ0KICB0ZXh0KDI5NSwgNDM1LCBjbGFzc2VzWzJdLCBjZXg9MS4yKQ0KICB0ZXh0KDEyNSwgMzcwLCAnUHJlZGljdGVkJywgY2V4PTEuMywgc3J0PTkwLCBmb250PTIpDQogIHRleHQoMjQ1LCA0NTAsICdBY3R1YWwnLCBjZXg9MS4zLCBmb250PTIpDQogIHJlY3QoMTUwLCAzMDUsIDI0MCwgMzY1LCBjb2w9Z2V0Q29sb3IoInJlZCIsIHJlc1syXSkpDQogIHJlY3QoMjUwLCAzMDUsIDM0MCwgMzY1LCBjb2w9Z2V0Q29sb3IoImdyZWVuIiwgcmVzWzRdKSkNCiAgdGV4dCgxNDAsIDQwMCwgY2xhc3Nlc1sxXSwgY2V4PTEuMiwgc3J0PTkwKQ0KICB0ZXh0KDE0MCwgMzM1LCBjbGFzc2VzWzJdLCBjZXg9MS4yLCBzcnQ9OTApDQoNCiAgIyBhZGQgaW4gdGhlIGNtIHJlc3VsdHMNCiAgdGV4dCgxOTUsIDQwMCwgcmVzWzFdLCBjZXg9MS42LCBmb250PTIsIGNvbD0nd2hpdGUnKQ0KICB0ZXh0KDE5NSwgMzM1LCByZXNbMl0sIGNleD0xLjYsIGZvbnQ9MiwgY29sPSd3aGl0ZScpDQogIHRleHQoMjk1LCA0MDAsIHJlc1szXSwgY2V4PTEuNiwgZm9udD0yLCBjb2w9J3doaXRlJykNCiAgdGV4dCgyOTUsIDMzNSwgcmVzWzRdLCBjZXg9MS42LCBmb250PTIsIGNvbD0nd2hpdGUnKQ0KDQogICMgYWRkIGluIHRoZSBzcGVjaWZpY3MgDQogIHBsb3QoYygxMDAsIDApLCBjKDEwMCwgMCksIHR5cGUgPSAibiIsIHhsYWI9IiIsIHlsYWI9IiIsIG1haW4gPSAiREVUQUlMUyIsIHhheHQ9J24nLCB5YXh0PSduJykNCiAgdGV4dCgxMCwgODUsIG5hbWVzKGNtJGJ5Q2xhc3NbMV0pLCBjZXg9MS4yLCBmb250PTIpDQogIHRleHQoMTAsIDcwLCByb3VuZChhcy5udW1lcmljKGNtJGJ5Q2xhc3NbMV0pLCAzKSwgY2V4PTEuMikNCiAgdGV4dCgzMCwgODUsIG5hbWVzKGNtJGJ5Q2xhc3NbMl0pLCBjZXg9MS4yLCBmb250PTIpDQogIHRleHQoMzAsIDcwLCByb3VuZChhcy5udW1lcmljKGNtJGJ5Q2xhc3NbMl0pLCAzKSwgY2V4PTEuMikNCiAgdGV4dCg1MCwgODUsIG5hbWVzKGNtJGJ5Q2xhc3NbNV0pLCBjZXg9MS4yLCBmb250PTIpDQogIHRleHQoNTAsIDcwLCByb3VuZChhcy5udW1lcmljKGNtJGJ5Q2xhc3NbNV0pLCAzKSwgY2V4PTEuMikNCiAgdGV4dCg3MCwgODUsIG5hbWVzKGNtJGJ5Q2xhc3NbNl0pLCBjZXg9MS4yLCBmb250PTIpDQogIHRleHQoNzAsIDcwLCByb3VuZChhcy5udW1lcmljKGNtJGJ5Q2xhc3NbNl0pLCAzKSwgY2V4PTEuMikNCiAgdGV4dCg5MCwgODUsIG5hbWVzKGNtJGJ5Q2xhc3NbN10pLCBjZXg9MS4yLCBmb250PTIpDQogIHRleHQoOTAsIDcwLCByb3VuZChhcy5udW1lcmljKGNtJGJ5Q2xhc3NbN10pLCAzKSwgY2V4PTEuMikNCg0KICAjIGFkZCBpbiB0aGUgYWNjdXJhY3kgaW5mb3JtYXRpb24gDQogIHRleHQoMzAsIDM1LCBuYW1lcyhjbSRvdmVyYWxsWzFdKSwgY2V4PTEuNSwgZm9udD0yKQ0KICB0ZXh0KDMwLCAyMCwgcm91bmQoYXMubnVtZXJpYyhjbSRvdmVyYWxsWzFdKSwgMyksIGNleD0xLjQpDQogIHRleHQoNzAsIDM1LCBuYW1lcyhjbSRvdmVyYWxsWzJdKSwgY2V4PTEuNSwgZm9udD0yKQ0KICB0ZXh0KDcwLCAyMCwgcm91bmQoYXMubnVtZXJpYyhjbSRvdmVyYWxsWzJdKSwgMyksIGNleD0xLjQpDQp9DQoNCmBgYA0KDQojIE1hY2hpbmUgTGVhcm5pbmcgTW9kZWwgZm9yIFZhcmlhYmxlIFNlbGVjdGlvbnMNCg0KS2FtaSBtZW5lcmFwa2FuIDMgbWV0b2RlIHBlbWJlbGFqYXJhbiBtZXNpbiAoR0xNLCBHQk0sIFJhbmRvbSBGb3Jlc3QpIHVudHVrIG1lbXByZWRpa3NpIGZha3RvciB5YW5nIHBhbGluZyBwZW50aW5nIHVudHVrIEtlamFkaWFuX0tlbWF0aWFuIEdhZ2FsIEphbnR1bmcgc2ViYWdhaSB2YXJpYWJlbCBkZXBlbmRlbiBkYWxhbSBzdHJ1a3R1ciBkYXRhIGFzbGkgc2VydGEga2VyYW5na2EgZGF0YSB5YW5nIGRpa2F0ZWdvcmlrYW4uIFNlY2FyYSBrZXNlbHVydWhhbiwga2FtaSBtZW5lbXVrYW4gc2VydW1fY3JlYXRpbmluZSwgdXNpYSwgZnJha3NpIGVqZWtzaSwgZGFuIG5hdHJpdW0gc2VydW0gYWRhbGFoIGVtcGF0IGZpdHVyIHlhbmcgcGFsaW5nIHBlbnRpbmcsIHlhbmcga29uc2lzdGVuIGRlbmdhbiBtYXRyaWtzIGtvcmVsYXNpLg0KDQpjYXRhdGFuOiBLZWN1YWxpa2FuIHZhcmlhYmVsICJ3YWt0dSIgKHBhcmFkb2tzKSANCg0KIyMgR0JNIHsudGFic2V0IC50YWJzZXQtZmFkZSAudGFic2V0LXBpbGxzfQ0KDQoqKkdyYWRpZW50IEJvb3N0aW5nICoqIGFkYWxhaCB0ZWtuaWsgcGVtYmVsYWphcmFuIG1lc2luIHlhbmcgZGlndW5ha2FuIGRhbGFtIHR1Z2FzIHJlZ3Jlc2kgZGFuIGtsYXNpZmlrYXNpLiBUZWtuaWsgaW5pIHRlcmtlbmFsIGthcmVuYSBkYXBhdCBtZW5ndWJhaCBwZW1iZWxhamFyIHlhbmcgbGVtYWggbWVuamFkaSBwZW1iZWxhamFyIHlhbmcga3VhdC4gRGltdWxhaSBkZW5nYW4gbWVtYmVyaWthbiBib2JvdCB5YW5nIHNhbWEgcGFkYSBzZXRpYXAgcG9ob24uIGtlbXVkaWFuIG1lbXBlcmJhaWtpIHByZWRpa3NpIHBvaG9uIHBlcnRhbWEuIEthbWkgbWVuZ3VsYW5naSBwcm9zZXMgVHJlZTEgK1RyZWUyIGluaSBoaW5nZ2EganVtbGFoIHRlcnRlbnR1LiANCg0KIyMjIEdCTSB3aXRoIE9yaWdpbmFsIERhdGENCg0KYGBge3J9DQpnYm0ubTwtIGdibSh0cmFpbiRERUFUSF9FVkVOVCB+LiAsIGRhdGE9dHJhaW4sIGRpc3RyaWJ1dGlvbiA9ICJiZXJub3VsbGkiLA0KICAgICAgICAgICAgY3YuZm9sZHM9MTAsIHNocmlua2FnZT0wLjAxLCBuLm1pbm9ic2lubm9kZSA9IDEwLCBuLnRyZWVzPTEwMDApDQojZ2JtLm0NCmdibS5pbXA9c3VtbWFyeShnYm0ubSkNCmdibS5pbXANCg0KZ21iLnQgPXByZWRpY3Qob2JqZWN0PWdibS5tLCBuZXdkYXRhPXRlc3QsIG4udHJlZXM9MTAwMCwgdHlwZT0icmVzcG9uc2UiKQ0KcHJlc3VsdDwtIGFzLmZhY3RvcihpZmVsc2UoZ21iLnQ+MC41LDEsMCkpDQp0ZXN0JERFQVRIX0VWRU5UMTwtYXMuZmFjdG9yKHRlc3QkREVBVEhfRVZFTlQpDQpnPC1jb25mdXNpb25NYXRyaXgocHJlc3VsdCx0ZXN0JERFQVRIX0VWRU5UMSkNCmRyYXdfY29uZnVzaW9uX21hdHJpeChnKQ0KDQpgYGANCg0KIyMjIEdCTSB3aXRoIENhdGVnb3JpemVkIERhdGENCmBgYHtyfQ0KZ2JtLm0xPC0gZ2JtKHRyYWluMSRERUFUSF9FVkVOVCB+LiAsIGRhdGE9dHJhaW4xLCBkaXN0cmlidXRpb24gPSAiYmVybm91bGxpIiwNCiAgICAgICAgICAgIGN2LmZvbGRzPTEwLCBzaHJpbmthZ2U9MC4wMSwgbi5taW5vYnNpbm5vZGUgPSAxMCwgbi50cmVlcz0xMDAwKQ0KI2dibS5tMQ0KZ2JtLmltcDE9c3VtbWFyeShnYm0ubTEpDQpnYm0uaW1wMQ0KDQpnbWIudDEgPXByZWRpY3Qob2JqZWN0PWdibS5tMSwgbmV3ZGF0YT10ZXN0MSwgbi50cmVlcz0xMDAwLCB0eXBlPSJyZXNwb25zZSIpDQpwcmVzdWx0PC0gYXMuZmFjdG9yKGlmZWxzZShnbWIudDE+MC41LDEsMCkpDQp0ZXN0MSRERUFUSF9FVkVOVDE8LWFzLmZhY3Rvcih0ZXN0MSRERUFUSF9FVkVOVCkNCmcxPC1jb25mdXNpb25NYXRyaXgocHJlc3VsdCx0ZXN0MSRERUFUSF9FVkVOVDEpDQpkcmF3X2NvbmZ1c2lvbl9tYXRyaXgoZzEpDQoNCmBgYA0KDQojIyBSYW5kb20gRm9yZXN0IHsudGFic2V0IC50YWJzZXQtZmFkZSAudGFic2V0LXBpbGxzfQ0KDQojIyMgUmFuZG9tIEZvcmVzdCB3aXRoIE9yaWdpbmFsIERhdGENCmBgYHtyfQ0KcmZvcmVzdDwtIHJhbmRvbUZvcmVzdChmYWN0b3IoREVBVEhfRVZFTlQpIH4uICwgZGF0YT10cmFpbiwgbnRyZWU9NTAwLCBpbXBvcnRhbmNlPVRSVUUpDQojc3VtbWFyeShyZm9yZXN0KQ0KaW1wPC12YXJJbXAocmZvcmVzdCkNCnZhckltcFBsb3QocmZvcmVzdCkNCg0KcnByZWRpY3Q8LSBwcmVkaWN0KHJmb3Jlc3QsIHRlc3QsIHR5cGU9ImNsYXNzIikNCmNtMjwtY29uZnVzaW9uTWF0cml4KHJwcmVkaWN0LCB0ZXN0JERFQVRIX0VWRU5UMSkNCmRyYXdfY29uZnVzaW9uX21hdHJpeChjbTIpDQpgYGANCg0KIyMjIFJhbmRvbSBGb3Jlc3Qgd2l0aCBDYXRlZ29yaXplZCBEYXRhDQoNCmBgYHtyfQ0KcmZvcmVzdDE8LSByYW5kb21Gb3Jlc3QoZmFjdG9yKERFQVRIX0VWRU5UKSB+LiAsIGRhdGE9dHJhaW4xLCBudHJlZT01MDAsIGltcG9ydGFuY2U9VFJVRSkNCiNzdW1tYXJ5KHJmb3Jlc3QxKQ0KaW1wMTwtdmFySW1wKHJmb3Jlc3QxKQ0KdmFySW1wUGxvdChyZm9yZXN0MSkNCg0KcnByZWRpY3QxPC0gcHJlZGljdChyZm9yZXN0MSwgdGVzdDEsIHR5cGU9ImNsYXNzIikNCmNtMjE8LWNvbmZ1c2lvbk1hdHJpeChycHJlZGljdDEsIHRlc3QxJERFQVRIX0VWRU5UMSkNCmRyYXdfY29uZnVzaW9uX21hdHJpeChjbTIxKQ0KYGBgDQoNCiMjIEdlbmVyYWwgTGluZWFyIE1vZGVsey50YWJzZXQgLnRhYnNldC1mYWRlIC50YWJzZXQtcGlsbHN9DQoNCiMjIyBHZW5lcmFsIExpbmVhciBNb2RlbCB3aXRoIE9yaWdpbmFsIERhdGENCg0KYGBge3J9DQpsbTEgPC0gZ2xtKERFQVRIX0VWRU5UIH4uLCBkYXRhPXRyYWluLCBmYW1pbHk9Ymlub21pYWwobGluaz0ibG9naXQiKSkNCg0KI3N1bW1hcnkobG0xKQ0KbGltcDwtdmFySW1wKGxtMSkNCmJhY2t3YXJkPC1zdGVwKGxtMSxkaXJlY3Rpb249ImJhY2t3YXJkIiwgdHJhY2U9MCkNCiN2aShiYWNrd2FyZCkNCnAyPC0gdmlwKGJhY2t3YXJkLG51bV9mZWF0dXJlcyA9IGxlbmd0aChjb2VmKGJhY2t3YXJkKSksDQogICAgICAgICBnZW9tPSJwb2ludCIsIGhvcml6b250YWwgPSBUUlVFLCBtYXBwaW5nID0gYWVzX3N0cmluZyhjb2xvcj0iU2lnbiIpKQ0KcDINCg0KZ2xtLnQgPXByZWRpY3Qob2JqZWN0PWxtMSwgbmV3ZGF0YT10ZXN0LCB0eXBlPSJyZXNwb25zZSIpDQpwcmVzdWx0PC0gYXMuZmFjdG9yKGlmZWxzZShnbG0udD4wLjUsMSwwKSkNCnRlc3QkREVBVEhfRVZFTlQxPC1hcy5mYWN0b3IodGVzdCRERUFUSF9FVkVOVCkNCmNtMzwtIGNvbmZ1c2lvbk1hdHJpeChwcmVzdWx0LHRlc3QkREVBVEhfRVZFTlQxKQ0KZHJhd19jb25mdXNpb25fbWF0cml4KGNtMykNCmBgYA0KDQojIyMgR2VuZXJhbCBMaW5lYXIgTW9kZWwgd2l0aCBDbGFzc2ljYXRpb24NCg0KYGBge3J9DQpsbTExIDwtIGdsbShERUFUSF9FVkVOVCB+LiwgZGF0YT10cmFpbjEsIGZhbWlseT1iaW5vbWlhbChsaW5rPSJsb2dpdCIpKQ0KDQojc3VtbWFyeShsbTEpDQpsaW1wMTwtdmFySW1wKGxtMTEpDQpiYWNrd2FyZDwtc3RlcChsbTExLGRpcmVjdGlvbj0iYmFja3dhcmQiLCB0cmFjZT0wKQ0KI3ZpKGJhY2t3YXJkKQ0KcDIxPC0gdmlwKGJhY2t3YXJkLG51bV9mZWF0dXJlcyA9IGxlbmd0aChjb2VmKGJhY2t3YXJkKSksDQogICAgICAgICBnZW9tPSJwb2ludCIsIGhvcml6b250YWwgPSBUUlVFLCBtYXBwaW5nID0gYWVzX3N0cmluZyhjb2xvcj0iU2lnbiIpKQ0KcDIxDQoNCmdsbS50MSA9cHJlZGljdChvYmplY3Q9bG0xMSwgbmV3ZGF0YT10ZXN0MSwgdHlwZT0icmVzcG9uc2UiKQ0KcHJlc3VsdDE8LSBhcy5mYWN0b3IoaWZlbHNlKGdsbS50MT4wLjUsMSwwKSkNCnRlc3QxJERFQVRIX0VWRU5UMTwtYXMuZmFjdG9yKHRlc3QxJERFQVRIX0VWRU5UKQ0KY20zMTwtIGNvbmZ1c2lvbk1hdHJpeChwcmVzdWx0MSx0ZXN0MSRERUFUSF9FVkVOVDEpDQpkcmF3X2NvbmZ1c2lvbl9tYXRyaXgoY20zMSkNCg0KYGBgDQoNCg0KIyBTdXJ2aXZhbCBBbmFseXNpcw0KDQojIyBTdXJ2aXZhbCBBbmFseXNpcyBCYXNpY3Mgey50YWJzZXQgLnRhYnNldC1mYWRlIC50YWJzZXQtcGlsbHN9DQpQZXJ0YW1hLCBraXRhIGFrYW4gbWVuZ3VqaSBhc3Vtc2kgYmFoYXlhIHByb3BvcnNpb25hbCwgZGFuIG1lbmlsYWkgZml0dXItZml0dXIgc2VjYXJhIGluZGl2aWR1YWwgdW50dWsgbWVsaWhhdCBrZWNvY29rYW5ueWEgZGVuZ2FuIGt1cnZhIHN1cnZpdmFsIGRhbiBSYXNpbyBCYWhheWEgeWFuZyBkaWhvcm1hdGkuIEtlbXVkaWFuIGtpdGEgYWthbiBtZW5nZ2FidW5na2FuIHRpZ2EgZml0dXIgeWFuZyBwYWxpbmcgcGVudGluZyB1bnR1ayBtZW1idWF0IEtlbG9tcG9rIFJpc2lrbyBSZW5kYWggZGFuIFJpc2lrbyBUaW5nZ2kuDQoNCg0KIyMjIERlZmluaXRvbiBhbmQgQ29uY2VwdA0KDQoqKkFuYWxpc2lzIEtlbGFuZ3N1bmdhbiBIaWR1cCoqIG1lbnllbGlkaWtpIHdha3R1IHRlcmhhZGFwIGhhc2lsIGtlamFkaWFuIHlhbmcgbWVsaWJhdGthbiBwZW55ZW5zb3JhbiBhZGFsYWggcGVuZGVrYXRhbiBzdGF0aXN0aWsgeWFuZyBwYWxpbmcgdW11bSBkYWxhbSBsaXRlcmF0dXIgbWVkaXMuIFBlbnRpbmcgdW50dWsgbWVuZ2V0YWh1aSB3YWt0dSBrZWphZGlhbiB1bnR1ayBzZXRpYXAgcGFzaWVuLiBEYWxhbSBrYXN1cyBrYW1pLCB3YWt0dSB0ZXJqYWRpbnlhIGdhZ2FsIGphbnR1bmcuDQoNCg0KLSBGdW5nc2kgS2VsYW5nc3VuZ2FuIEhpZHVwOiAgUHJvYmFiaWxpdGFzIGJlcnRhaGFuIGhpZHVwIGxlYmloIGxhbWEgZGFyaSB0aXRpayB3YWt0dSB0ZXJ0ZW50dQ0KDQokJCBTKHQpID0gUChUID4gdCkgJCQNCg0KLSBGdW5nc2kgSGF6YXJkOiBSaXNpa28gbWVuZ2FsYW1pIGtlamFkaWFuIHBhZGEgaW50ZXJ2YWwgYmVyaWt1dG55YSBkZW5nYW4gc3lhcmF0IGJlcnRhaGFuIGhpbmdnYSBhd2FsIGludGVydmFsDQoNCiQkIGgodCk9XGxpbV97XERlbHRhIHQgXHRvIDAgfSBcZnJhY3sxfXtcRGVsdGEgdH0gUChUIDw9IHQrIFxEZWx0YSB0fFQ+dCkkJA0KDQokJCBIKHQpID0gLWxvZyhTKHQpKSAkJA0KKipDZW5zb3IqKiBLaXRhIG1lbmdndW5ha2FuIGF0dXJhbiBwZW55ZW5zb3JhbiB5YW5nIHRlcGF0LCBwZXJpc3Rpd2EgdGVyc2VidXQgdGVyamFkaSBzZXRlbGFoIHRhbmdnYWwgdGVydGVudHUNCg0KDQoNCioqQ294IE1vZGVsKiogIGFkYWxhaCBtb2RlbCB5YW5nIHRlcmtlbmFsIHVudHVrIG1lbmdla3NwbG9yYXNpIGh1YnVuZ2FuIGFudGFyYSBrZWxhbmdzdW5nYW4gaGlkdXAgcGFzaWVuIGRhbiBiZWJlcmFwYSB2YXJpYWJlbCBwZW5qZWxhcy4gTW9kZWwgaW5pIG1lbXBlcmtpcmFrYW4gYmFoYXlhIChyaXNpa28pIGRhcmkga2VqYWRpYW4geWFuZyBtZW5hcmlrIGJhZ2kgaW5kaXZpZHUsIGRlbmdhbiBtZW1wZXJ0aW1iYW5na2FuIHZhcmlhYmVsIHByb2dub3N0aWsgbWVyZWthLiANCg0KJCRoX2kodCk9aF8wKHQpIGVee1xiZXRhXzEqeDErIFxiZXRhXzIqeDJ9ICQkDQoNCg0KDQojIyMgU3Vydml2YWwgZnVuY3Rpb24gYW5kIGl0cyBSZWxhdGlvbnMNCg0KSWYgd2Uga25vdyBvbmUgb2YgdGhlIGZ1bmN0aW9uIFModCksIGYodCksICRcbGFtYmRhICh0KSQgLCAkXExhbWJkYSh0KSQsIHdlIGNhbiBjb21wdXRlIHRoZSByZXN0IHRocmVlIGJ5IEZUQy4NCg0KLSBTdXJ2aXZvciBmdW5jdGlvbiBTKHQpDQogICQkUyh0KT1QcihUIFxnZXEgdCk9IFxpbnRfdF5caW5mdHkgZih1KWR1JCQNCiAgDQotIFRoZSBkZW5zaXR5IGZ1bmN0aW9uIGYodCkNCiQkIGYodCk9XGxpbV97XERlbHRhIHQgXHRvIDAgfSBcZnJhY3sxfXtcRGVsdGEgdH0gUHIodCBcbGVxIFQgXGxlcSB0KyBcRGVsdGEgdCkkJA0KQnkgRlRDLCBmdW5kYW1lbnRhbCBjYWxjdWx1cyBwYXJ0Miwgd2UgaGF2ZSAkRih0KT1QcihUPHQpJCwgd2hpY2ggbGVhZHMgdG8gJFModCk9MS1GKHQpJA0KDQotIFRoZSBjdW11bGF0aXZlIGhhemFyZCBmdW5jdGlvbiAkXExhbWJkYSh0KSQgb3IgSCh0KSAsIHdpdGggdGhlIGhlbHAgb2YgRlRDLCB3ZSBoYXZlICRTKHQpPWVeey1cTGFtYmRhKHQpfT1lXnstSCh0KX0kDQogICAkJFxMYW1iZGEodCkgPSBIKHQpPSBcaW50XzBedCBcbGFtYmRhKHUpZHUgPSBoKHUpZHUkJA0KLSBUaGUgaGF6YXJkIGZ1bmN0aW9uICRcbGFtYmRhKHQpJCBvciBoKHQpDQokJFxsYW1iZGEodCkgPSBoKHQpID1cZnJhY3tmKHQpfXtTKHQpfT0gLVxmcmFje2R9e2R0fVtsb2dTKHQpXSQkDQoNCkZ1bmdzaSBzdXJ2aXZvciBTKHQpIG1lbnVydW4gc2VpcmluZyB3YWt0dSwgc2VtZW50YXJhIEgodCkgbWVuaW5na2F0IHNlaXJpbmcgd2FrdHUuIChwcm9iYWJpbGl0YXMgYmVydGFoYW4gaGlkdXAgc2VtYWtpbiBrZWNpbCBzZXBhbmphbmcgd2FrdHUsIHNlbWVudGFyYSByaXNpa28ga2VnYWdhbGFuIG1lbmluZ2thdCBzZWlyaW5nIHdha3R1KQ0KDQoNCg0KIyMgQXNzZXNzaW5nIFByb3BvcnRpb25hbCBIYXphcmQNCg0KS2l0YSBha2FuIG1lbmdndW5ha2FuIGZ1bmdzaSBDb3guenBoIHVudHVrIG1lbmd1amkgYXN1bXNpIFByb3BvcnRpb25hbCBIYXphcmQsIGppa2EgYXN1bXNpIFNETSBkaWxhbmdnYXIsIGtpdGEgYWthbiBtZW5nZ3VuYWthbiBhbmFsaXNpcyBzdXJ2aXZhbCByYXRhLXJhdGEgdGVyYmF0YXMgdW50dWsgcGVueWVsaWRpa2FuIGxlYmloIGxhbmp1dC4gRGFyaSBnYW1iYXItZ2FtYmFyIHRlcnNlYnV0LCBraXRhIGRhcGF0IG1lbGloYXQgYmFod2EgZGF0YSBraXRhIG1lbWVudWhpIGtvbmRpc2kgUHJvcG9ydGlvbmFsLg0KIA0KIA0KMS4gTmlsYWkgcC12YWx1ZSB5YW5nIHNpZ25pZmlrYW4gbWVuZ2luZGlrYXNpa2FuIGFzdW1zaSBwcm9wb3JzaW9uYWwgaGF6YXJkIGRpbGFuZ2dhcg0KDQoNCjIuIFBsb3QgcmVzaWR1YWwgU2Nob2VmZWxkIChnYXJpcyBrZW1pcmluZ2FuIG5vbCkNCg0KYGBge3J9DQptdl9maXQgPC0gY294cGgoU3Vydih0aW1lLERFQVRIX0VWRU5UKSB+IGVmcmFjdGlvbisgYWdlZ3AgKyBzY3JlYXQgK3NvZGl1bWMsIGRhdGE9aGVhcnQpDQpjY294PC0gY294LnpwaChtdl9maXQpDQpwcmludChjY294KQ0KDQpvcHRpb25zKHJlcHIucGxvdC53aWR0aD0xMCwgcmVwci5wbG90LmhlaWdodD00MCkNCmdnY294enBoKGNjb3gpDQpgYGANCg0KIyMgSGF6YXJkIFJhdGlvIHsudGFic2V0IC50YWJzZXQtZmFkZSAudGFic2V0LXBpbGxzfQ0KDQpSYXNpbyBCYWhheWEgbWVudW5qdWtrYW4gcGVyYmVkYWFuIGtlbGFuZ3N1bmdhbiBoaWR1cCB5YW5nIGt1YXQgYW50YXJhIGtlbG9tcG9rLg0KDQoqKkhhemFyZCBSYXRpbyoqIDogUGVyYmFuZGluZ2FuIGFudGFyYSBwcm9iYWJpbGl0YXMga2VqYWRpYW4gcGFkYSBrZWxvbXBvayBwZW5nb2JhdGFuLCBkaWJhbmRpbmdrYW4gZGVuZ2FuIHByb2JhYmlsaXRhcyBrZWphZGlhbiBwYWRhIGtlbG9tcG9rIGtvbnRyb2wuIFJhc2lvIGluaSBkaWd1bmFrYW4gdW50dWsgbWVsaWhhdCBhcGFrYWggcGFzaWVuIHlhbmcgbWVuZXJpbWEgcGVuZ29iYXRhbiBiZXJrZW1iYW5nIGxlYmloIGNlcGF0IChsZWJpaCBsYW1iYXQpIGRpYmFuZGluZ2thbiBkZW5nYW4gcGFzaWVuIHlhbmcgdGlkYWsgbWVuZXJpbWEgcGVuZ29iYXRhbi4NCg0KJCQgXGxhbWJkYSAgKHRfaVgpPSAgXGxhbWJkYV8wKHQpZXhwKFxiZXRhIFgpICAkJCANCg0KJCQgbG9nXCBvZiBcIEhhemFyZCA9IGxvZyhhKSArYjF4MS4uLmJreGskJA0KDQpIUj0xOiBUaWRhayBhZGEgcGVyYmVkYWFuIGFudGFyYSBrZWxvbXBvayBwZXJsYWt1YW4gZGFuIGtlbG9tcG9rIGtvbnRyb2wNCg0KDQpIUjwxOiBQcm9iYWJpbGl0YXMga2VqYWRpYW4gcGFkYSBrZWxvbXBvayBwZXJsYWt1YW4gbGViaWgga2VjaWwgZGFyaSBrZWxvbXBvayBrb250cm9sDQoNCkhSPjE6IFByb2JhYmlsaXRhcyBrZWphZGlhbiBwYWRhIGtlbG9tcG9rIHBlcmxha3VhbiBsZWJpaCBiZXNhciBkYXJpIGtlbG9tcG9rIGtvbnRyb2wNCg0KDQojIyMgSGF6YXJkIFJhdGlvIGZvciBJbXBvcnRhbnQgVmFyaWFibGUNCg0KS2l0YSBkYXBhdCBtZWxpaGF0IEVqZWN0aW9uIGZyYWN0aW9uLCBzZXJ1bSBjcmVhdGluaW5lLCBzb2RpdW0gY3JlYXRpbmluZSBrZWxvbXBvayBub3JtYWwgbWVtaWxpa2kgcHJvYmFiaWxpdGFzIHlhbmcgbGViaWggcmVuZGFoIHVudHVrIG1lbmdhbGFtaSBrZWphZGlhbiB0ZXJzZWJ1dCwgc2VkYW5na2FuIGtlbG9tcG9rIHVzaWEgeWFuZyBsZWJpaCB0dWEgbWVtaWxpa2kgcHJvYmFiaWxpdGFzIHlhbmcgbGViaWggdGluZ2dpIHVudHVrIG1lbmdhbGFtaSBrZWphZGlhbiBnYWdhbCBqYW50dW5nLg0KYGBge3IsIHdhcm5pbmc9RkFMU0V9DQpnZ2ZvcmVzdChtdl9maXQpDQpgYGANCg0KIyMjIEhhemFyZCBSYXRpbyBmb3Igb3RoZXIgdmFyaWFibGVzDQpHcmFmaWsgeWFuZyBkaXNhamlrYW4gVGVrYW5hbiBkYXJhaCB0aW5nZ2ksIHBlbnlha2l0IGFuZW1pYSwganVtbGFoIHRyb21ib3NpdCBkYW4gQ1BLIG1lbWlsaWtpIHRpbmdrYXQgeWFuZyBjdWt1cCBzaWduaWZpa2FuIGRhbGFtIHJhc2lvIGJhaGF5YS4NCg0KU2VkYW5na2FuIHlhbmcgbWVuZ2VqdXRrYW4gc2F5YSwgTWVyb2tvayB0aWRhayBtZW1idWF0IHBlcmJlZGFhbi4NCg0KDQpgYGB7ciwgd2FybmluZz1GQUxTRX0NCm1vIDwtIGNveHBoKFN1cnYodGltZSxERUFUSF9FVkVOVCkgfnNleGMgK2RpYSAraGJwICtzbW9rZSArYW5hZW1pYWMrIHBsYXRjK2NwaywgZGF0YT1oZWFydCkNCmdnZm9yZXN0KG1vKQ0KYGBgDQoNCiMjIEtNIEN1cnZlDQoNCkt1cnZhIEthcGxhbiBNZWllciBhZGFsYWggc2VidWFoIGVzdGltYXRvciB5YW5nIGRpZ3VuYWthbiB1bnR1ayBtZW5nZXN0aW1hc2kgZnVuZ3NpIHN1cnZpdmFsIG5vbiBwYXJhbWV0cmlrIChMb2cgcmFuayB0ZXN0KS4gS3VydmEgS2FwbGFuIE1laWVyIGFkYWxhaCByZXByZXNlbnRhc2kgdmlzdWFsIGRhcmkgZnVuZ3NpIGluaSB5YW5nIG1lbnVuanVra2FuIHByb2JhYmlsaXRhcyBzdWF0dSBwZXJpc3Rpd2EgcGFkYSBpbnRlcnZhbCB3YWt0dSB0ZXJ0ZW50dS4gVGlkYWsgbWVtZXJsdWthbiBhc3Vtc2kgbWVuZ2VuYWkgZGlzdHJpYnVzaSBkYXRhIHlhbmcgbWVuZGFzYXJpbnlhLg0KDQojIyMgRWplY3Rpb24gRnJhY3Rpb24sIFNlcnVtIENyZWF0aW5pbmUgLCBBZ2UgR3JvdXAgLCBTZXJ1bSBTb2RpdW0NCg0KUGxvdCBLTSBtZW51bmp1a2thbiBrdXJ2YSBrZWxhbmdzdW5nYW4gaGlkdXAgeWFuZyBkaXBpc2Foa2FuIHVudHVrIGtlbG9tcG9rIHlhbmcgZGliYW5kaW5na2FuIGRlbmdhbiBtZW1wZXJoYXRpa2FuIGZpdHVyLWZpdHVybnlhOiBFamVjdGlvbiBGcmFjdGlvbiwgU2VydW0gQ3JlYXRpbmluZSwgQWdlIEdyb3VwLCBhbmQgU2VydW0gU29kaXVtIA0KDQpgYGB7cn0NCmZpdF9lZjwtc3VydmZpdChTdXJ2KHRpbWUsREVBVEhfRVZFTlQpfmhlYXJ0JGVmcmFjdGlvbiwgZGF0YT1oZWFydCkNCmZpdF9zYzwtc3VydmZpdChTdXJ2KHRpbWUsREVBVEhfRVZFTlQpfnNjcmVhdCwgZGF0YT1oZWFydCkNCmZpdF9hZ2U8LXN1cnZmaXQoU3Vydih0aW1lLERFQVRIX0VWRU5UKX5hZ2VncCwgZGF0YT1oZWFydCkNCmZpdF9zZDwtc3VydmZpdChTdXJ2KHRpbWUsREVBVEhfRVZFTlQpfnNvZGl1bWMsIGRhdGE9aGVhcnQpDQoNCnNwbG90czwtIGxpc3QoKQ0Kc3Bsb3RzW1sxXV08LWdnc3VydnBsb3QoZml0X2VmLGRhdGE9aGVhcnQgLHhsYWI9IkRheXMiLCBnZ3RoZW1lPXRoZW1lX21pbmltYWwoKSkNCnNwbG90c1tbMl1dPC1nZ3N1cnZwbG90KGZpdF9zYyxkYXRhPWhlYXJ0LCB4bGFiPSJEYXlzIiwgZ2d0aGVtZT10aGVtZV9taW5pbWFsKCkpDQpzcGxvdHNbWzNdXTwtZ2dzdXJ2cGxvdChmaXRfYWdlLGRhdGE9aGVhcnQseGxhYj0iRGF5cyIsIGdndGhlbWU9dGhlbWVfbWluaW1hbCgpKQ0Kc3Bsb3RzW1s0XV08LWdnc3VydnBsb3QoZml0X3NkLGRhdGE9aGVhcnQseGxhYj0iRGF5cyIsIGdndGhlbWU9dGhlbWVfbWluaW1hbCgpKQ0KDQphcnJhbmdlX2dnc3VydnBsb3RzKHNwbG90cywgcHJpbnQ9VFJVRSwgbmNvbD0yLCBucm93PTIpDQpgYGANCg0KIyMjIEZpbmFsIFN1cnZpdmFsIEFuYWx5c2lzIE1vZGVsIA0KDQogVGVudHVrYW4gS2Vsb21wb2sgUmlzaWtvOg0KIA0KICoqUmlzaWtvIFJlbmRhaCoqOiBrcmVhdGluaW4gc2VydW0gbm9ybWFsICsgdXNpYSA8NjUgKyBmcmFrc2kgZWpla3NpIG5vcm1hbA0KIA0KICoqUmlzaWtvIFRpbmdnaSoqOiBrb21iaW5hc2kgaXN0aXJhaGF0DQoNCmBgYHtyfQ0KaGVhcnQkcmlza2dwIDwtIGlmZWxzZShoZWFydCRhZ2VncD09IkFnZSA8NjUiICYgaGVhcnQkZWZyYWN0aW9uPT0iRWplY3Rpb24gTm9ybWFsIiAmIGhlYXJ0JHNvZGl1bWM9PSJTZXJ1bSBTb2RpdW0gTm9ybWFsIiwgIlJpc2sgTG93IiwgIlJpc2sgSGlnaCIpDQpmaXQ8LXN1cnZmaXQoU3Vydih0aW1lLERFQVRIX0VWRU5UKX5yaXNrZ3AsIGRhdGE9aGVhcnQpDQprbTwtZ2dzdXJ2cGxvdChmaXQsZGF0YT1oZWFydCwgcmlzay50YWJsZT1UUlVFLCBsZWdlbmQ9Im5vbmUiLCBicmVhay50aW1lLmJ5PTMwLCBzaXplPTAuMSx0YWJsZXMuaGVpZ2h0PTAuMywgeGxhYj0iRGF5cyIpDQprbQ0KYGBgDQoNCmBgYHtyfQ0KI2xvZyByYW5rIHAgdmFsdWUgZm9yIGdyb3Vwcw0Kc3VydmRpZmYoU3Vydih0aW1lLCBERUFUSF9FVkVOVCkgfiByaXNrZ3AsIGRhdGE9aGVhcnQpDQpgYGANCg0KIyMjIENveCBQcm9wb3J0aW9uIE1vZGVsIGFuZCBIYXphcmQgUmF0aW8NCg0KVGVyYWtoaXIsIGtpdGEgZGFwYXQgbWVsaWhhdCAqcCB2YWx1ZSogZGFyaSBtb2RlbCBDb3gga29uc2lzdGVuIGRlbmdhbiBoYXNpbCB0ZXJzZWJ1dC4gDQoNCmBgYHtyLCB3YXJuaW5nPUZBTFNFfQ0KY294cGgoU3Vydih0aW1lLERFQVRIX0VWRU5UKSB+IHJpc2tncCwgZGF0YT1oZWFydCkgJT4lDQogIGd0c3VtbWFyeTo6dGJsX3JlZ3Jlc3Npb24oZXhwPVRSVUUpDQpgYGANCg0KIyBTdW1tYXJ5DQoNCkRhcmkgcGVuZXJhcGFuIGJlcmJhZ2FpIG1vZGVsIE1hY2hpbmUgTGVhcm5pbmcsIGthbWkgbWVuY2FwYWkgaGFzaWwgeWFuZyBzYW1hLCBiYWh3YSBTZXJ1bSBTb2RpdW0sIFNlcnVtIENyZWF0aW5pbmUsIEVqZWN0aW9uIEZyYWN0aW9uLCBhbmQgQWdlIEdyb3VwIGFkYWxhaCBmaXR1ciB5YW5nIHBhbGluZyBwZW50aW5nIGRhbGFtIFBlbnlha2l0IEphbnR1bmcuIEFuYWxpc2lzIGtlbGFuZ3N1bmdhbiBoaWR1cCBkYW4ga3VydmEgS2FwbGFuIE1laWVyIG1lbXZhbGlkYXNpIHRlbXVhbiBrYW1pLiBPbGVoIGthcmVuYSBpdHUsIGthbWkgZGFwYXQgbWVtYmVyaSB0YWh1IG1hc3lhcmFrYXQgamlrYSBwYXNpZW4gbWVtaWxpa2kgbWFzYWxhaCBqYW50dW5nIGtyb25pcywgbWVyZWthIGRhcGF0IHNlY2FyYSBiZXJrYWxhIG1lbWFudGF1IEtyZWF0aW5pbiBTZXJ1bSwgTmF0cml1bSBTZXJ1bSwgZGFuIEZyYWtzaSBFamVrc2kgbWVyZWthIHNldGVsYWggYmVyYWRhIGRpIGF0YXMgNjUuDQoNCg0KIyBSZWZlcmVuY2VzIDoNClsxXSBodHRwczovL3N0YWNrb3ZlcmZsb3cuY29tL3F1ZXN0aW9ucy8yMzg5MTE0MC9yLWhvdy10by12aXN1YWxpemUtY29uZnVzaW9uLW1hdHJpeC11c2luZy10aGUtY2FyZXQtcGFja2FnZS80Mjk0MDU1Mw0KDQpbMl0gaHR0cHM6Ly9zdGFja292ZXJmbG93LmNvbS9xdWVzdGlvbnMvMjM4OTExNDAvci1ob3ctdG8tdmlzdWFsaXplLWNvbmZ1c2lvbi1tYXRyaXgtdXNpbmctdGhlLWNhcmV0LXBhY2thZ2UvNDI5NDA1NTMNCg0KWzNdIGh0dHBzOi8vd3d3Lm1heW9jbGluaWMub3JnL3Rlc3RzLXByb2NlZHVyZXMvZWtnL2V4cGVydC1hbnN3ZXJzL2VqZWN0aW9uLWZyYWN0aW9uL2ZhcS0yMDA1ODI4Ng0KDQpbNF0gaHR0cHM6Ly93d3cubWF5b2NsaW5pYy5vcmcvdGVzdHMtcHJvY2VkdXJlcy9jcmVhdGluaW5lLXRlc3QvYWJvdXQvcGFjLTIwMzg0NjQ2DQoNCls1XSBodHRwczovL3d3dy5ob3BraW5zbWVkaWNpbmUub3JnL2hlYWx0aC9jb25kaXRpb25zLWFuZC1kaXNlYXNlcy93aGF0LWFyZS1wbGF0ZWxldHMtYW5kLXdoeS1hcmUtdGhleS1pbXBvcnRhbnQNCg0KWzZdIGh0dHBzOi8vd3d3Lm1heW9jbGluaWMub3JnL2Rpc2Vhc2VzLWNvbmRpdGlvbnMvaHlwb25hdHJlbWlhL3N5bXB0b21zLWNhdXNlcy9zeWMtMjAzNzM3MTENCg0KWzddIGh0dHBzOi8vd3d3Lm1vdW50c2luYWkub3JnL2hlYWx0aC1saWJyYXJ5L3Rlc3RzL2NyZWF0aW5lLXBob3NwaG9raW5hc2UtdGVzdA0KDQpbOF0gaHR0cHM6Ly93d3cua2FnZ2xlLmNvbS9zbm93cGVhOC9oZWFydC1mYWlsdXJlLWVkYS1wcmVkaWN0aW9uLXdpdGgtci05MS01LWFjYw0KDQpbOV0gaHR0cHM6Ly9wdWJtZWQubmNiaS5ubG0ubmloLmdvdi8zMzkxOTIzNy8NCg0KWzEwXSBTY0QuIFBhdWwgQ2F0YWxhbm8gTGVjdHVyZSBub3Rlcw0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KWzExXSDmppvlrZDkvJrlj5HlhYkgbG9sbGlwb3AgcGxvdCBpbnNwaXJhdGlvbg0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIA0KDQo=