perl -e '$_++;print "$_$_"*ord("\a")*ord("\r")<<$_'