perl -le'print map{pack c,($-++?1:13)+ord}split//,ESEL'