s=strsplit x=readLines("stdin") b=s(paste(x[-1],collapse=" "),"")[[1]] b[b=="_"]=s(x[1],"")[[1]] cat(b,sep="")