modified:   sicp/number.ss