#| BEGIN (Введите свое решение) |#
;; Создание рамки через list
(define (origin-list frame)
  (car frame))

(define (edge1-list frame)
  (cadr frame))

(define (edge2-list frame)
  (caddr frame))

;; Создание рамки через cons
(define (origin-cons frame)
  (car frame))

(define (edge1-cons frame)
  (cadr frame))

(define (edge2-cons frame)
  (cdr (cdr frame)))

#| END |#