runexam = function (name) {   capture.output(source(file=paste(name,'.R',sep=''),echo=T,max.deparse.length=10000),file=paste(name,'.Rout',sep='')) }