Determine a method to generate random observations for the extreme-valued pdf that is given by
$$
f(x)=\exp \left\{x-e^{x}\right\}, \quad-\infty<x<\infty
$$
Write an R function that returns a random sample of observations from an extremevalued distribution. Use your function to generate 10,000 observations from this pdf. Then obtain a histogram (use hist $(x, p r=T)$, where $x$ contains the observations). On the histogram overlay a plot of the pdf.