Clojure LazySequence From Java

gistfile1.java

package lazyseq;

import org.junit.Test;

import clojure.lang.AFn;
import clojure.lang.ASeq;
import clojure.lang.ArraySeq;
import clojure.lang.Cons;
import clojure.lang.IPersistentMap;
import clojure.lang.ISeq;
import clojure.lang.LazySeq;
import clojure.lang.Obj;
import java.util.List;

public class TestLazySeq {

  @Test
	public void testSeq() {

		final ISeq seq = aseq(0);
		
		List list = new LazySeq(new AFn() {
		  public Object invoke(){
			  return seq;
		  }
		});
		
		int i = 0;
		for(Object v : list){
			System.out.println(v);
			if(i++ > 1000) break;
		}
	}

	
	private static ISeq aseq(final int i){
		return new ASeq() {
			
			/**
			 * 
			 */
			private static final long serialVersionUID = 1L;

			public ISeq next() {
				return aseq(i+1);
			}
			
			public Object first() {
				return i;
			}
			
			@Override
			public Obj withMeta(IPersistentMap arg0) {
				return null;
			}
		};
	}
}