END { print " \n" }
my $t = 1;
for(
    73, 43, -2, 1, -84, 65,
    13, 1, 5, -12, -3,
    13, -82, 48, 21,
    13, -6, -76, 72, -7, 2, 8, -6,
    13, -70
) {
    print chr ($t += $_);
}
__END__