given a list of the following form:
(define lst (list (list (make-route-section 32 \'ordinary-road 23 0.45) (make-route-section 54 \'ordinary-road