My SICP work . . .