#!/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{)