I think God used to be more hands on, but he long since automated much
of the grunt work:
#!/usr/bin/perl -w
use strict; # face it, God is strict and gives warnings
use Create;
while(1){
my $universe = Create->new();
$universe->first_seven_days();
while(1){
last unless universe->still_has_life();
$universe->random_cataclysm() if int(rand(10000)) == 666;
$universe->random_miracle() if int(rand(1000)) == 7;
}
print "Do you want to play again?[y/n] ";
chomp(my $answer = <STDIN>);
last if $answer =~ /^n/i;
}
__END__