Update Exercise 6.95.r