import Numeric
import Char
main=interact$f.lines
f[a,x]|x<"a"=d x|x<"s"=x#""|0<1=x#"A"
d x=showIntAtBase 256chr(read$"0x"++x)""
x#a=map toUpper$showHex(fst$readInt 256('\a'<)ord x!!0)a