#!/bin/sh
#|
exec csi -s "$0" "$@"
|#

(import (beaker wiki))
(import (only (chicken port) make-concatenated-port))

(define template
  (make-concatenated-port
   (open-input-string "#<#EOF\n")
   (open-input-file "beaker.wiki.in")
   (open-input-string "EOF\n")))

(with-output-to-file "beaker.wiki"
 (lambda ()
   (print (eval (read template)))))