; insertion sort (define list1 (x) (cons x '())) (define insert (x l) (if (null? l) (list1 x) (if (< x (car l)) (cons x l) (cons (car l)(insert x (cdr l)))))) (define sort (l) (if (null? l) '() (insert (car l) (sort (cdr l)))))