a = fill( 100,100; 0 );
for ( i in 1:100 ) {
    for ( j in 1:100 ) {
        for ( k in 1:151 ) {
            a[i;j] = k;
        }
    }
}