local$/;use Compress::Zlib;use List::Util qw[ reduce ];;;;;; $_=reduce{ref$a?$a:$a+$b<=$ARGV[0]?($a+=$b):[$a,$a+$b];;;;;; }unpack'U0xU*',Compress::Zlib::memGunzip(unpack'u*',); print $ARGV[0]-$_->[0]<=$_->[1]-$ARGV[0]?$_->[0]:$_->[1];;;; __DATA__ M'XL(```````""^W8P:V"4!`%T#!+IDW7KQ(6%F`!)C9`%X86J$06O@V1W=/X MPD$6Q/F)W,--F/QAJ$?D^XBQ'MGX*DH]LO%57.I1OG:5?L-O^(W#JUBF_:?T M\U6Z>W?O[MV]NS_%W