void m_index1()	/* a(b) */
{
    Symbolptr a, b, c, r;
    int i, j, k;

    m_check( a = pop(),"indexing");

    b = pop();

    if( b == NULL) {			/* a(:) ==>> unravel to single row */
	r = copy( NULL, a);
	COLS(r) = COLS(r) * ROWS(r);
	ROWS(r) = 1;
	push(r);
	return;
    }

    if( ROWS(a) == 1) {		/* row vector */
	push( NULL);
	push( b);
    } else {			/* column vector or matrix */
	push( b);
	push( NULL);
    }

    push(a);
    m_index2();
}