perl-scripts/JAPH/vec_japh.pl

$_ = [
        74, 116, 113, 113,
        28,  92, 104, 104,
       108,  95,  91, 103,
        20,  67,  87,  99,
        92,  15,  86,  78,
        79,  86,  79,  91,
        20,  19,  00,  73,
     ];

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