Work on sicp ex 1.16