Working on sicp 2.1