Refer to exercise 2.20 in the textbook.

For example:

 
        $ scheme48
        Welcome to Scheme 48 1.8 (made by klim on Tue Feb 17 11:32:15 CST 2009)
        Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees.
        Please report bugs to scheme-48-bugs@s48.org.
        Get more information at http://www.s48.org/.
        Type ,? (comma question-mark) for help.
        > ,load sicp-2-20.scm
        > (same-parity 1 2 5 8 9 10)
        '(5 9)
        > (same-parity 2 8 4 1 3 4 5)
        '(8 4 4)
        > ,exit
        $

Deadline: 2010 May 5 00:05am
Put your file(s) under ~/scheme-982/exer7