MACRO (COMPILED & DEPARSED): while ($var3 < $cons4) {
    $body6;
}
continue {
    ++$var5
}


##</code><code>##

MACRO (COMPILED & DEPARSED): $var1 = $cons2;
while ($var3 < $cons4) {
    $body6;
}
continue {
    ++$var5
}

##</code><code>##

SOURCE (COMPILED & DEPARSED): my $x;
while ($x < 8) {
    my $f = fact($x);
    print "factorial($x)=$f\n";
}
continue {
    ++$x
}
sub fact {
    $_[0] <= 0 and return 1;
    return $_[0] * fact($_[0] - 1);
}
'???';


##</code><code>##

SOURCE (COMPILED & DEPARSED): my $x;
$x = 0;
while ($x < 8) {
    my $f = fact($x);
    print "factorial($x)=$f\n";
}
continue {
    ++$x
}
sub fact {
    $_[0] <= 0 and return 1;
    return $_[0] * fact($_[0] - 1);
}


##</code><code>##

REORDER: $var3 = $1;$cons4 = $2;$body6 = $3;$var5 = $4;

##</code><code>##

REORDER: $var1 = $1;$cons2 = $2;$var3 = $3;$cons4 = $4;$body6 = $5;$var5 = $6;

##</code><code>##

$i = 0;
while ($i < 10) {
    ++$x;
}
continue {
    ++$i
}