TSS intersectall, all in one ?

 全部ひっくるめると読みづらいことこの上ない。
以下のコードは上が正しく動作するわけだけど、The Seasoned Schemer には下のコードが記載されています。
私のように適当に読むとハマるかも。

((member? (car s1) s2) (cons (car s1) (J (cdr s1)))) (else (J (cdr s1)))))))

((member? (car s1) s2) (J (cdr s1))) (else (cons (car s1) (J (cdr s1))))))))