Working on sicp section 3.1 ex 3.7