; (ins-sort lon) returns a sorted list of the nubers 
; that are in lon. Because it is easier to add to the front 
; of a Scheme list than to the end, the sorting starts at the 
; end of the list.

(define ins-sort
  (lambda (lon) ; fill in the details
    ))

(define insert
  (lambda (n sorted-list) ; fill in the details
    ))


(ins-sort '())
(ins-sort '(3 7 -2 9 7 6 4))