asda?‰PNG  IHDR ? f ??C1 sRGB ??é gAMA ±? üa pHYs ? ??o¨d GIDATx^íüL”÷e÷Y?a?("Bh?_ò???￠§?q5k?*:t0A-o??￥]VkJ￠M??f?±8\k2íll￡1]q?ù???T GOOF----LE-8-2.0].4h[] gguile  gdefine-module*   gice-9 gstreams  gfilenameS fice-9/streams.scm gexportsS g make-stream g stream-car g stream-cdr g stream-null? g list->stream gvector->stream g port->stream g stream->list gstream->reversed-list gstream->list&length gstream->reversed-list&length gstream->vector g stream-fold gstream-for-each g stream-map    gset-current-module   g make-promise  ! "gforce #g vector-length $greverse! %g make-vector &gstream-fold-one 'gstream-fold-many (gor-map )gmap *gstream-for-each-one +gstream-for-each-many ,gapply -g eof-object?C5h]4   54>"G! h(]4LL5$4L5CCgo #gfilenamefice-9/streams.scm V   W W   X  X   Y   Z   Z   Z  Y " [   # Ch]O6~gm  gstate  gfilenamefice-9/streams.scm U  V    gnameg make-streamC R"h]45Cgstream  gfilenamefice-9/streams.scm ]  _  _   gnameg stream-carg documentationfBReturns the first element in STREAM. This is equivalent to `car'.C R"h]45Cgstream  gfilenamefice-9/streams.scm a  c  c   gnameg stream-cdrg documentationfGReturns the first tail of STREAM. Equivalent to `(force (cdr STREAM))'.CR"h?]45C7gstream  gfilenamefice-9/streams.scm e  i i   gnameg stream-null?g documentationfReturns `#t' if STREAM is the end-of-stream marker; otherwise returns `#f'. This is equivalent to `null?', but should be used whenever testing for the end of a stream.CR hT]CLgl  gfilenamefice-9/streams.scm o    Ch]6gl  gfilenamefice-9/streams.scm k n   gnameg list->streamg documentationfoReturns a newly allocated stream whose elements are the elements of LIST. Equivalent to `(apply stream LIST)'.CR #h ] L$CLCgi  gt  gfilenamefice-9/streams.scm u   v  v   w   w "  w    Ch ] 45O 6gv  glen gfilenamefice-9/streams.scm r  t  t   s    gnamegvector->streamCR hH]"/45$D4545" " gstream  Cgs  5gacc   5glen   5gfilenamefice-9/streams.scm z  {   |   |   }   ~   ~ # ( ~  + ~ 7 5 ~  5 {  8 {  C {   C gnamegstream->reversed-list&lengthCRh]4> GCgstream  gl glen  gfilenamefice-9/streams.scm       gnamegstream->reversed-listCR$h ]4> G45Dgstream  gl glen  gfilenamefice-9/streams.scm           gnamegstream->list&lengthCR$h$]456gstream  gfilenamefice-9/streams.scm    gnameg stream->listg documentationfReturns a newly allocated list whose elements are the elements of STREAM. If STREAM has infinite length this procedure will not terminate.CR%hX5])4> G45"%("& " "C-gstream  Tgl Tglen  Tgv   Tgi  ! Fgl  ! Fgfilenamefice-9/streams.scm         !  ' 2  7 * 8  ;  >  F  F   T gnamegstream->vectorCR&'h(-13( 66gf &ginit &gstream  &grest  &gfilenamefice-9/streams.scm     $  &  &  gnameg stream-foldCR& h0]45$C4455456gf  +gr  +gstream   +gfilenamefice-9/streams.scm        "  # 3 +   + gnamegstream-fold-oneC&R('h ](LC4L5Cgcars  gfilenamefice-9/streams.scm !  # '  -  -  4  -  '   gnamegrecurC) hH] 45$C4OQ4455?456gf  Ggr  Ggstreams   Ggrecur  " :gfilenamefice-9/streams.scm       " ! - . 7 ! <  =  G   G gnamegstream-fold-manyC'R*+h(-13(66gf "gstream "grest  "gfilenamefice-9/streams.scm      "  "  gnamegstream-for-eachCR *h8]45$C445>"G456gf  3gstream  3gfilenamefice-9/streams.scm        +  3   3 gnamegstream-for-each-oneC*R(,) +h@]45$C445>"G456gf  ;gstreams  ;gfilenamefice-9/streams.scm        $  1 ;   ; gnamegstream-for-each-manyC+R  h0] 45$C4L45545Cgs  )gt )gfilenamefice-9/streams.scm        "  ! 2 (   ) C() h0] 45$C4L45?45Cgstreams  /gt /gfilenamefice-9/streams.scm        ( $  %  .   / Ch0\-13( O6O6Tgf ,gstream ,grest  ,gfilenamefice-9/streams.scm     *  ,  ,  gnameg stream-mapg documentationfReturns a newly allocated stream, each element being the result of invoking F with the corresponding elements of the STREAMs as its arguments.CR -h(]4L545$CCgp  #go #gt   #gfilenamefice-9/streams.scm        "   # Ch]O6gport  gread  gfilenamefice-9/streams.scm     gnameg port->streamCRCgm  (gfilenamefice-9/streams.scm    U  ]  a  e  k  r z g W @ N m     g     C6