set_year:-write('Input the year ending with a period: '), read(Year), 
	abolish(year, 1), assert(year(Year)).