sclass ConcatOnDemandList<A> extends RandomAccessAbstractList<A> {
  LL<A> parts;
  L<A> completeList;
  
  public int size() { ret completeList().size(); }
  public A get(int i) { ret completeList().get(i); }
  
  L<A> completeList() {
    if (parts != null) {
      new L<A> out;
      for (part : parts)
        collect(part, out);
      parts = null;
      completeList = out;
    }
    ret completeList;
  }
  
  void collect(L<A> part, L<A> out) {
    if (part == null) ret;
    if (part cast ConcatOnDemandList)
      part.collectInto(out);
    else
      addAll(out, part);
  }
  
  void collectInto(L<A> out) {
    if (parts != null)
      for (part : parts)
        collect(part, out);
    else
      addAll(out, completeList);
  }
}