proc fib() {
	a = 0;
	b = 1;
	while (b < $1) {
		c = b;
		b = a + b;
		a = c;
		print b,"\n";
	};
};
i = 1;
while (i < 100) {
    fib(10000000000);
};

