main=f""
f l=do a<-getChar;putStr$maybe[a]show(lookup a$zip l[0..9]);f$[a|a>'@']++l