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

一致するもの全てを求める
    (define (match p i)
      (matchr p i '()
              (lambda (i r) (print (reverse r)) #f)))

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