(require-extension npdiff)
(require-extension format-textdiff)
(require-extension patch)

(define t1 (open-input-file "tests/large0"))
(define text1 (read-lines t1))
(define t2 (open-input-file "tests/large1"))
(define text2 (read-lines t2))
(define hunks (textdiff text1 text2 3))
(define sexp (textdiff->sexp hunks))

(print "sexp = " sexp)

(with-input-from-port (open-input-file "tests/large0")
  (lambda ()
    (with-output-to-port (open-output-file "tests/test.large1")
     (lambda () (apply-patch sexp)))))