for(i in readLines("stdin")){d=strptime(paste(i,1),"%Y%m%d")
cat(month.abb[d$mon+1],d$year+1900,fill=T)
write(sprintf("%3s",c(rep("",d$wday),1:diff(seq(d,,"mon",2)))),T,7,,"")
cat("
")}
Note that non-ascii characters in the above source code will be escaped (such as \x9f).