fn putln() -> void = putchar('\n') in

let i=0 in
	for (i=0; i!=100000; i++) do
		putnum(i); putln()
	end