prog 15.16
Set object