Blob


1 (define (find-highest-type l)
2 (define (filter-type t f)
3 (cond ((null? f)