Course Aims

  • To introduce you to the basics of R
    • Reading data
    • Cleaning and sorting data
    • Basic data analysis
    • Plotting graphs
    • How to get help!!!
  • Practice materials to enable you learn remotely
  • Introduce tools that will help you work in a reproducible manner

Day 1 schedule

  • Introduction to R and its environment
  • Data structures
  • Data Analysis walkthrough
  • Plotting in R

1. Introduction to R and its environment

What is R?

  • R is an open source statistical programming language based on S
  • Statistical features
  • Programming features
  • Diverse range of packages
  • Active community of developers

http://www.r-project.org/ R screenshot

R in the news

https://analyticsindiamag.com/6-ways-r-is-best-suited-for-big-data-analytics/ R in the news

Getting started

  • Latest release 3.6.1 (July, 2019)
    • Base package and Contributed packages (general purpose extras)
      • 15045 available packages as of Tue Oct 8 15:37:09 2019
  • Download from https://cran.ma.imperial.ac.uk/
  • Windows, Mac and Linux versions available
  • Executed using command line, or a graphical user interface (GUI)
  • On this course, we use the RStudio GUI (“http://www.rstudio.com”)

To launch RStudio, find the icon and click it RStudio icon

R-studio RStudio

  • The traditional way to enter R commands is via the Terminal, or using the console in RStudio (bottom-left)
  • Alternatively you can enter commands or scripts in the plain white space also called R script
  • Try this now!
print("Hello World")

Basic concepts in R - simple arithmetic

  • The command line can be used as a calculator and understands the usual arithmetic operators +, -, *, /
  • Try adding a few more calculations here
2 + 2
2 - 2
4 * 3
10 / 2

Note: The number in the square brackets is an indicator of the position in the output. In this case the output is a ‘vector’ of length 1 (i.e. a single number). More on vectors coming up…

In the case of expressions involving multiple operations, R respects the BODMAS system to decide the order in which operations should be performed.

2 + 2 *3
2 + (2 * 3)
(2 + 2) * 3

R is capable of more complicated arithmetic such as trigonometry and logarithms; like you would find on a fancy scientific calculator. Of course, R also has a plethora of statistical operations as we will see.

pi
sin (pi/2)
cos(pi)
tan(2)
log(1)

We can only go so far with performing simple calculations like this. Eventually we will need to store our results for later use. For this, we need to make use of variables.

Basic concepts in R - variables

  • A variable is a letter or word which takes (or contains) a value. We use the assignment operator: <-
x <- 10
x
myNumber <- 25
myNumber
  • We can perform arithmetic on variables:
sqrt(myNumber)
  • We can add variables together:
x + myNumber
  • We can change the value of an existing variable:
x <- 21
x
  • We can set one variable to equal the value of another variable:
x <- myNumber
x
  • We can modify the contents of a variable:
myNumber <- myNumber + sqrt(16)
myNumber

When we are feeling lazy we might give our variables short names (x, y, i…etc), but a better practice would be to give them meaningful names. There are some restrictions on creating variable names. They cannot start with a number or contain characters such as ., _, ‘-’. Naming variables the same as in-built functions in R, such as c, T, mean should also be avoided.

Naming variables is a matter of taste. Some conventions exist such as a separating words with - or using CamelCaps. Whatever convention you decided, stick with it!

Basic concepts in R - functions

  • Functions in R perform operations on arguments (the inputs(s) to the function). We have already used:
sin(x)
  • This returns the sine of x
    • In this case the function has one argument: x.
    • Arguments are always contained in parentheses – curved brackets, () – separated by commas.

Arguments can be named or unnamed, but if they are unnamed they must be ordered (we will see later how to find the right order). The names of the arguments are determined by the author of the function and can be found in the help page for the function. When testing code, it is easier and safer to name the arguments.

seq is a function for generating a numeric sequence from and to particular numbers.

  • Type ?seq to get the help page for this function.
  • When testing code, it is easier and safer to name the arguments
seq(from = 2, to = 20, by = 4)
seq(2, 20, 4)

Arguments can have default values, meaning we do not need to specify values for these in order to run the function.

rnorm is a function that will generate a series of values from a normal distribution. In order to use the function, we need to tell R how many values we want

rnorm(n=10)

The normal distribution is defined by a mean (average) and standard deviation (spread). However, in the above example we didn’t tell R what mean and standard deviation we wanted. So how does R know what to do? All arguments to a function and their default values are listed in the help page

(N.B sometimes help pages can describe more than one function)

?rnorm

In this case, we see that the defaults for mean and standard deviation are 0 and 1. We can change the function to generate values from a distribution with a different mean and standard deviation using the mean and sd arguments. It is important that we get the spelling of these arguments exactly right, otherwise R will an error message, or (worse?) do something unexpected.

rnorm(n=10, mean=2,sd=3)
rnorm(10, 2, 3)

In the examples above, seq and rnorm were both outputting a series of numbers, which is called a vector in R and is the most-fundamental data-type.

Basic concepts in R - vectors

  • The basic data structure in R is a vector – an ordered collection of values.
  • R treats even single values as 1-element vectors.
  • The function c combines its arguments into a vector:
x <- c(3,4,5,6)
x
  • The square brackets [] indicate the position within the vector (the index).
  • We can extract individual elements by using the [] notation:
x[1]
x[4]
  • We can even put a vector inside the square brackets (vector indexing):
  • Before executing this line of code, what do you think it will produce?
y <- c(2,3)
x[y]
  • There are a number of shortcuts to create a vector.
  • Instead of:
x <- c(3, 4, 5, 6, 7, 8, 9, 10, 11, 12)
x
  • we can write:
x <- 3:12
x
  • or we can use the seq() function, which returns a vector:
x <- seq(2, 20, 4)
x
[1]  2  6 10 14 18
x <- seq(2, 20, length.out=5)
x
[1]  2.0  6.5 11.0 15.5 20.0
  • or we can use the rep() function:
y <- rep(3, 5)
y
[1] 3 3 3 3 3
y <- rep(1:3, 5)
y
 [1] 1 2 3 1 2 3 1 2 3 1 2 3 1 2 3
  • We have seen some ways of extracting elements of a vector. We can use these shortcuts to make things easier (or more complex!)
x <- 3:12
# Extract elements from x:

x[3:7]
[1] 5 6 7 8 9
x[seq(2, 6, 2)]
[1] 4 6 8
x[rep(3, 2)]
[1] 5 5
  • We can add an element to a vector:
y <- c(x, 1)
y
 [1]  3  4  5  6  7  8  9 10 11 12  1
  • We can glue vectors together:
z <- c(x, y)
z
 [1]  3  4  5  6  7  8  9 10 11 12  3  4  5  6  7  8  9 10 11 12  1
  • We can “remove” element(s) from a vector:
    • NOTE: the vector x doesn’t get modified
    • we’re just displaying what the vector looks like without particular elements
x <- 3:12

x[-3]
[1]  3  4  6  7  8  9 10 11 12
x[-(5:7)]
[1]  3  4  5  6 10 11 12
x[-seq(2, 6, 2)]
[1]  3  5  7  9 10 11 12
x
 [1]  3  4  5  6  7  8  9 10 11 12
  • Finally, we can modify the contents of a vector:
x[6] <- 4
x
 [1]  3  4  5  6  7  4  9 10 11 12
x[3:5] <- 1
x
 [1]  3  4  1  1  1  4  9 10 11 12

Remember!

  • Square brackets [ ] for indexing
  • Parentheses () for function arguments

Basic concepts in R - vector arithmetic

  • When applying all standard arithmetic operations to vectors, application is element-wise
x <- 1:10
y <- x*2
y
z <- x^2
z
  • Adding two vectors:
y + z
  • If vectors are not the same length, the shorter one will be recycled:
x + 1:2
  • But be careful if the vector lengths aren’t factors of each other:
x + 1:3
  • Sometimes R will give a warning message. It has performed the calculation you asked it to, but the results may be unexpected. You need to check the output carefully to make sure it is what you really wanted.

Basic concepts in R - Character vectors and naming

  • All the vectors we have seen so far have contained numbers, but we can also store text (/“strings”) in vector
    • this is called a character vector.
gene.names <- c("Pax6", "Beta-actin", "FoxP2", "Hox9")
gene.names
  • We can name elements of vectors using the names() function, which can be useful to keep track of the meaning of our data:
gene.expression <- c(0, 3.2, 1.2, -2)
names(gene.expression) <- gene.names
gene.expression
  • We can also use the names() function to get a vector of the names of an object:
names(gene.expression)

Exercise: Body-Mass Index

  • Let’s try some vector arithmetic. Here are the weights and heights of five individuals
Person Weight (kg) Height (cm)
Jo 65.8 192
Sam 67.9 179
Charlie 75.3 169
Frankie 61.9 175
Alex 92.4 171
  • Create weight and height vectors to hold the data in each column using the c function. Create a person vector and use this vector to name the values in the other two vectors.
  1. The body-mass index is given by the formula:- \(BMI = (Weight)/(Height^2)\); where Height is given in metres
    • Create a new vector to record this, called bmi.
  2. Create a new vector bmi.sorted where the bmi values are put in increasing numeric order (HINT: look up the help on the sort function)
  3. The interquartile range (IQR) of a vector is defined as the 75% percentile of the data minus the 25% percentile. Calculate the IQR for our bmi values
    • check your answer using the IQR function

Getting help

  • This is possibly the most important slide in the whole course!?!
  • To get help on any R function, type ? followed by the function name. For example:
?seq
  • This retrieves the syntax and arguments for the function. The help page shows the default order of arguments. It also tells you which package it belongs to.
  • There is typically a usage example, which you can test using the example function:
example(seq)
  • If you can’t remember the exact name, type ?? followed by your guess. R will return a list of possibilities:
??mean
  • The Packages tab in the lower-right panel of RStudio will help you locate the help pages for a particular package and its functions
    • Often there will be a user-guide or ‘vignette’ too

R packages

  • R comes ready loaded with various libraries of functions called packages. For example: the function sum() is in the base package and sd(), which calculates the standard deviation of a vector, is in the stats package
  • There are 1000s of additional packages provided by third parties, and the packages can be found in numerous server locations on the web called repositories
  • The two repositories you will come across the most are:
  • Bottomline: always first look if there is already an R package that does what you want before trying to implement it yourself

Installing packages

  • CRAN packages can be installed using install.packages()

    • or clicking on the Packages tab in RStudio
install.packages(name.of.my.package)
  • Set the Bioconductor package download tool by typing:
source("http://bioconductor.org/biocLite.R")
  • Bioconductor packages are then installed with the biocLite() function:
biocLite("PackageName")
  • ggplot2 is a commonly used graphics package:
    • in RStudio, go to Tools → Install Packages… and type the package name
    • or use install.packages() function to install it:
install.packages("ggplot2")
source("http://www.bioconductor.org/biocLite.R")
biocLite("DESeq2")

Example: Load packages ggplot2 and DESeq2

  • R needs to be told to use the new functions from the installed packages. Use library(...) function to load the newly installed features:
library(ggplot2) # loads ggplot functions
library(DESeq2)   # loads DESeq functions
library()        # Lists all the packages 
                 # you've got installed
LS0tCnRpdGxlOiAiSW50cm9kdWN0aW9uIHRvIFNvbHZpbmcgQmlvbG9naWNhbCBQcm9ibGVtcyB3aXRoIFIgLSBEYXkgMSIKYXV0aG9yOiBJZG93dSBPbGF3b3llLiBPcmlnaW5hbCBtYXRlcmlhbCBieSBSb2JlcnQgU3Rvam5pxIcsCiAgTGF1cmVudCBHYXR0bywgUm9iIEZveSwgSm9obiBEYXZleSwgRMOhdmlkIE1vbG7DoXIgYW5kIElhbiBSb2JlcnRzCmRhdGU6ICdgciBmb3JtYXQoU3lzLnRpbWUoKSwgIkxhc3QgbW9kaWZpZWQ6ICVkICViICVZIilgJwp0aGVtZTogY29zbW8Kb3V0cHV0OgogIGh0bWxfbm90ZWJvb2s6CiAgICB0b2M6IHllcwogICAgdG9jX2Zsb2F0OiB5ZXMKLS0tCmBgYHtyIGluY2x1ZGUgPSBGQUxTRX0KbGlicmFyeShrbml0cikKb3B0c19jaHVuayRzZXQoY29tbWVudCA9IE5BLGV2YWw9RkFMU0UpICMgZWxpbWluYXRlcyBoYXNodGFnIGZyb20gUiBvdXRwdXRzCmBgYAoKIyBDb3Vyc2UgQWltcwotIFRvICoqKmludHJvZHVjZSoqKiB5b3UgdG8gdGhlIGJhc2ljcyBvZiBSCiAgKyBSZWFkaW5nIGRhdGEKICArIENsZWFuaW5nIGFuZCBzb3J0aW5nIGRhdGEKICArIEJhc2ljIGRhdGEgYW5hbHlzaXMKICArIFBsb3R0aW5nIGdyYXBocwogICsgKioqSG93IHRvIGdldCBoZWxwISEhKioqCi0gKioqUHJhY3RpY2UqKiogbWF0ZXJpYWxzIHRvIGVuYWJsZSB5b3UgbGVhcm4gcmVtb3RlbHkKLSBJbnRyb2R1Y2UgdG9vbHMgdGhhdCB3aWxsIGhlbHAgeW91IHdvcmsgaW4gYSAqKipyZXByb2R1Y2libGUqKiogbWFubmVyCgojIERheSAxIHNjaGVkdWxlCi0gSW50cm9kdWN0aW9uIHRvIFIgYW5kIGl0cyBlbnZpcm9ubWVudAotIERhdGEgc3RydWN0dXJlcwotIERhdGEgQW5hbHlzaXMgd2Fsa3Rocm91Z2gKLSBQbG90dGluZyBpbiBSCgojIDEuIEludHJvZHVjdGlvbiB0byBSIGFuZCBpdHMgZW52aXJvbm1lbnQKCiMjIFdoYXQgaXMgUj8KCiogUiBpcyBhbiBvcGVuIHNvdXJjZSBzdGF0aXN0aWNhbCBwcm9ncmFtbWluZyBsYW5ndWFnZSBiYXNlZCBvbiBTCiogU3RhdGlzdGljYWwgZmVhdHVyZXMKKiBQcm9ncmFtbWluZyBmZWF0dXJlcwoqIERpdmVyc2UgcmFuZ2Ugb2YgcGFja2FnZXMKKiBBY3RpdmUgY29tbXVuaXR5IG9mIGRldmVsb3BlcnMKCgpodHRwOi8vd3d3LnItcHJvamVjdC5vcmcvCiFbUiBzY3JlZW5zaG90XShpbWFnZXMvci1wcm9qZWN0LnBuZykKCioqKlIgaW4gdGhlIG5ld3MqKioKIAogaHR0cHM6Ly9hbmFseXRpY3NpbmRpYW1hZy5jb20vNi13YXlzLXItaXMtYmVzdC1zdWl0ZWQtZm9yLWJpZy1kYXRhLWFuYWx5dGljcy8KICFbUiBpbiB0aGUgbmV3c10oaW1hZ2VzL3ItbmV3cy5wbmcpCiAKIyMgV2hvIHVzZXMgUj8gTm90IGp1c3QgYWNhZGVtaWNzIQoKaHR0cDovL3d3dy5yZXZvbHV0aW9uYW5hbHl0aWNzLmNvbS9jb21wYW5pZXMtdXNpbmctcgoKLSBGYWNlYm9vawogICAgKyBodHRwOi8vYmxvZy5yZXZvbHV0aW9uYW5hbHl0aWNzLmNvbS8yMDEwLzEyL2FuYWx5c2lzLW9mLWZhY2Vib29rLXN0YXR1cy11cGRhdGVzLmh0bWwKLSBHb29nbGUKICAgICsgaHR0cDovL2Jsb2cucmV2b2x1dGlvbmFuYWx5dGljcy5jb20vMjAwOS8wNS9nb29nbGUtdXNpbmctci10by1hbmFseXplLWVmZmVjdGl2ZW5lc3Mtb2YtdHYtYWRzLmh0bWwKLSBNaWNyb3NvZnQKICAgICsgaHR0cDovL2Jsb2cucmV2b2x1dGlvbmFuYWx5dGljcy5jb20vMjAxNC8wNS9taWNyb3NvZnQtdXNlcy1yLWZvci14Ym94LW1hdGNobWFraW5nLmh0bWwKLSBOZXcgWW9yayBUaW1lcwogICAgKyBodHRwOi8vYmxvZy5yZXZvbHV0aW9uYW5hbHl0aWNzLmNvbS8yMDExLzAzL2hvdy10aGUtbmV3LXlvcmstdGltZXMtdXNlcy1yLWZvci1kYXRhLXZpc3VhbGl6YXRpb24uaHRtbAotIEJ1enpmZWVkCiAgICArIGh0dHA6Ly9ibG9nLnJldm9sdXRpb25hbmFseXRpY3MuY29tLzIwMTUvMTIvYnV6emZlZWQtdXNlcy1yLWZvci1kYXRhLWpvdXJuYWxpc20uaHRtbAotIE5ldyBaZWFsYW5kIFRvdXJpc3QgQm9hcmQKICAgICsgaHR0cHM6Ly9tYmllbnouc2hpbnlhcHBzLmlvL3RvdXJpc21fZGFzaGJvYXJkX3Byb2QvCgojIyBHZXR0aW5nIHN0YXJ0ZWQKLSBMYXRlc3QgcmVsZWFzZSAzLjYuMSAoSnVseSwgMjAxOSkKICAgICsgQmFzZSBwYWNrYWdlIGFuZCBDb250cmlidXRlZCBwYWNrYWdlcyAoZ2VuZXJhbCBwdXJwb3NlIGV4dHJhcykKICAgICAgICArIGByIGxlbmd0aChYTUw6OjpyZWFkSFRNTFRhYmxlKCJodHRwOi8vY3Jhbi5yLXByb2plY3Qub3JnL3dlYi9wYWNrYWdlcy9hdmFpbGFibGVfcGFja2FnZXNfYnlfZGF0ZS5odG1sIilbWzFdXVtbMl1dKWAgYXZhaWxhYmxlIHBhY2thZ2VzIGFzIG9mIGByIGRhdGUoKWAKLSBEb3dubG9hZCBmcm9tIGh0dHBzOi8vY3Jhbi5tYS5pbXBlcmlhbC5hYy51ay8KLSBXaW5kb3dzLCBNYWMgYW5kIExpbnV4IHZlcnNpb25zIGF2YWlsYWJsZQotIEV4ZWN1dGVkIHVzaW5nIGNvbW1hbmQgbGluZSwgb3IgYSBncmFwaGljYWwgdXNlciBpbnRlcmZhY2UgKEdVSSkKLSBPbiB0aGlzIGNvdXJzZSwgd2UgdXNlIHRoZSBSU3R1ZGlvIEdVSSAoImh0dHA6Ly93d3cucnN0dWRpby5jb20iKQoKVG8gbGF1bmNoIFJTdHVkaW8sIGZpbmQgdGhlIGljb24gYW5kIGNsaWNrIGl0CiFbUlN0dWRpbyBpY29uXShpbWFnZXMvbG9nby5wbmcpCgohW1Itc3R1ZGlvXShpbWFnZXMvci1zdHVkaW8ubWFzdGVyLmpwZykKUlN0dWRpbwoKCgoKLSBUaGUgdHJhZGl0aW9uYWwgd2F5IHRvIGVudGVyIFIgY29tbWFuZHMgaXMgdmlhIHRoZSBUZXJtaW5hbCwgb3IgdXNpbmcgdGhlIGNvbnNvbGUgaW4gUlN0dWRpbyAoYm90dG9tLWxlZnQpCi0gQWx0ZXJuYXRpdmVseSB5b3UgY2FuIGVudGVyIGNvbW1hbmRzIG9yIHNjcmlwdHMgaW4gdGhlIHBsYWluIHdoaXRlIHNwYWNlIGFsc28gY2FsbGVkIFIgc2NyaXB0Ci0gVHJ5IHRoaXMgbm93IQoKYGBge3J9CnByaW50KCJIZWxsbyBXb3JsZCIpCgpgYGAKCgojIyBCYXNpYyBjb25jZXB0cyBpbiBSIC0gc2ltcGxlIGFyaXRobWV0aWMKCi0gVGhlIGNvbW1hbmQgbGluZSBjYW4gYmUgdXNlZCBhcyBhIGNhbGN1bGF0b3IgYW5kIHVuZGVyc3RhbmRzIHRoZSB1c3VhbCBhcml0aG1ldGljIG9wZXJhdG9ycyArLCAtLCAqLCAvIAotIFRyeSBhZGRpbmcgYSBmZXcgbW9yZSBjYWxjdWxhdGlvbnMgaGVyZQoKYGBge3J9CjIgKyAyCjIgLSAyCjQgKiAzCjEwIC8gMgoKCmBgYAoKTm90ZTogVGhlIG51bWJlciBpbiB0aGUgc3F1YXJlIGJyYWNrZXRzIGlzIGFuIGluZGljYXRvciBvZiB0aGUKcG9zaXRpb24gaW4gdGhlIG91dHB1dC4gSW4gdGhpcyBjYXNlIHRoZSBvdXRwdXQgaXMgYSAndmVjdG9yJyBvZiBsZW5ndGggMQooaS5lLiBhIHNpbmdsZSBudW1iZXIpLiBNb3JlIG9uIHZlY3RvcnMgY29taW5nIHVwLi4uCgoKSW4gdGhlIGNhc2Ugb2YgZXhwcmVzc2lvbnMgaW52b2x2aW5nIG11bHRpcGxlIG9wZXJhdGlvbnMsIFIgcmVzcGVjdHMgdGhlIFtCT0RNQVNdKGh0dHBzOi8vZW4ud2lraXBlZGlhLm9yZy93aWtpL09yZGVyX29mX29wZXJhdGlvbnMjTW5lbW9uaWNzKSBzeXN0ZW0gdG8gZGVjaWRlIHRoZSBvcmRlciBpbiB3aGljaCBvcGVyYXRpb25zIHNob3VsZCBiZSBwZXJmb3JtZWQuCgpgYGB7cn0KMiArIDIgKjMKMiArICgyICogMykKKDIgKyAyKSAqIDMKYGBgCgpSIGlzIGNhcGFibGUgb2YgbW9yZSBjb21wbGljYXRlZCBhcml0aG1ldGljIHN1Y2ggYXMgdHJpZ29ub21ldHJ5IGFuZCBsb2dhcml0aG1zOyBsaWtlIHlvdSB3b3VsZCBmaW5kIG9uIGEgZmFuY3kgc2NpZW50aWZpYyBjYWxjdWxhdG9yLiBPZiBjb3Vyc2UsIFIgYWxzbyBoYXMgYSBwbGV0aG9yYSBvZiBzdGF0aXN0aWNhbCBvcGVyYXRpb25zIGFzIHdlIHdpbGwgc2VlLgoKCmBgYHtyfQpwaQpzaW4gKHBpLzIpCmNvcyhwaSkKdGFuKDIpCmxvZygxKQoKCmBgYAoKV2UgY2FuIG9ubHkgZ28gc28gZmFyIHdpdGggcGVyZm9ybWluZyBzaW1wbGUgY2FsY3VsYXRpb25zIGxpa2UgdGhpcy4gRXZlbnR1YWxseSB3ZSB3aWxsIG5lZWQgdG8gc3RvcmUgb3VyIHJlc3VsdHMgZm9yIGxhdGVyIHVzZS4gRm9yIHRoaXMsIHdlIG5lZWQgdG8gbWFrZSB1c2Ugb2YgKnZhcmlhYmxlcyouCgoKIyMgQmFzaWMgY29uY2VwdHMgaW4gUiAtIHZhcmlhYmxlcwoKLSBBIHZhcmlhYmxlIGlzIGEgbGV0dGVyIG9yIHdvcmQgd2hpY2ggdGFrZXMgKG9yIGNvbnRhaW5zKSBhIHZhbHVlLiBXZSB1c2UgdGhlICoqYXNzaWdubWVudCBvcGVyYXRvcjogYDwtYCoqCmBgYHtyfQp4IDwtIDEwCngKbXlOdW1iZXIgPC0gMjUKbXlOdW1iZXIKYGBgCgotIFdlIGNhbiBwZXJmb3JtIGFyaXRobWV0aWMgb24gdmFyaWFibGVzOgpgYGB7cn0Kc3FydChteU51bWJlcikKYGBgCgoKLSBXZSBjYW4gYWRkIHZhcmlhYmxlcyB0b2dldGhlcjoKYGBge3J9CnggKyBteU51bWJlcgpgYGAKCi0gV2UgY2FuIGNoYW5nZSB0aGUgdmFsdWUgb2YgYW4gZXhpc3RpbmcgdmFyaWFibGU6CgpgYGB7cn0KeCA8LSAyMQp4CmBgYAoKCi0gV2UgY2FuIHNldCBvbmUgdmFyaWFibGUgdG8gZXF1YWwgdGhlIHZhbHVlIG9mIGFub3RoZXIgdmFyaWFibGU6CmBgYHtyfQp4IDwtIG15TnVtYmVyCngKYGBgCgotIFdlIGNhbiBtb2RpZnkgdGhlIGNvbnRlbnRzIG9mIGEgdmFyaWFibGU6CgpgYGB7cn0KbXlOdW1iZXIgPC0gbXlOdW1iZXIgKyBzcXJ0KDE2KQpteU51bWJlcgpgYGAKCldoZW4gd2UgYXJlIGZlZWxpbmcgbGF6eSB3ZSBtaWdodCBnaXZlIG91ciB2YXJpYWJsZXMgc2hvcnQgbmFtZXMgKGB4YCwgYHlgLCBgaWAuLi5ldGMpLCBidXQgYSBiZXR0ZXIgcHJhY3RpY2Ugd291bGQgYmUgdG8gZ2l2ZSB0aGVtIG1lYW5pbmdmdWwgbmFtZXMuIFRoZXJlIGFyZSBzb21lIHJlc3RyaWN0aW9ucyBvbiBjcmVhdGluZyB2YXJpYWJsZSBuYW1lcy4gVGhleSBjYW5ub3Qgc3RhcnQgd2l0aCBhIG51bWJlciBvciBjb250YWluIGNoYXJhY3RlcnMgc3VjaCBhcyBgLmAsIGBfYCwgJy0nLiBOYW1pbmcgdmFyaWFibGVzIHRoZSBzYW1lIGFzIGluLWJ1aWx0IGZ1bmN0aW9ucyBpbiBSLCBzdWNoIGFzIGBjYCwgYFRgLCBgbWVhbmAgc2hvdWxkIGFsc28gYmUgYXZvaWRlZC4KCk5hbWluZyB2YXJpYWJsZXMgaXMgYSBtYXR0ZXIgb2YgdGFzdGUuIFNvbWUgW2NvbnZlbnRpb25zXShodHRwOi8vYWR2LXIuaGFkLmNvLm56L1N0eWxlLmh0bWwpIGV4aXN0IHN1Y2ggYXMgYSBzZXBhcmF0aW5nIHdvcmRzIHdpdGggYC1gIG9yIHVzaW5nICpDKmFtZWwqQyphcHMuIFdoYXRldmVyIGNvbnZlbnRpb24geW91IGRlY2lkZWQsIHN0aWNrIHdpdGggaXQhCgoKIyMgQmFzaWMgY29uY2VwdHMgaW4gUiAtIGZ1bmN0aW9ucwoKLSAqKkZ1bmN0aW9ucyoqIGluIFIgcGVyZm9ybSBvcGVyYXRpb25zIG9uICoqYXJndW1lbnRzKiogKHRoZSBpbnB1dHMocykgdG8gdGhlIGZ1bmN0aW9uKS4gV2UgaGF2ZSBhbHJlYWR5IHVzZWQ6CmBgYHtyfQpzaW4oeCkKYGBgCgotIFRoaXMgcmV0dXJucyB0aGUgc2luZSBvZiB4CiAgICAgKyBJbiB0aGlzIGNhc2UgdGhlIGZ1bmN0aW9uIGhhcyBvbmUgYXJndW1lbnQ6ICoqeCoqLiAKICAgICArIEFyZ3VtZW50cyBhcmUgYWx3YXlzIGNvbnRhaW5lZCBpbiBwYXJlbnRoZXNlcyAtLSBjdXJ2ZWQgYnJhY2tldHMsICoqKCkqKiAtLSBzZXBhcmF0ZWQgYnkgY29tbWFzLgogICAgIAogICAgIApBcmd1bWVudHMgY2FuIGJlIG5hbWVkIG9yIHVubmFtZWQsIGJ1dCBpZiB0aGV5IGFyZSB1bm5hbWVkIHRoZXkgbXVzdCBiZSBvcmRlcmVkICh3ZSB3aWxsIHNlZSBsYXRlciBob3cgdG8gZmluZCB0aGUgcmlnaHQgb3JkZXIpLiBUaGUgbmFtZXMgb2YgdGhlIGFyZ3VtZW50cyBhcmUgZGV0ZXJtaW5lZCBieSB0aGUgYXV0aG9yIG9mIHRoZSBmdW5jdGlvbiBhbmQgY2FuIGJlIGZvdW5kIGluIHRoZSBoZWxwIHBhZ2UgZm9yIHRoZSBmdW5jdGlvbi4gV2hlbiB0ZXN0aW5nIGNvZGUsIGl0IGlzIGVhc2llciBhbmQgc2FmZXIgdG8gbmFtZSB0aGUgYXJndW1lbnRzLiAKCmBzZXFgIGlzIGEgZnVuY3Rpb24gZm9yIGdlbmVyYXRpbmcgYSBudW1lcmljIHNlcXVlbmNlICpmcm9tKiBhbmQgKnRvKiBwYXJ0aWN1bGFyIG51bWJlcnMuIAoKLSBUeXBlIGA/c2VxYCB0byBnZXQgdGhlIGhlbHAgcGFnZSBmb3IgdGhpcyBmdW5jdGlvbi4KLSBXaGVuIHRlc3RpbmcgY29kZSwgaXQgaXMgZWFzaWVyIGFuZCBzYWZlciB0byBuYW1lIHRoZSBhcmd1bWVudHMKCmBgYHtyfQpzZXEoZnJvbSA9IDIsIHRvID0gMjAsIGJ5ID0gNCkKc2VxKDIsIDIwLCA0KQpgYGAKCkFyZ3VtZW50cyBjYW4gaGF2ZSAqZGVmYXVsdCogdmFsdWVzLCBtZWFuaW5nIHdlIGRvIG5vdCBuZWVkIHRvIHNwZWNpZnkgdmFsdWVzIGZvciB0aGVzZSBpbiBvcmRlciB0byBydW4gdGhlIGZ1bmN0aW9uLgoKYHJub3JtYCBpcyBhIGZ1bmN0aW9uIHRoYXQgd2lsbCBnZW5lcmF0ZSBhIHNlcmllcyBvZiB2YWx1ZXMgZnJvbSBhICpub3JtYWwgZGlzdHJpYnV0aW9uKi4gSW4gb3JkZXIgdG8gdXNlIHRoZSBmdW5jdGlvbiwgd2UgbmVlZCB0byB0ZWxsIFIgaG93IG1hbnkgdmFsdWVzIHdlIHdhbnQKCmBgYHtyfQpybm9ybShuPTEwKQpgYGAKClRoZSBub3JtYWwgZGlzdHJpYnV0aW9uIGlzIGRlZmluZWQgYnkgYSAqbWVhbiogKGF2ZXJhZ2UpIGFuZCAqc3RhbmRhcmQgZGV2aWF0aW9uKiAoc3ByZWFkKS4gSG93ZXZlciwgaW4gdGhlIGFib3ZlIGV4YW1wbGUgd2UgZGlkbid0IHRlbGwgUiB3aGF0IG1lYW4gYW5kIHN0YW5kYXJkIGRldmlhdGlvbiB3ZSB3YW50ZWQuIFNvIGhvdyBkb2VzIFIga25vdyB3aGF0IHRvIGRvPyBBbGwgYXJndW1lbnRzIHRvIGEgZnVuY3Rpb24gYW5kIHRoZWlyIGRlZmF1bHQgdmFsdWVzIGFyZSBsaXN0ZWQgaW4gdGhlIGhlbHAgcGFnZQoKKCpOLkIgc29tZXRpbWVzIGhlbHAgcGFnZXMgY2FuIGRlc2NyaWJlIG1vcmUgdGhhbiBvbmUgZnVuY3Rpb24qKQoKYGBge3J9Cj9ybm9ybQpgYGAKCkluIHRoaXMgY2FzZSwgd2Ugc2VlIHRoYXQgdGhlIGRlZmF1bHRzIGZvciBtZWFuIGFuZCBzdGFuZGFyZCBkZXZpYXRpb24gYXJlIDAgYW5kIDEuIFdlIGNhbiBjaGFuZ2UgdGhlIGZ1bmN0aW9uIHRvIGdlbmVyYXRlIHZhbHVlcyBmcm9tIGEgZGlzdHJpYnV0aW9uIHdpdGggYSBkaWZmZXJlbnQgbWVhbiBhbmQgc3RhbmRhcmQgZGV2aWF0aW9uIHVzaW5nIHRoZSBgbWVhbmAgYW5kIGBzZGAgKmFyZ3VtZW50cyouIEl0IGlzIGltcG9ydGFudCB0aGF0IHdlIGdldCB0aGUgc3BlbGxpbmcgb2YgdGhlc2UgYXJndW1lbnRzIGV4YWN0bHkgcmlnaHQsIG90aGVyd2lzZSBSIHdpbGwgYW4gZXJyb3IgbWVzc2FnZSwgb3IgKHdvcnNlPykgZG8gc29tZXRoaW5nIHVuZXhwZWN0ZWQuCgpgYGB7cn0Kcm5vcm0obj0xMCwgbWVhbj0yLHNkPTMpCnJub3JtKDEwLCAyLCAzKQpgYGAKCkluIHRoZSBleGFtcGxlcyBhYm92ZSwgYHNlcWAgYW5kIGBybm9ybWAgd2VyZSBib3RoIG91dHB1dHRpbmcgYSBzZXJpZXMgb2YgbnVtYmVycywgd2hpY2ggaXMgY2FsbGVkIGEgKnZlY3RvciogaW4gUiBhbmQgaXMgdGhlIG1vc3QtZnVuZGFtZW50YWwgZGF0YS10eXBlLgoKCgojIyBCYXNpYyBjb25jZXB0cyBpbiBSIC0gdmVjdG9ycwoKLSBUaGUgYmFzaWMgZGF0YSBzdHJ1Y3R1cmUgaW4gUiBpcyBhICoqdmVjdG9yKiogLS0gYW4gb3JkZXJlZCBjb2xsZWN0aW9uIG9mIHZhbHVlcy4gCi0gUiB0cmVhdHMgZXZlbiBzaW5nbGUgdmFsdWVzIGFzIDEtZWxlbWVudCB2ZWN0b3JzLiAKLSBUaGUgZnVuY3Rpb24gKipgY2AqKiAqY29tYmluZXMqIGl0cyBhcmd1bWVudHMgaW50byBhIHZlY3RvcjoKCmBgYHtyfQp4IDwtIGMoMyw0LDUsNikKeApgYGAKLSBUaGUgc3F1YXJlIGJyYWNrZXRzIGBbXWAgaW5kaWNhdGUgdGhlIHBvc2l0aW9uIHdpdGhpbiB0aGUgdmVjdG9yICh0aGUgKioqaW5kZXgqKiopLgotIFdlIGNhbiBleHRyYWN0IGluZGl2aWR1YWwgZWxlbWVudHMgYnkgdXNpbmcgdGhlIGBbXWAgbm90YXRpb246CgpgYGB7cn0KeFsxXQp4WzRdCgpgYGAKCi0gV2UgY2FuIGV2ZW4gcHV0IGEgdmVjdG9yIGluc2lkZSB0aGUgc3F1YXJlIGJyYWNrZXRzICgqdmVjdG9yIGluZGV4aW5nKik6Ci0gKipCZWZvcmUgZXhlY3V0aW5nIHRoaXMgbGluZSBvZiBjb2RlLCB3aGF0IGRvIHlvdSB0aGluayBpdCB3aWxsIHByb2R1Y2U/KioKCmBgYHtyfQp5IDwtIGMoMiwzKQp4W3ldCmBgYAoKLSBUaGVyZSBhcmUgYSBudW1iZXIgb2Ygc2hvcnRjdXRzIHRvIGNyZWF0ZSBhIHZlY3Rvci4gCi0gSW5zdGVhZCBvZjoKCmBgYHtyfQp4IDwtIGMoMywgNCwgNSwgNiwgNywgOCwgOSwgMTAsIDExLCAxMikKeApgYGAKLSB3ZSBjYW4gd3JpdGU6CgpgYGB7cn0KeCA8LSAzOjEyCngKYGBgCgotIG9yIHdlIGNhbiB1c2UgdGhlICoqYHNlcSgpYCoqIGZ1bmN0aW9uLCB3aGljaCByZXR1cm5zIGEgdmVjdG9yOgoKYGBge3J9CnggPC0gc2VxKDIsIDIwLCA0KQp4CmBgYAoKYGBge3J9CnggPC0gc2VxKDIsIDIwLCBsZW5ndGgub3V0PTUpCngKYGBgCgotIG9yIHdlIGNhbiB1c2UgdGhlICoqYHJlcCgpYCoqIGZ1bmN0aW9uOgoKCmBgYHtyfQp5IDwtIHJlcCgzLCA1KQp5CmBgYAoKYGBge3J9CnkgPC0gcmVwKDE6MywgNSkKeQpgYGAKCgotIFdlIGhhdmUgc2VlbiBzb21lIHdheXMgb2YgZXh0cmFjdGluZyBlbGVtZW50cyBvZiBhIHZlY3Rvci4gV2UgY2FuIHVzZSB0aGVzZSBzaG9ydGN1dHMgdG8gbWFrZSB0aGluZ3MgZWFzaWVyIChvciBtb3JlIGNvbXBsZXghKQoKYGBge3J9CnggPC0gMzoxMgojIEV4dHJhY3QgZWxlbWVudHMgZnJvbSB4OgoKeFszOjddCnhbc2VxKDIsIDYsIDIpXQp4W3JlcCgzLCAyKV0KYGBgCgoKLSBXZSBjYW4gYWRkIGFuIGVsZW1lbnQgdG8gYSB2ZWN0b3I6CgpgYGB7cn0KeSA8LSBjKHgsIDEpCnkKYGBgCgotIFdlIGNhbiBnbHVlIHZlY3RvcnMgdG9nZXRoZXI6CgpgYGB7cn0KeiA8LSBjKHgsIHkpCnoKYGBgCgotIFdlIGNhbiAicmVtb3ZlIiBlbGVtZW50KHMpIGZyb20gYSB2ZWN0b3I6CiAgICArIE5PVEU6IHRoZSB2ZWN0b3IgeCBkb2Vzbid0IGdldCBtb2RpZmllZAogICAgKyB3ZSdyZSBqdXN0IGRpc3BsYXlpbmcgd2hhdCB0aGUgdmVjdG9yIGxvb2tzIGxpa2Ugd2l0aG91dCBwYXJ0aWN1bGFyIGVsZW1lbnRzCiAgICAKYGBge3J9CnggPC0gMzoxMgoKeFstM10KeFstKDU6NyldCnhbLXNlcSgyLCA2LCAyKV0KeApgYGAKCi0gRmluYWxseSwgd2UgY2FuIG1vZGlmeSB0aGUgY29udGVudHMgb2YgYSB2ZWN0b3I6CgpgYGB7cn0KeFs2XSA8LSA0CngKCnhbMzo1XSA8LSAxCngKYGBgCgoqKlJlbWVtYmVyISoqCgogLSAqKlNxdWFyZSoqIGJyYWNrZXRzIFsgXSBmb3IgKioqaW5kZXhpbmcqKioKIC0gKipQYXJlbnRoZXNlcyoqICgpIGZvciBmdW5jdGlvbiAqKiphcmd1bWVudHMqKioKCgojIyBCYXNpYyBjb25jZXB0cyBpbiBSIC0gdmVjdG9yIGFyaXRobWV0aWMKCi0gV2hlbiBhcHBseWluZyBhbGwgc3RhbmRhcmQgYXJpdGhtZXRpYyBvcGVyYXRpb25zIHRvIHZlY3RvcnMsCmFwcGxpY2F0aW9uIGlzIGVsZW1lbnQtd2lzZQoKYGBge3J9CnggPC0gMToxMAp5IDwtIHgqMgpgYGAKCmBgYHtyfQp5CmBgYAoKYGBge3J9CnogPC0geF4yCmBgYAoKYGBge3J9CnoKYGBgCgotIEFkZGluZyB0d28gdmVjdG9yczoKCmBgYHtyfQp5ICsgegpgYGAKCi0gSWYgdmVjdG9ycyBhcmUgbm90IHRoZSBzYW1lIGxlbmd0aCwgdGhlIHNob3J0ZXIgb25lIHdpbGwgYmUgcmVjeWNsZWQ6CgpgYGB7cn0KeCArIDE6MgpgYGAKCi0gQnV0IGJlIGNhcmVmdWwgaWYgdGhlIHZlY3RvciBsZW5ndGhzIGFyZW4ndCBmYWN0b3JzIG9mIGVhY2ggb3RoZXI6CgpgYGB7cn0KeCArIDE6MwpgYGAKCi0gU29tZXRpbWVzIFIgd2lsbCBnaXZlIGEgKndhcm5pbmcqIG1lc3NhZ2UuIEl0IGhhcyBwZXJmb3JtZWQgdGhlIGNhbGN1bGF0aW9uIHlvdSBhc2tlZCBpdCB0bywgYnV0IHRoZSByZXN1bHRzIG1heSBiZSB1bmV4cGVjdGVkLiBZb3UgbmVlZCB0byBjaGVjayB0aGUgb3V0cHV0IGNhcmVmdWxseSB0byBtYWtlIHN1cmUgaXQgaXMgd2hhdCB5b3UgcmVhbGx5IHdhbnRlZC4KCiMjIEJhc2ljIGNvbmNlcHRzIGluIFIgLSBDaGFyYWN0ZXIgdmVjdG9ycyBhbmQgbmFtaW5nCgotIEFsbCB0aGUgdmVjdG9ycyB3ZSBoYXZlIHNlZW4gc28gZmFyIGhhdmUgY29udGFpbmVkIG51bWJlcnMsIGJ1dCB3ZSBjYW4gYWxzbyBzdG9yZSB0ZXh0ICgvInN0cmluZ3MiKSBpbiB2ZWN0b3IKICAgICsgdGhpcyBpcyBjYWxsZWQgYSAqKmNoYXJhY3RlcioqIHZlY3Rvci4KCmBgYHtyfQpnZW5lLm5hbWVzIDwtIGMoIlBheDYiLCAiQmV0YS1hY3RpbiIsICJGb3hQMiIsICJIb3g5IikKZ2VuZS5uYW1lcwpgYGAKCi0gV2UgY2FuIG5hbWUgZWxlbWVudHMgb2YgdmVjdG9ycyB1c2luZyB0aGUgYG5hbWVzKClgIGZ1bmN0aW9uLCB3aGljaCBjYW4gYmUgdXNlZnVsIHRvIGtlZXAgdHJhY2sgb2YgdGhlIG1lYW5pbmcgb2Ygb3VyIGRhdGE6CgpgYGB7cn0KZ2VuZS5leHByZXNzaW9uIDwtIGMoMCwgMy4yLCAxLjIsIC0yKQpuYW1lcyhnZW5lLmV4cHJlc3Npb24pIDwtIGdlbmUubmFtZXMKZ2VuZS5leHByZXNzaW9uCgpgYGAKCi0gV2UgY2FuIGFsc28gdXNlIHRoZSBgbmFtZXMoKWAgZnVuY3Rpb24gdG8gZ2V0IGEgdmVjdG9yIG9mIHRoZSBuYW1lcyBvZiBhbiBvYmplY3Q6CmBgYHtyfQpuYW1lcyhnZW5lLmV4cHJlc3Npb24pCmBgYAoKCiMjIEV4ZXJjaXNlOiBCb2R5LU1hc3MgSW5kZXgKLSBMZXQncyB0cnkgc29tZSB2ZWN0b3IgYXJpdGhtZXRpYy4gSGVyZSBhcmUgdGhlIHdlaWdodHMgYW5kIGhlaWdodHMgb2YgZml2ZSBpbmRpdmlkdWFscwoKfFBlcnNvbiB8IFdlaWdodCAoa2cpIHwgSGVpZ2h0IChjbSl8CnwtLS0tLS0tfC0tLS0tLS0tLS0tLS0tLS0tLTp8LS0tLS0tLS0tLS0tLS0tLS0tLTp8CnwqSm8qICAgICB8ICAgIDY1LjggICAgICAgICAgIHwgICAgIDE5MiAgICAgICAgICB8CnwqU2FtKiAgICB8ICAgIDY3LjkgICAgICAgICAgIHwgICAgIDE3OSAgICAgICAgICB8CnwqQ2hhcmxpZSp8ICAgIDc1LjMgICAgICAgICAgIHwgICAgIDE2OSAgICAgICAgICB8CnwqRnJhbmtpZSp8ICAgIDYxLjkgICAgICAgICAgIHwgICAgIDE3NSAgICAgICAgICB8CnwqQWxleCogICB8ICAgIDkyLjQgICAgICAgICAgIHwgICAgIDE3MSAgICAgICAgICB8CgoKLSBDcmVhdGUgKndlaWdodCogYW5kICpoZWlnaHQqIHZlY3RvcnMgdG8gaG9sZCB0aGUgZGF0YSBpbiBlYWNoIGNvbHVtbiB1c2luZyB0aGUgYGNgIGZ1bmN0aW9uLiBDcmVhdGUgYSAqcGVyc29uKiB2ZWN0b3IgYW5kIHVzZSB0aGlzIHZlY3RvciB0byBuYW1lIHRoZSB2YWx1ZXMgaW4gdGhlIG90aGVyIHR3byB2ZWN0b3JzLgoKMS4gVGhlIGJvZHktbWFzcyBpbmRleCBpcyBnaXZlbiBieSB0aGUgZm9ybXVsYTotICRCTUkgPSAoV2VpZ2h0KS8oSGVpZ2h0XjIpJDsgd2hlcmUgSGVpZ2h0IGlzIGdpdmVuIGluICoqKm1ldHJlcyoqKgogICAgKyBDcmVhdGUgYSBuZXcgdmVjdG9yIHRvIHJlY29yZCB0aGlzLCBjYWxsZWQgYGJtaWAuCjIuIENyZWF0ZSBhIG5ldyB2ZWN0b3IgYGJtaS5zb3J0ZWRgIHdoZXJlIHRoZSBibWkgdmFsdWVzIGFyZSBwdXQgaW4gaW5jcmVhc2luZyBudW1lcmljIG9yZGVyIChISU5UOiBsb29rIHVwIHRoZSBoZWxwIG9uIHRoZSBgc29ydGAgZnVuY3Rpb24pCjMuIFRoZSBpbnRlcnF1YXJ0aWxlIHJhbmdlIChJUVIpIG9mIGEgdmVjdG9yIGlzIGRlZmluZWQgYXMgdGhlIDc1JSBwZXJjZW50aWxlIG9mIHRoZSBkYXRhIG1pbnVzIHRoZSAyNSUgcGVyY2VudGlsZS4gQ2FsY3VsYXRlIHRoZSBJUVIgZm9yIG91ciBibWkgdmFsdWVzIAogICAgKyBjaGVjayB5b3VyIGFuc3dlciB1c2luZyB0aGUgYElRUmAgZnVuY3Rpb24KICAgICAgCiAgICAgIAojIyBHZXR0aW5nIGhlbHAKCi0gKipUaGlzIGlzIHBvc3NpYmx5IHRoZSBtb3N0IGltcG9ydGFudCBzbGlkZSBpbiB0aGUgd2hvbGUgY291cnNlIT8hKioKLSBUbyBnZXQgaGVscCBvbiBhbnkgUiBmdW5jdGlvbiwgdHlwZSAqKmA/YCoqIGZvbGxvd2VkIGJ5IHRoZSBmdW5jdGlvbiBuYW1lLiBGb3IgZXhhbXBsZToKYGBge3J9Cj9zZXEKYGBgCi0gVGhpcyByZXRyaWV2ZXMgdGhlIHN5bnRheCBhbmQgYXJndW1lbnRzIGZvciB0aGUgZnVuY3Rpb24uIFRoZSBoZWxwIHBhZ2Ugc2hvd3MgdGhlIGRlZmF1bHQgb3JkZXIgb2YgYXJndW1lbnRzLiBJdCBhbHNvIHRlbGxzIHlvdSB3aGljaCAqcGFja2FnZSogaXQgYmVsb25ncyB0by4KLSBUaGVyZSBpcyB0eXBpY2FsbHkgYSB1c2FnZSBleGFtcGxlLCB3aGljaCB5b3UgY2FuIHRlc3QgdXNpbmcgdGhlCmBleGFtcGxlYCBmdW5jdGlvbjoKCmBgYHtyfQpleGFtcGxlKHNlcSkKYGBgCgotIElmIHlvdSBjYW4ndCByZW1lbWJlciB0aGUgZXhhY3QgbmFtZSwgdHlwZSAqKmA/P2AqKiBmb2xsb3dlZCBieSB5b3VyIGd1ZXNzLgpSIHdpbGwgcmV0dXJuIGEgbGlzdCBvZiBwb3NzaWJpbGl0aWVzOgoKYGBge3J9Cj8/bWVhbgpgYGAKCi0gVGhlICoqUGFja2FnZXMqKiB0YWIgaW4gdGhlIGxvd2VyLXJpZ2h0IHBhbmVsIG9mIFJTdHVkaW8gd2lsbCBoZWxwIHlvdSBsb2NhdGUgdGhlIGhlbHAgcGFnZXMgZm9yIGEgcGFydGljdWxhciBwYWNrYWdlIGFuZCBpdHMgZnVuY3Rpb25zCiAgICArIE9mdGVuIHRoZXJlIHdpbGwgYmUgYSB1c2VyLWd1aWRlIG9yICcqdmlnbmV0dGUqJyB0b28KCgojIyBSIHBhY2thZ2VzCgotIFIgY29tZXMgcmVhZHkgbG9hZGVkIHdpdGggdmFyaW91cyBsaWJyYXJpZXMgb2YgZnVuY3Rpb25zIGNhbGxlZAoqKnBhY2thZ2VzKiouIEZvciBleGFtcGxlOiB0aGUgZnVuY3Rpb24gKipgc3VtKClgKiogaXMgaW4gdGhlICoqYmFzZSoqIHBhY2thZ2UgYW5kCioqYHNkKClgKiosIHdoaWNoIGNhbGN1bGF0ZXMgdGhlIHN0YW5kYXJkIGRldmlhdGlvbiBvZiBhIHZlY3RvciwgaXMgaW4gdGhlCioqYHN0YXRzYCoqIHBhY2thZ2UKLSBUaGVyZSBhcmUgMTAwMHMgb2YgYWRkaXRpb25hbCBwYWNrYWdlcyBwcm92aWRlZCBieSB0aGlyZCBwYXJ0aWVzLAphbmQgdGhlIHBhY2thZ2VzIGNhbiBiZSBmb3VuZCBpbiBudW1lcm91cyBzZXJ2ZXIgbG9jYXRpb25zIG9uIHRoZQp3ZWIgY2FsbGVkICoqcmVwb3NpdG9yaWVzKioKLSBUaGUgdHdvIHJlcG9zaXRvcmllcyB5b3Ugd2lsbCBjb21lIGFjcm9zcyB0aGUgbW9zdCBhcmU6CiAgICArICoqVGhlIENvbXByZWhlbnNpdmUgUiBBcmNoaXZlIE5ldHdvcmsgKENSQU4pKioKICAgICAgICArIFVzZSBtZXRhY3JhbiBzZWFyY2ggdG8gZmluZCBmdW5jdGlvbmFsaXR5IHlvdSBuZWVkOiBodHRwOi8vd3d3LnItcGtnLm9yZy8KICAgICAgICArIE9yIGxvb2sgZm9yIHBhY2thZ2VzIGJ5IHRoZW1lOiBodHRwOi8vY3Jhbi5yLXByb2plY3Qub3JnL3dlYi92aWV3cy8KICAgICsgKipCaW9jb25kdWN0b3IqKiBzcGVjaWFsaXNlZCBpbiBnZW5vbWljczogaHR0cDovL3d3dy5iaW9jb25kdWN0b3Iub3JnL3BhY2thZ2VzL3JlbGVhc2UvYmlvYy8KICAgICsgKipodHRwcy8vZ2l0aHViLmNvbSoqIGNhbiBhbHNvIGhvc3QgUiBwYWNrYWdlcywgYW5kIGhvc3RzIHRoZSBkZXZlbG9wbWVudCB2ZXJzaW9uIG9mIG1hbnkgcGFja2FnZXMKLSBCb3R0b21saW5lOiAqKiphbHdheXMqKiogZmlyc3QgbG9vayBpZiB0aGVyZSBpcyBhbHJlYWR5IGFuIFIgcGFja2FnZSB0aGF0IGRvZXMgd2hhdCB5b3Ugd2FudCBiZWZvcmUgdHJ5aW5nIHRvIGltcGxlbWVudCBpdCB5b3Vyc2VsZgogICAgCiAgICAKIyMgSW5zdGFsbGluZyBwYWNrYWdlcyAgICAKICAgIAotIENSQU4gcGFja2FnZXMgY2FuIGJlIGluc3RhbGxlZCB1c2luZyAqKmBpbnN0YWxsLnBhY2thZ2VzKClgKioKCiAgICArIG9yIGNsaWNraW5nIG9uIHRoZSAqUGFja2FnZXMqIHRhYiBpbiBSU3R1ZGlvCgpgYGB7ciBldmFsPUZBTFNFfQppbnN0YWxsLnBhY2thZ2VzKG5hbWUub2YubXkucGFja2FnZSkKYGBgCgoKLSBTZXQgdGhlICpCaW9jb25kdWN0b3IqIHBhY2thZ2UgZG93bmxvYWQgdG9vbCBieSB0eXBpbmc6CmBgYHtyIGV2YWw9RkFMU0V9CnNvdXJjZSgiaHR0cDovL2Jpb2NvbmR1Y3Rvci5vcmcvYmlvY0xpdGUuUiIpCmBgYAoKLSAqQmlvY29uZHVjdG9yKiBwYWNrYWdlcyBhcmUgdGhlbiBpbnN0YWxsZWQgd2l0aCB0aGUgYGJpb2NMaXRlKClgIGZ1bmN0aW9uOgpgYGB7ciBldmFsPUZBTFNFfQpiaW9jTGl0ZSgiUGFja2FnZU5hbWUiKQpgYGAKCi0gZ2dwbG90MiBpcyBhIGNvbW1vbmx5IHVzZWQgZ3JhcGhpY3MgcGFja2FnZToKICAgICsgaW4gUlN0dWRpbywgZ28gdG8gKipUb29scyoqIOKGkiAqKkluc3RhbGwgUGFja2FnZXMqKi4uLiBhbmQgdHlwZSB0aGUgcGFja2FnZSBuYW1lCiAgICArIG9yIHVzZSBgaW5zdGFsbC5wYWNrYWdlcygpYCBmdW5jdGlvbiB0byBpbnN0YWxsIGl0OgogIApgYGB7ciBldmFsPUZBTFNFfQppbnN0YWxsLnBhY2thZ2VzKCJnZ3Bsb3QyIikKYGBgCiAgIAotIGBERVNlcTJgIGlzIGEgQmlvY29uZHVjdG9yIHBhY2thZ2UgKGh0dHA6Ly93d3cuYmlvY29uZHVjdG9yLm9yZykgZm9yIHRoZSBhbmFseXNpcyBvZiBSTkEtc2VxIGRhdGE6CgpgYGB7ciBldmFsPUZBTFNFfQpzb3VyY2UoImh0dHA6Ly93d3cuYmlvY29uZHVjdG9yLm9yZy9iaW9jTGl0ZS5SIikKYmlvY0xpdGUoIkRFU2VxMiIpCmBgYAoKIyMgRXhhbXBsZTogTG9hZCBwYWNrYWdlcyBnZ3Bsb3QyIGFuZCBERVNlcTIKCi0gUiBuZWVkcyB0byBiZSB0b2xkIHRvIHVzZSB0aGUgbmV3IGZ1bmN0aW9ucyBmcm9tIHRoZSBpbnN0YWxsZWQgcGFja2FnZXMuIFVzZSAqKmBsaWJyYXJ5KC4uLilgKiogZnVuY3Rpb24gdG8gbG9hZCB0aGUgbmV3bHkgaW5zdGFsbGVkIGZlYXR1cmVzOgoKYGBge3IgZXZhbD1GQUxTRX0KIApsaWJyYXJ5KGdncGxvdDIpICMgbG9hZHMgZ2dwbG90IGZ1bmN0aW9ucwpsaWJyYXJ5KERFU2VxMikgICAjIGxvYWRzIERFU2VxIGZ1bmN0aW9ucwpsaWJyYXJ5KCkgICAgICAgICMgTGlzdHMgYWxsIHRoZSBwYWNrYWdlcyAKICAgICAgICAgICAgICAgICAjIHlvdSd2ZSBnb3QgaW5zdGFsbGVkIApgYGA=