Added SICP exercise 1.45