perl -e'print index xwvutsrqpon,$_ for n..w'