From jeffhorn@ga.nmu.edu Thu Mar 11 10:50:45 1999
Date: Thu, 11 Mar 1999 03:13:11 -0500
From: Jeffrey Horn <jeffhorn@ga.nmu.edu>
To: randy@ga.nmu.edu

(define (sort L)
	(if (null? L) 
		'()
		(insert (sort (cdr L)) (car L))
	)
)

(define (insert L x)
	(if (null? L) 
		(list x)
		(if (< x (car L))
			(cons x L)
			(cons (car L) (insert (cdr L) x))
		)
	)
)