use PDL::LiteF;
use PDL::NiceSlice;
   
$a = sequence(10);

print "\n",'source $a'.'((4)) translated -> $a((4))',"\n";
print "Result ",$a((4)),"\n\n";

print 'alternative syntax: $a->'.'((4)) translated -> $a->((4))',"\n\n";

print 'source $a'.'(1:4) .= 2; translated -> $a(1:4) .= 2;',"\n"; # this should be rewritten

($tmp = $a(1:4)) .= 2;

print "Result: $a","\n\n";

print << 'EOP';

The arglist is split at commas but commas within
matched brackets are protected. That should allow
function invocations etc within the arglist:

EOP

print '$a'.'(1:end(0,22)) -> $a(1:end(0,22))',"\n\n";

print "recursive invocation is also supported:\n";
print '$a'.'(1,$b'.'(0:22)) -> $a(1,$b(0:22))',"\n\n";

no PDL::NiceSlice;


print << 'EOP';

Now we have switched off source filtering by issuing

     no PDL::NiceSlice;

Therefore, the next slice expression should not be touched:

EOP

# this shouldn't be touched
print 'Source $a'.'(1:4) translation -> $a(1:4)',"\n\n";