program clear
implicit none
	call system("clear")
end program clear
