perl-scripts/JAPH/vec_japh_2.pl

$_=[$j=#];
          101,  98, 102, 108, 28,
           69, 111, 108, 108, 23,
           87,  99,  99, 103, 90,
           86,  98,  15,  62, 82,
           94,  87,  10,  81, 73,
           74,  81,  74,  86, 15,
            2,  31,   6,  17,  0,
$i=$j-$j];

{vec($j,$i++,8)=$$_[$i]+$i;$$_[$i]&&redo||`$j`}