m@main=do s<-getLine;print$sum[1|i<-s,j<-"06889",i==j];m