34 lines
372 B
Perl
34 lines
372 B
Perl
$a = 1;
|
|
$b = 79;
|
|
$c = $b;
|
|
goto L5 if $a;
|
|
goto L9 if 1;
|
|
$b *= 100;
|
|
$b -= -100000;
|
|
$c = $b;
|
|
$c -= -17000;
|
|
$f = 1;
|
|
$d = 2;
|
|
$e = 2;
|
|
$g = $d;
|
|
$g *= $e;
|
|
$g -= $b;
|
|
goto L17 if $g;
|
|
$f = 0;
|
|
$e -= -1;
|
|
$g = $e;
|
|
$g -= $b;
|
|
goto L12 if $g;
|
|
$d -= -1;
|
|
$g = $d;
|
|
$g -= $b;
|
|
goto L11 if $g;
|
|
goto L27 if $f;
|
|
$h -= -1;
|
|
$g = $b;
|
|
$g -= $c;
|
|
goto L31 if $g;
|
|
goto L33 if 1;
|
|
$b -= -17;
|
|
goto L9 if 1;
|