$/ = qq(mkd\@h   lqvj}"    |[mhrqj\@  WW   RB  ?=H\n   ;]B     y[I  LO]   opq   rc\@ PB   yS  MLQ\n   }By    SS]    hlq  vj\@   twq vP   GG  Rsa\n   hPw    lbPB|=B?;Q  ^By_B|=B  ?;\\eplP  ByQ\nRH VVB    E|Q    QVD  :lD       ]m   rc  \n ch\@I     ]{{   );
$n = "4       km   j\@  !vw\n\njpcl\@(clr\@0aeucl";
$r = sub {
    $z = shift @_;
    foreach $_ (0 .. 7) {
        $b[$_] = vec($z, $_, 1);
    }
    my $v .= $b[0];
    foreach $_ (1, 3, 5) {
        $v .= $b[$_ + 1] . $b[$_];
    }
    $v .= $b[7];
    return pack('b*', $v);
}
;
$n =~ tr/"\n / /d;
$e = sub {
    eval $_[0];
    $";
}
;
$t = sub {
    join '', map(&$r($_), split(//, $_[0], 0));
}
;
$" = &$t($n);
$| = 1;
$/ =~ tr/"\n / /d;
&print(&$e(&$t($/)));