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