add sicp-1-23.ss