perl -le '$_=sa9999;++substr$_,1;print'