eval join '', map{ if( m|^\d+$| ){
                     pack'c',$_
                   }
                   else{$_}
                 }
              ( 22 + c() + r(), b(),
                ( ~~ join '', map { $a = $_ + a();
                                    $a = pack('c',$a);
                                    $a =~ s{(b|2)}[$1-];
                                    $a
                                  }
                  ( c(), 24 + c(), r(), 2, 9, d(), 1 )
               ), b(),
                 ( ~~ join '', map { $b = $_ + r();
                                     $b = pack('c',$b);
                                     $b =~ s=(a|0)=$1-=;
                                     $b
                                   }
                   ( a(), 24 + r(),  -1,8 )
               ), b() );