sicp exercise 1.30 in scheme