<>;$y=/Y/,map$_[$_]+=$y?1:-1,/\d/gfor<>;$m>$_[$_]or$m=$_[$\=$_]for 0..9;print