add sicp-1-24