# Dashing through the snow
# In a one horse open sleigh

my $we = new People;
my $snow = new Enviroment ( type => 'cold' );
my $sleigh = new Transport ( for => $snow );

$sleigh->puller( new Horse );
$sleigh->dash( $snow );

# O'er fields we go
# Laughing all the way
# Bell on bobtail ring
# Making spirits bright
# What fun it is to ride and sing 
# A sleighing song tonight

$we->go( $fields, 'over' );
$we->do( 'laugh' );
$bell->ring;
$spirits->set( bright => 1 );
$we->set_fun( 'lots' ) while ( $we->ride and $we->sing( about => 'sleighing' );

=pod
Jingle bells, jingle bells 
Jingle all the way, 
Oh what fun it is to ride 
In a one-horse open sleigh, O
Jingle bells, jingle bells 
Jingle all the way, 
Oh what fun it is to ride 
In a one-horse open sleigh.
=cut

$bells->jingle; $bells->jingle;
$bells->jingle while ( $we->travel );
$we->set_fun( 'lots' ) while ( $we->in($sleigh) );
$bells->jingle; $bells->jingle;
$bells->jingle while ( $we->travel );
$we->set_fun( 'lots' ) while ( $we->in($sleigh) );