(define (fringe t)
  (cond ((null? t) '())
	((not (pair? t)) (list t))
	(else (append (fringe (car t))
		      (fringe (cdr t))))))