n=mapM(:"123456789AB")" 0">>=words
m@main=do l<-getLine;putStrLn$n!!sum[1|c<-l,[d]<-n,d<c];m