program systst
	integer system
	write(*,*) "date", system("date")
	write(*,*) "rm xxx", system("rm xxx")
	end