perl -e'map$\+=$_,/./g for 1..1e6;print'