我该如何在Dr.racket中编写一个函数，它使用两个可能的符号列表，并用其他符号替换它们呢？

(define (replace-symbols list1 list2)
  ...)

(define (replace-symbols list1 list2)
  (define (replace-helper lst)
    (cond
      ((null? lst) '()) ; 如果列表为空，则返回空列表
      ((symbol? (car lst)) ; 如果列表的第一个元素是符号
       (cons 'replacement-symbol (replace-helper (cdr lst)))) ; 用'replacement-symbol'替换，并递归处理剩余部分
      (else ; 如果列表的第一个元素不是符号
       (cons (car lst) (replace-helper (cdr lst)))))) ; 保持不变，并递归处理剩余部分

  (replace-helper (append list1 list2))) ; 将两个列表合并，并调用辅助函数进行替换