例:再帰によるマッチング(3)

最長一致だけ求める
    (define (match p i)
      (matchr p i '() 
              (lambda (i r) (reverse r))))


    gosh> (match '((a) (b)) '(a a b a b b c))
    (a a b)
    gosh> (match '(a (a b)) '(a a b a b b c))
    (a a b a b)