Select Code to Download

sub i_produce {
...
    print "\n";
  };
};

sub p_produce {
  my ($consumer, $start, $count) = @_;
...
  $odd = ($odd + 1)%2;
};
};

{
...
    print "\n";
  };
};