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