Code based on a book "Write Yourself a Scheme in 48 Hours"