/* Test the subr intrinsic */

proc main()
{
    var a = "Hello, world";
    var b;
    var i, n;

    b = a.subr( 3, 7 );
    say( b, "\n" );
    b[4] = 'W';         // Will not modify original array
    say( a, "\n" );
    say( b, "\n" );
}