@ARGV=$0; $GR=@AV+$=; # everything up to the + sign must be unchanged
$_=<>; # read first (only) line of file
s/([^+]+)\+.+/y|$+$GR++|morenlpsk|/; # replace entire line w/ translate
# print;
eval; # self-modifying code!
# print;
s/[^k]+?kk(.+)kk.+/$+/; # get rid of everything but the magic word(s)
print$_;