// Test simple array operations

const str = "xyz";

proc main()
{
    var i, a, b;
    for( i = 0; i < 3; i++ ) {
        a = @ "abc";    say( a, "=" );
        a[i] = 'X';     say( a, "\n" );
    }
    for( i = 0; i < 3; i++ ) {
        a = @ str;      say( a, "=" );
        a[i] = 'X';     say( a, "\n" );
    }
    b = @ str;
    for( i = 0; i < 3; i++ ) {
        a = b;          say( a, "=" );
        a[i] = 'X';     say( a, "\n" );
    }
}