cat(substr(scan("stdin",""),a<-1:99,a),sep="")