【問題】二つのS式を入れると枝が重なる部分をパターンとして抽出してくれる
関数を作れ。

(pattern-extractor '(2 3 4) '(1 2 3))
=> #f

(pattern-extractor '(1 2 3) '(1 2 4))
=> ((a) (1 2 a))

(pattern-extractor '(1 2 3) '(1 2))
=> ((a) (1 2 . a))

(pattern-extractor '((1) 2 3) '((1 4) 2))
=> ((a b) ((1 . a) 2 . b))