Working on sicp 2-11 through 2-13