GOOF----LE-8-2.0hS]4h] gguile  gdefine-module*   gice-9 gi18n  gfilenameS fice-9/i18n.scm gimportsS goptargs      gexportsS g make-locale glocale? g%global-locale gstring-locale? gstring-locale-ci? gstring-locale-ci=? g char-locale? gchar-locale-ci? gchar-locale-ci=? gchar-locale-downcase gchar-locale-upcase gchar-locale-titlecase !gstring-locale-downcase "gstring-locale-upcase #gstring-locale-titlecase $glocale-string->integer %glocale-string->inexact &glocale-encoding 'glocale-day-short (g locale-day )glocale-month-short *g locale-month +glocale-am-string ,glocale-pm-string -glocale-date+time-format .glocale-date-format /glocale-time-format 0glocale-time+am/pm-format 1g locale-era 2glocale-era-year 3glocale-era-date-format 4glocale-era-date+time-format 5glocale-era-time-format 6glocale-currency-symbol 7glocale-monetary-decimal-point 8g#locale-monetary-thousands-separator 9glocale-monetary-grouping :g!locale-monetary-fractional-digits ;g)locale-currency-symbol-precedes-positive? g#locale-negative-separated-by-space? ?glocale-monetary-positive-sign @glocale-monetary-negative-sign Aglocale-positive-sign-position Bglocale-negative-sign-position Cgmonetary-amount->locale-string Dglocale-digit-grouping Eglocale-decimal-point Fglocale-thousands-separator Ggnumber->locale-string Hglocale-yes-regexp Iglocale-no-regexp J !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHI9 Kgset-current-module LK MK Ngload-extension Og string-append Pf libguile- Qgeffective-version Rf scm_init_i18n Sg nl-langinfo TgCODESET Ugmake-syntax-transformer VU WU Xgdefine-vector-langinfo-mapping Ygmacro Zg $sc-dispatch [Z \Z ]g_ ^gany _]^ `g syntax->datum a` b` cg datum->syntax dc ec fglength ggdefine hg %nl-items igvector jgitem kglocale ljk mgif ngand oginteger? poj qgexact? rqj snpr tg>= utj  vg<= wgapply xg vector-ref yxhj zwSyk {gthrow |gquote }g out-of-range ~|} f out of range {~j  gwrong-type-arg | fwrong argument type {j  gsyntax-violation   f-source expression failed to match any pattern gABDAY_1 gABDAY_2 gABDAY_3 gABDAY_4 gABDAY_5 gABDAY_6 gABDAY_7 gDAY_1 gDAY_2 gDAY_3 gDAY_4 gDAY_5 gDAY_6 gDAY_7 gABMON_1 gABMON_2 gABMON_3 gABMON_4 gABMON_5 gABMON_6 gABMON_7 gABMON_8 gABMON_9 gABMON_10 gABMON_11 gABMON_12 gMON_1 gMON_2 gMON_3 gMON_4 gMON_5 gMON_6 gMON_7 gMON_8 gMON_9 gMON_10 gMON_11 gMON_12 gdefine-simple-langinfo-mapping gdefined? k gAM_STR gPM_STR gD_T_FMT gD_FMT gT_FMT g T_FMT_AMPM gERA gERA_YEAR g ERA_D_T_FMT g ERA_D_FMT g ERA_T_FMT g define-monetary-langinfo-mapping gintl? k gINT_CURR_SYMBOL gCRNCYSTR gINT_FRAC_DIGITS g FRAC_DIGITS g POSITIVE_SIGN g NEGATIVE_SIGN gMON_DECIMAL_POINT gMON_THOUSANDS_SEP g MON_GROUPING glocale-monetary-digit-grouping gINT_P_CS_PRECEDES g P_CS_PRECEDES gINT_N_CS_PRECEDES g N_CS_PRECEDES gINT_P_SEP_BY_SPACE gP_SEP_BY_SPACE gINT_N_SEP_BY_SPACE gN_SEP_BY_SPACE gINT_P_SIGN_POSN g P_SIGN_POSN gINT_N_SIGN_POSN g N_SIGN_POSN f0 g list->string g integer->char ginteger->string gexpt gfloor g string-pad ground ginexact->exact f gnumber-decimal-string gstring=? g string-length gmin g substring g%number-integer-part f  g parenthesize f( f) g sign-before g sign-after g unspecified gsign-before-currency-symbol gsign-after-currency-symbol gerror funsupported sign position gadd-monetary-sign+currency gabs gGROUPING g RADIXCHAR gTHOUSEP f- gYESEXPR gNOEXPRC5hh<]4   J54M>"G4Ni4OiP4Qi55R>"GSTh{-13@sglocale gfilenamefice-9/i18n.scm _  `   gnameglocale-encodingC&R4WXY\_befghilmsnuvjzhP]45     Cgname  Jgnl-items  Jg item-count  Jgdefines   Jgfilenamefice-9/i18n.scm i  j  j  k   j   r  & m  < t  > m  I r   J Chb] 45L4?6Zgargs  gv gfilenamefice-9/i18n.scm  i    Ch(`] 45$ O@6Xgy  'gtmp 'gfilenamefice-9/i18n.scm i   ' C5XR{oq}Sh-13HK"   64 5$A4 5$2"  6 $ $ J@""""gitem ~glocale ~g %nl-items  ~gfilenamefice-9/i18n.scm w * q 2 N p 4 j t ' n t  ~ gnameglocale-day-shortC'R{oq}Sh-13HK"   64 5$A4 5$2"  6 $ $ J@""""gitem ~glocale ~g %nl-items  ~gfilenamefice-9/i18n.scm z * q 2 N p 4 j t ' n t  ~ gnameg locale-dayC(R{oq}Sh-13H     K"  645$A45$2"  6 $ $ J@""""gitem glocale g %nl-items  gfilenamefice-9/i18n.scm } 4 q 2 X p 4 t t ' x t  gnameglocale-month-shortC)R{oq}Sh-13H     K"  645$A45$2"  6 $ $ J@""""gitem glocale g %nl-items  gfilenamefice-9/i18n.scm 4 q 2 X p 4 t t ' x t  gnameg locale-monthC*R4WY\_bewSgkh0] 45$"Cgname  -gitem  -gdefault   -gbody   -gfilenamefice-9/i18n.scm        "   - Chc] 45L4?6[gargs  gv gfilenamefice-9/i18n.scm     Ch(a] 45$ O@6Ygy  'gtmp 'gfilenamefice-9/i18n.scm   ' C5RShu-13@mglocale gfilenamefice-9/i18n.scm   gnameglocale-am-stringC+RShu-13@mglocale gfilenamefice-9/i18n.scm   gnameglocale-pm-stringC,RSh|-13@tglocale gfilenamefice-9/i18n.scm   gnameglocale-date+time-formatC-RShw-13@oglocale gfilenamefice-9/i18n.scm   gnameglocale-date-formatC.RShw-13@oglocale gfilenamefice-9/i18n.scm   gnameglocale-time-formatC/RSh}-13@uglocale gfilenamefice-9/i18n.scm   gnameglocale-time+am/pm-formatC0RSho-13@gglocale gfilenamefice-9/i18n.scm   gnameg locale-eraC1RSht-13@lglocale gfilenamefice-9/i18n.scm   gnameglocale-era-yearC2RSh-13@xglocale gfilenamefice-9/i18n.scm   gnameglocale-era-date+time-formatC4RSh{-13@sglocale gfilenamefice-9/i18n.scm   gnameglocale-era-date-formatC3RSh{-13@sglocale gfilenamefice-9/i18n.scm   gnameglocale-era-time-formatC5R4WY\_bewSmg h`I]45$"45$"CAgname  ^g local-item  ^g intl-item   ^g default/local   ^g default/intl   ^gintl  : Oglocal  : Ogbody  O ^gfilenamefice-9/i18n.scm        )  +  : @ O  S   ^ Chc] 45L4?6[gargs  gv gfilenamefice-9/i18n.scm     Ch(a] 45$ O@6Ygy  'gtmp 'gfilenamefice-9/i18n.scm   ' C5RSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameglocale-currency-symbolC6RSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameg!locale-monetary-fractional-digitsC:RSh-13@zglocale gfilenamefice-9/i18n.scm   gnameglocale-monetary-positive-signC?RSh-13@zglocale gfilenamefice-9/i18n.scm   gnameglocale-monetary-negative-signC@RSh-13@zglocale gfilenamefice-9/i18n.scm   gnameglocale-monetary-decimal-pointC7RSh-13@glocale gfilenamefice-9/i18n.scm   gnameg#locale-monetary-thousands-separatorC8RSh-13@{glocale gfilenamefice-9/i18n.scm   gnameglocale-monetary-digit-groupingCRSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameg)locale-currency-symbol-precedes-positive?C;RSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameg)locale-currency-symbol-precedes-negative?CRSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameglocale-positive-sign-positionCARSh -13$@@gintl? glocale gfilenamefice-9/i18n.scm   gnameglocale-negative-sign-positionCBRhP] $C"2 $6  4 05""gnumber  Ngnumber  Cgdigits   Cgdigit  ) 8gfilenamefice-9/i18n.scm              $   )  % )   ,  2  3  5  ;   C  C  F   N   N gnameginteger->stringg documentationfDReturn a string representing NUMBER, an integer, written in base 10.CRo hg]"45$/4 54544455506"q4 545$" $7454 5444555 $CC" "_gnumber  g digit-count  gnumber  ! <gdecimals  @ gnumber'  L gt  X mgfraction  gstr  gfilenamefice-9/i18n.scm            !   !   !   &   )  % ,  , 4  % 6   <   @   C  ! L   L   Q   X   X   j   q  t  % {  %  "         '      !  !  "  $  $   )  gnamegnumber-decimal-stringg documentationfReturn a string representing the decimal part of NUMBER. When DIGIT-COUNT is an integer, return exactly DIGIT-COUNT digits; when DIGIT-COUNT is #t, return as many decimals as necessary, up to an arbitrary limit.CROh*]3"}45$@(@45454 545$ """t"gint  ggrouping  g separator   gint   ggrouping   gresult   glen  . gcut  : gsub  Z y gfilenamefice-9/i18n.scm &  ,   / /   /  /   /   /  ' 0  ( 2  . 2 1 3  6 3  : 3  : 2 = 4  G 4 $ I 4  L 5  M 6  V 6 - Z 6  Z 6  a 7  e 7  l 8  v 9  4 ,  .  ,   gnameg%number-integer-partCR?@6;<=>ABOh]D $ 45" $ 45"45$"$"$ "  45$ " 4 5   $/ 45$4  5" 4  56 $- 45$4  5" 4  56 $" $%45$   6  6 $%45$   6  6 $%45$   6  64 56gamount  gfigure  gintl?   glocale   g positive?   gsign  . gcurrency  9 gcurrency-precedes?  I g separated?  Y g sign-position i gcurrency-space gkey  gfilenamefice-9/i18n.scm ;  >   >  @   @  @   A  ! @ " A  . B  . >  1 C  9 >  A E I >  Q I Y >  a M i >  l Q  x Q z Q ( Q , >  X X  Z  T  T U  V  Z 3 Z  X  T  T U  V  \   X   _  _  + ` 7 a @ X  A c M c  Y d e e n X  o g { g   h  i  k   k *  k :   gnamegadd-monetary-sign+currencyCR:O78h-.,3#45$" 4444555544554 5$" $ "*4 4 54 5$4  5"545454 4556gamount gintl? glocale  gt   2gfraction-digits  2 gint  J gdec  Z gt  e ygdec  ggrouping  g separator   gfilenamefice-9/i18n.scm n  v   v 2 u  5   8  % ;  & >  - F  & H  % J   J u  M   P  , Z   Z   ] y  c y " e y  e y  v y & } y  z  {  {  | 6 | # |  } # {  u    u    u   "  #  "  (  gnamegmonetary-amount->locale-stringg documentationfConvert @var{amount} (an inexact) into a string according to the cultural conventions of either @var{locale} (a locale object) or the current locale. If @var{intl?} is true, then the international monetary format for the given locale is used.CCRShz-13@rglocale gfilenamefice-9/i18n.scm    gnameglocale-digit-groupingCDRShy-13@qglocale gfilenamefice-9/i18n.scm    gnameglocale-decimal-pointCERSh-13@wglocale gfilenamefice-9/i18n.scm    gnameglocale-thousands-separatorCFROEoDFhC-.,3## $" $"4444555544554 5$" $";4 4 54 5$"4 5$4 5""54545 456;gnumber gfraction-digits glocale  gsign  = gint  U gdec  e gt  p gdec  ggrouping  g separator   gfilenamefice-9/i18n.scm  #   '  )   1   5  7   =   =   @   C  ' F  ( I  / Q  ( S  ' U   U   X   [  . e   e   h   n  " p   p    &         (    +  (  #  #                - gnamegnumber->locale-stringg documentationf^Convert @var{number} (an inexact) into a string according to the cultural conventions of either @var{locale} (a locale object) or the current locale. By default, print as many fractional digits as necessary, up to an upper bound. Optionally, @var{fraction-digits} may be bound to an integer specifying the number of fractional digits to be displayed.CGRShv-13@nglocale gfilenamefice-9/i18n.scm    gnameglocale-yes-regexpCHRShu-13@mglocale gfilenamefice-9/i18n.scm    gnameglocale-no-regexpCIRCgm  ,gfilenamefice-9/i18n.scm   - W  2 W  8 W ! 9 W - A W  C X  H W  _  w i z  } p X R   J   F    E   [     e /  " &b  )E & . ; 3 n 4M  4  5  ;  ;  <`  1