(define (insert2 order x tree)
  (if (null? tree)           (list x (list) (list))
  (if (null? (car tree))     (list x (list) (list))
  (if (order x (car tree))   (list (car tree) (cadr tree) (insert x (caddr tree)))
                             (list (car tree) (insert x (cadr tree)) (caddr tree)))
                             )))
(define (mktree order entry)
  (define (maker unordered ordered)
    (if (null? unordered) ordered
    (maker (cdr unordered) (insert2 order (car unordered) ordered))))
  (maker entry (list))
  )