$\+=$z-2*$z%($z=10**(19&654115/ord)%1645)for<>=~/./g;print