// If greater the 9, we crash...
#define TT 10 // Size of data structure

/* Having this as `inline' does not cause the
 * `DFMsetMaskOr() called with mask NULL' bug to occur...
 */
noinline
bool <(int a, int b) { return (_lt_SxS_(a, b));}
inline
int ++(int a) { return(_add_SxS_(a, 1));}

inline
int[*] sel(int idx, int[*] a) { return( sel([idx], a)); }
inline
int[*] sel(int[.] v, int[*] a) {
    new_shape = _drop_SxV_( _sel_VxA_( [0], _shape_A_(v)), _shape_A_( a));
    res = with {
        (. <= iv <= .) {
            new_idx = _cat_VxV_( v, iv);
        } : _sel_VxA_( new_idx, a);
    } : genarray(new_shape, 0); 
    return(res);
}

inline
int[*] modarray( int[*] a, int v, int[*] val) { return( modarray( a, [v], val));}
inline
int[*] modarray( int[*] a, int[.] v, int[+] val) {
    res = with {
        (v <= iv <= v) : val;
    } : modarray( a);
    return( res);
}

int[.,.] id(int[.,.] m) { m[0] = with {} : genarray([TT], 5); return(m);} 

int main()
{
    m = with {} : genarray([TT,TT], 1);
    j = 0;

    if(j < 1)
    {
        m[0] = with {} : genarray([TT], 1);
        
        if(_lt_SxS_(j,1))
        {
            m = id(m);
        }
    }

    return(m[0,0]);
}