add(sicp): execrise 5.2