(define (fringe ls)
	(cond ((null? ls) '())
	      ((not (pair? ls)) ls)
	      (else (cons (car ls) (map fringe (cdr ls))))))
	      
(define x (list 1 (list 2 (list 3 4) 5) (list 6 7)))

(display (fringe x))