#23456789_123456789_123456789_123
    perl -le'print$=+$=-ord for+n..w'