A reasonable tribute (i think) to the voting/experiance/level system here in the monastery , enjoy :
#!/usr/bin/perl
bless \@monks;
$initiate = recv(MONASTERY,$enlightenment,$daily,0);
$novice = seek(MONASTERY,$enlightenment,0);
$acolyte = sleep && eat && study $SOPW && redo;
$scribe = require disipline;
$monk = print MONASTERY rand($wisdom);
$friar = accept(MONASTERY,applause);
$abbot = seek(MONASTERY,$enlightenment,2);
$bishop = join 'E','d','i','t','o','r','s';
$pontiff = push @monks, $improve;
$saint = 1;
remeber the immortal word's of Socrates who said, "I drank what ?"