Program 15.18b