sub thanksgiving {
	my $year = shift;
	my $dt = DateTime->new(year=>$year,month=>11,day=>1);
	$dt->add(days=>1) while $dt->dow!=4;
	$dt->add(weeks=>3);
	return $dt;
}