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