#!/usr/bin/perl
@a = ('', 'print($a[$i], "');
@b = ("\n", '", $b[$i]);' . "\n");
@c = ('', 'print($c[$i]); }} reproduce();' . "\n");
@e = ('', '$e\\');
sub reproduce() {
for ($i = 0; $i <= 1; $i++) { $e = $e[$i];
print($a[$i], "#!/usr/bin/perl", $b[$i]);
print($a[$i], "$e\@a = ('', 'print($e\$a[$e\$i], $e\"');", $b[$i]);
print($a[$i], "$e\@b = ($e\"$e\\n$e\", '$e\", $e\$b[$e\$i]);' . $e\"$e\\n$e\");", $b[$i]);
print($a[$i], "$e\@c = ('', 'print($e\$c[$e\$i]); }} reproduce();' . $e\"$e\\n$e\");", $b[$i]);
print($a[$i], "$e\@e = ('', '$e\$e$e\\$e\\');", $b[$i]);
print($a[$i], "sub reproduce() {", $b[$i]);
print($a[$i], "for ($e\$i = 0; $e\$i <= 1; $e\$i++) { $e\$e = $e\$e[$e\$i];", $b[$i]);
print($c[$i]); }} reproduce();