matrix fibm( int n)	/* returns Fibonacci sequence in vector */
{
    int a = 0, b = 1, c, i;
    matrix r;

    r = zeros(1,n);

    for( i = 1; i <= n; ++i) {
	r(i) = b;
	c = b;
	b = a + b;
	a = c;
    }

    return r;
}
