Work from SICP in Gambit Scheme