write(format.Date(as.Date(readLines("stdin"),"%Y%m%d"),"%w"),"")