Select Code to Download

use strict;
use warnings;
...
rec(0);

__END__

$perl ml_a.pl 6
>> i=2
...
<< i=3
<< i=2
<< i=1

$perl ml_a.pl 3
>> i=1
...
<< i=3
<< i=2
<< i=1