program lixo
write(0,*) '*** OI TOMAS ***'
end program
