#!/usr/bin/env mzscheme
#lang scheme/base

(require (lib "pretty.ss"))


(define args
  (map string->symbol 
       (vector->list
        (current-command-line-arguments))))

(define (str sym ext)
  (format "~a~a" sym ext))

(define (genmodule col mod)
  (let ((lib `(lib ,(str mod ".ss") ,(str col ""))))
    (with-output-to-file (str mod ".ss")
      (lambda ()
        (pretty-print
         `(module ,mod mzscheme
            (require ,lib)
            (provide (all-from ,lib))))))))

(apply genmodule args)