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