Code from the "Write yourself a Scheme" tutorial