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="")
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page