/* Test subrange operator */

proc main()
{
    var a;

    a = "Test";
    a = a[1:]; say( a, "\n" );
    a = a[1:]; say( a, "\n" );

    a = {1,2,3,4};
    a = a[1:]; say( a[0], "\n" );
    a = a[1:]; say( a[0], "\n" );
}