my @f = (1,1,2,3,5,8,13,21);
my @code = map uc,split //,"Jaeiextostgpsacgreamqwfkadpmqzvz";
for my $i (0..$#code) {
print chr(((ord($code[$i])-65+($f[$i % scalar @f] == 2 ? -2 : $f[$i % scalar @f] - 1)) % 26) + 65)
}