<>;@a=glob<>; $a[$_-2]+=pop@a for sort{1}3..$#a; $a[-1]or pop@a,$a[-1]or pop@a; print"$#a\n@a"