Program 18.3c
Exercise 18.1