m@main=do g<-getLine;putStrLn$([pure,\x->['1',x]]<*>"0123456789AB")!!sum[read$"0x0"++[c]|c<-g];m