<>;$a[$\].$\<++$a[$_].$_?$\=$_:0for glob<>;print