m@main=do x<-getLine;print$read[c|c<-"0x"++x,c/=':']+0;m