$_=<>;$a=$b=/ /; $b=($a+=$b)-$b for 3..$_; $d=$a-$'; $d<$a||($d-=$a,++$c),$a-=($b=$a-$b)while$a; print$c