Something

(define (eliminateNSort l1 l2)
	(cond
		((null? l1) #f)
    ((null? l2) (sortAsc l1))
    (#t sortAsc(buildList l1 l2))
	)
)

(define (buildList l1 l2)
	(cond
		((null? l2) '() )
    (buildList(isInList l1 car(l2)))
  )
)

(define (isInList l1 x)
	(cond
		((eq? (car l1) x) (cdr l1))
    (#t (isInList l1 x))
  )
)

(define (sortAsc l1) l1 )