1 665c255d 2023-08-04 jrmu (define (find-highest-type l)
2 665c255d 2023-08-04 jrmu   (define (filter-type t f)
3 665c255d 2023-08-04 jrmu     (cond ((null? f)