method(wrappedSequence, context, messages, +rest, 
  res = mimic 
  res wrappedSequence = wrappedSequence 
  res context = context 
  res messages = messages 
  res restArguments = rest 
  if(messages length ==(2), 
    res destructor = Mixins Enumerable Destructor from(messages [](0)) 
    res lexicalBlock = LexicalBlock createFrom(res destructor argNames +(list(messages [](1))), context) 
    ) 
  res 
  )

method(+args, 
  myNewSelf = baseCreate(*(args)) 
  myNewSelf restArguments map!(x, 
    if(x mimics?(Sequence), 
      x, 
      x seq) 
    ) 
  myNewSelf 
  )

method(
  if(@ current?, 
    @ current? = false 
    @ cell(:current), 
    while(@ wrappedSequence next?, 
      n = @ wrappedSequence next 
      x = transformValue(cell(:n)) 
      if(
        true, 
        return(
          resultList = list(cell(:n)) 
          restArguments each(rr, 
            resultList <<(if(rr next?, rr next, nil))) 
          resultList 
          ))) 
    ) 
  )

method(
  if(@ current?, 
    true, 
    while(@ wrappedSequence next?, 
      n = @ wrappedSequence next 
      x = transformValue(cell(:n)) 
      if(
        true, 
        @ current? = true 
        @ current = resultList = list(cell(:n)) 
          restArguments each(rr, 
            resultList <<(if(rr next?, rr next, nil))) 
          resultList 
           
        return(true) 
        ) 
      ) 
    false) 
  )