Select Code to Download

>perl -wMstrict -le
"my @source = ( -1, -2, -33, -4 );
...
 print qq{max $maxseen at index $seen_at};
"
max 0 at index 0