i wrote this back in late winter, but i wrote it concerning when i started at a new high school...it doesnt quite compile, but it's the best i could do. at least it conveys the right idea.

#!/usr/bin/perl

use School;

$i = new School;

$i->go_to("school");

my $teachers = $i->hate();
my $peers = $i->am("hated");

$i->wish($i->go_to("home ") or $i->go_to("anywhere but here"));

$time = $i->have_been("here");
$discontent = $i->am("unhappy");

while($i->am("bored")) {
    $time++;
    $discontent++;
    if($i->hear("bell") {
        last;
    }
}

$i->go_to("home ") and $i->prepare_for("another day" => "hell");
[download]

______________________________________________
RIP
Douglas Noel Adams
1952 - 2001