#!/usr/bin/perl -w

use strict;#:-)
@!=<DATA>;chomp
@!;$_=@!;map{$_
=[split//]}@!;$
0=1;$a=$b=int$_
/2;my$s=sub{for
(0..$!){push@0,
$![$a][$b]|| 0;
${$_[0]}+=$0;}}
;while($!<$_){&
$s(\$b);&$s(\$a
);$!++;$0=-$0;}
eval join'',@0;
    __END__
}}close FILE;}
;_\n";last;}els
1$t && /\S/){pi
 "x; open(FILrf
=tetub wnt{rEi(
 nnxs\&wnt,e,n/
ti$e;(le:: t t=
xr(n)diusFsu$ h
epf$'nF eihr_"e
n;i .if;dnin)$a
$"{y' || tf ;Fd
{n)m ;)d-(fiwi\
)\>ELIF<(elihld
ieman::dniF::e\
/)ELTIT|EMAN(+s

##</code><code>##

#!/usr/bin/perl -w

my $code = q($_="Put your code here, please!!\n"; print; exit;);

  use strict;#:-)
  @!=<DATA>;chomp
  @!;$_=@!;map{$_
  =[split//]}@!;$
  0=1;$a=$b=int$_
  /2;my$s=sub{for
  (0..$!){push@0,
  $![$a][$b]|| 0;
  ${$_[0]}+=$0;}}
  ;while($!<$_){&
  $s(\$b);&$s(\$a
  );$!++;$0=-$0;}
  eval join'',@0;
      __END__
][$i];}print"\n";}
_1);$a+=$0;}$!++;$0
$,+=$0;}last if($c=
[+be($c<$l){for(0>-
F+$l.";die;}my@F.=$
$c;ite must be ;.$0
t$)h'd=int($wham$l;
n,1wno!my$wh=) y!)}
ie,;sch;lengs)r$);f
rd+)i w)=mytq{oc{fo
po+2 f$el$ hrpo=$or
{cc/"o(doc$(trt0Fr(
)$$h. fi;)l$(i ;[(0
+(,w htgneL"tnn$$0.
+re$l$." ,rebmu0a..
itd(tni=b$=a$;1=].$
$soc$(rtsbus=]b$[$#
;bus=]b$[]a$[F${)!F
hw$<i$;0=i$ym(rof{)

##</code><code>##

; exit;
tre, pl
net yoe
ihu$_ua
r P"=rs
pedoc e
 ;"n\!!