@@ -59,10 +59,18 @@
 				(print "  \""unitname"\" -> \""modname"\";"))
 			    (print-err "ERROR: bad declare line \""inl"\""))
 			(loop modname))))
 		 (else
 		  (loop modname)))))))))
+
+;; ./utils/plot-uses todot portlogger,stml2,debugprint,mtargs
+;; apimod.scm commonmod.scm configfmod.scm dbmod.scm megatestmod.scm
+;; mtmod.scm processmod.scm rmtmod.scm servermod.scm
+;; tcp-transportmod.scm > uses.dot
+
+;; dot uses.dot -Tpdf -o uses.pdf
+
 
 (define (main)
   (match (command-line-arguments)
     (("todot" ignoreunits . files)
      (let* ((ignores (string-split ignoreunits ",")))