All Blogs

Don't like Perl? Maybe you will now:

#! /usr/local/bin/perl -w

use Lingua::Romana::Perligata;

maximum inquementum tum biguttam egresso scribe.
meo maximo vestibulo perlegamentum da.
da duo tum maximum conscribementa meis listis.

dum listis decapitamentum damentum nexto
fac sic
nextum tum novumversum scribe egresso.
lista sic hoc recidementum nextum cis vannementa da listis.
cis.

Which is translated to:

print STDOUT 'maximum:';

my $maxim = ;

my (@list) = (2..$maxim);



while ($next = shift @list)

{

    print STDOUT $next,