[R] inverse function of order()

[Wolfram Fischer]

I have:

 d <- sample(10:100, 9)
 o <- order(d)
 r <- d[o]

How I can get d (in the original order), knowing only r and o?

Thanks - Wolfram