my $i = Set::CrossProduct->new([map [0..$_], 4,3,10]);