(require-extension srfi-1)
(require-extension posix)
(require-extension stream-wiki)
(require-extension stream-ext)

(define file-list (find-files "chicken-manual" (lambda (x) x)))

(define str (stream-concatenate (list->stream (map (compose port->stream open-input-file) file-list))))

(write-stream
 (texi-page 
  "Felix Winkelmann"
  "Chicken Scheme Reference Manual"
  "Copyright 2007 Felix Winkelmann"
  "Introduction"
  (wiki->texi str))
 (open-output-file "chicken.texi"))