qn01_scr_01.R

rf <- function(n) {
  U <- runif(n)
  return(U^(1/4))
}

X <- rf(1e4)