#!/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;