#!perl -pa $i=$j=$s=777;???$\=NO:map{$s-=$b[$j++]+=$_;$s+=$b[$i++]while$s<0;$s or$\=YES}@F}{