#! /usr/local/bin/perl
use strict;
my@c=(6,4,1,2,20,3,8,3,24,0,-17,6,24,4,10,1);$~=
'goto;_"_/{1}/_/{4}/__open(FD,"perl -v|");$"=<FD>;close(FD);_}_}__';
undef$/;for(split chop$~,$~){$"=$@ unless eval==1;
print'J'if$"=~/^g/;print substr($",shift@c,shift@c);}