Assign the numbers 1 to 1000 to a variable x. Calculate the inverse tangent of the reciprocal of x and assign it to a variable y. Now reverse the operations by calculating the reciprocal of the tangent of y and assigning this value to a variable z.

(from: Cotton 2013, Learning R, O’Reilly)