     [ lazy-io-stream ] keep
     [ lazy-io-quot ] keep
     car [
-      >r f f r> <lazy-io> [ swap set-lazy-io-cdr ] keep
+      [ f f ] dip <lazy-io> [ swap set-lazy-io-cdr ] keep
     ] [
       3drop nil
     ] if

  [
    dup [ car ] curry -rot
    [
      >r cdr r> cdr lmerge
    ] 2curry lazy-cons
  ] 2curry lazy-cons ;



M: lazy-from-by cdr ( lazy-from-by -- cdr )
  [ lazy-from-by-n ] keep
  lazy-from-by-quot dup slip lfrom-by ;

M: lazy-from-by nil? ( lazy-from-by -- bool )
  drop f ;
