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