I want to get some elements into one list. for example:
(define-struct fruit (name price))
(list (make-fruit (\'apple 2)) (make-fruit (\'pear 3)) (make-fruit (