1 Giải thích bộ dữ liệu:

tmp <- read.csv(file.choose(), header = T)
tmp

Bộ dữ liệu chứa danh sách nhà và giá của chúng dựa trên thông số kỹ thuật và vị trí của ngôi nhà.

Dataset gồm 24.326 quan sát và 8 biến như sau:

  • bedrooms: số phòng ngủ

  • bathrooms: số phòng tắm

  • toilets: số phòng vệ sinh

  • parking_space: số chỗ đậu xe

  • title: loại nhà ở

  • town: vị trí của ngôi nhà

  • state: tiểu bang

  • price: giá bán của các ngôi nhà

2 Vẽ biểu đồ:

2.1 Biểu đồ về phòng ngủ:

2.1.1 Biểu đồ 1:

tmp %>% group_by(bedrooms) %>% summarise(n = n()) %>%
  ggplot(aes(bedrooms,n)) +
    geom_col(fill='green') +
    geom_text(aes(label = n),vjust = 2, color = 'red') +
    labs(x = 'Phòng ngủ', y = 'Số lượng', title = 'Số lượng phòng ngủ trong nhà') + scale_x_continuous(breaks = seq(0, 9, 1))

Giải thích chunk:

  • tmp %>% group_by(bedrooms) %>% summarise(n = n()): Đoạn này nhóm dữ liệu (tmp) theo biến “bedrooms” và tính tổng số lượng quan sát trong mỗi nhóm bằng cách sử dụng hàm summarise. Kết quả là một data frame mới với các cột “bedrooms” và “n” lần lượt đại diện cho biến đã nhóm và số lượng quan sát.

  • ggplot(aes(bedrooms, n)) + geom_col(fill=‘green’) + geom_text(aes(label = n), vjust = 2, color = ‘red’) + labs(x = ‘Phòng ngủ’, y = ‘Số lượng’) + scale_x_continuous(breaks = seq(0, 9, 1)): Đoạn này tạo một biểu đồ cột sử dụng gói ggplot2. Nó chỉ định các thẩm số hình thức (aes) với trục x là “bedrooms” và trục y là “n”. Sử dụng geom_col để tạo biểu đồ cột với màu xanh lá cây và geom_text để thêm nhãn lên trên mỗi cột. Nhãn của trục x được đặt là ‘Phòng ngủ’, trục y là ‘Số lượng’, và scale_x_continuous được sử dụng để đặt các điểm chia trên trục x tại các khoảng từ 0 đến 9.

Giải thích biểu đồ:

  • Biểu đồ cột dọc với 9 cột, tương đương số phòng ngủ có trong các ngôi nhà.

  • Số lượng nhà có phòng ngủ là 9 phòng và 8 phòng là thấp nhất với 163 và 169 phòng.

  • Số lượng nhà có 4 và 5 phòng là nhiều nhất.

2.1.2 Biểu đồ 2:

tmp1 <- tmp %>% filter(town=='Lekki')

Dòng này sử dụng hàm filter từ gói dplyr để lọc dữ liệu. Nó giữ lại chỉ những dòng trong data frame tmp mà có giá trị trong cột “town” là ‘Lekki’.

tmp1 %>% group_by(title) %>% summarise(m= mean(bedrooms)) %>%
  ggplot(aes(x = title,y = m)) +
    geom_col(position = 'dodge') +
    geom_text(aes(label = round(m,2)), vjust = 2, color = 'green') +
    labs(x = 'Loại phòng', y = 'Mean', title ='Số lượng phòng ngủ trung bình')

Giải thích chunk:

  • tmp1 %>% group_by(title) %>% summarise(m = mean(bedrooms)): Dòng này sử dụng dplyr để nhóm dữ liệu trong tmp1 theo cột “title” và tính giá trị trung bình của cột “bedrooms” trong từng nhóm sử dụng hàm summarise. Kết quả là một data frame mới có cột “title” và “m” đại diện cho loại phòng và giá trị trung bình của số phòng ngủ tương ứng.

  • ggplot(aes(x = title, y = m)): Đoạn này bắt đầu một đối tượng ggplot và chỉ định các aes với trục x là “title” và trục y là “m”.

  • geom_col(position = ‘dodge’): Sử dụng geom_col để vẽ biểu đồ cột, với các cột được tạo ra bởi giá trị trung bình m cho mỗi loại phòng. Tham số position = ‘dodge’ được sử dụng để tạo các cột được đặt cách xa nhau.

  • geom_text(aes(label = round(m, 2)), vjust = 2, color = ‘green’): Thêm các nhãn văn bản lên trên các cột với giá trị trung bình m. Nhãn được làm tròn đến 2 chữ số thập phân và có màu xanh lá cây.

  • labs(x = ‘Loại phòng’, y = ‘Trung bình số phòng ngủ’): Đặt nhãn cho trục x là ‘Loại phòng’ và trục y là ‘Trung bình số phòng ngủ’.

Giải thích biểu đồ:

  • Biểu đồ là về số lượng phòng ngủ có trong các loại nhà.

  • Ở loại nhà Block of flat trung bình một căn nhà sẽ có 2,51 phòng.

  • Ở loại Detached duplex, trung bình một căn nhà sẽ có 4.81 phòng.

2.2 Biểu đồ về phòng tắm:

2.2.1 Biểu đồ 3:

tmp %>% group_by(bathrooms) %>% summarise(n = n()) %>%
  ggplot(aes(bathrooms,n)) +
    geom_col(fill='green') +
    geom_text(aes(label = n),vjust = 2, color = 'red') +
    labs(x = 'Phòng tắm', y = 'Số lượng', title ='Số lượng phòng tắm trong nhà')+
  scale_x_continuous(breaks = seq(0, 9, 1))

Giải thích chunk:

  • tmp %>% group_by(bathrooms) %>% summarise(n = n()) %>%: Phần này của mã nhóm dữ liệu trong dataframe tmp theo biến “bathrooms” và tính toán số lượng (n) cho mỗi nhóm.

  • ggplot(aes(bathrooms, n)) + geom_col(fill=‘green’) + geom_text(aes(label = n), vjust = 2, color = ‘red’) + labs(x = ‘Phòng tắm’, y = ‘Số lượng’, title =‘Số lượng phòng tắm trong nhà’) + scale_x_continuous(breaks = seq(0, 9, 1)): Phần này sử dụng ggplot() để khởi tạo biểu đồ, geom_col() để tạo biểu đồ cột, geom_text() để thêm nhãn lên trên các cột và labs() để đặt nhãn cho trục và tiêu đề. Cuối cùng, scale_x_continuous() được sử dụng để đặt các điểm chia trên trục x.

Giải thích biểu đồ:

  • Đây là biểu đồ về số lượng phòng tắm ở các ngôi nhà.

  • Trong 24326 ngôi nhà được phân tích, có 275 ngôi nhà có 1 phòng tắm, 897 ngôi nhà có 2 phòng tắm, 2128 ngôi nhà có 3 phòng ngủ,…

2.2.2 Biểu đồ 4:

tmp2 <- tmp %>% filter(state=='Lagos')

Tạo một dataframe mới tmp2 bằng cách lọc các hàng trong dataframe hiện tại tmp nơi giá trị trong cột “state” bằng ‘Lagos’.

tmp2 %>% group_by(title) %>% summarise(m=mean(bathrooms)) %>%
  ggplot(aes(x = title,y = m)) +
    geom_col(position = 'dodge') +
    geom_text(aes(label = round(m,2)), vjust = 2, color = 'green') +
    labs(x = 'Loại nhà', y = 'Mean',  title ='Số lượng phòng tắm trung bình')

Giải thích chunk:

  • tmp2 %>% group_by(title) %>% summarise(m=mean(bathrooms)) %>%: Đoạn mã này nhóm dữ liệu trong dataframe tmp2 theo cột “title” và tính giá trị trung bình (m) của cột “bathrooms” cho mỗi nhóm.

  • ggplot(aes(x = title,y = m)) + geom_col(position = ‘dodge’) + geom_text(aes(label = round(m,2)), vjust = 2, color = ‘green’) + labs(x = ‘Màu’, y = ‘Mean’, title =‘Số lượng phòng tắm trung bình’): Đoạn mã trên sử dụng thư viện ggplot2 trong ngôn ngữ lập trình R để tạo biểu đồ cột. Biểu đồ này hiển thị số lượng phòng tắm trung bình (được làm tròn đến 2 chữ số thập phân) của các loại nhà khác nhau. Mỗi cột biểu diễn một loại nhà, với chiều cao của cột thể hiện giá trị trung bình, và giá trị cụ thể được hiển thị ở đỉnh cột bằng văn bản màu xanh. Trục x là “Loại nhà”, trục y là “Mean” (Trung bình), và tiêu đề của biểu đồ là “Số lượng phòng tắm trung bình”.

Giải thích biểu đồ:

  • Đây là biểu đồ trung bình về số lượng phòng tắm phân loại theo loại nhà.

  • Trng bình một căn nhà thuộc loại Block of Flats sẽ có 3.51 phòng tắm.

  • Ở loại nhà Terraced Duplexes trung bình một căn nhà sẽ có 4.06 phòng tắm.

2.3 Biểu đồ về phòng vệ sinh:

2.3.1 Biểu đồ 5:

tmp %>% group_by(toilets) %>% summarise(n = n()) %>%
  ggplot(aes(toilets,n)) +
    geom_col(fill='green') +
    geom_text(aes(label = n),vjust = 2, color = 'red') +
    labs(x = 'Phòng vệ sinh', y = 'Số lượng', title ='Số lượng phòng vệ sinh') +
  scale_x_continuous(breaks = seq(0, 9, 1))

Giải thích chunk:

  • tmp %>% group_by(toilets) %>% summarise(n = n()) %>%: Nhóm dữ liệu theo biến ‘toilets’ và đếm số lượng các quan sát

  • ggplot(aes(toilets, n)): Tạo một biểu đồ, ánh xạ trục x cho toilets và trục y là số lượng ‘n’.

  • geom_col(fill=‘green’): Đặt màu fill của cột là màu xanh.

  • geom_text(aes(label = n), vjust = 2, color = ‘red’): Thêm văn bản màu đỏ với vị trí đặt chữ là 2 đơn vị, hiển thị số lượng trong từng cột.

  • labs(x = ‘Phòng vệ sinh’, y = ‘Số lượng’): Đặt tiêu đề và nhãn cho biểu đồ.

  • scale_x_continuous(breaks = seq(0, 9, 1)): Điều chình cột x, đặt các điểm chia trục x từ 0 đến 9 với bước là 1.

Giải thích biểu đồ:

  • Biểu đồ là về số lượng phòng vệ sinh trong mỗi căn nhà.

  • Số lượng ngôi nhà có 1 phòng vệ sinh là 399

  • Số ngôi nhà có 2 phòng ngủ là 472.

  • Có 10008 ngôi nhà có 5 phòng vệ sinh.

2.3.2 Biểu đồ 6:

tmp2 %>% group_by(title) %>% summarise(m=mean(toilets)) %>%
  ggplot(aes(x = title,y = m)) +
    geom_col(position = 'dodge') +
    geom_text(aes(label = round(m,2)), vjust = 2, color = 'green') +
    labs(x = 'Loại nhà', y = 'Mean',  title ='Số lượng phòng vệ sinh trung bình')

Giải thích chunk:

  • tmp2 %>% group_by(title) %>% summarise(m=mean(toilets)) %>%: Nhóm dữ liệu theo cột ‘title’ và tính giá trị trung bình của mỗi loại nhà.

  • ggplot(aes(x = title, y = m)): Tạo biểu đồ và ánh xạ trục x cho cột ‘title’ và cột y cho giá trị trung bình ‘m’.

  • geom_col(position = ‘dodge’): Hiển thị các cột cách xa nhau để có thể nhìn dễ dàng hơn.

  • geom_text(aes(label = round(m,2)), vjust = 2, color = ‘green’): Thêm văn bản là các giá trị trung bình trên mỗi cột với chữ màu xanh, làm tròn các con số đến 2 số thập phân.

  • labs(x = ‘Loại nhà’, y = ‘Mean’, title =‘Số lượng phòng vệ sinh trung bình’): Đặt nhãn cho các trục và tiêu đề cho biểu đồ.

Giải thích biểu đồ:

  • Biểu đồ về số lượng phòng vệ sinh trung bình có trong mỗi căn nhà theo từng loại.

  • Ở loại nhà Block of Flats trung bình một căn nhà sẽ có 3.82 phòng vệ sinh.

  • Tương tự ở loại Terraced Bungalow trung bình sẽ có 5.09 phòng vệ sinh trong một căn nhà.

2.4 Biểu đồ về bãi đậu xe:

2.4.1 Biểu đồ 7:

tmp %>% group_by(parking_space) %>% summarise(n = n()) %>%
  ggplot(aes(parking_space,n)) +
    geom_col(fill='green') +
    geom_text(aes(label = n),vjust = 2, color = 'red') +
    labs(x = 'Bãi đậu xe', y = 'Số lượng') +
  scale_x_continuous(breaks = seq(0, 9, 1))

Giải thích chunk:

  • tmp %>% group_by(parking_space) %>% summarise(n = n()): Đoạn này nhóm dữ liệu (tmp) theo biến “parking_space” và tính tổng số lượng quan sát trong mỗi nhóm bằng cách sử dụng hàm summarise. Kết quả là một data frame mới với các cột “parking_space” và “n” lần lượt đại diện cho biến đã nhóm và số lượng quan sát.

  • ggplot(aes(parking_space, n)) + geom_col(fill=‘green’) + geom_text(aes(label = n), vjust = 2, color = ‘red’) + labs(x = ‘Bãi đậu xe’, y = ‘Số lượng’) + scale_x_continuous(breaks = seq(0, 9, 1)): Đoạn này tạo một biểu đồ cột sử dụng gói ggplot2. Nó chỉ định các thẩm số hình thức (aes) với trục x là “parking_space” và trục y là “n”. Sử dụng geom_col để tạo biểu đồ cột với màu xanh lá cây và geom_text để thêm nhãn lên trên mỗi cột. Nhãn của trục x được đặt là ‘Bãi đậu xe’, trục y là ‘Số lượng’, và scale_x_continuous được sử dụng để đặt các điểm chia trên trục x tại các khoảng từ 0 đến 9.

Giải thích biểu đồ:

  • Biểu đồ là về số lượng bãi đậu xe có trong mỗi căn nhà.

  • Số lượng ngôi nhà có 1 bãi đậu xe là 1176.

  • Số ngôi nhà có 8 bãi đậu xe là 731.

  • Có 13377 ngôi nhà có 4 bãi đậu xe.

2.4.2 Biểu đồ 8:

tmp2 %>% group_by(title) %>% summarise(m=mean(parking_space)) %>%
  ggplot(aes(x = title,y = m)) +
    geom_col(position = 'dodge') +
    geom_text(aes(label = round(m,2)), vjust = 2, color = 'green') +
    labs(x = 'Loại nhà', y = 'Mean',  title ='Số lượng bãi đậu xe trung bình')

Giải thích chunk:

  • tmp2 %>% group_by(title) %>% summarise(m=mean(parking_space)) %>%: Nhóm dữ liệu theo cột ‘title’ và tính giá trị trung bình của mỗi loại nhà.

  • ggplot(aes(x = title, y = m)): Tạo biểu đồ và ánh xạ trục x cho cột ‘title’ và cột y cho giá trị trung bình ‘m’.

  • geom_col(position = ‘dodge’): Hiển thị các cột cách xa nhau để có thể nhìn dễ dàng hơn.

  • geom_text(aes(label = round(m,2)), vjust = 2, color = ‘green’): Thêm văn bản là các giá trị trung bình trên mỗi cột với chữ màu xanh, làm tròn các con số đến 2 số thập phân.

  • labs(x = ‘Loại nhà’, y = ‘Mean’, title =‘Số lượng bãi đậu xe trung bình’): Đặt nhãn cho các trục và tiêu đề cho biểu đồ.

Giải thích biểu đồ:

  • Biểu đồ về số lượng bãi đậu xe trung bình có trong mỗi căn nhà theo từng loại.

  • Ở loại nhà Block of Flats trung bình một căn nhà sẽ có 3.48 bãi đậu xe.

2.5 Biểu đồ về giá:

tmp$price1 <- case_when(tmp$price < 10000000 ~ 'Siêu thấp',
                        tmp$price >= 10000000 & tmp$price < 200000000 ~ 'Thấp',
                        tmp$price >=  200000000 & tmp$price < 900000000~ 'Trung bình',
                        tmp$price >=  900000000 & tmp$price < 90000000000~ 'Cao',
                        tmp$price >= 90000000000 ~ ' Cực cao')

Phân chia giá:

  • Giá từ 10000000 thuộc loại siêu thấp.

  • Giá từ 10000000 đến 200000000 thuộc loại thấp.

  • Giá từ 200000000 đến 900000000 thuộc loại trung bình.

  • Giá từ 900000000 đến 90000000000 thuộc loại cao.

  • Và giá từ trên 90000000000 thuộc loại rất cao.

2.5.1 Biểu đồ 9:

tmp %>% group_by(price1) %>% summarise(n = n()) %>%
  ggplot(aes(x = '', y = n,fill = price1)) +
    geom_col() +
    geom_text(aes(label = n),position = position_stack(vjust = 1))

Giải thích biểu đồ:

  • tmp %>% group_by(price1) %>% summarise(n = n()): Nhóm dữ liệu cột theo cột ‘price1’ và sử dụng summarise để tạo bảng tóm tắt với số lượng (n) của mỗi nhóm.

  • ggplot(aes(x = ’’, y = n, fill = price1)): Tạo một biểu đồ, ánh xạ cột x trống và cột y là số lượng, và màu sắc fill được xác định bởi giá trị trong cột “price1”.

  • geom_col(): Làm cho biểu đồ dạng cột, với mỗi cột tương ứng với giá trị của “price1”.

  • geom_text(aes(label = n), position = position_stack(vjust = 1)): Thêm nhãn với giá trị của “n” cho mỗi cột. Và giữ cho nhãn được đặt ở trung tâm của cột.

Giải thích biểu đồ:

  • 5 màu sắc tương trưng cho 5 loại giá của các ngôi nhà.

  • Màu xanh biển chiếm diện tích nhiều nhất, tương đương giá của các ngôi nhà phần lớn thuộc ở giá thấp (18930 ngôi nhà)

2.5.2 Biểu đồ 10:

tmp %>% group_by(price1) %>% summarise(n = n()) %>%
  ggplot(aes(x = '', y = n,fill = price1)) +
    geom_col(color = 'black') +
    coord_polar('y') +
    geom_text(aes(x = 1.3, label = n),position = position_stack(vjust = .5)) +
    theme_void()

Từ biểu đồ dạng cột trên, thêm coord_polar(‘y’) để tạo thành dạng biểu đồ tròn, Và các giá trị tương đương với biểu đồ dạng cột trên.

theme_void(): Xóa các phần tử trang trí của biểu đồ, chỉ hiển thị các yếu tố chính.

2.5.3 Biểu đồ 11:

tmp4 <- tmp %>% group_by(price1, town) %>% summarise(n = n(),.groups = 'drop')
tmp4 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp4 %>% filter(town == 'Lekki'), fill = 'red') +
  geom_col(data = tmp4 %>% filter(town == 'Ikoyi'), fill = 'blue')

  • tmp4 <- tmp %>% group_by(price1, town) %>% summarise(n = n(), .groups = ‘drop’): Nhóm dữ liệu theo cột “price1” và “town”. Sử dụng summarise để tạo bảng tóm tắt với số lượng (n) của mỗi nhóm. .groups = ‘drop’ để bỏ qua việc giữ lại các nhóm.

  • tmp4 %>% ggplot(aes(x = price1, y = n)): ggplot tạo một đối tượng ggplot với aesthetics là “price1” trên trục x và “n” trên trục y.

  • geom_col(data = tmp4 %>% filter(town == ‘Lekki’), fill = ‘red’): geom_col tạo cột cho dữ liệu được lọc từ “Lekki”. Và làm cho màu của cột là đỏ.

  • geom_col(data = tmp4 %>% filter(town == ‘Ikoyi’), fill = ‘blue’): tạo cột cho dữ liệu được lọc từ “Ikoyi” và làm cho màu của cột là xanh.

Đây là biểu đồ so sánh giá của các ngôi nhà qua hai thành phố là ‘Lekki’ và ‘Ikoyi’

2.5.4 Biểu đồ 12:

tmp4 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp4 %>% filter(town == 'Lekki'), fill = 'red') +
  geom_col(data = tmp4 %>% filter(town == 'Abeokuta South'), fill = 'blue')

Biểu đồ so sánh giá của các ngôi nhà qua hai thành phố là ‘Lekki’ và ‘Abeokuta South’

2.5.5 Biểu đồ 13:

tmp4 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp4 %>% filter(town == 'Ikoyi'), fill = 'red') +
  geom_col(data = tmp4 %>% filter(town == 'Abeokuta South'), fill = 'blue')

Biểu đồ so sánh giá của các ngôi nhà qua hai thành phố là ‘Ikoyi’ và ‘Abeokuta South’

2.5.6 Biểu đồ 14:

tmp5 <- tmp %>% group_by(price1, state) %>% summarise(n = n(),.groups = 'drop')
tmp5 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp5 %>% filter(state == 'Rivers'), fill = 'blue') +
   geom_col(data = tmp5 %>% filter(state == 'Abia'), fill = 'red')

  • tmp5 <- tmp %>% group_by(price1, town) %>% summarise(n = n(), .groups = ‘drop’): Nhóm dữ liệu theo cột “price1” và “state”. Sử dụng summarise để tạo bảng tóm tắt với số lượng (n) của mỗi nhóm. .groups = ‘drop’ để bỏ qua việc giữ lại các nhóm.

  • tmp5 %>% ggplot(aes(x = price1, y = n)): ggplot tạo một đối tượng ggplot với aesthetics là “price1” trên trục x và “n” trên trục y.

  • geom_col(data = tmp5 %>% filter(state == ‘Rivers’), fill = ‘blue’): geom_col tạo cột cho dữ liệu được lọc từ “Rivers”. Và làm cho màu của cột là đỏ.

  • geom_col(data = tmp5 %>% filter(state == ‘Abia’), fill = ‘red’): tạo cột cho dữ liệu được lọc từ “Abia” và làm cho màu của cột là xanh.

Đây là biểu đồ so sánh giá của các ngôi nhà qua hai bang là ‘Rivers’ và ‘Abia’

2.5.7 Biểu đồ 15:

tmp5 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp5 %>% filter(state == 'Rivers'), fill = 'blue') +
   geom_col(data = tmp5 %>% filter(state == 'Ogun'), fill = 'red')

Đây là biểu đồ so sánh giá của các ngôi nhà qua hai bang là ‘Rivers’ và ‘Ogun’

2.6 Biểu đồ về loại nhà:

2.6.1 Biểu đồ 16:

tmp %>% group_by(title) %>% summarise(n = n()) %>%
  ggplot(aes(title,n)) +
    geom_col(fill='green') +
    geom_text(aes(label = n),vjust = 2, color = 'red') +
    labs(x = 'Loại', y = 'Số lượng', title ='Số lượng các loại nhà ở')

Giải thích chunk:

  • tmp %>% group_by(title) %>% summarise(n = n()) %>%: Phần này của mã nhóm dữ liệu trong dataframe tmp theo biến “title” và tính toán số lượng (n) cho mỗi nhóm.

  • ggplot(aes(title, n)) + geom_col(fill=‘green’) + geom_text(aes(label = n), vjust = 2, color = ‘red’) + labs(x = ‘Loại’, y = ‘Số lượng’, title =‘Số lượng các loại nhà ở’): Phần này sử dụng ggplot() để khởi tạo biểu đồ, geom_col() để tạo biểu đồ cột, geom_text() để thêm nhãn lên trên các cột và labs() để đặt nhãn cho trục và tiêu đề.

Giải thích biểu đồ:

  • Đây là biểu đồ về số lượng các loại nhà được điều tra.

  • Có 6 cột, tương đương 6 laoij nhà.

  • Trong 24326 ngôi nhà được phân tích, có 1745 ngôi nhà thuộc loại Block of Flats, 2108 ngôi nhà thuộc loại Detaced Bungalow,…

2.6.2 Biểu đồ 17:

tmp3 <- tmp %>% group_by(price1, title) %>% summarise(n = n(),.groups = 'drop')
tmp3 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp3 %>% filter(title == 'Block of Flats'), fill = 'red') +
  geom_col(data = tmp3 %>% filter(title == 'Detached Bungalow'), fill = 'blue')

  • tmp3 <- tmp %>% group_by(price1, title) %>% summarise(n = n(),.groups = ‘drop’): Nhóm dữ liệu theo cột “price1” và “title”. Sử dụng summarise để tạo bảng tóm tắt với số lượng (n) của mỗi nhóm. .groups = ‘drop’ để bỏ qua việc giữ lại các nhóm.

  • tmp3 %>% ggplot(aes(x = price1, y = n)): ggplot tạo một đối tượng ggplot với aesthetics là “price1” trên trục x và “n” trên trục y.

  • geom_col(data = tmp3 %>% filter(title == ‘Block of Flats’), fill = ‘red’): geom_col tạo cột cho dữ liệu được lọc từ “Block of Flats”. Và làm cho màu của cột là đỏ.

  • geom_col(data = tmp3 %>% filter(title == ‘Detached Bungalow’), fill = ‘blue’): tạo cột cho dữ liệu được lọc từ “Detached Bungalow” và làm cho màu của cột là xanh.

Đây là biểu đồ so sánh về giá giữa 2 loại nhà là ‘Block of Flats’ và ‘Detached Bungalow’

2.6.3 Biểu đồ 18:

  tmp3 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp3 %>% filter(title == 'Detached Duplex'), fill = 'red') +
  geom_col(data = tmp3 %>% filter(title == 'Detached Bungalow'), fill = 'blue')

Biểu đồ so sánh về giá giữa 2 loại nhà là ‘Detached Duplex’ và ‘Detached Bungalow’

2.6.4 Biểu đồ 19:

  tmp3 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp3 %>% filter(title == 'Detached Duplex'), fill = 'red') +
  geom_col(data = tmp3 %>% filter(title == 'Block of Flats'), fill = 'blue')

Biểu đồ so sánh về giá giữa 2 loại nhà là ‘Detached Duplex’ và ‘Block of Flats’

2.6.5 Biểu đồ 20:

tmp3 %>% ggplot(aes(x = price1, y = n)) +
  geom_col(data = tmp3 %>% filter(title == 'Detached Duplex'), fill = 'red') +
  geom_col(data = tmp3 %>% filter(title == 'Block of Flats'), fill = 'blue') +
  geom_col(data = tmp3 %>% filter(title == 'Detached Bungalow'), fill = 'green')

Biểu đồ so sánh về giá giữa 3 loại nhà là ‘Detached Duplex’ ‘Block of Flats’ và ‘Detached Bungalow’

LS0tDQp0aXRsZTogIk5oaWVtdnU1Ig0KYXV0aG9yOiAiTmd1eeG7hW4gVGjDunkgVnkiDQpkYXRlOiAiYHIgZm9ybWF0KFN5cy50aW1lKCksICclSDolTTolUywgJWQgLSAlbSAtICVZJylgIg0Kb3V0cHV0Og0KICBodG1sX2RvY3VtZW50OiANCiAgICB0b2M6IHRydWUNCiAgICB0b2NfZmxvYXQ6IHRydWUNCiAgICB0aGVtZTogZmxhdGx5DQogICAgbnVtYmVyX3NlY3Rpb25zOiB0cnVlDQogICAgY29kZV9kb3dubG9hZDogdHJ1ZQ0KICAgIGNvZGVfZm9sZGluZzogc2hvdyANCiAgICBkZl9wcmludDogcGFnZWQNCmVkaXRvcl9vcHRpb25zOg0KICBjaHVua19vdXRwdXRfdHlwZTogY29uc29sZQ0KLS0tDQoNCiMgR2nhuqNpIHRow61jaCBi4buZIGThu68gbGnhu4d1Og0KDQpgYGB7ciBpbmNsdWRlPUZBTFNFfQ0KbGlicmFyeSh0aWR5dmVyc2UpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHhsc3gpDQpgYGANCg0KYGBge3J9DQp0bXAgPC0gcmVhZC5jc3YoZmlsZS5jaG9vc2UoKSwgaGVhZGVyID0gVCkNCnRtcA0KYGBgDQoNCkLhu5kgZOG7ryBsaeG7h3UgY2jhu6lhIGRhbmggc8OhY2ggbmjDoCB2w6AgZ2nDoSBj4bunYSBjaMO6bmcgZOG7sWEgdHLDqm4gdGjDtG5nIHPhu5Ega+G7uSB0aHXhuq10IHbDoCB24buLIHRyw60gY+G7p2EgbmfDtGkgbmjDoC4NCg0KRGF0YXNldCBn4buTbSAyNC4zMjYgcXVhbiBzw6F0IHbDoCA4IGJp4bq/biBuaMawIHNhdToNCg0KLSAqKmJlZHJvb21zKio6IHPhu5EgcGjDsm5nIG5n4bunDQoNCi0gKipiYXRocm9vbXMqKjogc+G7kSBwaMOybmcgdOG6r20NCg0KLSAqKnRvaWxldHMqKjogc+G7kSBwaMOybmcgduG7hyBzaW5oDQoNCi0gKipwYXJraW5nX3NwYWNlKio6IHPhu5EgY2jhu5cgxJHhuq11IHhlDQoNCi0gKip0aXRsZSoqOiBsb+G6oWkgbmjDoCDhu58NCg0KLSAqKnRvd24qKjogduG7iyB0csOtIGPhu6dhIG5nw7RpIG5ow6ANCg0KLSAqKnN0YXRlKio6IHRp4buDdSBiYW5nIA0KDQotICoqcHJpY2UqKjogZ2nDoSBiw6FuIGPhu6dhIGPDoWMgbmfDtGkgbmjDoA0KDQojIFbhur0gYmnhu4N1IMSR4buTOg0KDQojIyBCaeG7g3UgxJHhu5MgduG7gSBwaMOybmcgbmfhu6c6DQoNCiMjIyBCaeG7g3UgxJHhu5MgMToNCg0KYGBge3J9DQp0bXAgJT4lIGdyb3VwX2J5KGJlZHJvb21zKSAlPiUgc3VtbWFyaXNlKG4gPSBuKCkpICU+JQ0KICBnZ3Bsb3QoYWVzKGJlZHJvb21zLG4pKSArDQogICAgZ2VvbV9jb2woZmlsbD0nZ3JlZW4nKSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IG4pLHZqdXN0ID0gMiwgY29sb3IgPSAncmVkJykgKw0KICAgIGxhYnMoeCA9ICdQaMOybmcgbmfhu6cnLCB5ID0gJ1Phu5EgbMaw4bujbmcnLCB0aXRsZSA9ICdT4buRIGzGsOG7o25nIHBow7JuZyBuZ+G7pyB0cm9uZyBuaMOgJykgKyBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDAsIDksIDEpKQ0KYGBgDQoNCkdp4bqjaSB0aMOtY2ggY2h1bms6DQoNCi0gKip0bXAgJT4lIGdyb3VwX2J5KGJlZHJvb21zKSAlPiUgc3VtbWFyaXNlKG4gPSBuKCkpKio6IMSQb+G6oW4gbsOgeSBuaMOzbSBk4buvIGxp4buHdSAodG1wKSB0aGVvIGJp4bq/biAiYmVkcm9vbXMiIHbDoCB0w61uaCB04buVbmcgc+G7kSBsxrDhu6NuZyBxdWFuIHPDoXQgdHJvbmcgbeG7l2kgbmjDs20gYuG6sW5nIGPDoWNoIHPhu60gZOG7pW5nIGjDoG0gc3VtbWFyaXNlLiBL4bq/dCBxdeG6oyBsw6AgbeG7mXQgZGF0YSBmcmFtZSBt4bubaSB24bubaSBjw6FjIGPhu5l0ICJiZWRyb29tcyIgdsOgICJuIiBs4bqnbiBsxrDhu6N0IMSR4bqhaSBkaeG7h24gY2hvIGJp4bq/biDEkcOjIG5ow7NtIHbDoCBz4buRIGzGsOG7o25nIHF1YW4gc8OhdC4NCg0KLSAqKmdncGxvdChhZXMoYmVkcm9vbXMsIG4pKSArIGdlb21fY29sKGZpbGw9J2dyZWVuJykgKyBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHZqdXN0ID0gMiwgY29sb3IgPSAncmVkJykgKyBsYWJzKHggPSAnUGjDsm5nIG5n4bunJywgeSA9ICdT4buRIGzGsOG7o25nJykgKyBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDAsIDksIDEpKSoqOiDEkG/huqFuIG7DoHkgdOG6oW8gbeG7mXQgYmnhu4N1IMSR4buTIGPhu5l0IHPhu60gZOG7pW5nIGfDs2kgZ2dwbG90Mi4gTsOzIGNo4buJIMSR4buLbmggY8OhYyB0aOG6qW0gc+G7kSBow6xuaCB0aOG7qWMgKGFlcykgduG7m2kgdHLhu6VjIHggbMOgICJiZWRyb29tcyIgdsOgIHRy4bulYyB5IGzDoCAibiIuIFPhu60gZOG7pW5nIGdlb21fY29sIMSR4buDIHThuqFvIGJp4buDdSDEkeG7kyBj4buZdCB24bubaSBtw6B1IHhhbmggbMOhIGPDonkgdsOgIGdlb21fdGV4dCDEkeG7gyB0aMOqbSBuaMOjbiBsw6puIHRyw6puIG3hu5dpIGPhu5l0LiBOaMOjbiBj4bunYSB0cuG7pWMgeCDEkcaw4bujYyDEkeG6t3QgbMOgICdQaMOybmcgbmfhu6cnLCB0cuG7pWMgeSBsw6AgJ1Phu5EgbMaw4bujbmcnLCB2w6Agc2NhbGVfeF9jb250aW51b3VzIMSRxrDhu6NjIHPhu60gZOG7pW5nIMSR4buDIMSR4bq3dCBjw6FjIMSRaeG7g20gY2hpYSB0csOqbiB0cuG7pWMgeCB04bqhaSBjw6FjIGtob+G6o25nIHThu6sgMCDEkeG6v24gOS4NCg0KR2nhuqNpIHRow61jaCBiaeG7g3UgxJHhu5M6DQoNCi0gQmnhu4N1IMSR4buTIGPhu5l0IGThu41jIHbhu5tpIDkgY+G7mXQsIHTGsMahbmcgxJHGsMahbmcgc+G7kSBwaMOybmcgbmfhu6cgY8OzIHRyb25nIGPDoWMgbmfDtGkgbmjDoC4NCg0KLSBT4buRIGzGsOG7o25nIG5ow6AgY8OzIHBow7JuZyBuZ+G7pyBsw6AgOSBwaMOybmcgdsOgIDggcGjDsm5nIGzDoCB0aOG6pXAgbmjhuqV0IHbhu5tpIDE2MyB2w6AgMTY5IHBow7JuZy4NCg0KLSBT4buRIGzGsOG7o25nIG5ow6AgY8OzIDQgdsOgIDUgcGjDsm5nIGzDoCBuaGnhu4F1IG5o4bqldC4NCg0KIyMjIEJp4buDdSDEkeG7kyAyOg0KDQpgYGB7cn0NCnRtcDEgPC0gdG1wICU+JSBmaWx0ZXIodG93bj09J0xla2tpJykNCmBgYA0KDQpEw7JuZyBuw6B5IHPhu60gZOG7pW5nIGjDoG0gZmlsdGVyIHThu6sgZ8OzaSBkcGx5ciDEkeG7gyBs4buNYyBk4buvIGxp4buHdS4gTsOzIGdp4buvIGzhuqFpIGNo4buJIG5o4buvbmcgZMOybmcgdHJvbmcgZGF0YSBmcmFtZSB0bXAgbcOgIGPDsyBnacOhIHRy4buLIHRyb25nIGPhu5l0ICJ0b3duIiBsw6AgJ0xla2tpJy4NCg0KYGBge3J9DQp0bXAxICU+JSBncm91cF9ieSh0aXRsZSkgJT4lIHN1bW1hcmlzZShtPSBtZWFuKGJlZHJvb21zKSkgJT4lDQogIGdncGxvdChhZXMoeCA9IHRpdGxlLHkgPSBtKSkgKw0KICAgIGdlb21fY29sKHBvc2l0aW9uID0gJ2RvZGdlJykgKw0KICAgIGdlb21fdGV4dChhZXMobGFiZWwgPSByb3VuZChtLDIpKSwgdmp1c3QgPSAyLCBjb2xvciA9ICdncmVlbicpICsNCiAgICBsYWJzKHggPSAnTG/huqFpIHBow7JuZycsIHkgPSAnTWVhbicsIHRpdGxlID0nU+G7kSBsxrDhu6NuZyBwaMOybmcgbmfhu6cgdHJ1bmcgYsOsbmgnKQ0KYGBgDQoNCkdp4bqjaSB0aMOtY2ggY2h1bms6DQoNCi0gKip0bXAxICU+JSBncm91cF9ieSh0aXRsZSkgJT4lIHN1bW1hcmlzZShtID0gbWVhbihiZWRyb29tcykpKio6IETDsm5nIG7DoHkgc+G7rSBk4bulbmcgZHBseXIgxJHhu4MgbmjDs20gZOG7ryBsaeG7h3UgdHJvbmcgdG1wMSB0aGVvIGPhu5l0ICJ0aXRsZSIgdsOgIHTDrW5oIGdpw6EgdHLhu4sgdHJ1bmcgYsOsbmggY+G7p2EgY+G7mXQgImJlZHJvb21zIiB0cm9uZyB04burbmcgbmjDs20gc+G7rSBk4bulbmcgaMOgbSBzdW1tYXJpc2UuIEvhur90IHF14bqjIGzDoCBt4buZdCBkYXRhIGZyYW1lIG3hu5tpIGPDsyBj4buZdCAidGl0bGUiIHbDoCAibSIgxJHhuqFpIGRp4buHbiBjaG8gbG/huqFpIHBow7JuZyB2w6AgZ2nDoSB0cuG7iyB0cnVuZyBiw6xuaCBj4bunYSBz4buRIHBow7JuZyBuZ+G7pyB0xrDGoW5nIOG7qW5nLg0KDQotICoqZ2dwbG90KGFlcyh4ID0gdGl0bGUsIHkgPSBtKSkqKjogxJBv4bqhbiBuw6B5IGLhuq90IMSR4bqndSBt4buZdCDEkeG7kWkgdMaw4bujbmcgZ2dwbG90IHbDoCBjaOG7iSDEkeG7i25oIGPDoWMgYWVzIHbhu5tpIHRy4bulYyB4IGzDoCAidGl0bGUiIHbDoCB0cuG7pWMgeSBsw6AgIm0iLg0KDQotICoqZ2VvbV9jb2wocG9zaXRpb24gPSAnZG9kZ2UnKSoqOiBT4butIGThu6VuZyBnZW9tX2NvbCDEkeG7gyB24bq9IGJp4buDdSDEkeG7kyBj4buZdCwgduG7m2kgY8OhYyBj4buZdCDEkcaw4bujYyB04bqhbyByYSBi4bufaSBnacOhIHRy4buLIHRydW5nIGLDrG5oIG0gY2hvIG3hu5dpIGxv4bqhaSBwaMOybmcuIFRoYW0gc+G7kSBwb3NpdGlvbiA9ICdkb2RnZScgxJHGsOG7o2Mgc+G7rSBk4bulbmcgxJHhu4MgdOG6oW8gY8OhYyBj4buZdCDEkcaw4bujYyDEkeG6t3QgY8OhY2ggeGEgbmhhdS4NCg0KLSAqKmdlb21fdGV4dChhZXMobGFiZWwgPSByb3VuZChtLCAyKSksIHZqdXN0ID0gMiwgY29sb3IgPSAnZ3JlZW4nKSoqOiBUaMOqbSBjw6FjIG5ow6NuIHbEg24gYuG6o24gbMOqbiB0csOqbiBjw6FjIGPhu5l0IHbhu5tpIGdpw6EgdHLhu4sgdHJ1bmcgYsOsbmggbS4gTmjDo24gxJHGsOG7o2MgbMOgbSB0csOybiDEkeG6v24gMiBjaOG7ryBz4buRIHRo4bqtcCBwaMOibiB2w6AgY8OzIG3DoHUgeGFuaCBsw6EgY8OieS4NCg0KLSAqKmxhYnMoeCA9ICdMb+G6oWkgcGjDsm5nJywgeSA9ICdUcnVuZyBiw6xuaCBz4buRIHBow7JuZyBuZ+G7pycpKio6IMSQ4bq3dCBuaMOjbiBjaG8gdHLhu6VjIHggbMOgICdMb+G6oWkgcGjDsm5nJyB2w6AgdHLhu6VjIHkgbMOgICdUcnVuZyBiw6xuaCBz4buRIHBow7JuZyBuZ+G7pycuDQoNCkdp4bqjaSB0aMOtY2ggYmnhu4N1IMSR4buTOg0KDQotIEJp4buDdSDEkeG7kyBsw6AgduG7gSBz4buRIGzGsOG7o25nIHBow7JuZyBuZ+G7pyBjw7MgdHJvbmcgY8OhYyBsb+G6oWkgbmjDoC4NCg0KLSDhu54gbG/huqFpIG5ow6AgKkJsb2NrIG9mIGZsYXQqIHRydW5nIGLDrG5oIG3hu5l0IGPEg24gbmjDoCBz4bq9IGPDsyAyLDUxIHBow7JuZy4NCg0KLSDhu54gbG/huqFpICpEZXRhY2hlZCBkdXBsZXgqLCB0cnVuZyBiw6xuaCBt4buZdCBjxINuIG5ow6Agc+G6vSBjw7MgNC44MSBwaMOybmcuDQoNCiMjIEJp4buDdSDEkeG7kyB24buBIHBow7JuZyB04bqvbToNCg0KIyMjIEJp4buDdSDEkeG7kyAzOg0KYGBge3J9DQp0bXAgJT4lIGdyb3VwX2J5KGJhdGhyb29tcykgJT4lIHN1bW1hcmlzZShuID0gbigpKSAlPiUNCiAgZ2dwbG90KGFlcyhiYXRocm9vbXMsbikpICsNCiAgICBnZW9tX2NvbChmaWxsPSdncmVlbicpICsNCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksdmp1c3QgPSAyLCBjb2xvciA9ICdyZWQnKSArDQogICAgbGFicyh4ID0gJ1Bow7JuZyB04bqvbScsIHkgPSAnU+G7kSBsxrDhu6NuZycsIHRpdGxlID0nU+G7kSBsxrDhu6NuZyBwaMOybmcgdOG6r20gdHJvbmcgbmjDoCcpKw0KICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDAsIDksIDEpKQ0KYGBgDQoNCkdp4bqjaSB0aMOtY2ggY2h1bms6DQoNCi0gKip0bXAgJT4lIGdyb3VwX2J5KGJhdGhyb29tcykgJT4lIHN1bW1hcmlzZShuID0gbigpKSAlPiUqKjogUGjhuqduIG7DoHkgY+G7p2EgbcOjIG5ow7NtIGThu68gbGnhu4d1IHRyb25nIGRhdGFmcmFtZSB0bXAgdGhlbyBiaeG6v24gImJhdGhyb29tcyIgdsOgIHTDrW5oIHRvw6FuIHPhu5EgbMaw4bujbmcgKG4pIGNobyBt4buXaSBuaMOzbS4NCg0KLSAqKmdncGxvdChhZXMoYmF0aHJvb21zLCBuKSkgKyBnZW9tX2NvbChmaWxsPSdncmVlbicpICsgIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgdmp1c3QgPSAyLCBjb2xvciA9ICdyZWQnKSArICBsYWJzKHggPSAnUGjDsm5nIHThuq9tJywgeSA9ICdT4buRIGzGsOG7o25nJywgdGl0bGUgPSdT4buRIGzGsOG7o25nIHBow7JuZyB04bqvbSB0cm9uZyBuaMOgJykgKyAgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLCA5LCAxKSkqKjogUGjhuqduIG7DoHkgc+G7rSBk4bulbmcgZ2dwbG90KCkgxJHhu4Mga2jhu59pIHThuqFvIGJp4buDdSDEkeG7kywgZ2VvbV9jb2woKSDEkeG7gyB04bqhbyBiaeG7g3UgxJHhu5MgY+G7mXQsIGdlb21fdGV4dCgpIMSR4buDIHRow6ptIG5ow6NuIGzDqm4gdHLDqm4gY8OhYyBj4buZdCB2w6AgbGFicygpIMSR4buDIMSR4bq3dCBuaMOjbiBjaG8gdHLhu6VjIHbDoCB0acOqdSDEkeG7gS4gQ3Xhu5FpIGPDuW5nLCBzY2FsZV94X2NvbnRpbnVvdXMoKSDEkcaw4bujYyBz4butIGThu6VuZyDEkeG7gyDEkeG6t3QgY8OhYyDEkWnhu4NtIGNoaWEgdHLDqm4gdHLhu6VjIHguDQoNCkdp4bqjaSB0aMOtY2ggYmnhu4N1IMSR4buTOg0KDQotIMSQw6J5IGzDoCBiaeG7g3UgxJHhu5MgduG7gSBz4buRIGzGsOG7o25nIHBow7JuZyB04bqvbSDhu58gY8OhYyBuZ8O0aSBuaMOgLg0KDQotIFRyb25nIDI0MzI2IG5nw7RpIG5ow6AgxJHGsOG7o2MgcGjDom4gdMOtY2gsIGPDsyAgMjc1IG5nw7RpIG5ow6AgY8OzIDEgcGjDsm5nIHThuq9tLCA4OTcgbmfDtGkgbmjDoCBjw7MgMiBwaMOybmcgdOG6r20sIDIxMjggbmfDtGkgbmjDoCBjw7MgMyBwaMOybmcgbmfhu6csLi4uDQoNCiMjIyBCaeG7g3UgxJHhu5MgNDoNCg0KYGBge3J9DQp0bXAyIDwtIHRtcCAlPiUgZmlsdGVyKHN0YXRlPT0nTGFnb3MnKQ0KYGBgDQoNClThuqFvIG3hu5l0IGRhdGFmcmFtZSBt4bubaSB0bXAyIGLhurFuZyBjw6FjaCBs4buNYyBjw6FjIGjDoG5nIHRyb25nIGRhdGFmcmFtZSBoaeG7h24gdOG6oWkgdG1wIG7GoWkgZ2nDoSB0cuG7iyB0cm9uZyBj4buZdCAic3RhdGUiIGLhurFuZyAnTGFnb3MnLg0KDQpgYGB7cn0NCnRtcDIgJT4lIGdyb3VwX2J5KHRpdGxlKSAlPiUgc3VtbWFyaXNlKG09bWVhbihiYXRocm9vbXMpKSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gdGl0bGUseSA9IG0pKSArDQogICAgZ2VvbV9jb2wocG9zaXRpb24gPSAnZG9kZ2UnKSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHJvdW5kKG0sMikpLCB2anVzdCA9IDIsIGNvbG9yID0gJ2dyZWVuJykgKw0KICAgIGxhYnMoeCA9ICdMb+G6oWkgbmjDoCcsIHkgPSAnTWVhbicsICB0aXRsZSA9J1Phu5EgbMaw4bujbmcgcGjDsm5nIHThuq9tIHRydW5nIGLDrG5oJykNCmBgYA0KDQpHaeG6o2kgdGjDrWNoIGNodW5rOg0KDQotICoqdG1wMiAlPiUgZ3JvdXBfYnkodGl0bGUpICU+JSBzdW1tYXJpc2UobT1tZWFuKGJhdGhyb29tcykpICU+JSoqOiDEkG/huqFuIG3DoyBuw6B5IG5ow7NtIGThu68gbGnhu4d1IHRyb25nIGRhdGFmcmFtZSB0bXAyIHRoZW8gY+G7mXQgInRpdGxlIiB2w6AgdMOtbmggZ2nDoSB0cuG7iyB0cnVuZyBiw6xuaCAobSkgY+G7p2EgY+G7mXQgImJhdGhyb29tcyIgY2hvIG3hu5dpIG5ow7NtLg0KDQotICoqZ2dwbG90KGFlcyh4ID0gdGl0bGUseSA9IG0pKSArIGdlb21fY29sKHBvc2l0aW9uID0gJ2RvZGdlJykgKyBnZW9tX3RleHQoYWVzKGxhYmVsID0gcm91bmQobSwyKSksIHZqdXN0ID0gMiwgY29sb3IgPSAnZ3JlZW4nKSArIGxhYnMoeCA9ICdNw6B1JywgeSA9ICdNZWFuJywgIHRpdGxlID0nU+G7kSBsxrDhu6NuZyBwaMOybmcgdOG6r20gdHJ1bmcgYsOsbmgnKSoqOiDEkG/huqFuIG3DoyB0csOqbiBz4butIGThu6VuZyB0aMawIHZp4buHbiBnZ3Bsb3QyIHRyb25nIG5nw7RuIG5n4buvIGzhuq1wIHRyw6xuaCBSIMSR4buDIHThuqFvIGJp4buDdSDEkeG7kyBj4buZdC4gQmnhu4N1IMSR4buTIG7DoHkgaGnhu4NuIHRo4buLIHPhu5EgbMaw4bujbmcgcGjDsm5nIHThuq9tIHRydW5nIGLDrG5oICjEkcaw4bujYyBsw6BtIHRyw7JuIMSR4bq/biAyIGNo4buvIHPhu5EgdGjhuq1wIHBow6JuKSBj4bunYSBjw6FjIGxv4bqhaSBuaMOgIGtow6FjIG5oYXUuIE3hu5dpIGPhu5l0IGJp4buDdSBkaeG7hW4gbeG7mXQgbG/huqFpIG5ow6AsIHbhu5tpIGNoaeG7gXUgY2FvIGPhu6dhIGPhu5l0IHRo4buDIGhp4buHbiBnacOhIHRy4buLIHRydW5nIGLDrG5oLCB2w6AgZ2nDoSB0cuG7iyBj4bulIHRo4buDIMSRxrDhu6NjIGhp4buDbiB0aOG7iyDhu58gxJHhu4luaCBj4buZdCBi4bqxbmcgdsSDbiBi4bqjbiBtw6B1IHhhbmguIFRy4bulYyB4IGzDoCAiTG/huqFpIG5ow6AiLCB0cuG7pWMgeSBsw6AgIk1lYW4iIChUcnVuZyBiw6xuaCksIHbDoCB0acOqdSDEkeG7gSBj4bunYSBiaeG7g3UgxJHhu5MgbMOgICJT4buRIGzGsOG7o25nIHBow7JuZyB04bqvbSB0cnVuZyBiw6xuaCIuDQoNCkdp4bqjaSB0aMOtY2ggYmnhu4N1IMSR4buTOg0KDQotIMSQw6J5IGzDoCBiaeG7g3UgxJHhu5MgdHJ1bmcgYsOsbmggduG7gSBz4buRIGzGsOG7o25nIHBow7JuZyB04bqvbSBwaMOibiBsb+G6oWkgdGhlbyBsb+G6oWkgbmjDoC4NCg0KLSBUcm5nIGLDrG5oIG3hu5l0IGPEg24gbmjDoCB0aHXhu5ljIGxv4bqhaSAqQmxvY2sgb2YgRmxhdHMqIHPhur0gY8OzIDMuNTEgcGjDsm5nIHThuq9tLg0KDQotIOG7niBsb+G6oWkgbmjDoCAqVGVycmFjZWQgRHVwbGV4ZXMqIHRydW5nIGLDrG5oIG3hu5l0IGPEg24gbmjDoCBz4bq9IGPDsyA0LjA2IHBow7JuZyB04bqvbS4NCg0KIyMgQmnhu4N1IMSR4buTIHbhu4EgcGjDsm5nIHbhu4cgc2luaDoNCg0KIyMjIEJp4buDdSDEkeG7kyA1Og0KYGBge3J9DQp0bXAgJT4lIGdyb3VwX2J5KHRvaWxldHMpICU+JSBzdW1tYXJpc2UobiA9IG4oKSkgJT4lDQogIGdncGxvdChhZXModG9pbGV0cyxuKSkgKw0KICAgIGdlb21fY29sKGZpbGw9J2dyZWVuJykgKw0KICAgIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSx2anVzdCA9IDIsIGNvbG9yID0gJ3JlZCcpICsNCiAgICBsYWJzKHggPSAnUGjDsm5nIHbhu4cgc2luaCcsIHkgPSAnU+G7kSBsxrDhu6NuZycsIHRpdGxlID0nU+G7kSBsxrDhu6NuZyBwaMOybmcgduG7hyBzaW5oJykgKw0KICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDAsIDksIDEpKQ0KYGBgDQoNCkdp4bqjaSB0aMOtY2ggY2h1bms6DQoNCi0gKip0bXAgJT4lIGdyb3VwX2J5KHRvaWxldHMpICU+JSBzdW1tYXJpc2UobiA9IG4oKSkgJT4lKio6IE5ow7NtIGThu68gbGnhu4d1IHRoZW8gYmnhur9uICd0b2lsZXRzJyB2w6AgxJHhur9tIHPhu5EgbMaw4bujbmcgY8OhYyBxdWFuIHPDoXQNCg0KLSAqKmdncGxvdChhZXModG9pbGV0cywgbikpKio6IFThuqFvIG3hu5l0IGJp4buDdSDEkeG7kywgw6FuaCB44bqhIHRy4bulYyB4IGNobyB0b2lsZXRzIHbDoCB0cuG7pWMgeSBsw6Agc+G7kSBsxrDhu6NuZyAnbicuDQoNCi0gKipnZW9tX2NvbChmaWxsPSdncmVlbicpKio6IMSQ4bq3dCBtw6B1IGZpbGwgY+G7p2EgY+G7mXQgbMOgIG3DoHUgeGFuaC4NCg0KLSAqKmdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgdmp1c3QgPSAyLCBjb2xvciA9ICdyZWQnKSoqOiBUaMOqbSB2xINuIGLhuqNuIG3DoHUgxJHhu48gduG7m2kgduG7iyB0csOtIMSR4bq3dCBjaOG7ryBsw6AgMiDEkcahbiB24buLLCBoaeG7g24gdGjhu4sgc+G7kSBsxrDhu6NuZyB0cm9uZyB04burbmcgY+G7mXQuDQoNCi0gKipsYWJzKHggPSAnUGjDsm5nIHbhu4cgc2luaCcsIHkgPSAnU+G7kSBsxrDhu6NuZycpKio6IMSQ4bq3dCB0acOqdSDEkeG7gSB2w6AgbmjDo24gY2hvIGJp4buDdSDEkeG7ky4NCg0KLSAqKnNjYWxlX3hfY29udGludW91cyhicmVha3MgPSBzZXEoMCwgOSwgMSkpKio6IMSQaeG7gXUgY2jDrG5oIGPhu5l0IHgsIMSR4bq3dCBjw6FjIMSRaeG7g20gY2hpYSB0cuG7pWMgeCB04burIDAgxJHhur9uIDkgduG7m2kgYsaw4bubYyBsw6AgMS4NCg0KR2nhuqNpIHRow61jaCBiaeG7g3UgxJHhu5M6DQoNCi0gQmnhu4N1IMSR4buTIGzDoCB24buBIHPhu5EgbMaw4bujbmcgcGjDsm5nIHbhu4cgc2luaCB0cm9uZyBt4buXaSBjxINuIG5ow6AuDQoNCi0gU+G7kSBsxrDhu6NuZyBuZ8O0aSBuaMOgIGPDsyAxIHBow7JuZyB24buHIHNpbmggbMOgIDM5OQ0KDQotIFPhu5EgbmfDtGkgbmjDoCBjw7MgMiBwaMOybmcgbmfhu6cgbMOgIDQ3Mi4NCg0KLSBDw7MgMTAwMDggbmfDtGkgbmjDoCBjw7MgNSBwaMOybmcgduG7hyBzaW5oLg0KDQojIyMgQmnhu4N1IMSR4buTIDY6DQoNCmBgYHtyfQ0KdG1wMiAlPiUgZ3JvdXBfYnkodGl0bGUpICU+JSBzdW1tYXJpc2UobT1tZWFuKHRvaWxldHMpKSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gdGl0bGUseSA9IG0pKSArDQogICAgZ2VvbV9jb2wocG9zaXRpb24gPSAnZG9kZ2UnKSArDQogICAgZ2VvbV90ZXh0KGFlcyhsYWJlbCA9IHJvdW5kKG0sMikpLCB2anVzdCA9IDIsIGNvbG9yID0gJ2dyZWVuJykgKw0KICAgIGxhYnMoeCA9ICdMb+G6oWkgbmjDoCcsIHkgPSAnTWVhbicsICB0aXRsZSA9J1Phu5EgbMaw4bujbmcgcGjDsm5nIHbhu4cgc2luaCB0cnVuZyBiw6xuaCcpDQpgYGANCg0KR2nhuqNpIHRow61jaCBjaHVuazoNCg0KLSAqKnRtcDIgJT4lIGdyb3VwX2J5KHRpdGxlKSAgJT4lIHN1bW1hcmlzZShtPW1lYW4odG9pbGV0cykpICU+JSoqOiBOaMOzbSBk4buvIGxp4buHdSB0aGVvIGPhu5l0ICd0aXRsZScgdsOgIHTDrW5oIGdpw6EgdHLhu4sgdHJ1bmcgYsOsbmggY+G7p2EgbeG7l2kgbG/huqFpIG5ow6AuDQoNCi0gKipnZ3Bsb3QoYWVzKHggPSB0aXRsZSwgeSA9IG0pKSoqOiBU4bqhbyBiaeG7g3UgxJHhu5MgdsOgIMOhbmggeOG6oSB0cuG7pWMgeCBjaG8gY+G7mXQgJ3RpdGxlJyB2w6AgY+G7mXQgeSBjaG8gZ2nDoSB0cuG7iyB0cnVuZyBiw6xuaCAnbScuDQoNCi0gKipnZW9tX2NvbChwb3NpdGlvbiA9ICdkb2RnZScpKio6ICBIaeG7g24gdGjhu4sgY8OhYyBj4buZdCBjw6FjaCB4YSBuaGF1IMSR4buDIGPDsyB0aOG7gyBuaMOsbiBk4buFIGTDoG5nIGjGoW4uDQoNCi0gKipnZW9tX3RleHQoYWVzKGxhYmVsID0gcm91bmQobSwyKSksIHZqdXN0ID0gMiwgY29sb3IgPSAnZ3JlZW4nKSoqOiBUaMOqbSB2xINuIGLhuqNuIGzDoCBjw6FjIGdpw6EgdHLhu4sgdHJ1bmcgYsOsbmggdHLDqm4gbeG7l2kgY+G7mXQgduG7m2kgY2jhu68gbcOgdSB4YW5oLCBsw6BtIHRyw7JuIGPDoWMgY29uIHPhu5EgxJHhur9uIDIgc+G7kSB0aOG6rXAgcGjDom4uDQoNCi0gKipsYWJzKHggPSAnTG/huqFpIG5ow6AnLCB5ID0gJ01lYW4nLCB0aXRsZSA9J1Phu5EgbMaw4bujbmcgcGjDsm5nIHbhu4cgc2luaCB0cnVuZyBiw6xuaCcpKio6IMSQ4bq3dCBuaMOjbiBjaG8gY8OhYyB0cuG7pWMgdsOgIHRpw6p1IMSR4buBIGNobyBiaeG7g3UgxJHhu5MuDQoNCkdp4bqjaSB0aMOtY2ggYmnhu4N1IMSR4buTOg0KDQotIEJp4buDdSDEkeG7kyB24buBIHPhu5EgbMaw4bujbmcgcGjDsm5nIHbhu4cgc2luaCB0cnVuZyBiw6xuaCBjw7MgdHJvbmcgbeG7l2kgY8SDbiBuaMOgIHRoZW8gdOG7q25nIGxv4bqhaS4NCg0KLSDhu54gbG/huqFpIG5ow6AgKkJsb2NrIG9mIEZsYXRzKiB0cnVuZyBiw6xuaCBt4buZdCBjxINuIG5ow6Agc+G6vSBjw7MgMy44MiBwaMOybmcgduG7hyBzaW5oLg0KDQotIFTGsMahbmcgdOG7sSDhu58gbG/huqFpICpUZXJyYWNlZCBCdW5nYWxvdyogdHJ1bmcgYsOsbmggc+G6vSBjw7MgNS4wOSBwaMOybmcgduG7hyBzaW5oIHRyb25nIG3hu5l0IGPEg24gbmjDoC4gDQoNCiMjIEJp4buDdSDEkeG7kyB24buBIGLDo2kgxJHhuq11IHhlOg0KDQojIyMgQmnhu4N1IMSR4buTIDc6DQoNCmBgYHtyfQ0KdG1wICU+JSBncm91cF9ieShwYXJraW5nX3NwYWNlKSAlPiUgc3VtbWFyaXNlKG4gPSBuKCkpICU+JQ0KICBnZ3Bsb3QoYWVzKHBhcmtpbmdfc3BhY2UsbikpICsNCiAgICBnZW9tX2NvbChmaWxsPSdncmVlbicpICsNCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksdmp1c3QgPSAyLCBjb2xvciA9ICdyZWQnKSArDQogICAgbGFicyh4ID0gJ0LDo2kgxJHhuq11IHhlJywgeSA9ICdT4buRIGzGsOG7o25nJykgKw0KICBzY2FsZV94X2NvbnRpbnVvdXMoYnJlYWtzID0gc2VxKDAsIDksIDEpKQ0KYGBgDQoNCkdp4bqjaSB0aMOtY2ggY2h1bms6DQoNCi0gKip0bXAgJT4lIGdyb3VwX2J5KHBhcmtpbmdfc3BhY2UpICU+JSBzdW1tYXJpc2UobiA9IG4oKSkqKjogxJBv4bqhbiBuw6B5IG5ow7NtIGThu68gbGnhu4d1ICh0bXApIHRoZW8gYmnhur9uICJwYXJraW5nX3NwYWNlIiB2w6AgdMOtbmggdOG7lW5nIHPhu5EgbMaw4bujbmcgcXVhbiBzw6F0IHRyb25nIG3hu5dpIG5ow7NtIGLhurFuZyBjw6FjaCBz4butIGThu6VuZyBow6BtIHN1bW1hcmlzZS4gS+G6v3QgcXXhuqMgbMOgIG3hu5l0IGRhdGEgZnJhbWUgbeG7m2kgduG7m2kgY8OhYyBj4buZdCAicGFya2luZ19zcGFjZSIgdsOgICJuIiBs4bqnbiBsxrDhu6N0IMSR4bqhaSBkaeG7h24gY2hvIGJp4bq/biDEkcOjIG5ow7NtIHbDoCBz4buRIGzGsOG7o25nIHF1YW4gc8OhdC4NCg0KLSAqKmdncGxvdChhZXMocGFya2luZ19zcGFjZSwgbikpICsgZ2VvbV9jb2woZmlsbD0nZ3JlZW4nKSArIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSwgdmp1c3QgPSAyLCBjb2xvciA9ICdyZWQnKSArIGxhYnMoeCA9ICdCw6NpIMSR4bqtdSB4ZScsIHkgPSAnU+G7kSBsxrDhu6NuZycpICsgc2NhbGVfeF9jb250aW51b3VzKGJyZWFrcyA9IHNlcSgwLCA5LCAxKSkqKjogxJBv4bqhbiBuw6B5IHThuqFvIG3hu5l0IGJp4buDdSDEkeG7kyBj4buZdCBz4butIGThu6VuZyBnw7NpIGdncGxvdDIuIE7DsyBjaOG7iSDEkeG7i25oIGPDoWMgdGjhuqltIHPhu5EgaMOsbmggdGjhu6ljIChhZXMpIHbhu5tpIHRy4bulYyB4IGzDoCAicGFya2luZ19zcGFjZSIgdsOgIHRy4bulYyB5IGzDoCAibiIuIFPhu60gZOG7pW5nIGdlb21fY29sIMSR4buDIHThuqFvIGJp4buDdSDEkeG7kyBj4buZdCB24bubaSBtw6B1IHhhbmggbMOhIGPDonkgdsOgIGdlb21fdGV4dCDEkeG7gyB0aMOqbSBuaMOjbiBsw6puIHRyw6puIG3hu5dpIGPhu5l0LiBOaMOjbiBj4bunYSB0cuG7pWMgeCDEkcaw4bujYyDEkeG6t3QgbMOgICdCw6NpIMSR4bqtdSB4ZScsIHRy4bulYyB5IGzDoCAnU+G7kSBsxrDhu6NuZycsIHbDoCBzY2FsZV94X2NvbnRpbnVvdXMgxJHGsOG7o2Mgc+G7rSBk4bulbmcgxJHhu4MgxJHhurd0IGPDoWMgxJFp4buDbSBjaGlhIHRyw6puIHRy4bulYyB4IHThuqFpIGPDoWMga2hv4bqjbmcgdOG7qyAwIMSR4bq/biA5Lg0KDQpHaeG6o2kgdGjDrWNoIGJp4buDdSDEkeG7kzoNCg0KLSBCaeG7g3UgxJHhu5MgbMOgIHbhu4Egc+G7kSBsxrDhu6NuZyBiw6NpIMSR4bqtdSB4ZSBjw7MgdHJvbmcgbeG7l2kgY8SDbiBuaMOgLg0KDQotIFPhu5EgbMaw4bujbmcgbmfDtGkgbmjDoCBjw7MgMSBiw6NpIMSR4bqtdSB4ZSBsw6AgMTE3Ni4NCg0KLSBT4buRIG5nw7RpIG5ow6AgY8OzIDggYsOjaSDEkeG6rXUgeGUgbMOgIDczMS4NCg0KLSBDw7MgMTMzNzcgbmfDtGkgbmjDoCBjw7MgNCBiw6NpIMSR4bqtdSB4ZS4NCg0KIyMjIEJp4buDdSDEkeG7kyA4Og0KDQpgYGB7cn0NCnRtcDIgJT4lIGdyb3VwX2J5KHRpdGxlKSAlPiUgc3VtbWFyaXNlKG09bWVhbihwYXJraW5nX3NwYWNlKSkgJT4lDQogIGdncGxvdChhZXMoeCA9IHRpdGxlLHkgPSBtKSkgKw0KICAgIGdlb21fY29sKHBvc2l0aW9uID0gJ2RvZGdlJykgKw0KICAgIGdlb21fdGV4dChhZXMobGFiZWwgPSByb3VuZChtLDIpKSwgdmp1c3QgPSAyLCBjb2xvciA9ICdncmVlbicpICsNCiAgICBsYWJzKHggPSAnTG/huqFpIG5ow6AnLCB5ID0gJ01lYW4nLCAgdGl0bGUgPSdT4buRIGzGsOG7o25nIGLDo2kgxJHhuq11IHhlIHRydW5nIGLDrG5oJykNCmBgYA0KDQpHaeG6o2kgdGjDrWNoIGNodW5rOg0KDQotICoqdG1wMiAlPiUgZ3JvdXBfYnkodGl0bGUpICAlPiUgc3VtbWFyaXNlKG09bWVhbihwYXJraW5nX3NwYWNlKSkgJT4lKio6IE5ow7NtIGThu68gbGnhu4d1IHRoZW8gY+G7mXQgJ3RpdGxlJyB2w6AgdMOtbmggZ2nDoSB0cuG7iyB0cnVuZyBiw6xuaCBj4bunYSBt4buXaSBsb+G6oWkgbmjDoC4NCg0KLSAqKmdncGxvdChhZXMoeCA9IHRpdGxlLCB5ID0gbSkpKio6IFThuqFvIGJp4buDdSDEkeG7kyB2w6Agw6FuaCB44bqhIHRy4bulYyB4IGNobyBj4buZdCAndGl0bGUnIHbDoCBj4buZdCB5IGNobyBnacOhIHRy4buLIHRydW5nIGLDrG5oICdtJy4NCg0KLSAqKmdlb21fY29sKHBvc2l0aW9uID0gJ2RvZGdlJykqKjogIEhp4buDbiB0aOG7iyBjw6FjIGPhu5l0IGPDoWNoIHhhIG5oYXUgxJHhu4MgY8OzIHRo4buDIG5ow6xuIGThu4UgZMOgbmcgaMahbi4NCg0KLSAqKmdlb21fdGV4dChhZXMobGFiZWwgPSByb3VuZChtLDIpKSwgdmp1c3QgPSAyLCBjb2xvciA9ICdncmVlbicpKio6IFRow6ptIHbEg24gYuG6o24gbMOgIGPDoWMgZ2nDoSB0cuG7iyB0cnVuZyBiw6xuaCB0csOqbiBt4buXaSBj4buZdCB24bubaSBjaOG7ryBtw6B1IHhhbmgsIGzDoG0gdHLDsm4gY8OhYyBjb24gc+G7kSDEkeG6v24gMiBz4buRIHRo4bqtcCBwaMOibi4NCg0KLSAqKmxhYnMoeCA9ICdMb+G6oWkgbmjDoCcsIHkgPSAnTWVhbicsIHRpdGxlID0nU+G7kSBsxrDhu6NuZyBiw6NpIMSR4bqtdSB4ZSB0cnVuZyBiw6xuaCcpKio6IMSQ4bq3dCBuaMOjbiBjaG8gY8OhYyB0cuG7pWMgdsOgIHRpw6p1IMSR4buBIGNobyBiaeG7g3UgxJHhu5MuDQoNCkdp4bqjaSB0aMOtY2ggYmnhu4N1IMSR4buTOg0KDQotIEJp4buDdSDEkeG7kyB24buBIHPhu5EgbMaw4bujbmcgYsOjaSDEkeG6rXUgeGUgdHJ1bmcgYsOsbmggY8OzIHRyb25nIG3hu5dpIGPEg24gbmjDoCB0aGVvIHThu6tuZyBsb+G6oWkuDQoNCi0g4bueIGxv4bqhaSBuaMOgICpCbG9jayBvZiBGbGF0cyogdHJ1bmcgYsOsbmggbeG7mXQgY8SDbiBuaMOgIHPhur0gY8OzIDMuNDggYsOjaSDEkeG6rXUgeGUuDQoNCiMjIEJp4buDdSDEkeG7kyB24buBIGdpw6E6DQoNCmBgYHtyfQ0KdG1wJHByaWNlMSA8LSBjYXNlX3doZW4odG1wJHByaWNlIDwgMTAwMDAwMDAgfiAnU2nDqnUgdGjhuqVwJywNCiAgICAgICAgICAgICAgICAgICAgICAgIHRtcCRwcmljZSA+PSAxMDAwMDAwMCAmIHRtcCRwcmljZSA8IDIwMDAwMDAwMCB+ICdUaOG6pXAnLA0KICAgICAgICAgICAgICAgICAgICAgICAgdG1wJHByaWNlID49ICAyMDAwMDAwMDAgJiB0bXAkcHJpY2UgPCA5MDAwMDAwMDB+ICdUcnVuZyBiw6xuaCcsDQogICAgICAgICAgICAgICAgICAgICAgICB0bXAkcHJpY2UgPj0gIDkwMDAwMDAwMCAmIHRtcCRwcmljZSA8IDkwMDAwMDAwMDAwfiAnQ2FvJywNCiAgICAgICAgICAgICAgICAgICAgICAgIHRtcCRwcmljZSA+PSA5MDAwMDAwMDAwMCB+ICcgQ+G7sWMgY2FvJykNCmBgYA0KDQpQaMOibiBjaGlhIGdpw6E6DQoNCi0gR2nDoSB04burIDEwMDAwMDAwIHRodeG7mWMgbG/huqFpIHNpw6p1IHRo4bqlcC4NCg0KLSBHacOhIHThu6sgMTAwMDAwMDAgxJHhur9uIDIwMDAwMDAwMCB0aHXhu5ljIGxv4bqhaSB0aOG6pXAuDQoNCi0gR2nDoSB04burIDIwMDAwMDAwMCDEkeG6v24gOTAwMDAwMDAwIHRodeG7mWMgbG/huqFpIHRydW5nIGLDrG5oLg0KDQotIEdpw6EgdOG7qyA5MDAwMDAwMDAgxJHhur9uIDkwMDAwMDAwMDAwIHRodeG7mWMgbG/huqFpIGNhby4NCg0KLSBWw6AgZ2nDoSB04burIHRyw6puIDkwMDAwMDAwMDAwIHRodeG7mWMgbG/huqFpIHLhuqV0IGNhby4NCg0KIyMjIEJp4buDdSDEkeG7kyA5Og0KDQpgYGB7cn0NCnRtcCAlPiUgZ3JvdXBfYnkocHJpY2UxKSAlPiUgc3VtbWFyaXNlKG4gPSBuKCkpICU+JQ0KICBnZ3Bsb3QoYWVzKHggPSAnJywgeSA9IG4sZmlsbCA9IHByaWNlMSkpICsNCiAgICBnZW9tX2NvbCgpICsNCiAgICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbikscG9zaXRpb24gPSBwb3NpdGlvbl9zdGFjayh2anVzdCA9IDEpKQ0KYGBgDQoNCkdp4bqjaSB0aMOtY2ggYmnhu4N1IMSR4buTOg0KDQotICoqdG1wICU+JSBncm91cF9ieShwcmljZTEpICU+JSBzdW1tYXJpc2UobiA9IG4oKSkqKjogTmjDs20gZOG7ryBsaeG7h3UgY+G7mXQgdGhlbyBj4buZdCAncHJpY2UxJyB2w6Agc+G7rSBk4bulbmcgc3VtbWFyaXNlIMSR4buDIHThuqFvIGLhuqNuZyB0w7NtIHThuq90IHbhu5tpIHPhu5EgbMaw4bujbmcgKG4pIGPhu6dhIG3hu5dpIG5ow7NtLg0KDQotICoqZ2dwbG90KGFlcyh4ID0gJycsIHkgPSBuLCBmaWxsID0gcHJpY2UxKSkqKjogVOG6oW8gbeG7mXQgYmnhu4N1IMSR4buTLCDDoW5oIHjhuqEgY+G7mXQgeCB0cuG7kW5nIHbDoCBj4buZdCB5IGzDoCBz4buRIGzGsOG7o25nLCB2w6AgbcOgdSBz4bqvYyBmaWxsIMSRxrDhu6NjIHjDoWMgxJHhu4tuaCBi4bufaSBnacOhIHRy4buLIHRyb25nIGPhu5l0ICJwcmljZTEiLg0KDQotICoqZ2VvbV9jb2woKSoqOiBMw6BtIGNobyBiaeG7g3UgxJHhu5MgZOG6oW5nIGPhu5l0LCB24bubaSBt4buXaSBj4buZdCB0xrDGoW5nIOG7qW5nIHbhu5tpIGdpw6EgdHLhu4sgY+G7p2EgInByaWNlMSIuDQoNCi0gKipnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHBvc2l0aW9uID0gcG9zaXRpb25fc3RhY2sodmp1c3QgPSAxKSkqKjogVGjDqm0gbmjDo24gduG7m2kgZ2nDoSB0cuG7iyBj4bunYSAibiIgY2hvIG3hu5dpIGPhu5l0LiBWw6AgZ2nhu68gY2hvIG5ow6NuIMSRxrDhu6NjIMSR4bq3dCDhu58gdHJ1bmcgdMOibSBj4bunYSBj4buZdC4NCg0KR2nhuqNpIHRow61jaCBiaeG7g3UgxJHhu5M6DQoNCi0gNSBtw6B1IHPhuq9jIHTGsMahbmcgdHLGsG5nIGNobyA1IGxv4bqhaSBnacOhIGPhu6dhIGPDoWMgbmfDtGkgbmjDoC4NCg0KLSBNw6B1IHhhbmggYmnhu4NuIGNoaeG6v20gZGnhu4duIHTDrWNoIG5oaeG7gXUgbmjhuqV0LCB0xrDGoW5nIMSRxrDGoW5nIGdpw6EgY+G7p2EgY8OhYyBuZ8O0aSBuaMOgIHBo4bqnbiBs4bubbiB0aHXhu5ljIOG7nyBnacOhIHRo4bqlcCAoMTg5MzAgbmfDtGkgbmjDoCkNCg0KIyMjIEJp4buDdSDEkeG7kyAxMDoNCg0KYGBge3J9DQp0bXAgJT4lIGdyb3VwX2J5KHByaWNlMSkgJT4lIHN1bW1hcmlzZShuID0gbigpKSAlPiUNCiAgZ2dwbG90KGFlcyh4ID0gJycsIHkgPSBuLGZpbGwgPSBwcmljZTEpKSArDQogICAgZ2VvbV9jb2woY29sb3IgPSAnYmxhY2snKSArDQogICAgY29vcmRfcG9sYXIoJ3knKSArDQogICAgZ2VvbV90ZXh0KGFlcyh4ID0gMS4zLCBsYWJlbCA9IG4pLHBvc2l0aW9uID0gcG9zaXRpb25fc3RhY2sodmp1c3QgPSAuNSkpICsNCiAgICB0aGVtZV92b2lkKCkNCmBgYA0KDQpU4burIGJp4buDdSDEkeG7kyBk4bqhbmcgY+G7mXQgdHLDqm4sIHRow6ptICoqY29vcmRfcG9sYXIoJ3knKSoqIMSR4buDIHThuqFvIHRow6BuaCBk4bqhbmcgYmnhu4N1IMSR4buTIHRyw7JuLCBWw6AgY8OhYyBnacOhIHRy4buLIHTGsMahbmcgxJHGsMahbmcgduG7m2kgYmnhu4N1IMSR4buTIGThuqFuZyBj4buZdCB0csOqbi4NCg0KKip0aGVtZV92b2lkKCkqKjogWMOzYSBjw6FjIHBo4bqnbiB04butIHRyYW5nIHRyw60gY+G7p2EgYmnhu4N1IMSR4buTLCBjaOG7iSBoaeG7g24gdGjhu4sgY8OhYyB54bq/dSB04buRIGNow61uaC4NCg0KIyMjIEJp4buDdSDEkeG7kyAxMToNCg0KYGBge3J9DQp0bXA0IDwtIHRtcCAlPiUgZ3JvdXBfYnkocHJpY2UxLCB0b3duKSAlPiUgc3VtbWFyaXNlKG4gPSBuKCksLmdyb3VwcyA9ICdkcm9wJykNCnRtcDQgJT4lIGdncGxvdChhZXMoeCA9IHByaWNlMSwgeSA9IG4pKSArDQogIGdlb21fY29sKGRhdGEgPSB0bXA0ICU+JSBmaWx0ZXIodG93biA9PSAnTGVra2knKSwgZmlsbCA9ICdyZWQnKSArDQogIGdlb21fY29sKGRhdGEgPSB0bXA0ICU+JSBmaWx0ZXIodG93biA9PSAnSWtveWknKSwgZmlsbCA9ICdibHVlJykNCmBgYA0KDQotICoqdG1wNCA8LSB0bXAgJT4lIGdyb3VwX2J5KHByaWNlMSwgdG93bikgJT4lIHN1bW1hcmlzZShuID0gbigpLCAuZ3JvdXBzID0gJ2Ryb3AnKSoqOiBOaMOzbSBk4buvIGxp4buHdSB0aGVvIGPhu5l0ICJwcmljZTEiIHbDoCAidG93biIuIFPhu60gZOG7pW5nICoqc3VtbWFyaXNlKiogxJHhu4MgdOG6oW8gYuG6o25nIHTDs20gdOG6r3QgduG7m2kgc+G7kSBsxrDhu6NuZyAobikgY+G7p2EgbeG7l2kgbmjDs20uICoqLmdyb3VwcyA9ICdkcm9wJyoqIMSR4buDIGLhu48gcXVhIHZp4buHYyBnaeG7ryBs4bqhaSBjw6FjIG5ow7NtLg0KDQotICoqdG1wNCAlPiUgZ2dwbG90KGFlcyh4ID0gcHJpY2UxLCB5ID0gbikpKio6IGdncGxvdCB04bqhbyBt4buZdCDEkeG7kWkgdMaw4bujbmcgZ2dwbG90IHbhu5tpIGFlc3RoZXRpY3MgbMOgICJwcmljZTEiIHRyw6puIHRy4bulYyB4IHbDoCAibiIgdHLDqm4gdHLhu6VjIHkuDQoNCi0gKipnZW9tX2NvbChkYXRhID0gdG1wNCAlPiUgZmlsdGVyKHRvd24gPT0gJ0xla2tpJyksIGZpbGwgPSAncmVkJykqKjogZ2VvbV9jb2wgdOG6oW8gY+G7mXQgY2hvIGThu68gbGnhu4d1IMSRxrDhu6NjIGzhu41jIHThu6sgIkxla2tpIi4gVsOgIGzDoG0gY2hvIG3DoHUgY+G7p2EgY+G7mXQgbMOgIMSR4buPLg0KDQotICoqZ2VvbV9jb2woZGF0YSA9IHRtcDQgJT4lIGZpbHRlcih0b3duID09ICdJa295aScpLCBmaWxsID0gJ2JsdWUnKSoqOiB04bqhbyBj4buZdCBjaG8gZOG7ryBsaeG7h3UgxJHGsOG7o2MgbOG7jWMgdOG7qyAiSWtveWkiIHbDoCBsw6BtIGNobyBtw6B1IGPhu6dhIGPhu5l0IGzDoCB4YW5oLg0KDQrEkMOieSBsw6AgYmnhu4N1IMSR4buTIHNvIHPDoW5oIGdpw6EgY+G7p2EgY8OhYyBuZ8O0aSBuaMOgIHF1YSBoYWkgdGjDoG5oIHBo4buRIGzDoCAnTGVra2knIHbDoCAnSWtveWknDQoNCiMjIyBCaeG7g3UgxJHhu5MgMTI6DQoNCmBgYHtyfQ0KdG1wNCAlPiUgZ2dwbG90KGFlcyh4ID0gcHJpY2UxLCB5ID0gbikpICsNCiAgZ2VvbV9jb2woZGF0YSA9IHRtcDQgJT4lIGZpbHRlcih0b3duID09ICdMZWtraScpLCBmaWxsID0gJ3JlZCcpICsNCiAgZ2VvbV9jb2woZGF0YSA9IHRtcDQgJT4lIGZpbHRlcih0b3duID09ICdBYmVva3V0YSBTb3V0aCcpLCBmaWxsID0gJ2JsdWUnKQ0KYGBgDQoNCkJp4buDdSDEkeG7kyBzbyBzw6FuaCBnacOhIGPhu6dhIGPDoWMgbmfDtGkgbmjDoCBxdWEgaGFpIHRow6BuaCBwaOG7kSBsw6AgJ0xla2tpJyB2w6AgJ0FiZW9rdXRhIFNvdXRoJw0KDQojIyMgQmnhu4N1IMSR4buTIDEzOg0KDQpgYGB7cn0NCnRtcDQgJT4lIGdncGxvdChhZXMoeCA9IHByaWNlMSwgeSA9IG4pKSArDQogIGdlb21fY29sKGRhdGEgPSB0bXA0ICU+JSBmaWx0ZXIodG93biA9PSAnSWtveWknKSwgZmlsbCA9ICdyZWQnKSArDQogIGdlb21fY29sKGRhdGEgPSB0bXA0ICU+JSBmaWx0ZXIodG93biA9PSAnQWJlb2t1dGEgU291dGgnKSwgZmlsbCA9ICdibHVlJykNCmBgYA0KDQpCaeG7g3UgxJHhu5Mgc28gc8OhbmggZ2nDoSBj4bunYSBjw6FjIG5nw7RpIG5ow6AgcXVhIGhhaSB0aMOgbmggcGjhu5EgbMOgICdJa295aScgdsOgICdBYmVva3V0YSBTb3V0aCcNCg0KIyMjIEJp4buDdSDEkeG7kyAxNDoNCg0KYGBge3J9DQp0bXA1IDwtIHRtcCAlPiUgZ3JvdXBfYnkocHJpY2UxLCBzdGF0ZSkgJT4lIHN1bW1hcmlzZShuID0gbigpLC5ncm91cHMgPSAnZHJvcCcpDQp0bXA1ICU+JSBnZ3Bsb3QoYWVzKHggPSBwcmljZTEsIHkgPSBuKSkgKw0KICBnZW9tX2NvbChkYXRhID0gdG1wNSAlPiUgZmlsdGVyKHN0YXRlID09ICdSaXZlcnMnKSwgZmlsbCA9ICdibHVlJykgKw0KICAgZ2VvbV9jb2woZGF0YSA9IHRtcDUgJT4lIGZpbHRlcihzdGF0ZSA9PSAnQWJpYScpLCBmaWxsID0gJ3JlZCcpDQpgYGANCg0KLSAqKnRtcDUgPC0gdG1wICU+JSBncm91cF9ieShwcmljZTEsIHRvd24pICU+JSBzdW1tYXJpc2UobiA9IG4oKSwgLmdyb3VwcyA9ICdkcm9wJykqKjogTmjDs20gZOG7ryBsaeG7h3UgdGhlbyBj4buZdCAicHJpY2UxIiB2w6AgInN0YXRlIi4gU+G7rSBk4bulbmcgKipzdW1tYXJpc2UqKiDEkeG7gyB04bqhbyBi4bqjbmcgdMOzbSB04bqvdCB24bubaSBz4buRIGzGsOG7o25nIChuKSBj4bunYSBt4buXaSBuaMOzbS4gKiouZ3JvdXBzID0gJ2Ryb3AnKiogxJHhu4MgYuG7jyBxdWEgdmnhu4djIGdp4buvIGzhuqFpIGPDoWMgbmjDs20uDQoNCi0gKip0bXA1ICU+JSBnZ3Bsb3QoYWVzKHggPSBwcmljZTEsIHkgPSBuKSkqKjogZ2dwbG90IHThuqFvIG3hu5l0IMSR4buRaSB0xrDhu6NuZyBnZ3Bsb3QgduG7m2kgYWVzdGhldGljcyBsw6AgInByaWNlMSIgdHLDqm4gdHLhu6VjIHggdsOgICJuIiB0csOqbiB0cuG7pWMgeS4NCg0KLSAqKmdlb21fY29sKGRhdGEgPSB0bXA1ICU+JSBmaWx0ZXIoc3RhdGUgPT0gJ1JpdmVycycpLCBmaWxsID0gJ2JsdWUnKSoqOiBnZW9tX2NvbCB04bqhbyBj4buZdCBjaG8gZOG7ryBsaeG7h3UgxJHGsOG7o2MgbOG7jWMgdOG7qyAiUml2ZXJzIi4gVsOgIGzDoG0gY2hvIG3DoHUgY+G7p2EgY+G7mXQgbMOgIMSR4buPLg0KDQotICoqZ2VvbV9jb2woZGF0YSA9IHRtcDUgJT4lIGZpbHRlcihzdGF0ZSA9PSAnQWJpYScpLCBmaWxsID0gJ3JlZCcpKio6IHThuqFvIGPhu5l0IGNobyBk4buvIGxp4buHdSDEkcaw4bujYyBs4buNYyB04burICJBYmlhIiB2w6AgbMOgbSBjaG8gbcOgdSBj4bunYSBj4buZdCBsw6AgeGFuaC4NCg0KxJDDonkgbMOgIGJp4buDdSDEkeG7kyBzbyBzw6FuaCBnacOhIGPhu6dhIGPDoWMgbmfDtGkgbmjDoCBxdWEgaGFpIGJhbmcgbMOgICdSaXZlcnMnIHbDoCAnQWJpYScNCg0KIyMjIEJp4buDdSDEkeG7kyAxNToNCg0KYGBge3J9DQp0bXA1ICU+JSBnZ3Bsb3QoYWVzKHggPSBwcmljZTEsIHkgPSBuKSkgKw0KICBnZW9tX2NvbChkYXRhID0gdG1wNSAlPiUgZmlsdGVyKHN0YXRlID09ICdSaXZlcnMnKSwgZmlsbCA9ICdibHVlJykgKw0KICAgZ2VvbV9jb2woZGF0YSA9IHRtcDUgJT4lIGZpbHRlcihzdGF0ZSA9PSAnT2d1bicpLCBmaWxsID0gJ3JlZCcpDQpgYGANCg0KxJDDonkgbMOgIGJp4buDdSDEkeG7kyBzbyBzw6FuaCBnacOhIGPhu6dhIGPDoWMgbmfDtGkgbmjDoCBxdWEgaGFpIGJhbmcgbMOgICdSaXZlcnMnIHbDoCAnT2d1bicNCg0KIyMgQmnhu4N1IMSR4buTIHbhu4EgbG/huqFpIG5ow6A6DQoNCiMjIyBCaeG7g3UgxJHhu5MgMTY6DQoNCmBgYHtyfQ0KdG1wICU+JSBncm91cF9ieSh0aXRsZSkgJT4lIHN1bW1hcmlzZShuID0gbigpKSAlPiUNCiAgZ2dwbG90KGFlcyh0aXRsZSxuKSkgKw0KICAgIGdlb21fY29sKGZpbGw9J2dyZWVuJykgKw0KICAgIGdlb21fdGV4dChhZXMobGFiZWwgPSBuKSx2anVzdCA9IDIsIGNvbG9yID0gJ3JlZCcpICsNCiAgICBsYWJzKHggPSAnTG/huqFpJywgeSA9ICdT4buRIGzGsOG7o25nJywgdGl0bGUgPSdT4buRIGzGsOG7o25nIGPDoWMgbG/huqFpIG5ow6Ag4bufJykNCmBgYA0KDQpHaeG6o2kgdGjDrWNoIGNodW5rOg0KDQotICoqdG1wICU+JSBncm91cF9ieSh0aXRsZSkgJT4lIHN1bW1hcmlzZShuID0gbigpKSAlPiUqKjogUGjhuqduIG7DoHkgY+G7p2EgbcOjIG5ow7NtIGThu68gbGnhu4d1IHRyb25nIGRhdGFmcmFtZSB0bXAgdGhlbyBiaeG6v24gInRpdGxlIiB2w6AgdMOtbmggdG/DoW4gc+G7kSBsxrDhu6NuZyAobikgY2hvIG3hu5dpIG5ow7NtLg0KDQotICoqZ2dwbG90KGFlcyh0aXRsZSwgbikpICsgZ2VvbV9jb2woZmlsbD0nZ3JlZW4nKSArICBnZW9tX3RleHQoYWVzKGxhYmVsID0gbiksIHZqdXN0ID0gMiwgY29sb3IgPSAncmVkJykgKyAgbGFicyh4ID0gJ0xv4bqhaScsIHkgPSAnU+G7kSBsxrDhu6NuZycsIHRpdGxlID0nU+G7kSBsxrDhu6NuZyBjw6FjIGxv4bqhaSBuaMOgIOG7nycpKio6IFBo4bqnbiBuw6B5IHPhu60gZOG7pW5nIGdncGxvdCgpIMSR4buDIGto4bufaSB04bqhbyBiaeG7g3UgxJHhu5MsIGdlb21fY29sKCkgxJHhu4MgdOG6oW8gYmnhu4N1IMSR4buTIGPhu5l0LCBnZW9tX3RleHQoKSDEkeG7gyB0aMOqbSBuaMOjbiBsw6puIHRyw6puIGPDoWMgY+G7mXQgdsOgIGxhYnMoKSDEkeG7gyDEkeG6t3QgbmjDo24gY2hvIHRy4bulYyB2w6AgdGnDqnUgxJHhu4EuDQoNCkdp4bqjaSB0aMOtY2ggYmnhu4N1IMSR4buTOg0KDQotIMSQw6J5IGzDoCBiaeG7g3UgxJHhu5MgduG7gSBz4buRIGzGsOG7o25nIGPDoWMgbG/huqFpIG5ow6AgxJHGsOG7o2MgxJFp4buBdSB0cmEuDQoNCi0gQ8OzIDYgY+G7mXQsIHTGsMahbmcgxJHGsMahbmcgNiBsYW9paiBuaMOgLg0KDQotIFRyb25nIDI0MzI2IG5nw7RpIG5ow6AgxJHGsOG7o2MgcGjDom4gdMOtY2gsIGPDsyAxNzQ1IG5nw7RpIG5ow6AgdGh14buZYyBsb+G6oWkgQmxvY2sgb2YgRmxhdHMsIDIxMDggbmfDtGkgbmjDoCB0aHXhu5ljIGxv4bqhaSBEZXRhY2VkIEJ1bmdhbG93LC4uLg0KDQojIyMgQmnhu4N1IMSR4buTIDE3Og0KDQpgYGB7cn0NCnRtcDMgPC0gdG1wICU+JSBncm91cF9ieShwcmljZTEsIHRpdGxlKSAlPiUgc3VtbWFyaXNlKG4gPSBuKCksLmdyb3VwcyA9ICdkcm9wJykNCnRtcDMgJT4lIGdncGxvdChhZXMoeCA9IHByaWNlMSwgeSA9IG4pKSArDQogIGdlb21fY29sKGRhdGEgPSB0bXAzICU+JSBmaWx0ZXIodGl0bGUgPT0gJ0Jsb2NrIG9mIEZsYXRzJyksIGZpbGwgPSAncmVkJykgKw0KICBnZW9tX2NvbChkYXRhID0gdG1wMyAlPiUgZmlsdGVyKHRpdGxlID09ICdEZXRhY2hlZCBCdW5nYWxvdycpLCBmaWxsID0gJ2JsdWUnKQ0KYGBgDQoNCi0gKip0bXAzIDwtIHRtcCAlPiUgZ3JvdXBfYnkocHJpY2UxLCB0aXRsZSkgJT4lIHN1bW1hcmlzZShuID0gbigpLC5ncm91cHMgPSAnZHJvcCcpKio6IE5ow7NtIGThu68gbGnhu4d1IHRoZW8gY+G7mXQgInByaWNlMSIgdsOgICJ0aXRsZSIuIFPhu60gZOG7pW5nICoqc3VtbWFyaXNlKiogxJHhu4MgdOG6oW8gYuG6o25nIHTDs20gdOG6r3QgduG7m2kgc+G7kSBsxrDhu6NuZyAobikgY+G7p2EgbeG7l2kgbmjDs20uICoqLmdyb3VwcyA9ICdkcm9wJyoqIMSR4buDIGLhu48gcXVhIHZp4buHYyBnaeG7ryBs4bqhaSBjw6FjIG5ow7NtLg0KDQotICoqdG1wMyAlPiUgZ2dwbG90KGFlcyh4ID0gcHJpY2UxLCB5ID0gbikpKio6IGdncGxvdCB04bqhbyBt4buZdCDEkeG7kWkgdMaw4bujbmcgZ2dwbG90IHbhu5tpIGFlc3RoZXRpY3MgbMOgICJwcmljZTEiIHRyw6puIHRy4bulYyB4IHbDoCAibiIgdHLDqm4gdHLhu6VjIHkuDQoNCi0gKipnZW9tX2NvbChkYXRhID0gdG1wMyAlPiUgZmlsdGVyKHRpdGxlID09ICdCbG9jayBvZiBGbGF0cycpLCBmaWxsID0gJ3JlZCcpKio6IGdlb21fY29sIHThuqFvIGPhu5l0IGNobyBk4buvIGxp4buHdSDEkcaw4bujYyBs4buNYyB04burICJCbG9jayBvZiBGbGF0cyIuIFbDoCBsw6BtIGNobyBtw6B1IGPhu6dhIGPhu5l0IGzDoCDEkeG7jy4NCg0KLSAqKmdlb21fY29sKGRhdGEgPSB0bXAzICU+JSBmaWx0ZXIodGl0bGUgPT0gJ0RldGFjaGVkIEJ1bmdhbG93JyksIGZpbGwgPSAnYmx1ZScpKio6IHThuqFvIGPhu5l0IGNobyBk4buvIGxp4buHdSDEkcaw4bujYyBs4buNYyB04burICJEZXRhY2hlZCBCdW5nYWxvdyIgdsOgIGzDoG0gY2hvIG3DoHUgY+G7p2EgY+G7mXQgbMOgIHhhbmguDQoNCsSQw6J5IGzDoCBiaeG7g3UgxJHhu5Mgc28gc8OhbmggduG7gSBnacOhIGdp4buvYSAyIGxv4bqhaSBuaMOgIGzDoCAnQmxvY2sgb2YgRmxhdHMnIHbDoCAnRGV0YWNoZWQgQnVuZ2Fsb3cnDQoNCiMjIyBCaeG7g3UgxJHhu5MgMTg6DQoNCmBgYHtyfQ0KICB0bXAzICU+JSBnZ3Bsb3QoYWVzKHggPSBwcmljZTEsIHkgPSBuKSkgKw0KICBnZW9tX2NvbChkYXRhID0gdG1wMyAlPiUgZmlsdGVyKHRpdGxlID09ICdEZXRhY2hlZCBEdXBsZXgnKSwgZmlsbCA9ICdyZWQnKSArDQogIGdlb21fY29sKGRhdGEgPSB0bXAzICU+JSBmaWx0ZXIodGl0bGUgPT0gJ0RldGFjaGVkIEJ1bmdhbG93JyksIGZpbGwgPSAnYmx1ZScpDQpgYGANCg0KQmnhu4N1IMSR4buTIHNvIHPDoW5oIHbhu4EgZ2nDoSBnaeG7r2EgMiBsb+G6oWkgbmjDoCBsw6AgJ0RldGFjaGVkIER1cGxleCcgdsOgICdEZXRhY2hlZCBCdW5nYWxvdycNCg0KIyMjIEJp4buDdSDEkeG7kyAxOToNCg0KYGBge3J9DQogIHRtcDMgJT4lIGdncGxvdChhZXMoeCA9IHByaWNlMSwgeSA9IG4pKSArDQogIGdlb21fY29sKGRhdGEgPSB0bXAzICU+JSBmaWx0ZXIodGl0bGUgPT0gJ0RldGFjaGVkIER1cGxleCcpLCBmaWxsID0gJ3JlZCcpICsNCiAgZ2VvbV9jb2woZGF0YSA9IHRtcDMgJT4lIGZpbHRlcih0aXRsZSA9PSAnQmxvY2sgb2YgRmxhdHMnKSwgZmlsbCA9ICdibHVlJykNCmBgYA0KDQpCaeG7g3UgxJHhu5Mgc28gc8OhbmggduG7gSBnacOhIGdp4buvYSAyIGxv4bqhaSBuaMOgIGzDoCAnRGV0YWNoZWQgRHVwbGV4JyB2w6AgJ0Jsb2NrIG9mIEZsYXRzJw0KDQojIyMgQmnhu4N1IMSR4buTIDIwOg0KDQpgYGB7cn0NCnRtcDMgJT4lIGdncGxvdChhZXMoeCA9IHByaWNlMSwgeSA9IG4pKSArDQogIGdlb21fY29sKGRhdGEgPSB0bXAzICU+JSBmaWx0ZXIodGl0bGUgPT0gJ0RldGFjaGVkIER1cGxleCcpLCBmaWxsID0gJ3JlZCcpICsNCiAgZ2VvbV9jb2woZGF0YSA9IHRtcDMgJT4lIGZpbHRlcih0aXRsZSA9PSAnQmxvY2sgb2YgRmxhdHMnKSwgZmlsbCA9ICdibHVlJykgKw0KICBnZW9tX2NvbChkYXRhID0gdG1wMyAlPiUgZmlsdGVyKHRpdGxlID09ICdEZXRhY2hlZCBCdW5nYWxvdycpLCBmaWxsID0gJ2dyZWVuJykNCmBgYA0KDQpCaeG7g3UgxJHhu5Mgc28gc8OhbmggduG7gSBnacOhIGdp4buvYSAzIGxv4bqhaSBuaMOgIGzDoCAnRGV0YWNoZWQgRHVwbGV4JyAnQmxvY2sgb2YgRmxhdHMnIHbDoCAnRGV0YWNoZWQgQnVuZ2Fsb3cnDQoNCg0K