m@main=do l<-getLine;print$sum[5-read[c]|c<-l];m