Homework 1b
	What to hand in
		: Once all the following  is working, run
		:
		: ~timm/bin/handin
		:
		: Then print and STAPLE hand in the file ~/tmp/2print.pdf. 

	Q0
		Setip
			:  Checkout this week's support code into ~/x72/csx72gpXX/1/b
			:	 using svn export http://unbox.org/wisp/var/timm/10/ai/etc/proj/1/b
	Q1
		Write 
			: Read  http://www.dynamiclearningcenter.com/exercises/index-spec.html
			: Write a file called "funs.lisp" that implements 
				: seconds-in-a-leap-year 
				: non-zero-integerp
				: memberp
				: smallest
				: print-elements (using dolist, recursion, and mapc)
				: subtract2 (using mapcar)
				: our-adjoin, our-union and our-intersection
			: Include in "funs.lisp" a demo function that executes all 
			: examples illustrating : your functions. e.g
				: (defun my-demo ()
				:		 (demos '(+ 1 2) '(member 'c '(a b c d e f g))))
		Usage
			:Modify main.lisp so it loads, them runs your code.
            : (format t "~%==== 1/b/1 ===================================~%~%"
			:
			: (load "cat")
			: (load "demos")
			: (load "funs")
			: (cat "funs.lisp")
		    : (my-demo)