smalltest=function(extvar)
{

itworks=paste('Ca marche',date())

setwd("c:/windows/temp")

write.table(itworks,file="resultat.csv", append=FALSE)

}
