m@main=do g<-getLine;putStrLn$([pure,\x->['1',x]]<*>"0123456789AB")!!sum[read$"0x0"++[c]|c<-g];m
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page