$\+=$z-2*$z%($z=10**(7&$^T/7/ord)%1999)for<>=~/./g;print