main=do n<-readLn;interact$map(\c->[snd.span(<c).cycle$s|s<-[['A'..'Z'],['a'..'z'],"?!!",[c]],elem c s]!!0!!n)
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page