>>3http://github.com/PriorArt/AGI/blob/master/ghost.pl
5,823 lines of the worst Perl code I've ever seen, at least since the
last time I looked at your stuff.
if ($c12 ne "") { # 2016apr03: if the word is only 12 characters
$b16=$c12; $b15=$c11; $b14=$c10; $b13=$c09; $b12=$c08; $b11=$c07;
$b10=$c06; $b09=$c05; $b08=$c04; $b07=$c03; $b06=$c02; $b05=$c01;
$b04=""; $b03=""; $b02=""; $b01=""; # 2016apr02
return; # 2016apr02: abandon remainder of function;
} # 2016apr02: end of transfer of a 12-character word;
if ($c11 ne "") { # 2016apr03: if the word is only 11 characters
$b16=$c11; $b15=$c10; $b14=$c09; $b13=$c08; $b12=$c07; $b11=$c06;
$b10=$c05; $b09=$c04; $b08=$c03; $b07=$c02; $b06=$c01; $b05="";
$b04=""; $b03=""; $b02=""; $b01=""; # 2016apr02
return; # 2016apr02: abandon remainder of function;
} # 2016apr02: end of transfer of an 11-character word;
if ($c10 ne "") { # 2016apr03: if the word is only 10 characters
$b16=$
You've got to be kidding, right?