;
proc fib(maxval) {
	a = 0;
	b = 1;
	while (b < maxval) {
		c = b;
		b = a + b;
		a = c;
		print b;
	};
};
for (i=0; i<10; i++) {
    fib(1e12);
};

