#!/usr/bin/perl -w                                # Bugs In My Code?
use strict;

$/              =chr              (
 (($=              <<            1)
    /((1<<1       )*       (int$]))).
          "\62"  );      my@
           sg=map{$_++;;my@l;;
  while($_){ my$z=1<<1; my$i=
 substr($_,0,$z);if($i>(int($])**
$z)){$l[@l]="$|".$i ;}else{$l[@l]=
 $i.substr$_,$z,1;$z++}$_=substr$
  _,$z,length$_;}@l=map chr,@
          l;$_=join'',@l;}map{
         my@y=  split    '';
    map{$_        =''     if/[a-z]/}@
 y;;               join          '',
@y              ;}map               (


    (              (
     join'',split))   
       ,<DATA>);%
          _=()                                       ;@_=(2401,
       2414,2414,                                2423,1264,1322,
     1413,1483,1904                             ,1940,265,299);;;
    ;              ;                          $_=$|;while($_<@_){$
                                        _{chr$_/(1<<1)}=[$_[$_
                             ],$_[  $_+1]];$_+=(1<<1)} my$
                           bug=3;$_=qq!seek$"DATA,$"$[,$"
                          int($]-($=/($=/int($]))))!;my@b=qw
                          |; _ $ @ ) { % =|;my%u=();my$t;my$s=
                                  $|;while (){undef $/;eval;my$m=
                               <DATA>;$/=   "\n"    ;;while(){$t=
                              int           rand     @_/(1<<1);last 
                             if             !exists     ($u{$t})}my
                            $d                =substr       ($m,$_{

                       chr$              t}->
                         [$|]           ,$_                      {
  chr$t}->[                 ++        $|                  ]-$_ {
         chr                $t}->[--$|])                 ;;;
          ;;;               $d=~s+\s{2,2}              ++gx
            ;$d=~       tr=\n==d;my$b;while(){     $b=$b 
              [int rand@b];last if$d=~/\Q$b\E/};my$u=$d;
                    my@z=split//,$u;;my@p;;foreach
                   my$z($|..$#z){$p[@p]=$z if$z[$z]
                  eq$b}substr($u,$p[int(rand@p)],$=
                 >>int$])="";;;print qq+$sg[1<<1]$"$
                  b$"$sg[3]\n$u\n$sg[$[]$"$sg[$= >>
                   int$]]:$"+;$u=<>;chomp$u;;;if($u
                 eq$d){$s++;print "$sg[$|]! ";}print
                 "$sg[1<<1**1<<1]: $s\n\n";;$bug--;;
             last if!$bug;$u{$t}=$t}print qq!$sg[int($
           ])]$":)!if$s==(3+$bug);print"$sg[6]\n"__DATA__
         6711dh 11141g 141019 9115z11 g610410 1321h 08105
        g h11    0100 z84104101 e1 14101321 15101101   1c 09
       1153      f 21161 11 32h981 01h32973 2g1161       h21
        112      11gh 132111101z10h51gh09z8y3 99cx1       1q1
       1p1       4d1qd0o0z 6711as1110 103114d971161       1 5
       3d3      328 9d111 117321049 7118101d321tyqu1      9111
      11032   t116 1041 d013299 104 97108108 101w11010    j3 1
      0146   32711 051181013 2jh1 21111 qt11711411 51011  f0810
      2329  7321    d12971  163211s 11103211 610d   41013  29 8
    979    910       6z 719x 710x 91013 sxc27911      8d10    ds11
 f14        3g3       32 841dyf04 ds97dd x1101d       t073      2fd1
2l          11fg       111 1732f fd102u1 adf1p       111         4as
             df3        er2112k10s df89qe7121      tyu1           05
             1iry          10103 443211tyu2         1081
              01jh           971ty 151uf0          1t32
              9911             1i10910t            1a32
             971t                y039u              7105
            11l                                       032
           d                                           jh