GOOF----LE-8-2.0F\ ] � 4 h ] g guile� � g define-module*� � � g ice-9� g pretty-print� � g filenameS�
f ice-9/pretty-print.scm� g importsS� g match�
�
� g srfi� g srfi-1� � � g rnrs� g bytevectors� � � � g exportsS� g truncated-print� � g set-current-module� � � g make-string� g genwrite:newline-str� g
string-length� !f (� "g fold� #f � $f )� %g object->string� &g display� 'g write� (g quote� )f '� *g
quasiquote� +f `� ,g unquote� -f ,� .g unquote-splicing� /f ,@� 0f � 1g substring� 2g min� 3g
generic-write� 4f � 5g reverse-string-append� 6g vector->list� 7f #� 8g symbol->string� 9f .� :g lambda� ;g lambda*� <g let*� =g letrec� >g define� ?g define*� @g
define-public� Ag
define-syntax� Bg
let-syntax� Cg
letrec-syntax� Dg with-syntax� Eg if� Fg set!� Gg cond� Hg case� Ig and� Jg or� Kg let� Lg begin� Mg do� Ng syntax-rules� Og syntax-case� Pg string-set!� Qg
string-ref� Rg portS� SR �� Tg widthS� UT �� Vg max-expr-widthS� WV �� Xg display?S� YX �� Zg per-line-prefixS� [Z �� \SUWY[ � ]g current-output-port� ^X �� _g breadth-first?S� `_ �� aSU^` � bg %default-port-encoding� cg
port-encoding� dg catch� eg encoding-error� fg !%default-port-conversion-strategy� gg error� hg with-output-to-string� ik & � jf ...� kg max� lg floor� mf expected a positive width� ng length� og cdr� pf #(� qg
vector-length� rg
vector-ref� sg identity� tg bytevector?� ug format� vf #~a(� wg
array-type� xg array-length� yg array-ref� zf . � {g string-prefix?� |g string-suffix?� }f ~a~a~a~a� ~f #<� f >� �~�� �p$�� �!$�� �f "� ����� ����� � �g with-output-to-port�C 5h�R � ]4
5 4 > "