#!/usr/local/bin/gosh

(use sxml.serializer)

(define (main args)
  (print "<?xml version='1.0' encoding='utf-8'?>")
  (for-each print (cdr args))
  (srl:parameterizable
   (read)
   (current-output-port)
   '(method . xml)
   '(indent . " ")
   '(omit-xml-declaration . #t))
  0)

;; Local Variables:
;; mode: gauche
;; end: