(import matchable (srfi 1))

(define (seq-match2 match-λ lst)
  (let loop ((acc '()) (rest lst))
    (cond
      ((null? rest) (reverse acc))
      ((and (> (length rest) 2))
       (match (match-λ (take rest 2))
              ((#t . replacee)
               (loop (cons replacee acc)
                     (cddr rest)))
              (#f
               (loop (cons (car rest) acc)
                     (cdr rest)))))
      (else (loop (cons (car rest) acc)
                  (cdr rest))))
    ))

(define seq (list 1 5 1 2 3 4))
(print (seq-match2
         (match-lambda
           ((1 2) (cons #t 0))
           (_ #f))
         seq))
;; OUTPUT: (1 5 0 3 4) ✓