exercise 4.54
Merge branch 'master' of github.com:ratser/SICP