sub new {
	my ($class, $self) = @_;
	unless ($self->work() || $self->sleep()) {
		$self->smoke;
		$self->cancer_probablity += rand(0.001);
	}
	bless ($self, undef);
}