update sicp: answer(2.51)