add(sicp): 4.47