wl <- c(0, w)
wr <- c(w, 0)