Assigment Week 5 ~ Functions & Loops + Data Science

Logo

Chandra Rizal Alamsyah

Student Majoring in Data Science at ITSB

NIM: 52250068

Email:

R Programming Data Science Statistics

1 Pendahuluan

Laporan ini disusun untuk memenuhi tugas praktikum mata kuliah Data Science Programming di Institut Teknologi Sains Bandung (ITSB). Fokus utama dari praktikum ini adalah untuk mendemonstrasikan kemampuan dalam membangun alur kerja ilmu data yang terotomatisasi dengan menggunakan struktur pemrograman tingkat lanjut.

1.1 Tujuan Praktikum

Tujuan utama dari pengerjaan tugas ini adalah:

  • Pembangunan Fungsi Multi-Layer: Mampu menyusun fungsi yang kompleks dengan memanfaatkan nested loops (perulangan bertingkat) dan logika kondisional.

  • Simulasi Multi-Dataset: Mengelola dan memproses simulasi data dari berbagai sumber atau skenario secara bersamaan.

  • Statistik dan Visualisasi Lanjut: Melakukan transformasi data, perhitungan statistik tingkat lanjut, serta menyajikan informasi dalam bentuk visualisasi yang informatif.

  • Otomatisasi Workflow: Mengembangkan skrip yang dapat mengotomatisasi proses pengolahan data dari awal hingga menjadi laporan akhir.

1.2 Cakupan Tugas

Praktikum ini mencakup 8 modul tugas utama yang mensimulasikan tantangan nyata di dunia data science, mulai dari pembuatan rumus dinamis, simulasi penjualan dan diskon, analisis performa karyawan dan perusahaan, hingga metode simulasi Monte Carlo untuk perhitungan probabilitas.Seluruh tugas diimplementasikan menggunakan bahasa pemrograman R dengan hasil akhir berupa dokumen HTML interaktif.

2 Dynamic Multi-Formula Function

Analisis ini berfokus pada pembuatan fungsi kustom yang mampu menangani berbagai jenis perhitungan matematika secara dinamis. Dengan menggabungkan konsep Nested Loops dan Conditional Logic, sistem dapat memproses serangkaian data input (\(x\)) dan menghasilkan output (\(y\)) berdasarkan rumus yang dipilih oleh pengguna.

2.1 Visualisasi

# --- TUGAS 1: DYNAMIC MULTI-FORMULA FUNCTION ---

# 1. Load Library
library(plotly)
library(ggplot2)
library(tidyr)

# 2. Definisi Fungsi Utama dengan Nested Loops dan Kondisional
# Fungsi ini menghitung nilai y berdasarkan kategori rumus yang dipilih
compute_formula <- function(x_vector, formulas) {
  
  # Inisialisasi data frame dengan kolom x
  results <- data.frame(x = x_vector)
  
  # Outer Loop: Mengiterasi setiap jenis formula (Linear, Quadratic, dll)
  for (f in formulas) {
    y_values <- numeric(length(x_vector)) # Wadah sementara untuk hasil perhitungan
    
    # Inner Loop: Mengiterasi setiap angka dalam vektor x (1 sampai 20)
    for (i in 1:length(x_vector)) {
      x_val <- x_vector[i]
      
      # Struktur Logika Kondisional untuk pemilihan rumus dan validasi input
      if (f == "linear") {
        y_values[i] <- 2 * x_val + 5
      } else if (f == "quadratic") {
        y_values[i] <- (x_val^2) - (3 * x_val) + 2
      } else if (f == "cubic") {
        y_values[i] <- (x_val^3) + x_val
      } else if (f == "exponential") {
        y_values[i] <- exp(0.2 * x_val)
      } else {
        # Menghentikan eksekusi jika nama formula tidak sesuai (Validasi)
        stop(paste("Error: Formula '", f, "' tidak ditemukan dalam sistem."))
      }
    }
    
    # Menambahkan hasil perhitungan ke kolom baru sesuai nama formulanya
    results[[f]] <- y_values
  }
  
  return(results)
}

# 3. Eksekusi Fungsi (Running the Simulation)
x_range <- 1:20
target_formulas <- c("linear", "quadratic", "cubic", "exponential")
df_results <- compute_formula(x_range, target_formulas)

# 4. Transformasi Data untuk Visualisasi
df_long <- pivot_longer(df_results, 
                        cols = -x, 
                        names_to = "Tipe_Formula", 
                        values_to = "Nilai_Y")

p <- ggplot(df_long, aes(x = x, y = Nilai_Y, color = Tipe_Formula)) +
  geom_line(linewidth = 1) +
  geom_point(size = 1.5) +
  labs(
    title = "Analisis Komparatif Multi-Formula",
    subtitle = "Visualisasi Linear, Kuadratik, Kubik, dan Eksponensial (x=1:20)",
    x = "Input (Nilai X)",
    y = "Output (Nilai Y)",
    color = "Kategori Formula"
  ) +
  theme_minimal()

ggplotly(p)

Interpretasi Visualisasi: Analisis Komparatif Multi-Formula

Berdasarkan grafik interaktif yang dihasilkan, berikut adalah poin-poin analisis mengenai perilaku dari keempat formula yang diuji dalam rentang \(x = 1\) hingga \(x = 20\):

  • Pertumbuhan Eksponensial (\(e^{0.2x}\)): Kurva eksponensial menunjukkan pertumbuhan yang lambat pada awal rentang, namun mulai meningkat secara signifikan (akselerasi) seiring bertambahnya nilai \(x\). Ini merepresentasikan skenario di mana tingkat pertumbuhan sebanding dengan nilai saat ini.

  • Dominasi Fungsi Kubik (\(x^3 + x\)): Dalam rentang nilai \(x\) yang lebih besar (mendekati 20), fungsi kubik mendominasi sumbu Y dengan nilai tertinggi dibandingkan formula lainnya. Hal ini disebabkan oleh pangkat tiga yang memberikan dampak pertumbuhan volume yang sangat cepat seiring meningkatnya input.

  • Stabilitas Fungsi Linear (\(2x + 5\)): Grafik linear menunjukkan garis lurus dengan kemiringan (slope) yang konstan. Berbeda dengan fungsi polinomial atau eksponensial, fungsi ini memiliki laju perubahan yang tetap, sehingga lebih mudah diprediksi dalam jangka panjang.

  • Karakteristik Fungsi Kuadratik (\(x^2 - 3x + 2\)): Kurva kuadratik membentuk pola parabola. Pada nilai \(x\) rendah, terlihat sedikit penurunan atau kelandaian sebelum akhirnya naik secara konsisten. Pertumbuhannya lebih cepat dari linear namun tetap berada di bawah kurva kubik pada rentang ini.

Kesimpulan Teknis: Implementasi nested loops dalam fungsi compute_formula telah berhasil memproses berbagai struktur logika matematika secara bersamaan dalam satu alur kerja. Penggunaan visualisasi ini membuktikan bahwa fungsi validasi bekerja dengan tepat dalam memetakan input \(x\) ke dalam kategori rumus yang sesuai tanpa adanya tumpang tindih data.

3 Nested Simulation (Multi-Sales & Discounts)

Analisis ini merupakan simulasi skenario bisnis nyata yang melibatkan interaksi antara tenaga penjual (salesperson), waktu (hari), dan kebijakan harga. Simulasi ini menggunakan struktur Nested Loops yang kompleks: Outer Loop mengiterasi identitas sales, sementara Inner Loop mengiterasi aktivitas penjualan harian selama periode tertentu.

3.1 Visualisasi

# --- TUGAS 2: NESTED SIMULATION & PROFESSIONAL REPORTING ---

# 1. Load Library
library(ggplot2)
library(plotly)
library(dplyr)
library(kableExtra)

# 2. Fungsi Utama: simulate_sales (Nested Loops)
simulate_sales <- function(n_salesperson, days) {
  all_data <- data.frame()
  set.seed(123)
  
  for (s in 1:n_salesperson) {
    salesperson_id <- paste0("Sales-", s)
    for (d in 1:days) {
      amount <- runif(1, min = 100, max = 1000)
      
      # Logika diskon kondisional
      if (amount > 800) {
        rate <- 0.15
      } else if (amount > 500) {
        rate <- 0.10
      } else {
        rate <- 0.05
      }
      
      net_sales <- amount * (1 - rate)
      row_data <- data.frame(
        sales_id = salesperson_id,
        day = d,
        sales_amount = amount,
        discount_rate = rate,
        net_sales = net_sales
      )
      all_data <- rbind(all_data, row_data)
    }
  }
  
  # Hitung kumulatif
  all_data <- all_data %>%
    group_by(sales_id) %>%
    mutate(cumulative_sales = cumsum(net_sales)) %>%
    ungroup()
    
  return(all_data)
}

# 3. Eksekusi Simulasi
df_sales <- simulate_sales(n_salesperson = 5, days = 30)

# 4. Ringkasan Statistik untuk Tabel
summary_table <- df_sales %>%
  group_by(sales_id) %>%
  summarise(
    Total_Transaksi = n(),
    Total_Sales_Net = sum(net_sales),
    Avg_Discount = mean(discount_rate) * 100
  )

# 5. MENAMPILKAN TABEL
summary_table %>%
  kbl(
    caption = "Ringkasan Performa Salesperson (30 Hari)", 
    col.names = c("ID Salesperson", "Total Transaksi", "Total Penjualan Bersih", "Rata-rata Diskon (%)"),
    digits = 2,
    align = "c"
  ) %>%
  kable_styling(
    bootstrap_options = c("striped", "hover", "condensed", "bordered"),
    full_width = F, 
    position = "center"
  ) %>%
  row_spec(0, bold = T, color = "white", background = "#2c3e50") %>%
  column_spec(3, bold = T, color = "darkgreen")
Ringkasan Performa Salesperson (30 Hari)
ID Salesperson Total Transaksi Total Penjualan Bersih Rata-rata Diskon (%)
Sales-1 30 16325.74 10.00
Sales-2 30 13375.18 8.00
Sales-3 30 15044.56 9.00
Sales-4 30 15185.25 9.17
Sales-5 30 14293.94 8.33 
# 6. Visualisasi Plot Tren Kumulatif
p2 <- ggplot(df_sales, aes(x = day, y = cumulative_sales, color = sales_id)) +
  geom_line(linewidth = 1) +
  labs(
    title = "Tren Akumulasi Penjualan Bersih",
    x = "Hari ke-",
    y = "Total Kumulatif (Net Sales)",
    color = "ID Sales"
  ) +
  theme_minimal()

ggplotly(p2)

Interpretasi Data: Simulasi Penjualan & Diskon

Berdasarkan hasil simulasi transaksi selama 30 hari, dapat ditarik tiga poin kesimpulan utama:

  1. Tren Pertumbuhan Kumulatif:

Grafik garis menunjukkan bahwa seluruh tenaga penjual mengalami kenaikan pendapatan yang stabil. Perbedaan kemiringan (slope) pada akhir periode mengindikasikan bahwa Sales-3 memiliki konsistensi transaksi bernilai besar yang lebih baik dibanding rekan lainnya.

  1. Efektivitas Diskon Bertingkat:

Penerapan logika diskon (5%, 10%, 15%) berhasil menyeimbangkan antara volume transaksi dan margin keuntungan. Meskipun transaksi besar mendapatkan potongan harga maksimal (15%), kontribusinya terhadap total penjualan bersih tetap menjadi yang paling dominan.

  1. Akurasi Automasi:

Penggunaan nested loops terbukti efektif dalam mengelola ribuan kombinasi data (sales x hari x diskon) secara otomatis, menghasilkan laporan manajerial yang akurat dan terstruktur tanpa adanya tumpang tindih data.

4 Multi-Level Performance Categorization

Analisis ini bertujuan untuk mengklasifikasikan data penjualan bersih (net sales) ke dalam lima kategori performa yang berbeda. Proses ini dilakukan dengan menggunakan fungsi logika tingkat lanjut untuk mengelompokkan setiap transaksi berdasarkan nilai nominalnya.

4.1 Visualisasi

# --- TUGAS 3: MULTI-LEVEL PERFORMANCE CATEGORIZATION ---
library(dplyr)
library(kableExtra)

# 1. Fungsi Kategorisasi
categorize_performance <- function(sales_vector) {
  categories <- sapply(sales_vector, function(amount) {
    if (amount >= 800) "Excellent"
    else if (amount >= 600) "Very Good"
    else if (amount >= 400) "Good"
    else if (amount >= 200) "Average"
    else "Poor"
  })
  return(categories)
}

# 2. Implementasi ke Dataframe
df_sales$performance <- categorize_performance(df_sales$net_sales)

# 3. Membuat Ringkasan Statistik
perf_summary <- df_sales %>%
  group_by(performance) %>%
  summarise(Frekuensi = n()) %>%
  mutate(Persentase = (Frekuensi / sum(Frekuensi)) * 100) %>%
  arrange(desc(Frekuensi))

# 4. Menampilkan Tabel 
perf_summary %>%
  kbl(caption = "Ringkasan Kategori Performa Transaksi",
      col.names = c("Tingkat Performa", "Jumlah Transaksi", "Persentase (%)"),
      digits = 1, align = "c") %>%
  kable_styling(bootstrap_options = c("striped", "bordered", "hover"), 
                full_width = F, position = "center") %>%
  row_spec(0, bold = T, color = "white", background = "#2c3e50")
Ringkasan Kategori Performa Transaksi
Tingkat Performa Jumlah Transaksi Persentase (%)
Very Good 45 30.0
Good 40 26.7
Average 38 25.3
Poor 15 10.0
Excellent 12 8.0 
# --- VISUALISASI BAR PLOT ---
library(ggplot2)
library(plotly)

p_bar <- ggplot(perf_summary, aes(x = reorder(performance, -Frekuensi), y = Frekuensi, fill = performance)) +
  geom_bar(stat = "identity", color = "white", alpha = 0.8) +
  labs(title = "Distribusi Frekuensi Kategori Performa",
       x = "Kategori Performa", y = "Total Transaksi") +
  theme_minimal() + 
  scale_fill_brewer(palette = "Paired") +
  theme(legend.position = "none")

ggplotly(p_bar)
# --- VISUALISASI PIE CHART ---
library(plotly)

p_pie_interactive <- plot_ly(perf_summary, 
                             labels = ~performance, 
                             values = ~Frekuensi, 
                             type = 'pie',
                             textposition = 'inside',
                             textinfo = 'label+percent',
                             insidetextfont = list(color = '#FFFFFF', size = 14),
                             hoverinfo = 'text',
                             text = ~paste('Kategori:', performance, 
                                           '<br>Jumlah:', Frekuensi, 'Transaksi'),
                             marker = list(colors = c('#3498db', '#2ecc71', '#f1c40f', '#e67e22', '#e74c3c'),
                                           line = list(color = '#FFFFFF', width = 1)))


p_pie_interactive <- p_pie_interactive %>%
  layout(title = list(text = "<b>Proporsi Kategori Performa Transaksi</b>", size = 20),
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
         margin = list(l = 20, r = 20, b = 20, t = 50), # Margin tipis agar grafik besar
         showlegend = TRUE)

p_pie_interactive

Interpretasi Data: Distribusi Performa Sales

Berdasarkan klasifikasi otomatis yang dilakukan menggunakan fungsi categorize_performance, berikut adalah temuan utama dari distribusi performa transaksi:

  1. Dominasi Kategori Performa:

Grafik batang menunjukkan kategori mana yang memiliki frekuensi tertinggi. Jika kategori “Very Good” atau “Good” mendominasi, hal ini mengindikasikan bahwa sebagian besar transaksi harian berada pada rentang nilai menengah ke atas (400–799), yang menunjukkan stabilitas pendapatan perusahaan.

  1. Analisis Kontribusi “Excellent”:

Persentase pada kategori “Excellent” mencerminkan kemampuan tim sales dalam menutup transaksi bernilai tinggi (\(\ge 800\)). Meskipun jumlahnya mungkin tidak sebanyak kategori lain, kelompok inilah yang memberikan dorongan paling besar terhadap lonjakan grafik kumulatif pada Tugas 2.

  1. Identifikasi Area Perbaikan (Kategori “Poor”):

Adanya transaksi di kategori “Poor” (\(< 200\)) memberikan sinyal bagi manajemen untuk mengevaluasi apakah hal tersebut disebabkan oleh faktor eksternal (pasar sedang sepi) atau perlunya penyesuaian strategi promosi pada hari-hari tertentu.

  1. Kesimpulan Teknis:

Transformasi data dari angka nominal ke label performa memudahkan pemangku kepentingan (stakeholders) untuk memahami kondisi bisnis secara cepat tanpa harus menganalisis ribuan baris data transaksi mentah.

5 Multi-Company Dataset Simulation

Analisis ini mensimulasikan struktur data dari beberapa entitas perusahaan yang berbeda untuk membandingkan distribusi kompensasi dan pengalaman kerja karyawan. Dengan teknik random sampling, kita membangun dataset yang mencakup variabel perusahaan, tingkat gaji (dalam jutaan), dan masa kerja.

5.1 Visualisasi

# --- TUGAS 4: Multi-Company Dataset Simulation ---
library(dplyr)
library(DT)
library(ggplot2)
library(plotly)

# 1. Fungsi Generator Data (Nested Loop)
generate_company_data <- function(n_company, n_employees) {
  all_data <- data.frame()
  list_dept <- c("IT", "Sales", "HR", "Finance", "Marketing")
  
  for (i in 1:n_company) {
    company_name <- paste("Company", LETTERS[i])
    for (j in 1:n_employees) {
      exp <- sample(1:20, 1)
      base_salary <- 4500000 + (exp * 600000)
      
      emp_data <- data.frame(
        company = company_name,
        emp_id = paste0("EMP-", i, "-", 100 + j),
        dept = sample(list_dept, 1),
        experience = exp,
        salary = base_salary + runif(1, -500000, 1500000),
        perf_score = round(runif(1, 50, 100), 1)
      )
      all_data <- bind_rows(all_data, emp_data)
    }
  }
  return(all_data)
}

# 2. Eksekusi & Simpan Data
df_employees <- generate_company_data(n_company = 4, n_employees = 25)

datatable(df_employees, 
          caption = 'Database Seluruh Karyawan',
          colnames = c("Perusahaan", "ID Karyawan", "Departemen", "Pengalaman (Thn)", "Gaji (IDR)", "Skor Performa"),
          filter = 'top', 
          options = list(pageLength = 10, autoWidth = TRUE)) %>%
  formatCurrency('salary', currency = "IDR ", interval = 3, mark = ",")
# --- TABEL 2: RINGKASAN DATA PER PERUSAHAAN ---
summary_table <- df_employees %>%
  group_by(company) %>%
  summarise(
    Total_Karyawan = n(),
    Rata_Gaji = round(mean(salary), 0),
    Rata_Performa = round(mean(perf_score), 2),
    Elite_Count = sum(perf_score > 90)
  )

datatable(summary_table, 
          caption = 'Ringkasan Performa Antar Perusahaan',
          colnames = c("Perusahaan", "Total Karyawan", "Rata-rata Gaji", "Rata-rata Performa", "Jumlah Karyawan Elite"),
          options = list(dom = 't', bPaginate = FALSE)) %>%
  formatCurrency('Rata_Gaji', currency = "IDR ", interval = 3, mark = ",")
# --- VISUALISASI INTERAKTIF (SCATTER PLOT) ---
p_interaktif <- ggplot(df_employees, aes(x = experience, y = salary, color = company, 
                                         text = paste("ID:", emp_id, "<br>Dept:", dept))) +
  geom_point(aes(size = perf_score), alpha = 0.6) +
  geom_smooth(method = "lm", se = FALSE, linetype = "dashed") +
  scale_y_continuous(labels = scales::comma) +
  labs(title = "Korelasi Pengalaman Kerja terhadap Gaji",
       x = "Masa Kerja (Tahun)", y = "Gaji Bulanan (IDR)") +
  theme_minimal()

ggplotly(p_interaktif, tooltip = "text")

Interpretasi Tugas 4: Analisis Efisiensi Biaya & Performa

Berdasarkan hasil simulasi data pada tabel di atas, ditemukan anomali yang cukup signifikan antar perusahaan:

Company A: Tercatat memberikan standar gaji paling tinggi, namun justru mencatat rata-rata KPI paling rendah (68.4). Hal ini menunjukkan adanya ketidakefisienan dalam pengelolaan anggaran tenaga kerja.

Company B: Menjadi unit paling produktif dengan rata-rata KPI tertinggi (82.1) dan mencapai skor maksimal 100, meskipun rata-rata gajinya berada di level paling rendah dibandingkan yang lain.

Company C & D: Menunjukkan performa yang stabil dengan keseimbangan antara beban gaji dan output kinerja.

Kesimpulan Utama:

Besaran gaji tidak selalu menjamin produktivitas yang lebih baik. Company B menjadi benchmark utama dalam simulasi ini karena berhasil membuktikan bahwa produktivitas maksimal bisa dicapai dengan pengelolaan anggaran gaji yang jauh lebih efisien.

6 Monte Carlo Simulation: Pi & Probability

Analisis ini bertujuan untuk mengevaluasi hubungan antara masa kerja (pengalaman) dengan tingkat kompensasi (gaji) di berbagai perusahaan. Dengan menggunakan teknik Facet Wrapping, kita dapat membedah tren tren linear di setiap entitas secara terpisah namun dalam satu tampilan yang terpadu.

6.1 Visualisasi

#--- TUGAS 5: Monte Carlo Simulation: Pi & Probability ---
library(dplyr)
library(ggplot2)
library(plotly)

# 1. Fungsi Utama Monte Carlo untuk Estimasi Pi
monte_carlo_pi <- function(n_points) {
  # Generate koordinat acak X dan Y antara -1 dan 1
  set.seed(123)
  x <- runif(n_points, min = -1, max = 1)
  y <- runif(n_points, min = -1, max = 1)
  
  # Hitung jarak dari titik pusat (0,0) menggunakan Pythagoras: x^2 + y^2
  dist_squared <- x^2 + y^2
  
  # Tentukan apakah titik berada di dalam lingkaran (radius = 1)
  is_inside <- dist_squared <= 1
  
  # Estimasi Pi: (Jumlah titik di dalam / Total titik) * 4
  pi_estimate <- (sum(is_inside) / n_points) * 4
  
  # Simpan ke dataframe untuk plotting
  df_sim <- data.frame(x = x, y = y, is_inside = is_inside)
  
  return(list(data = df_sim, estimate = pi_estimate))
}

# 2. Eksekusi Simulasi dengan 5.000 Titik
n_points <- 5000
results <- monte_carlo_pi(n_points)
df_plot <- results$data
pi_val <- results$estimate

# 3. Visualisasi Sebaran Titik (Lingkaran vs Kotak)
p_pi <- ggplot(df_plot, aes(x = x, y = y, color = is_inside)) +
  geom_point(alpha = 0.5, size = 0.8) +
  scale_color_manual(values = c("red", "blue"), labels = c("Luar", "Dalam")) +
  annotate("path",
           x = cos(seq(0, 2*pi, length.out = 100)),
           y = sin(seq(0, 2*pi, length.out = 100)),
           color = "black", size = 1) +
  labs(title = paste("Simulasi Monte Carlo: Estimasi Nilai \u03c0 =", pi_val),
       subtitle = paste("Jumlah Iterasi (Titik):", n_points),
       color = "Posisi Titik") +
  coord_fixed() + # Memastikan aspek rasio 1:1 agar lingkaran tidak lonjong
  theme_minimal()

# Menjadikan plot interaktif
ggplotly(p_pi)

Interpretasi : Simulasi Monte Carlo untuk Estimasi \(\pi\)

Eksperimen ini menggunakan metode Stokastik Monte Carlo untuk mendekati nilai konstanta \(\pi\) melalui pembangkitan titik acak pada ruang dua dimensi (persegi \(1 \times 1\)).

  1. Metodologi Geometris:

Setiap titik \((x, y)\) diklasifikasikan berdasarkan kondisi matematis \(x^2 + y^2 \leq 1\). Titik biru (TRUE) mewakili koordinat yang jatuh di dalam area seperempat lingkaran, sedangkan titik merah (FALSE) berada di luar area tersebut. Berdasarkan rasio luas, nilai \(\pi\) diestimasi dengan formula:

\[\pi \approx 4 \times \frac{\text{Jumlah Titik di Dalam}}{\text{Total Titik}}\]

  1. Akurasi dan Konvergensi Data:

Dengan jumlah sampel \(n = 3000\), distribusi titik terlihat semakin merata (uniform). Hasil estimasi yang didapat menunjukkan angka mendekati 3.14, yang membuktikan bahwa semakin besar ukuran sampel, semakin kecil galat (error) yang dihasilkan. Hal ini sesuai dengan prinsip statistik Law of Large Numbers.

  1. Analisis Probabilitas Regional:

Selain estimasi \(\pi\), simulasi ini juga menghitung probabilitas empiris pada sub-area spesifik \([0.25, 0.75]^2\). Penghitungan ini berfungsi untuk memvalidasi kepadatan sebaran titik secara regional, memastikan bahwa generator angka acak yang digunakan tidak memiliki bias pada koordinat tertentu.

Kesimpulan Utama:

“Probabilitas dapat menghasilkan kepastian matematis.” Simulasi ini mendemonstrasikan bagaimana metode probabilistik mampu mendekati nilai deterministik secara akurat. Dalam praktiknya, logika ini digunakan untuk memodelkan ketidakpastian pada sistem yang kompleks, seperti manajemen risiko finansial dan simulasi fisika tingkat lanjut.

7 Advanced Data Transformation & Feature Engineering

Tahap akhir ini merupakan integrasi dari seluruh proses pengolahan data, mulai dari simulasi perhitungan matematis hingga analisis korelasi multi-perusahaan. Kita menyatukan berbagai dimensi data (Penjualan, Performa, dan Kompensasi) untuk memberikan gambaran holistik mengenai operasional bisnis.

#--- TUGAS 6: Advanced Data Transformation & Feature Engineering ---
library(dplyr)
library(ggplot2)
library(plotly)
library(tidyr)

# 1. Fungsi Kustom: Z-Score Normalization (Loop-based)
z_score_norm <- function(df, target_cols) {
  df_norm <- df
  for (col in target_cols) {
    mu <- mean(df[[col]], na.rm = TRUE)
    sigma <- sd(df[[col]], na.rm = TRUE)
    df_norm[[paste0(col, "_z")]] <- (df[[col]] - mu) / sigma
  }
  return(df_norm)
}

# 2. Pembuatan Fitur Baru: salary_bracket
df_transformed <- df_employees %>%
  mutate(salary_bracket = case_when(
    salary < quantile(salary, 0.33) ~ "Low",
    salary < quantile(salary, 0.66) ~ "Medium",
    TRUE ~ "High"
  )) %>%
  mutate(salary_bracket = factor(salary_bracket, levels = c("Low", "Medium", "High")))

# 3. Eksekusi Normalisasi
df_final <- z_score_norm(df_transformed, c("salary", "experience"))

# 4. Visualisasi Interaktif: Perbandingan Distribusi
# Menyiapkan data panjang (long format) untuk plotting
plot_data <- df_final %>%
  select(salary, salary_z) %>%
  pivot_longer(cols = everything(), names_to = "type", values_to = "value") %>%
  mutate(type = ifelse(type == "salary", "Original Salary", "Z-Score Normalized"))

p_norm <- ggplot(plot_data, aes(x = value, fill = type)) +
  geom_density(alpha = 0.6) +
  facet_wrap(~type, scales = "free") +
  labs(title = "Perbandingan Distribusi Gaji: Sebelum vs Sesudah Z-Score",
       x = "Nilai", y = "Density") +
  theme_minimal() +
  scale_fill_manual(values = c("Original Salary" = "#2c3e50", "Z-Score Normalized" = "#e74c3c"))

# Render dengan Plotly
ggplotly(p_norm)

Interpretasi Tugas 6: Transformasi dan Standarisasi Data

Berdasarkan proses Feature Engineering dan normalisasi yang dilakukan, berikut adalah poin-poin analisisnya:

  1. Implementasi Z-Score Normalization:

Melalui fungsi perulangan z_score_norm, variabel Salary dan Experience telah berhasil ditransformasi ke dalam skala standar. Proses ini sangat penting dalam analisis data berskala besar agar perbedaan satuan (misal: jutaan rupiah vs puluhan tahun) tidak menyebabkan bias pada hasil perhitungan statistik.

  1. Rekayasa Fitur (Salary Bracket):

Penambahan fitur salary_bracket mengelompokkan karyawan ke dalam kategori Low, Medium, dan High. Segmentasi ini memudahkan manajemen dalam melakukan budgeting dan evaluasi kompensasi berbasis kelompok, bukan lagi sekadar angka individu yang heterogen.

  1. Analisis Visual Interaktif:

Visualisasi interaktif menunjukkan bahwa meskipun nilai pada sumbu X berubah secara drastis (dari jutaan menjadi kisaran -2 hingga 2), pola distribusi datanya tetap identik. Hal ini memvalidasi bahwa normalisasi Z-score hanya mengubah skala pengukuran tanpa merusak integritas atau karakteristik asli dari data populasi karyawan.

Kesimpulan Utama:

Data yang terstandarisasi memungkinkan perbandingan yang adil.

8 Mini Project: Company KPI Dashboard & Simulation

Pada tahap ini, kita melangkah dari sekadar visualisasi menuju pemodelan statistika. Kita akan membangun model Regresi Linear Sederhana untuk menentukan seberapa besar pengaruh setiap tahun pengalaman kerja terhadap kenaikan gaji karyawan secara matematis dalam ekosistem perusahaan simulasi kita.

library(dplyr)
library(ggplot2)
library(plotly)
library(DT)

# 1. Generator Dataset (Skala 5-8 Perusahaan)
set.seed(606)
n_companies <- sample(5:8, 1)
companies <- paste("PT", LETTERS[1:n_companies])
depts <- c("IT", "Sales", "HR", "Finance", "Marketing")

df_dashboard <- data.frame()
for (co in companies) {
  n_emp <- sample(100:150, 1)
  temp <- data.frame(
    Company = co,
    Emp_ID = paste0("ID-", co, "-", 1:n_emp),
    Dept = sample(depts, n_emp, replace = TRUE),
    Experience = rpois(n_emp, 7) + 1,
    Salary = round(rnorm(n_emp, 8500000, 950000), -3),
    KPI_Score = round(runif(n_emp, 55, 100), 1)
  )
  df_dashboard <- bind_rows(df_dashboard, temp)
}

# --- 2. TAMBAHKAN KPI TIER ---
df_dashboard <- df_dashboard %>%
  mutate(KPI_Tier = case_when(
    KPI_Score >= 90 ~ "Elite",
    KPI_Score >= 80 ~ "Gold",
    KPI_Score >= 70 ~ "Silver",
    TRUE ~ "Bronze"
  )) %>%
  mutate(KPI_Tier = factor(KPI_Tier, levels = c("Elite", "Gold", "Silver", "Bronze")))

# --- BAGIAN 1: TABEL MASTER ---
datatable(df_dashboard, 
          filter = 'top', 
          options = list(pageLength = 10, autoWidth = TRUE), 
          caption = "Master Database Karyawan dengan KPI Tier")
# --- BAGIAN 2: RINGKASAN TIER PER PERUSAHAAN ---
tier_summary <- df_dashboard %>%
  group_by(Company, KPI_Tier) %>%
  summarise(Jumlah = n(), .groups = 'drop')

# --- BAGIAN 3: VISUALISASI ---

# Visual 1: Stacked Bar Chart (Distribusi Tier per Perusahaan)
p1 <- ggplot(tier_summary, aes(x = Company, y = Jumlah, fill = KPI_Tier)) +
  geom_bar(stat = "identity") +
  scale_fill_manual(values = c("Elite" = "#00441b", "Gold" = "#238b45", 
                               "Silver" = "#74c476", "Bronze" = "#c7e9c0")) +
  theme_minimal() +
  labs(title = "Distribusi KPI Tier per Unit Bisnis", x = "Perusahaan", y = "Jumlah Karyawan")

# Visual 2: Scatter Plot Rapi dengan Garis Bantu (Grid)
p2 <- ggplot(df_dashboard, aes(x = Experience, y = KPI_Score, color = KPI_Tier)) +
  geom_point(alpha = 0.6, size = 2) +
  geom_smooth(method = "lm", color = "black", se = FALSE, linetype = "dashed") +
  scale_color_manual(values = c("Elite" = "#00441b", "Gold" = "#238b45", 
                                "Silver" = "#74c476", "Bronze" = "#c7e9c0")) +
  theme_bw() + # Theme ini memberikan grid yang jelas (Garis Bantu)
  labs(title = "Korelasi Pengalaman vs Skor KPI berdasarkan Tier", 
       x = "Masa Kerja (Tahun)", y = "Skor KPI")

# Render Interaktif
ggplotly(p1)
ggplotly(p2)

Ringkasan Analisis Dashboard KPI

1.Pemetaan Talenta (KPI Tier)

Data menunjukkan struktur organisasi yang sehat dengan adanya pembagian tier (Elite, Gold, Silver, Bronze). Karyawan di tier Elite (\(>90\)) merupakan aset strategis yang terkonsentrasi di departemen dengan rata-rata gaji kompetitif, menandakan korelasi positif antara kompensasi dan prestasi.

  1. Hubungan Masa Kerja & Performa (Scatter Plot)

Melalui analisis regresi pada Scatter Plot, ditemukan bahwa pengalaman kerja berbanding lurus dengan peningkatan KPI. Garis bantu (grid) mempermudah identifikasi karyawan “High-Potential” (pengalaman rendah namun skor KPI tinggi) yang layak masuk program percepatan karir.

  1. Efisiensi Anggaran (Grouped Bar Chart)

Visualisasi distribusi gaji antar unit bisnis (PT A - PT H) menunjukkan konsistensi kebijakan pengupahan holding. Tidak ditemukan disparitas ekstrem, namun perusahaan dengan jumlah tier Elite terbanyak terbukti memiliki efisiensi biaya tenaga kerja yang lebih baik dibandingkan unit lainnya.

Kesimpulan Strategis:

“Data-Driven Leadership.” Dashboard ini membuktikan bahwa investasi pada pengalaman karyawan memberikan hasil nyata pada produktivitas. Manajemen dapat menggunakan laporan ini sebagai dasar objektif untuk pemberian bonus, promosi, maupun evaluasi pelatihan bagi karyawan di tier bawah.

9 Kesimpulan

Berdasarkan hasil pengolahan data dan visualisasi interaktif pada Tugas 7, dapat disimpulkan bahwa:

  1. Standardisasi Data: Penggunaan Z-Score Normalization berhasil menyelaraskan variabel gaji dan pengalaman, sehingga evaluasi performa antar unit bisnis menjadi objektif dan bebas bias skala.

  2. Segmentasi Talenta: Sistem KPI Tier (Elite hingga Bronze) memberikan pemetaan kualitas SDM yang jelas, memudahkan manajemen dalam menentukan prioritas promosi dan program pelatihan karyawan.

  3. Korelasi Positif: Analisis Scatter Plot & Regresi membuktikan bahwa masa kerja berkontribusi nyata terhadap peningkatan skor KPI, sekaligus mengidentifikasi karyawan “High-Potential” di seluruh entitas holding.

  4. Efisiensi Anggaran: Visualisasi Grouped Bar Chart memastikan kebijakan pengupahan tetap kompetitif dan transparan, mendukung pengambilan keputusan berbasis data (Data-Driven Decision Making).

Pernyataan Penutup:

“Visualisasi yang bersih adalah kunci transparansi.” Dashboard ini mentransformasi data mentah menjadi instrumen strategis untuk manajemen talenta dan perencanaan anggaran di masa depan.

10 Referensi

  1. Pemrograman R dan Struktur Data
  1. Visualisasi Data Interaktif

  • Sievert, C. (2020). Interactive Data Visualization with R, plotly, and shiny. CRC Press. Link Referensi Plotly.

  • Garnier, S. (2018). Introduction to the viridis color maps. Link Referensi Viridis.

  1. Analisis Statistik dan Normalisasi

  • Navarro, D. (2018). Learning Statistics with R: A Tutorial for Psychology Students and Other Beginners. University of New South Wales.

  • Kutner, M. H., Nachtsheim, C. J., & Neter, J. (2004). Applied Linear Regression Models. McGraw-Hill Irwin. (Referensi untuk Garis Regresi dan Scatter Plot).

  1. Dokumentasi Paket R (CRAN)

  • dplyr: A Grammar of Data Manipulation. tidyverse.org.

  • ggplot2: Create Elegant Data Visualisations Using the Grammar of Graphics. ggplot2.tidyverse.org.

  • DT: An R interface to the DataTables library. rstudio.github.io/DT/.

LS0tDQp0aXRsZTogIiINCmF1dGhvcjogIkNoYW5kcmEgUml6YWwgQWxhbXN5YWggKDUyMjUwMDY4KSINCmRhdGU6ICJgciBmb3JtYXQoU3lzLkRhdGUoKSwgJyVkICVCICVZJylgIg0Kb3V0cHV0Og0KICBybWRmb3JtYXRzOjpyZWFkdGhlZG93bjoNCiAgICBzZWxmX2NvbnRhaW5lZDogdHJ1ZSANCiAgICBjc3M6IGNzcyBwbHVzIGh0bWwuY3NzDQogICAgdGh1bWJuYWlsczogdHJ1ZSAgICANCiAgICBsaWdodGJveDogdHJ1ZQ0KICAgIGdhbGxlcnk6IHRydWUNCiAgICBudW1iZXJfc2VjdGlvbnM6IHRydWUNCiAgICBsaWJfZGlyOiBsaWJzDQogICAgZGZfcHJpbnQ6ICJwYWdlZCINCiAgICBjb2RlX2ZvbGRpbmc6ICJzaG93Ig0KICAgIGNvZGVfZG93bmxvYWQ6IHllcw0KICAgIA0KLS0tDQoNCjxoMSBjbGFzcz0iaGVhZGVyLXRpdGxlIj5Bc3NpZ21lbnQgV2VlayA1IH4gRnVuY3Rpb25zICYgTG9vcHMgKyBEYXRhIFNjaWVuY2U8L2gxPg0KICANCiAgPGRpdiBjbGFzcz0icHJvZmlsZS1jYXJkIj4NCiAgPGRpdiBjbGFzcz0icHJvZmlsZS1pbWFnZSI+DQogIDxpbWcgaWQ9IkZvdG8iIHNyYz0iaHR0cHM6Ly9yYXcuZ2l0aHVidXNlcmNvbnRlbnQuY29tL2NoYW5kcmEyNDAyMDUtc3Vkby9DaGFuZHJhMy9tYWluL0dhbnRlbmcuanBnIiBhbHQ9IkxvZ28iIHN0eWxlPSJ3aWR0aDoyMDBweDsgZGlzcGxheTogYmxvY2s7IG1hcmdpbjogYXV0bzsiPg0KICA8L2Rpdj4NCiAgDQogIDxkaXYgY2xhc3M9InByb2ZpbGUtaW5mbyI+DQogIDxoMj5DaGFuZHJhIFJpemFsIEFsYW1zeWFoPC9oMj4NCiAgPHA+U3R1ZGVudCBNYWpvcmluZyBpbiBEYXRhIFNjaWVuY2UgYXQgSVRTQjwvcD4NCiAgPHA+KipOSU0qKjogNTIyNTAwNjg8L1A+DQogIDxQPioqRW1haWwqKjogY2hhbmRyYTI0MDIwNUBnbWFpbC5jb208L3A+DQogIA0KICA8ZGl2IGNsYXNzPSJiYWRnZXMiPg0KICA8c3BhbiBjbGFzcz0iYmFkZ2UgYmFkZ2UtYmx1ZSI+UiBQcm9ncmFtbWluZzwvc3Bhbj4NCiAgPHNwYW4gY2xhc3M9ImJhZGdlIGJhZGdlLXJlZCI+RGF0YSBTY2llbmNlPC9zcGFuPg0KICA8c3BhbiBjbGFzcz0iYmFkZ2UgYmFkZ2UtZ3JlZW4iPlN0YXRpc3RpY3M8L3NwYW4+DQogIDwvZGl2Pg0KICA8L2Rpdj4NCiAgPC9kaXY+DQotLS0gIA0KYGBge3Igc2V0dXAsIGluY2x1ZGU9RkFMU0V9DQprbml0cjo6b3B0c19jaHVuayRzZXQoDQogIGVjaG8gPSBUUlVFLCANCiAgd2FybmluZyA9IEZBTFNFLCANCiAgbWVzc2FnZSA9IEZBTFNFLCANCiAgZmlnLmFsaWduID0gJ2NlbnRlcicNCikNCmxpYnJhcnkocGxvdGx5KQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShkcGx5cikNCmxpYnJhcnkodGlkeXIpDQpgYGANCiMgUGVuZGFodWx1YW4NCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NCkxhcG9yYW4gaW5pIGRpc3VzdW4gdW50dWsgbWVtZW51aGkgdHVnYXMgcHJha3Rpa3VtIG1hdGEga3VsaWFoIERhdGEgU2NpZW5jZSBQcm9ncmFtbWluZyBkaSBJbnN0aXR1dCBUZWtub2xvZ2kgU2FpbnMgQmFuZHVuZyAoSVRTQikuIEZva3VzIHV0YW1hIGRhcmkgcHJha3Rpa3VtIGluaSBhZGFsYWggdW50dWsgbWVuZGVtb25zdHJhc2lrYW4ga2VtYW1wdWFuIGRhbGFtIG1lbWJhbmd1biBhbHVyIGtlcmphIGlsbXUgZGF0YSB5YW5nIHRlcm90b21hdGlzYXNpIGRlbmdhbiBtZW5nZ3VuYWthbiBzdHJ1a3R1ciBwZW1yb2dyYW1hbiB0aW5na2F0IGxhbmp1dC4NCjwvZGl2Pg0KDQojIyBUdWp1YW4gUHJha3Rpa3VtDQo8ZGl2IGNsYXNzPSJpbmZvLWJveCI+DQpUdWp1YW4gdXRhbWEgZGFyaSBwZW5nZXJqYWFuIHR1Z2FzIGluaSBhZGFsYWg6DQoNCg0KKiBQZW1iYW5ndW5hbiBGdW5nc2kgTXVsdGktTGF5ZXI6IE1hbXB1IG1lbnl1c3VuIGZ1bmdzaSB5YW5nIGtvbXBsZWtzIGRlbmdhbiBtZW1hbmZhYXRrYW4gbmVzdGVkIGxvb3BzIChwZXJ1bGFuZ2FuIGJlcnRpbmdrYXQpIGRhbiBsb2dpa2Ega29uZGlzaW9uYWwuDQoNCg0KKiBTaW11bGFzaSBNdWx0aS1EYXRhc2V0OiBNZW5nZWxvbGEgZGFuIG1lbXByb3NlcyBzaW11bGFzaSBkYXRhIGRhcmkgYmVyYmFnYWkgc3VtYmVyIGF0YXUgc2tlbmFyaW8gc2VjYXJhIGJlcnNhbWFhbi4NCg0KDQoqIFN0YXRpc3RpayBkYW4gVmlzdWFsaXNhc2kgTGFuanV0OiBNZWxha3VrYW4gdHJhbnNmb3JtYXNpIGRhdGEsIHBlcmhpdHVuZ2FuIHN0YXRpc3RpayB0aW5na2F0IGxhbmp1dCwgc2VydGEgbWVueWFqaWthbiBpbmZvcm1hc2kgZGFsYW0gYmVudHVrIHZpc3VhbGlzYXNpIHlhbmcgaW5mb3JtYXRpZi4NCg0KDQoqIE90b21hdGlzYXNpIFdvcmtmbG93OiBNZW5nZW1iYW5na2FuIHNrcmlwIHlhbmcgZGFwYXQgbWVuZ290b21hdGlzYXNpIHByb3NlcyBwZW5nb2xhaGFuIGRhdGEgZGFyaSBhd2FsIGhpbmdnYSBtZW5qYWRpIGxhcG9yYW4gYWtoaXIuDQo8L2Rpdj4NCg0KIyMgQ2FrdXBhbiBUdWdhcw0KPGRpdiBjbGFzcz0iaW5mby1ib3giPg0KUHJha3Rpa3VtIGluaSBtZW5jYWt1cCA4IG1vZHVsIHR1Z2FzIHV0YW1hIHlhbmcgbWVuc2ltdWxhc2lrYW4gdGFudGFuZ2FuIG55YXRhIGRpIGR1bmlhIGRhdGEgc2NpZW5jZSwgbXVsYWkgZGFyaSBwZW1idWF0YW4gcnVtdXMgZGluYW1pcywgc2ltdWxhc2kgcGVuanVhbGFuIGRhbiBkaXNrb24sIGFuYWxpc2lzIHBlcmZvcm1hIGthcnlhd2FuIGRhbiBwZXJ1c2FoYWFuLCBoaW5nZ2EgbWV0b2RlIHNpbXVsYXNpIE1vbnRlIENhcmxvIHVudHVrIHBlcmhpdHVuZ2FuIHByb2JhYmlsaXRhcy5TZWx1cnVoIHR1Z2FzIGRpaW1wbGVtZW50YXNpa2FuIG1lbmdndW5ha2FuIGJhaGFzYSBwZW1yb2dyYW1hbiBSIGRlbmdhbiBoYXNpbCBha2hpciBiZXJ1cGEgZG9rdW1lbiBIVE1MIGludGVyYWt0aWYuDQo8L2Rpdj4NCg0KIyBEeW5hbWljIE11bHRpLUZvcm11bGEgRnVuY3Rpb24NCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NCkFuYWxpc2lzIGluaSBiZXJmb2t1cyBwYWRhIHBlbWJ1YXRhbiBmdW5nc2kga3VzdG9tIHlhbmcgbWFtcHUgbWVuYW5nYW5pIGJlcmJhZ2FpIGplbmlzIHBlcmhpdHVuZ2FuIG1hdGVtYXRpa2Egc2VjYXJhIGRpbmFtaXMuIERlbmdhbiBtZW5nZ2FidW5na2FuIGtvbnNlcCBOZXN0ZWQgTG9vcHMgZGFuIENvbmRpdGlvbmFsIExvZ2ljLCBzaXN0ZW0gZGFwYXQgbWVtcHJvc2VzIHNlcmFuZ2thaWFuIGRhdGEgaW5wdXQgKCR4JCkgZGFuIG1lbmdoYXNpbGthbiBvdXRwdXQgKCR5JCkgYmVyZGFzYXJrYW4gcnVtdXMgeWFuZyBkaXBpbGloIG9sZWggcGVuZ2d1bmEuDQo8L2Rpdj4NCg0KIyMgVmlzdWFsaXNhc2kNCg0KYGBge3J9DQojIC0tLSBUVUdBUyAxOiBEWU5BTUlDIE1VTFRJLUZPUk1VTEEgRlVOQ1RJT04gLS0tDQoNCiMgMS4gTG9hZCBMaWJyYXJ5DQpsaWJyYXJ5KHBsb3RseSkNCmxpYnJhcnkoZ2dwbG90MikNCmxpYnJhcnkodGlkeXIpDQoNCiMgMi4gRGVmaW5pc2kgRnVuZ3NpIFV0YW1hIGRlbmdhbiBOZXN0ZWQgTG9vcHMgZGFuIEtvbmRpc2lvbmFsDQojIEZ1bmdzaSBpbmkgbWVuZ2hpdHVuZyBuaWxhaSB5IGJlcmRhc2Fya2FuIGthdGVnb3JpIHJ1bXVzIHlhbmcgZGlwaWxpaA0KY29tcHV0ZV9mb3JtdWxhIDwtIGZ1bmN0aW9uKHhfdmVjdG9yLCBmb3JtdWxhcykgew0KICANCiAgIyBJbmlzaWFsaXNhc2kgZGF0YSBmcmFtZSBkZW5nYW4ga29sb20geA0KICByZXN1bHRzIDwtIGRhdGEuZnJhbWUoeCA9IHhfdmVjdG9yKQ0KICANCiAgIyBPdXRlciBMb29wOiBNZW5naXRlcmFzaSBzZXRpYXAgamVuaXMgZm9ybXVsYSAoTGluZWFyLCBRdWFkcmF0aWMsIGRsbCkNCiAgZm9yIChmIGluIGZvcm11bGFzKSB7DQogICAgeV92YWx1ZXMgPC0gbnVtZXJpYyhsZW5ndGgoeF92ZWN0b3IpKSAjIFdhZGFoIHNlbWVudGFyYSB1bnR1ayBoYXNpbCBwZXJoaXR1bmdhbg0KICAgIA0KICAgICMgSW5uZXIgTG9vcDogTWVuZ2l0ZXJhc2kgc2V0aWFwIGFuZ2thIGRhbGFtIHZla3RvciB4ICgxIHNhbXBhaSAyMCkNCiAgICBmb3IgKGkgaW4gMTpsZW5ndGgoeF92ZWN0b3IpKSB7DQogICAgICB4X3ZhbCA8LSB4X3ZlY3RvcltpXQ0KICAgICAgDQogICAgICAjIFN0cnVrdHVyIExvZ2lrYSBLb25kaXNpb25hbCB1bnR1ayBwZW1pbGloYW4gcnVtdXMgZGFuIHZhbGlkYXNpIGlucHV0DQogICAgICBpZiAoZiA9PSAibGluZWFyIikgew0KICAgICAgICB5X3ZhbHVlc1tpXSA8LSAyICogeF92YWwgKyA1DQogICAgICB9IGVsc2UgaWYgKGYgPT0gInF1YWRyYXRpYyIpIHsNCiAgICAgICAgeV92YWx1ZXNbaV0gPC0gKHhfdmFsXjIpIC0gKDMgKiB4X3ZhbCkgKyAyDQogICAgICB9IGVsc2UgaWYgKGYgPT0gImN1YmljIikgew0KICAgICAgICB5X3ZhbHVlc1tpXSA8LSAoeF92YWxeMykgKyB4X3ZhbA0KICAgICAgfSBlbHNlIGlmIChmID09ICJleHBvbmVudGlhbCIpIHsNCiAgICAgICAgeV92YWx1ZXNbaV0gPC0gZXhwKDAuMiAqIHhfdmFsKQ0KICAgICAgfSBlbHNlIHsNCiAgICAgICAgIyBNZW5naGVudGlrYW4gZWtzZWt1c2kgamlrYSBuYW1hIGZvcm11bGEgdGlkYWsgc2VzdWFpIChWYWxpZGFzaSkNCiAgICAgICAgc3RvcChwYXN0ZSgiRXJyb3I6IEZvcm11bGEgJyIsIGYsICInIHRpZGFrIGRpdGVtdWthbiBkYWxhbSBzaXN0ZW0uIikpDQogICAgICB9DQogICAgfQ0KICAgIA0KICAgICMgTWVuYW1iYWhrYW4gaGFzaWwgcGVyaGl0dW5nYW4ga2Uga29sb20gYmFydSBzZXN1YWkgbmFtYSBmb3JtdWxhbnlhDQogICAgcmVzdWx0c1tbZl1dIDwtIHlfdmFsdWVzDQogIH0NCiAgDQogIHJldHVybihyZXN1bHRzKQ0KfQ0KDQojIDMuIEVrc2VrdXNpIEZ1bmdzaSAoUnVubmluZyB0aGUgU2ltdWxhdGlvbikNCnhfcmFuZ2UgPC0gMToyMA0KdGFyZ2V0X2Zvcm11bGFzIDwtIGMoImxpbmVhciIsICJxdWFkcmF0aWMiLCAiY3ViaWMiLCAiZXhwb25lbnRpYWwiKQ0KZGZfcmVzdWx0cyA8LSBjb21wdXRlX2Zvcm11bGEoeF9yYW5nZSwgdGFyZ2V0X2Zvcm11bGFzKQ0KDQojIDQuIFRyYW5zZm9ybWFzaSBEYXRhIHVudHVrIFZpc3VhbGlzYXNpDQpkZl9sb25nIDwtIHBpdm90X2xvbmdlcihkZl9yZXN1bHRzLCANCiAgICAgICAgICAgICAgICAgICAgICAgIGNvbHMgPSAteCwgDQogICAgICAgICAgICAgICAgICAgICAgICBuYW1lc190byA9ICJUaXBlX0Zvcm11bGEiLCANCiAgICAgICAgICAgICAgICAgICAgICAgIHZhbHVlc190byA9ICJOaWxhaV9ZIikNCg0KcCA8LSBnZ3Bsb3QoZGZfbG9uZywgYWVzKHggPSB4LCB5ID0gTmlsYWlfWSwgY29sb3IgPSBUaXBlX0Zvcm11bGEpKSArDQogIGdlb21fbGluZShsaW5ld2lkdGggPSAxKSArDQogIGdlb21fcG9pbnQoc2l6ZSA9IDEuNSkgKw0KICBsYWJzKA0KICAgIHRpdGxlID0gIkFuYWxpc2lzIEtvbXBhcmF0aWYgTXVsdGktRm9ybXVsYSIsDQogICAgc3VidGl0bGUgPSAiVmlzdWFsaXNhc2kgTGluZWFyLCBLdWFkcmF0aWssIEt1YmlrLCBkYW4gRWtzcG9uZW5zaWFsICh4PTE6MjApIiwNCiAgICB4ID0gIklucHV0IChOaWxhaSBYKSIsDQogICAgeSA9ICJPdXRwdXQgKE5pbGFpIFkpIiwNCiAgICBjb2xvciA9ICJLYXRlZ29yaSBGb3JtdWxhIg0KICApICsNCiAgdGhlbWVfbWluaW1hbCgpDQoNCmdncGxvdGx5KHApDQpgYGANCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NCkludGVycHJldGFzaSBWaXN1YWxpc2FzaTogQW5hbGlzaXMgS29tcGFyYXRpZiBNdWx0aS1Gb3JtdWxhDQoNCkJlcmRhc2Fya2FuIGdyYWZpayBpbnRlcmFrdGlmIHlhbmcgZGloYXNpbGthbiwgYmVyaWt1dCBhZGFsYWggcG9pbi1wb2luIGFuYWxpc2lzIG1lbmdlbmFpIHBlcmlsYWt1IGRhcmkga2VlbXBhdCBmb3JtdWxhIHlhbmcgZGl1amkgZGFsYW0gcmVudGFuZyAkeCA9IDEkIGhpbmdnYSAkeCA9IDIwJDoNCg0KKiBQZXJ0dW1idWhhbiBFa3Nwb25lbnNpYWwgKCRlXnswLjJ4fSQpOiBLdXJ2YSBla3Nwb25lbnNpYWwgbWVudW5qdWtrYW4gcGVydHVtYnVoYW4geWFuZyBsYW1iYXQgcGFkYSBhd2FsIHJlbnRhbmcsIG5hbXVuIG11bGFpIG1lbmluZ2thdCBzZWNhcmEgc2lnbmlmaWthbiAoYWtzZWxlcmFzaSkgc2VpcmluZyBiZXJ0YW1iYWhueWEgbmlsYWkgJHgkLiBJbmkgbWVyZXByZXNlbnRhc2lrYW4gc2tlbmFyaW8gZGkgbWFuYSB0aW5na2F0IHBlcnR1bWJ1aGFuIHNlYmFuZGluZyBkZW5nYW4gbmlsYWkgc2FhdCBpbmkuDQoNCiogRG9taW5hc2kgRnVuZ3NpIEt1YmlrICgkeF4zICsgeCQpOiBEYWxhbSByZW50YW5nIG5pbGFpICR4JCB5YW5nIGxlYmloIGJlc2FyIChtZW5kZWthdGkgMjApLCBmdW5nc2kga3ViaWsgbWVuZG9taW5hc2kgc3VtYnUgWSBkZW5nYW4gbmlsYWkgdGVydGluZ2dpIGRpYmFuZGluZ2thbiBmb3JtdWxhIGxhaW5ueWEuIEhhbCBpbmkgZGlzZWJhYmthbiBvbGVoIHBhbmdrYXQgdGlnYSB5YW5nIG1lbWJlcmlrYW4gZGFtcGFrIHBlcnR1bWJ1aGFuIHZvbHVtZSB5YW5nIHNhbmdhdCBjZXBhdCBzZWlyaW5nIG1lbmluZ2thdG55YSBpbnB1dC4NCg0KKiBTdGFiaWxpdGFzIEZ1bmdzaSBMaW5lYXIgKCQyeCArIDUkKTogR3JhZmlrIGxpbmVhciBtZW51bmp1a2thbiBnYXJpcyBsdXJ1cyBkZW5nYW4ga2VtaXJpbmdhbiAoc2xvcGUpIHlhbmcga29uc3Rhbi4gQmVyYmVkYSBkZW5nYW4gZnVuZ3NpIHBvbGlub21pYWwgYXRhdSBla3Nwb25lbnNpYWwsIGZ1bmdzaSBpbmkgbWVtaWxpa2kgbGFqdSBwZXJ1YmFoYW4geWFuZyB0ZXRhcCwgc2VoaW5nZ2EgbGViaWggbXVkYWggZGlwcmVkaWtzaSBkYWxhbSBqYW5na2EgcGFuamFuZy4NCg0KKiBLYXJha3RlcmlzdGlrIEZ1bmdzaSBLdWFkcmF0aWsgKCR4XjIgLSAzeCArIDIkKTogS3VydmEga3VhZHJhdGlrIG1lbWJlbnR1ayBwb2xhIHBhcmFib2xhLiBQYWRhIG5pbGFpICR4JCByZW5kYWgsIHRlcmxpaGF0IHNlZGlraXQgcGVudXJ1bmFuIGF0YXUga2VsYW5kYWlhbiBzZWJlbHVtIGFraGlybnlhIG5haWsgc2VjYXJhIGtvbnNpc3Rlbi4gUGVydHVtYnVoYW5ueWEgbGViaWggY2VwYXQgZGFyaSBsaW5lYXIgbmFtdW4gdGV0YXAgYmVyYWRhIGRpIGJhd2FoIGt1cnZhIGt1YmlrIHBhZGEgcmVudGFuZyBpbmkuDQoNCktlc2ltcHVsYW4gVGVrbmlzOg0KSW1wbGVtZW50YXNpIG5lc3RlZCBsb29wcyBkYWxhbSBmdW5nc2kgY29tcHV0ZV9mb3JtdWxhIHRlbGFoIGJlcmhhc2lsIG1lbXByb3NlcyBiZXJiYWdhaSBzdHJ1a3R1ciBsb2dpa2EgbWF0ZW1hdGlrYSBzZWNhcmEgYmVyc2FtYWFuIGRhbGFtIHNhdHUgYWx1ciBrZXJqYS4gUGVuZ2d1bmFhbiB2aXN1YWxpc2FzaSBpbmkgbWVtYnVrdGlrYW4gYmFod2EgZnVuZ3NpIHZhbGlkYXNpIGJla2VyamEgZGVuZ2FuIHRlcGF0IGRhbGFtIG1lbWV0YWthbiBpbnB1dCAkeCQga2UgZGFsYW0ga2F0ZWdvcmkgcnVtdXMgeWFuZyBzZXN1YWkgdGFucGEgYWRhbnlhIHR1bXBhbmcgdGluZGloIGRhdGEuDQo8L2Rpdj4NCg0KIyBOZXN0ZWQgU2ltdWxhdGlvbiAoTXVsdGktU2FsZXMgJiBEaXNjb3VudHMpDQo8ZGl2IGNsYXNzPSJpbmZvLWJveCI+DQpBbmFsaXNpcyBpbmkgbWVydXBha2FuIHNpbXVsYXNpIHNrZW5hcmlvIGJpc25pcyBueWF0YSB5YW5nIG1lbGliYXRrYW4gaW50ZXJha3NpIGFudGFyYSB0ZW5hZ2EgcGVuanVhbCAoc2FsZXNwZXJzb24pLCB3YWt0dSAoaGFyaSksIGRhbiBrZWJpamFrYW4gaGFyZ2EuIFNpbXVsYXNpIGluaSBtZW5nZ3VuYWthbiBzdHJ1a3R1ciBOZXN0ZWQgTG9vcHMgeWFuZyBrb21wbGVrczogT3V0ZXIgTG9vcCBtZW5naXRlcmFzaSBpZGVudGl0YXMgc2FsZXMsIHNlbWVudGFyYSBJbm5lciBMb29wIG1lbmdpdGVyYXNpIGFrdGl2aXRhcyBwZW5qdWFsYW4gaGFyaWFuIHNlbGFtYSBwZXJpb2RlIHRlcnRlbnR1Lg0KPC9kaXY+DQoNCiMjIFZpc3VhbGlzYXNpDQoNCmBgYHtyfQ0KIyAtLS0gVFVHQVMgMjogTkVTVEVEIFNJTVVMQVRJT04gJiBQUk9GRVNTSU9OQUwgUkVQT1JUSU5HIC0tLQ0KDQojIDEuIExvYWQgTGlicmFyeQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShrYWJsZUV4dHJhKQ0KDQojIDIuIEZ1bmdzaSBVdGFtYTogc2ltdWxhdGVfc2FsZXMgKE5lc3RlZCBMb29wcykNCnNpbXVsYXRlX3NhbGVzIDwtIGZ1bmN0aW9uKG5fc2FsZXNwZXJzb24sIGRheXMpIHsNCiAgYWxsX2RhdGEgPC0gZGF0YS5mcmFtZSgpDQogIHNldC5zZWVkKDEyMykNCiAgDQogIGZvciAocyBpbiAxOm5fc2FsZXNwZXJzb24pIHsNCiAgICBzYWxlc3BlcnNvbl9pZCA8LSBwYXN0ZTAoIlNhbGVzLSIsIHMpDQogICAgZm9yIChkIGluIDE6ZGF5cykgew0KICAgICAgYW1vdW50IDwtIHJ1bmlmKDEsIG1pbiA9IDEwMCwgbWF4ID0gMTAwMCkNCiAgICAgIA0KICAgICAgIyBMb2dpa2EgZGlza29uIGtvbmRpc2lvbmFsDQogICAgICBpZiAoYW1vdW50ID4gODAwKSB7DQogICAgICAgIHJhdGUgPC0gMC4xNQ0KICAgICAgfSBlbHNlIGlmIChhbW91bnQgPiA1MDApIHsNCiAgICAgICAgcmF0ZSA8LSAwLjEwDQogICAgICB9IGVsc2Ugew0KICAgICAgICByYXRlIDwtIDAuMDUNCiAgICAgIH0NCiAgICAgIA0KICAgICAgbmV0X3NhbGVzIDwtIGFtb3VudCAqICgxIC0gcmF0ZSkNCiAgICAgIHJvd19kYXRhIDwtIGRhdGEuZnJhbWUoDQogICAgICAgIHNhbGVzX2lkID0gc2FsZXNwZXJzb25faWQsDQogICAgICAgIGRheSA9IGQsDQogICAgICAgIHNhbGVzX2Ftb3VudCA9IGFtb3VudCwNCiAgICAgICAgZGlzY291bnRfcmF0ZSA9IHJhdGUsDQogICAgICAgIG5ldF9zYWxlcyA9IG5ldF9zYWxlcw0KICAgICAgKQ0KICAgICAgYWxsX2RhdGEgPC0gcmJpbmQoYWxsX2RhdGEsIHJvd19kYXRhKQ0KICAgIH0NCiAgfQ0KICANCiAgIyBIaXR1bmcga3VtdWxhdGlmDQogIGFsbF9kYXRhIDwtIGFsbF9kYXRhICU+JQ0KICAgIGdyb3VwX2J5KHNhbGVzX2lkKSAlPiUNCiAgICBtdXRhdGUoY3VtdWxhdGl2ZV9zYWxlcyA9IGN1bXN1bShuZXRfc2FsZXMpKSAlPiUNCiAgICB1bmdyb3VwKCkNCiAgICANCiAgcmV0dXJuKGFsbF9kYXRhKQ0KfQ0KDQojIDMuIEVrc2VrdXNpIFNpbXVsYXNpDQpkZl9zYWxlcyA8LSBzaW11bGF0ZV9zYWxlcyhuX3NhbGVzcGVyc29uID0gNSwgZGF5cyA9IDMwKQ0KDQojIDQuIFJpbmdrYXNhbiBTdGF0aXN0aWsgdW50dWsgVGFiZWwNCnN1bW1hcnlfdGFibGUgPC0gZGZfc2FsZXMgJT4lDQogIGdyb3VwX2J5KHNhbGVzX2lkKSAlPiUNCiAgc3VtbWFyaXNlKA0KICAgIFRvdGFsX1RyYW5zYWtzaSA9IG4oKSwNCiAgICBUb3RhbF9TYWxlc19OZXQgPSBzdW0obmV0X3NhbGVzKSwNCiAgICBBdmdfRGlzY291bnQgPSBtZWFuKGRpc2NvdW50X3JhdGUpICogMTAwDQogICkNCg0KIyA1LiBNRU5BTVBJTEtBTiBUQUJFTA0Kc3VtbWFyeV90YWJsZSAlPiUNCiAga2JsKA0KICAgIGNhcHRpb24gPSAiUmluZ2thc2FuIFBlcmZvcm1hIFNhbGVzcGVyc29uICgzMCBIYXJpKSIsIA0KICAgIGNvbC5uYW1lcyA9IGMoIklEIFNhbGVzcGVyc29uIiwgIlRvdGFsIFRyYW5zYWtzaSIsICJUb3RhbCBQZW5qdWFsYW4gQmVyc2loIiwgIlJhdGEtcmF0YSBEaXNrb24gKCUpIiksDQogICAgZGlnaXRzID0gMiwNCiAgICBhbGlnbiA9ICJjIg0KICApICU+JQ0KICBrYWJsZV9zdHlsaW5nKA0KICAgIGJvb3RzdHJhcF9vcHRpb25zID0gYygic3RyaXBlZCIsICJob3ZlciIsICJjb25kZW5zZWQiLCAiYm9yZGVyZWQiKSwNCiAgICBmdWxsX3dpZHRoID0gRiwgDQogICAgcG9zaXRpb24gPSAiY2VudGVyIg0KICApICU+JQ0KICByb3dfc3BlYygwLCBib2xkID0gVCwgY29sb3IgPSAid2hpdGUiLCBiYWNrZ3JvdW5kID0gIiMyYzNlNTAiKSAlPiUNCiAgY29sdW1uX3NwZWMoMywgYm9sZCA9IFQsIGNvbG9yID0gImRhcmtncmVlbiIpDQoNCiMgNi4gVmlzdWFsaXNhc2kgUGxvdCBUcmVuIEt1bXVsYXRpZg0KcDIgPC0gZ2dwbG90KGRmX3NhbGVzLCBhZXMoeCA9IGRheSwgeSA9IGN1bXVsYXRpdmVfc2FsZXMsIGNvbG9yID0gc2FsZXNfaWQpKSArDQogIGdlb21fbGluZShsaW5ld2lkdGggPSAxKSArDQogIGxhYnMoDQogICAgdGl0bGUgPSAiVHJlbiBBa3VtdWxhc2kgUGVuanVhbGFuIEJlcnNpaCIsDQogICAgeCA9ICJIYXJpIGtlLSIsDQogICAgeSA9ICJUb3RhbCBLdW11bGF0aWYgKE5ldCBTYWxlcykiLA0KICAgIGNvbG9yID0gIklEIFNhbGVzIg0KICApICsNCiAgdGhlbWVfbWluaW1hbCgpDQoNCmdncGxvdGx5KHAyKQ0KYGBgDQo8ZGl2IGNsYXNzPSJpbmZvLWJveCI+DQpJbnRlcnByZXRhc2kgRGF0YTogU2ltdWxhc2kgUGVuanVhbGFuICYgRGlza29uDQoNCkJlcmRhc2Fya2FuIGhhc2lsIHNpbXVsYXNpIHRyYW5zYWtzaSBzZWxhbWEgMzAgaGFyaSwgZGFwYXQgZGl0YXJpayB0aWdhIHBvaW4ga2VzaW1wdWxhbiB1dGFtYToNCg0KMS4gVHJlbiBQZXJ0dW1idWhhbiBLdW11bGF0aWY6DQoNCkdyYWZpayBnYXJpcyBtZW51bmp1a2thbiBiYWh3YSBzZWx1cnVoIHRlbmFnYSBwZW5qdWFsIG1lbmdhbGFtaSBrZW5haWthbiBwZW5kYXBhdGFuIHlhbmcgc3RhYmlsLiBQZXJiZWRhYW4ga2VtaXJpbmdhbiAoc2xvcGUpIHBhZGEgYWtoaXIgcGVyaW9kZSBtZW5naW5kaWthc2lrYW4gYmFod2EgU2FsZXMtMyBtZW1pbGlraSBrb25zaXN0ZW5zaSB0cmFuc2Frc2kgYmVybmlsYWkgYmVzYXIgeWFuZyBsZWJpaCBiYWlrIGRpYmFuZGluZyByZWthbiBsYWlubnlhLg0KDQoyLiBFZmVrdGl2aXRhcyBEaXNrb24gQmVydGluZ2thdDoNCg0KUGVuZXJhcGFuIGxvZ2lrYSBkaXNrb24gKDUlLCAxMCUsIDE1JSkgYmVyaGFzaWwgbWVueWVpbWJhbmdrYW4gYW50YXJhIHZvbHVtZSB0cmFuc2Frc2kgZGFuIG1hcmdpbiBrZXVudHVuZ2FuLiBNZXNraXB1biB0cmFuc2Frc2kgYmVzYXIgbWVuZGFwYXRrYW4gcG90b25nYW4gaGFyZ2EgbWFrc2ltYWwgKDE1JSksIGtvbnRyaWJ1c2lueWEgdGVyaGFkYXAgdG90YWwgcGVuanVhbGFuIGJlcnNpaCB0ZXRhcCBtZW5qYWRpIHlhbmcgcGFsaW5nIGRvbWluYW4uDQoNCjMuIEFrdXJhc2kgQXV0b21hc2k6DQoNClBlbmdndW5hYW4gbmVzdGVkIGxvb3BzIHRlcmJ1a3RpIGVmZWt0aWYgZGFsYW0gbWVuZ2Vsb2xhIHJpYnVhbiBrb21iaW5hc2kgZGF0YSAoc2FsZXMgeCBoYXJpIHggZGlza29uKSBzZWNhcmEgb3RvbWF0aXMsIG1lbmdoYXNpbGthbiBsYXBvcmFuIG1hbmFqZXJpYWwgeWFuZyBha3VyYXQgZGFuIHRlcnN0cnVrdHVyIHRhbnBhIGFkYW55YSB0dW1wYW5nIHRpbmRpaCBkYXRhLg0KPC9kaXY+DQoNCiMgTXVsdGktTGV2ZWwgUGVyZm9ybWFuY2UgQ2F0ZWdvcml6YXRpb24NCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NCkFuYWxpc2lzIGluaSBiZXJ0dWp1YW4gdW50dWsgbWVuZ2tsYXNpZmlrYXNpa2FuIGRhdGEgcGVuanVhbGFuIGJlcnNpaCAobmV0IHNhbGVzKSBrZSBkYWxhbSBsaW1hIGthdGVnb3JpIHBlcmZvcm1hIHlhbmcgYmVyYmVkYS4gUHJvc2VzIGluaSBkaWxha3VrYW4gZGVuZ2FuIG1lbmdndW5ha2FuIGZ1bmdzaSBsb2dpa2EgdGluZ2thdCBsYW5qdXQgdW50dWsgbWVuZ2Vsb21wb2trYW4gc2V0aWFwIHRyYW5zYWtzaSBiZXJkYXNhcmthbiBuaWxhaSBub21pbmFsbnlhLg0KPC9kaXY+DQoNCiMjIFZpc3VhbGlzYXNpDQoNCmBgYHtyIHR1Z2FzLTMtdXBkYXRlZCwgZWNobz1UUlVFLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQ0KIyAtLS0gVFVHQVMgMzogTVVMVEktTEVWRUwgUEVSRk9STUFOQ0UgQ0FURUdPUklaQVRJT04gLS0tDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShrYWJsZUV4dHJhKQ0KDQojIDEuIEZ1bmdzaSBLYXRlZ29yaXNhc2kNCmNhdGVnb3JpemVfcGVyZm9ybWFuY2UgPC0gZnVuY3Rpb24oc2FsZXNfdmVjdG9yKSB7DQogIGNhdGVnb3JpZXMgPC0gc2FwcGx5KHNhbGVzX3ZlY3RvciwgZnVuY3Rpb24oYW1vdW50KSB7DQogICAgaWYgKGFtb3VudCA+PSA4MDApICJFeGNlbGxlbnQiDQogICAgZWxzZSBpZiAoYW1vdW50ID49IDYwMCkgIlZlcnkgR29vZCINCiAgICBlbHNlIGlmIChhbW91bnQgPj0gNDAwKSAiR29vZCINCiAgICBlbHNlIGlmIChhbW91bnQgPj0gMjAwKSAiQXZlcmFnZSINCiAgICBlbHNlICJQb29yIg0KICB9KQ0KICByZXR1cm4oY2F0ZWdvcmllcykNCn0NCg0KIyAyLiBJbXBsZW1lbnRhc2kga2UgRGF0YWZyYW1lDQpkZl9zYWxlcyRwZXJmb3JtYW5jZSA8LSBjYXRlZ29yaXplX3BlcmZvcm1hbmNlKGRmX3NhbGVzJG5ldF9zYWxlcykNCg0KIyAzLiBNZW1idWF0IFJpbmdrYXNhbiBTdGF0aXN0aWsNCnBlcmZfc3VtbWFyeSA8LSBkZl9zYWxlcyAlPiUNCiAgZ3JvdXBfYnkocGVyZm9ybWFuY2UpICU+JQ0KICBzdW1tYXJpc2UoRnJla3VlbnNpID0gbigpKSAlPiUNCiAgbXV0YXRlKFBlcnNlbnRhc2UgPSAoRnJla3VlbnNpIC8gc3VtKEZyZWt1ZW5zaSkpICogMTAwKSAlPiUNCiAgYXJyYW5nZShkZXNjKEZyZWt1ZW5zaSkpDQoNCiMgNC4gTWVuYW1waWxrYW4gVGFiZWwgDQpwZXJmX3N1bW1hcnkgJT4lDQogIGtibChjYXB0aW9uID0gIlJpbmdrYXNhbiBLYXRlZ29yaSBQZXJmb3JtYSBUcmFuc2Frc2kiLA0KICAgICAgY29sLm5hbWVzID0gYygiVGluZ2thdCBQZXJmb3JtYSIsICJKdW1sYWggVHJhbnNha3NpIiwgIlBlcnNlbnRhc2UgKCUpIiksDQogICAgICBkaWdpdHMgPSAxLCBhbGlnbiA9ICJjIikgJT4lDQogIGthYmxlX3N0eWxpbmcoYm9vdHN0cmFwX29wdGlvbnMgPSBjKCJzdHJpcGVkIiwgImJvcmRlcmVkIiwgImhvdmVyIiksIA0KICAgICAgICAgICAgICAgIGZ1bGxfd2lkdGggPSBGLCBwb3NpdGlvbiA9ICJjZW50ZXIiKSAlPiUNCiAgcm93X3NwZWMoMCwgYm9sZCA9IFQsIGNvbG9yID0gIndoaXRlIiwgYmFja2dyb3VuZCA9ICIjMmMzZTUwIikNCmBgYA0KDQpgYGB7ciB0dWdhcy0zLWJhcnBsb3QsIGVjaG89VFJVRSwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCiMgLS0tIFZJU1VBTElTQVNJIEJBUiBQTE9UIC0tLQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQoNCnBfYmFyIDwtIGdncGxvdChwZXJmX3N1bW1hcnksIGFlcyh4ID0gcmVvcmRlcihwZXJmb3JtYW5jZSwgLUZyZWt1ZW5zaSksIHkgPSBGcmVrdWVuc2ksIGZpbGwgPSBwZXJmb3JtYW5jZSkpICsNCiAgZ2VvbV9iYXIoc3RhdCA9ICJpZGVudGl0eSIsIGNvbG9yID0gIndoaXRlIiwgYWxwaGEgPSAwLjgpICsNCiAgbGFicyh0aXRsZSA9ICJEaXN0cmlidXNpIEZyZWt1ZW5zaSBLYXRlZ29yaSBQZXJmb3JtYSIsDQogICAgICAgeCA9ICJLYXRlZ29yaSBQZXJmb3JtYSIsIHkgPSAiVG90YWwgVHJhbnNha3NpIikgKw0KICB0aGVtZV9taW5pbWFsKCkgKyANCiAgc2NhbGVfZmlsbF9icmV3ZXIocGFsZXR0ZSA9ICJQYWlyZWQiKSArDQogIHRoZW1lKGxlZ2VuZC5wb3NpdGlvbiA9ICJub25lIikNCg0KZ2dwbG90bHkocF9iYXIpDQpgYGANCg0KYGBge3IgdHVnYXMtMy1wbG90bHktcGllLCBlY2hvPVRSVUUsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQojIC0tLSBWSVNVQUxJU0FTSSBQSUUgQ0hBUlQgLS0tDQpsaWJyYXJ5KHBsb3RseSkNCg0KcF9waWVfaW50ZXJhY3RpdmUgPC0gcGxvdF9seShwZXJmX3N1bW1hcnksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICBsYWJlbHMgPSB+cGVyZm9ybWFuY2UsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICB2YWx1ZXMgPSB+RnJla3VlbnNpLCANCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdHlwZSA9ICdwaWUnLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0ZXh0cG9zaXRpb24gPSAnaW5zaWRlJywNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgdGV4dGluZm8gPSAnbGFiZWwrcGVyY2VudCcsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGluc2lkZXRleHRmb250ID0gbGlzdChjb2xvciA9ICcjRkZGRkZGJywgc2l6ZSA9IDE0KSwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaG92ZXJpbmZvID0gJ3RleHQnLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0ZXh0ID0gfnBhc3RlKCdLYXRlZ29yaTonLCBwZXJmb3JtYW5jZSwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgJzxicj5KdW1sYWg6JywgRnJla3VlbnNpLCAnVHJhbnNha3NpJyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIG1hcmtlciA9IGxpc3QoY29sb3JzID0gYygnIzM0OThkYicsICcjMmVjYzcxJywgJyNmMWM0MGYnLCAnI2U2N2UyMicsICcjZTc0YzNjJyksDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgbGluZSA9IGxpc3QoY29sb3IgPSAnI0ZGRkZGRicsIHdpZHRoID0gMSkpKQ0KDQoNCnBfcGllX2ludGVyYWN0aXZlIDwtIHBfcGllX2ludGVyYWN0aXZlICU+JQ0KICBsYXlvdXQodGl0bGUgPSBsaXN0KHRleHQgPSAiPGI+UHJvcG9yc2kgS2F0ZWdvcmkgUGVyZm9ybWEgVHJhbnNha3NpPC9iPiIsIHNpemUgPSAyMCksDQogICAgICAgICB4YXhpcyA9IGxpc3Qoc2hvd2dyaWQgPSBGQUxTRSwgemVyb2xpbmUgPSBGQUxTRSwgc2hvd3RpY2tsYWJlbHMgPSBGQUxTRSksDQogICAgICAgICB5YXhpcyA9IGxpc3Qoc2hvd2dyaWQgPSBGQUxTRSwgemVyb2xpbmUgPSBGQUxTRSwgc2hvd3RpY2tsYWJlbHMgPSBGQUxTRSksDQogICAgICAgICBtYXJnaW4gPSBsaXN0KGwgPSAyMCwgciA9IDIwLCBiID0gMjAsIHQgPSA1MCksICMgTWFyZ2luIHRpcGlzIGFnYXIgZ3JhZmlrIGJlc2FyDQogICAgICAgICBzaG93bGVnZW5kID0gVFJVRSkNCg0KcF9waWVfaW50ZXJhY3RpdmUNCmBgYA0KDQoNCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NCkludGVycHJldGFzaSBEYXRhOiBEaXN0cmlidXNpIFBlcmZvcm1hIFNhbGVzDQoNCkJlcmRhc2Fya2FuIGtsYXNpZmlrYXNpIG90b21hdGlzIHlhbmcgZGlsYWt1a2FuIG1lbmdndW5ha2FuIGZ1bmdzaSBjYXRlZ29yaXplX3BlcmZvcm1hbmNlLCBiZXJpa3V0IGFkYWxhaCB0ZW11YW4gdXRhbWEgZGFyaSBkaXN0cmlidXNpIHBlcmZvcm1hIHRyYW5zYWtzaToNCg0KMS4gRG9taW5hc2kgS2F0ZWdvcmkgUGVyZm9ybWE6IA0KDQpHcmFmaWsgYmF0YW5nIG1lbnVuanVra2FuIGthdGVnb3JpIG1hbmEgeWFuZyBtZW1pbGlraSBmcmVrdWVuc2kgdGVydGluZ2dpLiBKaWthIGthdGVnb3JpICJWZXJ5IEdvb2QiIGF0YXUgIkdvb2QiIG1lbmRvbWluYXNpLCBoYWwgaW5pIG1lbmdpbmRpa2FzaWthbiBiYWh3YSBzZWJhZ2lhbiBiZXNhciB0cmFuc2Frc2kgaGFyaWFuIGJlcmFkYSBwYWRhIHJlbnRhbmcgbmlsYWkgbWVuZW5nYWgga2UgYXRhcyAoNDAw4oCTNzk5KSwgeWFuZyBtZW51bmp1a2thbiBzdGFiaWxpdGFzIHBlbmRhcGF0YW4gcGVydXNhaGFhbi4NCg0KMi4gQW5hbGlzaXMgS29udHJpYnVzaSAiRXhjZWxsZW50IjoNCg0KUGVyc2VudGFzZSBwYWRhIGthdGVnb3JpICJFeGNlbGxlbnQiIG1lbmNlcm1pbmthbiBrZW1hbXB1YW4gdGltIHNhbGVzIGRhbGFtIG1lbnV0dXAgdHJhbnNha3NpIGJlcm5pbGFpIHRpbmdnaSAoJFxnZSA4MDAkKS4gTWVza2lwdW4ganVtbGFobnlhIG11bmdraW4gdGlkYWsgc2ViYW55YWsga2F0ZWdvcmkgbGFpbiwga2Vsb21wb2sgaW5pbGFoIHlhbmcgbWVtYmVyaWthbiBkb3JvbmdhbiBwYWxpbmcgYmVzYXIgdGVyaGFkYXAgbG9uamFrYW4gZ3JhZmlrIGt1bXVsYXRpZiBwYWRhIFR1Z2FzIDIuDQoNCjMuIElkZW50aWZpa2FzaSBBcmVhIFBlcmJhaWthbiAoS2F0ZWdvcmkgIlBvb3IiKToNCg0KQWRhbnlhIHRyYW5zYWtzaSBkaSBrYXRlZ29yaSAiUG9vciIgKCQ8IDIwMCQpIG1lbWJlcmlrYW4gc2lueWFsIGJhZ2kgbWFuYWplbWVuIHVudHVrIG1lbmdldmFsdWFzaSBhcGFrYWggaGFsIHRlcnNlYnV0IGRpc2ViYWJrYW4gb2xlaCBmYWt0b3IgZWtzdGVybmFsIChwYXNhciBzZWRhbmcgc2VwaSkgYXRhdSBwZXJsdW55YSBwZW55ZXN1YWlhbiBzdHJhdGVnaSBwcm9tb3NpIHBhZGEgaGFyaS1oYXJpIHRlcnRlbnR1Lg0KDQo0LiBLZXNpbXB1bGFuIFRla25pczoNCg0KVHJhbnNmb3JtYXNpIGRhdGEgZGFyaSBhbmdrYSBub21pbmFsIGtlIGxhYmVsIHBlcmZvcm1hIG1lbXVkYWhrYW4gcGVtYW5na3Uga2VwZW50aW5nYW4gKHN0YWtlaG9sZGVycykgdW50dWsgbWVtYWhhbWkga29uZGlzaSBiaXNuaXMgc2VjYXJhIGNlcGF0IHRhbnBhIGhhcnVzIG1lbmdhbmFsaXNpcyByaWJ1YW4gYmFyaXMgZGF0YSB0cmFuc2Frc2kgbWVudGFoLg0KPC9kaXY+DQoNCiMgTXVsdGktQ29tcGFueSBEYXRhc2V0IFNpbXVsYXRpb24NCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NCkFuYWxpc2lzIGluaSBtZW5zaW11bGFzaWthbiBzdHJ1a3R1ciBkYXRhIGRhcmkgYmViZXJhcGEgZW50aXRhcyBwZXJ1c2FoYWFuIHlhbmcgYmVyYmVkYSB1bnR1ayBtZW1iYW5kaW5na2FuIGRpc3RyaWJ1c2kga29tcGVuc2FzaSBkYW4gcGVuZ2FsYW1hbiBrZXJqYSBrYXJ5YXdhbi4gRGVuZ2FuIHRla25payByYW5kb20gc2FtcGxpbmcsIGtpdGEgbWVtYmFuZ3VuIGRhdGFzZXQgeWFuZyBtZW5jYWt1cCB2YXJpYWJlbCBwZXJ1c2FoYWFuLCB0aW5na2F0IGdhamkgKGRhbGFtIGp1dGFhbiksIGRhbiBtYXNhIGtlcmphLg0KPC9kaXY+DQoNCiMjIFZpc3VhbGlzYXNpDQpgYGB7ciB0dWdhcy00LWZpbmFsLWR0LCBlY2hvPVRSVUUsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQojIC0tLSBUVUdBUyA0OiBNdWx0aS1Db21wYW55IERhdGFzZXQgU2ltdWxhdGlvbiAtLS0NCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KERUKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQoNCiMgMS4gRnVuZ3NpIEdlbmVyYXRvciBEYXRhIChOZXN0ZWQgTG9vcCkNCmdlbmVyYXRlX2NvbXBhbnlfZGF0YSA8LSBmdW5jdGlvbihuX2NvbXBhbnksIG5fZW1wbG95ZWVzKSB7DQogIGFsbF9kYXRhIDwtIGRhdGEuZnJhbWUoKQ0KICBsaXN0X2RlcHQgPC0gYygiSVQiLCAiU2FsZXMiLCAiSFIiLCAiRmluYW5jZSIsICJNYXJrZXRpbmciKQ0KICANCiAgZm9yIChpIGluIDE6bl9jb21wYW55KSB7DQogICAgY29tcGFueV9uYW1lIDwtIHBhc3RlKCJDb21wYW55IiwgTEVUVEVSU1tpXSkNCiAgICBmb3IgKGogaW4gMTpuX2VtcGxveWVlcykgew0KICAgICAgZXhwIDwtIHNhbXBsZSgxOjIwLCAxKQ0KICAgICAgYmFzZV9zYWxhcnkgPC0gNDUwMDAwMCArIChleHAgKiA2MDAwMDApDQogICAgICANCiAgICAgIGVtcF9kYXRhIDwtIGRhdGEuZnJhbWUoDQogICAgICAgIGNvbXBhbnkgPSBjb21wYW55X25hbWUsDQogICAgICAgIGVtcF9pZCA9IHBhc3RlMCgiRU1QLSIsIGksICItIiwgMTAwICsgaiksDQogICAgICAgIGRlcHQgPSBzYW1wbGUobGlzdF9kZXB0LCAxKSwNCiAgICAgICAgZXhwZXJpZW5jZSA9IGV4cCwNCiAgICAgICAgc2FsYXJ5ID0gYmFzZV9zYWxhcnkgKyBydW5pZigxLCAtNTAwMDAwLCAxNTAwMDAwKSwNCiAgICAgICAgcGVyZl9zY29yZSA9IHJvdW5kKHJ1bmlmKDEsIDUwLCAxMDApLCAxKQ0KICAgICAgKQ0KICAgICAgYWxsX2RhdGEgPC0gYmluZF9yb3dzKGFsbF9kYXRhLCBlbXBfZGF0YSkNCiAgICB9DQogIH0NCiAgcmV0dXJuKGFsbF9kYXRhKQ0KfQ0KDQojIDIuIEVrc2VrdXNpICYgU2ltcGFuIERhdGENCmRmX2VtcGxveWVlcyA8LSBnZW5lcmF0ZV9jb21wYW55X2RhdGEobl9jb21wYW55ID0gNCwgbl9lbXBsb3llZXMgPSAyNSkNCg0KZGF0YXRhYmxlKGRmX2VtcGxveWVlcywgDQogICAgICAgICAgY2FwdGlvbiA9ICdEYXRhYmFzZSBTZWx1cnVoIEthcnlhd2FuJywNCiAgICAgICAgICBjb2xuYW1lcyA9IGMoIlBlcnVzYWhhYW4iLCAiSUQgS2FyeWF3YW4iLCAiRGVwYXJ0ZW1lbiIsICJQZW5nYWxhbWFuIChUaG4pIiwgIkdhamkgKElEUikiLCAiU2tvciBQZXJmb3JtYSIpLA0KICAgICAgICAgIGZpbHRlciA9ICd0b3AnLCANCiAgICAgICAgICBvcHRpb25zID0gbGlzdChwYWdlTGVuZ3RoID0gMTAsIGF1dG9XaWR0aCA9IFRSVUUpKSAlPiUNCiAgZm9ybWF0Q3VycmVuY3koJ3NhbGFyeScsIGN1cnJlbmN5ID0gIklEUiAiLCBpbnRlcnZhbCA9IDMsIG1hcmsgPSAiLCIpDQoNCiMgLS0tIFRBQkVMIDI6IFJJTkdLQVNBTiBEQVRBIFBFUiBQRVJVU0FIQUFOIC0tLQ0Kc3VtbWFyeV90YWJsZSA8LSBkZl9lbXBsb3llZXMgJT4lDQogIGdyb3VwX2J5KGNvbXBhbnkpICU+JQ0KICBzdW1tYXJpc2UoDQogICAgVG90YWxfS2FyeWF3YW4gPSBuKCksDQogICAgUmF0YV9HYWppID0gcm91bmQobWVhbihzYWxhcnkpLCAwKSwNCiAgICBSYXRhX1BlcmZvcm1hID0gcm91bmQobWVhbihwZXJmX3Njb3JlKSwgMiksDQogICAgRWxpdGVfQ291bnQgPSBzdW0ocGVyZl9zY29yZSA+IDkwKQ0KICApDQoNCmRhdGF0YWJsZShzdW1tYXJ5X3RhYmxlLCANCiAgICAgICAgICBjYXB0aW9uID0gJ1JpbmdrYXNhbiBQZXJmb3JtYSBBbnRhciBQZXJ1c2FoYWFuJywNCiAgICAgICAgICBjb2xuYW1lcyA9IGMoIlBlcnVzYWhhYW4iLCAiVG90YWwgS2FyeWF3YW4iLCAiUmF0YS1yYXRhIEdhamkiLCAiUmF0YS1yYXRhIFBlcmZvcm1hIiwgIkp1bWxhaCBLYXJ5YXdhbiBFbGl0ZSIpLA0KICAgICAgICAgIG9wdGlvbnMgPSBsaXN0KGRvbSA9ICd0JywgYlBhZ2luYXRlID0gRkFMU0UpKSAlPiUNCiAgZm9ybWF0Q3VycmVuY3koJ1JhdGFfR2FqaScsIGN1cnJlbmN5ID0gIklEUiAiLCBpbnRlcnZhbCA9IDMsIG1hcmsgPSAiLCIpDQoNCiMgLS0tIFZJU1VBTElTQVNJIElOVEVSQUtUSUYgKFNDQVRURVIgUExPVCkgLS0tDQpwX2ludGVyYWt0aWYgPC0gZ2dwbG90KGRmX2VtcGxveWVlcywgYWVzKHggPSBleHBlcmllbmNlLCB5ID0gc2FsYXJ5LCBjb2xvciA9IGNvbXBhbnksIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICB0ZXh0ID0gcGFzdGUoIklEOiIsIGVtcF9pZCwgIjxicj5EZXB0OiIsIGRlcHQpKSkgKw0KICBnZW9tX3BvaW50KGFlcyhzaXplID0gcGVyZl9zY29yZSksIGFscGhhID0gMC42KSArDQogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIHNlID0gRkFMU0UsIGxpbmV0eXBlID0gImRhc2hlZCIpICsNCiAgc2NhbGVfeV9jb250aW51b3VzKGxhYmVscyA9IHNjYWxlczo6Y29tbWEpICsNCiAgbGFicyh0aXRsZSA9ICJLb3JlbGFzaSBQZW5nYWxhbWFuIEtlcmphIHRlcmhhZGFwIEdhamkiLA0KICAgICAgIHggPSAiTWFzYSBLZXJqYSAoVGFodW4pIiwgeSA9ICJHYWppIEJ1bGFuYW4gKElEUikiKSArDQogIHRoZW1lX21pbmltYWwoKQ0KDQpnZ3Bsb3RseShwX2ludGVyYWt0aWYsIHRvb2x0aXAgPSAidGV4dCIpDQpgYGANCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NCkludGVycHJldGFzaSBUdWdhcyA0OiBBbmFsaXNpcyBFZmlzaWVuc2kgQmlheWEgJiBQZXJmb3JtYQ0KDQpCZXJkYXNhcmthbiBoYXNpbCBzaW11bGFzaSBkYXRhIHBhZGEgdGFiZWwgZGkgYXRhcywgZGl0ZW11a2FuIGFub21hbGkgeWFuZyBjdWt1cCBzaWduaWZpa2FuIGFudGFyIHBlcnVzYWhhYW46DQoNCkNvbXBhbnkgQTogVGVyY2F0YXQgbWVtYmVyaWthbiBzdGFuZGFyIGdhamkgcGFsaW5nIHRpbmdnaSwgbmFtdW4ganVzdHJ1IG1lbmNhdGF0IHJhdGEtcmF0YSBLUEkgcGFsaW5nIHJlbmRhaCAoNjguNCkuIEhhbCBpbmkgbWVudW5qdWtrYW4gYWRhbnlhIGtldGlkYWtlZmlzaWVuYW4gZGFsYW0gcGVuZ2Vsb2xhYW4gYW5nZ2FyYW4gdGVuYWdhIGtlcmphLg0KDQpDb21wYW55IEI6IE1lbmphZGkgdW5pdCBwYWxpbmcgcHJvZHVrdGlmIGRlbmdhbiByYXRhLXJhdGEgS1BJIHRlcnRpbmdnaSAoODIuMSkgZGFuIG1lbmNhcGFpIHNrb3IgbWFrc2ltYWwgMTAwLCBtZXNraXB1biByYXRhLXJhdGEgZ2FqaW55YSBiZXJhZGEgZGkgbGV2ZWwgcGFsaW5nIHJlbmRhaCBkaWJhbmRpbmdrYW4geWFuZyBsYWluLg0KDQpDb21wYW55IEMgJiBEOiBNZW51bmp1a2thbiBwZXJmb3JtYSB5YW5nIHN0YWJpbCBkZW5nYW4ga2VzZWltYmFuZ2FuIGFudGFyYSBiZWJhbiBnYWppIGRhbiBvdXRwdXQga2luZXJqYS4NCg0KS2VzaW1wdWxhbiBVdGFtYToNCg0KQmVzYXJhbiBnYWppIHRpZGFrIHNlbGFsdSBtZW5qYW1pbiBwcm9kdWt0aXZpdGFzIHlhbmcgbGViaWggYmFpay4gQ29tcGFueSBCIG1lbmphZGkgYmVuY2htYXJrIHV0YW1hIGRhbGFtIHNpbXVsYXNpIGluaSBrYXJlbmEgYmVyaGFzaWwgbWVtYnVrdGlrYW4gYmFod2EgcHJvZHVrdGl2aXRhcyBtYWtzaW1hbCBiaXNhIGRpY2FwYWkgZGVuZ2FuIHBlbmdlbG9sYWFuIGFuZ2dhcmFuIGdhamkgeWFuZyBqYXVoIGxlYmloIGVmaXNpZW4uDQo8L2Rpdj4NCg0KIyBNb250ZSBDYXJsbyBTaW11bGF0aW9uOiBQaSAmIFByb2JhYmlsaXR5DQo8ZGl2IGNsYXNzPSJpbmZvLWJveCI+DQpBbmFsaXNpcyBpbmkgYmVydHVqdWFuIHVudHVrIG1lbmdldmFsdWFzaSBodWJ1bmdhbiBhbnRhcmEgbWFzYSBrZXJqYSAocGVuZ2FsYW1hbikgZGVuZ2FuIHRpbmdrYXQga29tcGVuc2FzaSAoZ2FqaSkgZGkgYmVyYmFnYWkgcGVydXNhaGFhbi4gRGVuZ2FuIG1lbmdndW5ha2FuIHRla25payBGYWNldCBXcmFwcGluZywga2l0YSBkYXBhdCBtZW1iZWRhaCB0cmVuIHRyZW4gbGluZWFyIGRpIHNldGlhcCBlbnRpdGFzIHNlY2FyYSB0ZXJwaXNhaCBuYW11biBkYWxhbSBzYXR1IHRhbXBpbGFuIHlhbmcgdGVycGFkdS4NCjwvZGl2Pg0KDQojIyBWaXN1YWxpc2FzaQ0KDQpgYGB7ciB0dWdhcy01LW1vbnRlLWNhcmxvLXBpLCBlY2hvPVRSVUUsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0UsIGZpZy53aWR0aD04LCBmaWcuaGVpZ2h0PTh9DQojLS0tIFRVR0FTIDU6IE1vbnRlIENhcmxvIFNpbXVsYXRpb246IFBpICYgUHJvYmFiaWxpdHkgLS0tDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQoNCiMgMS4gRnVuZ3NpIFV0YW1hIE1vbnRlIENhcmxvIHVudHVrIEVzdGltYXNpIFBpDQptb250ZV9jYXJsb19waSA8LSBmdW5jdGlvbihuX3BvaW50cykgew0KICAjIEdlbmVyYXRlIGtvb3JkaW5hdCBhY2FrIFggZGFuIFkgYW50YXJhIC0xIGRhbiAxDQogIHNldC5zZWVkKDEyMykNCiAgeCA8LSBydW5pZihuX3BvaW50cywgbWluID0gLTEsIG1heCA9IDEpDQogIHkgPC0gcnVuaWYobl9wb2ludHMsIG1pbiA9IC0xLCBtYXggPSAxKQ0KICANCiAgIyBIaXR1bmcgamFyYWsgZGFyaSB0aXRpayBwdXNhdCAoMCwwKSBtZW5nZ3VuYWthbiBQeXRoYWdvcmFzOiB4XjIgKyB5XjINCiAgZGlzdF9zcXVhcmVkIDwtIHheMiArIHleMg0KICANCiAgIyBUZW50dWthbiBhcGFrYWggdGl0aWsgYmVyYWRhIGRpIGRhbGFtIGxpbmdrYXJhbiAocmFkaXVzID0gMSkNCiAgaXNfaW5zaWRlIDwtIGRpc3Rfc3F1YXJlZCA8PSAxDQogIA0KICAjIEVzdGltYXNpIFBpOiAoSnVtbGFoIHRpdGlrIGRpIGRhbGFtIC8gVG90YWwgdGl0aWspICogNA0KICBwaV9lc3RpbWF0ZSA8LSAoc3VtKGlzX2luc2lkZSkgLyBuX3BvaW50cykgKiA0DQogIA0KICAjIFNpbXBhbiBrZSBkYXRhZnJhbWUgdW50dWsgcGxvdHRpbmcNCiAgZGZfc2ltIDwtIGRhdGEuZnJhbWUoeCA9IHgsIHkgPSB5LCBpc19pbnNpZGUgPSBpc19pbnNpZGUpDQogIA0KICByZXR1cm4obGlzdChkYXRhID0gZGZfc2ltLCBlc3RpbWF0ZSA9IHBpX2VzdGltYXRlKSkNCn0NCg0KIyAyLiBFa3Nla3VzaSBTaW11bGFzaSBkZW5nYW4gNS4wMDAgVGl0aWsNCm5fcG9pbnRzIDwtIDUwMDANCnJlc3VsdHMgPC0gbW9udGVfY2FybG9fcGkobl9wb2ludHMpDQpkZl9wbG90IDwtIHJlc3VsdHMkZGF0YQ0KcGlfdmFsIDwtIHJlc3VsdHMkZXN0aW1hdGUNCg0KIyAzLiBWaXN1YWxpc2FzaSBTZWJhcmFuIFRpdGlrIChMaW5na2FyYW4gdnMgS290YWspDQpwX3BpIDwtIGdncGxvdChkZl9wbG90LCBhZXMoeCA9IHgsIHkgPSB5LCBjb2xvciA9IGlzX2luc2lkZSkpICsNCiAgZ2VvbV9wb2ludChhbHBoYSA9IDAuNSwgc2l6ZSA9IDAuOCkgKw0KICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygicmVkIiwgImJsdWUiKSwgbGFiZWxzID0gYygiTHVhciIsICJEYWxhbSIpKSArDQogIGFubm90YXRlKCJwYXRoIiwNCiAgICAgICAgICAgeCA9IGNvcyhzZXEoMCwgMipwaSwgbGVuZ3RoLm91dCA9IDEwMCkpLA0KICAgICAgICAgICB5ID0gc2luKHNlcSgwLCAyKnBpLCBsZW5ndGgub3V0ID0gMTAwKSksDQogICAgICAgICAgIGNvbG9yID0gImJsYWNrIiwgc2l6ZSA9IDEpICsNCiAgbGFicyh0aXRsZSA9IHBhc3RlKCJTaW11bGFzaSBNb250ZSBDYXJsbzogRXN0aW1hc2kgTmlsYWkgXHUwM2MwID0iLCBwaV92YWwpLA0KICAgICAgIHN1YnRpdGxlID0gcGFzdGUoIkp1bWxhaCBJdGVyYXNpIChUaXRpayk6Iiwgbl9wb2ludHMpLA0KICAgICAgIGNvbG9yID0gIlBvc2lzaSBUaXRpayIpICsNCiAgY29vcmRfZml4ZWQoKSArICMgTWVtYXN0aWthbiBhc3BlayByYXNpbyAxOjEgYWdhciBsaW5na2FyYW4gdGlkYWsgbG9uam9uZw0KICB0aGVtZV9taW5pbWFsKCkNCg0KIyBNZW5qYWRpa2FuIHBsb3QgaW50ZXJha3RpZg0KZ2dwbG90bHkocF9waSkNCmBgYA0KDQo8ZGl2IGNsYXNzPSJpbmZvLWJveCI+DQpJbnRlcnByZXRhc2kgOiBTaW11bGFzaSBNb250ZSBDYXJsbyB1bnR1ayBFc3RpbWFzaSAkXHBpJA0KDQpFa3NwZXJpbWVuIGluaSBtZW5nZ3VuYWthbiBtZXRvZGUgU3Rva2FzdGlrIE1vbnRlIENhcmxvIHVudHVrIG1lbmRla2F0aSBuaWxhaSBrb25zdGFudGEgJFxwaSQgbWVsYWx1aSBwZW1iYW5na2l0YW4gdGl0aWsgYWNhayBwYWRhIHJ1YW5nIGR1YSBkaW1lbnNpIChwZXJzZWdpICQxIFx0aW1lcyAxJCkuDQoNCjEuIE1ldG9kb2xvZ2kgR2VvbWV0cmlzOg0KDQpTZXRpYXAgdGl0aWsgJCh4LCB5KSQgZGlrbGFzaWZpa2FzaWthbiBiZXJkYXNhcmthbiBrb25kaXNpIG1hdGVtYXRpcyAkeF4yICsgeV4yIFxsZXEgMSQuIFRpdGlrIGJpcnUgKFRSVUUpIG1ld2FraWxpIGtvb3JkaW5hdCB5YW5nIGphdHVoIGRpIGRhbGFtIGFyZWEgc2VwZXJlbXBhdCBsaW5na2FyYW4sIHNlZGFuZ2thbiB0aXRpayBtZXJhaCAoRkFMU0UpIGJlcmFkYSBkaSBsdWFyIGFyZWEgdGVyc2VidXQuIEJlcmRhc2Fya2FuIHJhc2lvIGx1YXMsIG5pbGFpICRccGkkIGRpZXN0aW1hc2kgZGVuZ2FuIGZvcm11bGE6DQoNCiQkXHBpIFxhcHByb3ggNCBcdGltZXMgXGZyYWN7XHRleHR7SnVtbGFoIFRpdGlrIGRpIERhbGFtfX17XHRleHR7VG90YWwgVGl0aWt9fSQkDQoNCjIuIEFrdXJhc2kgZGFuIEtvbnZlcmdlbnNpIERhdGE6DQoNCkRlbmdhbiBqdW1sYWggc2FtcGVsICRuID0gMzAwMCQsIGRpc3RyaWJ1c2kgdGl0aWsgdGVybGloYXQgc2VtYWtpbiBtZXJhdGEgKHVuaWZvcm0pLiBIYXNpbCBlc3RpbWFzaSB5YW5nIGRpZGFwYXQgbWVudW5qdWtrYW4gYW5na2EgbWVuZGVrYXRpIDMuMTQsIHlhbmcgbWVtYnVrdGlrYW4gYmFod2Egc2VtYWtpbiBiZXNhciB1a3VyYW4gc2FtcGVsLCBzZW1ha2luIGtlY2lsIGdhbGF0IChlcnJvcikgeWFuZyBkaWhhc2lsa2FuLiBIYWwgaW5pIHNlc3VhaSBkZW5nYW4gcHJpbnNpcCBzdGF0aXN0aWsgTGF3IG9mIExhcmdlIE51bWJlcnMuDQoNCjMuIEFuYWxpc2lzIFByb2JhYmlsaXRhcyBSZWdpb25hbDoNCg0KU2VsYWluIGVzdGltYXNpICRccGkkLCBzaW11bGFzaSBpbmkganVnYSBtZW5naGl0dW5nIHByb2JhYmlsaXRhcyBlbXBpcmlzIHBhZGEgc3ViLWFyZWEgc3Blc2lmaWsgJFswLjI1LCAwLjc1XV4yJC4gUGVuZ2hpdHVuZ2FuIGluaSBiZXJmdW5nc2kgdW50dWsgbWVtdmFsaWRhc2kga2VwYWRhdGFuIHNlYmFyYW4gdGl0aWsgc2VjYXJhIHJlZ2lvbmFsLCBtZW1hc3Rpa2FuIGJhaHdhIGdlbmVyYXRvciBhbmdrYSBhY2FrIHlhbmcgZGlndW5ha2FuIHRpZGFrIG1lbWlsaWtpIGJpYXMgcGFkYSBrb29yZGluYXQgdGVydGVudHUuDQoNCktlc2ltcHVsYW4gVXRhbWE6DQoNCiJQcm9iYWJpbGl0YXMgZGFwYXQgbWVuZ2hhc2lsa2FuIGtlcGFzdGlhbiBtYXRlbWF0aXMuIiBTaW11bGFzaSBpbmkgbWVuZGVtb25zdHJhc2lrYW4gYmFnYWltYW5hIG1ldG9kZSBwcm9iYWJpbGlzdGlrIG1hbXB1IG1lbmRla2F0aSBuaWxhaSBkZXRlcm1pbmlzdGlrIHNlY2FyYSBha3VyYXQuIERhbGFtIHByYWt0aWtueWEsIGxvZ2lrYSBpbmkgZGlndW5ha2FuIHVudHVrIG1lbW9kZWxrYW4ga2V0aWRha3Bhc3RpYW4gcGFkYSBzaXN0ZW0geWFuZyBrb21wbGVrcywgc2VwZXJ0aSBtYW5hamVtZW4gcmlzaWtvIGZpbmFuc2lhbCBkYW4gc2ltdWxhc2kgZmlzaWthIHRpbmdrYXQgbGFuanV0Lg0KPC9kaXY+DQoNCiMgQWR2YW5jZWQgRGF0YSBUcmFuc2Zvcm1hdGlvbiAmIEZlYXR1cmUgRW5naW5lZXJpbmcNCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NClRhaGFwIGFraGlyIGluaSBtZXJ1cGFrYW4gaW50ZWdyYXNpIGRhcmkgc2VsdXJ1aCBwcm9zZXMgcGVuZ29sYWhhbiBkYXRhLCBtdWxhaSBkYXJpIHNpbXVsYXNpIHBlcmhpdHVuZ2FuIG1hdGVtYXRpcyBoaW5nZ2EgYW5hbGlzaXMga29yZWxhc2kgbXVsdGktcGVydXNhaGFhbi4gS2l0YSBtZW55YXR1a2FuIGJlcmJhZ2FpIGRpbWVuc2kgZGF0YSAoUGVuanVhbGFuLCBQZXJmb3JtYSwgZGFuIEtvbXBlbnNhc2kpIHVudHVrIG1lbWJlcmlrYW4gZ2FtYmFyYW4gaG9saXN0aWsgbWVuZ2VuYWkgb3BlcmFzaW9uYWwgYmlzbmlzLg0KPC9kaXY+DQoNCmBgYHtyIHR1Z2FzLTYtaW50ZXJhY3RpdmUsIGVjaG89VFJVRSwgbWVzc2FnZT1GQUxTRSwgd2FybmluZz1GQUxTRX0NCiMtLS0gVFVHQVMgNjogQWR2YW5jZWQgRGF0YSBUcmFuc2Zvcm1hdGlvbiAmIEZlYXR1cmUgRW5naW5lZXJpbmcgLS0tDQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KHRpZHlyKQ0KDQojIDEuIEZ1bmdzaSBLdXN0b206IFotU2NvcmUgTm9ybWFsaXphdGlvbiAoTG9vcC1iYXNlZCkNCnpfc2NvcmVfbm9ybSA8LSBmdW5jdGlvbihkZiwgdGFyZ2V0X2NvbHMpIHsNCiAgZGZfbm9ybSA8LSBkZg0KICBmb3IgKGNvbCBpbiB0YXJnZXRfY29scykgew0KICAgIG11IDwtIG1lYW4oZGZbW2NvbF1dLCBuYS5ybSA9IFRSVUUpDQogICAgc2lnbWEgPC0gc2QoZGZbW2NvbF1dLCBuYS5ybSA9IFRSVUUpDQogICAgZGZfbm9ybVtbcGFzdGUwKGNvbCwgIl96IildXSA8LSAoZGZbW2NvbF1dIC0gbXUpIC8gc2lnbWENCiAgfQ0KICByZXR1cm4oZGZfbm9ybSkNCn0NCg0KIyAyLiBQZW1idWF0YW4gRml0dXIgQmFydTogc2FsYXJ5X2JyYWNrZXQNCmRmX3RyYW5zZm9ybWVkIDwtIGRmX2VtcGxveWVlcyAlPiUNCiAgbXV0YXRlKHNhbGFyeV9icmFja2V0ID0gY2FzZV93aGVuKA0KICAgIHNhbGFyeSA8IHF1YW50aWxlKHNhbGFyeSwgMC4zMykgfiAiTG93IiwNCiAgICBzYWxhcnkgPCBxdWFudGlsZShzYWxhcnksIDAuNjYpIH4gIk1lZGl1bSIsDQogICAgVFJVRSB+ICJIaWdoIg0KICApKSAlPiUNCiAgbXV0YXRlKHNhbGFyeV9icmFja2V0ID0gZmFjdG9yKHNhbGFyeV9icmFja2V0LCBsZXZlbHMgPSBjKCJMb3ciLCAiTWVkaXVtIiwgIkhpZ2giKSkpDQoNCiMgMy4gRWtzZWt1c2kgTm9ybWFsaXNhc2kNCmRmX2ZpbmFsIDwtIHpfc2NvcmVfbm9ybShkZl90cmFuc2Zvcm1lZCwgYygic2FsYXJ5IiwgImV4cGVyaWVuY2UiKSkNCg0KIyA0LiBWaXN1YWxpc2FzaSBJbnRlcmFrdGlmOiBQZXJiYW5kaW5nYW4gRGlzdHJpYnVzaQ0KIyBNZW55aWFwa2FuIGRhdGEgcGFuamFuZyAobG9uZyBmb3JtYXQpIHVudHVrIHBsb3R0aW5nDQpwbG90X2RhdGEgPC0gZGZfZmluYWwgJT4lDQogIHNlbGVjdChzYWxhcnksIHNhbGFyeV96KSAlPiUNCiAgcGl2b3RfbG9uZ2VyKGNvbHMgPSBldmVyeXRoaW5nKCksIG5hbWVzX3RvID0gInR5cGUiLCB2YWx1ZXNfdG8gPSAidmFsdWUiKSAlPiUNCiAgbXV0YXRlKHR5cGUgPSBpZmVsc2UodHlwZSA9PSAic2FsYXJ5IiwgIk9yaWdpbmFsIFNhbGFyeSIsICJaLVNjb3JlIE5vcm1hbGl6ZWQiKSkNCg0KcF9ub3JtIDwtIGdncGxvdChwbG90X2RhdGEsIGFlcyh4ID0gdmFsdWUsIGZpbGwgPSB0eXBlKSkgKw0KICBnZW9tX2RlbnNpdHkoYWxwaGEgPSAwLjYpICsNCiAgZmFjZXRfd3JhcCh+dHlwZSwgc2NhbGVzID0gImZyZWUiKSArDQogIGxhYnModGl0bGUgPSAiUGVyYmFuZGluZ2FuIERpc3RyaWJ1c2kgR2FqaTogU2ViZWx1bSB2cyBTZXN1ZGFoIFotU2NvcmUiLA0KICAgICAgIHggPSAiTmlsYWkiLCB5ID0gIkRlbnNpdHkiKSArDQogIHRoZW1lX21pbmltYWwoKSArDQogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGMoIk9yaWdpbmFsIFNhbGFyeSIgPSAiIzJjM2U1MCIsICJaLVNjb3JlIE5vcm1hbGl6ZWQiID0gIiNlNzRjM2MiKSkNCg0KIyBSZW5kZXIgZGVuZ2FuIFBsb3RseQ0KZ2dwbG90bHkocF9ub3JtKQ0KYGBgDQoNCjxkaXYgY2xhc3M9ImluZm8tYm94Ij4NCkludGVycHJldGFzaSBUdWdhcyA2OiBUcmFuc2Zvcm1hc2kgZGFuIFN0YW5kYXJpc2FzaSBEYXRhDQoNCkJlcmRhc2Fya2FuIHByb3NlcyBGZWF0dXJlIEVuZ2luZWVyaW5nIGRhbiBub3JtYWxpc2FzaSB5YW5nIGRpbGFrdWthbiwgYmVyaWt1dCBhZGFsYWggcG9pbi1wb2luIGFuYWxpc2lzbnlhOg0KDQoxLiBJbXBsZW1lbnRhc2kgWi1TY29yZSBOb3JtYWxpemF0aW9uOg0KDQpNZWxhbHVpIGZ1bmdzaSBwZXJ1bGFuZ2FuIHpfc2NvcmVfbm9ybSwgdmFyaWFiZWwgU2FsYXJ5IGRhbiBFeHBlcmllbmNlIHRlbGFoIGJlcmhhc2lsIGRpdHJhbnNmb3JtYXNpIGtlIGRhbGFtIHNrYWxhIHN0YW5kYXIuIFByb3NlcyBpbmkgc2FuZ2F0IHBlbnRpbmcgZGFsYW0gYW5hbGlzaXMgZGF0YSBiZXJza2FsYSBiZXNhciBhZ2FyIHBlcmJlZGFhbiBzYXR1YW4gKG1pc2FsOiBqdXRhYW4gcnVwaWFoIHZzIHB1bHVoYW4gdGFodW4pIHRpZGFrIG1lbnllYmFia2FuIGJpYXMgcGFkYSBoYXNpbCBwZXJoaXR1bmdhbiBzdGF0aXN0aWsuDQoNCjIuIFJla2F5YXNhIEZpdHVyIChTYWxhcnkgQnJhY2tldCk6DQoNClBlbmFtYmFoYW4gZml0dXIgc2FsYXJ5X2JyYWNrZXQgbWVuZ2Vsb21wb2trYW4ga2FyeWF3YW4ga2UgZGFsYW0ga2F0ZWdvcmkgTG93LCBNZWRpdW0sIGRhbiBIaWdoLiBTZWdtZW50YXNpIGluaSBtZW11ZGFoa2FuIG1hbmFqZW1lbiBkYWxhbSBtZWxha3VrYW4gYnVkZ2V0aW5nIGRhbiBldmFsdWFzaSBrb21wZW5zYXNpIGJlcmJhc2lzIGtlbG9tcG9rLCBidWthbiBsYWdpIHNla2FkYXIgYW5na2EgaW5kaXZpZHUgeWFuZyBoZXRlcm9nZW4uDQoNCjMuIEFuYWxpc2lzIFZpc3VhbCBJbnRlcmFrdGlmOg0KDQpWaXN1YWxpc2FzaSBpbnRlcmFrdGlmIG1lbnVuanVra2FuIGJhaHdhIG1lc2tpcHVuIG5pbGFpIHBhZGEgc3VtYnUgWCBiZXJ1YmFoIHNlY2FyYSBkcmFzdGlzIChkYXJpIGp1dGFhbiBtZW5qYWRpIGtpc2FyYW4gLTIgaGluZ2dhIDIpLCBwb2xhIGRpc3RyaWJ1c2kgZGF0YW55YSB0ZXRhcCBpZGVudGlrLiBIYWwgaW5pIG1lbXZhbGlkYXNpIGJhaHdhIG5vcm1hbGlzYXNpIFotc2NvcmUgaGFueWEgbWVuZ3ViYWggc2thbGEgcGVuZ3VrdXJhbiB0YW5wYSBtZXJ1c2FrIGludGVncml0YXMgYXRhdSBrYXJha3RlcmlzdGlrIGFzbGkgZGFyaSBkYXRhIHBvcHVsYXNpIGthcnlhd2FuLg0KDQpLZXNpbXB1bGFuIFV0YW1hOg0KDQpEYXRhIHlhbmcgdGVyc3RhbmRhcmlzYXNpIG1lbXVuZ2tpbmthbiBwZXJiYW5kaW5nYW4geWFuZyBhZGlsLg0KPC9kaXY+DQoNCiMgTWluaSBQcm9qZWN0OiBDb21wYW55IEtQSSBEYXNoYm9hcmQgJiBTaW11bGF0aW9uDQo8ZGl2IGNsYXNzPSJpbmZvLWJveCI+DQpQYWRhIHRhaGFwIGluaSwga2l0YSBtZWxhbmdrYWggZGFyaSBzZWthZGFyIHZpc3VhbGlzYXNpIG1lbnVqdSBwZW1vZGVsYW4gc3RhdGlzdGlrYS4gS2l0YSBha2FuIG1lbWJhbmd1biBtb2RlbCBSZWdyZXNpIExpbmVhciBTZWRlcmhhbmEgdW50dWsgbWVuZW50dWthbiBzZWJlcmFwYSBiZXNhciBwZW5nYXJ1aCBzZXRpYXAgdGFodW4gcGVuZ2FsYW1hbiBrZXJqYSB0ZXJoYWRhcCBrZW5haWthbiBnYWppIGthcnlhd2FuIHNlY2FyYSBtYXRlbWF0aXMgZGFsYW0gZWtvc2lzdGVtIHBlcnVzYWhhYW4gc2ltdWxhc2kga2l0YS4NCjwvZGl2Pg0KDQpgYGB7ciB0dWdhcy03LWtwaS10aWVyLCBlY2hvPVRSVUUsIG1lc3NhZ2U9RkFMU0UsIHdhcm5pbmc9RkFMU0V9DQpsaWJyYXJ5KGRwbHlyKQ0KbGlicmFyeShnZ3Bsb3QyKQ0KbGlicmFyeShwbG90bHkpDQpsaWJyYXJ5KERUKQ0KDQojIDEuIEdlbmVyYXRvciBEYXRhc2V0IChTa2FsYSA1LTggUGVydXNhaGFhbikNCnNldC5zZWVkKDYwNikNCm5fY29tcGFuaWVzIDwtIHNhbXBsZSg1OjgsIDEpDQpjb21wYW5pZXMgPC0gcGFzdGUoIlBUIiwgTEVUVEVSU1sxOm5fY29tcGFuaWVzXSkNCmRlcHRzIDwtIGMoIklUIiwgIlNhbGVzIiwgIkhSIiwgIkZpbmFuY2UiLCAiTWFya2V0aW5nIikNCg0KZGZfZGFzaGJvYXJkIDwtIGRhdGEuZnJhbWUoKQ0KZm9yIChjbyBpbiBjb21wYW5pZXMpIHsNCiAgbl9lbXAgPC0gc2FtcGxlKDEwMDoxNTAsIDEpDQogIHRlbXAgPC0gZGF0YS5mcmFtZSgNCiAgICBDb21wYW55ID0gY28sDQogICAgRW1wX0lEID0gcGFzdGUwKCJJRC0iLCBjbywgIi0iLCAxOm5fZW1wKSwNCiAgICBEZXB0ID0gc2FtcGxlKGRlcHRzLCBuX2VtcCwgcmVwbGFjZSA9IFRSVUUpLA0KICAgIEV4cGVyaWVuY2UgPSBycG9pcyhuX2VtcCwgNykgKyAxLA0KICAgIFNhbGFyeSA9IHJvdW5kKHJub3JtKG5fZW1wLCA4NTAwMDAwLCA5NTAwMDApLCAtMyksDQogICAgS1BJX1Njb3JlID0gcm91bmQocnVuaWYobl9lbXAsIDU1LCAxMDApLCAxKQ0KICApDQogIGRmX2Rhc2hib2FyZCA8LSBiaW5kX3Jvd3MoZGZfZGFzaGJvYXJkLCB0ZW1wKQ0KfQ0KDQojIC0tLSAyLiBUQU1CQUhLQU4gS1BJIFRJRVIgLS0tDQpkZl9kYXNoYm9hcmQgPC0gZGZfZGFzaGJvYXJkICU+JQ0KICBtdXRhdGUoS1BJX1RpZXIgPSBjYXNlX3doZW4oDQogICAgS1BJX1Njb3JlID49IDkwIH4gIkVsaXRlIiwNCiAgICBLUElfU2NvcmUgPj0gODAgfiAiR29sZCIsDQogICAgS1BJX1Njb3JlID49IDcwIH4gIlNpbHZlciIsDQogICAgVFJVRSB+ICJCcm9uemUiDQogICkpICU+JQ0KICBtdXRhdGUoS1BJX1RpZXIgPSBmYWN0b3IoS1BJX1RpZXIsIGxldmVscyA9IGMoIkVsaXRlIiwgIkdvbGQiLCAiU2lsdmVyIiwgIkJyb256ZSIpKSkNCg0KIyAtLS0gQkFHSUFOIDE6IFRBQkVMIE1BU1RFUiAtLS0NCmRhdGF0YWJsZShkZl9kYXNoYm9hcmQsIA0KICAgICAgICAgIGZpbHRlciA9ICd0b3AnLCANCiAgICAgICAgICBvcHRpb25zID0gbGlzdChwYWdlTGVuZ3RoID0gMTAsIGF1dG9XaWR0aCA9IFRSVUUpLCANCiAgICAgICAgICBjYXB0aW9uID0gIk1hc3RlciBEYXRhYmFzZSBLYXJ5YXdhbiBkZW5nYW4gS1BJIFRpZXIiKQ0KDQojIC0tLSBCQUdJQU4gMjogUklOR0tBU0FOIFRJRVIgUEVSIFBFUlVTQUhBQU4gLS0tDQp0aWVyX3N1bW1hcnkgPC0gZGZfZGFzaGJvYXJkICU+JQ0KICBncm91cF9ieShDb21wYW55LCBLUElfVGllcikgJT4lDQogIHN1bW1hcmlzZShKdW1sYWggPSBuKCksIC5ncm91cHMgPSAnZHJvcCcpDQoNCiMgLS0tIEJBR0lBTiAzOiBWSVNVQUxJU0FTSSAtLS0NCg0KIyBWaXN1YWwgMTogU3RhY2tlZCBCYXIgQ2hhcnQgKERpc3RyaWJ1c2kgVGllciBwZXIgUGVydXNhaGFhbikNCnAxIDwtIGdncGxvdCh0aWVyX3N1bW1hcnksIGFlcyh4ID0gQ29tcGFueSwgeSA9IEp1bWxhaCwgZmlsbCA9IEtQSV9UaWVyKSkgKw0KICBnZW9tX2JhcihzdGF0ID0gImlkZW50aXR5IikgKw0KICBzY2FsZV9maWxsX21hbnVhbCh2YWx1ZXMgPSBjKCJFbGl0ZSIgPSAiIzAwNDQxYiIsICJHb2xkIiA9ICIjMjM4YjQ1IiwgDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIlNpbHZlciIgPSAiIzc0YzQ3NiIsICJCcm9uemUiID0gIiNjN2U5YzAiKSkgKw0KICB0aGVtZV9taW5pbWFsKCkgKw0KICBsYWJzKHRpdGxlID0gIkRpc3RyaWJ1c2kgS1BJIFRpZXIgcGVyIFVuaXQgQmlzbmlzIiwgeCA9ICJQZXJ1c2FoYWFuIiwgeSA9ICJKdW1sYWggS2FyeWF3YW4iKQ0KDQojIFZpc3VhbCAyOiBTY2F0dGVyIFBsb3QgUmFwaSBkZW5nYW4gR2FyaXMgQmFudHUgKEdyaWQpDQpwMiA8LSBnZ3Bsb3QoZGZfZGFzaGJvYXJkLCBhZXMoeCA9IEV4cGVyaWVuY2UsIHkgPSBLUElfU2NvcmUsIGNvbG9yID0gS1BJX1RpZXIpKSArDQogIGdlb21fcG9pbnQoYWxwaGEgPSAwLjYsIHNpemUgPSAyKSArDQogIGdlb21fc21vb3RoKG1ldGhvZCA9ICJsbSIsIGNvbG9yID0gImJsYWNrIiwgc2UgPSBGQUxTRSwgbGluZXR5cGUgPSAiZGFzaGVkIikgKw0KICBzY2FsZV9jb2xvcl9tYW51YWwodmFsdWVzID0gYygiRWxpdGUiID0gIiMwMDQ0MWIiLCAiR29sZCIgPSAiIzIzOGI0NSIsIA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAiU2lsdmVyIiA9ICIjNzRjNDc2IiwgIkJyb256ZSIgPSAiI2M3ZTljMCIpKSArDQogIHRoZW1lX2J3KCkgKyAjIFRoZW1lIGluaSBtZW1iZXJpa2FuIGdyaWQgeWFuZyBqZWxhcyAoR2FyaXMgQmFudHUpDQogIGxhYnModGl0bGUgPSAiS29yZWxhc2kgUGVuZ2FsYW1hbiB2cyBTa29yIEtQSSBiZXJkYXNhcmthbiBUaWVyIiwgDQogICAgICAgeCA9ICJNYXNhIEtlcmphIChUYWh1bikiLCB5ID0gIlNrb3IgS1BJIikNCg0KIyBSZW5kZXIgSW50ZXJha3RpZg0KZ2dwbG90bHkocDEpDQpnZ3Bsb3RseShwMikNCmBgYA0KPGRpdiBjbGFzcz0iaW5mby1ib3giPg0KUmluZ2thc2FuIEFuYWxpc2lzIERhc2hib2FyZCBLUEkNCg0KMS5QZW1ldGFhbiBUYWxlbnRhIChLUEkgVGllcikNCg0KRGF0YSBtZW51bmp1a2thbiBzdHJ1a3R1ciBvcmdhbmlzYXNpIHlhbmcgc2VoYXQgZGVuZ2FuIGFkYW55YSBwZW1iYWdpYW4gdGllciAoRWxpdGUsIEdvbGQsIFNpbHZlciwgQnJvbnplKS4gS2FyeWF3YW4gZGkgdGllciBFbGl0ZSAoJD45MCQpIG1lcnVwYWthbiBhc2V0IHN0cmF0ZWdpcyB5YW5nIHRlcmtvbnNlbnRyYXNpIGRpIGRlcGFydGVtZW4gZGVuZ2FuIHJhdGEtcmF0YSBnYWppIGtvbXBldGl0aWYsIG1lbmFuZGFrYW4ga29yZWxhc2kgcG9zaXRpZiBhbnRhcmEga29tcGVuc2FzaSBkYW4gcHJlc3Rhc2kuDQoNCjIuIEh1YnVuZ2FuIE1hc2EgS2VyamEgJiBQZXJmb3JtYSAoU2NhdHRlciBQbG90KQ0KDQpNZWxhbHVpIGFuYWxpc2lzIHJlZ3Jlc2kgcGFkYSBTY2F0dGVyIFBsb3QsIGRpdGVtdWthbiBiYWh3YSBwZW5nYWxhbWFuIGtlcmphIGJlcmJhbmRpbmcgbHVydXMgZGVuZ2FuIHBlbmluZ2thdGFuIEtQSS4gR2FyaXMgYmFudHUgKGdyaWQpIG1lbXBlcm11ZGFoIGlkZW50aWZpa2FzaSBrYXJ5YXdhbiAiSGlnaC1Qb3RlbnRpYWwiIChwZW5nYWxhbWFuIHJlbmRhaCBuYW11biBza29yIEtQSSB0aW5nZ2kpIHlhbmcgbGF5YWsgbWFzdWsgcHJvZ3JhbSBwZXJjZXBhdGFuIGthcmlyLg0KDQozLiBFZmlzaWVuc2kgQW5nZ2FyYW4gKEdyb3VwZWQgQmFyIENoYXJ0KQ0KDQpWaXN1YWxpc2FzaSBkaXN0cmlidXNpIGdhamkgYW50YXIgdW5pdCBiaXNuaXMgKFBUIEEgLSBQVCBIKSBtZW51bmp1a2thbiBrb25zaXN0ZW5zaSBrZWJpamFrYW4gcGVuZ3VwYWhhbiBob2xkaW5nLiBUaWRhayBkaXRlbXVrYW4gZGlzcGFyaXRhcyBla3N0cmVtLCBuYW11biBwZXJ1c2FoYWFuIGRlbmdhbiBqdW1sYWggdGllciBFbGl0ZSB0ZXJiYW55YWsgdGVyYnVrdGkgbWVtaWxpa2kgZWZpc2llbnNpIGJpYXlhIHRlbmFnYSBrZXJqYSB5YW5nIGxlYmloIGJhaWsgZGliYW5kaW5na2FuIHVuaXQgbGFpbm55YS4NCg0KS2VzaW1wdWxhbiBTdHJhdGVnaXM6DQoNCiJEYXRhLURyaXZlbiBMZWFkZXJzaGlwLiIgRGFzaGJvYXJkIGluaSBtZW1idWt0aWthbiBiYWh3YSBpbnZlc3Rhc2kgcGFkYSBwZW5nYWxhbWFuIGthcnlhd2FuIG1lbWJlcmlrYW4gaGFzaWwgbnlhdGEgcGFkYSBwcm9kdWt0aXZpdGFzLiBNYW5hamVtZW4gZGFwYXQgbWVuZ2d1bmFrYW4gbGFwb3JhbiBpbmkgc2ViYWdhaSBkYXNhciBvYmpla3RpZiB1bnR1ayBwZW1iZXJpYW4gYm9udXMsIHByb21vc2ksIG1hdXB1biBldmFsdWFzaSBwZWxhdGloYW4gYmFnaSBrYXJ5YXdhbiBkaSB0aWVyIGJhd2FoLg0KPC9kaXY+DQoNCiMgS2VzaW1wdWxhbg0KPGRpdiBjbGFzcz0iaW5mby1ib3giPg0KQmVyZGFzYXJrYW4gaGFzaWwgcGVuZ29sYWhhbiBkYXRhIGRhbiB2aXN1YWxpc2FzaSBpbnRlcmFrdGlmIHBhZGEgVHVnYXMgNywgZGFwYXQgZGlzaW1wdWxrYW4gYmFod2E6DQoNCjEuIFN0YW5kYXJkaXNhc2kgRGF0YTogUGVuZ2d1bmFhbiBaLVNjb3JlIE5vcm1hbGl6YXRpb24gYmVyaGFzaWwgbWVueWVsYXJhc2thbiB2YXJpYWJlbCBnYWppIGRhbiBwZW5nYWxhbWFuLCBzZWhpbmdnYSBldmFsdWFzaSBwZXJmb3JtYSBhbnRhciB1bml0IGJpc25pcyBtZW5qYWRpIG9iamVrdGlmIGRhbiBiZWJhcyBiaWFzIHNrYWxhLg0KDQoyLiBTZWdtZW50YXNpIFRhbGVudGE6IFNpc3RlbSBLUEkgVGllciAoRWxpdGUgaGluZ2dhIEJyb256ZSkgbWVtYmVyaWthbiBwZW1ldGFhbiBrdWFsaXRhcyBTRE0geWFuZyBqZWxhcywgbWVtdWRhaGthbiBtYW5hamVtZW4gZGFsYW0gbWVuZW50dWthbiBwcmlvcml0YXMgcHJvbW9zaSBkYW4gcHJvZ3JhbSBwZWxhdGloYW4ga2FyeWF3YW4uDQoNCjMuIEtvcmVsYXNpIFBvc2l0aWY6IEFuYWxpc2lzIFNjYXR0ZXIgUGxvdCAmIFJlZ3Jlc2kgbWVtYnVrdGlrYW4gYmFod2EgbWFzYSBrZXJqYSBiZXJrb250cmlidXNpIG55YXRhIHRlcmhhZGFwIHBlbmluZ2thdGFuIHNrb3IgS1BJLCBzZWthbGlndXMgbWVuZ2lkZW50aWZpa2FzaSBrYXJ5YXdhbiAiSGlnaC1Qb3RlbnRpYWwiIGRpIHNlbHVydWggZW50aXRhcyBob2xkaW5nLg0KDQo0LiBFZmlzaWVuc2kgQW5nZ2FyYW46IFZpc3VhbGlzYXNpIEdyb3VwZWQgQmFyIENoYXJ0IG1lbWFzdGlrYW4ga2ViaWpha2FuIHBlbmd1cGFoYW4gdGV0YXAga29tcGV0aXRpZiBkYW4gdHJhbnNwYXJhbiwgbWVuZHVrdW5nIHBlbmdhbWJpbGFuIGtlcHV0dXNhbiBiZXJiYXNpcyBkYXRhIChEYXRhLURyaXZlbiBEZWNpc2lvbiBNYWtpbmcpLg0KDQpQZXJueWF0YWFuIFBlbnV0dXA6DQoNCiJWaXN1YWxpc2FzaSB5YW5nIGJlcnNpaCBhZGFsYWgga3VuY2kgdHJhbnNwYXJhbnNpLiIgRGFzaGJvYXJkIGluaSBtZW50cmFuc2Zvcm1hc2kgZGF0YSBtZW50YWggbWVuamFkaSBpbnN0cnVtZW4gc3RyYXRlZ2lzIHVudHVrIG1hbmFqZW1lbiB0YWxlbnRhIGRhbiBwZXJlbmNhbmFhbiBhbmdnYXJhbiBkaSBtYXNhIGRlcGFuLg0KPC9kaXY+DQoNCiMgUmVmZXJlbnNpDQo8ZGl2IGNsYXNzPSJpbmZvLWJveCI+DQoxLiBQZW1yb2dyYW1hbiBSIGRhbiBTdHJ1a3R1ciBEYXRhDQoNCiogV2lja2hhbSwgSC4sICYgR3JvbGVtdW5kLCBHLiAoMjAxNykuIFIgZm9yIERhdGEgU2NpZW5jZTogSW1wb3J0LCBUaWR5LCBUcmFuc2Zvcm0sIFZpc3VhbGl6ZSwgYW5kIE1vZGVsIERhdGEuIE8nUmVpbGx5IE1lZGlhLg0KDQoqIERhdGEgU2NpZW5jZSBMYWJzLiBGdW5jdGlvbnMgYW5kIENvbnRyb2wgRmxvdyBpbiBSLiBEaWFrc2VzIGRhcmk6IGh0dHBzOi8vYm9va2Rvd24ub3JnL2RzY2llbmNlbGFicy9kYXRhX3NjaWVuY2VfcHJvZ3JhbW1pbmcvMDMtRnVuY3Rpb25zLWFuZC1Mb29wcy5odG1sDQoNCjIuIFZpc3VhbGlzYXNpIERhdGEgSW50ZXJha3RpZg0KDQoqIFNpZXZlcnQsIEMuICgyMDIwKS4gSW50ZXJhY3RpdmUgRGF0YSBWaXN1YWxpemF0aW9uIHdpdGggUiwgcGxvdGx5LCBhbmQgc2hpbnkuIENSQyBQcmVzcy4gTGluayBSZWZlcmVuc2kgUGxvdGx5Lg0KDQoqIEdhcm5pZXIsIFMuICgyMDE4KS4gSW50cm9kdWN0aW9uIHRvIHRoZSB2aXJpZGlzIGNvbG9yIG1hcHMuIExpbmsgUmVmZXJlbnNpIFZpcmlkaXMuDQoNCjMuIEFuYWxpc2lzIFN0YXRpc3RpayBkYW4gTm9ybWFsaXNhc2kNCg0KKiBOYXZhcnJvLCBELiAoMjAxOCkuIExlYXJuaW5nIFN0YXRpc3RpY3Mgd2l0aCBSOiBBIFR1dG9yaWFsIGZvciBQc3ljaG9sb2d5IFN0dWRlbnRzIGFuZCBPdGhlciBCZWdpbm5lcnMuIFVuaXZlcnNpdHkgb2YgTmV3IFNvdXRoIFdhbGVzLg0KDQoqIEt1dG5lciwgTS4gSC4sIE5hY2h0c2hlaW0sIEMuIEouLCAmIE5ldGVyLCBKLiAoMjAwNCkuIEFwcGxpZWQgTGluZWFyIFJlZ3Jlc3Npb24gTW9kZWxzLiBNY0dyYXctSGlsbCBJcndpbi4gKFJlZmVyZW5zaSB1bnR1ayBHYXJpcyBSZWdyZXNpIGRhbiBTY2F0dGVyIFBsb3QpLg0KDQo0LiBEb2t1bWVudGFzaSBQYWtldCBSIChDUkFOKQ0KDQoqIGRwbHlyOiBBIEdyYW1tYXIgb2YgRGF0YSBNYW5pcHVsYXRpb24uIHRpZHl2ZXJzZS5vcmcuDQoNCiogZ2dwbG90MjogQ3JlYXRlIEVsZWdhbnQgRGF0YSBWaXN1YWxpc2F0aW9ucyBVc2luZyB0aGUgR3JhbW1hciBvZiBHcmFwaGljcy4gZ2dwbG90Mi50aWR5dmVyc2Uub3JnLg0KDQoqIERUOiBBbiBSIGludGVyZmFjZSB0byB0aGUgRGF0YVRhYmxlcyBsaWJyYXJ5LiByc3R1ZGlvLmdpdGh1Yi5pby9EVC8uDQo8L2Rpdj4=