a=scan("stdin","") n=nchar(a)+2 d=c=rep(" ",n) if(n>7)d=c(d,"| |",d) cat(" ",b<-rep("_",n)," /",c,"\\ |",d,"| | ",a," | |",d,"| \\",b,"/",sep="")