local $, = ", ";
local $\ = "\n";
NestedLoops(\@lists, sub { print @_ });