add sicp-1-25.ss