2_48.scm

(load "2_46.scm")

(define (make-segment start end)
  (cons start end))
(define start-segment car)
(define end-segment cdr)