(require-extension posix)

(define (make-url module-name symbol)
  (conc "http://chicken.wiki.br/Unit " module-name "#" symbol))

(define (quoted symbol)
  (cadr symbol))

(for-each
 (lambda (f)
   (let* ((contents (with-input-from-file f read))
	  (module-name (quoted (cadr contents))))
     (for-each (lambda (symbol)
		 (write (cons symbol (make-url module-name symbol)))
		 (newline))
	       (quoted (caddr contents)))))
 (glob "*.import.scm"))