fix program line 40