x <- seq(-25*pi, 25*pi, 0.1)
f <- function(x) x + sin(1-x)
g <- x
for(i in 1:10) {
  g <- f(g)
  plot(x, g)
}