use strict;
use warnings;
my @twentytwoord = ( 8, 22, 40, 59, 77, 92, 102, 84, 63, 43, 26, 14, 9, 23, 24, 41, 42, 60, 61, 78, 79, 93 );
my @twentytwo = map { 255 - $_ } @twentytwoord;
my @twentyfourord = ( 0, @twentytwoord, 103 );
my @twentyfour = map { 255 - $_ } @twentyfourord;
print "twentytwoord: @twentytwoord\n";
print "twentytwo: @twentytwo\n";
print "twentyfourord: @twentyfourord\n";
print "twentyfour: @twentyfour\n";
my $lookup24str = join "", map { chr } @twentyfour;
my $lookup22str = join "", map { chr } @twentytwo;
my $prog129 = '<?for($t=fgets(STDIN);23^$x=strpos(~' . $lookup24str .
              ',chr($i++));)echo($x--?$x^($t&' .
              chr(176).chr(176).chr(176).chr(255).chr(255) . ')/5?o:' .
              chr(253) . ':' . chr(160) .
              ')&($x^$t%12?$x<12?o:' . chr(138) . ':x);';
my $prog130 = '<?for($c=' . chr(160) .
              '&$t=fgets(STDIN);$x-22;$c[ord(~$l[$x])]=($x^$t%12?$x<12?o:' .
              chr(138) . ':x)&($x++^($t&' .
              chr(176).chr(176).chr(176).chr(255).chr(255) . ')/5?o:' .
              chr(253) . '))$l=' . $lookup22str . '?><?=$c;';
for my $prog ($prog129, $prog130) {
   my $progfile = 'gen' . length($prog) . '.php';
   open my $fh, '>', $progfile or die "error: open '$progfile': $!";
   binmode $fh;
   print {$fh} $prog;
   close $fh;
   warn "created $progfile, ", length($prog), " bytes\n";
}