In the spirit of TMTOWTDI people might might find "Perl and Prolog and Continuations... oh my!" of interest.

People might also find this next bit of info interesting.... but they also might find it that it spoils the fun of this thread (sorry Ovid :-). Hence the uuencoding. You have been warned.

print unpack "u", <<'EOT';
M5&AE<F4@:7,@82!-871H.CI,;V=I8SHZ4')E9&EC871E(&]N($-004X@=&AA
M="!D;V5S(&UO<W0@;V8@=VAA="!I="!L;V]K<R!L:6ME('EO=2!W86YT($%)
2.CI097)L;V<@=&\@9&\@.BTI
EOT
[download]