Конкатенация в схеме

У меня есть следующий код:

(define rest '(((di (a) (b c)) (sh (b) (e d))) ((al (a) (b)))))
(define first '((di (a) (5)) (sh (b) (3))))

Я хочу получить следующий список:

(((di (a) (5)) (sh (b) (3))) ((di (a) (b c)) (sh (b) (e d))) ((al (a) (b)))))

означает, сначала добавьте список , чтобы быть первым элементом в состоянии покоя.

Когда я выполняю append , это дает мне:

((di (a) (5)) (sh (b) (3)) ((di (a) (b c)) (sh (b) (e d))) ((al (a) (b))))

И любая другая библиотечная функция или функция, которую я пытаюсь выполнить, не помогает.

​​Спасибо.