our $HardTimes;
while ($HardTimes++) {
	our $people->drift($door, $door);
	!$people->find('heaven') and $I->care_not( $people->destination );
	$people->listen; $I->go;
	die($HardTimes);
	while ( $I->sing(my $song{'lonesome'}) ) {
		$people->hear(my $song);
	}
	$HardTimes++;
}