GOOF----LE-8-2.0][4h"] gguile  gdefine-module*   gscripts guse2dot  gfilenameS fscripts/use2dot.scm gimportsS gsrfi gsrfi-13    gselectS g string-join   gfrisk  g make-frisker g edge-type gedge-up g edge-down    gexportsS  g autoloadsS gice-9 g getopt-long !  "  #!" $gset-current-module %$ &$ 'f1Print a module's dependencies in graphviz format. (g%summary )g guile-user *) +g*default-module* ,gformat -f~S .gq /gmap 0f~A=~A 1gvv 2fdigraph use2dot {  3gfor-each 4f ~A;  5glabel 6fGuile Module Dependencies 7gratio 8gfill 978 :9 ;g>>header "~A" =gautoload >gstyle ?gdotted @>? Agfontsize BA  C@B Dgcomputed Egbold F>E GF Hf [~A] If, Jf;  Kg>>body Lf} Mg>>footer Ng>> Ofuse2dot Pgdefault-module Qg single-char RQm Sgvalue TS UPRT VU Wg option-ref Xgreverse Ygedges ZgmainC5h` ]4   #5 4&>"G'(R*+R,-hs]6kgs  gfilenamefscripts/use2dot.scm ;  < <   gnamegqC.R/,0hy]6qgpair  gfilenamefscripts/use2dot.scm ?   @  @  @ '  @    Chp]6hgpairs  gfilenamefscripts/use2dot.scm > ?   gnamegvvC1R,23,4hf]6^gs  gfilenamefscripts/use2dot.scm E  E # E   C15.6: h0]4>"G445 56gfilenamefscripts/use2dot.scm C  D   D D   F  F   F  # F  % F  & F  + F - E   - gnameg>>headerC;R3,<=CDGH1IJh] 44545>"G45$"$ "$%4 4 4 5 5>"G"6gedge  gkey * Ngt N ~gfilenamefscripts/use2dot.scm O   P   P  P %  P 6  P  $ Q  * Q 7 R  D Q F S  N Q  W V  \ V  ] V $ ` V 1 h V : j V $ o V  W  W   Cht]6lgedges  gfilenamefscripts/use2dot.scm M N   gnameg>>bodyCKR,Lhj]6bgfilenamefscripts/use2dot.scm Z  [ [   gnameg>>footerCMR;KMh(]4>"G4>"G6xgedges  (gfilenamefscripts/use2dot.scm ]  ^   _  ( `   ( gnameg>>CNR OVWP+NXY hP-13454545454 445 556gargs Pg parsed-args  Pg=m  " Pgscan  . Pgfiles  9 Pgfilenamefscripts/use2dot.scm b c   c )  c #  d #  c   c   f  f % " f " c  % g  ) g  . g  . c  1 h  6 h ( 7 h , 9 h  9 c  > i  A i  B i  J i  L i  N i  P i  P gnameguse2dotCRiZRCgm  0gfilenamefscripts/use2dot.scm  0 2 7  5 7 7 9  : 9 ;  >  C  M  Z S ] V b ] k   _ C6