>>239-242
「う〜ん、それならこれで十分なんじゃな〜い」ってきっと言われる・・・

(define rember-upto-last
　(lambda (a lat)
　　(let loop ((ans lat) (lst lat))
　　　(cond ((null? lst) ans)
　　　　　　((eq? (car lst) a) (loop (cdr lst) (cdr lst)))
　　　　　　(else (loop ans (cdr lst)))))))

(define intersectall
　(lambda (lset)
　　(fold intersect (car lset) (cdr lset))))

なんか簡潔で説得力のある一級継続の使用例は無いものだろうか・・・