Something

(define (eliminateNSort list1 list2)
	(cond
		((null? list1) '())
    ((null? list2) (sortAsc list1))
    (#t sortAsc(buildList list1 list2))
	)
)

(define (buildList list1 list2)
	(cond
		((null? list2) '() )
    (buildList(isInList list1 car(list2)))
  )
)

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

(define (sortAsc list1) list1 )