load sicp-2-7.ss