perl -le'$;=3;$;=~s/./$&?30:3/eg for 3..pop;print length$;' 12