Program 18.3b