BEGIN {
    close STDERR;
    if (@ARGV) {
        print "\n";
        for ( grep /entersub/,
              split /^.*nextstate.*$/m,
              join '',
              grep /nextstate|entersub|padsv|gvsv/,
              <STDIN> ) {
            $_ = pack 'B*',
                 '00' . join '',
                 map { $_ eq 'padsv' ? 0 : 1 }
                 grep /\A(?:pad|gv)sv\Z/,
                 split;
            tr//Just another perl hacker,/cd;
            print;
        }
        exit;
    }
    else {
        open STDOUT, "|$^X $0 1"
    }
}
use O qw/Terse/;
exit;
sub a { print STDERR shift }
my $n = 0.07037353515625; my $o = 0.071044921875; my $p = 0.382904052734375;
my $q = 0.53448486328125; my $r = 0.231842041015; my $s = 0.942871093754356;
my $t = 0.12261962890625; my $u = 0.978332519531; my $v = 0.725738525390625;
my $w = 0.54141235351562; my $x = 0.416351318359; my $y = 0.838958740234375;
my $z = 0.88931274414062;
a($o/$o/$o+$v/$t/$s); a($s/$t*$s/$v-$s-$b); a($w*$w*$x+$x+$b/$t);
a($r/$o*$d-$y-$x-$t); a($v/$f-$q/$v*$t*$e); a($y-$g+$n/$o-$f-$i);
a($o+$u*$t*$i-$c*$q); a($o*$w/$p-$e/$h-$a); a($t-$w+$e-$q*$z-$r);
a($y+$c+$x*$y/$e/$t); a($n+$e*$p*$a/$a+$r); a($v-$f+$q/$f*$e+$m);
a($r+$h*$u-$r-$o*$b); a($x/$o*$g/$h/$q-$a); a($s-$h*$n-$j+$m/$q);
a($z-$j*$p/$a+$d+$g); a($y/$m*$y*$y/$y+$u); a($p*$e+$q*$z-$z/$k);
a($p/$e-$x*$s/$l/$o); a($s-$m*$y+$y+$j-$i); a($w*$m/$t+$a+$o+$v);
a($z+$k+$v*$f+$t/$c); a($r/$i-$t-$c+$d*$s); a($v+$k+$u-$m*$e-$e);
a($u-$e/$h*$y-$v+$s);