-(define (uniqued-alist alist acc)
- (if (null? alist) acc
- (if (assoc (caar alist) acc)
- (uniqued-alist (cdr alist) acc)
- (uniqued-alist (cdr alist) (cons (car alist) acc)
- ))))
-
-
-(define (alist<? x y)
- (string<? (symbol->string (car x))
- (symbol->string (car y))))
-