#1234567890123456789012345678901234567890
perl -wle "$a=<>;($x=<>)>0?$_+=$x:0 while$a--;print