main=do n<-readLn;interact$map(\c->[snd.span(<c).cycle$s|s<-[['A'..'Z'],['a'..'z'],"?!!",[c]],elem c s]!!0!!n)