SICP until ex1.39